root/npc/custom/events/valentinesdayexp.txt @ 1

Revision 1, 9.8 kB (checked in by jinshiro, 17 years ago)
RevLine 
[1]1//===== eAthena Script =======================================
2//= Valentine Event Script + EXP bonus
3//===== By: ==================================================
4//= Lupus (based on Muad_Dib's work)
5//===== Current Version: =====================================
6//= 1.1
7//===== Compatible With: =====================================
8//= Any Athena Version 45xx+
9//===== Description: =========================================
10// Close to other official stValentine event (added white chocolate)
11// Custom: Handmade choco gives some EXP bonuses to married people
12//
13//===== Additional Comments: =================================
14//= WARNING!! To use this event, dicable original valentinesday.txt
15//= You can use this event from 12 till 16 February 8) [Lupus]
16//= 1.1 Removed Duplicates [Silent]
17//============================================================
18
19// Tine - Valentine Event Chocolate Even Guide ------------------
20prontera,156,172,4      script  Tine    58,{
21//  Debug info for item effects and tricky conditions 8)
22//      mes "@dsv: "+@dsv;
23//      mes "ispartneron()=="+ispartneron();
24//      mes "sex == "+sex;
25//      if(@dsv == gettime(3)+1) mes "@dsv == gettime(3)+1";
26
27        mes "[Tine]";
28        mes "The legend says that on 14th February... on the Day of Saint Valentine...";
29        mes "Only in Run-Midgard kingdom...";
30        next;
31        specialeffect 417;
32        mes "[Tine]";
33        mes "Some married chocolate lovers almost double their experience at trainings!";
34        mes "But everything isn't so simply...";
35        next;
36        menu "Wow! Tell me more!",M_INFO,"Marri... what?",-;
37
38        mes "[Tine]";
39        mes "Are you a single?";
40        mes "Today is a great date to ask your beloved half for marriage!";
41        next;
42        mes "[Tine]";
43        mes "The Marriage fee is ridiculous low these days!";
44        close;
45
46M_INFO:
47        mes "[Tine]";
48        mes "The magic effect posesses only handmade chocolate from grand-grand-grand-whoever recipes!";
49        next;
50        mes "[Tine]";
51        mes "It being known that Black Handmade Chocolate works on married guys... And the White one on the married girls!";
52        mes "If you lose your wedding ring... then alas, it won't work on you.";
53        next;
54        mes "[Tine]";
55        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!";
56        next;
57        mes "[Tine]";
58        mes "Rumors bark that guys and gals have +50% EXP bonuses on FIVE different races of the monsters... Exluding bloody bosses, of course.";
59        next;
60        mes "[Tine]";
61        mes "There's a fameous confectioner in the Castle of Prontera! He's the one you need.";
62        close;
63
64OnInit:
65        //559,Hand-made_Chocolate
66        setitemscript 559,"{ itemheal 50,50; if(sex==0 || @dsv == gettime(3)+1 || ispartneron()==0)end; set @dsv,gettime(3)+1; misceffect 113; }";
67        //560,Hand-made_White_Chocolate
68        setitemscript 560,"{ itemheal 50,50; if(sex || @dsv == gettime(3)+1 || ispartneron()==0)end; set @dsv,gettime(3)+1; misceffect 113; }";
69
70        //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; }
71        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; } }";
72        //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; }
73        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; } }";
74        end;
75}
76
77// Stephen - Valentine Event Chocolate seller ------------------
78alberta,26,243,4        script  Stephen#val1    58,{
79        mes "[Stephen]";
80        mes "Guess what I've got?";
81        mes "A tasty treat not easily found in Rune-Midgard....";
82        next;
83        mes "[Stephen]";
84        mes "Chocolate!";
85        mes "That's right, don't you love chocolate.... I do.";
86        mes "And you are in luck, because I'm selling them for only 5,000 zeny a piece!";
87        next;
88        menu "I want some chocolate!",M_CHOCO,"No thanks.",-;
89
90        mes "[Stephen]";
91        mes "You don't want any chocolate?";
92        mes "I'm telling you! You'll regret it!";
93        mes "You better get some now... you won't come across Chocolate like this ever again!";
94        mes "Think it over and visit me again sometime.";
95        close;
96
97M_CHOCO:
98        mes "[Stephen]";
99        mes "Hah!";
100        mes "I knew it!";
101        mes "But I can't sell you more then 5 at once....but, if you really need more....";
102        mes "you can come back again.";
103        mes "So how many do you want?";
104        next;
105        set @needmon,0;
106        input @flag_num;
107        if (@flag_num <= 0) goto L_NONE;
108        if (@flag_num > 5) goto L_ERR;
109        set @needmon,@flag_num*5000;
110        if (Zeny < @needmon) goto L_NOTENO;
111        set Zeny,Zeny - @needmon;
112        getitem 558,@flag_num;
113        mes "[Stephen]";
114        mes "There you go!";
115        mes "You can give that to someone as a gift, or enjoy it yourself!";
116        mes "Mmm....sweet chocolate...";
117        mes "Visit me anytime...!";
118        close;
119
120L_ERR:
121        mes "[Stephen]";
122        mes "I'm sorry but I can't give you that many.";
123L_NONE:
124        close;
125
126L_NOTENO:
127        mes "[Stephen]";
128        mes "I'm sorry but it seems you can't afford to buy these of me.";
129        close;
130}
131
132// Jainie -- Gives information about Valentine Event ------------------------
133alberta,29,243,4        script  Jainie#val1     53,{
134        mes "[Jainie]";
135        mes "You know what? The chocolate that my boyfriend sells are from me!";
136        mes "I made them by myself. Now I need some Milk for my special White Chocolate.";
137        next;
138        mes "[Jainie]";
139        mes "You know ... In cetain countries, there's a tradition of presenting chocolates to a person that you love...";
140        mes "They call it ^3355FFValentine's Day^000000.";
141        next;
142        mes "[Jainie]";
143        mes "So I gave him my delicious chocolate...";
144        mes "And then he made me cook a lot more...";
145        mes "And now he is selling them to everyone.";
146        mes "I guess he really enjoyed it.";
147        mes "But, I do feel good when people buy something I have made.";
148        next;
149        mes "[Jainie]";
150        mes "It would be great if you bought some too...";
151        mes "I will be making white chocolates for a while so...";
152        next;
153        menu "I want some white chocolate!",M_CHOCO,"No thanks.",-;
154
155        mes "[Jainie]";
156        mes "You don't like white chocolate?";
157        mes "Then buy some Stephen's black one!";
158        close;
159
160M_CHOCO:
161        mes "[Jainie]";
162        mes "I can't sell you more then 5 at once....but, if you really need more....";
163        mes "you can come back again.";
164        mes "So how many do you want? 1 portion is 4500z + 1 Milk.";
165        next;
166        set @needmon,0;
167        input @flag_num;
168        if (@flag_num == 0) goto L_NONE;
169        if (@flag_num > 5) goto L_ERR;
170        set @needmon,@flag_num*4500;
171        if (Zeny < @needmon) goto L_NOTENO;
172        if (countitem(519) < @flag_num) goto L_NOMILK;
173        set Zeny,Zeny - @needmon;
174        delitem 519,@flag_num;
175        getitem 561,@flag_num;
176        mes "[Jainie]";
177        mes "There you go!";
178        mes "You can give that to someone as a gift, or enjoy it yourself!";
179        mes "Mmm... sweet chocolate...";
180        mes "Visit me anytime...!";
181        close;
182
183L_ERR:
184        mes "[Jainie]";
185        mes "I'm sorry but I can't give you that many.";
186L_NONE:
187        close;
188
189L_NOTENO:
190        mes "[Jainie]";
191        mes "I'm sorry but it seems you can't afford to buy these of me.";
192        close;
193
194L_NOMILK:
195        mes "[Jainie]";
196        mes "You need "+@flag_num+" Milk for "+@flag_num+" portions of my special White Chocolate...";
197        close;
198}
199
200// Carl Orleans -- Valentine Event Chocolate maker ------------------
201prt_castle,54,34,4      script  Carl Orleans#val1       47,{
202        mes "[Carl Orleans]";
203        mes "Yes? What can I cook for you?";
204        next;
205        menu "Black handmade Chocolate, please",-,"I want a White handmade Chocolate...",M_WHITE,"I'm lost, sorry to bother you.",M_END;
206     
207        mes "[Carl Orleans]";
208        mes "Well, I just might be able to fulfill your needs...";
209        next;
210        if (countitem(558)<3) {
211                mes "[Carl Orleans]";
212                mes "I'm sorry you do not have enough Chocolate Bars to do this.";
213                if(rand(2))mes "They say Stephen from Alberta used to sell good Chocolate.";
214                close;
215        }
216        delitem 558,3;
217        mes "[Carl Orleans]";
218        mes "You got 3 pieces of pure chocolate I see.";
219        mes "Give them to me...";
220        next;
221        mes "[Carl Orleans]";
222        mes "Ok, now I will only create my special handmade chocolates if you promise to use it wisely.";
223        next;
224        mes "[Carl Orleans]";
225        mes "....Hmmmmmm.....";
226        mes "Well...";
227        next;
228        getitem 559,1;
229        mes "[Carl Orleans]";
230        mes "Here.";
231        if(rand(2))close;
232        mes "I hope you give it to someone special, because its a special chocolate.";
233        mes "As you know... only I can create this.";
234        next;
235        mes "[Carl Orleans]";
236        mes "Enjoy.";
237        close;
238
239M_WHITE:
240        mes "[Carl Orleans]";
241        mes "Well, I just might be able to fulfill your needs...";
242        next;
243        if (countitem(561)<3) {
244                mes "[Carl Orleans]";
245                mes "I'm sorry you do not have enough White Chocolate Bars to do this.";
246                if(rand(2))mes "They say Jainie from Alberta used to sell good White Chocolate.";
247                close;
248        }
249        delitem 561,3;
250        mes "[Carl Orleans]";
251        mes "You got 3 pieces of pure white chocolate I see.";
252        mes "Give them to me...";
253        next;
254        mes "[Carl Orleans]";
255        mes "Ok, now I will only create my special handmade chocolates if you promise to use it wisely.";
256        next;
257        mes "[Carl Orleans]";
258        mes "....Hmmmmmm.....";
259        mes "Well...";
260        next;
261        getitem 560,1;
262        mes "[Carl Orleans]";
263        mes "Here.";
264        if(rand(2))close;
265        mes "I hope you give it to someone special, because its a special chocolate.";
266        mes "As you know... only I can create this.";
267        next;
268        mes "[Carl Orleans]";
269        mes "Enjoy.";
270        close;
271
272M_END:
273        mes "[Carl Orleans]";
274        mes "Oh.. well, if you want me to make some of my special handmade Chocolate....";
275        mes "You will need to give me at least ^0000FF 3 Chocolates^000000 or ^0000FF 3 White Chocolates^000000.";
276        if(rand(2))close;
277        next;
278        mes "[Carl Orleans]";
279        mes "That's right, only ^0000FF 3 Chocolates^000000 or ^0000FF 3 White Chocolates^000000.";
280        mes "Bring them to me and you'll get what you came for.";
281        if(rand(2))close;
282        next;
283        mes "[Carl Orleans]";
284        mes "See You.";
285        close;
286}
Note: See TracBrowser for help on using the browser.