diff options
Diffstat (limited to 'npc/re/other/stone_change.txt')
| -rw-r--r-- | npc/re/other/stone_change.txt | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/npc/re/other/stone_change.txt b/npc/re/other/stone_change.txt new file mode 100644 index 000000000..a6b903273 --- /dev/null +++ b/npc/re/other/stone_change.txt @@ -0,0 +1,59 @@ +//===== Hercules Script ====================================== +//= Stone Changer +//===== By: ================================================== +//= Euphy +//===== Current Version: ===================================== +//= 1.0 +//===== Description: ========================================= +//= [Official Conversion] +//= Organizes ores in a player's inventory. +//===== Additional Comments: ================================= +//= 1.0 First version. +//============================================================ + +geffen_in,99,174,5 script Ore Tester#sorty 700,{ + mes "[Ore Tester Sorty]"; + mes "Do you have ^3131FFany same type of ores in your inventories^000000 which take many spaces?"; + mes "I can distinguish your ores and organize them right away~!"; + next; + switch(select("Refine my Ore.:Cancel.")) { + case 1: + mes "[Ore Tester Sorty]"; + mes "At the moment I can only distinguish ^FF0000Steel^000000, ^FF0000Iron^000000, ^FF0000Iron Ore^000000, and ^FF0000Rough Oridecon^000000 and organize them."; + mes "Please note that ^3131FFother items are unable^000000!"; + next; + mes "[Ore Tester Sorty]"; + mes "So, would you like me to organize your ores?"; + next; + set .@i, select("Steel, please.:Iron, please.:Iron Ore, please.:Rough Oridecon, please.:No, thanks."); + if (.@i == 5) { + mes "[Ore Tester Sorty]"; + mes "Huh, I really hate messy people!"; + close; + } + setarray .@ores[0],999,998,1002,756; + set .@item, .@ores[.@i-1]; + if (countitem(.@item) == 0) { + mes "[Ore Tester Sorty]"; + mes "You don't have any "+getitemname(.@item)+"..."; + close; + } + while(1) { + if (countitem(.@item)) { + set .@count, countitem(.@item); + set .@total, .@total + .@count; + delitem .@item, .@count; + } else { + getitem .@item, .@total; + break; + } + } + mes "[Ore Tester Sorty]"; + mes "It's done. Looks great! Don't you think so?"; + close; + case 2: + mes "[Ore Tester Sorty]"; + mes "It seems that your bag is clean? Huhu! You might be the master of cleaning!"; + close; + } +} |