1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
//================= 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;
}
}
|
