Guest User

Untitled

a guest
Jan 22nd, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.10 KB | None | 0 0
  1. // Item Type change to 11
  2. // ex. 7037,Trade_Coupon,Coupon,11,100,,10,,,,,,,,,,,,,{ callfunc "RefineTicket"; },{},{}
  3.  
  4. function script RefineTicket {
  5. //--- Mode Bitmasks ----
  6. // 1 - Top Headgear
  7. // 2 - Armor
  8. // 4 - Left Hand
  9. // 8 - Right Hand
  10. // 16 - Garment
  11. // 32 - Shoes
  12. // 64 - Left Accessory
  13. // 128 - Right Accessory
  14. // 256 - Middle Headgear
  15. // 512 - Lower Headgear
  16. set .Mode,959; // Add in the Bitmasks Value if you want to enable it.
  17. set .EquipCheck,0; // Check Equip is enabled for Refine.
  18. set .RefineMode,1; // 0 - +1 per Refine 1 - Max Refine
  19. set .MaxRefine,10; // Max Refine of an Equipments.
  20. set .TicketID,20003; // ItemID for the Ticket.
  21.  
  22. set .@a,select( ( .Mode & 1 && getequipisequiped(1) )?"^0000FF"+getequipname(1)+"^000000":"",
  23. ( .Mode & 2 && getequipisequiped(2) )?"^0000FF"+getequipname(2)+"^000000":"",
  24. ( .Mode & 4 && getequipisequiped(3) )?"^0000FF"+getequipname(3)+"^000000":"",
  25. ( .Mode & 8 && getequipisequiped(4) )?"^0000FF"+getequipname(4)+"^000000":"",
  26. ( .Mode & 16 && getequipisequiped(5) )?"^0000FF"+getequipname(5)+"^000000":"",
  27. ( .Mode & 32 && getequipisequiped(6) )?"^0000FF"+getequipname(6)+"^000000":"",
  28. ( .Mode & 64 && getequipisequiped(7) )?"^0000FF"+getequipname(7)+"^000000":"",
  29. ( .Mode & 128 && getequipisequiped(8) )?"^0000FF"+getequipname(8)+"^000000":"",
  30. ( .Mode & 256 && getequipisequiped(9) )?"^0000FF"+getequipname(9)+"^000000":"",
  31. ( .Mode & 512 && getequipisequiped(10) )?"^0000FF"+getequipname(10)+"^000000":"");
  32.  
  33. if ( getequiprefinerycnt(1) >= .MaxRefine ){
  34. mes "I cant refine this items. Because it is ^FF0000Un-Refineable^000000 already due to Max Refine is Reached..";
  35. close;
  36. }
  37. if ( .EquipCheck == 1 && getequipisenableref( .@a ) == 0 ){
  38. mes "I cant refine this items. Because it is ^FF0000Un-Refineable^000000.";
  39. close;
  40. }
  41. if( .RefineMode ){
  42. while( getequiprefinerycnt( .@a ) < .MaxRefine )
  43. successrefitem ( .@a );
  44. }else{
  45. successrefitem ( .@a );
  46. }
  47. delitem .TicketID,1;
  48. mes "You have gained : ^FF0000+"+getequiprefinerycnt( .@a )+" ^0000FF"+getequipname(.@a)+"^000000";
  49. close;
  50. }
Add Comment
Please, Sign In to add comment