泡點腳本問題

koysky · 發表於 2010-5-6 13:40:14

本帖最後由 koysky 於 2010-5-16 11:09 PM 編輯

prontera.gat,156,88,5 script 掛機泡點 768,{
if(@use_serv==1) goto G_case2;
//---------------------------------------------------------------------
set @time_serv,60000; //每1分鐘換取一點,可自行修改,但切勿小於60000
set $@get_jifeng,1; //每次得到的點數,可自行修改
set $@need_charblv,1; //需要什麼等級才可使用本服務
//----------------- 換取物品所需泡點點數和物品個數 --------------------
set $@style_A_item,12; //需要多少點數
set $@style_A_count,1; //得到多少張優惠券
set $@style_B_item,24; //需要多少點數
set $@style_B_count,1; //得到多少物品
set $@style_C_item,2; //需要多少點數
set $@style_C_count,1; //得到多少物品
set $@style_D_item,4; //需要多少點數
set $@style_D_count,1; //得到多少物品
//---------------------------------------------------------------------
//---------------------------------------------------------------------
//---------------------------------------------------------------------
mes "[ ^0049FF超級服務生^000000 ]";
mes "你好，我是丁丁RO服務人員，";
mes "歡迎使用泡點累積特別系統。";
mes "請選擇你要的服務項目，謝謝。";
next;
menu "開始掛機泡點",G_case1,
"查詢泡點及個人訊息",G_case2_2,
"用泡點換取東西",G_case3,
"檢視使用說明",G_case4,
"結束對話",G_Quits;
G_case1:
if ((class==5)||(class==10)||(class==18)||(class==23))goto G_bunenggua;
set @yanzhen1,rand(1000,9999);
mes "[ ^0049FF超級服務生^000000 ]";
mes "請正確輸入下面的驗証碼方可使用。";
mes "驗証碼︰[ ^FF0000"+@yanzhen1+"^000000 ]";
next;
input @yanzhen2;
if(@yanzhen2!=@yanzhen1) goto G_yanzhencuowu;
set @ro_zenys_t1,0;
set @ro_zenys_t2,0;
set @temp_shuru1,0;
set @gejf_temp,0;
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::OnAxx";
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::OnAxx";
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]點。";
mes "您現下的聲望為^ff0000"+sheng+"^000000";
mes "您現下的積分為^D8BFD8"+CK_dianshu+"^000000";
goto G_Quits;
G_case3:
if ((class==5)||(class==10)||(class==18)||(class==23))goto G_bunenggua;
if(char_jifeng<1) goto G_case2_1;
mes "[ ^0049FF超級服務生^000000 ]";
mes "呵呵，歡迎使用泡點換取物品服務，請選擇你所要的選單︰";
next;
menu "以泡點換取聲望",G_case3_1,
"以泡點換取血跡樹枝",G_case3_2,
"以泡點換取神祕紫箱",G_case3_3,
"以泡點換取老舊收集冊",G_case3_4,
"結束對話",G_Quits;
G_case3_1:
mes "[ ^0049FF超級服務生^000000 ]";
mes "你可以得到的服務︰";
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;
set sheng,sheng+$@style_A_count;
mes "[ ^0049FF超級服務生^000000 ]";
mes "好了，請點一下吧。";
close;
end;
G_case3_2:
mes "[ ^0049FF超級服務生^000000 ]";
mes "你可以得到的服務︰";
mes "你得到了︰";
mes "以[^0000FF"+$@style_B_item+"^000000]點泡點換取[^0000FF"+$@style_B_count+"^000000]個血跡數枝。";
mes "請繼續選擇你要的選單︰";
next;
menu "立即換取血跡數枝",G_case3_2_1,
"結束對話",G_Quits;
G_case3_2_1:
if(char_jifeng < $@style_B_item) goto G_notjifeng;
set char_jifeng,char_jifeng-$@style_B_item;
getitem 12103,$@style_B_count;
mes "[ ^0049FF超級服務生^000000 ]";
mes "好了，請點一下吧。";
close;
end;
G_case3_3:
mes "[ ^0049FF超級服務生^000000 ]";
mes "你可以得到的服務︰";
mes "目前只看了以物品如有需要購買其他聯繫GM︰";
mes "以[^0000FF"+$@style_C_item+"^000000]點泡點換取[^0000FF"+$@style_C_count+"^000000]個神祕紫箱。";
mes "請繼續選擇你要的選單︰";
next;
menu "立即換取神祕紫箱",G_case3_3_1,
"結束對話",G_Quits;
G_case3_3_1:
if(char_jifeng < $@style_C_item) goto G_notjifeng;
set char_jifeng,char_jifeng-$@style_C_item;
getitem 617,$@style_C_count;
mes "[ ^0049FF超級服務生^000000 ]";
mes "好了，請點一下吧。";
close;
end;
G_case3_4:
mes "[ ^0049FF超級服務生^000000 ]";
mes "你可以得到的服務︰";
mes "你得到了︰";
mes "以[^0000FF"+$@style_A_item+"^000000]點泡點換取[^0000FF"+$@style_A_count+"^000000]個老舊收集冊。";
mes "請繼續選擇你要的選單︰";
next;
menu "立即換取老舊收集冊",G_case3_4_1,
"結束對話",G_Quits;
G_case3_4_1:
if(char_jifeng < $@style_D_item) goto G_notjifeng;
set char_jifeng,char_jifeng-$@style_D_item;
getitem 616,$@style_D_count;
mes "[ ^0049FF超級服務生^000000 ]";
mes "好了，請點一下吧。";
close;
end;
G_case4:
mes "[ ^0049FF超級服務生^000000 ]";
mes "本服務是一種特別的服務";
mes "你可以使人物不離開來累計泡點，然後以泡點遊戲內的一些普通物品。";
close;
end;
G_case5:
mes "[ ^0049FF超級服務生^000000 ]";
mes "此功能未開放請聯繫GM";
close;
end;
G_case6:
mes "[ ^0049FF超級服務生^000000 ]";
mes "此功能未開放請聯繫GM";
close;
end;
G_bunenggua:
mes "[ ^0049FF超級服務生^000000 ]";
mes "您是商人系列的頭班，不能掛泡點";
mes "請更換其他頭班";
close;
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_Quits:
mes "[ ^0049FF超級服務生^000000 ]";
mes "感謝您的光臨";
close;
G_yanzhencuowu:
mes "[ ^0049FF超級服務生^000000 ]";
mes "驗証碼輸入錯誤，無法使用此服務。";
close;
end;
}
alberta.gat,0,0,0 script Jifeng_UP -1,{
OnAxx:
if(@use_serv != 1) goto G_ends_2;
deltimer "Jifeng_UP::OnAxx";
if((char_jifeng+$@get_jifeng)>1000000) goto G_ends_1;
set char_jifeng,char_jifeng+$@get_jifeng;
set $@dispmsg_ev,rand(10);
if($@dispmsg_ev== 5) dispbottom "[泡點系統提示] : 你目前的泡點值為[ "+char_jifeng+" ]點，感謝使用本系統!!!";
addtimer @time_serv,"Jifeng_UP::OnAxx";
close;
end;
G_ends_2:
dispbottom "[泡點系統提示] : 由於發生未知的錯誤，系統已經為你自動停止了此服務。";
set @use_serv,0;
deltimer "Jifeng_UP::OnAxx";
close;
end;
G_ends_1:
dispbottom "[泡點系統提示] : 你的泡點值已經滿額，無法繼續，系統已經為你自動停止了此服務。";
set @use_serv,0;
deltimer "Jifeng_UP::OnAxx";
close;
end;
}

