new st.Valentine event

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@5277 54d463be-8e91-2dee-dedb-b68131a5f0ec

npc/Changelog.txt

@@ -28,6 +28,8 @@ Nexon
 Date		Added
 ======
 
+02/14
+	* New, updated st.Valentine Event with a nice quest and EXP bonuses ^_- [Lupus]
 02/13
 	* Updated the eA custom spawn sets from Playtester: Juperos lv1, Glast heim
 	  Sewers/Underground and Geffen dungeon lv3. [Skotlex]

npc/events/custom/valentinesdayexp.txt

@@ -0,0 +1,285 @@
+//===== Athena Script ========================================
+//= Valentine Event Script + EXP bonus
+//===== By: ==================================================
+//= Lupus (based on Muad_Dib's work)
+//===== Current Version: =====================================
+//= 1.02
+//===== Compatible With: =====================================
+//= Any Athena Version 45xx+
+//===== 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, dicable original valentinesday.txt
+//= You can use this event from 12 till 16 February 8) [Lupus]
+//============================================================
+
+// Tine - Valentine Event Chocolate Even Guide ------------------
+prontera.gat,156,172,4	script	Tine	58,{
+//  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.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 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 cant afford to buy these of 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. 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 cant 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.gat,54,34,4	script	Carl Orleans	47,{
+	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;
+}

npc/scripts_athena.conf

@@ -147,6 +147,7 @@ npc: npc/kafras/kafras_new.txt
 //npc: npc/events/custom/draculax.txt
 //npc: npc/events/custom/event_gefenia.txt
 //npc: npc/events/custom/2006_dogs_year.txt
+npc: npc/events/custom/valentinesdayexp.txt
 
 // --------------------------------------------------------------
 // --------------------------- Others ---------------------------