//===== 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;
}
}