summaryrefslogtreecommitdiff
path: root/npc/re/merchants/ticket_refiner.txt
diff options
context:
space:
mode:
authorj-tkay <joseph.tk.ea@gmail.com>2013-07-04 05:15:48 +0800
committerj-tkay <joseph.tk.ea@gmail.com>2013-07-04 05:15:48 +0800
commit28a9fec0916db3d92629ae6e6cd62b5777b09e73 (patch)
tree4babff20dd0a68025a489f410ebf96b8c1cc09af /npc/re/merchants/ticket_refiner.txt
parent8489dbf3b58d3bff70b27ea42884a14d5229430a (diff)
downloadhercules-28a9fec0916db3d92629ae6e6cd62b5777b09e73.tar.gz
hercules-28a9fec0916db3d92629ae6e6cd62b5777b09e73.tar.bz2
hercules-28a9fec0916db3d92629ae6e6cd62b5777b09e73.tar.xz
hercules-28a9fec0916db3d92629ae6e6cd62b5777b09e73.zip
Merged/Updated/Added scripts from rAthena.
- Fixed Bug #7400 Signed-off-by: j-tkay <joseph.tk.ea@gmail.com>
Diffstat (limited to 'npc/re/merchants/ticket_refiner.txt')
-rw-r--r--npc/re/merchants/ticket_refiner.txt162
1 files changed, 162 insertions, 0 deletions
diff --git a/npc/re/merchants/ticket_refiner.txt b/npc/re/merchants/ticket_refiner.txt
new file mode 100644
index 000000000..7246528a4
--- /dev/null
+++ b/npc/re/merchants/ticket_refiner.txt
@@ -0,0 +1,162 @@
+//===== rAthena Script =======================================
+//= Ticket Refiner
+//===== By: ==================================================
+//= Euphy
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= [Official Conversion]
+//= Refiner that uses +5~9/+11 refine tickets to refine
+//= equipment with no chance of failure.
+//= NOTE: This NPC is currently disabled on official servers.
+//===== Additional Comments: =================================
+//= 1.0 First version. [Euphy]
+//============================================================
+
+prontera,184,177,6 script Refine Master 851,{
+ disable_items;
+ if (countitem(6238) || countitem(6228) || countitem(6229) || countitem(6230) || countitem(6231) || countitem(6456))
+ set .@bWeaponUp,1;
+ if (countitem(6239) || countitem(6232) || countitem(6233) || countitem(6234) || countitem(6235) || countitem(6457))
+ set .@bArmorUp,1;
+ if (!.@bWeaponUp && !.@bArmorUp) {
+ mes "[Refine Master]";
+ mes "Hello!";
+ mes "What's up?";
+ mes "I'm a specialist";
+ mes "for refining items,";
+ mes "but I don't work anymore.";
+ next;
+ switch(select("I'll go on my way.:Hmm... this makes me curious.")) {
+ case 1:
+ mes "[Refine Master]";
+ mes "Take care, adventurer.";
+ close;
+ case 2:
+ mes "[Refine Master]";
+ mes "Actully, I sometimes provide refine services for adventurers with a ^006400Refine Ticket^000000...";
+ mes "Bye bye~!";
+ close;
+ }
+ }
+ emotion e_gasp;
+ mes "[Refine Master]";
+ mes "Greetings!";
+ mes "I can refine an item up to the ^006400same level as your ticket^000000.";
+ mes "You don't have to worry! There's no chance of breaking your item.";
+ next;
+ if(select("I'll come back later.:Refine item with ticket.") == 1) {
+ mes "[Refine Master]";
+ mes "Okay.";
+ mes "You can come again later.";
+ close;
+ }
+ mes "[Refine Master]";
+ mes "Which equipment would you like to refine?";
+ next;
+ setarray .@position$[1],"Head upper","Armor","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head middle","Head lower";
+ set .@menu$,"";
+ for(set .@i,1; .@i<=10; set .@i,.@i+1)
+ set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"- [Empty]")+":";
+ set .@part, select(.@menu$);
+ if (!getequipisequiped(.@part)) {
+ mes "[Refine Master]";
+ mes "You have to equip the item you want to refine.";
+ close;
+ }
+ if (!getequipisenableref(.@part)) {
+ emotion e_otl;
+ mes "[Refine Master]";
+ mes "Oh, I'm sorry.";
+ mes "This item is impossible to refine.";
+ close;
+ }
+ switch(getequipweaponlv(.@part)) {
+ default:
+ case 0:
+ setarray .@tickets[0],6457,6235,6234,6233,6232,6239;
+ setarray .@levels[0],5,6,7,8,9,11;
+ set .@type$,"Armor";
+ set .@check,.@bArmorUp;
+ break;
+ case 1:
+ case 2:
+ case 3:
+ case 4:
+ setarray .@tickets[0],6456,6231,6230,6229,6228,6238;
+ setarray .@levels[0],5,6,7,8,9,11;
+ set .@type$,"Weapon";
+ set .@check,.@bWeaponUp;
+ break;
+ }
+ if (!.@check) {
+ emotion e_dots;
+ mes "[Refine Master]";
+ mes "If you want to refine this ^006400"+.@type$+"^000000, please come along with ^006400"+.@type$+" Refine Ticket^000000.";
+ mes "See you later!";
+ close;
+ }
+ mes "[Refine Master]";
+ mes "Please choose which ^006400"+.@type$+" Refine Ticket^000000 you want to use.";
+ next;
+ set .@menu$,"";
+ for(set .@i,0; .@i<getarraysize(.@tickets); set .@i,.@i+1)
+ set .@menu$, .@menu$+getitemname(.@tickets[.@i])+":";
+ set .@select, select(.@menu$)-1;
+ set .@ticket_lv, .@levels[.@select];
+ set .@ticket_id, .@tickets[.@select];
+ if (countitem(.@ticket_id) == 0) {
+ emotion e_what;
+ mes "[Refine Master]";
+ mes getitemname(.@ticket_id)+" is not in your inventory. Did you put it in your storage?";
+ mes "Please check again.";
+ mes "See you later!";
+ close;
+ }
+ if (getequiprefinerycnt(.@part) >= .@ticket_lv) {
+ emotion e_swt2;
+ mes "[Refine Master]";
+ mes "^8B4513This item is already refined as much as your deed.^000000";
+ mes "Please come along with an item refined less than your ticket.";
+ close;
+ }
+ mes "[Refine Master]";
+ mes "I'm going to refine ^006400"+getequipname(.@part)+"^8B4513 up to the +"+.@ticket_lv+" level^000000 with ^006400"+getitemname(.@ticket_id)+"^000000.";
+ mes "May I proceed?";
+ next;
+ if(select("No.:Yes.") == 1) {
+ emotion e_dots;
+ mes "[Refine Master]";
+ mes "Oh, you changed your mind.";
+ mes "Ok.";
+ mes "You can come back later.";
+ close;
+ }
+ mes "[Refine Master]";
+ mes "Great.";
+ mes "As you wish!";
+ mes "I have my own special way to refine...";
+ mes ".......ka boom!";
+ specialeffect EF_SUI_EXPLOSION;
+ if (countitem(.@ticket_id))
+ delitem .@ticket_id,1;
+ else {
+ next;
+ mes "Error!";
+ mes "Please report this.";
+ close;
+ }
+ for(set .@i,getequiprefinerycnt(.@part); .@i<.@ticket_lv; set .@i,.@i+1)
+ successrefitem .@part;
+ next;
+ emotion e_ho;
+ mes "[Refine Master]";
+ mes "Alright, here it is~";
+ mes "Well, ^0000FF"+strcharinfo(0)+"^000000!";
+ mes "Congratulations on your shining "+.@type$+".";
+ mes "You look GREAT!";
+ mes "Farewell~!";
+ close;
+}