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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
|
// TMW2 scripts.
// Author:
// Vasily_Makarov (original from Evol)
// Jesusalva
// Description:
// Stat resetter. He is an alchemist, married with Morgan.
// Others:
// .@wasSP - free status points before reset
005-6,43,39,0 script Zitoni NPC_RUMLY,{
mesn;
mesq l("Ah, hello there! I am @@, a Redy alchemist.", .name$);
mes "";
mesq l("I have developed a special formula, which resets your stats!");
next;
mes "";
L_Menu:
if (BaseLevel < 10)
.@price = 1;
else
.@price = BaseLevel*200-(9*200);
select
l("Status reset? Sounds illegal!"),
l("Can you reset my stats please?"),
l("Do you make any other kind of potions?"),
lg("You are weird, I have to go sorry.");
switch (@menu)
{
case 1:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
lg("Wait, are you with the police? I didn't do anything wrong, I promise!"),
l("My formula is not a drug, nor magic. It is an ancient technology of our people!"),
l("You can use it to clear your stats, to start freshly if you know what I mean..."),
l("For only a small amount of Gold Pieces, I will show you how it works!"),
l("Although the more powerful you are, the more money you will need."),
l("I will let you test it for a peny until level 10!");
select
l("Sounds good!"),
rif(Zeny >= .@price, lg("I think I have enough gold with me.")),
l("We will talk about it later."),
l("My stats are too good, I won't need it.");
switch (@menu)
{
case 1:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Yes, it is a really sweet deal, believe me!");
goto L_Menu;
case 2:
goto L_ResetStats;
case 3:
goto L_Later;
case 4:
goto L_Never;
}
case 2:
goto L_ResetStats;
case 3:
goto L_OtherPotion;
case 4:
goto L_Quit;
}
L_ResetStats:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
lg("Status point reset can't be undone. Are you sure about this?");
L_ConfirmReset:
switch (select(lg("Yes, I am sure."),
lg("I need to think about it..."),
lg("I won't need it, thank you.")))
{
case 1:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Let me just have a quick look at you. Hm... I will need @@ GP to reset your stats.", .@price);
select
rif(Zeny >= .@price, l("Here, take as much as you need, I have plenty!")),
rif(Zeny > 0 && Zeny < .@price, l("I don't have enough money...")),
rif(Zeny == 0, l("Oh no, I don't have any money on me right now.")),
l("I have to go, sorry.");
if (@menu > 1)
{
goto L_Later;
}
// TODO: I think there were functions to deal with GP
set Zeny, Zeny-.@price;
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Thank you."),
l("Now stand still... It should not take much time...");
.@wasSP = StatusPoint;
resetstatus;
if (StatusPoint == .@wasSP)
{
speech S_LAST_NEXT,
l("It seems that you have no status points to reset!"),
l("But the money you brought was really awesome you know."),
l("Come back when you will really need me.");
}
else
{
speech S_LAST_NEXT,
l("Let's see... @@ of your status points have just been reset!", StatusPoint - .@wasSP),
l("Spend it wisely this time."),
l("But you are welcome to reset your stats again! I need the money.");
}
goto L_Quit;
case 2:
goto L_Later;
case 3:
goto L_Never;
}
L_Later:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Come back soon!");
goto L_Quit;
L_Never:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("I am sure that you will change your mind.");
goto L_Quit;
L_OtherPotion:
mes "";
mesn;
mesq l("I make both @@ and @@, if you give me the shrooms associated to them, and money.", getitemlink(HastePotion), getitemlink(StrengthPotion));
next;
mesn;
mesq l("For you, it will be only 200 GP for potion! But I need the base ingredients, five @@ - or @@, depends on which one.", getitemlink(Plushroom), getitemlink(Chagashroom));
next;
menu
l("Nothing at the moment."), L_Quit,
l("5 Plushrooms for a Haste Potion!"), L_HastePotion,
l("5 Chagashrooms for a Strength Potion!"), L_StrengthPotion;
L_HastePotion:
mes "";
mesn;
if (Zeny < 200) {
mesq l("You don't have enough money. Sorry.");
next;
goto L_Quit;
}
if (countitem(Plushroom) < 5) {
mesq l("I need @@ to work...", getitemlink(Plushroom));
next;
goto L_Quit;
}
inventoryplace HastePotion, 1;
Zeny=Zeny-200;
delitem Plushroom, 5;
getitem HastePotion, 1;
mesq l("Here you go!");
goto L_OtherPotion;
L_StrengthPotion:
mes "";
mesn;
if (Zeny < 200) {
mesq l("You don't have enough money. Sorry.");
next;
goto L_Quit;
}
if (countitem(Chagashroom) < 5) {
mesq l("I need @@ to work...", getitemlink(Chagashroom));
next;
goto L_Quit;
}
inventoryplace StrengthPotion, 1;
Zeny=Zeny-200;
delitem Chagashroom, 5;
getitem StrengthPotion, 1;
mesq l("Here you go!");
goto L_OtherPotion;
L_Quit:
closedialog;
goodbye;
close; // double sure
OnInit:
.sex = G_MALE;
end;
}
|
