API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 15th, 2021
83
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 51.16 KB | None | 0 0
raw download clone embed print report
  1. //============================================================
  2. //= super_enchant 0.1 ver. ===================================
  3. //============================================================
  4. //= Unofficial Release by ====================================
  5. //= Dimas_Shotta93 ===========================================
  6. //============================================================
  7. //= selectable slot for enchant costume. =====================
  8. //= 1st slot ( class stone lv1) ==============================
  9. //= 2nd slot ( class stone lv2) ==============================
  10. //= 3rd slot ( cpstuem stone ) ===============================
  11. //= 4th slot ( effect stone ) ================================
  12. //= Feel free to change the or costumize it ==================
  13. //============================================================
  14. prt_in,36,95,2 script Enchant Master 810,{
  15. mes "[Enchant Master]";
  16. mes "Hi!!";
  17. mes "I can enchant every costume that you wear,";
  18. mes "i just need ^FF000010 silvervine fruit^000000 to do it.";
  19. next;
  20. mes "[Enchant Master]";
  21. mes "i also can reset your enchatment.";
  22. mes "because i am so generous, i dont charge anything to reset the enchantment.";
  23. mes "what do you wanna do?";
  24. next;
  25. switch(select("Modify Costume.","Reset Costume.")){
  26. next;
  27. case 1:
  28. mes "[Enchant Master]";
  29. mes "please select the costume!";
  30. switch(select("Costume Upper.","Costume Middle.","Costume Lower.","Costume Garment.")){
  31. next;
  32. case 1:
  33. .@hg = getequipid(EQI_COSTUME_HEAD_TOP); // Saving Item ID
  34. .@ref = getequiprefinerycnt(EQI_COSTUME_HEAD_TOP); // Saving Refine Level, if there is one
  35. .@card[0] = getequipcardid(EQI_COSTUME_HEAD_TOP,0); // Save Item ID of Card Slot 1
  36. .@card[1] = getequipcardid(EQI_COSTUME_HEAD_TOP,1); // Save Item ID of Card Slot 1
  37. .@card[2] = getequipcardid(EQI_COSTUME_HEAD_TOP,2); // Save Item ID of Card Slot 1
  38. .@card[3] = getequipcardid(EQI_COSTUME_HEAD_TOP,3); // Save Item ID of Card Slot 1
  39. if(getequipid(EQI_COSTUME_HEAD_TOP) == -1) {
  40. mes "[Enchant Master]";
  41. mes "It looks like you don't have any costume equipped on there.";
  42. close;
  43. }
  44. if(getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_ID) != 0) {
  45. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,1,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,2,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,3,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,4,ROA_ID);
  46. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,4,ROA_VALUE);
  47. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,4,ROA_PARAM);
  48. }
  49. mes "[Enchant Master]";
  50. mes "Your upper costume is "+getitemname(getequipid(EQI_COSTUME_HEAD_TOP))+"!";
  51. next;
  52. mes "[Enchant Master]";
  53. mes "Now select the slot!";
  54. mes "1st slot is for ^FF0000Job Stone LV1.^000000";
  55. mes "2nd slot is for ^FF0000Job Stone LV2.^000000";
  56. mes "3rd slot is for ^FF0000Special Abilities.^000000";
  57. mes "4th slot is for ^FF0000Effect Stone.^000000";
  58. next;
  59. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.")){
  60. case 1:
  61. setArray .enchant_id1[0],29423,29428,29432,29460,29464,29468,29477,29481,29485,29513,29517,29521,29651,29655,29659,29664,29668;
  62. if(.@card[0]) {
  63. mes "[Enchant Master]";
  64. mes "you have to reset the first slot to continue!";
  65. close;
  66. }
  67. mes "Now please select the Enchantment:";
  68. next;
  69. for ( set .@e,0; .@e < getarraysize(.enchant_id1); set .@e,.@e + 1)
  70. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id1[.@e])+ ( (.enchant_id1[.@e+1] != 0)?":":"");
  71. set .@rune,select(.@e_m$) - 1;
  72. mes "[Enchant Master]";
  73. mes "Selected Enchantment: "+getitemname(.enchant_id1[.@rune]);
  74. if(countitem(6417) < 10) {
  75. mes "[Enchant Master]";
  76. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  77. close;
  78. }
  79. mes "Proceed?";
  80. if(select("- Yes:- No") - 1) close;
  81. next;
  82. if(countitem(6417) >= 10)
  83. delitem 6417,10;
  84. delequip EQI_COSTUME_HEAD_TOP;
  85. .@card[0] = .enchant_id[.@rune];
  86. if(getarraysize(.@OptID) > 0)
  87. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  88. else
  89. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  90. mes "[Enchant Master]";
  91. mes "The enchantment was a success.";
  92. mes "See ya next time.";
  93. close;
  94. case 2:
  95. setArray .enchant_id2[0],29613,29617,29621,310000,310004,310008,310181,310187,310191,310258,310262,310266;
  96. if(.@card[1]) {
  97. mes "[Enchant Master]";
  98. mes "you have to reset the second slot to continue!";
  99. close;
  100. }
  101. mes "Now please select the Enchantment:";
  102. next;
  103. for ( set .@e,0; .@e < getarraysize(.enchant_id2); set .@e,.@e + 1)
  104. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id2[.@e])+ ( (.enchant_id2[.@e+1] != 0)?":":"");
  105. set .@rune,select(.@e_m$) - 1;
  106. mes "[Enchant Master]";
  107. mes "Selected Enchantment: "+getitemname(.enchant_id2[.@rune]);
  108. if(countitem(6417) < 10) {
  109. mes "[Enchant Master]";
  110. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  111. close;
  112. }
  113. mes "[Enchant Master]";
  114. mes "Proceed?";
  115. if(select("- Yes:- No") - 1) close;
  116. next;
  117. if(countitem(6417) >= 10)
  118. delitem 6417,10;
  119. delequip EQI_COSTUME_HEAD_TOP;
  120. .@card[1] = .enchant_id2[.@rune];
  121. if(getarraysize(.@OptID) > 0)
  122. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  123. else
  124. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  125. mes "[Enchant Master]";
  126. mes "The enchantment was a success.";
  127. mes "See ya next time.";
  128. close;
  129. case 3:
  130. setArray .enchant_id3[0],29156,29159,29359,29028,29030,29053,29121,29125;
  131. if(.@card[2]) {
  132. mes "[Enchant Master]";
  133. mes "you have to reset the third slot to continue!";
  134. close;
  135. }
  136. mes "Now please select the Enchantment:";
  137. next;
  138. for ( set .@e,0; .@e < getarraysize(.enchant_id3); set .@e,.@e + 1)
  139. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id3[.@e])+ ( (.enchant_id3[.@e+1] != 0)?":":"");
  140. set .@rune,select(.@e_m$) - 1;
  141. mes "[Enchant Master]";
  142. mes "Selected Enchantment: "+getitemname(.enchant_id3[.@rune]);
  143. if(countitem(6417) < 10) {
  144. mes "[Enchant Master]";
  145. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  146. close;
  147. }
  148. mes "[Enchant Master]";
  149. mes "Proceed?";
  150. if(select("- Yes:- No") - 1) close;
  151. next;
  152. if(countitem(6417) >= 10)
  153. delitem 6417,10;
  154. delequip EQI_COSTUME_HEAD_TOP;
  155. .@card[2] = .enchant_id3[.@rune];
  156. if(getarraysize(.@OptID) > 0)
  157. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  158. else
  159. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  160. mes "[Enchant Master]";
  161. mes "The enchantment was a success.";
  162. mes "See ya next time.";
  163. close;
  164. case 4:
  165. setArray .enchant_id4[0],29160,29161,29162,29224,29225,29041,29142,29143,29144,29226;
  166. if(.@card[3]) {
  167. mes "[Enchant Master]";
  168. mes "you have to reset the fourth slot to continue!";
  169. close;
  170. }
  171. mes "Now please select the Enchantment:";
  172. next;
  173. for ( set .@e,0; .@e < getarraysize(.enchant_id4); set .@e,.@e + 1)
  174. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id4[.@e])+ ( (.enchant_id4[.@e+1] != 0)?":":"");
  175. set .@rune,select(.@e_m$) - 1;
  176. mes "[Enchant Master]";
  177. mes "Selected Enchantment: "+getitemname(.enchant_id4[.@rune]);
  178. if(countitem(6417) < 10) {
  179. mes "[Enchant Master]";
  180. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  181. close;
  182. }
  183. mes "[Enchant Master]";
  184. mes "Proceed?";
  185. if(select("- Yes:- No") - 1) close;
  186. next;
  187. if(countitem(6417) >= 10)
  188. delitem 6417,10;
  189. delequip EQI_COSTUME_HEAD_TOP;
  190. .@card[3] = .enchant_id4[.@rune];
  191. if(getarraysize(.@OptID) > 0)
  192. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  193. else
  194. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  195. mes "[Enchant Master]";
  196. mes "The enchantment was a success.";
  197. mes "See ya next time.";
  198. close;
  199. }
  200. case 2:
  201. .@hg = getequipid(EQI_COSTUME_HEAD_MID); // Saving Item ID
  202. .@ref = getequiprefinerycnt(EQI_COSTUME_HEAD_MID); // Saving Refine Level, if there is one
  203. .@card[0] = getequipcardid(EQI_COSTUME_HEAD_MID,0); // Save Item ID of Card Slot 1
  204. .@card[1] = getequipcardid(EQI_COSTUME_HEAD_MID,1); // Save Item ID of Card Slot 1
  205. .@card[2] = getequipcardid(EQI_COSTUME_HEAD_MID,2); // Save Item ID of Card Slot 1
  206. .@card[3] = getequipcardid(EQI_COSTUME_HEAD_MID,3); // Save Item ID of Card Slot 1
  207. if(getequipid(EQI_COSTUME_HEAD_MID) == -1) {
  208. mes "[Enchant Master]";
  209. mes "It looks like you don't have any costume equipped on there.";
  210. close;
  211. }
  212. if(getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_ID) != 0) {
  213. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,1,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,2,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,3,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,4,ROA_ID);
  214. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,4,ROA_VALUE);
  215. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,4,ROA_PARAM);
  216. }
  217. mes "[Enchant Master]";
  218. mes "Your middle costume is "+getitemname(getequipid(EQI_COSTUME_HEAD_MID))+"!";
  219. next;
  220. mes "[Enchant Master]";
  221. mes "Now select the slot!";
  222. mes "1st slot is for ^FF0000Job Stone LV1.^000000";
  223. mes "2nd slot is for ^FF0000Job Stone LV2.^000000";
  224. mes "3rd slot is for ^FF0000Special Abilities.^000000";
  225. mes "4th slot is for ^FF0000Effect Stone.^000000";
  226. next;
  227. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.")){
  228. case 1:
  229. setArray .enchant_id1[0],29424,29429,29433,29461,29465,29469,29478,29482,29486,29514,29518,29522,29652,29656,29660,29663,29665,29669;
  230. if(.@card[0]) {
  231. mes "[Enchant Master]";
  232. mes "you have to reset the second slot to continue!";
  233. close;
  234. }
  235. mes "Now please select the Enchantment:";
  236. next;
  237. for ( set .@e,0; .@e < getarraysize(.enchant_id1); set .@e,.@e + 1)
  238. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id1[.@e])+ ( (.enchant_id1[.@e+1] != 0)?":":"");
  239. set .@rune,select(.@e_m$) - 1;
  240. mes "[Enchant Master]";
  241. mes "Selected Enchantment: "+getitemname(.enchant_id1[.@rune]);
  242. if(countitem(6417) < 10) {
  243. mes "[Enchant Master]";
  244. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  245. close;
  246. }
  247. mes "[Enchant Master]";
  248. mes "Proceed?";
  249. if(select("- Yes:- No") - 1) close;
  250. next;
  251. if(countitem(6417) >= 10)
  252. delitem 6417,10;
  253. delequip EQI_COSTUME_HEAD_MID;
  254. .@card[0] = .enchant_id1[.@rune];
  255. if(getarraysize(.@OptID) > 0)
  256. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  257. else
  258. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  259. mes "[Enchant Master]";
  260. mes "The enchantment was a success.";
  261. mes "See ya next time.";
  262. close;
  263. case 2:
  264. setArray .enchant_id2[0],29612,29616,29620,310001,310005,310009,310182,310186,310190,310259,310263,310267;
  265. if(.@card[1]) {
  266. mes "[Enchant Master]";
  267. mes "you have to reset the second slot to continue!";
  268. close;
  269. }
  270. mes "Now please select the Enchantment:";
  271. next;
  272. for ( set .@e,0; .@e < getarraysize(.enchant_id2); set .@e,.@e + 1)
  273. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id2[.@e])+ ( (.enchant_id2[.@e+1] != 0)?":":"");
  274. set .@rune,select(.@e_m$) - 1;
  275. mes "[Enchant Master]";
  276. mes "Selected Enchantment: "+getitemname(.enchant_id2[.@rune]);
  277. if(countitem(6417) < 10) {
  278. mes "[Enchant Master]";
  279. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  280. close;
  281. }
  282. mes "[Enchant Master]";
  283. mes "Proceed?";
  284. if(select("- Yes:- No") - 1) close;
  285. next;
  286. if(countitem(6417) >= 10)
  287. delitem 6417,10;
  288. delequip EQI_COSTUME_HEAD_MID;
  289. .@card[1] = .enchant_id2[.@rune];
  290. if(getarraysize(.@OptID) > 0)
  291. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  292. else
  293. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  294. mes "[Enchant Master]";
  295. mes "The enchantment was a success.";
  296. mes "See ya next time.";
  297. close;
  298. case 3:
  299. setArray .enchant_id3[0],29157,29047,29054,29122,29126,29145;
  300. if(.@card[2]) {
  301. mes "[Enchant Master]";
  302. mes "you have to reset the third slot to continue!";
  303. close;
  304. }
  305. mes "Now please select the Enchantment:";
  306. next;
  307. for ( set .@e,0; .@e < getarraysize(.enchant_id3); set .@e,.@e + 1)
  308. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id3[.@e])+ ( (.enchant_id3[.@e+1] != 0)?":":"");
  309. set .@rune,select(.@e_m$) - 1;
  310. mes "[Enchant Master]";
  311. mes "Selected Enchantment: "+getitemname(.enchant_id3[.@rune]);
  312. if(countitem(6417) < 10) {
  313. mes "[Enchant Master]";
  314. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  315. close;
  316. }
  317. mes "[Enchant Master]";
  318. mes "Proceed?";
  319. if(select("- Yes:- No") - 1) close;
  320. next;
  321. if(countitem(6417) >= 10)
  322. delitem 6417,10;
  323. delequip EQI_COSTUME_HEAD_MID;
  324. .@card[2] = .enchant_id3[.@rune];
  325. if(getarraysize(.@OptID) > 0)
  326. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  327. else
  328. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  329. mes "[Enchant Master]";
  330. mes "The enchantment was a success.";
  331. mes "See ya next time.";
  332. close;
  333. case 4:
  334. setArray .enchant_id4[0],29160,29161,29162,29224,29225,29041,29142,29143,29144,29226;
  335. if(.@card[3]) {
  336. mes "you have to reset the fourth slot to continue!";
  337. close;
  338. }
  339. mes "[Enchant Master]";
  340. mes "Now please select the Enchantment:";
  341. next;
  342. for ( set .@e,0; .@e < getarraysize(.enchant_id4); set .@e,.@e + 1)
  343. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id4[.@e])+ ( (.enchant_id4[.@e+1] != 0)?":":"");
  344. set .@rune,select(.@e_m$) - 1;
  345. mes "[Enchant Master]";
  346. mes "Selected Enchantment: "+getitemname(.enchant_id4[.@rune]);
  347. if(countitem(6417) < 10) {
  348. mes "[Enchant Master]";
  349. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  350. close;
  351. }
  352. mes "[Enchant Master]";
  353. mes "Proceed?";
  354. if(select("- Yes:- No") - 1) close;
  355. next;
  356. if(countitem(6417) >= 10)
  357. delitem 6417,10;
  358. delequip EQI_COSTUME_HEAD_MID;
  359. .@card[3] = .enchant_id4[.@rune];
  360. if(getarraysize(.@OptID) > 0)
  361. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  362. else
  363. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  364. mes "[Enchant Master]";
  365. mes "The enchantment was a success.";
  366. mes "See ya next time.";
  367. close;
  368. }
  369. case 3:
  370. .@hg = getequipid(EQI_COSTUME_HEAD_LOW); // Saving Item ID
  371. .@ref = getequiprefinerycnt(EQI_COSTUME_HEAD_LOW); // Saving Refine Level, if there is one
  372. .@card[0] = getequipcardid(EQI_COSTUME_HEAD_LOW,0); // Save Item ID of Card Slot 1
  373. .@card[1] = getequipcardid(EQI_COSTUME_HEAD_LOW,1); // Save Item ID of Card Slot 1
  374. .@card[2] = getequipcardid(EQI_COSTUME_HEAD_LOW,2); // Save Item ID of Card Slot 1
  375. .@card[3] = getequipcardid(EQI_COSTUME_HEAD_LOW,3); // Save Item ID of Card Slot 1
  376. if(getequipid(EQI_COSTUME_HEAD_LOW) == -1) {
  377. mes "[Enchant Master]";
  378. mes "It looks like you don't have any costume equipped on there.";
  379. close;
  380. }
  381. if(getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_ID) != 0) {
  382. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,1,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,2,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,3,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,4,ROA_ID);
  383. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,4,ROA_VALUE);
  384. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,4,ROA_PARAM);
  385. }
  386. mes "[Enchant Master]";
  387. mes "Your lower costume is "+getitemname(getequipid(EQI_COSTUME_HEAD_LOW))+"!";
  388. next;
  389. mes "[Enchant Master]";
  390. mes "Now select the slot!";
  391. mes "1st slot is for ^FF0000Job Stone LV1.^000000";
  392. mes "2nd slot is for ^FF0000Job Stone LV2.^000000";
  393. mes "3rd slot is for ^FF0000Special Abilities.^000000";
  394. mes "4th slot is for ^FF0000Effect Stone.^000000";
  395. next;
  396. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.")){
  397. case 1:
  398. setArray .enchant_id1[0],29425,29430,29434,29462,29466,29470,29479,29483,29487,29515,29519,29523,29653,29657,29661,29666,29670;
  399. if(.@card[0]) {
  400. mes "[Enchant Master]";
  401. mes "you have to reset the first slot to continue!";
  402. close;
  403. }
  404. mes "Now please select the Enchantment:";
  405. next;
  406. for ( set .@e,0; .@e < getarraysize(.enchant_id1); set .@e,.@e + 1)
  407. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id1[.@e])+ ( (.enchant_id1[.@e+1] != 0)?":":"");
  408. set .@rune,select(.@e_m$) - 1;
  409. mes "[Enchant Master]";
  410. mes "Selected Enchantment: "+getitemname(.enchant_id1[.@rune]);
  411. if(countitem(6417) < 10) {
  412. mes "[Enchant Master]";
  413. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  414. close;
  415. }
  416. mes "[Enchant Master]";
  417. mes "Proceed?";
  418. if(select("- Yes:- No") - 1) close;
  419. next;
  420. if(countitem(6417) >= 10)
  421. delitem 6417,10;
  422. delequip EQI_COSTUME_HEAD_LOW;
  423. .@card[0] = .enchant_id1[.@rune];
  424. if(getarraysize(.@OptID) > 0)
  425. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  426. else
  427. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  428. mes "[Enchant Master]";
  429. mes "The enchantment was a success.";
  430. mes "See ya next time.";
  431. close;
  432. case 2:
  433. setArray .enchant_id2[0],29611,29615,29619,310002,310006,310010,310183,310185,310189,310260,310264,310268;
  434. if(.@card[1]) {
  435. mes "[Enchant Master]";
  436. mes "you have to reset the second slot to continue!";
  437. close;
  438. }
  439. mes "Now please select the Enchantment:";
  440. next;
  441. for ( set .@e,0; .@e < getarraysize(.enchant_id2); set .@e,.@e + 1)
  442. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id2[.@e])+ ( (.enchant_id2[.@e+1] != 0)?":":"");
  443. set .@rune,select(.@e_m$) - 1;
  444. mes "[Enchant Master]";
  445. mes "Selected Enchantment: "+getitemname(.enchant_id2[.@rune]);
  446. if(countitem(6417) < 10) {
  447. mes "[Enchant Master]";
  448. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  449. close;
  450. }
  451. mes "[Enchant Master]";
  452. mes "Proceed?";
  453. if(select("- Yes:- No") - 1) close;
  454. next;
  455. if(countitem(6417) >= 10)
  456. delitem 6417,10;
  457. delequip EQI_COSTUME_HEAD_LOW;
  458. .@card[1] = .enchant_id2[.@rune];
  459. if(getarraysize(.@OptID) > 0)
  460. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  461. else
  462. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  463. mes "[Enchant Master]";
  464. mes "The enchantment was a success.";
  465. mes "See ya next time.";
  466. close;
  467. case 3:
  468. setArray .enchant_id3[0],29158,29154,29360,29029,29031,29055,29123;
  469. if(.@card[2]) {
  470. mes "[Enchant Master]";
  471. mes "you have to reset the third slot to continue!";
  472. close;
  473. }
  474. mes "Now please select the Enchantment:";
  475. next;
  476. for ( set .@e,0; .@e < getarraysize(.enchant_id3); set .@e,.@e + 1)
  477. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id3[.@e])+ ( (.enchant_id3[.@e+1] != 0)?":":"");
  478. set .@rune,select(.@e_m$) - 1;
  479. mes "[Enchant Master]";
  480. mes "Selected Enchantment: "+getitemname(.enchant_id3[.@rune]);
  481. if(countitem(6417) < 10) {
  482. mes "[Enchant Master]";
  483. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  484. close;
  485. }
  486. mes "[Enchant Master]";
  487. mes "Proceed?";
  488. if(select("- Yes:- No") - 1) close;
  489. next;
  490. if(countitem(6417) >= 10)
  491. delitem 6417,10;
  492. delequip EQI_COSTUME_HEAD_LOW;
  493. .@card[2] = .enchant_id3[.@rune];
  494. if(getarraysize(.@OptID) > 0)
  495. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  496. else
  497. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  498. mes "[Enchant Master]";
  499. mes "The enchantment was a success.";
  500. mes "See ya next time.";
  501. close;
  502. case 4:
  503. setArray .enchant_id4[0],29160,29161,29162,29224,29225,29041,29142,29143,29144,29226;
  504. if(.@card[3]) {
  505. mes "[Enchant Master]";
  506. mes "you have to reset the fourth slot to continue!";
  507. close;
  508. }
  509. mes "Now please select the Enchantment:";
  510. next;
  511. for ( set .@e,0; .@e < getarraysize(.enchant_id4); set .@e,.@e + 1)
  512. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id4[.@e])+ ( (.enchant_id4[.@e+1] != 0)?":":"");
  513. set .@rune,select(.@e_m$) - 1;
  514. mes "[Enchant Master]";
  515. mes "Selected Enchantment: "+getitemname(.enchant_id4[.@rune]);
  516. if(countitem(6417) < 10) {
  517. mes "[Enchant Master]";
  518. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  519. close;
  520. }
  521. mes "[Enchant Master]";
  522. mes "Proceed?";
  523. if(select("- Yes:- No") - 1) close;
  524. next;
  525. if(countitem(6417) >= 10)
  526. delitem 6417,10;
  527. delequip EQI_COSTUME_HEAD_LOW;
  528. .@card[3] = .enchant_id4[.@rune];
  529. if(getarraysize(.@OptID) > 0)
  530. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  531. else
  532. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  533. mes "[Enchant Master]";
  534. mes "The enchantment was a success.";
  535. mes "See ya next time.";
  536. close;
  537. }
  538. case 4:
  539. .@hg = getequipid(EQI_COSTUME_GARMENT); // Saving Item ID
  540. .@ref = getequiprefinerycnt(EQI_COSTUME_GARMENT); // Saving Refine Level, if there is one
  541. .@card[0] = getequipcardid(EQI_COSTUME_GARMENT,0); // Save Item ID of Card Slot 1
  542. .@card[1] = getequipcardid(EQI_COSTUME_GARMENT,1); // Save Item ID of Card Slot 1
  543. .@card[2] = getequipcardid(EQI_COSTUME_GARMENT,2); // Save Item ID of Card Slot 1
  544. .@card[3] = getequipcardid(EQI_COSTUME_GARMENT,3); // Save Item ID of Card Slot 1
  545. if(getequipid(EQI_COSTUME_GARMENT) == -1) {
  546. mes "[Enchant Master]";
  547. mes "It looks like you don't have any costume equipped on there.";
  548. close;
  549. }
  550. if(getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_ID) != 0) {
  551. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,1,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,2,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,3,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,4,ROA_ID);
  552. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,4,ROA_VALUE);
  553. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,4,ROA_PARAM);
  554. }
  555. mes "[Enchant Master]";
  556. mes "Your garment costume is "+getitemname(getequipid(EQI_COSTUME_GARMENT))+"!";
  557. next;
  558. mes "[Enchant Master]";
  559. mes "Now select the slot!";
  560. mes "1st slot is for ^FF0000Job Stone LV1.^000000";
  561. mes "2nd slot is for ^FF0000Job Stone LV2.^000000";
  562. mes "3rd slot is for ^FF0000Special Abilities.^000000";
  563. mes "4th slot is for ^FF0000Effect Stone.^000000";
  564. next;
  565. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.")){
  566. case 1:
  567. setArray .enchant_id1[0],29426,29431,29435,29463,29467,29471,29480,29484,29488,29516,29520,29524,29654,29658,29662,29667,29671;
  568. if(.@card[0]) {
  569. mes "[Enchant Master]";
  570. mes "you have to reset the first slot to continue!";
  571. close;
  572. }
  573. mes "Now please select the Enchantment:";
  574. next;
  575. for ( set .@e,0; .@e < getarraysize(.enchant_id1); set .@e,.@e + 1)
  576. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id1[.@e])+ ( (.enchant_id1[.@e+1] != 0)?":":"");
  577. set .@rune,select(.@e_m$) - 1;
  578. mes "[Enchant Master]";
  579. mes "Selected Enchantment: "+getitemname(.enchant_id1[.@rune]);
  580. if(countitem(6417) < 10) {
  581. mes "[Enchant Master]";
  582. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  583. close;
  584. }
  585. mes "[Enchant Master]";
  586. mes "Proceed?";
  587. if(select("- Yes:- No") - 1) close;
  588. next;
  589. if(countitem(6417) >= 10)
  590. delitem 6417,10;
  591. delequip EQI_COSTUME_GARMENT;
  592. .@card[0] = .enchant_id1[.@rune];
  593. if(getarraysize(.@OptID) > 0)
  594. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  595. else
  596. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  597. mes "[Enchant Master]";
  598. mes "The enchantment was a success.";
  599. mes "See ya next time.";
  600. close;
  601. case 2:
  602. setArray .enchant_id2[0],29427,29614,29618,310003,310007,310011,310180,310184,310188,310257,310261,310265;
  603. if(.@card[1]) {
  604. mes "[Enchant Master]";
  605. mes "you have to reset the second slot to continue!";
  606. close;
  607. }
  608. mes "Now please select the Enchantment:";
  609. next;
  610. for ( set .@e,0; .@e < getarraysize(.enchant_id2); set .@e,.@e + 1)
  611. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id2[.@e])+ ( (.enchant_id2[.@e+1] != 0)?":":"");
  612. set .@rune,select(.@e_m$) - 1;
  613. mes "[Enchant Master]";
  614. mes "Selected Enchantment: "+getitemname(.enchant_id2[.@rune]);
  615. if(countitem(6417) < 10) {
  616. mes "[Enchant Master]";
  617. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  618. close;
  619. }
  620. mes "[Enchant Master]";
  621. mes "Proceed?";
  622. if(select("- Yes:- No") - 1) close;
  623. next;
  624. if(countitem(6417) >= 10)
  625. delitem 6417,10;
  626. delequip EQI_COSTUME_GARMENT;
  627. .@card[1] = .enchant_id2[.@rune];
  628. if(getarraysize(.@OptID) > 0)
  629. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  630. else
  631. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  632. mes "[Enchant Master]";
  633. mes "The enchantment was a success.";
  634. mes "See ya next time.";
  635. close;
  636. case 3:
  637. setArray .enchant_id3[0],29027,29056,29124,29358,29372,29363,29361,29373;
  638. if(.@card[2]) {
  639. mes "[Enchant Master]";
  640. mes "you have to reset the third slot to continue!";
  641. close;
  642. }
  643. mes "Now please select the Enchantment:";
  644. next;
  645. for ( set .@e,0; .@e < getarraysize(.enchant_id3); set .@e,.@e + 1)
  646. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id3[.@e])+ ( (.enchant_id3[.@e+1] != 0)?":":"");
  647. set .@rune,select(.@e_m$) - 1;
  648. mes "[Enchant Master]";
  649. mes "Selected Enchantment: "+getitemname(.enchant_id3[.@rune]);
  650. if(countitem(6417) < 10) {
  651. mes "[Enchant Master]";
  652. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  653. close;
  654. }
  655. mes "[Enchant Master]";
  656. mes "Proceed?";
  657. if(select("- Yes:- No") - 1) close;
  658. next;
  659. if(countitem(6417) >= 10)
  660. delitem 6417,10;
  661. delequip EQI_COSTUME_GARMENT;
  662. .@card[2] = .enchant_id3[.@rune];
  663. if(getarraysize(.@OptID) > 0)
  664. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  665. else
  666. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  667. mes "[Enchant Master]";
  668. mes "The enchantment was a success.";
  669. mes "See ya next time.";
  670. close;
  671. case 4:
  672. setArray .enchant_id4[0],29160,29161,29162,29224,29225,29041,29142,29143,29144,29226;
  673. if(.@card[3]) {
  674. mes "[Enchant Master]";
  675. mes "you have to reset the fourth slot to continue!";
  676. close;
  677. }
  678. mes "Now please select the Enchantment:";
  679. next;
  680. for ( set .@e,0; .@e < getarraysize(.enchant_id4); set .@e,.@e + 1)
  681. set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id4[.@e])+ ( (.enchant_id4[.@e+1] != 0)?":":"");
  682. set .@rune,select(.@e_m$) - 1;
  683. mes "[Enchant Master]";
  684. mes "Selected Enchantment: "+getitemname(.enchant_id4[.@rune]);
  685. if(countitem(6417) < 10) {
  686. mes "[Enchant Master]";
  687. mes "But it looks like you don't have enough "+getitemname(6417)+"!";
  688. close;
  689. }
  690. mes "[Enchant Master]";
  691. mes "Proceed?";
  692. if(select("- Yes:- No") - 1) close;
  693. next;
  694. if(countitem(6417) >= 10)
  695. delitem 6417,10;
  696. delequip EQI_COSTUME_GARMENT;
  697. .@card[3] = .enchant_id4[.@rune];
  698. if(getarraysize(.@OptID) > 0)
  699. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  700. else
  701. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], .@card[3];
  702. mes "[Enchant Master]";
  703. mes "The enchantment was a success.";
  704. mes "See ya next time.";
  705. close;
  706. }
  707. }
  708. case 2:
  709. mes "[Enchant Master]";
  710. mes "Please select the Costume you want me to reset the enchantment!";
  711. switch(select("Costume Upper.","Costume Middle.","Costume Lower.","Costume Garment.")){
  712. case 1:
  713. .@hg = getequipid(EQI_COSTUME_HEAD_TOP); // Saving Item ID
  714. .@ref = getequiprefinerycnt(EQI_COSTUME_HEAD_TOP); // Saving Refine Level, if there is one
  715. .@card[0] = getequipcardid(EQI_COSTUME_HEAD_TOP,0); // Save Item ID of Card Slot 1
  716. .@card[1] = getequipcardid(EQI_COSTUME_HEAD_TOP,1); // Save Item ID of Card Slot 1
  717. .@card[2] = getequipcardid(EQI_COSTUME_HEAD_TOP,2); // Save Item ID of Card Slot 1
  718. .@card[3] = getequipcardid(EQI_COSTUME_HEAD_TOP,3); // Save Item ID of Card Slot 1
  719. if(getequipid(EQI_COSTUME_HEAD_TOP) == -1) {
  720. mes "[Enchant Master]";
  721. mes "It looks like you don't have any costume equipped on there.";
  722. close;
  723. }
  724. if(getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_ID) != 0) {
  725. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,1,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,2,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,3,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_TOP,4,ROA_ID);
  726. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_TOP,4,ROA_VALUE);
  727. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_HEAD_TOP,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_TOP,4,ROA_PARAM);
  728. }
  729. mes "[Enchant Master]";
  730. mes "Your upper costume is "+getitemname(getequipid(EQI_COSTUME_HEAD_TOP))+"!";
  731. next;
  732. mes "Now select the slot!";
  733. mes "1st slot is to reset ^FF0000Job Stone LV1.^000000";
  734. mes "2nd slot is to reset ^FF0000Job Stone LV2.^000000";
  735. mes "3rd slot is to reset ^FF0000Special Abilities.^000000";
  736. mes "4th slot is to reset ^FF0000Effect Stone.^000000";
  737. next;
  738. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.","All at once!")){
  739. case 1:
  740. if(!.@card[0]){
  741. mes "[Enchant Master]";
  742. mes "There's nothing to be reseted!";
  743. close;
  744. }
  745. mes "You select first slot!";
  746. mes "Proceed?";
  747. if(select("- Yes:- No") - 1) close;
  748. next;
  749. delequip EQI_COSTUME_HEAD_TOP;
  750. if(getarraysize(.@OptID) > 0)
  751. getitem3 .@hg, 1, 1, .@ref, 0, 0, .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  752. else
  753. getitem2 .@hg, 1, 1, .@ref,0, 0, .@card[1], .@card[2], .@card[3];
  754. mes "[Enchant Master]";
  755. mes "The enchantment has been reseted.";
  756. mes "See ya next time.";
  757. close;
  758. case 2:
  759. if(!.@card[1]){
  760. mes "[Enchant Master]";
  761. mes "There's nothing to be reseted!";
  762. close;
  763. }
  764. mes "You select second slot!";
  765. mes "Proceed?";
  766. if(select("- Yes:- No") - 1) close;
  767. next;
  768. delequip EQI_COSTUME_HEAD_TOP;
  769. if(getarraysize(.@OptID) > 0)
  770. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], 0, .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  771. else
  772. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], 0, .@card[2], .@card[3];
  773. mes "[Enchant Master]";
  774. mes "The enchantment has been reseted.";
  775. mes "See ya next time.";
  776. close;
  777. case 3:
  778. if(!.@card[2]){
  779. mes "[Enchant Master]";
  780. mes "There's nothing to be reseted!";
  781. close;
  782. }
  783. mes "You select third slot!";
  784. mes "Proceed?";
  785. if(select("- Yes:- No") - 1) close;
  786. next;
  787. delequip EQI_COSTUME_HEAD_TOP;
  788. if(getarraysize(.@OptID) > 0)
  789. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], 0, .@card[3], .@OptID, .@OptVal, .@OptParam;
  790. else
  791. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], 0, .@card[3];
  792. mes "[Enchant Master]";
  793. mes "The enchantment has been reseted.";
  794. mes "See ya next time.";
  795. close;
  796. case 4:
  797. if(!.@card[3]){
  798. mes "[Enchant Master]";
  799. mes "There's nothing to be reseted!";
  800. close;
  801. }
  802. mes "You select fourth slot!";
  803. mes "Proceed?";
  804. if(select("- Yes:- No") - 1) close;
  805. next;
  806. delequip EQI_COSTUME_HEAD_TOP;
  807. if(getarraysize(.@OptID) > 0)
  808. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], 0, .@OptID, .@OptVal, .@OptParam;
  809. else
  810. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], 0;
  811. mes "[Enchant Master]";
  812. mes "The enchantment has been reseted.";
  813. mes "See ya next time.";
  814. close;
  815. case 5:
  816. mes "Do you really want to reset all the slot?";
  817. if(select("- Yes:- No") - 1) close;
  818. next;
  819. delequip EQI_COSTUME_HEAD_TOP;
  820. if(getarraysize(.@OptID) > 0)
  821. getitem3 .@hg, 1, 1, .@ref, 0, 0, 0, 0, 0, .@OptID, .@OptVal, .@OptParam;
  822. else
  823. getitem2 .@hg, 1, 1, .@ref,0, 0, 0, 0, 0;
  824. mes "[Enchant Master]";
  825. mes "The enchantment has been reseted.";
  826. mes "See ya next time.";
  827. close;
  828. }
  829. case 2:
  830. .@hg = getequipid(EQI_COSTUME_HEAD_MID); // Saving Item ID
  831. .@ref = getequiprefinerycnt(EQI_COSTUME_HEAD_MID); // Saving Refine Level, if there is one
  832. .@card[0] = getequipcardid(EQI_COSTUME_HEAD_MID,0); // Save Item ID of Card Slot 1
  833. .@card[1] = getequipcardid(EQI_COSTUME_HEAD_MID,1); // Save Item ID of Card Slot 1
  834. .@card[2] = getequipcardid(EQI_COSTUME_HEAD_MID,2); // Save Item ID of Card Slot 1
  835. .@card[3] = getequipcardid(EQI_COSTUME_HEAD_MID,3); // Save Item ID of Card Slot 1
  836. if(getequipid(EQI_COSTUME_HEAD_MID) == -1) {
  837. mes "[Enchant Master]";
  838. mes "It looks like you don't have any costume equipped on there.";
  839. close;
  840. }
  841. if(getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_ID) != 0) {
  842. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,1,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,2,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,3,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_MID,4,ROA_ID);
  843. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_MID,4,ROA_VALUE);
  844. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_HEAD_MID,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_MID,4,ROA_PARAM);
  845. }
  846. mes "[Enchant Master]";
  847. mes "Your middle costume is "+getitemname(getequipid(EQI_COSTUME_HEAD_MID))+"!";
  848. next;
  849. mes "Now select the slot!";
  850. mes "1st slot is to reset ^FF0000Job Stone LV1.^000000";
  851. mes "2nd slot is to reset ^FF0000Job Stone LV2.^000000";
  852. mes "3rd slot is to reset ^FF0000Special Abilities.^000000";
  853. mes "4th slot is to reset ^FF0000Effect Stone.^000000";
  854. next;
  855. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.","All at once!")){
  856. case 1:
  857. if(!.@card[0]){
  858. mes "[Enchant Master]";
  859. mes "There's nothing to be reseted!";
  860. close;
  861. }
  862. mes "You select first slot!";
  863. mes "Proceed?";
  864. if(select("- Yes:- No") - 1) close;
  865. next;
  866. delequip EQI_COSTUME_HEAD_MID;
  867. if(getarraysize(.@OptID) > 0)
  868. getitem3 .@hg, 1, 1, .@ref, 0, 0, .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  869. else
  870. getitem2 .@hg, 1, 1, .@ref,0, 0, .@card[1], .@card[2], .@card[3];
  871. mes "[Enchant Master]";
  872. mes "The enchantment has been reseted.";
  873. mes "See ya next time.";
  874. close;
  875. case 2:
  876. if(!.@card[1]){
  877. mes "[Enchant Master]";
  878. mes "There's nothing to be reseted!";
  879. close;
  880. }
  881. mes "You select second slot!";
  882. mes "Proceed?";
  883. if(select("- Yes:- No") - 1) close;
  884. next;
  885. delequip EQI_COSTUME_HEAD_MID;
  886. if(getarraysize(.@OptID) > 0)
  887. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], 0, .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  888. else
  889. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], 0, .@card[2], .@card[3];
  890. mes "[Enchant Master]";
  891. mes "The enchantment has been reseted.";
  892. mes "See ya next time.";
  893. close;
  894. case 3:
  895. if(!.@card[2]){
  896. mes "[Enchant Master]";
  897. mes "There's nothing to be reseted!";
  898. close;
  899. }
  900. mes "You select third slot!";
  901. mes "Proceed?";
  902. if(select("- Yes:- No") - 1) close;
  903. next;
  904. delequip EQI_COSTUME_HEAD_MID;
  905. if(getarraysize(.@OptID) > 0)
  906. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], 0, .@card[3], .@OptID, .@OptVal, .@OptParam;
  907. else
  908. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], 0, .@card[3];
  909. mes "[Enchant Master]";
  910. mes "The enchantment has been reseted.";
  911. mes "See ya next time.";
  912. close;
  913. case 4:
  914. if(!.@card[3]){
  915. mes "[Enchant Master]";
  916. mes "There's nothing to be reseted!";
  917. close;
  918. }
  919. mes "You select fourth slot!";
  920. mes "Proceed?";
  921. if(select("- Yes:- No") - 1) close;
  922. next;
  923. delequip EQI_COSTUME_HEAD_MID;
  924. if(getarraysize(.@OptID) > 0)
  925. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], 0, .@OptID, .@OptVal, .@OptParam;
  926. else
  927. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], 0;
  928. mes "[Enchant Master]";
  929. mes "The enchantment has been reseted.";
  930. mes "See ya next time.";
  931. close;
  932. case 5:
  933. mes "Do you really want to reset all the slot?";
  934. if(select("- Yes:- No") - 1) close;
  935. next;
  936. delequip EQI_COSTUME_HEAD_MID;
  937. if(getarraysize(.@OptID) > 0)
  938. getitem3 .@hg, 1, 1, .@ref, 0, 0, 0, 0, 0, .@OptID, .@OptVal, .@OptParam;
  939. else
  940. getitem2 .@hg, 1, 1, .@ref,0, 0, 0, 0, 0;
  941. mes "[Enchant Master]";
  942. mes "The enchantment has been reseted.";
  943. mes "See ya next time.";
  944. close;
  945. }
  946. case 3:
  947. .@hg = getequipid(EQI_COSTUME_HEAD_LOW); // Saving Item ID
  948. .@ref = getequiprefinerycnt(EQI_COSTUME_HEAD_LOW); // Saving Refine Level, if there is one
  949. .@card[0] = getequipcardid(EQI_COSTUME_HEAD_LOW,0); // Save Item ID of Card Slot 1
  950. .@card[1] = getequipcardid(EQI_COSTUME_HEAD_LOW,1); // Save Item ID of Card Slot 1
  951. .@card[2] = getequipcardid(EQI_COSTUME_HEAD_LOW,2); // Save Item ID of Card Slot 1
  952. .@card[3] = getequipcardid(EQI_COSTUME_HEAD_LOW,3); // Save Item ID of Card Slot 1
  953. if(getequipid(EQI_COSTUME_HEAD_LOW) == -1) {
  954. mes "[Enchant Master]";
  955. mes "It looks like you don't have any costume equipped on there.";
  956. close;
  957. }
  958. if(getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_ID) != 0) {
  959. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,1,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,2,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,3,ROA_ID),getequiprandomoption(EQI_COSTUME_HEAD_LOW,4,ROA_ID);
  960. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_HEAD_LOW,4,ROA_VALUE);
  961. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_HEAD_LOW,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_HEAD_LOW,4,ROA_PARAM);
  962. }
  963. mes "[Enchant Master]";
  964. mes "Your lower costume is "+getitemname(getequipid(EQI_COSTUME_HEAD_LOW))+"!";
  965. next;
  966. mes "Now select the slot!";
  967. mes "1st slot is to reset ^FF0000Job Stone LV1.^000000";
  968. mes "2nd slot is to reset ^FF0000Job Stone LV2.^000000";
  969. mes "3rd slot is to reset ^FF0000Special Abilities.^000000";
  970. mes "4th slot is to reset ^FF0000Effect Stone.^000000";
  971. next;
  972. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.","All at once!")){
  973. case 1:
  974. if(!.@card[0]){
  975. mes "[Enchant Master]";
  976. mes "There's nothing to be reseted!";
  977. close;
  978. }
  979. mes "You select first slot!";
  980. mes "Proceed?";
  981. if(select("- Yes:- No") - 1) close;
  982. next;
  983. delequip EQI_COSTUME_HEAD_LOW;
  984. if(getarraysize(.@OptID) > 0)
  985. getitem3 .@hg, 1, 1, .@ref, 0, 0, .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  986. else
  987. getitem2 .@hg, 1, 1, .@ref,0, 0, .@card[1], .@card[2], .@card[3];
  988. mes "[Enchant Master]";
  989. mes "The enchantment has been reseted.";
  990. mes "See ya next time.";
  991. close;
  992. case 2:
  993. if(!.@card[1]){
  994. mes "[Enchant Master]";
  995. mes "There's nothing to be reseted!";
  996. close;
  997. }
  998. mes "You select second slot!";
  999. mes "Proceed?";
  1000. if(select("- Yes:- No") - 1) close;
  1001. next;
  1002. delequip EQI_COSTUME_HEAD_LOW;
  1003. if(getarraysize(.@OptID) > 0)
  1004. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], 0, .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  1005. else
  1006. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], 0, .@card[2], .@card[3];
  1007. mes "[Enchant Master]";
  1008. mes "The enchantment has been reseted.";
  1009. mes "See ya next time.";
  1010. close;
  1011. case 3:
  1012. if(!.@card[2]){
  1013. mes "[Enchant Master]";
  1014. mes "There's nothing to be reseted!";
  1015. close;
  1016. }
  1017. mes "You select third slot!";
  1018. mes "Proceed?";
  1019. if(select("- Yes:- No") - 1) close;
  1020. next;
  1021. delequip EQI_COSTUME_HEAD_LOW;
  1022. if(getarraysize(.@OptID) > 0)
  1023. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], 0, .@card[3], .@OptID, .@OptVal, .@OptParam;
  1024. else
  1025. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], 0, .@card[3];
  1026. mes "[Enchant Master]";
  1027. mes "The enchantment has been reseted.";
  1028. mes "See ya next time.";
  1029. close;
  1030. case 4:
  1031. if(!.@card[3]){
  1032. mes "[Enchant Master]";
  1033. mes "There's nothing to be reseted!";
  1034. close;
  1035. }
  1036. mes "You select fourth slot!";
  1037. mes "Proceed?";
  1038. if(select("- Yes:- No") - 1) close;
  1039. next;
  1040. delequip EQI_COSTUME_HEAD_LOW;
  1041. if(getarraysize(.@OptID) > 0)
  1042. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], 0, .@OptID, .@OptVal, .@OptParam;
  1043. else
  1044. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], 0;
  1045. mes "[Enchant Master]";
  1046. mes "The enchantment has been reseted.";
  1047. mes "See ya next time.";
  1048. close;
  1049. case 5:
  1050. mes "Do you really want to reset all the slot?";
  1051. if(select("- Yes:- No") - 1) close;
  1052. next;
  1053. delequip EQI_COSTUME_HEAD_LOW;
  1054. if(getarraysize(.@OptID) > 0)
  1055. getitem3 .@hg, 1, 1, .@ref, 0, 0, 0, 0, 0, .@OptID, .@OptVal, .@OptParam;
  1056. else
  1057. getitem2 .@hg, 1, 1, .@ref,0, 0, 0, 0, 0;
  1058. mes "[Enchant Master]";
  1059. mes "The enchantment has been reseted.";
  1060. mes "See ya next time.";
  1061. close;
  1062. }
  1063. case 4:
  1064. .@hg = getequipid(EQI_COSTUME_GARMENT); // Saving Item ID
  1065. .@ref = getequiprefinerycnt(EQI_COSTUME_GARMENT); // Saving Refine Level, if there is one
  1066. .@card[0] = getequipcardid(EQI_COSTUME_GARMENT,0); // Save Item ID of Card Slot 1
  1067. .@card[1] = getequipcardid(EQI_COSTUME_GARMENT,1); // Save Item ID of Card Slot 1
  1068. .@card[2] = getequipcardid(EQI_COSTUME_GARMENT,2); // Save Item ID of Card Slot 1
  1069. .@card[3] = getequipcardid(EQI_COSTUME_GARMENT,3); // Save Item ID of Card Slot 1
  1070. if(getequipid(EQI_COSTUME_GARMENT) == -1) {
  1071. mes "[Enchant Master]";
  1072. mes "It looks like you don't have any costume equipped on there.";
  1073. close;
  1074. }
  1075. if(getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_ID) != 0) {
  1076. setarray .@OptID[0],getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,1,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,2,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,3,ROA_ID),getequiprandomoption(EQI_COSTUME_GARMENT,4,ROA_ID);
  1077. setarray .@OptVal[0],getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,1,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,2,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,3,ROA_VALUE),getequiprandomoption(EQI_COSTUME_GARMENT,4,ROA_VALUE);
  1078. setarray .@OptParam[0],getequiprandomoption(EQI_COSTUME_GARMENT,0,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,1,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,2,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,3,ROA_PARAM),getequiprandomoption(EQI_COSTUME_GARMENT,4,ROA_PARAM);
  1079. }
  1080. mes "[Enchant Master]";
  1081. mes "Your garment costume is "+getitemname(getequipid(EQI_COSTUME_GARMENT))+"!";
  1082. next;
  1083. mes "Now select the slot!";
  1084. mes "1st slot is to reset ^FF0000Job Stone LV1.^000000";
  1085. mes "2nd slot is to reset ^FF0000Job Stone LV2.^000000";
  1086. mes "3rd slot is to reset ^FF0000Special Abilities.^000000";
  1087. mes "4th slot is to reset ^FF0000Effect Stone.^000000";
  1088. next;
  1089. switch(select("1st Slot.","2nd Slot.","3rd Slot.","4th Slot.","All at once!")){
  1090. case 1:
  1091. if(!.@card[0]){
  1092. mes "[Enchant Master]";
  1093. mes "There's nothing to be reseted!";
  1094. close;
  1095. }
  1096. mes "You select first slot!";
  1097. mes "Proceed?";
  1098. if(select("- Yes:- No") - 1) close;
  1099. next;
  1100. delequip EQI_COSTUME_GARMENT;
  1101. if(getarraysize(.@OptID) > 0)
  1102. getitem3 .@hg, 1, 1, .@ref, 0, 0, .@card[1], .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  1103. else
  1104. getitem2 .@hg, 1, 1, .@ref,0, 0, .@card[1], .@card[2], .@card[3];
  1105. mes "[Enchant Master]";
  1106. mes "The enchantment has been reseted.";
  1107. mes "See ya next time.";
  1108. close;
  1109. case 2:
  1110. if(!.@card[1]){
  1111. mes "[Enchant Master]";
  1112. mes "There's nothing to be reseted!";
  1113. close;
  1114. }
  1115. mes "You select second slot!";
  1116. mes "Proceed?";
  1117. if(select("- Yes:- No") - 1) close;
  1118. next;
  1119. delequip EQI_COSTUME_GARMENT;
  1120. if(getarraysize(.@OptID) > 0)
  1121. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], 0, .@card[2], .@card[3], .@OptID, .@OptVal, .@OptParam;
  1122. else
  1123. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], 0, .@card[2], .@card[3];
  1124. mes "[Enchant Master]";
  1125. mes "The enchantment has been reseted.";
  1126. mes "See ya next time.";
  1127. close;
  1128. case 3:
  1129. if(!.@card[2]){
  1130. mes "[Enchant Master]";
  1131. mes "There's nothing to be reseted!";
  1132. close;
  1133. }
  1134. mes "You select third slot!";
  1135. mes "Proceed?";
  1136. if(select("- Yes:- No") - 1) close;
  1137. next;
  1138. delequip EQI_COSTUME_GARMENT;
  1139. if(getarraysize(.@OptID) > 0)
  1140. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], 0, .@card[3], .@OptID, .@OptVal, .@OptParam;
  1141. else
  1142. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], 0, .@card[3];
  1143. mes "[Enchant Master]";
  1144. mes "The enchantment has been reseted.";
  1145. mes "See ya next time.";
  1146. close;
  1147. case 4:
  1148. if(!.@card[3]){
  1149. mes "[Enchant Master]";
  1150. mes "There's nothing to be reseted!";
  1151. close;
  1152. }
  1153. mes "You select fourth slot!";
  1154. mes "Proceed?";
  1155. if(select("- Yes:- No") - 1) close;
  1156. next;
  1157. delequip EQI_COSTUME_GARMENT;
  1158. if(getarraysize(.@OptID) > 0)
  1159. getitem3 .@hg, 1, 1, .@ref, 0, .@card[0], .@card[1], .@card[2], 0, .@OptID, .@OptVal, .@OptParam;
  1160. else
  1161. getitem2 .@hg, 1, 1, .@ref,0, .@card[0], .@card[1], .@card[2], 0;
  1162. mes "[Enchant Master]";
  1163. mes "The enchantment has been reseted.";
  1164. mes "See ya next time.";
  1165. close;
  1166. case 5:
  1167. mes "Do you really want to reset all the slot?";;
  1168. if(select("- Yes:- No") - 1) close;
  1169. next;
  1170. delequip EQI_COSTUME_GARMENT;
  1171. if(getarraysize(.@OptID) > 0)
  1172. getitem3 .@hg, 1, 1, .@ref, 0, 0, 0, 0, 0, .@OptID, .@OptVal, .@OptParam;
  1173. else
  1174. getitem2 .@hg, 1, 1, .@ref,0, 0, 0, 0, 0;
  1175. mes "[Enchant Master]";
  1176. mes "The enchantment has been reseted.";
  1177. mes "See ya next time.";
  1178. close;
  1179. }
  1180. }
  1181. }
  1182. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!