直接安定精練腳本

luy_0127

1. //裝備選單
   
2. if (getequipisequiped(1) == 0) set .@eq1$,"頭-[無法裝置]"; else set .@eq1$,getequipname(1);
   
3. if (getequipisequiped(2) == 0) set .@eq2$,"全身-[無法裝置]"; else set .@eq2$,getequipname(2);
   
4. if (getequipisequiped(3) == 0) set .@eq3$,"左手-[無法裝置]"; else set .@eq3$,getequipname(3);
   
5. if (getequipisequiped(4) == 0) set .@eq4$,"右手-[無法裝置]"; else set .@eq4$,getequipname(4);
   
6. if (getequipisequiped(5) == 0) set .@eq5$,"外袍-[無法裝置]"; else set .@eq5$,getequipname(5);
   
7. if (getequipisequiped(6) == 0) set .@eq6$,"鞋子-[無法裝置]"; else set .@eq6$,getequipname(6);
   
8. if (getequipisequiped(7) == 0) set .@eq7$,"裝飾品1-[無法裝置]"; else set .@eq7$,getequipname(7);
   
9. if (getequipisequiped(8) == 0) set .@eq8$,"裝飾品2-[無法裝置]"; else set .@eq8$,getequipname(8);
   
10. if (getequipisequiped(9) == 0) set .@eq9$,"頭2-[無法裝置]"; else set .@eq9$,getequipname(9);
    
11. if (getequipisequiped(10) == 0) set .@eq10$,"頭3-[無法裝置]"; else set .@eq10$,getequipname(10);
    
12. set .@part,select(.@eq1$,.@eq2$,.@eq3$,.@eq4$,.@eq5$,.@eq6$,.@eq7$,.@eq8$,.@eq9$,.@eq10$);
    
13. //裝備位置的設定
    
14. if (getequipisequiped(.@part)) goto L_START_1;
    
15.   goto L_CLOSE_1;
    
16. //檢查是否可精鍊
    
17. L_START_1:
    
18. if (getequipisenableref(.@part)) goto L_START_2;
    
19.   goto L_CLOSE_2;
    
20. //檢查是否已達安定值
    
21. L_START_2:
    
22. //查找並設定武器等級變數
    
23. switch(getequipweaponlv(.@part)) {
    
24.   case 0: set .@lvall,4; set .@item,985; set .@zeny,2000; break;
    
25.   case 1: set .@lvall,7; set .@item,1010;set .@zeny,50;  break;
    
26.   case 2: set .@lvall,6; set .@item,1011;set .@zeny,200;  break;
    
27.   case 3: set .@lvall,5; set .@item,984; set .@zeny,5000; break;
    
28.   case 4: set .@lvall,4; set .@item,984; set .@zeny,20000; break;
    
29. }
    
30. if (getequiprefinerycnt(.@part) < (.@lvall)) goto L_REFINE_1;
    
31. if (getequiprefinerycnt(.@part) == (.@lvall)) goto L_CLOSE_3;
    
32. if (getequiprefinerycnt(.@part) > (.@lvall)) goto L_CLOSE_4;
    
33. //精鍊開始1
    
34. L_REFINE_1:
    
35. //設置武器精鍊次數
    
36. set .@times,.@lvall-getequiprefinerycnt(.@part);
    
37. if (countitem(.@item) < (.@times)) goto L_CLOSE_5;
    
38. if (Zeny<((.@times)*(.@ZENY))) goto L_CLOSE_6;
    
39. set zeny,zeny-((.@times)*(.@zeny));
    
40. delitem .@item,(.@times);
    
41. refitem .@part,(.@lvall);
    
42. 
    

複製代碼

--------------

請問各位大大

直接衝安定值NPC這樣有寫錯嗎 ?

NPC有出來可是不能對話 .


--------

這樣子嗎

-樂-

腳 本 貼 出 請 用 [code]

sinya

貼 map server的 錯訊息

sinya

沒refitem 這個指令..

試試把

1. 
   
2. refitem .@part,(.@lvall);
   

複製代碼

改成

1. 
   
2. for ( set @i,1; @i <=.@times ; set @i,@i+1 )
   
3. {
   
4. Successrefitem .@part;
   
5. }
   

複製代碼

luy_0127

謝謝你

終於可以使用了.