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
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
|
//===== Hercules Script ======================================
//= Valentine Event Script + EXP bonus
//===== By: ==================================================
//= Lupus (based on Muad_Dib's work)
//===== Current Version: =====================================
//= 1.1
//===== Description: =========================================
// Close to other official stValentine event (added white chocolate)
// Custom: Handmade choco gives some EXP bonuses to married people
//===== Additional Comments: =================================
//= WARNING!! To use this event, disable original valentinesday.txt
//= You can use this event from 12 till 16 February 8) [Lupus]
//= 1.1 Removed Duplicates [Silent]
//============================================================
// Tine - Valentine Event Chocolate Even Guide ------------------
prontera,156,172,4 script Tine 1_M_MERCHANT,{
// Debug info for item effects and tricky conditions 8)
// mes "@dsv: "+@dsv;
// mes "ispartneron()=="+ispartneron();
// mes "sex == "+Sex;
// if(@dsv == gettime(3)+1) mes "@dsv == gettime(3)+1";
mes "[Tine]";
mes "The legend says that on 14th February... on the Day of Saint Valentine...";
mes "Only in Run-Midgard kingdom...";
next;
specialeffect 417;
mes "[Tine]";
mes "Some married chocolate lovers almost double their experience at trainings!";
mes "But everything isn't so simply...";
next;
menu "Wow! Tell me more!",M_INFO,"Marri... what?",-;
mes "[Tine]";
mes "Are you a single?";
mes "Today is a great date to ask your beloved half for marriage!";
next;
mes "[Tine]";
mes "The Marriage fee is ridiculous low these days!";
close;
M_INFO:
mes "[Tine]";
mes "The magic effect posesses only handmade chocolate from grand-grand-grand-whoever recipes!";
next;
mes "[Tine]";
mes "It being known that Black Handmade Chocolate works on married guys... And the White one on the married girls!";
mes "If you lose your wedding ring... then alas, it won't work on you.";
next;
mes "[Tine]";
mes "On having a Chocolate, you should put off your ring then... put it back... And if your partner is online, then magc would last till the next hour!";
next;
mes "[Tine]";
mes "Rumors bark that guys and gals have +50% EXP bonuses on FIVE different races of the monsters... Exluding bloody bosses, of course.";
next;
mes "[Tine]";
mes "There's a fameous confectioner in the Castle of Prontera! He's the one you need.";
close;
OnInit:
//559,Hand-made_Chocolate
setitemscript 559,"{ itemheal 50,50; if(Sex==0 || @dsv == gettime(3)+1 || ispartneron()==0)end; set @dsv,gettime(3)+1; misceffect 113; }";
//560,Hand-made_White_Chocolate
setitemscript 560,"{ itemheal 50,50; if(Sex || @dsv == gettime(3)+1 || ispartneron()==0)end; set @dsv,gettime(3)+1; misceffect 113; }";
//2634,Wedding_Ring_M,Wedding Ring,5,,10,0,,0,,0,127918079,7,1,136,,0,0,0,{ skill 334,1; skill 335,1; skill 336,1; }
setitemscript 2634,"{ skill 334,1; skill 335,1; skill 336,1; if(@dsv == gettime(3)+1 && ispartneron()){ bonus2 bExpAddRace,5,50; bonus2 bExpAddRace,6,50; bonus2 bExpAddRace,7,50; bonus2 bExpAddRace,8,50; bonus2 bExpAddRace,1,50; } }";
//2635,Wedding_Ring_F,Wedding Ring,5,,10,0,,0,,0,127918079,7,0,136,,0,0,0,{ skill 334,1; skill 335,1; skill 336,1; }
setitemscript 2635,"{ skill 334,1; skill 335,1; skill 336,1; if(@dsv == gettime(3)+1 && ispartneron()){ bonus2 bExpAddRace,0,50; bonus2 bExpAddRace,9,50; bonus2 bExpAddRace,2,50; bonus2 bExpAddRace,3,50; bonus2 bExpAddRace,4,50; } }";
end;
}
// Stephen - Valentine Event Chocolate seller ------------------
alberta,26,243,4 script Stephen#val1 1_M_MERCHANT,{
mes "[Stephen]";
mes "Guess what I've got?";
mes "A tasty treat not easily found in Rune-Midgard....";
next;
mes "[Stephen]";
mes "Chocolate!";
mes "That's right, don't you love chocolate.... I do.";
mes "And you are in luck, because I'm selling them for only 5,000 zeny a piece!";
next;
menu "I want some chocolate!",M_CHOCO,"No thanks.",-;
mes "[Stephen]";
mes "You don't want any chocolate?";
mes "I'm telling you! You'll regret it!";
mes "You better get some now... you won't come across Chocolate like this ever again!";
mes "Think it over and visit me again sometime.";
close;
M_CHOCO:
mes "[Stephen]";
mes "Hah!";
mes "I knew it!";
mes "But I can't sell you more then 5 at once....but, if you really need more....";
mes "you can come back again.";
mes "So how many do you want?";
next;
set @needmon,0;
input @flag_num;
if (@flag_num <= 0) goto L_NONE;
if (@flag_num > 5) goto L_ERR;
set @needmon,@flag_num*5000;
if (Zeny < @needmon) goto L_NOTENO;
set Zeny,Zeny - @needmon;
getitem 558,@flag_num;
mes "[Stephen]";
mes "There you go!";
mes "You can give that to someone as a gift, or enjoy it yourself!";
mes "Mmm....sweet chocolate...";
mes "Visit me anytime...!";
close;
L_ERR:
mes "[Stephen]";
mes "I'm sorry but I can't give you that many.";
L_NONE:
close;
L_NOTENO:
mes "[Stephen]";
mes "I'm sorry but it seems you can't afford to buy these of me.";
close;
}
// Jainie -- Gives information about Valentine Event ------------------------
alberta,29,243,4 script Jainie#val1 1_M_INNKEEPER,{
mes "[Jainie]";
mes "You know what? The chocolate that my boyfriend sells are from me!";
mes "I made them by myself. Now I need some Milk for my special White Chocolate.";
next;
mes "[Jainie]";
mes "You know ... In cetain countries, there's a tradition of presenting chocolates to a person that you love...";
mes "They call it ^3355FFValentine's Day^000000.";
next;
mes "[Jainie]";
mes "So I gave him my delicious chocolate...";
mes "And then he made me cook a lot more...";
mes "And now he is selling them to everyone.";
mes "I guess he really enjoyed it.";
mes "But, I do feel good when people buy something I have made.";
next;
mes "[Jainie]";
mes "It would be great if you bought some too...";
mes "I will be making white chocolates for a while so...";
next;
menu "I want some white chocolate!",M_CHOCO,"No thanks.",-;
mes "[Jainie]";
mes "You don't like white chocolate?";
mes "Then buy some Stephen's black one!";
close;
M_CHOCO:
mes "[Jainie]";
mes "I can't sell you more then 5 at once....but, if you really need more....";
mes "you can come back again.";
mes "So how many do you want? 1 portion is 4500z + 1 Milk.";
next;
set @needmon,0;
input @flag_num;
if (@flag_num == 0) goto L_NONE;
if (@flag_num > 5) goto L_ERR;
set @needmon,@flag_num*4500;
if (Zeny < @needmon) goto L_NOTENO;
if (countitem(519) < @flag_num) goto L_NOMILK;
set Zeny,Zeny - @needmon;
delitem 519,@flag_num;
getitem 561,@flag_num;
mes "[Jainie]";
mes "There you go!";
mes "You can give that to someone as a gift, or enjoy it yourself!";
mes "Mmm... sweet chocolate...";
mes "Visit me anytime...!";
close;
L_ERR:
mes "[Jainie]";
mes "I'm sorry but I can't give you that many.";
L_NONE:
close;
L_NOTENO:
mes "[Jainie]";
mes "I'm sorry but it seems you can't afford to buy these of me.";
close;
L_NOMILK:
mes "[Jainie]";
mes "You need "+@flag_num+" Milk for "+@flag_num+" portions of my special White Chocolate...";
close;
}
// Carl Orleans -- Valentine Event Chocolate maker ------------------
prt_castle,54,34,4 script Carl Orleans#val1 1_M_01,{
mes "[Carl Orleans]";
mes "Yes? What can I cook for you?";
next;
menu "Black handmade Chocolate, please",-,"I want a White handmade Chocolate...",M_WHITE,"I'm lost, sorry to bother you.",M_END;
mes "[Carl Orleans]";
mes "Well, I just might be able to fulfill your needs...";
next;
if (countitem(558)<3) {
mes "[Carl Orleans]";
mes "I'm sorry you do not have enough Chocolate Bars to do this.";
if(rand(2))mes "They say Stephen from Alberta used to sell good Chocolate.";
close;
}
delitem 558,3;
mes "[Carl Orleans]";
mes "You got 3 pieces of pure chocolate I see.";
mes "Give them to me...";
next;
mes "[Carl Orleans]";
mes "Ok, now I will only create my special handmade chocolates if you promise to use it wisely.";
next;
mes "[Carl Orleans]";
mes "....Hmmmmmm.....";
mes "Well...";
next;
getitem 559,1;
mes "[Carl Orleans]";
mes "Here.";
if(rand(2))close;
mes "I hope you give it to someone special, because its a special chocolate.";
mes "As you know... only I can create this.";
next;
mes "[Carl Orleans]";
mes "Enjoy.";
close;
M_WHITE:
mes "[Carl Orleans]";
mes "Well, I just might be able to fulfill your needs...";
next;
if (countitem(561)<3) {
mes "[Carl Orleans]";
mes "I'm sorry you do not have enough White Chocolate Bars to do this.";
if(rand(2))mes "They say Jainie from Alberta used to sell good White Chocolate.";
close;
}
delitem 561,3;
mes "[Carl Orleans]";
mes "You got 3 pieces of pure white chocolate I see.";
mes "Give them to me...";
next;
mes "[Carl Orleans]";
mes "Ok, now I will only create my special handmade chocolates if you promise to use it wisely.";
next;
mes "[Carl Orleans]";
mes "....Hmmmmmm.....";
mes "Well...";
next;
getitem 560,1;
mes "[Carl Orleans]";
mes "Here.";
if(rand(2))close;
mes "I hope you give it to someone special, because its a special chocolate.";
mes "As you know... only I can create this.";
next;
mes "[Carl Orleans]";
mes "Enjoy.";
close;
M_END:
mes "[Carl Orleans]";
mes "Oh.. well, if you want me to make some of my special handmade Chocolate....";
mes "You will need to give me at least ^0000FF 3 Chocolates^000000 or ^0000FF 3 White Chocolates^000000.";
if(rand(2))close;
next;
mes "[Carl Orleans]";
mes "That's right, only ^0000FF 3 Chocolates^000000 or ^0000FF 3 White Chocolates^000000.";
mes "Bring them to me and you'll get what you came for.";
if(rand(2))close;
next;
mes "[Carl Orleans]";
mes "See You.";
close;
}
|
