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