* Follow-up r16291: Standardized "Valentine's Day 2012" script (events\valentinesday_2012.txt)

* Added entry to scripts_athena.conf, with slight re-ordering of the event list

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

1 files changed, 157 insertions, 182 deletions

diff --git a/npc/events/valentinesday_2012.txt b/npc/events/valentinesday_2012.txt
index 7bde3e2dd..a92b24338 100644
--- a/npc/events/valentinesday_2012.txt
+++ b/npc/events/valentinesday_2012.txt
@@ -1,183 +1,158 @@
-//===== 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;

-}

+//===== rAthena Script =======================================
+//= Valentine's Day Event (2012)
+//===== By: ==================================================
+//= Rikimaru
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= The full Valentine's Day NPCs of the Valentine's Day
+//= Event 2012 (account-based).
+//===== Additional Comments: =================================
+//= 1.0 First version. [Rikimaru]
+//= 1.1 Standardized and fixed. [Euphy]
+//============================================================
+
+mosk_in,21,246,5	script	Pinkamenia	71,{
+	set .@n$,"^0000FF[Pinkamenia]^000000";
+	if (#V_QUE12==3) {
+		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;
+		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 them, of course!";
+		next;
+		if(select("Yes, sure!","No, never mind.") == 2) close;
+		next;
+		mes .@n$;
+		mes "Select an item.";
+		mes "The amount of Love Flowers you'll need is in brackets.";
+		for(set .@i,0; .@i < getarraysize(.@SweetsID); set .@i,.@i+1)
+			set .@menu$, .@menu$+"^00AA00["+.@SweetsCost[.@i]+"]^000000 "+getitemname(.@SweetsID[.@i])+":";
+		next;
+		set .@choice, select(.@menu$)-1;
+		mes .@n$;
+		if (countitem(.@LFlowerID) < .@SweetsCost[.@choice]) {
+			mes "You'll need more Love Flowers if you want that!";
+			close;
+		}
+		mes "Are you sure you want to trade ^00aa00"+.@SweetsCost[.@choice]+"x Love Flower ^000000 for ^0055FF"+getitemname(.@SweetsID[.@choice])+"^000000?";
+		if(select("No, I've changed my mind.:Yes, trade!") == 1) close;
+		set .@new, .@LFlowerID - .@SweetsCost[.@choice];
+		if (.@new < 0) set .@new, 0;
+		delitem .@LFlowerID, .@SweetsCost[.@choice];
+		getitem .@SweetsID[.@choice],1;
+		mes "Have fun with your item!";
+		close;
+	} else if (#V_QUE12==2) {
+		mes .@n$;
+		if (countitem(7864) < 15) {
+			mes "You have to bring me 15 Love Flowers!";
+			close;
+		}
+		mes "Thank you so much for";
+		mes "getting our Flowers back!";
+		delitem 7864,15;
+		next;
+		mes .@n$;
+		mes "Take this as a little";
+		mes "'thank you'.";
+		getexp 500000,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.";
+		mes "See you soon!";
+		set #V_QUE12,3;
+		close;
+	} else if (#V_QUE12==1) {
+		mes .@n$;
+		mes "Please bring a +8 Cake Hat";
+		mes "to the Baker Extraordinaire";
+		mes "standing next to me!";
+		close;
+	} else if (BaseLevel >= 45) {
+		mes .@n$;
+		mes "Hello "+strcharinfo(0)+", it's";
+		mes "Valentine's Day and we";
+		mes "love to deliver sweet";
+		mes "chocolates.";
+		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 the Baker Extraordinaire, who";
+		mes "is standing right next to me!";
+		set #V_QUE12,1;
+		close;
+	}
+	mes .@n$;
+	mes "Hello "+strcharinfo(0)+"!";
+	close;
+
+OnInit:
+	// Unknown item drop rate (currently set at 5%)
+	setitemscript 5105,"{ bonus bDex,1; bonus bMaxSP,80; bonus3 bAddMonsterDropItem,7864,RC_DemiHuman,500; }",0;
+	end;
+}
+
+mosk_in,21,244,3	script	Baker Extraordinaire	410,{
+	set .@n$,"^0000FF[Baker Extraordinaire]^000000";
+	if(#V_QUE12==3) {
+		mes .@n$;
+		mes "Exchange your Love Flowers with Pinkamenia!";
+		close;
+	} else if(#V_QUE12==2) {
+		mes .@n$;
+		mes "Bring 15 Love Flowers to Pinkamenia!";
+		close;
+	} else 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 exchange your +8 Cake";
+			mes "Hat for another Cake Hat.";
+			next;
+			mes .@n$;
+			delitem 5024,1;
+			getitem 5105,1;
+			equip 5105;
+			mes "Now, if you wear the";
+			mes "new Cake Hat, there";
+			mes "is a chance that";
+			mes "Demi-Human Monsters will";
+			mes "drop a Love Flower!";
+			next;
+			mes .@n$;
+			mes "The mobs stole our Flowers,";
+			mes "which we need to create ";
+			mes "our chocolates. Now get";
+			mes "15 Love Flowers and bring";
+			mes "them to Pinkamenia!";
+			set #V_QUE12,2;
+			close;
+		} else {
+			mes "Sorry, but where is your";
+			mes "+8 Cake Hat? Bring";
+			mes "it to me, and remember";
+			mes "to have it equipped!";
+			close;
+		}
+	} else {
+		mes .@n$;
+		mes "Hello, "+strcharinfo(0)+"!";
+		close;
+	}
 }
\ No newline at end of file