[分享]腳本:超級績分員
  主題：[分享]腳本:超級績分員 - BBS3000 Internet Explorer
　當前位置 E.F.EA測試伺服器BUG討論聊天區 [分享]腳本:超級績分員

 ■ 回覆數：0　◆ 點擊數：986 將此頁發給您的朋友
回覆 收藏 打印 刷新 篇末
作者 主題: [分享]腳本:超級績分員
GubbyTom



論壇版主		 發表于 2005-10-06.21:03:51　　 查看GubbyTom的信息　給GubbyTom發信　訪問GubbyTom的主頁  給GubbyTom留言　編輯文章　引用回覆　復制此貼內容　將本文章內容通過Email打包下載　加為好友　刪除此文章
//
//---------------------------------------------------------------------
// 仙境傳說 遊戲腳本
//---------------------------------------------------------------------
//
// 名稱：Jifeng
// 類型：打卡計時積分
// 版本：v1.0
// 設計：xuwujun
// 編製：xuwujun
// 版權：xuwujun
// OICQ：32145442
//
//---------------------------------------------------------------------
//-------------------------- 更新及簡要說明 ---------------------------
//
// 裡面所有能得到的東西都是能正常打怪所可以得到的，所以不必擔心是BT腳本
// (如腳本有錯請聯繫我^_^)
//
//
//---------------------------------------------------------------------

