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
|
//===== 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;
}
}
|
