UID88953
帖子
精華
主題
積分4410
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限20
註冊時間2008-5-25
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 開心 2012-6-20 12:30 AM |
---|
簽到天數: 46 天 連續簽到: 0 天 [LV.5]常住居民I
|

樓主 |
發表於 2008-7-10 22:31:06
|
顯示全部樓層
...
不明耶.
那我po整個掛錢你看看好了
/**************************************************\
仙境傳說PRO 遊戲腳本
****************************************************
名稱︰掛錢服務生
類型︰掛錢
版本︰2.0
版權︰(C) 2004 - 2005
授權︰xuwujun
============
製作人員
============
製作︰雲逝
改編︰xuwujun
繁體化: 神無月
============
簡要說明
============
預設設定︰4個檔次(1檔半小時5000Z,2檔1小時12500Z,3檔一個半小時20000Z,4檔125Zeny每分鐘)
掛錢時不能離開首都...也不能順移...但可以走動..
============
更新說明
-重新設定算錢模式...
-新增一個檔..以1分鐘為計算單位...
============
\**************************************************/
prontera.gat,164,84,2 script 掛錢服務員 838,{
//初始化
set @timer1,1800000;
set @moneyr1,5000;
set @timer2,3600000;
set @moneyr2,12500;
set @timer3,5400000;
set @moneyr3,20000;
set @timer4,1000;
set @moneyr4,500;
set @needlv,0;
if(@money_up == 1 || @money_up ==2 || @money_up ==3 || @money_up ==4) goto L_Suanqian;
if(baselevel < @needlv) goto L_notlevel;
if(zeny>1000000000) goto L_Fullmoney;
set @pass,rand(1241,9976);
mes "[掛錢服務員]";
mes "如果你需要掛錢服務的話請按下繼續之後選擇你要的檔次。";
next;
menu "掛錢",-,"結束對話",L_Quit;
mes "[掛錢服務員]";
mes "要開始掛錢的話";
mes "請正確輸入驗証碼^FF0000"[email=+@pass+]+@pass+"^000000[/email]";
next;
input @temp;
if (@temp != @pass) goto L_ERR;
menu "中止掛錢服務",L_EXIT,
"一檔 --> "[email=+@moneyr1]+@moneyr1[/email]+" Zeny",L_Money_1,
"二檔 --> "[email=+@moneyr2]+@moneyr2[/email]+" Zeny",L_Money_2,
"三檔 --> "[email=+@moneyr3]+@moneyr3[/email]+" Zeny",L_Money_3,
"四檔 --> "[email=+@moneyr4]+@moneyr4[/email]+" Zeny",L_Money_4,
"結算金額[領錢]",L_Suanqian,
"結束對話",L_Quit;
L_Money_1:
set @money_up,1;
mes "[掛錢服務員]";
mes "進入一檔 --> "[email=+@moneyr1]+@moneyr1[/email]+" Zeny式掛錢";
mes "點擊關閉開始掛錢,要保持掛錢服務請勿離開首都以及進入房間,終止自動掛錢請再來一次。";
close2;
addtimer @timer1,"Money_UP";
end;
L_Money_2:
set @money_up,2;
mes "[掛錢服務員]";
mes "進入二檔 --> "[email=+@moneyr2]+@moneyr2[/email]+" Zeny式掛錢";
mes "點擊關閉開始掛錢,要保持掛錢服務請勿離開首都以及進入房間,終止自動掛錢請再來一次。 ";
close2;
addtimer @timer2,"Money_UP";
end;
L_Money_3:
set @money_up,3;
mes "[掛錢服務員]";
mes "進入三檔 --> "[email=+@moneyr3]+@moneyr3[/email]+" Zeny式掛錢";
mes "點擊關閉開始掛錢,要保持掛錢服務請勿離開首都以及進入房間,終止自動掛錢請再來一次。";
close2;
addtimer @timer3,"Money_UP";
end;
L_Money_4:
set @money_up,4;
mes "[掛錢服務員]";
mes "進入累積式掛錢 --> 124Zeny/1Min";
mes "點擊關閉開始掛錢,要保持掛錢服務請勿離開首都以及進入房間,終止自動掛錢請再來一次。";
close2;
addtimer @timer4,"Money_UP";
end;
L_Suanqian:
if (@money_up == 1) goto S_Money_1;
if (@money_up == 2) goto S_Money_2;
if (@money_up == 3) goto S_Money_3;
if (@money_up == 4) goto S_Money_4;
mes "[掛錢服務員]";
mes "你目前沒有進行掛錢服務。";
mes "不能進行結算。";
close;
S_Money_1:
mes "[掛錢服務員]";
mes "目前你累積的金額為[^0000FF"[email=+@temp_money1+]+@temp_money1+"^000000]Zeny[/email]";
mes "是否要馬上進行結算呢?";
next;
menu "結算",-,"不結算",L_Quit;
set @money_up,0;
deltimer "Money_UP";
set zeny,zeny+@temp_money1;
set @temp_money1,0;
set @temp_min1,0;
mes "[掛錢服務員]";
mes "結算完畢,請點清點一下數額是否正確。";
close;
S_Money_2:
mes "[掛錢服務員]";
mes "目前你累積的金額為[^0000FF"[email=+@temp_money2+]+@temp_money2+"^000000]Zeny[/email]";
mes "是否要馬上進行結算呢?";
next;
menu "結算",-,"不結算",L_Quit;
set @money_up,0;
deltimer "Money_UP";
set zeny,zeny+@temp_money2;
set @temp_money2,0;
set @temp_min2,0;
mes "[掛錢服務員]";
mes "結算完畢,請點清點一下數額是否正確。";
close;
S_Money_3:
mes "[掛錢服務員]";
mes "目前你累積的金額為[^0000FF"[email=+@temp_money3+]+@temp_money3+"^000000]Zeny[/email]";
mes "是否要馬上進行結算呢?";
next;
menu "結算",-,"不結算",L_Quit;
set @money_up,0;
deltimer "Money_UP";
set zeny,zeny+@temp_money3;
set @temp_money3,0;
set @temp_min3,0;
mes "[掛錢服務員]";
mes "結算完畢,請點清點一下數額是否正確。";
close;
S_Money_4:
mes "[掛錢服務員]";
mes "目前你累積的金額為[^0000FF"[email=+@temp_money4+]+@temp_money4+"^000000]Zeny[/email]";
mes "是否要馬上進行結算呢?";
next;
menu "結算",-,"不結算",L_Quit;
set @money_up,0;
deltimer "Money_UP";
set zeny,zeny+@temp_money4;
set @temp_money4,0;
set @temp_min4,0;
mes "[掛錢服務員]";
mes "結算完畢,請點清點一下數額是否正確。";
close;
L_EXIT:
set @money_up,0;
deltimer "Money_UP";
mes "[掛錢服務員]";
mes "哎..這年頭怎麼越來越多傻子呢。";
mes "有錢也不賺...";
close;
L_ERR:
mes "[掛錢服務員]";
mes "驗証碼不正確,不能給你掛錢服務。";
close;
L_Fullmoney:
mes "[掛錢服務員]";
mes "你的錢已經滿了..不能進行掛錢服務。";
close;
L_notlevel:
mes "[掛錢服務員]";
mes "基本等級要達到[^0000FF"[email=+@needlv+]+@needlv+"^000000[/email]]級才能享受掛錢服務。";
close;
L_Quit:
close;
}
prontera.gat,0,0,0 script Money_UP -1,{
deltimer "Money_UP";
if (@money_up == 1) goto L_Money_1;
if (@money_up == 2) goto L_Money_2;
if (@money_up == 3) goto L_Money_3;
if (@money_up == 4) goto L_Money_4;
end;
L_Money_1:
if(zeny>=100000000) end;
set @temp_min1,@temp_min1+1;
set @temp_money1,@temp_min1 * @moneyr1;
addtimer @timer1,"Money_UP";
end;
L_Money_2:
if(zeny>=100000000) end;
set @temp_min2,@temp_min2+1;
set @temp_money2,@temp_min2 * @moneyr2;
addtimer @timer2,"Money_UP";
end;
L_Money_3:
if(zeny>=100000000) end;
set @temp_min3,@temp_min3+1;
set @temp_money3,@temp_min3 * @moneyr3;
addtimer @timer3,"Money_UP";
end;
L_Money_4:
if(zeny>=100000000) end;
set @temp_min4,@temp_min4+1;
set @temp_money4,@temp_min4 * @moneyr4;
addtimer @timer4,"Money_UP";
end;
} |
|