prontera.gat,146,73,4    script    計時積分處    837,{
    if(@use_serv==1) goto G_case2;

//---------------------------------------------------------------------
set @time_serv,300000;
set $@get_jifeng,1;
set $@need_charblv,45;

//----------------- 換取物品所需積分點數和物品個數 --------------------

set $@style_A_item,5;
set $@style_A_count,15;


//---------------------------------------------------------------------


//----------------- 換取裝備所需積分點數和裝備個數 --------------------

set $@style_A_equip,80;
set $@style_A_ecount,1;

set $@style_B_equip,80;
set $@style_B_ecount,1;


//---------------------------------------------------------------------


//------------------------- 積分換取RO幣 ------------------------------
set $@ro_zenys,2400;
set $@use_charjf,1;

//---------------------------------------------------------------------


    mes "[ ^0049FF超級服務員^000000 ]";
    mes "你好，我是IN前線特服人員，";
    mes "歡迎使用積分累積特別系統。";
    mes "請選擇你要的服務項目，謝謝。";
    next;

    menu    "使用積分累積",G_case1,
        "查詢自己的積分",G_case2_2,
        "用積分換取東西",G_case3,
        "查看使用說明",G_case4,
        "結束對話",G_Quits;

G_case1:
    set @yanzhen1,rand(1000,9999);
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "請正確輸入下面的驗證碼方可使用。";
    mes "驗證碼 ：[ ^FF0000"+@yanzhen1+"^000000 ]";
    next;
    input @yanzhen2;
    if(@yanzhen2!=@yanzhen1) goto G_yanzhencuowu;

    mes "[ ^0049FF超級服務員^000000 ]";
    mes "你確定要開始累積分數嗎？";
    mes "這可是最特別的服務哦！";
    mes "請選擇吧：";
    next;

    menu "是的，我要使用",-,"查看使用說明",G_case4,"我不想使用",G_Quits;

    if(baselevel<$@need_charblv) goto G_notblvl;
    if(char_jifeng>1000000) goto G_fulljf;
    set @gejf_temp,char_jifeng+$@get_jifeng;
    if(@gejf_temp>1000000) goto G_fulljf;
    set @use_serv,1;
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "以每[^0049FF"+@time_serv/60000+"^000000]分鐘換取[^0049FF"+$@get_jifeng+"^000000]點積分數，";
    mes "點擊關閉開始使用本服務，要保持本服務請勿離開首都，和登出人物，及進入房間。";
    close2;
    addtimer @time_serv,"Jifeng_UP";
    end;


G_case2:
    if(char_jifeng<1) goto G_case2_1;
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "目前你累積的積分為[^0000FF"+char_jifeng+"^000000]點。";
    mes "是否要終止此服務呢？";
    next;
    menu "是的，終止使用",-,"不是，繼續使用",G_Quits;

    set @use_serv,0;
    deltimer "Jifeng_UP";
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "好的，已經完成了。";
    close;
    end;

    G_case2_1:
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "目前你累積的積分為[^0000FF零^000000]點或者你還沒有開始使用本服務。";
        goto G_Quits;

    G_case2_2:
        if(char_jifeng<1) goto G_case2_1;
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "目前你累積的積分為[^0000FF"+char_jifeng+"^000000]點。";
        goto G_Quits;

G_case3:
    if(char_jifeng<1) goto G_case2_1;
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "呵呵，歡迎使用積分換取物品服務，請選擇你所要的菜單：";
    next;
    menu    "以積分換取物品",G_case3_1,
        "以積分換取裝備",G_case3_2,
        "以積分換取RO幣",G_case3_3,
        "結束對話",G_Quits;


    G_case3_1:
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "目前此項正在設置中... 請等候...";
        close;
        end;
/*
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "積分換取物品：";
        mes "以[^0000FF"+$@style_A_item+"^000000]點積分隨機換取物品[^0000FF"+$@style_A_count+"^000000]個";
        mes "請繼續選擇你要的菜單：";
        next;

        menu    "立即換取物品",G_case3_1_1,
            "結束對話",G_Quits;

            G_case3_1_1:
                    if(char_jifeng < $@style_A_item) goto G_notjifeng;
                    set char_jifeng,char_jifeng-$@style_A_item;
                    G_rerandA:
                    set @item_sjA,rand(501,1099);
                    if((@item_sjA>574 && @item_sjA<601) || (@item_sjA>757 && @item_sjA<901) || (@item_sjA==603) || (@item_sjA==604) || (@item_sjA>615 && @item_sjA<619)) goto G_rerandA;
                    getitem @item_sjA,$@style_A_count;
                    mes "[ ^0049FF超級服務員^000000 ]";
                    mes "好了，請點一下吧。";
                    close;
                    end;
*/

    G_case3_2:
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "目前此項正在設置中... 請等候...";
        close;
        end;
/*
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "積分換取裝備：";
        mes "以[^0000FF"+$@style_A_equip+"^000000]點積分隨機換取防具[^0000FF"+$@style_A_ecount+"^000000]個";
        mes "以[^0000FF"+$@style_B_equip+"^000000]點積分隨機換取武器[^0000FF"+$@style_B_ecount+"^000000]個";
        mes "請繼續選擇你要的菜單：";
        next;
        menu    "立即換取防具",G_case3_2_1,
            "立即換取武器",G_case3_2_2,
            "結束對話",G_Quits;

            G_case3_2_1:
                    if(char_jifeng < $@style_A_equip) goto G_notjifeng;
                    set char_jifeng,char_jifeng-$@style_A_equip;
                    G_rerandB1:
                    set @equip_sjA,rand(2101,2511);
                    if((@equip_sjA==2200) || (@equip_sjA>2227 && @equip_sjA<2307) || (@equip_sjA==2300) || (@equip_sjA==2318) || (@equip_sjA==2319) || (@equip_sjA==2327) || (@equip_sjA>2334 && @equip_sjA<2401) || (@equip_sjA>2406 && @equip_sjA<2501) || (@equip_sjA>2507 && @equip_sjA<2512)) goto G_rerandB1;
                    getitem @equip_sjA,$@style_A_ecount;
                    mes "[ ^0049FF超級服務員^000000 ]";
                    mes "好了，請點一下吧。";
                    close;
                    end;

            G_case3_2_2:
                    if(char_jifeng < $@style_B_equip) goto G_notjifeng;
                    set char_jifeng,char_jifeng-$@style_B_equip;
                    G_rerandB2:
                    set @equip_sjB,rand(1101,1962);
                    if((@equip_sjB>1125 && @equip_sjB<1151) || (@equip_sjB>1160 && @equip_sjB<1201) || (@equip_sjB>1222 && @equip_sjB<1250) || (@equip_sjB>1254 && @equip_sjB<1301) || (@equip_sjB>1304 && @equip_sjB<1351) || (@equip_sjB>1362 && @equip_sjB<1401) || (@equip_sjB>1412 && @equip_sjB<1451) || (@equip_sjB>1465 && @equip_sjB<1501) || (@equip_sjB>1522 && @equip_sjB<1601) || (@equip_sjB>1612 && @equip_sjB<1701) || (@equip_sjB>1718 && @equip_sjB<1801) || (@equip_sjB>1812 && @equip_sjB<1901) || (@equip_sjB>1912 && @equip_sjB<1950) || (@equip_sjB>1959 && @equip_sjB<2101)) goto G_rerandB2;
                    getitem @equip_sjB,$@style_B_ecount;
                    mes "[ ^0049FF超級服務員^000000 ]";
                    mes "好了，請點一下吧。";
                    close;
                    end;
*/
    G_case3_3:
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "積分換取RO幣：";
        mes "每[^0000FF"+$@use_charjf+"^000000]點積分可換取[^0000FF"+$@ro_zenys+"^000000]Zeny哦。";
        mes "請繼續選擇你要的菜單：";
        next;
        menu    "立即換取RO幣",G_case3_3_1,
            "結束對話",G_Quits;

        G_case3_3_1:
            mes "[ ^0049FF超級服務員^000000 ]";
            mes "請問你要用多少點來換取RO幣呢？";
            mes "請輸入吧，輸入值不可以超過你本身的積分數[^0000FF"+char_jifeng+"^000000]哦。";
            next;
            input @temp_shuru1;
            if(@temp_shuru1>char_jifeng || @temp_shuru1<1 || @temp_shuru1>9999) goto G_shuru_err;
            set @ro_zenys_t1,@temp_shuru1*$@ro_zenys;
            set @ro_zenys_t2,zeny+@ro_zenys_t1;
            if(@ro_zenys_t2>2000000000) goto G_shuru_err;
            set char_jifeng,char_jifeng-@temp_shuru1;
            set zeny,zeny+@ro_zenys_t1;
            mes "[ ^0049FF超級服務員^000000 ]";
            mes "好了，請點一下吧。";
            close;
            end;
           
G_case4:
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "本服務是一種特別的服務";
    mes "你可以通過這裡像打卡似的方法積累分數，然後以積分換取RO幣及遊戲內的一些普通物品。";
    close;
    end;


G_notjifeng:
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "對不起，你目前的積分無法換取這類東西。";
    mes "請繼續加油吧。";
    close;
G_fulljf:
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "對不起，你目前的積分已經是滿額了，所以不能再使用此服務。";
    close;
G_notblvl:
    mes "[ ^0049FF超級服務員^000000 ]";
    mes "對不起，你目前的等級無法使用此服務，請達到[^0000FF"+$@need_charblv+"^000000]級後再來。";
    close;

G_shuru_err:
    mes "[ ^0049FF超級服務員^000000 ]";
    if(@temp_shuru1>char_jifeng || @temp_shuru1<1 || @temp_shuru1>9999) mes "對不起，你輸入的數字有誤，請確定以後再進行操作。";
    if(@ro_zenys_t2>2000000000) mes "對不起，你身上的錢已經足夠多了，難道你還不知足嗎？！";
    close;

    G_Quits:
        close;
G_yanzhencuowu:
        mes "[ ^0049FF超級服務員^000000 ]";
        mes "驗證碼輸入錯誤，無法使用此服務。";
        close;
        end;
}

