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

1 files changed, 140 insertions, 0 deletions

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;

+}