複製代碼

這個是我腳本的問題,我下載了一個泡點功能NPC
但這個NPC在我測試後,,發覺和說明不一樣
這個系統說明,,進入聊天室和離開地圖就會關閉功能
但這個泡點,,就算離開地圖也會繼續增加泡點,,
而且進入聊天室也會一直增加泡點,,
我應該如何才可以設定只有prontera.gat掛機才有泡點呢,,
爬了很多文章也沒有教,,希望有人可以幫到我,,謝謝

sinya · 發表於 2010-5-6 14:12:50

本帖最後由 sinya 於 2010-5-6 02:16 PM 編輯

腳本好長喔這邊又不是產品維修服務中心 (小聲講其實是我看不懂)

koysky · 發表於 2010-5-6 14:23:28

腳本好長喔這邊又不是產品維修服務中心 (小聲講其實是我看不懂)
sinya 發表於 2010-5-6 02:12 PM

只是希望有寫過或用過這個腳本的朋友可以一起研究一下
因為我都試過多數修改也不能改得到在另的地圖不增加泡點
我不是強求別人幫我處理問題,,只是真的沒有辦法才問問大家
想教的可以教,,不想教的,,我也會接受,,畢竟這是我的問題,,
打擾到大家,,真的非常抱歉...

goddameit · 發表於 2010-5-6 21:26:33

