git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16291 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 183 insertions, 0 deletions

diff --git a/npc/events/valentinesday_2012.txt b/npc/events/valentinesday_2012.txt
new file mode 100644
index 000000000..7bde3e2dd
--- /dev/null
+++ b/npc/events/valentinesday_2012.txt
@@ -0,0 +1,183 @@
+//===== rAthena Script =======================================

+//= Valentine's Day NPC's 2012

+//===== By: ==================================================

+//= Rikimaru

+//===== Current Version: =====================================

+//= 1.0

+//===== Compatible With: =====================================

+//= rAthena SVN

+//===== Description: =========================================

+//= The full Valentine's Day NPC's of the Valentine's Day

+//= Event 2012 (Account based,not Character based)

+//===== Additional Comments: =================================

+//= 1.0 First version. [Rikimaru]

+//============================================================

+//=============== Pinkamenia =================================

+mosk_in,21,246,5	script	Pinkamenia	71,{

+set .@n$,"^0000FF[ Pinkamenia ]^000000";

+if(#v_QUE15==1) {

+set .LFlowerID,7864;

+setarray @SweetsID[0],538,558,539,573,559,560,12062,596,597,12414,12319;

+setarray @SweetsCost[0],1,2,5,10,10,10,15,15,15,20,20;

+setarray @SweetsCount[0],1,1,1,1,1,1,1,1,1,1,1;

+mes .@n$;

+mes "Hello ["+strcharinfo(0)+"],do";

+mes "you want to buy some items?";

+mes "You'll have to give me Love";

+mes "Flowers for the Items!";

+next;

+	if (select("Yes,sure","No,nevermind!") == 2) 

+		close;

+	next;

+	mes .@n$;

+	mes "Item = Cost";

+	for( set .@i, 0; .@i < getarraysize(@SweetsID); set .@i, .@i + 1 ) {

+		mes "^0000ff"+@SweetsCount[.@i]+"x "+getitemname(@SweetsID[.@i])+"^000000 = ^00aa00"+@SweetsCost[.@i]+"^000000";

+		if( .@i < 1 )

+			set .@menu$, getitemname(@SweetsID[.@i]);

+		else

+			set .@menu$, .@menu$+":"+getitemname(@SweetsID[.@i]);

+	}

+

+	next;

+	select(.@menu$);

+	set @choice, @menu - 1;

+

+	mes .@n$;

+	if(countitem(.LFlowerID) <@SweetsCost[@choice]) {

+		mes "You need more Love Flowers for "+@SweetsCount[@choice]+"x '"+getitemname(@SweetsID[@choice])+"'";

+		close;

+	}

+	mes "Are u realy sure to trade "+@SweetsCount[@choice]+"x '^ff0000"+getitemname(@SweetsID[@choice])+"^000000' for ^00aa00"+@SweetsCost[@choice]+"^000000 Love Flowerss?";

+	if(select("No! Cancel!:Yes, Trade me!") == 1 ) {

+		mes "Canceled the Trade";

+		close;

+	}

+

+	set .@new, .LFlowerID - @SweetsCost[@choice];

+	if( .@new < 0 )

+		set .@new, 0;

+	delitem .LFlowerID,@SweetsCost[@choice];

+	getitem @SweetsID[@choice], @SweetsCount[@choice];

+	mes "The Trade was succesfull. Have fun with the Item!";

+	close;

+}

+if(#V_QUE14==1) {

+mes .@n$;

+if(countitem(7864) < 15) {

+mes "Sorry but you have to bring me 15 Love Flower!";

+close;

+}

+mes "Thank you so much,for";

+mes "getting out Flowers back!";

+delitem 7864,15;

+next;

+mes .@n$;

+mes "Take this as a little";

+mes "Thank you.";

+set BaseEXP,+500000;

+set JobEXP,+400000;

+getitem 617,1;

+getitem 12319,2;

+next;

+mes .@n$;

+mes "If you get more Love";

+mes "Flowers,you can exchange";

+mes "them for some sweets here.";

+next;

+mes .@n$;

+mes "See you soon!";

+set #V_QUE15,1;

+close;

+}

+if(#V_QUE12==1) {

+mes .@n$;

+mes "Please bring a ";

+mes "+8 Cake Hat to Baker";

+mes "Extraordinaire,who is standing";

+mes "right next to me!";

+close;

+}

+if(BaseLevel >= 45) {

+mes .@n$;

+mes "Hello "+strcharinfo(0)+",it's";

+mes "Valentine's Day and we";

+mes "love to deliver sweet";

+mes "chocolate to the Friends";

+mes "of people,who pay us.";

+next;

+mes .@n$;

+mes "Our problem is,that we";

+mes "need a strong Person";

+mes "like you,who could help";

+mes "us,but first you'll have";

+mes "to bring a +8 Cake Hat";

+mes "to Baker Extraordinaire,who";

+mes "is standing right next to me!";

+set #V_QUE12,1;

+close;

+}

+mes .@n$;

+mes "Hello "+strcharinfo(0)+"!";

+close;

+}

+//=============== Baker Extraordinaire =======================

+mosk_in,21,244,3	script	Baker Extraordinaire	410,{

+set .@n$,"^0000FF[ Baker Extraordinaire ]^000000";

+if(#V_QUE15==1) {

+mes .@n$;

+mes "Exchange your Love Flowers at Pinkamenia!";

+close;

+}

+if(#V_QUE14==1) {

+mes .@n$;

+mes "Bring 15 Love Flowers to Pinkamenia!";

+close;

+}

+if(#V_QUE12==1) { 

+mes .@n$;

+if(getequipid(1==5024) && getequiprefinerycnt(1) >= 8) {

+mes "Ah,so Pinkamenia told you";

+mes "to bring me the +8 Cake";

+mes "Hat.Now I'm going";

+mes "to change your +8 Cake";

+mes "Hat into another Cake Hat.";

+next;

+mes .@n$;

+delitem 5024,1;

+getitem 5105,1;

+mes "Now,if you wear the";

+mes "new Cake Hat,there";

+mes "is a chance,that";

+mes "Demi-Human Monsters drop";

+mes "the item Love Flower";

+next;

+mes .@n$;

+mes "The Mobs stole our Flowers,";

+mes "which we need to create ";

+mes "our Chocolate.Now ";

+mes "get 15 Love Flowers and";

+mes "bring them to Pinkamenia,please.";

+set #V_QUE14,1;

+close;

+} else {

+mes "Sorry,but where is your";

+mes "+8 Cake Hat?";

+mes "Bring it to me,please.";

+mes "and remember,that you";

+mes "have to equip it on";

+mes "your head!";

+close;

+}

+}

+if(BaseLevel < 45) {

+mes .@n$;

+mes "Hello "+strcharinfo(0)+"!";

+close;

+}

+if(BaseLevel >= 45) {

+mes .@n$;

+mes "Hello "+strcharinfo(0)+"!";

+close;

+}

+}
\ No newline at end of file