From 620e60eebce2c1f35c5c9a82f6ca365b316587f5 Mon Sep 17 00:00:00 2001 From: Valaris Date: Sun, 29 Jan 2006 16:10:48 +0000 Subject: AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK. IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK. EVERYTHING ELSE GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/events/valentinesday.txt | 140 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 140 insertions(+) create mode 100644 npc/events/valentinesday.txt (limited to 'npc/events/valentinesday.txt') diff --git a/npc/events/valentinesday.txt b/npc/events/valentinesday.txt new file mode 100644 index 000000000..9d329cd59 --- /dev/null +++ b/npc/events/valentinesday.txt @@ -0,0 +1,140 @@ +//===== Athena Script ======================================== +//= Valentine Event Script +//===== By: ================================================== +//= Muad_Dib(Prometheus Project) +//===== Current Version: ===================================== +//= 1.01 +//===== Compatible With: ===================================== +//= Any Athena Version +//===== Description: ========================================= +// +//===== Additional Comments: ================================= +//= 07/06/05 : Added 1st Version. [Muad_Dib] +//= 08/28/05 : Ver. 1.01 Added a missing close; [Muad_Dib] +//= Converted to eAthena format by Dr.Evil +//============================================================ + + +// Stephen - Valentine Event Chocolate seller ------------------ +alberta.gat,26,243,4 script Stephen 58,{ + 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 u 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 u that many."; +L_NONE: + close; + +L_NOTENO: + mes "[Stephen]"; + mes "I'm sorry but it seems u cant afford to buy these off me"; + close; +} + +// Jainie -- Gives information about Valentine Event ------------------------ +alberta.gat,29,243,4 script Jainie 53,{ + mes "[Jainie]"; + mes "You know what? The chocolate that my boyfriend sells are from me!"; + mes "I made them by myself."; + 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 chocolates for a while so..."; + close; +} + +// Carl Orleans -- Valentine Event Chocolate maker ------------------ +prt_castle.gat,54,34,4 script Carl Orleans 47,{ + mes "[Carl Orleans]" + mes "Yes?" + next; + menu "I want some hand made chocolate...",-,"I'm lost, sorry to bother you.",M_WAT; + + mes "[Carl Orleans]"; + mes "Well, I just might be able to fulfill your needs..."; + next; + if (countitem(558) >=3) goto L_ENO; + mes "I'm sorry you do not have enough Chocolate Bars to do this"; + close; + +L_ENO: + delitem 558,3; + mes "[Carl Orleans]"; + mes "You got 3 pieces of pure chocolate I see."; + mes "Give them to me..."; + next; + mes "Ok, now I will only create my special hand made chocolates if you promise to use it wisely."; + next; + mes "....Hmmmmmm....."; + mes "Well..."; + next; + mes "Here."; + getitem 559,1; + 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 "Enjoy."; + close; + +M_WAT: + mes "[Carl Orleans]"; + mes "Oh..well, if you want me to make some of my special Hand Made Chocolate...."; + mes "You will need to give me at least ^0000FF 3 Chocolates^000000."; + next; + mes "[Carl Orleans]"; + mes "That's right, only ^0000FF 3 Chocolates^000000"; + mes "Bring them to me and you'll get what you came for."; + next; + mes "[Carl Orleans]"; + mes "See You."; + close; +} -- cgit v1.2.3-60-g2f50