prontera.gat,0,0,0    script    Jifeng_UP    -1,{
    deltimer "Jifeng_UP";
    if((char_jifeng+$@get_jifeng)>1000000) goto G_ends;
    set char_jifeng,char_jifeng+$@get_jifeng;
    dispbottom "[系統提示] : 你目前的積分值為[^0000FF"+char_jifeng+"^000000]點。";
    addtimer @time_serv,"Jifeng_UP";
end;
   
G_ends:
    dispbottom "[系統提示] : 你的積分值已經滿額，無法繼續打卡，系統已經為你自動停止了此服務。";
    set @use_serv,0;
    deltimer "Jifeng_UP";
end;
}
總發帖數: 49 | 來源: 台灣 | 註冊日期: 2005-10-02 MSIE 6.0 Windows XP IP: 已記錄
 快速回覆主題： Re:[分享]腳本:超級績分員
 選項：用戶名： 沒有註冊？　密碼： 忘記密碼？
記住密碼
HTML語法
禁止YBB代碼
禁止表情關鍵字
寄郵件給作者
 我要評比： 共 0 票 　
1.0 = 最低評比等級� 5.0 = 最高評比等級

所有時間均為: 中原標準時間 ↑TOP 
關閉主題 拉前主題 移動主題 主題置頂 取消置頂 加入精華 移出精華 刪除主題

Powered by Yuzi Studios © 2001
Yuzi Bulletin BoardTM Version 4.123