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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
// TMW2 scripts.
// TMW2 Authors:
// Saulc
// Jesusalva
// Description:
// Miner Pylon transforme gems into gem powder, he ask for 100gp + 1 gem and give 100 EXp (each time) + 1 to 3 gem powder's.
// Variable:
// dont need variable
// Reference:
// https://fr.wikipedia.org/wiki/Pilon#Objets not Epiphysis !
007-1,42,44,0 script Pylon NPC_PLAYER,{
mesn;
mesq l("Hello, I'm Pylon!");
next;
mesq l("I work in this mine since 3 years, I'm an expert on gems: Ruby, Topaz, Sapphire, You know!");
next;
mesq l("If you have some gems, I can transform them into powder.");
next;
mesq l("I only take a tax of 100 gp per gem.");
next;
mesq lg("Then, would you like me to transform one of your gems?");
next;
goto L_Menu;
L_Menu:
mesn strcharinfo(0);
// We could add a drag zone, and allow players to drag their gems, but... Meh.
select
l("Hum, how many gem powders can I get from one gem?"),
rif(countitem(Diamond) >= 1, l("Yeah sure, take my Diamond!")),
rif(countitem(Ruby) >= 1, l("Yeah sure, take my Ruby!")),
rif(countitem(Emerald) >= 1, l("Yeah sure, take my Emerald!")),
rif(countitem(Sapphire) >= 1, l("Yeah sure, take my Sapphire!")),
rif(countitem(Topaz) >= 1, l("Yeah sure, take my Topaz!")),
rif(countitem(Amethyst) >= 1, l("Yeah sure, take my Amethyst!")),
l("No, thanks, I will keep my gems.");
mes "";
switch (@menu) {
case 1:
goto L_Question;
break;
case 8:
close;
break;
default:
goto L_Powder;
break;
}
L_Question:
mesn;
mesq lg("That depends on your luck!");
next;
mesq l("With one gem you can expect to get 1 to 3 powders! ");
next;
mes col("We must blame Saulc!", 9);
next;
mesq lg("By the way would you like to transform your gem?");
next;
goto L_Menu;
// Must rework IDs
L_Powder:
// Magic
.@id=Diamond+@menu-2;
.@pw=DiamondPowder+@menu-2;
// Amount
.@am=rand(1,3);
delitem .@id, 1;
Zeny = Zeny - 100;
getexp 60, 0;
inventoryplace .@pw, .@am;
getitem .@pw, .@am;
mes "";
mesn;
mesq l("Here is your powder! I hope it will be useful.");
next;
mesq l("Would you like to transform one more?");
next;
goto L_Menu;
L_Close:
close;
OnInit:
.@npcId = getnpcid(0, .name$);
setunitdata(.@npcId, UDT_HEADTOP, MinerHat);
setunitdata(.@npcId, UDT_HEADMIDDLE, ArtisTankTop);
setunitdata(.@npcId, UDT_HEADBOTTOM, BromenalPants);
setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots);
setunitdata(.@npcId, UDT_HAIRSTYLE, 15);
setunitdata(.@npcId, UDT_HAIRCOLOR, 4);
.sex = G_MALE;
.distance = 4;
end;
}
|
