API tools faq
paste
Advertisement
icabit

MORA++

icabit
Feb 7th, 2013
182
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 58.94 KB | None | 0 0
raw download clone embed print report
  1. //===== rAthena Script =======================================
  2.  
  3. //= Mora Village Enchantment
  4.  
  5. //===== By: ==================================================
  6.  
  7. //= SuperHulk
  8.  
  9. //= Overhall by Akinari
  10.  
  11. //===== Current Version: =====================================
  12.  
  13. //= 2.0
  14.  
  15. //===== Compatible With: =====================================
  16.  
  17. //= rAthena SVN
  18.  
  19. //===== Description: =========================================
  20.  
  21. //= Mora Enchants.
  22.  
  23. //===== Additional Comments: =================================
  24.  
  25. //= 1.0 First Version. [SuperHulk]
  26.  
  27. //= 2.0 Script Rewrite and translation. [Akinari]
  28.  
  29. //============================================================
  30.  
  31.  
  32.  
  33. mora,124,82,4 script Artifact Collector#mora 522,{
  34.  
  35. mes "[Artifact Collector]";
  36.  
  37. mes "Welcome, I collect ancient items and equipments of Mora and exchange them for better and improved equipment!";
  38.  
  39. next;
  40.  
  41. mes "[Artifact Collector]";
  42.  
  43. mes "At the moment, I am currently looking for the following weapons:";
  44.  
  45. mes "^0000FFGolden Rod Staff^000000";
  46.  
  47. mes "^0000FFAqua Staff^000000";
  48.  
  49. mes "^0000FFCrimson Staff^000000";
  50.  
  51. mes "^0000FFForest Staff^000000";
  52.  
  53. mes "^0000FFWand of Affection^000000";
  54.  
  55. mes "^0000FFMace of Judgement^000000";
  56.  
  57. next;
  58.  
  59. mes "[Artifact Collector]";
  60.  
  61. mes "I can exchange them for their newest and latest equivalent:";
  62.  
  63. mes "^0000FFEmpowered Golden Rod Staff^000000";
  64.  
  65. mes "^0000FFEmpowered Aqua Staff^000000";
  66.  
  67. mes "^0000FFEmpowered Crimson Staff^000000";
  68.  
  69. mes "^0000FFEmpowered Forest Staff^000000";
  70.  
  71. mes "^0000FFEmpowered Wand of Affection^000000";
  72.  
  73. mes "^0000FFEmpowered Mace of Judgement^000000";
  74.  
  75. next;
  76.  
  77. mes "[Artifact Collector]";
  78.  
  79. mes "If you ever have any kind of Mora Coins and you want to get newer and more powerful things, just come find me!";
  80.  
  81. next;
  82.  
  83. switch(select("Exchange Equipment.:Cancel.")) {
  84.  
  85. case 1:
  86.  
  87. mes "[Artifact Collector]";
  88.  
  89. mes "You have the equipment that I asked for earlier? Awesome!";
  90.  
  91. mes "What equipment will you trade to me?";
  92.  
  93. next;
  94.  
  95. switch(select("Golden Rod Staff.:Aqua Staff.:Crimson Staff.:Forest Staff.:Wand of Affection.:Mace of Judgement.:Cancel.")) {
  96.  
  97. case 1:
  98.  
  99. set .@item_got,2007;
  100.  
  101. set .@item_get,2011;
  102.  
  103. break;
  104.  
  105. case 2:
  106.  
  107. set .@item_got,2008;
  108.  
  109. set .@item_get,2012;
  110.  
  111. break;
  112.  
  113. case 3:
  114.  
  115. set .@item_got,2009;
  116.  
  117. set .@item_get,2013;
  118.  
  119. break;
  120.  
  121. case 4:
  122.  
  123. set .@item_got,2010;
  124.  
  125. set .@item_get,2014;
  126.  
  127. break;
  128.  
  129. case 5:
  130.  
  131. set .@item_got,1657;
  132.  
  133. set .@item_get,1660;
  134.  
  135. break;
  136.  
  137. case 6:
  138.  
  139. set .@item_got,16013;
  140.  
  141. set .@item_get,16018;
  142.  
  143. break;
  144.  
  145. case 7:
  146.  
  147. break;
  148.  
  149. }
  150.  
  151. break;
  152.  
  153.  
  154.  
  155. case 2:
  156.  
  157. break;
  158.  
  159. }
  160.  
  161.  
  162.  
  163. if(.@item_got) {
  164.  
  165. if(isequipped(.@item_got)) {
  166.  
  167. if(getequiprefinerycnt(4) < 7) {
  168.  
  169. mes "This item has to be refined to at least +7 in order for me to exchange it.";
  170.  
  171. close;
  172.  
  173. }
  174.  
  175. set .@card3,getequipcardid(4,2);
  176.  
  177. set .@card4,getequipcardid(4,3);
  178.  
  179. if(.@item_got > 2006 && .@item_got < 2011){
  180.  
  181. if((.@card3 != 4713 && .@card3 != 4761) || (.@card4 != 4713 && .@card4 != 4761)) {
  182.  
  183. mes "You don't have the correct enchantment on this weapon for me to exchange it!";
  184.  
  185. mes "I need this weapon to have ^FF0000"+getitemname(4713)+"^000000 or ^FF0000"+getitemname(4761)+"^000000.";
  186.  
  187. close;
  188.  
  189. }
  190.  
  191. }
  192.  
  193. else if(.@item_got == 1657){
  194.  
  195. if((.@card3 != 4714 && .@card3 != 4761 && .@card3 != 4723) || (.@card4 != 4714 && .@card4 != 4761 && .@card4 != 4723)) {
  196.  
  197. mes "You don't have the correct enchantment on this weapon for me to exchange it!";
  198.  
  199. mes "I need this weapon to have ^FF0000"+getitemname(4714)+"^000000, ^FF0000"+getitemname(4761)+"^000000 or ^FF0000"+getitemname(4723)+"^000000.";
  200.  
  201. close;
  202.  
  203. }
  204.  
  205. }
  206.  
  207. else {
  208.  
  209. if((.@card3 != 4704 && .@card3 != 4767 && .@card3 != 4723) || (.@card4 != 4704 && .@card4 != 4767 && .@card4 != 4723)) {
  210.  
  211. mes "You don't have the correct enchantment on this weapon for me to exchange it!";
  212.  
  213. mes "I need this weapon to have ^FF0000"+getitemname(4704)+"^000000, ^FF0000"+getitemname(4767)+"^000000 or ^FF0000"+getitemname(4723)+"^000000.";
  214.  
  215. close;
  216.  
  217. }
  218.  
  219. }
  220.  
  221. mes "[Artifact Collector]";
  222.  
  223. mes "You have a ^FF0000"+getitemname(.@item_got)+"^000000? It is powerful!";
  224.  
  225. mes "Are you sure you want to exchange ^FF0000"+getitemname(.@item_got)+"^000000 for ^0000FF"+getitemname(.@item_get) +"^000000?";
  226.  
  227. next;
  228.  
  229. if(select("Exchange equipment.","Cancel.") == 2) close;
  230.  
  231. mes "[Artifact Collector]";
  232.  
  233. mes "You want to give me your ^FF0000"+getitemname(.@item_got)+"^000000 Is that what you want?";
  234.  
  235. next;
  236.  
  237. if(select("Continue the deal.","Cancel the deal.") == 2) close;
  238.  
  239. if(!countitem(@item_got))
  240.  
  241. {
  242.  
  243. mes "[Artifact Collector]";
  244.  
  245. mes "Unfortunately, you don't seem to have this item in your inventory or on you...";
  246.  
  247. next;
  248.  
  249. mes "[Artifact Collector]";
  250.  
  251. mes "Return to me when you have gotten your ^FF0000"+getitemname(.@item_got)+"^000000.";
  252.  
  253. next;
  254.  
  255. mes "[Artifact Collector]";
  256.  
  257. mes "Have a good Day!";
  258.  
  259. close;
  260.  
  261. }
  262.  
  263. if(countitem(.@item_got))
  264.  
  265. {
  266.  
  267. mes "[Artifact Collector]";
  268.  
  269. mes "Unfortunately, You have two identical items on you!";
  270.  
  271. next;
  272.  
  273. mes "[Artifact Collector]";
  274.  
  275. mes "I can't really tell which ^FF0000"+getitemname(.@item_got)+"^000000 you want me to exchange.";
  276.  
  277. next;
  278.  
  279. mes "[Artifact Collector]";
  280.  
  281. mes "Put one away and and then return to see me.";
  282.  
  283. close;
  284.  
  285. }
  286.  
  287. getitem .@item_get,1;
  288.  
  289. delitem .@item_got,1;
  290.  
  291. mes "[Artifact Collector]";
  292.  
  293. mes "Thank you for giving me your ^FF0000"+getitemname(.@item_got)+"^000000!";
  294.  
  295. mes "In exchange, I can offer you a an improved version of this ancient item:";
  296.  
  297. mes "^0000FF"+getitemname(.@item_get)+"^000000.";
  298.  
  299. next;
  300.  
  301. mes "[Artifact Collector]";
  302.  
  303. mes "Thake care of this item, please! Have a good day and don't hesitate to return to see me if you want to exchange another item!";
  304.  
  305. close;
  306.  
  307. }
  308.  
  309. else {
  310.  
  311. mes "I need to check for specific enchantments and the refine level. Please equip it for me to do this.";
  312.  
  313. close;
  314.  
  315. }
  316.  
  317. }
  318.  
  319.  
  320.  
  321. mes "[Artifact Collector]";
  322.  
  323. mes "Okay, come back to see me if you ever change your mind and want to exchange an item.";
  324.  
  325. close;
  326.  
  327.  
  328.  
  329.  
  330.  
  331. }
  332.  
  333. //===========================
  334.  
  335. //====ARTIFACT RESEARCHER====
  336.  
  337. //===========================
  338.  
  339. mora,148,98,5 script Artifact Researcher 521,{
  340.  
  341. mes "[Artifact Researcher]";
  342.  
  343. mes "Welcome, I can enchant the equipment of certain classes!";
  344.  
  345. next;
  346.  
  347. mes "[Artifact Researcher]";
  348.  
  349. mes "We fairies have powers for specific equipment enchantment. I moved here to sell my services to Rune Knights, Guillotine Crosses, and Rangers.";
  350.  
  351. next;
  352.  
  353. mes "[Artifact Researcher]";
  354.  
  355. mes "Do you want to enchant your equipment? If so, which class would like?";
  356.  
  357. set .@class,select("Guillotine Cross.:Ranger.:Rune Knight.:No thank you.");
  358.  
  359. switch(.@class) {
  360.  
  361. case 1:
  362.  
  363. setarray .@itemenchant$[0],"Sapha's ","Nab's ";
  364.  
  365. break;
  366.  
  367. case 2:
  368.  
  369. setarray .@itemenchant$[0],"White Wing ","Black Wing ";
  370.  
  371. break;
  372.  
  373. case 3:
  374.  
  375. setarray .@itemenchant$[0],"Ur's ","Peuz's ";
  376.  
  377. break;
  378.  
  379. case 4:
  380.  
  381. goto L_quit;
  382.  
  383. }
  384.  
  385.  
  386.  
  387. mes "[Artifact Researcher]";
  388.  
  389. mes "You want to enchant 3rd class equipment. These items are particularly powerful once enchanted!";
  390.  
  391. next;
  392.  
  393. mes "[Artifact Researcher]";
  394.  
  395. mes "Which type of equipment do you want to enchant?";
  396.  
  397. switch(select("Armor.:Footgear.:Garment.:Accessory.:Cancel.")) {
  398.  
  399. case 1:
  400.  
  401. set .@enchant_type,2;
  402.  
  403. switch(.@class) {
  404.  
  405. case 1:
  406.  
  407. set .@enchant_item,15038;
  408.  
  409. set .@itemtype$,"Cloth";
  410.  
  411. break;
  412.  
  413. case 2:
  414.  
  415. set .@enchant_item,15042;
  416.  
  417. set .@itemtype$,"Suit";
  418.  
  419. break;
  420.  
  421. case 3:
  422.  
  423. set .@enchant_item,15036;
  424.  
  425. set .@itemtype$,"Plate";
  426.  
  427. break;
  428.  
  429. }
  430.  
  431. break;
  432.  
  433. case 2:
  434.  
  435. set .@enchant_type,6;
  436.  
  437. switch(.@class) {
  438.  
  439. case 1:
  440.  
  441. set .@enchant_item,2477;
  442.  
  443. set .@itemtype$,"Shoes";
  444.  
  445. break;
  446.  
  447. case 2:
  448.  
  449. set .@enchant_item,2479;
  450.  
  451. set .@itemtype$,"Boots";
  452.  
  453. break;
  454.  
  455. case 3:
  456.  
  457. set .@enchant_item,2475;
  458.  
  459. set .@itemtype$,"Greaves";
  460.  
  461. break;
  462.  
  463. }
  464.  
  465. break;
  466.  
  467. case 3:
  468.  
  469. set .@enchant_type,5;
  470.  
  471. switch(.@class) {
  472.  
  473. case 1:
  474.  
  475. set .@enchant_item,2577;
  476.  
  477. set .@itemtype$,"Hood";
  478.  
  479. break;
  480.  
  481. case 2:
  482.  
  483. set .@enchant_item,2580;
  484.  
  485. set .@itemtype$,"Manteau";
  486.  
  487. break;
  488.  
  489. case 3:
  490.  
  491. set .@enchant_item,2574;
  492.  
  493. set .@itemtype$,"Manteau";
  494.  
  495. break;
  496.  
  497. }
  498.  
  499. break;
  500.  
  501. case 4:
  502.  
  503. set .@enchant_type,7;
  504.  
  505. switch(.@class) {
  506.  
  507. case 1:
  508.  
  509. set .@enchant_item,2886;
  510.  
  511. set .@itemtype$,"Ring";
  512.  
  513. break;
  514.  
  515. case 2:
  516.  
  517. set .@enchant_item,2890;
  518.  
  519. set .@itemtype$,"Brooch";
  520.  
  521. break;
  522.  
  523. case 3:
  524.  
  525. set .@enchant_item,2883;
  526.  
  527. set .@itemtype$,"Seal";
  528.  
  529. break;
  530.  
  531. }
  532.  
  533. break;
  534.  
  535. case 5:
  536.  
  537. goto L_quit;
  538.  
  539. }
  540.  
  541. if (.@enchant_type) {
  542.  
  543. if (.@enchant_type == 2) {
  544.  
  545. mes "[Artifact Researcher]";
  546.  
  547. mes "You want to enchant some armor, I see. The armors I can enchant are ^0000FF"+.@itemenchant$[.@class] +.@itemtype$+"^000000 and ^0000FF"+.@itemenchant$[.@class+1]+.@itemtype$+"^000000.";
  548.  
  549. next;
  550.  
  551. mes "[Artifact Researcher]";
  552.  
  553. mes "This armor can be enchanted a maximum of three times. The first enchantment has a 100% success rate while the second and third time are more difficult to achieve.";
  554.  
  555. }
  556.  
  557. if (.@enchant_type == 6) {
  558.  
  559. mes "[Artifact Researcher]";
  560.  
  561. mes "You want to enchant your shoes, I see. The shoes I can enchant are ^0000FF"+.@itemenchant$[.@class] +.@itemtype$+"^000000 and ^0000FF"+.@itemenchant$[.@class+1]+.@itemtype$+"^000000.";
  562.  
  563. next;
  564.  
  565. mes "[Artifact Researcher]";
  566.  
  567. mes "These shoes can be enchanted a maximum of three times. The first enchantment has 100% chance to succeed while the second and third times are much harder to do.";
  568.  
  569. next;
  570.  
  571. }
  572.  
  573. if (.@enchant_type == 5) {
  574.  
  575. mes "[Artifact Researcher]";
  576.  
  577. mes "You want to enchant your garment, I see. The garments I can enchant are ^0000FF"+.@itemenchant$[.@class]+.@itemtype$+"^000000 and ^0000FF"+.@itemenchant$[.@class+1]+.@itemtype$+"^000000.";
  578.  
  579. next;
  580.  
  581. mes "[Artifact Researcher]";
  582.  
  583. mes "This garment can be enchanted a maximum of three times. The first enchantment has 100% chance to succeed while the second and third times are much harder to do.";
  584.  
  585. }
  586.  
  587. if (.@enchant_type == 7) {
  588.  
  589. mes "[Artifact Researcher]";
  590.  
  591. mes "You want to enchant your accessory, I see. The accessories I can enchant are ^0000FF"+.@itemenchant$[.@class]+.@itemtype$+"^000000 and ^0000FF"+.@itemenchant$[.@class+1]+.@itemtype$+"^000000.";
  592.  
  593. next;
  594.  
  595. mes "[Artifact Researcher]";
  596.  
  597. mes "This accessory can be enchanted a maximum of three times. The first enchantment has 100% chance to succeed while the second and third times are much harder to do.";
  598.  
  599. }
  600.  
  601. mes "[Artifact Researcher]";
  602.  
  603. mes "In effect, the second enchantment has a ^FF000060%^000000 chance of success, and if you want a third enchantment it has a ^FF000030%^000000 chance to succeed.";
  604.  
  605. next;
  606.  
  607. mes "[Artifact Researcher]";
  608.  
  609. mes "If your armor is refined to +9, I will suggest two different options before enchantment. It is easier to change the way I enchant equipment that is stronger.";
  610.  
  611. next;
  612.  
  613. mes "[Artifact Researcher]";
  614.  
  615. mes "For each enchantment, service charges are ^0000FF1 Mora Coin^000000 and ^0000FF100,000 Zeny^000000";
  616.  
  617. next;
  618.  
  619. mes "[Artifact Researcher]";
  620.  
  621. mes "It also requires that the piece of equipment is equipped for the enchantment.";
  622.  
  623. next;
  624.  
  625. mes "[Artifact Researcher]";
  626.  
  627. mes "Now, if you could be so kind and tell me which type of equipment you want to me to enchant?";
  628.  
  629. switch(select(.@itemenchant$[0]+.@itemtype$+".:"+.@itemenchant$[1]+.@itemtype$+".:Cancel.")) {
  630.  
  631. case 1:
  632.  
  633. break;
  634.  
  635. case 2:
  636.  
  637. set .@enchant_item,.@enchant_item+1;
  638.  
  639. break;
  640.  
  641. case 3:
  642.  
  643. goto L_quit;
  644.  
  645. }
  646.  
  647. mes "[Artifact Researcher]";
  648.  
  649. mes "Okay, let's start the enchantment ceremony...";
  650.  
  651. mes "So you want to enchant the object ^FF0000"+getitemname(.@enchant_item)+"^000000... Correct?";
  652.  
  653. if(select("Start enchantment.","Cancel enchantment.") == 2) {
  654.  
  655. goto L_quit;
  656.  
  657. }
  658.  
  659. mes "[Artifact Researcher]";
  660.  
  661. mes "Okay, I will tell you again. Every spell costs ^0000FF1 Mora Coin^000000 and ^0000FF100,000 Zeny^000000.";
  662.  
  663. mes "We will now begin the process.";
  664.  
  665. next;
  666.  
  667. if(countitem(.@enchant_item) > 1)
  668.  
  669. {
  670.  
  671. mes "==Information==";
  672.  
  673. mes "You must have only one of the item to enchant.";
  674.  
  675. next;
  676.  
  677. mes "==Information==";
  678.  
  679. mes "Please remove the duplicates of the item.";
  680.  
  681. close;
  682.  
  683. }
  684.  
  685. if(isequipped(.@enchant_item)) {
  686.  
  687. if(.@enchant_type == 7)
  688.  
  689. {
  690.  
  691. if(getequipid(7) == .@enchant_item) set .@enchant_type,7;
  692.  
  693. else if(getequipid(8) == .@enchant_item) set .@enchant_type,8;
  694.  
  695. else {
  696.  
  697. mes "It doesn't appear that this item is on you. Please equip it.";
  698.  
  699. close;
  700.  
  701. }
  702.  
  703. }
  704.  
  705. if(getequiprefinerycnt(.@enchant_type) >= 9) {
  706.  
  707. mes "[Artifact Researcher]";
  708.  
  709. mes "Your equipment is refined to at least ^FF0000+9^000000.";
  710.  
  711. mes "You can then select an option increase the magic strength of your armor.";
  712.  
  713. next;
  714.  
  715. mes "[Artifact Researcher]";
  716.  
  717. mes "I can offer you two options for enchantment. Make your choice.";
  718.  
  719. next;
  720.  
  721. if(.@enchant_type == 2){
  722.  
  723. switch(select("Ability.:Strength.:Cancel.")) {
  724.  
  725. case 1:
  726.  
  727. mes "[Artifact Researcher]";
  728.  
  729. mes "Are you sure you want to choose Ability as your option?";
  730.  
  731. next;
  732.  
  733. if(select("Of course.","No, I'm thinking.") == 2) {
  734.  
  735. goto L_quit;
  736.  
  737. }
  738.  
  739. switch(.@class) {
  740.  
  741. case 1:
  742.  
  743. setarray .@enchant_card[0],4750,4751,4752,4753;
  744.  
  745. break;
  746.  
  747. case 2:
  748.  
  749. setarray .@enchant_card[0],4701,4752,4753,4754,4764;
  750.  
  751. break;
  752.  
  753. case 3:
  754.  
  755. setarray .@enchant_card[0],4811,4810,4809,4808,4820,4702,4819,4766,4767,4821,4822,4823,4824,4825;
  756.  
  757. break;
  758.  
  759. }
  760.  
  761. break;
  762.  
  763. case 2:
  764.  
  765. mes "[Artifact Researcher]";
  766.  
  767. mes "Are you sure you want to choose Strength as your option?";
  768.  
  769. next;
  770.  
  771. if(select("Of course.","No, I'm thinking.") == 2) {
  772.  
  773. goto L_quit;
  774.  
  775. }
  776.  
  777. switch(.@class) {
  778.  
  779. case 1:
  780.  
  781. setarray .@enchant_card[0],4764,4818;
  782.  
  783. break;
  784.  
  785. case 2:
  786.  
  787. setarray .@enchant_card[0],4720,4721,4722,4750,4751,4752,4832,4833,4834;
  788.  
  789. break;
  790.  
  791. case 3:
  792.  
  793. setarray .@enchant_card[0],4741,4742,4791,4794,4797,4798,4799;
  794.  
  795. break;
  796.  
  797. }
  798.  
  799. break;
  800.  
  801. case 3:
  802.  
  803. goto L_quit;
  804.  
  805. }
  806.  
  807. }
  808.  
  809. if(.@enchant_type == 5){
  810.  
  811. switch(select("Ability.:Strength.:Cancel.")) {
  812.  
  813. case 1:
  814.  
  815. mes "[Artifact Researcher]";
  816.  
  817. mes "Are you sure you want to choose Dodge as your option?";
  818.  
  819. next;
  820.  
  821. if(select("Of course.","No, I'm thinking.") == 2) {
  822.  
  823. goto L_quit;
  824.  
  825. }
  826.  
  827. switch(.@class) {
  828.  
  829. case 1:
  830.  
  831. setarray .@enchant_card[0],4762,4762;
  832.  
  833. break;
  834.  
  835. case 2:
  836.  
  837. setarray .@enchant_card[0],4750,4751,4752,4730,4731,4859,4860;
  838.  
  839. break;
  840.  
  841. case 3:
  842.  
  843. setarray .@enchant_card[0],4730,4732,4751,4752,4753,4754;
  844.  
  845. break;
  846.  
  847. }
  848.  
  849. break;
  850.  
  851. case 2:
  852.  
  853. mes "[Artifact Researcher]";
  854.  
  855. mes "Are you sure you want to choose Strength as your option?";
  856.  
  857. next;
  858.  
  859. if(select("Of course.","No, I'm thinking.") == 2) {
  860.  
  861. goto L_quit;
  862.  
  863. }
  864.  
  865. switch(.@class) {
  866.  
  867. case 1:
  868.  
  869. setarray .@enchant_card[0],4700,4701,4702,4764,4765,4818;
  870.  
  871. break;
  872.  
  873. case 2:
  874.  
  875. setarray .@enchant_card[0],4700,4701,4702,4704,4819,4766,4811,4810,4809,4808;
  876.  
  877. break;
  878.  
  879. case 3:
  880.  
  881. setarray .@enchant_card[0],4741,4742,4791,4794,4797,4798,4799;
  882.  
  883. break;
  884.  
  885. }
  886.  
  887. break;
  888.  
  889. case 3:
  890.  
  891. goto L_quit;
  892.  
  893. }
  894.  
  895. }
  896.  
  897. if(.@enchant_type == 6){
  898.  
  899. switch(select("Ability.:Strength.:Cancel.")) {
  900.  
  901. case 1:
  902.  
  903. mes "[Artifact Researcher]";
  904.  
  905. mes "Are you sure you want to choose Ability as your option?";
  906.  
  907. next;
  908.  
  909. if(select("Of course.","No, I'm thinking.") == 2) {
  910.  
  911. goto L_quit;
  912.  
  913. }
  914.  
  915. switch(.@class) {
  916.  
  917. case 1:
  918.  
  919. setarray .@enchant_card[0],4801,4802,4720,4796,4700,4792,4793,4787;
  920.  
  921. break;
  922.  
  923. case 2:
  924.  
  925. setarray .@enchant_card[0],4720,4787,4796,4801,4802,4792;
  926.  
  927. break;
  928.  
  929. case 3:
  930.  
  931. setarray .@enchant_card[0],4801,4802,4720,4796,4700,4792,4793;
  932.  
  933. break;
  934.  
  935. }
  936.  
  937. break;
  938.  
  939. case 2:
  940.  
  941. mes "[Artifact Researcher]";
  942.  
  943. mes "Are you sure you want to choose Strength as your option?";
  944.  
  945. next;
  946.  
  947. if(select("Of course.","No, I'm thinking.") == 2) {
  948.  
  949. goto L_quit;
  950.  
  951. }
  952.  
  953. switch(.@class) {
  954.  
  955. case 1:
  956.  
  957. setarray .@enchant_card[0],4702,4703,4819,4766,4767,4811,4810,4809;
  958.  
  959. break;
  960.  
  961. case 2:
  962.  
  963. setarray .@enchant_card[0],4702,4752,4754,4764,4818;
  964.  
  965. break;
  966.  
  967. case 3:
  968.  
  969. setarray .@enchant_card[0],4797,4798,4799,4792,4740,4741,4742;
  970.  
  971. break;
  972.  
  973. }
  974.  
  975. break;
  976.  
  977. case 3:
  978.  
  979. goto L_quit;
  980.  
  981. }
  982.  
  983. }
  984.  
  985. }
  986.  
  987. else {
  988.  
  989. // Classes (1: Guillotine Cross - 2: Ranger - 3: Rune Knight)
  990.  
  991. switch (.@class) {
  992.  
  993. case 1:
  994.  
  995. if(.@enchant_type == 2){
  996.  
  997. if(.@enchant_item == 15038)
  998.  
  999. setarray .@enchant_card[0],4700,4701,4702,4703,4750,4751,4752,4753,4754,4764,4765,4817,4818;
  1000.  
  1001. else
  1002.  
  1003. setarray .@enchant_card[0],4700,4701,4702,4703,4819,4766,4767,4808,4809,4810,4811,4820;
  1004.  
  1005. }
  1006.  
  1007. if(.@enchant_type == 5)
  1008.  
  1009. setarray .@enchant_card[0],4730,4731,4732,4733,4750,4751,4752,4753,4754,4859,4860;
  1010.  
  1011. if(.@enchant_type == 6)
  1012.  
  1013. setarray .@enchant_card[0],4700,4730,4740,4720,4796,4797,4801,4802,4791,4792,4787,4788;
  1014.  
  1015. break;
  1016.  
  1017. case 2:
  1018.  
  1019. if(.@enchant_type == 2)
  1020.  
  1021. setarray .@enchant_card[0],4700,4701,4702,4750,4751,4752,4753,4754,4764,4765,4818,4817;
  1022.  
  1023. if(.@enchant_type == 5)
  1024.  
  1025. setarray .@enchant_card[0],4750,4751,4752,4753,4730,4731,4732,4733,4762,4763,4859,4860;
  1026.  
  1027. if(.@enchant_type == 6)
  1028.  
  1029. setarray .@enchant_card[0],4792,4793,4787,4788,4720,4721,4740,4741,4730,4731,4700,4701,4750,4751,4796,4797,4801,4802;
  1030.  
  1031. break;
  1032.  
  1033.  
  1034.  
  1035. case 3:
  1036.  
  1037. if(.@enchant_type == 2){
  1038.  
  1039. if(.@enchant_item == 15036)
  1040.  
  1041. setarray .@enchant_card[0],4791,4792,4793,4740,4741,4742,4743,4797,4798,4799;
  1042.  
  1043. else
  1044.  
  1045. setarray .@enchant_card[0],4791,4796,4797;
  1046.  
  1047. }
  1048.  
  1049. if(.@enchant_type == 5){
  1050.  
  1051. if(.@enchant_item == 2574)
  1052.  
  1053. setarray .@enchant_card[0],4700,4730,4731,4732,4750,4751,4752,4762,4763;
  1054.  
  1055. else
  1056.  
  1057. setarray .@enchant_card[0],4730,4731,4732,4733,4750,4751;
  1058.  
  1059. }
  1060.  
  1061. if(.@enchant_type == 6){
  1062.  
  1063. if(.@enchant_item == 2475)
  1064.  
  1065. setarray .@enchant_card[0],4700,4730,4720,4740,4801,4802,4796,4797,4787,4788,4792,4793;
  1066.  
  1067. else
  1068.  
  1069. setarray .@enchant_card[0],4700,4730,4720,4740,4787;
  1070.  
  1071. }
  1072.  
  1073. break;
  1074.  
  1075. }
  1076.  
  1077. }
  1078.  
  1079. set .@card2,getequipcardid(.@enchant_type,1);
  1080.  
  1081. set .@card3,getequipcardid(.@enchant_type,2);
  1082.  
  1083. set .@card4,getequipcardid(.@enchant_type,3);
  1084.  
  1085. if(.@card2 >= 1) {
  1086.  
  1087. mes "[Artifact Researcher]";
  1088.  
  1089. mes "I enchanted this equipment three times. I'm really sorry, but I can't work on equipment already at its maximum enchantment.";
  1090.  
  1091. close;
  1092.  
  1093. }
  1094.  
  1095. }
  1096.  
  1097. else
  1098.  
  1099. {
  1100.  
  1101. mes "[Artifact Researcher]";
  1102.  
  1103. mes "Can you put the ^FF0000"+getitemname(.@enchant_item)+"^000000 on you? If not, I can't make the enchantment. Thank you.";
  1104.  
  1105. close;
  1106.  
  1107. }
  1108.  
  1109. if(.@card3){
  1110.  
  1111. if (.@enchant_type == 7 || .@enchant_type == 8){
  1112.  
  1113. mes "I can't enchant this item more than two times. Come back with something else.";
  1114.  
  1115. close;
  1116.  
  1117. }
  1118.  
  1119. set .@chance,30;
  1120.  
  1121. }
  1122.  
  1123. else if(.@card4 >=1) {
  1124.  
  1125. set .@chance,60;
  1126.  
  1127. if (.@enchant_type == 7 || .@enchant_type == 8)
  1128.  
  1129. setarray .@enchant_card[0],4700,4740,4730,4720,4793,4788,4802,4797;
  1130.  
  1131. }
  1132.  
  1133. else {
  1134.  
  1135. set .@chance,100;
  1136.  
  1137. if (.@enchant_type == 7 || .@enchant_type == 8)
  1138.  
  1139. setarray .@enchant_card[0],4700,4740,4730,4720,4792,4787,4801,4796;
  1140.  
  1141. }
  1142.  
  1143. set .@cardenchant,.@enchant_card[rand(0,getarraysize(.@enchant_card)-1)];
  1144.  
  1145. set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
  1146.  
  1147. set .@ccard,getequipcardid(.@enchant_type,0);
  1148.  
  1149.  
  1150.  
  1151. callfunc "EnchantItem",1,100000,.@chance,.@enchant_item,.@enchant_refine,.@cardenchant,.@card4,.@card3,.@ccard;
  1152.  
  1153. }
  1154.  
  1155.  
  1156.  
  1157.  
  1158.  
  1159. L_quit:
  1160.  
  1161. mes "[Artifact Researcher]";
  1162.  
  1163. mes "Okay, Come back to me if you have need of my services.";
  1164.  
  1165. next;
  1166.  
  1167. mes "[Artifact Researcher]";
  1168.  
  1169. mes "Have a good day!~";
  1170.  
  1171. close;
  1172.  
  1173. }
  1174.  
  1175.  
  1176.  
  1177. mora,99,93,5 script Artifact Crafter 495,{
  1178.  
  1179. mes "[Artifact Crafter]";
  1180.  
  1181. mes "Hi, young adventurer. You may have already heard of me. I am an enchanter of Mora.";
  1182.  
  1183. next;
  1184.  
  1185. mes "[Artifact Crafter]";
  1186.  
  1187. mes "If you need to enchant a weapon or equipment, I can help you.";
  1188.  
  1189. next;
  1190.  
  1191. mes "[Artifact Crafter]";
  1192.  
  1193. mes "Is that what you're here for? What kind of equipment would you like to enchant?";
  1194.  
  1195. next;
  1196.  
  1197. switch(select("Weapon.:Armor.:Accessory.:Footgear.:Cancel.")) {
  1198.  
  1199. case 1:
  1200.  
  1201. set .@enchant_type,4;
  1202.  
  1203. set .@enchant_item,2007;
  1204.  
  1205. set .@itemtype$,"Staff";
  1206.  
  1207. break;
  1208.  
  1209. case 2:
  1210.  
  1211. set .@enchant_type,2;
  1212.  
  1213. set .@enchant_item,15025;
  1214.  
  1215. set .@itemtype$,"Robe";
  1216.  
  1217. break;
  1218.  
  1219. case 3:
  1220.  
  1221. set .@enchant_item,2859;
  1222.  
  1223. set .@itemtype$,"Orb";
  1224.  
  1225. break;
  1226.  
  1227. case 4:
  1228.  
  1229. set .@enchant_type,6;
  1230.  
  1231. set .@enchant_item,2467;
  1232.  
  1233. set .@itemtype$,"Shoes";
  1234.  
  1235. break;
  1236.  
  1237. case 5:
  1238.  
  1239. mes "[Artifact Crafter]";
  1240.  
  1241. mes "Okay, Don't hesitate to come back to me if you ever need my services.";
  1242.  
  1243. next;
  1244.  
  1245. mes "[Artifact Crafter]";
  1246.  
  1247. mes "Have a good day!";
  1248.  
  1249. close;
  1250.  
  1251. }
  1252.  
  1253.  
  1254.  
  1255. mes "[Artifact Crafter]";
  1256.  
  1257. mes "Before I ask what equipment you want to enchant. I have to give you some information.";
  1258.  
  1259. next;
  1260.  
  1261. mes "[Artifact Crafter]";
  1262.  
  1263. mes "You must have the equipment to be enchanted equiped.";
  1264.  
  1265. mes "You also can't MAKE the enchantment succeed. It is random.";
  1266.  
  1267. next;
  1268.  
  1269. mes "[Artifact Crafter]";
  1270.  
  1271. mes "Don't worry. I will tell you again before the enchantment starts.";
  1272.  
  1273. next;
  1274.  
  1275. mes "[Artifact Crafter]";
  1276.  
  1277. mes "So, which equipment do you want me to enchant?";
  1278.  
  1279. next;
  1280.  
  1281. switch(select("Golden Rod "+.@itemtype$+".:Aqua "+.@itemtype$+".:Crimson "+.@itemtype$+".:Forest "+.@itemtype$+".:Cancel.")) {
  1282.  
  1283. case 1:
  1284.  
  1285. break;
  1286.  
  1287. case 2:
  1288.  
  1289. set .@enchant_item,.@enchant_item+1;
  1290.  
  1291. break;
  1292.  
  1293. case 3:
  1294.  
  1295. set .@enchant_item,.@enchant_item+2;
  1296.  
  1297. break;
  1298.  
  1299. case 4:
  1300.  
  1301. set .@enchant_item,.@enchant_item+3;
  1302.  
  1303. break;
  1304.  
  1305. case 5:
  1306.  
  1307. mes "[Artifact Crafter]";
  1308.  
  1309. mes "Okay, Don't hesitate to come back to me if you ever need my services.";
  1310.  
  1311. next;
  1312.  
  1313. mes "[Artifact Crafter]";
  1314.  
  1315. mes "Have a good day!";
  1316.  
  1317. close;
  1318.  
  1319. }
  1320.  
  1321.  
  1322.  
  1323. mes "[Artifact Crafter]";
  1324.  
  1325. mes "Very good, we can now start the enchantment process...";
  1326.  
  1327. mes "So, You want to enchant the item ^FF0000"+getitemname(.@enchant_item)+"^000000... That is a great choice.";
  1328.  
  1329. next;
  1330.  
  1331. mes "[Artifact Crafter]";
  1332.  
  1333. mes "The enchantment is random. You can not choose the statistics that affect your equipment.";
  1334.  
  1335. next;
  1336.  
  1337. mes "[Artifact Crafter]";
  1338.  
  1339. mes "So I have to ask you this before you start.";
  1340.  
  1341. mes "Will you proceed with the enchantment?";
  1342.  
  1343. next;
  1344.  
  1345. if(select("Enchant Equipment.","Don't enchant equipment.") == 1) {
  1346.  
  1347. mes "[Artifact Crafter]";
  1348.  
  1349. mes "I also forgot to specify that each spell will cost a low amount of ^0000FF5 Mora Coin^000000.";
  1350.  
  1351. mes "Lets start the enchantment process now...";
  1352.  
  1353. next;
  1354.  
  1355. if(countitem(.@enchant_item) > 1)
  1356.  
  1357. {
  1358.  
  1359. mes "==Information==";
  1360.  
  1361. mes "You must have only one of the item to enchant.";
  1362.  
  1363. next;
  1364.  
  1365. mes "==Information==";
  1366.  
  1367. mes "Please remove the duplicates of the item.";
  1368.  
  1369. close;
  1370.  
  1371. }
  1372.  
  1373. if(isequipped(.@enchant_item)) {
  1374.  
  1375. if(.@enchant_item == 2859 || .@enchant_item == 2860 || .@enchant_item == 2861 || .@enchant_item == 2862)
  1376.  
  1377. {
  1378.  
  1379. if(.@enchant_item == 2859) {
  1380.  
  1381. if(getequipid(7) == 2859) set .@enchant_type,7;
  1382.  
  1383. else set.@enchant_type,8;
  1384.  
  1385. }
  1386.  
  1387. if(.@enchant_item == 2860) {
  1388.  
  1389. if(getequipid(7) == 2860) set .@enchant_type,7;
  1390.  
  1391. else set.@enchant_type,8;
  1392.  
  1393. }
  1394.  
  1395. if(.@enchant_item == 2861) {
  1396.  
  1397. if(getequipid(7) == 2861) set .@enchant_type,7;
  1398.  
  1399. else set.@enchant_type,8;
  1400.  
  1401. }
  1402.  
  1403. if(.@enchant_item == 2862) {
  1404.  
  1405. if(getequipid(7) == 2862) set .@enchant_type,7;
  1406.  
  1407. else set.@enchant_type,8;
  1408.  
  1409. }
  1410.  
  1411. }
  1412.  
  1413. setarray .@enchant_card[0],4801,4802,4795,4796,4710,4711,4713,4720,4721,4722,4760,4761,4785,4786;
  1414.  
  1415. set .@card2,getequipcardid(.@enchant_type,1);
  1416.  
  1417. set .@card3,getequipcardid(.@enchant_type,2);
  1418.  
  1419. set .@card4,getequipcardid(.@enchant_type,3);
  1420.  
  1421. if(.@card2) {
  1422.  
  1423. mes "[Artifact Crafter]";
  1424.  
  1425. mes "I enchanted this equipment three times. I'm really sorry, but I can't work on equipment already at its maximum enchantment.";
  1426.  
  1427. close;
  1428.  
  1429. }
  1430.  
  1431. }
  1432.  
  1433. else
  1434.  
  1435. {
  1436.  
  1437. mes "[Artifact Crafter]";
  1438.  
  1439. mes "Can you put the ^FF0000"+getitemname(.@enchant_item)+"^000000 on you? If not, I can't make the enchantment. Thank you.";
  1440.  
  1441. close;
  1442.  
  1443. }
  1444.  
  1445. if(.@card3) {
  1446.  
  1447. if(.@enchant_type == 4) {
  1448.  
  1449. mes "I can't enchant this item more than two times. Come back with something else.";
  1450.  
  1451. close;
  1452.  
  1453. }
  1454.  
  1455. set .@chance,30;
  1456.  
  1457. }
  1458.  
  1459. else if(.@card4)
  1460.  
  1461. set .@chance,60;
  1462.  
  1463. else
  1464.  
  1465. set .@chance,100;
  1466.  
  1467. set .@cardenchant,.@enchant_card[rand(0,getarraysize(.@enchant_card)-1)];
  1468.  
  1469. set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
  1470.  
  1471. set .@ccard,getequipcardid(.@enchant_type,0);
  1472.  
  1473.  
  1474.  
  1475. callfunc "EnchantItem",5,0,.@chance,.@enchant_item,.@enchant_refine,.@cardenchant,.@card4,.@card3,.@ccard;
  1476.  
  1477. }
  1478.  
  1479.  
  1480.  
  1481. mes "[Artifact Crafter]";
  1482.  
  1483. mes "Okay, Don't hesitate to come back to me if you ever need my services.";
  1484.  
  1485. next;
  1486.  
  1487. mes "[Artifact Crafter]";
  1488.  
  1489. mes "Have a good day!";
  1490.  
  1491. close;
  1492.  
  1493. }
  1494.  
  1495.  
  1496.  
  1497. mora,98,66,7 script Master of Relics 518,{
  1498.  
  1499. mes "[Master of Relics]";
  1500.  
  1501. mes "Hello to you, if you are a clergymen then you are in the right place.";
  1502.  
  1503. next;
  1504.  
  1505. mes "[Master of Relics]";
  1506.  
  1507. mes "I am capable of enchanting a certain number of items, if you are interested.";
  1508.  
  1509. next;
  1510.  
  1511. mes "[Master of Relics]";
  1512.  
  1513. mes "Which item type do you want me to enchant?";
  1514.  
  1515. next;
  1516.  
  1517. switch(select("Weapon.:Armor.:Footgear.:Garment.:Other.:Cancel.")) {
  1518.  
  1519. case 1:
  1520.  
  1521. set .@enchant_type,4;
  1522.  
  1523. setarray .@enchantlist[0],1657,16013;
  1524.  
  1525. setarray .@enchantlist$[0],"Wand of Affection","Mace of Judgement";
  1526.  
  1527. break;
  1528.  
  1529. case 2:
  1530.  
  1531. set .@enchant_type,2;
  1532.  
  1533. setarray .@enchantlist[0],15029,15030;
  1534.  
  1535. setarray .@enchantlist$[0],"Robe of Affection","Robe of Judgement";
  1536.  
  1537. break;
  1538.  
  1539. case 3:
  1540.  
  1541. set .@enchant_type,6;
  1542.  
  1543. setarray .@enchantlist[0],2471,2472;
  1544.  
  1545. setarray .@enchantlist$[0],"Shoes of Affection","Shoes of Judgement";
  1546.  
  1547. break;
  1548.  
  1549. case 4:
  1550.  
  1551. set .@enchant_type,5;
  1552.  
  1553. setarray .@enchantlist[0],2569,2570;
  1554.  
  1555. setarray .@enchantlist$[0],"Shawl of Affection","Shawl of Judgement";
  1556.  
  1557. break;
  1558.  
  1559. case 5:
  1560.  
  1561. setarray .@enchantlist[0],2156,2864,2865,2866;
  1562.  
  1563. setarray .@enchantlist$[0],"Bible of Promise","Light of Cure","Seal of Cathedral","Ring of Archbishop";
  1564.  
  1565. break;
  1566.  
  1567. case 6:
  1568.  
  1569. mes "[Master of Relics]";
  1570.  
  1571. mes "If you ever need me, you know where I am.";
  1572.  
  1573. next;
  1574.  
  1575. mes "[Master of Relics]";
  1576.  
  1577. mes "Have a good day!";
  1578.  
  1579. close;
  1580.  
  1581. }
  1582.  
  1583.  
  1584.  
  1585. mes "[Master of Relics]";
  1586.  
  1587. mes "Before I ask what equipment you want to enchant. I have to give you some information.";
  1588.  
  1589. next;
  1590.  
  1591. mes "[Master of Relics]";
  1592.  
  1593. mes "You must have the equipment to be enchanted equiped.";
  1594.  
  1595. mes "You also can't MAKE the enchantment succeed. It is random.";
  1596.  
  1597. next;
  1598.  
  1599. mes "[Master of Relics]";
  1600.  
  1601. mes "Don't worry. I will tell you again before the enchantment starts.";
  1602.  
  1603. next;
  1604.  
  1605. mes "[Master of Relics]";
  1606.  
  1607. mes "So, which equipment do you want me to enchant?";
  1608.  
  1609. next;
  1610.  
  1611. while(.@i < getarraysize(.@enchantlist$)){
  1612.  
  1613. set .@menu$, .@menu$ + ":" + .@enchantlist$[.@i];
  1614.  
  1615. .@i++;
  1616.  
  1617. }
  1618.  
  1619. set .@menu$, .@menu$ + ":Cancel";
  1620.  
  1621. set .@enchant_item,.@enchantlist[select(.@menu$)-2];
  1622.  
  1623.  
  1624.  
  1625. if(.@enchant_item) {
  1626.  
  1627. mes "[Master of Relics]";
  1628.  
  1629. mes "Okay, we'll start the enchantment ceremony.";
  1630.  
  1631. mes "So you want to enchant the equipment ^FF0000"+getitemname(.@enchant_item)+"^000000. Correct?";
  1632.  
  1633. next;
  1634.  
  1635. mes "[Master of Relics]";
  1636.  
  1637. mes "So, I have to ask you this before we start.";
  1638.  
  1639. mes "Are you sure you wish to proceed with this enchantment?";
  1640.  
  1641. next;
  1642.  
  1643. if(select("Commence enchantment.","Cancel enchantment.") == 1) {
  1644.  
  1645. mes "[Master of Relics]";
  1646.  
  1647. mes "I also forgot to tell you, each spell costs ^0000FF5 Mora Coin^000000.";
  1648.  
  1649. mes "So with that, we will begin the process.";
  1650.  
  1651. next;
  1652.  
  1653. if(countitem(.@enchant_item) > 1)
  1654.  
  1655. {
  1656.  
  1657. mes "==Information==";
  1658.  
  1659. mes "You must have only one of the item to enchant.";
  1660.  
  1661. next;
  1662.  
  1663. mes "==Information==";
  1664.  
  1665. mes "Please remove the duplicates of the item.";
  1666.  
  1667. close;
  1668.  
  1669. }
  1670.  
  1671. if(isequipped(.@enchant_item)) {
  1672.  
  1673. // Bible of Promise
  1674.  
  1675. if(.@enchant_item == 2156) {
  1676.  
  1677. set .@enchant_type,3;
  1678.  
  1679. setarray .@enchant_card[0],4766,4740,4710,4711,4720,4721,4799,4764;
  1680.  
  1681. }
  1682.  
  1683. // Light of Cure
  1684.  
  1685. if(.@enchant_item == 2864) {
  1686.  
  1687. if(getequipid(7) == 2864) set .@enchant_type,7;
  1688.  
  1689. else set.@enchant_type,8;
  1690.  
  1691. setarray .@enchant_card[0],4710,4711,4799,4720,4721,4740,4741,4766,4803;
  1692.  
  1693. }
  1694.  
  1695. // Seal of Cathedral
  1696.  
  1697. if(.@enchant_item == 2865) {
  1698.  
  1699. if(getequipid(7) == 2865) set .@enchant_type,7;
  1700.  
  1701. else set.@enchant_type,8;
  1702.  
  1703. setarray .@enchant_card[0],4720,4721,4740,4741,4711,4788,4799,4766,4804;
  1704.  
  1705. }
  1706.  
  1707. // Ring of Archbishop
  1708.  
  1709. if(.@enchant_item == 2866) {
  1710.  
  1711. if(getequipid(7) == 2866) set .@enchant_type,7;
  1712.  
  1713. else set.@enchant_type,8;
  1714.  
  1715. setarray .@enchant_card[0],4720,4721,4711,4740,4741,4766,4805,4788,4799;
  1716.  
  1717. }
  1718.  
  1719. // Wand of Affection
  1720.  
  1721. if(.@enchant_item == 1657)
  1722.  
  1723. setarray .@enchant_card[0],4801,4740,4741,4710,4711,4714,4720,4721,4760;
  1724.  
  1725. // Mace of Judgement
  1726.  
  1727. if(.@enchant_item == 16013)
  1728.  
  1729. setarray .@enchant_card[0],4720,4721,4767,4700,4701,4702,4703,4704,4740,4741;
  1730.  
  1731. // Shoes of Affection
  1732.  
  1733. if(.@enchant_item == 2471)
  1734.  
  1735. setarray .@enchant_card[0],4720,4721,4710,4711,4766,4788,4799;
  1736.  
  1737. // Shoes of Judgement
  1738.  
  1739. if(.@enchant_item == 2472)
  1740.  
  1741. setarray .@enchant_card[0],4721,4722,4723,4710,4711,4788,4766;
  1742.  
  1743. // Robe of Affection
  1744.  
  1745. if(.@enchant_item == 15029)
  1746.  
  1747. setarray .@enchant_card[0],4720,4721,4722,4710,4711,4766,4703,4764,4799,4788;
  1748.  
  1749. // Robe of Judgement
  1750.  
  1751. if(.@enchant_item == 15030)
  1752.  
  1753. setarray .@enchant_card[0],4720,4721,4710,4711,4766,4764,4799,4788;
  1754.  
  1755. // Shawl of Affection
  1756.  
  1757. if(.@enchant_item == 2569)
  1758.  
  1759. setarray .@enchant_card[0],4720,4721,4710,4711,4788,4764,4799;
  1760.  
  1761. // Shawl of Judgement
  1762.  
  1763. if(.@enchant_item == 2570)
  1764.  
  1765. setarray .@enchant_card[0],4720,4721,4710,4711,4799;
  1766.  
  1767. set .@card3,getequipcardid(.@enchant_type,2);
  1768.  
  1769. set .@card4,getequipcardid(.@enchant_type,3);
  1770.  
  1771. if(.@card2) {
  1772.  
  1773. mes "[Master of Relics]";
  1774.  
  1775. mes "I enchanted this equipment three times. I'm really sorry, but I can't work on equipment already at its maximum enchantment.";
  1776.  
  1777. close;
  1778.  
  1779. }
  1780.  
  1781. }
  1782.  
  1783. else
  1784.  
  1785. {
  1786.  
  1787. mes "[Master of Relics]";
  1788.  
  1789. mes "Could you please equip the object? It is much easier to enchant that way.";
  1790.  
  1791. close;
  1792.  
  1793. }
  1794.  
  1795.  
  1796.  
  1797. if(.@card3) {
  1798.  
  1799. if(.@enchant_type == 4 || (.@enchant_item > 2863 && .@enchant_item < 2867)) {
  1800.  
  1801. mes "I can't enchant this item more than two times. Come back with something else.";
  1802.  
  1803. close;
  1804.  
  1805. }
  1806.  
  1807. set .@chance,30;
  1808.  
  1809. }
  1810.  
  1811. else if(.@card4)
  1812.  
  1813. set .@chance,60;
  1814.  
  1815. else
  1816.  
  1817. set .@chance,100;
  1818.  
  1819. set .@cardenchant,.@enchant_card[rand(0,getarraysize(.@enchant_card)-1)];
  1820.  
  1821. set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
  1822.  
  1823. set .@ccard,getequipcardid(.@enchant_type,0);
  1824.  
  1825.  
  1826.  
  1827. callfunc "EnchantItem",5,0,.@chance,.@enchant_item,.@enchant_refine,.@cardenchant,.@card4,.@card3,.@ccard;
  1828.  
  1829. }
  1830.  
  1831. }
  1832.  
  1833.  
  1834.  
  1835. mes "[Master of Relics]";
  1836.  
  1837. mes "If you ever need me, you know where I am.";
  1838.  
  1839. next;
  1840.  
  1841. mes "[Master of Relics]";
  1842.  
  1843. mes "Have a good day!";
  1844.  
  1845. close;
  1846.  
  1847. }
  1848.  
  1849.  
  1850.  
  1851. mora,152,97,4 script Guardian of Power#Maset 515,{
  1852.  
  1853. mes "[Guardian of Power]";
  1854.  
  1855. mes "Welcome, I am the Guardian of Power";
  1856.  
  1857. mes "We have equipment in Mora that you will find nowhere else.";
  1858.  
  1859. next;
  1860.  
  1861. mes "[Guardian of Power]";
  1862.  
  1863. mes "We sell each equipment for ^0000FF10 Mora Coin^000000";
  1864.  
  1865. mes "Would you take a look at our collection?";
  1866.  
  1867. next;
  1868.  
  1869. if(select("Look at equipment","Cancel.") == 1) {
  1870.  
  1871. mes "[Guardian of Power]";
  1872.  
  1873. mes "So, here are the sets of equipment that I have at the moment. Please take your time to look.";
  1874.  
  1875. next;
  1876.  
  1877. switch(select("Ur's Set.:Peuz's Set.:White Wing Set.:Black Wing Set.:Sapha Set.:Nab Set.:Cancel.")) {
  1878.  
  1879. case 1:
  1880.  
  1881. mes "[Guardian of Power]";
  1882.  
  1883. mes "Ur's Set, specialized for Rune Knights is an excellent choice.";
  1884.  
  1885. setarray .@itemlist$[0],"Ur's Greave.","Ur's Manteau.","Ur's Plate.","Ur's Seal.";
  1886.  
  1887. setarray .@itemlist[0],2475,2574,15036,2883;
  1888.  
  1889. break;
  1890.  
  1891. case 2:
  1892.  
  1893. mes "[Guardian of Power]";
  1894.  
  1895. mes "Peuz's Set, specialized for Rune Knights is an excellent choice.";
  1896.  
  1897. setarray .@itemlist$[0],"Peuz's Greave.","Peuz's Manteau.","Peuz's Plate.","Peuz's Seal.";
  1898.  
  1899. setarray .@itemlist[0],2476,2575,15037,2884;
  1900.  
  1901. break;
  1902.  
  1903. case 3:
  1904.  
  1905. mes "[Guardian of Power]";
  1906.  
  1907. mes "White Wing Set, specialized for Rangers is an excellent choice.";
  1908.  
  1909. setarray .@itemlist$[0],"White Wing Boots.","White Wing Manteau.","White Wing Suit.","White Wing Brooch.";
  1910.  
  1911. setarray .@itemlist[0],2479,2580,15042,2890;
  1912.  
  1913. break;
  1914.  
  1915. case 4:
  1916.  
  1917. mes "[Guardian of Power]";
  1918.  
  1919. mes "Black Wing Set, specialized for Rangers is an excellent choice.";
  1920.  
  1921. setarray .@itemlist$[0],"Black Wing Boots.","Black Wing Manteau.","Black Wing Suit.","Black Wing Brooch.";
  1922.  
  1923. setarray .@itemlist[0],2480,2581,15043,2891;
  1924.  
  1925. break;
  1926.  
  1927. case 5:
  1928.  
  1929. mes "[Guardian of Power]";
  1930.  
  1931. mes "Sapha Set, specialized for Guillotine Crosses is an excellent choice.";
  1932.  
  1933. setarray .@itemlist$[0],"Sapha Shoes.","Sapha Hood.","Sapha Cloth.","Sapha Ring.";
  1934.  
  1935. setarray .@itemlist[0],2477,2577,15038,2886;
  1936.  
  1937. break;
  1938.  
  1939. case 6:
  1940.  
  1941. mes "[Guardian of Power]";
  1942.  
  1943. mes "Nab Set, specialized for Guillotine Crosses is an excellent choice.";
  1944.  
  1945. setarray .@itemlist$[0],"Nab Shoes.","Nab Hood.","Nab Cloth.","Nab Ring.";
  1946.  
  1947. setarray .@itemlist[0],2478,2578,15039,2887;
  1948.  
  1949. break;
  1950.  
  1951. case 7:
  1952.  
  1953. goto L_quit;
  1954.  
  1955. }
  1956.  
  1957. }
  1958.  
  1959. mes "To get the full bonus. You must buy all the 4 piece of equipment :";
  1960.  
  1961. mes "^0000FF"+.@itemlist$[0]+"^000000";
  1962.  
  1963. mes "^0000FF"+.@itemlist$[1]+"^000000";
  1964.  
  1965. mes "^0000FF"+.@itemlist$[2]+"^000000";
  1966.  
  1967. mes "^0000FF"+.@itemlist$[3]+"^000000";
  1968.  
  1969. next;
  1970.  
  1971. mes "[Guardian of Power]";
  1972.  
  1973. mes "So you want to buy one of these piece of equipment for ^0000FF10 Mora Coins^000000?";
  1974.  
  1975. next;
  1976.  
  1977. mes "[Guardian of Power]";
  1978.  
  1979. mes "Which item would you like?";
  1980.  
  1981. next;
  1982.  
  1983. while(.@i < 4){
  1984.  
  1985. set .@menu$, .@menu$ + ":" + .@itemlist$[.@i];
  1986.  
  1987. .@i++;
  1988.  
  1989. }
  1990.  
  1991. set .@menu$, .@menu$ + ":Cancel";
  1992.  
  1993. set @guardian_item,.@itemlist[select(.@menu$)-2];
  1994.  
  1995. if(@guardian_item) {
  1996.  
  1997. mes "[Guardian of Power]";
  1998.  
  1999. mes "Are you sure you want to purchase the following equipment :";
  2000.  
  2001. mes "^FF0000"+getitemname(@guardian_item)+"^000000";
  2002.  
  2003. mes "for ^0000FF10 Mora Coins^000000?";
  2004.  
  2005. next;
  2006.  
  2007. if(select("Purchase equipment.","Cancel.") == 1) {
  2008.  
  2009. if(countitem(6380) >=10) {
  2010.  
  2011. delitem 6380,10;
  2012.  
  2013. getitem @guardian_item,1;
  2014.  
  2015. mes "[Guardian of Power]";
  2016.  
  2017. mes "Here is your ^FF0000"+getitemname(@guardian_item)+"^000000!";
  2018.  
  2019. mes "Take care now.";
  2020.  
  2021. next;
  2022.  
  2023. mes "[Guardian of Power]";
  2024.  
  2025. mes "It was a pleasure doing business with you. If you ever want more equipment, do not hesitate to come back.";
  2026.  
  2027. next;
  2028.  
  2029. mes "[Guardian of Power]";
  2030.  
  2031. mes "Have a good day!";
  2032.  
  2033. close;
  2034.  
  2035. }
  2036.  
  2037. else
  2038.  
  2039. {
  2040.  
  2041. mes "[Guardian of Power]";
  2042.  
  2043. mes "You do not seem to have enough ^0000FFMora Coin^000000 to pay for the equipment.";
  2044.  
  2045. mes "Check your pockets before returning to buy equipment.";
  2046.  
  2047. next;
  2048.  
  2049. mes "[Guardian of Power]";
  2050.  
  2051. mes "Come back when you have enough ^0000FFMora Coins^000000.";
  2052.  
  2053. mes "Have a good day!";
  2054.  
  2055. close;
  2056.  
  2057. }
  2058.  
  2059. }
  2060.  
  2061. }
  2062.  
  2063.  
  2064.  
  2065. L_quit:
  2066.  
  2067. mes "[Guardian of Power]";
  2068.  
  2069. mes "Okay, come back when you want if you ever need equipment.";
  2070.  
  2071. next;
  2072.  
  2073. mes "[Guardian of Power]";
  2074.  
  2075. mes "Good journey to you, adventurer~";
  2076.  
  2077. close;
  2078.  
  2079. }
  2080.  
  2081.  
  2082.  
  2083. mora,105,75,4 script Guardian of Artifacts 495,{
  2084.  
  2085. mes "[Guardian of Artifacts]";
  2086.  
  2087. mes "Welcome! If you like using magic you are in the right place.";
  2088.  
  2089. mes "I sell magical equipment ^0000FF10 Mora Coins^000000 each.";
  2090.  
  2091. next;
  2092.  
  2093. mes "However, I can only give you a random equipment piece from the type you choose.";
  2094.  
  2095. next;
  2096.  
  2097. set .@type,select("Staff.:Shoes.:Robe.:Accessory.:Cancel.");
  2098.  
  2099. switch(.@type) {
  2100.  
  2101. case 1:
  2102.  
  2103. setarray .@itemlist[0],2007,2008,2009,2010;
  2104.  
  2105. set .@type$,"Staff";
  2106.  
  2107. break;
  2108.  
  2109. case 2:
  2110.  
  2111. setarray .@itemlist[0],2467,2468,2469,2470;
  2112.  
  2113. set .@type$,"Shoe";
  2114.  
  2115. break;
  2116.  
  2117. case 3:
  2118.  
  2119. setarray .@itemlist[0],15025,15026,15027,15028;
  2120.  
  2121. set .@type$,"Robe";
  2122.  
  2123. break;
  2124.  
  2125. case 4:
  2126.  
  2127. setarray .@itemlist[0],2859,2860,2861,2862;
  2128.  
  2129. set .@type$,"Orb";
  2130.  
  2131. break;
  2132.  
  2133. case 5:
  2134.  
  2135. mes "[Guardian of Artifacts]";
  2136.  
  2137. mes "If you have need of anything, you know where to find me.";
  2138.  
  2139. mes "Have a good day!";
  2140.  
  2141. close;
  2142.  
  2143. }
  2144.  
  2145.  
  2146.  
  2147. mes "[Guardian of Artifacts]";
  2148.  
  2149. mes "Here is a list of items you can get from that type.";
  2150.  
  2151. mes "^0000FFGolden Rod "+.@type$+"^000000";
  2152.  
  2153. mes "^0000FFAqua "+.@type$+"^000000";
  2154.  
  2155. mes "^0000FFCrimson "+.@type$+"^000000";
  2156.  
  2157. mes "^0000FFForest "+.@type$+"^000000";
  2158.  
  2159. next;
  2160.  
  2161. mes "[Guardian of Artifacts]";
  2162.  
  2163. mes "Are you sure you want to proceed with the purchase of this equipment type?";
  2164.  
  2165. next;
  2166.  
  2167. if(select("Continue with Purchase.","Cancel.") == 1){
  2168.  
  2169. if(countitem(6380) >=10) {
  2170.  
  2171. set @artifact_item,.@itemlist[rand(0,getarraysize(.@itemlist)-1)];
  2172.  
  2173. delitem 6380,10;
  2174.  
  2175. getitem @artifact_item,1;
  2176.  
  2177. mes "[Guardian of Artifacts]";
  2178.  
  2179. mes "Thank you for your purchase. You got a ^FF0000"+getitemname(@artifact_item)+"^000000.";
  2180.  
  2181. mes "Take care and remember, this item is powerful and difficult to control!";
  2182.  
  2183. next;
  2184.  
  2185. mes "[Guardian of Artifacts]";
  2186.  
  2187. mes "Have a good day, Return to me if you want to get another piece of equipment!";
  2188.  
  2189. close;
  2190.  
  2191. }
  2192.  
  2193. else
  2194.  
  2195. {
  2196.  
  2197. mes "[Guardian of Artifacts]";
  2198.  
  2199. mes "Are you trying to rob me?! It seems that you don't have enough ^0000FF10 Mora Coins^000000 to obtain this item.";
  2200.  
  2201. mes "Return to me when you have enough money to buy the item!";
  2202.  
  2203. close;
  2204.  
  2205. }
  2206.  
  2207. }
  2208.  
  2209.  
  2210.  
  2211. mes "[Guardian of Artifacts]";
  2212.  
  2213. mes "If you have need of anything, you know where to find me.";
  2214.  
  2215. mes "Have a good day!";
  2216.  
  2217. close;
  2218.  
  2219. }
  2220.  
  2221.  
  2222.  
  2223. mora,87,88,6 script Keeper of Secrets 495,{
  2224.  
  2225. mes "[Keeper of Secrets]";
  2226.  
  2227. mes "Welcome, if you are someone from the church of Prontera, you will be delighted with the equipment I sell.";
  2228.  
  2229. mes "Each item that I sell will cost you ^0000FF10 Mora Coins^000000.";
  2230.  
  2231. next;
  2232.  
  2233. mes "However, I can only give you a random equipment piece from the type you choose.";
  2234.  
  2235. set .@type,select("Weapon.:Shoes.:Robe.:Manteau.:Other.:Cancel.");
  2236.  
  2237. switch(.@type) {
  2238.  
  2239. case 1:
  2240.  
  2241. setarray .@itemlist[0],1657,16013;
  2242.  
  2243. setarray .@itemlist$[0],"Wand of Affection.","Mace of Judgement.";
  2244.  
  2245. set .@type$,"Weapon";
  2246.  
  2247. break;
  2248.  
  2249. case 2:
  2250.  
  2251. setarray .@itemlist[0],2471,2472;
  2252.  
  2253. setarray .@itemlist$[0],"Shoes of Affection.","Shoes of Judgement.";
  2254.  
  2255. set .@type$,"Shoe";
  2256.  
  2257. break;
  2258.  
  2259. case 3:
  2260.  
  2261. setarray .@itemlist[0],15029,15030;
  2262.  
  2263. setarray .@itemlist$[0],"Robe of Affection.","Robe of Judgement.";
  2264.  
  2265. set .@type$,"Robe";
  2266.  
  2267. break;
  2268.  
  2269. case 4:
  2270.  
  2271. setarray .@itemlist[0],2569,2570;
  2272.  
  2273. setarray .@itemlist$[0],"Shawn of Affection.","Shawn of Judgement";
  2274.  
  2275. set .@type$,"Manteau";
  2276.  
  2277. break;
  2278.  
  2279. case 5:
  2280.  
  2281. setarray .@itemlist[0],2156,2864,2865,2866;
  2282.  
  2283. setarray .@itemlist$[0],"Bible of Promise.","Light of Cure.","Seal of Cathedral.","Ring of Arch Bishop.";
  2284.  
  2285. set .@type$,"Other";
  2286.  
  2287. break;
  2288.  
  2289. while(.@i < getarraysize(.@itemlist)){
  2290.  
  2291. if(countitem(.@itemlist[.@i])) {
  2292.  
  2293. mes "I can't give you another one of these items while you have the same type already in your inventory.";
  2294.  
  2295. next;
  2296.  
  2297. mes "Would you like to trade in your current accessory for ^0000FF10 Mora Coins^000000?";
  2298.  
  2299. if(select("Sure.","Nah.") == 1){
  2300.  
  2301. mes "You will lose any enchantments you have on this accessory. Are you positive you want to trade it in?";
  2302.  
  2303. if(select("Yes.","No.") == 1){
  2304.  
  2305. next;
  2306.  
  2307. delitem .@itemlist[.@i],1;
  2308.  
  2309. getitem 6380,10;
  2310.  
  2311. mes "All done!";
  2312.  
  2313. }
  2314.  
  2315. }
  2316.  
  2317. close;
  2318.  
  2319. }
  2320.  
  2321. .@i++;
  2322.  
  2323. }
  2324.  
  2325. break;
  2326.  
  2327. case 6:
  2328.  
  2329. mes "[Keeper of Secrets]";
  2330.  
  2331. mes "Okay, return to me if you change your mind~";
  2332.  
  2333. close;
  2334.  
  2335. }
  2336.  
  2337. next;
  2338.  
  2339. mes "[Keeper of Secrets]";
  2340.  
  2341. mes "Here is a list of items you can get from that type.";
  2342.  
  2343. if(.@type == 5) {
  2344.  
  2345. mes "^0000FF"+.@itemlist$[0]+"^000000";
  2346.  
  2347. mes "^0000FF"+.@itemlist$[1]+"^000000";
  2348.  
  2349. mes "^0000FF"+.@itemlist$[2]+"^000000";
  2350.  
  2351. mes "^0000FF"+.@itemlist$[3]+"^000000";
  2352.  
  2353. }
  2354.  
  2355. else{
  2356.  
  2357. mes "^0000FF"+.@itemlist$[0]+"^000000";
  2358.  
  2359. mes "^0000FF"+.@itemlist$[1]+"^000000";
  2360.  
  2361. }
  2362.  
  2363. next;
  2364.  
  2365.  
  2366.  
  2367. mes "[Keeper of Secrets]";
  2368.  
  2369. mes "Are you sure you want to buy something of the ^0000FF"+.@type$+"^000000 category for ^0000FF10 Mora Coins^000000?";
  2370.  
  2371.  
  2372.  
  2373. if(select("Buy.","No.") == 1) {
  2374.  
  2375. if(countitem(6380) >=10) {
  2376.  
  2377. set @keepersecret_item,.@itemlist[rand(0,getarraysize(.@itemlist)-1)];
  2378.  
  2379. delitem 6380,10;
  2380.  
  2381. getitem @keepersecret_item,1;
  2382.  
  2383. mes "[Keeper of Secrets]";
  2384.  
  2385. mes "Thank you for purchasing ^FF0000"+getitemname(@keepersecret_item)+"^000000!";
  2386.  
  2387. mes "If you need to get more items, don't hesitate to return to see me.";
  2388.  
  2389. next;
  2390.  
  2391. mes "[Keeper of Secrets]";
  2392.  
  2393. mes "Have a good day!";
  2394.  
  2395. close;
  2396.  
  2397. }
  2398.  
  2399. else {
  2400.  
  2401. mes "[Keeper of Secrets]";
  2402.  
  2403. mes "Unfortunately you do not seem to have enough Mora Coin for this. Return to me when you have enough money!";
  2404.  
  2405. close;
  2406.  
  2407. }
  2408.  
  2409. }
  2410.  
  2411.  
  2412.  
  2413. mes "[Keeper of Secrets]";
  2414.  
  2415. mes "Okay, return to me if you change your mind~";
  2416.  
  2417. close;
  2418.  
  2419. }
  2420.  
  2421.  
  2422.  
  2423. mora,134,166,3 script Bulberry Westhood 509,{
  2424.  
  2425. mes "[Bulberry Westhood]";
  2426.  
  2427. mes "Yo, Welcome to the clan of West Mora! The artist's corner!";
  2428.  
  2429. next;
  2430.  
  2431. mes "[Bulberry Westhood]";
  2432.  
  2433. mes "Here, You will find many nice things. Go explore the village talk a little with all the people and you will learn things.";
  2434.  
  2435. next;
  2436.  
  2437. mes "[Bulberry Westhood]";
  2438.  
  2439. mes "Me, for example, I can enchant the Loki Muffler. If you have one, I can do it for 5 Mora Coin.";
  2440.  
  2441. next;
  2442.  
  2443. mes "[Bulberry Westhood]";
  2444.  
  2445. mes "So, you have a Loki Muffler on you?";
  2446.  
  2447. next;
  2448.  
  2449. switch(select("Enchant my Loki Muffler.:Cancel.")) {
  2450.  
  2451. case 1:
  2452.  
  2453. mes "[Bulberry Westhood]";
  2454.  
  2455. mes "You want to enchant your Loki's Muffler! Cool, my brother.";
  2456.  
  2457. next;
  2458.  
  2459. mes "[Bulberry Westhood]";
  2460.  
  2461. mes "That will cost you ^0000FF5 Mora Coins^000000.";
  2462.  
  2463. next;
  2464.  
  2465. mes "[Bulberry Westhood]";
  2466.  
  2467. mes "This enchantment will affect 3 slots randomly.";
  2468.  
  2469. mes "If you ever need something enchanted, I can always enchant your muffler.";
  2470.  
  2471. next;
  2472.  
  2473. mes "[Bulberry Westhood]";
  2474.  
  2475. mes "You want to start enchanting the Loki Muffler?";
  2476.  
  2477. next;
  2478.  
  2479. switch(select("Start the enchantment.:Cancel.")) {
  2480.  
  2481. case 1:
  2482.  
  2483. if(countitem(2568) > 1)
  2484.  
  2485. {
  2486.  
  2487. mes "==Information==";
  2488.  
  2489. mes "You must have only one of the item to enchant.";
  2490.  
  2491. next;
  2492.  
  2493. mes "==Information==";
  2494.  
  2495. mes "Please remove the duplicates of the item.";
  2496.  
  2497. close;
  2498.  
  2499. }
  2500.  
  2501. if(isequipped(2568))
  2502.  
  2503. {
  2504.  
  2505. if(countitem(6380) >=5)
  2506.  
  2507. {
  2508.  
  2509. setarray .@enchant_card[0],4766,4767,4760,4761,4762,4763,4764,4765;
  2510.  
  2511. setarray .@enchant_card2[0],4720,4721,4710,4711,4750,4751;
  2512.  
  2513. setarray .@enchant_card3[0],4700,4701,4730,4731,4740,4741;
  2514.  
  2515. set .@enchant_card1,.@enchant_card[rand(0,getarraysize(.@enchant_card)-1)];
  2516.  
  2517. set .@enchant_card2,.@enchant_card2[rand(0,getarraysize(.@enchant_card2)-1)];
  2518.  
  2519. set .@enchant_card3,.@enchant_card3[rand(0,getarraysize(.@enchant_card3)-1)];
  2520.  
  2521. mes "[Bulberry Westhood]";
  2522.  
  2523. mes "Okay, I am ready to start...";
  2524.  
  2525. next;
  2526.  
  2527. specialeffect EF_SANCTUARY;
  2528.  
  2529. delitem 6380,5;
  2530.  
  2531. delitem 2568,1;
  2532.  
  2533. getitem2 2568, 1, 1, 0, 0, 0, .@enchant_card3, .@enchant_card2, .@enchant_card1;
  2534.  
  2535. mes "[Bulberry Westhood]";
  2536.  
  2537. mes "Done, here's your new Loki Muffler! I hope we are cool!";
  2538.  
  2539. next;
  2540.  
  2541. mes "[Bulberry Westhood]";
  2542.  
  2543. mes "Return to me if you want another Loki Muffler enchanted!";
  2544.  
  2545. next;
  2546.  
  2547. mes "[Bulberry Westhood]";
  2548.  
  2549. mes "That is really cool man! Peace~";
  2550.  
  2551. close;
  2552.  
  2553. }
  2554.  
  2555. else
  2556.  
  2557. {
  2558.  
  2559. mes "[Bulberry Westhood]";
  2560.  
  2561. mes "Hey, It will take 5 Mora Coin for me to enchant the Loki Muffler my brother.";
  2562.  
  2563. close;
  2564.  
  2565. }
  2566.  
  2567. }
  2568.  
  2569. mes "[Bulberry Westhood]";
  2570.  
  2571. mes "You should wear the Loki Muffler on you.";
  2572.  
  2573. close;
  2574.  
  2575. case 2:
  2576.  
  2577. break;
  2578.  
  2579. }
  2580.  
  2581.  
  2582.  
  2583. case 2:
  2584.  
  2585. break;
  2586.  
  2587. }
  2588.  
  2589.  
  2590.  
  2591. mes "[Bulberry Westhood]";
  2592.  
  2593. mes "Yoooo! How's it going my brother! Return to me if you want to enchant your Loki Muffler!";
  2594.  
  2595. close;
  2596.  
  2597. }
  2598.  
  2599.  
  2600.  
  2601. mora,105,176,6 script Master Tailor 509,{
  2602.  
  2603. mes "[Master Tailor]";
  2604.  
  2605. mes "Hey, You are new to Mora right? I have not seen your face around here before.";
  2606.  
  2607. next;
  2608.  
  2609. mes "[Master Tailor]";
  2610.  
  2611. mes "You probably have heard of the Army Padding?";
  2612.  
  2613. next;
  2614.  
  2615. mes "[Master Tailor]";
  2616.  
  2617. mes "It is a terrible item! I can sell it for 1 Mora coin and you can later enchant it!";
  2618.  
  2619. next;
  2620.  
  2621. mes "[Master Tailor]";
  2622.  
  2623. mes "So, make your choice.";
  2624.  
  2625. next;
  2626.  
  2627. switch(select("Buy Army Padding.:Enchant Army Padding.:Quit.")) {
  2628.  
  2629. case 1:
  2630.  
  2631. mes "[Master Tailor]";
  2632.  
  2633. mes "So, what if I told you that the price was 1 Mora Coin, then what would you say?";
  2634.  
  2635. mes "You want to buy 1 Army Padding?";
  2636.  
  2637. next;
  2638.  
  2639. switch(select("Buy the Army Padding.:Don't buy it.")) {
  2640.  
  2641. case 1:
  2642.  
  2643. if(countitem(6380) >=1)
  2644.  
  2645. {
  2646.  
  2647. delitem 6380,1;
  2648.  
  2649. getitem 15024,1;
  2650.  
  2651. mes "[Master Tailor]";
  2652.  
  2653. mes "Thank you for your purchase! Come back anytime you want another item enchanted!";
  2654.  
  2655. close;
  2656.  
  2657. }
  2658.  
  2659. else
  2660.  
  2661. {
  2662.  
  2663. mes "[Master Tailor]";
  2664.  
  2665. mes "You don't have 1 Mora Coin...";
  2666.  
  2667. close;
  2668.  
  2669. }
  2670.  
  2671. case 2:
  2672.  
  2673. break;
  2674.  
  2675. }
  2676.  
  2677. case 2:
  2678.  
  2679. mes "[Master Tailor]";
  2680.  
  2681. mes "You want to enchant your Army Padding! That's a great idea.";
  2682.  
  2683. next;
  2684.  
  2685. mes "[Master Tailor]";
  2686.  
  2687. mes "The cost to enchant the Army Padding is ^0000FF5 Mora Coin^000000.";
  2688.  
  2689. next;
  2690.  
  2691. mes "[Master Tailor]";
  2692.  
  2693. mes "This spell will affect 3 slots automatically with random stats.";
  2694.  
  2695. mes "If you ever need something enchanted, do not hesitate to come to me. I can enchant anything.";
  2696.  
  2697. next;
  2698.  
  2699. mes "[Master Tailor]";
  2700.  
  2701. mes "Are you ready to proceed with enchanting the Army Padding?";
  2702.  
  2703. next;
  2704.  
  2705. switch(select("Commence enchantment.:Cancel.")) {
  2706.  
  2707. case 1:
  2708.  
  2709. if(countitem(15024) > 1)
  2710.  
  2711. {
  2712.  
  2713. mes "==Information==";
  2714.  
  2715. mes "You must have only one of the item to enchant.";
  2716.  
  2717. next;
  2718.  
  2719. mes "==Information==";
  2720.  
  2721. mes "Please remove the duplicates of the item.";
  2722.  
  2723. close;
  2724.  
  2725. }
  2726.  
  2727. if(isequipped(15024))
  2728.  
  2729. {
  2730.  
  2731. if(countitem(6380) >=5)
  2732.  
  2733. {
  2734.  
  2735. setarray .@enchant_card[0],4766,4767,4760,4761,4762,4763,4764,4765;
  2736.  
  2737. setarray .@enchant_card2[0],4720,4721,4710,4711,4750,4751;
  2738.  
  2739. setarray .@enchant_card3[0],4700,4701,4730,4731,4740,4741;
  2740.  
  2741. set .@enchant_card1,.@enchant_card[rand(0,getarraysize(.@enchant_card)-1)];
  2742.  
  2743. set .@enchant_card2,.@enchant_card2[rand(0,getarraysize(.@enchant_card2)-1)];
  2744.  
  2745. set .@enchant_card3,.@enchant_card3[rand(0,getarraysize(.@enchant_card3)-1)];
  2746.  
  2747. mes "[Master Tailor]";
  2748.  
  2749. mes "Okay, I am ready for us to start!";
  2750.  
  2751. next;
  2752.  
  2753. specialeffect EF_SANCTUARY;
  2754.  
  2755. delitem 6380,5;
  2756.  
  2757. delitem 15024,1;
  2758.  
  2759. getitem2 15024, 1, 1, 0, 0, 0, .@enchant_card3, .@enchant_card2, .@enchant_card1;
  2760.  
  2761. mes "[Master Tailor]";
  2762.  
  2763. mes "Voila, Your new armor! I hope it was what you wanted!";
  2764.  
  2765. next;
  2766.  
  2767. mes "[Master Tailor]";
  2768.  
  2769. mes "Don't hesitate to return to me if you need something enchanted.";
  2770.  
  2771. next;
  2772.  
  2773. mes "[Master Tailor]";
  2774.  
  2775. mes "Have a good day!";
  2776.  
  2777. close;
  2778.  
  2779. }
  2780.  
  2781. else
  2782.  
  2783. {
  2784.  
  2785. mes "[Master Tailor]";
  2786.  
  2787. mes "You need to equip the armor so I can procede with the enchantment.";
  2788.  
  2789. close;
  2790.  
  2791. }
  2792.  
  2793. }
  2794.  
  2795. mes "[Master Tailor]";
  2796.  
  2797. mes "You need to equip the armor so I can proceed with the enchantment.";
  2798.  
  2799. close;
  2800.  
  2801. case 2:
  2802.  
  2803. break;
  2804.  
  2805. }
  2806.  
  2807. case 3:
  2808.  
  2809. break;
  2810.  
  2811. }
  2812.  
  2813.  
  2814.  
  2815. mes "[Master Tailor]";
  2816.  
  2817. mes "Okay, return if you need anything at all!";
  2818.  
  2819. close;
  2820.  
  2821. }
  2822.  
  2823. mora,123,177,4 script Pendant Crafter 509,{
  2824.  
  2825. mes "[Pendant Crafter]";
  2826.  
  2827. mes "Hello and welcome young adventurer.";
  2828.  
  2829. next;
  2830.  
  2831. mes "[Pendant Crafter]";
  2832.  
  2833. mes "I can enchant the Pendant of Guardian. This accessory let's you come back here at any time.";
  2834.  
  2835. next;
  2836.  
  2837. mes "[Pendant Crafter]";
  2838.  
  2839. mes "So, do you want me to enchant your Pendant of Guardian?";
  2840.  
  2841. next;
  2842.  
  2843. switch(select("Enchant my Pendant of Guardian.:Leave.")) {
  2844.  
  2845. case 1:
  2846.  
  2847. mes "[Pendant Crafter]";
  2848.  
  2849. mes "Okay, you want to enchant your Pendant of Guardian.";
  2850.  
  2851. next;
  2852.  
  2853. mes "[Pendant Crafter]";
  2854.  
  2855. mes "The cost to enchant your Pendant of Guardian is ^0000FF5 Mora Coin^000000.";
  2856.  
  2857. next;
  2858.  
  2859. mes "[Pendant Crafter]";
  2860.  
  2861. mes "This enchantment automatically assigns three slots with random stats.";
  2862.  
  2863. mes "If you ever need an enchantment, you can come to me. I will enchant your pendant anytime.";
  2864.  
  2865. next;
  2866.  
  2867. mes "[Pendant Crafter]";
  2868.  
  2869. mes "Would you like to start the enchantment?";
  2870.  
  2871. next;
  2872.  
  2873. switch(select("Let's do it.:Cancel.")) {
  2874.  
  2875. case 1:
  2876.  
  2877. if(countitem(2858) > 1)
  2878.  
  2879. {
  2880.  
  2881. mes "==Information==";
  2882.  
  2883. mes "You must have only one of the item to enchant.";
  2884.  
  2885. next;
  2886.  
  2887. mes "==Information==";
  2888.  
  2889. mes "Please remove the duplicates of the item.";
  2890.  
  2891. close;
  2892.  
  2893. }
  2894.  
  2895. if(isequipped(2858))
  2896.  
  2897. {
  2898.  
  2899. if(countitem(6380) >=5)
  2900.  
  2901. {
  2902.  
  2903. setarray .@enchant_card[0],4766,4767,4760,4761,4762,4763,4764,4765;
  2904.  
  2905. setarray .@enchant_card2[0],4720,4721,4710,4711,4750,4751;
  2906.  
  2907. setarray .@enchant_card3[0],4700,4701,4730,4731,4740,4741;
  2908.  
  2909. set .@enchant_card1,.@enchant_card[rand(0,getarraysize(.@enchant_card)-1)];
  2910.  
  2911. set .@enchant_card2,.@enchant_card2[rand(0,getarraysize(.@enchant_card2)-1)];
  2912.  
  2913. set .@enchant_card3,.@enchant_card3[rand(0,getarraysize(.@enchant_card3)-1)];
  2914.  
  2915. mes "[Master Tailor]";
  2916.  
  2917. mes "Okay, I am ready to start...";
  2918.  
  2919. next;
  2920.  
  2921. specialeffect EF_SANCTUARY;
  2922.  
  2923. delitem 6380,5;
  2924.  
  2925. delitem 2858,1;
  2926.  
  2927. getitem2 2858, 1, 1, 0, 0, 0, .@enchant_card3, .@enchant_card2, .@enchant_card1;
  2928.  
  2929. mes "[Master Tailor]";
  2930.  
  2931. mes "Here's your new Pendant of Guardian! I hope that it is to your liking!";
  2932.  
  2933. next;
  2934.  
  2935. mes "[Master Tailor]";
  2936.  
  2937. mes "Don't hesitate to come to me if you want something enchanted again.";
  2938.  
  2939. next;
  2940.  
  2941. mes "[Master Tailor]";
  2942.  
  2943. mes "Have a good day!";
  2944.  
  2945. close;
  2946.  
  2947. }
  2948.  
  2949. else
  2950.  
  2951. {
  2952.  
  2953. mes "[Master Tailor]";
  2954.  
  2955. mes "You don't have the 5 Mora Coin needed for me to enchant this.";
  2956.  
  2957. close;
  2958.  
  2959. }
  2960.  
  2961. }
  2962.  
  2963. mes "[Master Tailor]";
  2964.  
  2965. mes "You have to equip the armor before we can continue with the enchantment.";
  2966.  
  2967. close;
  2968.  
  2969. case 2:
  2970.  
  2971. break;
  2972.  
  2973. }
  2974.  
  2975. case 2:
  2976.  
  2977. break;
  2978.  
  2979. }
  2980.  
  2981.  
  2982.  
  2983. mes "[Pendant Crafter]";
  2984.  
  2985. mes "Okay, return when you can and have a good day!";
  2986.  
  2987. close;
  2988.  
  2989. }
  2990.  
  2991.  
  2992.  
  2993. //Enchant Item function usage
  2994.  
  2995. //"EnchantItem",Coin Cost,Zeny Cost,Chance,Item ID, Refine, Card to Enchant,First card (.@card4),Second card (.@card3),current card
  2996.  
  2997.  
  2998.  
  2999. function script EnchantItem {
  3000.  
  3001. set .prem,7227;
  3002. set .premamount,1;
  3003.  
  3004. if(countitem(6380) >= getarg(0) && Zeny >= getarg(1)) {
  3005.  
  3006. if(getarg(2) == 100) {
  3007.  
  3008. mes "[Enchanting]";
  3009.  
  3010. mes "I feel the power of your ^FF0000"+getitemname(getarg(3))+"^000000. This armor is still pure. We will proceed with the enchantment ceremony as normal.";
  3011.  
  3012. next;
  3013.  
  3014. mes "[Enchanting]";
  3015.  
  3016. mes "The ceremony is about to begin, I hope everything works out!";
  3017.  
  3018. }
  3019.  
  3020. else {
  3021.  
  3022. mes "[Enchanting]";
  3023.  
  3024. mes "I feel the power of your ^FF0000"+getitemname(getarg(3))+"^000000. This armor has enchantments and may fail.";
  3025.  
  3026. next;
  3027.  
  3028. mes "[Enchanting]";
  3029.  
  3030. if(getarg(2) > 50)
  3031.  
  3032. mes "The enchantment has a ^FF0000"+getarg(2)+"%^000000 chance of success! If the spell fails, don't worry. Your equipment will not be broken, but it will be returned to you in a pure state.";
  3033.  
  3034. else
  3035.  
  3036. mes "The enchantment has a ^FF0000"+getarg(2)+"%^000000 chance of success! If the spell fails, it may break your item. There is a ^FF000050%^000000 chance it will only remove previous enchantments.";
  3037.  
  3038. next;
  3039.  
  3040. mes "[Enchanting]";
  3041.  
  3042. mes "Any enchantment cards will be removed if the spell fails.";
  3043.  
  3044. next;
  3045.  
  3046. mes "[Enchanting]";
  3047.  
  3048. mes "So I have to ask you this last question. Are you sure you wish to continue with this enchantment?";
  3049.  
  3050. next;
  3051.  
  3052. if(select("Continue the enchantment.","Cancel the enchantment.") == 2) {
  3053.  
  3054. return;
  3055.  
  3056. }
  3057. L_chooseagain:
  3058. mes "[Enchanting]"; // starting from here the npc will explain what are his options to use
  3059.  
  3060. mes "You have 2 options to Proceed with this enchantment";
  3061.  
  3062. mes "You can use premium echantment that will give you a 100% success but it will cause you " +.premamount+ " " + getitemname(.prem) + " or you can do it normaly where there is a chance of failing";
  3063.  
  3064. next;
  3065.  
  3066. mes "So do you want to use premium enchantment?";
  3067.  
  3068. switch(select("No:Yes")){//aks player what kind of echantment system
  3069. case 1:
  3070. set @premium,0; //set normal echantment rate system
  3071. goto L_cont; //continues
  3072. break;
  3073. case 2:
  3074. if (countitem(.prem) > .premamount){mes "You dont have any " + getitemname(.prem) + ""; next; goto L_chooseagain;} //will go back to the menu to explain to the player what to use
  3075. set @premium,1; //set premium echantment rate system
  3076. goto L_cont;//continues
  3077. break;
  3078. }
  3079.  
  3080. L_cont:
  3081. mes "Very well. We will continue the ceremony... And now to begin!!!";
  3082.  
  3083. }
  3084.  
  3085. next;
  3086. if (@premium==1){goto L_premenchant;}// will skip failrate if player chooses to use it
  3087. else{ //else he will encounter failrate measures
  3088.  
  3089. if(rand(100)>getarg(2))
  3090.  
  3091. {
  3092.  
  3093. specialeffect 155;
  3094.  
  3095. delitem 6380,1;
  3096.  
  3097. set Zeny,Zeny-getarg(1);
  3098.  
  3099. delitem getarg(3),1;
  3100.  
  3101. if(getarg(2)<50) {
  3102.  
  3103. if(rand(100) > 50){
  3104.  
  3105. mes "Oh no! Not only did the enchantment fail, but your item has also broken!";
  3106.  
  3107. next;
  3108.  
  3109. mes "I can't tell you how sorry I am...";
  3110.  
  3111. close;
  3112.  
  3113. }
  3114.  
  3115. }
  3116.  
  3117. getitem2 getarg(3), 1, 1, getarg(4), 0, getarg(8), 0, 0, 0;
  3118.  
  3119. mes "[Enchanting]";
  3120.  
  3121. mes "I'm really sorry!!! The enchantment failed...";
  3122.  
  3123. next;
  3124.  
  3125. mes "[Enchanting]";
  3126.  
  3127. mes "I knew the ^FF0000"+getitemname(getarg(3))+"^000000 was fragile...";
  3128.  
  3129. next;
  3130.  
  3131. mes "[Enchanting]";
  3132.  
  3133. mes "Sorry again. Do not hesitate to come and see me if you ever want to try again.";
  3134.  
  3135. next;
  3136.  
  3137. mes "[Enchanting]";
  3138.  
  3139. mes "Have a nice day ~ young adventurer";
  3140.  
  3141. close;
  3142.  
  3143. }
  3144. }
  3145.  
  3146. else
  3147.  
  3148. {
  3149. L_premenchant: // will now proceed to instant success enhantment
  3150.  
  3151. if (@premium==1){delitem .prem,.premamount}//deletes premium requirements
  3152.  
  3153. specialeffect EF_SANCTUARY;
  3154.  
  3155. delitem 6380,getarg(0);
  3156.  
  3157. set Zeny,Zeny-getarg(1);
  3158.  
  3159. delitem getarg(3),1;
  3160.  
  3161. if (getarg(2) == 30)
  3162.  
  3163. getitem2 getarg(3), 1, 1, getarg(4), 0, getarg(8), getarg(5), getarg(7), getarg(6);
  3164.  
  3165. else if (getarg(2) == 60)
  3166.  
  3167. getitem2 getarg(3), 1, 1, getarg(4), 0, getarg(8), 0, getarg(5), getarg(6);
  3168.  
  3169. else if (getarg(2) == 100)
  3170.  
  3171. getitem2 getarg(3), 1, 1, getarg(4), 0, getarg(8), 0, 0, getarg(5);
  3172.  
  3173. if (getarg(2) == 100) {
  3174.  
  3175. mes "[Enchanting]";
  3176.  
  3177. mes "The enchantment of the armor is finished! Your ^FF0000"+getitemname(getarg(3))+"^000000 was combined with ^005500"+getitemname(getarg(5))+"^000000!";
  3178.  
  3179. }
  3180.  
  3181. else {
  3182.  
  3183. mes "[Enchanting]";
  3184.  
  3185. mes "The enchantment was a success! Your ^FF0000"+getitemname(getarg(3))+"^000000 was combined with ^005500"+getitemname(getarg(5))+"^000000!";
  3186.  
  3187. }
  3188.  
  3189. next;
  3190.  
  3191. mes "[Enchanting]";
  3192.  
  3193. mes "Thank you very much for using my services.";
  3194.  
  3195. next;
  3196.  
  3197. mes "[Enchanting]";
  3198.  
  3199. mes "If you still need me, do not hesitate to return. Thank you again and have a nice day ~";
  3200.  
  3201. close;
  3202.  
  3203. }
  3204.  
  3205. }
  3206.  
  3207. else
  3208.  
  3209. {
  3210.  
  3211. mes "[Enchanting]";
  3212.  
  3213. mes "I see your ^FF0000"+getitemname(getarg(3))+"^000000 won't be enchanted.";
  3214.  
  3215. next;
  3216.  
  3217. mes "[Enchanting]";
  3218.  
  3219. mes "I'm sorry. You do not seem to have enough ^0000FFMora Coins^000000 or enough ^0000FFZeny^000000 on you. My services cost ^0000FF"+getarg(0)+" Mora Coin^000000 and ^0000FF"+getarg(1)+" Zeny^000000 per enchantment.";
  3220.  
  3221. next;
  3222.  
  3223. mes "[Enchanting]";
  3224.  
  3225. mes "Come back when you can pay the fee.";
  3226.  
  3227. close;
  3228.  
  3229. }
  3230.  
  3231. }
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!