每日頭飾腳本

pnc63085

不知道腳本哪裡寫錯導致運行錯誤
很久以前寫的 拿來用已經忘了

1. brasilis,230,324,4        script        每日頭飾        857,{
   
2.         function        turn;
   
3.         function        showerror;
   
4.         function        checkrand;
   
5. function        turn        {
   
6.         if(getarg(0)==1||getarg(0)==3||getarg(0)==5||getarg(0)==7||getarg(0)==8||getarg(0)==10||getarg(0)==12) return 31;
   
7.         else if(getarg(0)==2) return 28;
   
8.         else return 30;
   
9. }
   
10. function        showerror        {
    
11.         dispbottom ""+getarg(0);
    
12.         close;
    
13. }
    
14. function        checkrand        {
    
15. for(set .@i,1;.@i<getarg(2)+1;set .@i,.@i+1){
    
16. if(getarg(0)==getd(getarg(1)+"["+.@i+"]")) return 1;
    
17. }return 0;
    
18. }
    
19. for(set .@i,1;.@i<6;set .@i,.@i+1)       
    
20.         mes "頭飾所需材料 : "+getitemname($td[.@i]) +" "+$tdneedn[.@i]+" 個";
    
21. mes "Exchange?";
    
22. set .@select,prompt("Exchange","cancel");
    
23.         if(.@select==255 || .@select==2) close;
    
24.         for(set .@i,1;.@i<6;set .@i,.@i+1){
    
25.         if(countitem($td[.@i])<$tdneedn[.@i]||zeny<$payzeny) {
    
26.         mes "材料或金額不足";close;
    
27.         }
    
28. }
    
29. for(set .@i,1;.@i<6;set .@i,.@i+1)
    
30.         delitem $td[.@i],$tdneedn[.@i];
    
31. getitem $ar[$isrand?rand(1,getarraysize($ar)-1):((gettime(5)- (gettime(3)>=6?0:1)  )<1? turn( gettime(6)==1?12:gettime(6)-1 ) : (gettime(5)-(gettime(3)>=6?0:1) ))],1;
    
32. set Zeny,Zeny-$payzeny;
    
33. mes "兌換成功";
    
34. close;
    
35. OnClock0600:
    
36. deletearray $td[1],128;
    
37. deletearray $tdneedn[1],128;
    
38. for(set .@o,1;.@o<6;set .@o,.@o+1){
    
39. for(;;){
    
40. set .@ra,rand(1,getarraysize($exchange)-1);
    
41. if(!checkrand($exchange[.@ra],"$td",5) && getitemname($exchange[.@ra])!="null")break;
    
42. }
    
43. setarray $td[.@o],$exchange[.@ra];
    
44. setarray $tdneedn[.@o],rand(10,100);//隨機數量
    
45. announce "每日頭飾所需材料 : "+getitemname($td[.@o]) +" "+$tdneedn[.@o]+" 個",0;
    
46. }
    
47. end;
    
48. OnWhisperGlobal:
    
49. if(getgmlevel() < 98) end;
    
50. setarray .@word$[1],"欲修改頭飾編號","欲修改材料編號","欲修改頭飾","欲修改材料";
    
51. for(set .@i,1;.@i<(set(.@a,getarraysize($ar))>set(.@b,getarraysize($exchange))?.@a:.@b);set .@i,.@i+1){
    
52.         mes .@i+" 日頭飾為 : "+getitemname($ar[.@i]);
    
53.         announce .@i+" 號材料為 : "+getitemname($exchange[.@i]),bc_self;
    
54.         }
    
55. next;
    
56.         set .@select,prompt("更改頭飾","更改材料","刷新材料");
    
57.         if(.@select==255) end;
    
58.         if(.@select==3) { close2; callsub OnClock0700; }
    
59.         mes .@word$[.@select];
    
60.         input .@q;
    
61.         if(.@q>getarraysize(.@select==1?$ar:$exchange)-1||.@q<1) showerror("Wrong number!");
    
62.         mes .@word$[.@select+2];
    
63.         input .@qq;
    
64.         if(getitemname(.@qq)=="null") showerror("Not item variable!");
    
65.         setd "$"+(.@select==1?"ar":"exchange")+"["+.@q+"]",.@qq;
    
66.         mes "更改為 : "+getitemname(getd("$"+(.@select==1?"ar":"exchange")+"["+.@q+"]"));
    
67.         close;
    
68. end;
    
69. OnInit:
    
70. set $isrand,0;//是否獲得隨機頭飾
    
71. if($ar[1]) end;
    
72. setarray $ar[1],2251,2252,2253,2254,2255,2256,2257,2258,2259,2260,2261,2262,2263,2264,2265,2266,2267,2268,2269,2270,2271,2272,2273,2274,2275,2276,2277,2278,2279,2280,2281;//頭飾
    
73. setarray $exchange[1],501,502,503,504,505,506,507,508,509,510,511,512,513,514,515,516,517,518,519,520,521,522,523,524,525,526,527,528,529,530,531;//材料
    
74. set $payzeny,100000;//製作金額
    
75. end;
    
76. }

复制代码

pnc63085

一個腦殘 以解決 解決方法:OnClock 時間一致