順著動態找關鍵
....

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::OnAxx";
end;

複製代碼

重要命令

addtimer @time_serv,"Jifeng_UP::OnAxx";

找到相關標籤

OnAxx:
if(@use_serv != 1) goto G_ends_2;
deltimer "Jifeng_UP::OnAxx";
if((char_jifeng+$@get_jifeng)>1000000) goto G_ends_1;
set char_jifeng,char_jifeng+$@get_jifeng;
set $@dispmsg_ev,rand(10);
if($@dispmsg_ev== 5) dispbottom "[泡點系統提示] : 你目前的泡點值為[ "+char_jifeng+" ]點，感謝使用本系統!!!";
addtimer @time_serv,"Jifeng_UP::OnAxx";
close;
end;

判斷地圖指令 ? 判斷聊天室?

getmapxy(@M$,@X,@Y,0);
if( @M$ != "prontera" ){ end }
if(checkchatting()){ end }

複製代碼

sinya · 發表於 2010-5-9 15:40:40

根本就沒真心要解決問題的壇主回答他還三天不回應我不覺得我2f 回的有什錯
想解決問題的人會去試連試都不去試整個腳本放上來就會有解答喔
這就是你三樓所謂的研究?

koysky · 發表於 2010-5-16 22:24:07

根本就沒真心要解決問題的壇主回答他還三天不回應我不覺得我2f 回的有什錯
想解決問題的人會去試連 ...
sinya 發表於 2010-5-9 03:40 PM

這是因為我去了旅行,,現在才回來,,才能用電腦回覆
我不覺得我有什麼理由要和你爭議下去,,
這個腳本我想應該有很多人也會下載過,,
我舉出問題,,希望有人懂可以一起研究,,
我不是你們天天也可以上來研究的人
而且我一回來也立即上來研究,,不像你一樣,,我三樓回覆有何得罪你要多說多插
不懂就不懂,,你幹嗎說我腳本長,,這個腳本就是這麼長,,
我就是不懂才整個放上來,,看有沒有好心的人一起找出錯處
你要是不喜歡就可以不看,,不理我,,不要一直在這有的沒的

koysky · 發表於 2010-5-16 22:29:21

順著動態找關鍵
....重要命令

找到相關標籤

判斷地圖指令 ? 判斷聊天室 ...
goddameit 發表於 2010-5-6 09:26 PM

謝謝板大的教導
言而板主意思是將

getmapxy(@M$,@X,@Y,0);
if( @M$ != "prontera" ){ end }
if(checkchatting()){ end }

複製代碼

加在腳本上?
那我應該加到那一行?

goddameit · 發表於 2010-5-16 22:33:57

回復 7# koysky

已經告訴你了
回去看#4

koysky · 發表於 2010-5-16 23:09:19

回復 koysky

已經告訴你了
回去看#4
goddameit 發表於 2010-5-16 10:33 PM

嗯,,明白了,,謝謝大大的指導,,已經試得到了

		自動登錄	找回密碼
密碼			註冊

泡點腳本問題

評分

瀏覽過的版塊