//================= Hercules Script =======================================
//=       _   _                     _
//=      | | | |                   | |
//=      | |_| | ___ _ __ ___ _   _| | ___  ___
//=      |  _  |/ _ \ '__/ __| | | | |/ _ \/ __|
//=      | | | |  __/ | | (__| |_| | |  __/\__ \
//=      \_| |_/\___|_|  \___|\__,_|_|\___||___/
//================= License ===============================================
//= This file is part of Hercules.
//= http://herc.ws - http://github.com/HerculesWS/Hercules
//=
//= Copyright (C) 2013-2015  Hercules Dev Team
//= Copyright (C)  Euphy
//=
//= Hercules is free software: you can redistribute it and/or modify
//= it under the terms of the GNU General Public License as published by
//= the Free Software Foundation, either version 3 of the License, or
//= (at your option) any later version.
//=
//= This program is distributed in the hope that it will be useful,
//= but WITHOUT ANY WARRANTY; without even the implied warranty of
//= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//= GNU General Public License for more details.
//=
//= You should have received a copy of the GNU General Public License
//= along with this program.  If not, see <http://www.gnu.org/licenses/>.
//=========================================================================
//= Stone Changer
//================= Description ===========================================
//= Organizes ores in a player's inventory.
//================= Current Version =======================================
//= 1.0
//=========================================================================

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;
		.@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;
		.@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)) {
				.@count = countitem(.@item);
				.@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;
	}
}