UID221603
帖子
精華
主題
積分650
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2009-12-16
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 郁悶 2010-10-13 10:53 AM |
---|
簽到天數: 13 天 連續簽到: 0 天 [LV.3]偶爾看看II
|
已下是我找到的腳本,我想改成10000ZENY 可兌換一個677 ,可是我改了set @t,100000000; 為10000時。發現輸入1000無法獲得671,但是錢已經扣除了,請高人幫我解決下。謝謝了,其實順序就是10000換1個677然後 1000可換一個671 然後一直除10下來。
- - script GMBankMain -1,{
- OnInit:
- setarray $@Coin[0],677,671,675,673;
- end;
- }
- function script GM_change {
- set @t,100000000;
- set @money,0;
- set @j,0;
- set @k,10;
- switch(getarg(0)){
- //自动
- case 0:
- switch(getarg(1)){
- //Zeny-->货币
- case 1:
- mes "请输入金额";
- input @money;
- if(@money<=100||@money>Zeny){
- mes "金额输入错误或者金额不足";
- close;
- }
- set Zeny,Zeny-@money;
- set @cost,@money/10000*$interest;
- set @money,@money-@cost;
- for(set @i,0;@i<7;set @i,@i+1){
- set @j,(@money-@money%@t)/@t;
- if((Weight+getiteminfo($@Coin[@i],6)*@j)<MaxWeight&&@money>=(@j*@t)){
- set @money,@money-@j*@t;
- getitem $@Coin[@i],@j;
- }
- else if((Weight+getiteminfo($@Coin[@i],6)*@j)>MaxWeight&&@money>=(@j*@t)){
- mes "目前只能兑换这些了~";
- mes "剩下的您背不动~";
- mes "清一清再来吧~";
- set Zeny,Zeny+@money;
- close;
- }
- set @t,@t/10;
- }
- break;
- //货币-->Zeny
- case 2:
- for(set @i,0;@i<7;set @i,@i+1){
- set @j,countitem($@Coin[@i]);
- //V3.3改
- if(@j>pow(10,(@i+1))){
- set @j,pow(10,(@i+1));
- mes "自动调整可兑换 "+getitemname($@Coin[@i])+" 最大为 "+@j+" 个";
- }
- if(@j!=0){
- set @money,@t*@j;
- if((Zeny+@money)>1000000000){
- mes "您身上已经无法背这么多金钱";
- mes "请存款后再来!";
- close;
- }
- delitem $@Coin[@i],@j;
- set @cost,(@money/10000)*$interest;
- set @tcost,@tcost+@cost;
- set @money,@money-@cost;
- set Zeny,Zeny+@money;
- next;
- }
- set @t,@t/10;
- }
- }
- mes "自动兑换完毕!";
- break;
複製代碼 |
評分
-
查看全部評分
|