summaryrefslogblamecommitdiff
path: root/npc/re/other/stone_change.txt
blob: cfb2aa5ebe4040939d2b2436cccf17faa3ed384f (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13












                                                              
                                                                  












































                                                                                                                                                                                
//===== 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	8_F_GIRL,{
	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;
	}
}