UID28146
帖子
精華
主題
積分4417
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限20
註冊時間2007-10-22
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 慵懶 2010-12-18 03:31 PM |
---|
簽到天數: 26 天 連續簽到: 0 天 [LV.4]偶爾看看III
|
本帖最後由 ﹡《拾肆》‵條 於 2010-11-17 03:28 PM 編輯
設定一個腳本
轉生隨機發東西
物品按下去都正常
可是就是都不會發東西
是哪邊出錯誤嗎
下面是我的腳本
- //----- 獎勵金額最少能夠取得多少 (預設 100萬 Zeny)
- set $@ModFReZeny,5000000;
- //----- 獎勵金額最多能夠取得多少 (預設 500萬 Zeny)
- set $@ModFReZenyMax,10000000;
- //----- 獎勵金額最少能夠取得多少 (預設 1 點)
- set $@ModFReCash,100;
- //----- 獎勵商城點數最多能夠取得多少 (預設 10 點)
- set $@ModFReCashMax,200;
- //----- 獎勵獎品能夠取得的物品
- setarray $@ModFReItem[0],0,603,604,607,616,617,644;
- //----- 獎勵獎品能夠取得的數量
- setarray $@ModFReItemMax[0],0,10,10,10,10,10,10;
- //----- 獎勵獎品的總數量 (預設 6個) -----
- //----- Ps:請對應 獎勵獎品能夠取得的物品 的總數 -1 -----
- set $@ModFReItemNumber,10; }
- //
複製代碼
- function script ReMoveCarb {
- L1:
- if (BaseLevel < 99) goto NotYet5; //未達到99等
- if ((class == 4046) || (class == 4047) || (class == 4049)) goto Over1;
- if(BaseJob==Job_Knight) set ReBirth,7;
- if(BaseJob==Job_Priest) set ReBirth,8;
- if(BaseJob==Job_Wizard) set ReBirth,9;
- if(BaseJob==Job_Blacksmith) set ReBirth,10;
- if(BaseJob==Job_Hunter) set ReBirth,11;
- if(BaseJob==Job_Assassin) set ReBirth,12;
- if(BaseJob==Job_Knight2) set ReBirth,7;
- if(BaseJob==Job_Crusader) set ReBirth,14;
- if(BaseJob==Job_Monk) set ReBirth,15;
- if(BaseJob==Job_Sage) set ReBirth,16;
- if(BaseJob==Job_Rogue) set ReBirth,17;
- if(BaseJob==Job_Alchem) set ReBirth,18;
- if(BaseJob==Job_Bard) set ReBirth,19;
- if(BaseJob==Job_Dancer) set ReBirth,20;
- if(BaseJob==Job_Crusader2) set ReBirth,14;
- if(Llv==2) goto L2;
- if(Llv==3) goto L3;
- if(Llv==4) goto L4;
- if(Llv==5) goto L5;
- if(Llv==6) goto L6;
- if(Llv==7) goto L7;
- if(Llv==8) goto L8;
- if(Llv==9) goto L9;
- if(Llv==10) goto Le;
- mes "[轉生]";
- mes "恭喜你轉生成功";
- set @GetItem,rand(1,$@ModFReItemNumber);
- getitem $@ModFReItem[@GetItem],$@ModFReItemMax[@GetItem];
- announce "轉生獎勵 : 恭喜玩家 ["+strcharinfo(0)+"] 獲得獎勵獎品 ["+getitemname($@ModFReItem[@GetItem])+"] 數量 ["+$@ModFReItemMax[@GetItem]+"] 個。",15;
- resetskill;
- set SkillPoint,0;
- resetstatus;
- set StatusPoint,0;
- set BaseLevel,1;
- set JobLevel,1;
- set StatusPoint,100;
- jobchange 0,1;
- set Llv,2;
- announce "公告:恭喜 "+strcharinfo(0)+" 成為轉生的玩家!",15;
- close;
複製代碼 |
|