From a269c22b8d92b56a6b09bc2fa8375d1803cab909 Mon Sep 17 00:00:00 2001
From: brianluau <brianluau@54d463be-8e91-2dee-dedb-b68131a5f0ec>
Date: Mon, 27 Jul 2009 16:56:26 +0000
Subject: - Added svn:eol-style native for some conf/css/html/pl/sql/txt files.
 - Added svn:executable property for several batch/shell scripts.

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@13972 54d463be-8e91-2dee-dedb-b68131a5f0ec
---
 npc/events/MemorialDay_2008.txt   | 1034 ++++++++--------
 npc/events/children_week.txt      |  170 +--
 npc/events/christmas_2008.txt     | 2432 ++++++++++++++++++-------------------
 npc/events/valentinesday_2009.txt | 1566 ++++++++++++------------
 4 files changed, 2601 insertions(+), 2601 deletions(-)

(limited to 'npc/events')

diff --git a/npc/events/MemorialDay_2008.txt b/npc/events/MemorialDay_2008.txt
index cf8eaa8ad..cbecbdae8 100644
--- a/npc/events/MemorialDay_2008.txt
+++ b/npc/events/MemorialDay_2008.txt
@@ -1,518 +1,518 @@
-//===== eAthena Script =======================================
-//= In Memory of Heroes (iRO Memorial Day 2008)
-//===== By: ==================================================
-//= Kisuka
-//===== Current Version: =====================================
-//= 1.1
-//===== Compatible With: =====================================
-//= eAthena SVN
-//===== Description: =========================================
-//
-//===== Additional Comments: =================================
-//= 1.0 First version. [Kisuka]
-//= 1.1 Many Many Fixes. [Kisuka]
-//============================================================
-
-// ================== Lauds ======================
-// ===============================================
-prontera,182,214,4	script	Lauds#Memorial	58,{
-	if(Memorial08 < 1) {
-		mes "[Mad Sago Lauds]";
-		mes "Hey, yo!";
-		mes "What are you doing there!?";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "Do you know what day it is!?";
-		mes "It's a very important date!";
-		mes "A very important date to remember!";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "What is this!?";
-		emotion 0;
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "Where is your towel!?";
-		next;
-		mes "[" + strcharinfo(0) + "]";
-		mes "My what?";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "How are you supposed to go on your trip";
-		mes "without your towel!?";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "If you think this is just another";
-		mes "holiday,";
-		mes "I'm not going to waste my breath.";
-		mes "But if you like to pay a tribute to";
-		mes "great soldiers,";
-		mes "I will help you ready yourself";
-		next;
-		if (select("I guess so...:Are you crazy or something?") == 2) {
-			mes "[Mad Sago Lauds]";
-			mes "Fine, be unprepared!";
-			next;
-			mes "[Mad Sago Lauds]";
-			mes "";
-			mes "^FF0000YOU WILL RUE THE DAY!^000000";
-			close;
-		}
-		mes "[Mad Sago Lauds]";
-		mes "Great!";
-		mes "Then listen to me carefully.";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "Now before you can pay tribute to";
-		mes "the fallen soldiers";
-		mes "you must be properly equipped";
-		mes "Without your towel you will be";
-		mes "lost!";
-		mes "If you bring me the materials, I can make you a towel.";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "Listen closely.";
-		mes "Bring me ^FF000030 Fabric and 20 Fluffs^000000.";
-		set Memorial08,1;
-		close;
-	}
-
-	else if(Memorial08 == 1) {
-		if (countitem(1059) < 30 || countitem(914) < 20) {
-			mes "[Mad Sago Lauds]";
-			mes "What are these? They aren't";
-			mes "enough?!";
-			mes "*Sigh* Do I really have to tell you";
-			mes "again?!";
-			mes "Bring me ^FF000030 Fabric and 20 Fluffs^000000.";
-			close;
-		}else{
-			mes "***Mad Sago Lauds appears to be";
-			mes "muttering to himself***";
-			next;
-			mes "[Mad Sago Lauds]";
-			mes "So, did you bring the towel";
-			mes "materials?";
-			next;
-			mes "[Mad Sago Lauds]";
-			mes "Excellent; you've brought them";
-			mes "all.";
-			mes "Then I shall make you a Towel of";
-			mes "Memory as I promised.";
-			mes "Give me a moment.";
-			next;
-			mes "[Mad Sago Lauds]";
-			mes "There you go!";
-			delitem 1059,30;
-			delitem 914,20;
-			getitem 6025,1;
-			getnameditem 6025," + strcharinfo(0) + ";
-			set Memorial08,2;
-			close;
-		}
-	}
-	
-	else if(Memorial08 == 2) {
-		mes "[Mad Sago Lauds]";
-		mes "Ah, you have fluffy new towel now";
-		mes "I even put your name on it";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "Say, how do you like to go";
-		mes "on a journey to pay a tribute to";
-		mes "Memorial Day?";
-		next;
-		if (select("Sure.:No, I'm Busy.") == 2) {
-			mes "[Mad Sago Lauds]";
-			mes "Don't come crying to me";
-			mes "if someone decides to";
-			mes "build a highway through";
-			mes "your home!";
-			close;
-		}
-		mes "[Mad Sago Lauds]";
-		mes "Good. By the way, do you even know";
-		mes "what the towel is for?";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "It seems you're just carrying it";
-		mes "without understanding its meaning.";
-		mes "What a shame! You should go speak";
-		mes "to ^FF0000Grast in Prontera^000000.";
-		set Memorial08,3;
-		close;
-	}
-
-	else if(Memorial08 == 3) {
-		mes "[Mad Sago Lauds]";
-		mes "What are you still doing here? I";
-		mes "told you to go speak to Grast in";
-		mes "Prontera!";
-		close;
-	}
-
-	else if(Memorial08 == 4 || Memorial08 == 5 || Memorial08 == 6) {
-		mes "[Mad Sago Lauds]";
-		mes "Go help Grast, and then come back.";
-		close;
-	}
-
-	else if(Memorial08 == 7) {
-		mes "[Mad Sago Lauds]";
-		mes "Oh, you've brought them all.";
-		mes "Hahaha!";
-		mes "HAHAHAHAHAHA!!!! cough cough";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "Please give them to me. Thank you";
-		mes "for your hard work, by the way.";
-		mes "Say, have you learned anything from the journey?";
-		mes "Now is to go visit the plaque at 12";
-		mes "o'clock direction in Prontera.";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "What do you mean you were just";
-		mes "there?";
-		next;
-		mes "[Mad Sago Lauds]";
-		mes "What? Why are you giving me your";
-		mes "garbage!";
-		mes "Those items are not useful to me at all";
-		mes "You should be going to the plaque!";
-		set Memorial08,8;
-		close;
-	}
-
-	else if(Memorial08 == 8) {
-		mes "[Mad Sago Lauds]";
-		mes "Stop trying to give me your garbage!";
-		mes "Go to the plaque at 12 o'clock";
-		mes "direction in Prontera for your journey!";
-		close;
-	}
-	
-	else if(Memorial08 >= 9) {
-		set .@RandomMsg, rand(1,5);
-		if(.@RandomMsg == 1) {
-			mes "[Mad Sago Lauds]";
-			mes "Don't panic!";
-			emotion 0;
-			close;	
-		}
-		else if(.@RandomMsg == 2) {
-			mes "[Mad Sago Lauds]";
-			mes "Life... is like a grapefruit.";
-			mes "It's orange and squishy, and has a";
-			mes "few pips in it,";
-			mes "and some folks have half a one for";
-			mes "breakfast.";
-			close;
-		}
-		else if(.@RandomMsg == 3) {
-			mes "[Mad Sago Lauds]";
-			mes "There was a point to this story,";
-			mes "but it has temporarily escaped the";
-			mes "chronicler's mind.";
-			close;
-		}
-		else if(.@RandomMsg == 4) {
-			mes "[Mad Sago Lauds]";
-			mes "42!";
-			close;
-		}
-		else if(.@RandomMsg == 5) {
-			mes "[Mad Sago Lauds]";
-			mes "It is a mistake to think you can";
-			mes "solve any major problems just with";
-			mes "potatoes.";
-			close;
-		}
-	}
-}
-		
-// ============== Memorial Plaque ================
-// ===============================================
-prontera,153,286,4	script	Memorial Plaque#Memorial	857,{
-	if(Memorial08 < 8) {
-		mes "[" + strcharinfo(0) + "]";
-		mes "- It's a dusty old plaque.-";
-		close;
-	}
-	
-	else if(Memorial08 == 8) {
-		mes "[" + strcharinfo(0) + "]";
-		mes "- It's a dusty old plaque.-";
-		mes "'This must be what Lauds was talking about.'";
-		mes "'Let's dust it off with the towel.'";
-		next;
-		set Memorial08,9;
-		getexp 93750,43750;
-		goto L_CleanPlaque;
-	}
-	
-	else if(Memorial08 >= 9) {
-		goto L_CleanPlaque;
-	}
-	
-	L_CleanPlaque:
-		mes "- You see a message from the cleaned plaque.";
-		next;
-		mes "-Although no sculptured marble";
-		mes "should rise to their memory,-";
-		mes "-nor engraved stone bear record of";
-		mes "their deeds,-";
-		mes "-yet will their remembrance be as";
-		mes "lasting as the land they honored.-";
-		mes "-Daniel Webster-";
-		if(Memorial08 == 9) {
-			getexp 93750,43750;
-		}
-		next;
-		mes "-There's another message.-";
-		next;
-		mes "-I may not have gone where I";
-		mes "intended to go,-";
-		mes "-but I think I have ended up where";
-		mes "I needed to be.-";
-		mes "- Douglas Adams.-";
-		if(Memorial08 == 9) { 
-			getexp 93750,43750;
-		}
-		next;
-		mes "-This is the last message.-";
-		next;
-		mes "-True heroism is remarkably sober,";
-		mes "very undramatic.-";
-		mes "-It is not the urge to surpass all";
-		mes "others at whatever cost,-";
-		mes "- but the urge to serve others at";
-		mes "whatever cost. -";
-		mes "- Arthur Ashe -";
-		if(Memorial08 == 9) { 
-			getexp 93750,43750;
-			set Memorial08,10;
-		}
-		close;
-}
-
-
-// ==================== Grast ====================
-// ===============================================
-prontera,150,270,4	script	Grast#Memorial	900,{
-	if(Memorial08 < 3) {
-		mes "[Grast]";
-		mes "Memorial Day is a sad and yet";
-		mes "glorious day.";
-		mes "I wonder how many people remember";
-		mes "them...";
-		close;
-	}
-	
-	else if(Memorial08 == 3) {
-		mes "[Grast]";
-		mes "Oh, isn't that a Towel of Memory?";
-		mes "I'm so glad to meet someone who";
-		mes "understands the meaning of Memorial Day.";
-		next;
-		mes "[Grast]";
-		mes "It is very important to know what";
-		mes "we're celebrating today, don't you think?";
-		next;
-		mes "[Grast]";
-		mes "If you like to go on a journey to";
-		mes "pay a tribute to Memorial Day,";
-		mes "you should bring me some materials";
-		mes "I ask.";
-		next;
-		mes "[Grast]";
-		mes "Please bring me ^FF0000one of each Red";
-		mes "Potion, Green Potion, Awakening";
-		mes "Potion, and Butterfly Wing^000000.";
-		mes "I'll be waiting for your return.";
-		set Memorial08,4;
-		close;
-	}
-
-	else if(Memorial08 == 4) {
-		if (countitem(501) < 1 || countitem(506) < 1 || countitem(656) < 1 || countitem(602) < 1) {
-			mes "[Grast]";
-			mes "Oops, you haven't brought all";
-			mes "materials.";
-			mes "Please make sure you need to bring me";
-			mes " ^FF0000one of each Red Potion, Green";
-			mes "Potion, Awakening Potion, and";
-			mes "Butteryfly Wing^000000.";
-			next;
-			mes "[Grast]";
-			mes "You'll have to bring me more";
-			mes "materials afterwards.";
-			mes "If you feel too burdened to gather";
-			mes "them all,";
-			mes "I can provide you all the";
-			mes "materials.";
-			next;
-			if (select("I'll gather the rest.:Give me the materials.") == 2) {
-				goto L_GiveUp;
-			}
-			goto L_Continue;
-		}else{
-			mes "[Grast]";
-			mes "Oh, you've brought the materials I asked.";
-			next;
-			mes "[Grast]";
-			mes "Hmm, you will need some more things still...";
-			next;
-			mes "[Grast]";
-			mes "Please bring me ^FF0000one of each Trap,";
-			mes "Yggdrasil Leaf, Blue Gemstone,";
-			mes "Crystal Mirror, Meat, and Carrot.^000000";
-			mes "I'll be waiting for your return.";
-			set Memorial08,5;
-			close;
-		}
-	}
-	
-	else if(Memorial08 == 5) {
-		if (countitem(1065) < 1 || countitem(610) < 1 || countitem(717) < 1 || countitem(747) < 1 || countitem(517) < 1 || countitem(515) < 1) {
-			mes "[Grast]";
-			mes "Oops, you haven't brought all materials.";
-			mes "Please make sure you'll have to bring me";
-			mes " ^FF0000one of each Trap, Yggdrasil Leaf,";
-			mes "Blue Gemstone, Crystal Mirror,";
-			mes "Meat, and Carrot^000000.";
-			next;
-			mes "[Grast]";
-			mes "You'll have to bring me more";
-			mes "materials afterwards.";
-			mes "If you feel too burdened to gather them all,";
-			mes "I can provide you all the materials.";
-			next;
-			if (select("I'll gather the rest.:Give me the materials.") == 2) {
-				goto L_GiveUp;
-			}
-			goto L_Continue;
-		}else{
-			mes "[Grast]";
-			mes "Oh, you've brought everything I asked.";
-			mes "Hmm, I think you need just a little bit more.";
-			next;
-			mes "[Grast]";
-			mes "Please bring me ^FF0000one of each Pet";
-			mes "Incubator, Firecracker, Poring";
-			mes "Doll, and Bouquet^000000.";
-			set Memorial08,6;
-			close;
-		}
-	}
-	
-	else if(Memorial08 == 6) {
-		if (countitem(643) < 1 || countitem(12018) < 1 || countitem(741) < 1 || countitem(745) < 1) {
-			mes "[Grast]";
-			mes "Oops, you haven't brought all materials.";
-			mes "Please make sure you need to bring me";
-			mes " ^FF0000one of each Pet Incubator,";
-			mes "Firecracker, Poring Doll and Bouquet";
-			next;
-			mes "[Grast]";
-			mes "They are the last batch of materials.";
-			mes "If you feel too burdened to gather them all,";
-			mes "I can provide you all the materials.";
-			next;
-			mes "[Grast]";
-			mes "If I provide you all materials, however,";
-			mes "I won't have to thank you for your service.";
-			mes "It's your call, " + strcharinfo(0) + ".";
-			next;
-			if (select("I'll gather the rest.:Give me the materials.") == 2) {
-				goto L_GiveUp;
-			}
-			goto L_Continue;
-		}else{
-			mes "[Grast]";
-			mes "Have you brought the materials I asked?";
-			mes "Ah, thank you for your hard work;";
-			mes "you've brought all of them.";
-			next;
-			mes "[Grast]";
-			mes "I hope you'll learn a valuable";
-			mes "lesson while gathering these materials.";
-			mes "I like to give you a small gift for your service.";
-			next;
-			mes "[Grast]";
-			mes "You see, I have two different gifts";
-			mes "in my each hand.";
-			mes "A best thing would be giving you";
-			mes "both of them, but...";
-			mes "How do you like to test your luck, " + strcharinfo(0) + "?";
-			next;
-			mes "[Grast]";
-			mes "Okay, which hand would you like to pick?";
-			next;
-			if (select("Left hand.:Right hand.") == 2) {
-				mes "[Grast]";
-				mes "You've selected my right hand.";
-				mes "Here's the gift for you.";
-				mes "Now, please bring all these";
-				mes "materials to Lauds.";
-				set Memorial08, 7;
-				getitem 617,1;
-				close;
-			}
-			mes "[Grast]";
-			mes "You've selected my left hand.";
-			mes "Here's the gift for you.";
-			mes "Now, please bring all these";
-			mes "materials to Lauds.";
-			set Memorial08, 7;
-			getitem 12109,1;
-			close;
-		}
-	}
-	
-	else if(Memorial08 == 7) {
-		mes "[Grast]";
-		mes "Have you met Lauds?";
-		mes "I hope you'll remember your freedom";
-		mes "and happiness";
-		mes "are built on thousands of lives";
-		mes "sacrificed in war.";
-		close;
-	}
-
-	else if(Memorial08 >= 8) {
-		mes "[Grast]";
-		mes "A towel is about the most massively";
-		mes "useful thing an adventurer can have.";
-		close;
-	}
-
-	L_GiveUp:
-		mes "[Grast]";
-		mes "Oh, I see. I guess you're quite";
-		mes "busy nowadays, huh?";
-		mes "No problem; I'll give you all the";
-		mes "supplies...";
-		next;
-		mes "[Grast]";
-		mes "There you go.";
-		mes "I crushed all the items together";
-		mes "into a more compact form for you";
-		mes "You can thank me later for that";
-		mes "extra service.";
-		mes "Please bring them to Lauds.";
-		set Memorial08,7;
-		getitem 7126,1;
-		next;
-		mes "[Grast]";
-		mes "By the way, he had an unfortunate";
-		mes "accident, and has kind of lost his";
-		mes "mind.";
-		mes "Please don't be alarmed even if he";
-		mes "starts babbling.";
-		close;
-	
-	L_Continue:
-		mes "[Grast]";
-		mes "That's a good idea.";
-		mes "Then I'll be waiting for your return.";
-		close;
+//===== eAthena Script =======================================
+//= In Memory of Heroes (iRO Memorial Day 2008)
+//===== By: ==================================================
+//= Kisuka
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//
+//===== Additional Comments: =================================
+//= 1.0 First version. [Kisuka]
+//= 1.1 Many Many Fixes. [Kisuka]
+//============================================================
+
+// ================== Lauds ======================
+// ===============================================
+prontera,182,214,4	script	Lauds#Memorial	58,{
+	if(Memorial08 < 1) {
+		mes "[Mad Sago Lauds]";
+		mes "Hey, yo!";
+		mes "What are you doing there!?";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "Do you know what day it is!?";
+		mes "It's a very important date!";
+		mes "A very important date to remember!";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "What is this!?";
+		emotion 0;
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "Where is your towel!?";
+		next;
+		mes "[" + strcharinfo(0) + "]";
+		mes "My what?";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "How are you supposed to go on your trip";
+		mes "without your towel!?";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "If you think this is just another";
+		mes "holiday,";
+		mes "I'm not going to waste my breath.";
+		mes "But if you like to pay a tribute to";
+		mes "great soldiers,";
+		mes "I will help you ready yourself";
+		next;
+		if (select("I guess so...:Are you crazy or something?") == 2) {
+			mes "[Mad Sago Lauds]";
+			mes "Fine, be unprepared!";
+			next;
+			mes "[Mad Sago Lauds]";
+			mes "";
+			mes "^FF0000YOU WILL RUE THE DAY!^000000";
+			close;
+		}
+		mes "[Mad Sago Lauds]";
+		mes "Great!";
+		mes "Then listen to me carefully.";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "Now before you can pay tribute to";
+		mes "the fallen soldiers";
+		mes "you must be properly equipped";
+		mes "Without your towel you will be";
+		mes "lost!";
+		mes "If you bring me the materials, I can make you a towel.";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "Listen closely.";
+		mes "Bring me ^FF000030 Fabric and 20 Fluffs^000000.";
+		set Memorial08,1;
+		close;
+	}
+
+	else if(Memorial08 == 1) {
+		if (countitem(1059) < 30 || countitem(914) < 20) {
+			mes "[Mad Sago Lauds]";
+			mes "What are these? They aren't";
+			mes "enough?!";
+			mes "*Sigh* Do I really have to tell you";
+			mes "again?!";
+			mes "Bring me ^FF000030 Fabric and 20 Fluffs^000000.";
+			close;
+		}else{
+			mes "***Mad Sago Lauds appears to be";
+			mes "muttering to himself***";
+			next;
+			mes "[Mad Sago Lauds]";
+			mes "So, did you bring the towel";
+			mes "materials?";
+			next;
+			mes "[Mad Sago Lauds]";
+			mes "Excellent; you've brought them";
+			mes "all.";
+			mes "Then I shall make you a Towel of";
+			mes "Memory as I promised.";
+			mes "Give me a moment.";
+			next;
+			mes "[Mad Sago Lauds]";
+			mes "There you go!";
+			delitem 1059,30;
+			delitem 914,20;
+			getitem 6025,1;
+			getnameditem 6025," + strcharinfo(0) + ";
+			set Memorial08,2;
+			close;
+		}
+	}
+	
+	else if(Memorial08 == 2) {
+		mes "[Mad Sago Lauds]";
+		mes "Ah, you have fluffy new towel now";
+		mes "I even put your name on it";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "Say, how do you like to go";
+		mes "on a journey to pay a tribute to";
+		mes "Memorial Day?";
+		next;
+		if (select("Sure.:No, I'm Busy.") == 2) {
+			mes "[Mad Sago Lauds]";
+			mes "Don't come crying to me";
+			mes "if someone decides to";
+			mes "build a highway through";
+			mes "your home!";
+			close;
+		}
+		mes "[Mad Sago Lauds]";
+		mes "Good. By the way, do you even know";
+		mes "what the towel is for?";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "It seems you're just carrying it";
+		mes "without understanding its meaning.";
+		mes "What a shame! You should go speak";
+		mes "to ^FF0000Grast in Prontera^000000.";
+		set Memorial08,3;
+		close;
+	}
+
+	else if(Memorial08 == 3) {
+		mes "[Mad Sago Lauds]";
+		mes "What are you still doing here? I";
+		mes "told you to go speak to Grast in";
+		mes "Prontera!";
+		close;
+	}
+
+	else if(Memorial08 == 4 || Memorial08 == 5 || Memorial08 == 6) {
+		mes "[Mad Sago Lauds]";
+		mes "Go help Grast, and then come back.";
+		close;
+	}
+
+	else if(Memorial08 == 7) {
+		mes "[Mad Sago Lauds]";
+		mes "Oh, you've brought them all.";
+		mes "Hahaha!";
+		mes "HAHAHAHAHAHA!!!! cough cough";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "Please give them to me. Thank you";
+		mes "for your hard work, by the way.";
+		mes "Say, have you learned anything from the journey?";
+		mes "Now is to go visit the plaque at 12";
+		mes "o'clock direction in Prontera.";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "What do you mean you were just";
+		mes "there?";
+		next;
+		mes "[Mad Sago Lauds]";
+		mes "What? Why are you giving me your";
+		mes "garbage!";
+		mes "Those items are not useful to me at all";
+		mes "You should be going to the plaque!";
+		set Memorial08,8;
+		close;
+	}
+
+	else if(Memorial08 == 8) {
+		mes "[Mad Sago Lauds]";
+		mes "Stop trying to give me your garbage!";
+		mes "Go to the plaque at 12 o'clock";
+		mes "direction in Prontera for your journey!";
+		close;
+	}
+	
+	else if(Memorial08 >= 9) {
+		set .@RandomMsg, rand(1,5);
+		if(.@RandomMsg == 1) {
+			mes "[Mad Sago Lauds]";
+			mes "Don't panic!";
+			emotion 0;
+			close;	
+		}
+		else if(.@RandomMsg == 2) {
+			mes "[Mad Sago Lauds]";
+			mes "Life... is like a grapefruit.";
+			mes "It's orange and squishy, and has a";
+			mes "few pips in it,";
+			mes "and some folks have half a one for";
+			mes "breakfast.";
+			close;
+		}
+		else if(.@RandomMsg == 3) {
+			mes "[Mad Sago Lauds]";
+			mes "There was a point to this story,";
+			mes "but it has temporarily escaped the";
+			mes "chronicler's mind.";
+			close;
+		}
+		else if(.@RandomMsg == 4) {
+			mes "[Mad Sago Lauds]";
+			mes "42!";
+			close;
+		}
+		else if(.@RandomMsg == 5) {
+			mes "[Mad Sago Lauds]";
+			mes "It is a mistake to think you can";
+			mes "solve any major problems just with";
+			mes "potatoes.";
+			close;
+		}
+	}
+}
+		
+// ============== Memorial Plaque ================
+// ===============================================
+prontera,153,286,4	script	Memorial Plaque#Memorial	857,{
+	if(Memorial08 < 8) {
+		mes "[" + strcharinfo(0) + "]";
+		mes "- It's a dusty old plaque.-";
+		close;
+	}
+	
+	else if(Memorial08 == 8) {
+		mes "[" + strcharinfo(0) + "]";
+		mes "- It's a dusty old plaque.-";
+		mes "'This must be what Lauds was talking about.'";
+		mes "'Let's dust it off with the towel.'";
+		next;
+		set Memorial08,9;
+		getexp 93750,43750;
+		goto L_CleanPlaque;
+	}
+	
+	else if(Memorial08 >= 9) {
+		goto L_CleanPlaque;
+	}
+	
+	L_CleanPlaque:
+		mes "- You see a message from the cleaned plaque.";
+		next;
+		mes "-Although no sculptured marble";
+		mes "should rise to their memory,-";
+		mes "-nor engraved stone bear record of";
+		mes "their deeds,-";
+		mes "-yet will their remembrance be as";
+		mes "lasting as the land they honored.-";
+		mes "-Daniel Webster-";
+		if(Memorial08 == 9) {
+			getexp 93750,43750;
+		}
+		next;
+		mes "-There's another message.-";
+		next;
+		mes "-I may not have gone where I";
+		mes "intended to go,-";
+		mes "-but I think I have ended up where";
+		mes "I needed to be.-";
+		mes "- Douglas Adams.-";
+		if(Memorial08 == 9) { 
+			getexp 93750,43750;
+		}
+		next;
+		mes "-This is the last message.-";
+		next;
+		mes "-True heroism is remarkably sober,";
+		mes "very undramatic.-";
+		mes "-It is not the urge to surpass all";
+		mes "others at whatever cost,-";
+		mes "- but the urge to serve others at";
+		mes "whatever cost. -";
+		mes "- Arthur Ashe -";
+		if(Memorial08 == 9) { 
+			getexp 93750,43750;
+			set Memorial08,10;
+		}
+		close;
+}
+
+
+// ==================== Grast ====================
+// ===============================================
+prontera,150,270,4	script	Grast#Memorial	900,{
+	if(Memorial08 < 3) {
+		mes "[Grast]";
+		mes "Memorial Day is a sad and yet";
+		mes "glorious day.";
+		mes "I wonder how many people remember";
+		mes "them...";
+		close;
+	}
+	
+	else if(Memorial08 == 3) {
+		mes "[Grast]";
+		mes "Oh, isn't that a Towel of Memory?";
+		mes "I'm so glad to meet someone who";
+		mes "understands the meaning of Memorial Day.";
+		next;
+		mes "[Grast]";
+		mes "It is very important to know what";
+		mes "we're celebrating today, don't you think?";
+		next;
+		mes "[Grast]";
+		mes "If you like to go on a journey to";
+		mes "pay a tribute to Memorial Day,";
+		mes "you should bring me some materials";
+		mes "I ask.";
+		next;
+		mes "[Grast]";
+		mes "Please bring me ^FF0000one of each Red";
+		mes "Potion, Green Potion, Awakening";
+		mes "Potion, and Butterfly Wing^000000.";
+		mes "I'll be waiting for your return.";
+		set Memorial08,4;
+		close;
+	}
+
+	else if(Memorial08 == 4) {
+		if (countitem(501) < 1 || countitem(506) < 1 || countitem(656) < 1 || countitem(602) < 1) {
+			mes "[Grast]";
+			mes "Oops, you haven't brought all";
+			mes "materials.";
+			mes "Please make sure you need to bring me";
+			mes " ^FF0000one of each Red Potion, Green";
+			mes "Potion, Awakening Potion, and";
+			mes "Butteryfly Wing^000000.";
+			next;
+			mes "[Grast]";
+			mes "You'll have to bring me more";
+			mes "materials afterwards.";
+			mes "If you feel too burdened to gather";
+			mes "them all,";
+			mes "I can provide you all the";
+			mes "materials.";
+			next;
+			if (select("I'll gather the rest.:Give me the materials.") == 2) {
+				goto L_GiveUp;
+			}
+			goto L_Continue;
+		}else{
+			mes "[Grast]";
+			mes "Oh, you've brought the materials I asked.";
+			next;
+			mes "[Grast]";
+			mes "Hmm, you will need some more things still...";
+			next;
+			mes "[Grast]";
+			mes "Please bring me ^FF0000one of each Trap,";
+			mes "Yggdrasil Leaf, Blue Gemstone,";
+			mes "Crystal Mirror, Meat, and Carrot.^000000";
+			mes "I'll be waiting for your return.";
+			set Memorial08,5;
+			close;
+		}
+	}
+	
+	else if(Memorial08 == 5) {
+		if (countitem(1065) < 1 || countitem(610) < 1 || countitem(717) < 1 || countitem(747) < 1 || countitem(517) < 1 || countitem(515) < 1) {
+			mes "[Grast]";
+			mes "Oops, you haven't brought all materials.";
+			mes "Please make sure you'll have to bring me";
+			mes " ^FF0000one of each Trap, Yggdrasil Leaf,";
+			mes "Blue Gemstone, Crystal Mirror,";
+			mes "Meat, and Carrot^000000.";
+			next;
+			mes "[Grast]";
+			mes "You'll have to bring me more";
+			mes "materials afterwards.";
+			mes "If you feel too burdened to gather them all,";
+			mes "I can provide you all the materials.";
+			next;
+			if (select("I'll gather the rest.:Give me the materials.") == 2) {
+				goto L_GiveUp;
+			}
+			goto L_Continue;
+		}else{
+			mes "[Grast]";
+			mes "Oh, you've brought everything I asked.";
+			mes "Hmm, I think you need just a little bit more.";
+			next;
+			mes "[Grast]";
+			mes "Please bring me ^FF0000one of each Pet";
+			mes "Incubator, Firecracker, Poring";
+			mes "Doll, and Bouquet^000000.";
+			set Memorial08,6;
+			close;
+		}
+	}
+	
+	else if(Memorial08 == 6) {
+		if (countitem(643) < 1 || countitem(12018) < 1 || countitem(741) < 1 || countitem(745) < 1) {
+			mes "[Grast]";
+			mes "Oops, you haven't brought all materials.";
+			mes "Please make sure you need to bring me";
+			mes " ^FF0000one of each Pet Incubator,";
+			mes "Firecracker, Poring Doll and Bouquet";
+			next;
+			mes "[Grast]";
+			mes "They are the last batch of materials.";
+			mes "If you feel too burdened to gather them all,";
+			mes "I can provide you all the materials.";
+			next;
+			mes "[Grast]";
+			mes "If I provide you all materials, however,";
+			mes "I won't have to thank you for your service.";
+			mes "It's your call, " + strcharinfo(0) + ".";
+			next;
+			if (select("I'll gather the rest.:Give me the materials.") == 2) {
+				goto L_GiveUp;
+			}
+			goto L_Continue;
+		}else{
+			mes "[Grast]";
+			mes "Have you brought the materials I asked?";
+			mes "Ah, thank you for your hard work;";
+			mes "you've brought all of them.";
+			next;
+			mes "[Grast]";
+			mes "I hope you'll learn a valuable";
+			mes "lesson while gathering these materials.";
+			mes "I like to give you a small gift for your service.";
+			next;
+			mes "[Grast]";
+			mes "You see, I have two different gifts";
+			mes "in my each hand.";
+			mes "A best thing would be giving you";
+			mes "both of them, but...";
+			mes "How do you like to test your luck, " + strcharinfo(0) + "?";
+			next;
+			mes "[Grast]";
+			mes "Okay, which hand would you like to pick?";
+			next;
+			if (select("Left hand.:Right hand.") == 2) {
+				mes "[Grast]";
+				mes "You've selected my right hand.";
+				mes "Here's the gift for you.";
+				mes "Now, please bring all these";
+				mes "materials to Lauds.";
+				set Memorial08, 7;
+				getitem 617,1;
+				close;
+			}
+			mes "[Grast]";
+			mes "You've selected my left hand.";
+			mes "Here's the gift for you.";
+			mes "Now, please bring all these";
+			mes "materials to Lauds.";
+			set Memorial08, 7;
+			getitem 12109,1;
+			close;
+		}
+	}
+	
+	else if(Memorial08 == 7) {
+		mes "[Grast]";
+		mes "Have you met Lauds?";
+		mes "I hope you'll remember your freedom";
+		mes "and happiness";
+		mes "are built on thousands of lives";
+		mes "sacrificed in war.";
+		close;
+	}
+
+	else if(Memorial08 >= 8) {
+		mes "[Grast]";
+		mes "A towel is about the most massively";
+		mes "useful thing an adventurer can have.";
+		close;
+	}
+
+	L_GiveUp:
+		mes "[Grast]";
+		mes "Oh, I see. I guess you're quite";
+		mes "busy nowadays, huh?";
+		mes "No problem; I'll give you all the";
+		mes "supplies...";
+		next;
+		mes "[Grast]";
+		mes "There you go.";
+		mes "I crushed all the items together";
+		mes "into a more compact form for you";
+		mes "You can thank me later for that";
+		mes "extra service.";
+		mes "Please bring them to Lauds.";
+		set Memorial08,7;
+		getitem 7126,1;
+		next;
+		mes "[Grast]";
+		mes "By the way, he had an unfortunate";
+		mes "accident, and has kind of lost his";
+		mes "mind.";
+		mes "Please don't be alarmed even if he";
+		mes "starts babbling.";
+		close;
+	
+	L_Continue:
+		mes "[Grast]";
+		mes "That's a good idea.";
+		mes "Then I'll be waiting for your return.";
+		close;
 }
\ No newline at end of file
diff --git a/npc/events/children_week.txt b/npc/events/children_week.txt
index 9a8933be5..e8fcd770e 100644
--- a/npc/events/children_week.txt
+++ b/npc/events/children_week.txt
@@ -1,86 +1,86 @@
-//===== eAthena Script =======================================
-//= Children Week Event
-//===== By: ==================================================
-//= Samuray22
-//===== Current Version: =====================================
-//= 1.1
-//===== Compatible With: =====================================
-//= eAthena SVN
-//===== Description: =========================================
-//= [Aegis Conversion]
-//= Indian Ro: Children Week Event
-//===== Additional Comments: =================================
-//= 1.1 First Beta. [Samuray22]
-//============================================================
-
-prontera,146,91,5	script	Pandit chacha#child07	61,{
-	if(BaseLevel > 50) {
-		mes "[Pandit chacha]";
-		mes "Hahaha.";
-		mes "It is special day, comes only one time in a year.";
-		mes "If you see little adventurers around you send to me~";
-		mes "I will give the special gift.";
-		close;
-	} else if(BaseLevel < 20) {
-		mes "[Pandit chacha]";
-		mes "Hahaha.";
-		mes "You are a baby adventurer not little adventurer.";
-		mes "When you more grow up, come back again. hahaha.";
-		close;
-	} else if(oversea_event9 < 1) {
-		mes "[Pandit chacha]";
-		mes "Hahaha.";
-		mes "Welcome, little adventurers!";
-		mes "Today is special day, isn't it~?";
-		mes "I would like to give the small gift to little adventurer...";
-		mes "What about you? Do you want to take it?";
-		next;
-		if(select("No. I will take it later.","Sure, i want.") == 1) {
-			mes "[Pandit chacha]";
-			mes "That's too bad.... hum...";
-			mes "I gathered some stuffs from far a way world to make it....";
-			mes "Whenever come back again if you want it...";
-			close;
-		}
-			set oversea_event9,1;
-			getitem 11705,10; //Children's Potion
-			mes "[Pandit chacha]";
-			mes "Look. This is a child Potion.";
-			mes "The weight is just 1 but recover much HP.";
-			mes "If you want to get more, bring the 1 Wedding Bouquet and 1 Witherless Rose.";
-			close;
-	} else if(oversea_event9 == 1) {
-		if(countitem(745) > 0 && countitem(748) > 0) {
-			mes "[Pandit chacha]";
-			mes "Ahha!!";
-			mes "You have remembered my beautiful composition.";
-			mes "You did good work.";
-			mes "Could you give me 1 Wedding Bouquet and 1 Witherless Rose? ";
-			next;
-			if(select("Not yet.","Sure, take it.") == 1) {
-				mes "[Pandit chacha]";
-				mes "If you are not prepared yet, call me when you ready.";
-				close;
-			}
-				mes "[Pandit chacha]";
-				mes "Hahaha.";
-				mes "Oh~ you get it.";
-				mes "Here, I will exchange to the 50 child potion.";
-				mes "Once you get this 50 child potion, I won't give any more.";
-				close2;
-				delitem 745,1; //Wedding Bouquet
-				delitem 748,1; //Witherless Rose
-				set oversea_event9,2;
-				getitem 11705,50; //Children's Potion
-				end;
-		}
-			mes "[Pandit chacha]";
-			mes "Little adventurers, you should bring the 1 Wedding Bouquet and 1 Witherless Rose.";
-			mes "If you bring these stuffs I will exchange them for child Potion. ";
-			close;
-	}
-                mes "[Pandit chacha]";
-		mes "Hahaha.";
-		mes "Are you enjoying children week~? ";
-                close;
+//===== eAthena Script =======================================
+//= Children Week Event
+//===== By: ==================================================
+//= Samuray22
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= [Aegis Conversion]
+//= Indian Ro: Children Week Event
+//===== Additional Comments: =================================
+//= 1.1 First Beta. [Samuray22]
+//============================================================
+
+prontera,146,91,5	script	Pandit chacha#child07	61,{
+	if(BaseLevel > 50) {
+		mes "[Pandit chacha]";
+		mes "Hahaha.";
+		mes "It is special day, comes only one time in a year.";
+		mes "If you see little adventurers around you send to me~";
+		mes "I will give the special gift.";
+		close;
+	} else if(BaseLevel < 20) {
+		mes "[Pandit chacha]";
+		mes "Hahaha.";
+		mes "You are a baby adventurer not little adventurer.";
+		mes "When you more grow up, come back again. hahaha.";
+		close;
+	} else if(oversea_event9 < 1) {
+		mes "[Pandit chacha]";
+		mes "Hahaha.";
+		mes "Welcome, little adventurers!";
+		mes "Today is special day, isn't it~?";
+		mes "I would like to give the small gift to little adventurer...";
+		mes "What about you? Do you want to take it?";
+		next;
+		if(select("No. I will take it later.","Sure, i want.") == 1) {
+			mes "[Pandit chacha]";
+			mes "That's too bad.... hum...";
+			mes "I gathered some stuffs from far a way world to make it....";
+			mes "Whenever come back again if you want it...";
+			close;
+		}
+			set oversea_event9,1;
+			getitem 11705,10; //Children's Potion
+			mes "[Pandit chacha]";
+			mes "Look. This is a child Potion.";
+			mes "The weight is just 1 but recover much HP.";
+			mes "If you want to get more, bring the 1 Wedding Bouquet and 1 Witherless Rose.";
+			close;
+	} else if(oversea_event9 == 1) {
+		if(countitem(745) > 0 && countitem(748) > 0) {
+			mes "[Pandit chacha]";
+			mes "Ahha!!";
+			mes "You have remembered my beautiful composition.";
+			mes "You did good work.";
+			mes "Could you give me 1 Wedding Bouquet and 1 Witherless Rose? ";
+			next;
+			if(select("Not yet.","Sure, take it.") == 1) {
+				mes "[Pandit chacha]";
+				mes "If you are not prepared yet, call me when you ready.";
+				close;
+			}
+				mes "[Pandit chacha]";
+				mes "Hahaha.";
+				mes "Oh~ you get it.";
+				mes "Here, I will exchange to the 50 child potion.";
+				mes "Once you get this 50 child potion, I won't give any more.";
+				close2;
+				delitem 745,1; //Wedding Bouquet
+				delitem 748,1; //Witherless Rose
+				set oversea_event9,2;
+				getitem 11705,50; //Children's Potion
+				end;
+		}
+			mes "[Pandit chacha]";
+			mes "Little adventurers, you should bring the 1 Wedding Bouquet and 1 Witherless Rose.";
+			mes "If you bring these stuffs I will exchange them for child Potion. ";
+			close;
+	}
+                mes "[Pandit chacha]";
+		mes "Hahaha.";
+		mes "Are you enjoying children week~? ";
+                close;
 }
\ No newline at end of file
diff --git a/npc/events/christmas_2008.txt b/npc/events/christmas_2008.txt
index 8e3e4e788..bb08b13a3 100644
--- a/npc/events/christmas_2008.txt
+++ b/npc/events/christmas_2008.txt
@@ -1,1217 +1,1217 @@
-//===== eAthena Script =======================================
-//= iRO 2008 Christmas Event
-//===== By: ==================================================
-//= Kisuka
-//===== Current Version: =====================================
-//= 1.0
-//===== Compatible With: =====================================
-//= eAthena SVN
-//===== Description: =========================================
-//= iRO Christmas Event. (2008)
-//= Create Music Box and Cake.
-//= Play card game with Santa.
-//= Create Santa Suits.
-//==========================================
-//= Must enable X-mas08 items in item_db2 (not in databases).
-//= Must have 'Christmas Carol' skill (not in databases).
-//= Must enable X-mas08 mobs in mob_avail (not in databases).
-//===== Additional Comments: =================================
-//= 1.0 First version. [Kisuka]
-//============================================================
-
-// ============== Carolling - Music Box ================
-// =====================================================
-prontera,226,306,4	script	Carolling#iROxmas08	79,{
-	if (iROxmas08carol < 1 || iROxmas08carol == 3) {
-		if (iROxmas08carol == 3) {
-			mes "[Carolling]";
-			mes "Jingle Bells! Jingle Bells! Jingle";
-			mes "all the way!";
-			mes "O' what fun it is to ride in a";
-			mes "one-horse open sleeeigh, Hey!";
-			next;
-			mes "[Carolling]";
-			mes "Merry Christmas!";
-			mes "Hey! You! What comes to mind when";
-			mes "you think about Christmas?";
-			next;
-		}else{
-			mes "[Carolling]";
-			mes "Jingle Bells! Jingle Bells! Jingle all the way!";
-			next;
-			specialeffect 75;
-			mes "[Carolling]";
-			mes "O' what fun it is to ride in a one-horse open sleigh!";
-			next;
-			mes "[Carolling]";
-			mes "Merry Christmas!";
-			if (Sex) {
-				mes "Hey, boy! What comes to mind when";
-			}else{
-				mes "Hey, girl! What comes to mind when";	
-			}
-			mes "you think about Christmas?";
-			next;
-		}
-		switch(select("Santa Claus:Gift Boxes:Carols:Santa Costumes:Fake Santa Antonio")) {
-
-			case 1:
-				mes "[Carolling]";
-				mes "Santa Claus!";
-				mes "You're so innocent!!";
-				mes "Ah!";
-				next;
-				mes "[Carolling]";
-				mes "Here's a secret!";
-				mes "There's a rumor that Santa Claus";
-				mes "lives in a certain village all";
-				mes "throughout the year.";
-				next;
-				mes "[Carolling]";
-				mes "But now!!!";
-				mes "In this Christmas season!!";
-				mes "You guys can meet Santa on either";
-				mes "of the five possible villages";
-				mes "throughout Rune-Midgerts!";
-				next;
-				mes "[Carolling]";
-				mes "If you win over Santa, you can get";
-				mes "a gift. Would you go for it?";
-				next;
-				emotion 18;
-				mes "[Carolling]";
-				mes "Carolling's hot news! Ha!";
-				mes "Isn't that big news?";
-				close;
-
-			case 2:
-				mes "[Carolling]";
-				mes "Gift boxes?! All right!";
-				mes "Isn't it thrilling to open gifts";
-				mes "over your head!!";
-				next;
-				mes "[Carolling]";
-				mes "Anyway, did you know...";
-				mes "Some villain, a fake Santa robbed";
-				mes "some gifts from the good Santa!";
-				next;
-				mes "[Carolling]";
-				mes "Furthermore, he has put bad magic";
-				mes "on the gifts so that they become";
-				mes "monsters!";
-				next;
-				emotion 18;
-				mes "[Carolling]";
-				mes "Carolling's hot news! Ha!";
-				mes "Isn't it amazing?";
-				close;
-
-			case 3:
-				if (iROxmas08carol == 3) {
-					mes "[Carolling]";
-					mes "Ah, a music box is useful.";
-					next;
-					mes "[Carolling]";
-					mes "Though we can't all play it around";
-					mes "the village as we planned, it's";
-					mes "cool that you carry it.";
-					next;
-					mes "[Carolling]";
-					mes "We want to enjoy carols all";
-					mes "together... I hope to get Crystal";
-					mes "Pieces!";
-					next;
-					mes "[Carolling]";
-					mes "If you can get ^0000FFSinging Crystal";
-					mes "Pieces^000000, give them to me please?";
-					next;
-					select("Why not? Sure, I can give you some.");
-					if (countitem(6092) < 6) {
-						mes "[Carolling]";
-						mes "Yes, please.";
-						next;
-						mes "[Carolling]";
-						mes "If you can get ^0000FFSinging Crystal";
-						mes "Pieces^000000, give them to me please?";
-						close;
-					}else{
-						mes "[Carolling]";
-						mes "Wow, you have them.";
-						next;
-						mes "[Carolling]";
-						mes "I can bake you a cake,";
-						mes "and I can carve your name on the";
-						mes "cake, if you want!";
-						next;
-						if (select("No, thanks.:Please name it for me.") == 2) {
-							mes "[Carolling]";
-							mes "Thank for your help!";
-							next;
-							mes "[Carolling]";
-							mes "Many people live in the giant";
-							mes "world!";
-							mes "So many people hope to hear";
-							mes "carolling, yet I always lack";
-							mes "Crystal pieces.";
-							next;
-							mes "[Carolling]";
-							mes "If you can get ^0000FFSinging Crystal Pieces^000000, give them to me please?";
-							next;
-							emotion 18;
-							delitem 6092,6;
-							getnameditem 12354,"+strcharinfo(0)+";
-							mes "[Carolling]";
-							mes "Let's care about others around you";
-							mes "on this Christmas season!";
-							close;
-						}else{
-							mes "[Carolling]";
-							mes "Oh!";
-							mes "Shyness!";
-							next;
-							mes "[Carolling]";
-							mes "Anyway, thanks a lot for your";
-							mes "help.";
-							next;
-							mes "[Carolling]";
-							mes "Many people live in the giant";
-							mes "world!";
-							mes "So many people hope to hear";
-							mes "carolling, yet I always lack";
-							mes "Crystal pieces.";
-							next;
-							mes "[Carolling]";
-							mes "If you can get ^0000FFSinging Crystal Pieces^000000, give them to me please?";
-							next;
-							emotion 18;
-							delitem 6092,6;
-							getitem 12354,1;
-							mes "[Carolling]";
-							mes "Let's care about others around you";
-							mes "on this Christmas season!";
-							close;
-						}
-					}
-				}
-					mes "[Carolling]";
-					mes "You know about Christmas!";
-					mes "Talking about Christmas...";
-					mes "...it's carols!!!";
-					mes "I've been waiting for this for when";
-					mes "Christmas comes around!";
-					next;
-					mes "[Carolling]";
-					mes "But there's been no caroling here";
-					mes "and there like before, so we can't";
-					mes "feel the Christmas spirit.";
-					next;
-					mes "[Carolling]";
-					mes "So, I installed a Singing Crystal";
-					mes "in Prontera...";
-					next;
-					mes "[Carolling]";
-					mes "but that jerk Antonio broke the";
-					mes "crystal!";
-					next;
-					mes "[Carolling]";
-					mes "The gift boxes have been changing";
-					mes "into monsters since Antonio placed";
-					mes "some magic on them, so the monsters";
-					mes "ate up the crystal fragments!";
-					next;
-					mes "[Carolling]";
-					mes "I am so devastated, since the";
-					mes "Singing Crystal has been the hope";
-					mes "of many children around the villages.";
-					next;
-					if (select("There's no other way to carol?:You can hear carols in Lutie.") == 2) {
-						mes "[Carolling]";
-						mes "And just stay there, every";
-						mes "Christmas, for your whole life?";
-						next;
-						mes "["+strcharinfo(0)+"]";
-						mes "What? What do you mean?";
-						next;
-						mes "[Carolling]";
-						mes "Oh, nevermind.";
-						mes "Ah...";
-						close;
-					}
-					mes "[Carolling]";
-					mes "Maybe, it's quite hard to make a";
-					mes "jukebox for the villages, but a";
-					mes "music box might be possible.";
-					next;
-					mes "[Carolling]";
-					mes "We need the ^0000FFSinging Crystal Pieces^000000";
-					mes "that the monsters ate up.";
-					next;
-					mes "[Carolling]";
-					mes "Please bring me ^0000FF6 Singing Crystal";
-					mes "Pieces^000000, and you will be rewarded";
-					mes "with presents!";
-					next;
-					mes "[Carolling]";
-					mes "Sounds cool, huh!!";
-					next;
-					select("........................");
-					mes "[Carolling]";
-					mes "...Why are you staring at me like";
-					mes "that?";
-					next;
-					mes "[Carolling]";
-					mes "You're thinking that we are always";
-					mes "getting our plans spoiled, aren't";
-					mes "you?";
-					next;
-					mes "[Carolling]";
-					mes "I know that we are not good at";
-					mes "controlling stuff, but our rewards";
-					mes "are good, right?";
-					next;
-					select("........................");
-					mes "[Carolling]";
-					mes "Hey, we treat you good...";
-					next;
-					select("........................");
-					mes "[Carolling]";
-					mes "You are so cruel to me!";
-					mes "Bad! Bad!";
-					next;
-					mes "[Carolling]";
-					mes "Please, for our children's";
-					mes "hope!!!?";
-					mes "Please bring me 6 Singing Crystal";
-					mes "Pieces from ^0000FFViolent Gift Boxes^000000!";
-					next;
-					emotion 33;
-					mes "[Carolling]";
-					mes "They're definitely as";
-					mes "harsh as their name.";
-					mes "Go on please!";
-					set iROxmas08carol,1;
-					close;
-
-			case 4:
-				mes "[Carolling]";
-				mes "Santa costumes!!";
-				mes "You know, the santa costumes that";
-				mes "the monsters are wearing now aren't";
-				mes "genuine!";
-				next;
-				mes "[Carolling]";
-				mes "The rumor 'round here is, Lutie's";
-				mes "designer made these costumes.";
-				next;
-				mes "[Carolling]";
-				mes "Every year, adventurers challenge";
-				mes "to attack Antonio the fake Santa,";
-				mes "but there's no way to catch up to";
-				mes "him due to his hat and costume!";
-				next;
-				mes "[Carolling]";
-				mes "Are there some spcial abilities";
-				mes "within them?";
-				mes "There's still the designer in the";
-				mes "Christmas village... How about";
-				mes "asking her to make that costume?";
-				next;
-				emotion 18;
-				mes "[Carolling]";
-				mes "Carolling's hot news! Ha!";
-				mes "It's hot, huh?";
-				close;
-
-
-			case 5:
-				mes "[Carolling]";
-				mes "A-N-T-O-N-I-O!!!";
-				mes "As I heard, this Antonio is quite";
-				mes "different from before.";
-				next;
-				mes "[Carolling]";
-				mes "He seems to be quite resolved with";
-				mes "himself since he ran away from";
-				mes "people before.";
-				next;
-				mes "[Carolling]";
-				mes "And he isn't alone anymore... is";
-				mes "what I heard...";
-				next;
-				emotion 18;
-				mes "[Carolling]";
-				mes "Carolling's hot news! Ha!";
-				mes "Hotness, right?";
-				close;
-		}
-	}
-	
-	if (iROxmas08carol == 1) {
-		if (countitem(6092) < 6) {
-			mes "[Carolling]";
-			mes "Maybe, it's quite hard to make a";
-			mes "jukebox for the villages, but a";
-			mes "music box might be possible.";
-			next;
-			mes "[Carolling]";
-			mes "We need the ^0000FFSinging Crystal Pieces^000000";
-			mes "that the monsters ate up.";
-			next;
-			mes "[Carolling]";
-			mes "Please bring me ^0000FF6 Singing Crystal Pieces^000000, and you will be rewarded with presents!";
-			next;
-			mes "[Carolling]";
-			mes "For all of the children of this";
-			mes "world!!!";
-			mes "Please bring me ^0000FF6Singing Crystal";
-			mes "Pieces^000000 from ^0000FFViolent Gift Boxes^000000!";
-			next;
-			emotion 33;
-			mes "[Carolling]";
-			mes "Be careful!";
-			mes "They're definitely as";
-			mes "harsh as their name.";
-			mes "Take care!!!";
-			close;
-		}else{
-			specialeffect 75;
-			mes "[Carolling]";
-			mes "Don't cry, don't cry!";
-			mes "Santa won't give you a";
-			mes "gift if you're crying.";
-			next;
-			mes "[Carolling]";
-			select("I got them!");
-			mes "[Carolling]";
-			mes "Wow, you got them!";
-			mes "They are so cruel, aren't they?";
-			mes "I'm happy to see you again.";
-			next;
-			mes "[Carolling]";
-			mes "Let's count together!";
-			mes "... ...";
-			mes "Six!!";
-			next;
-			mes "[Carolling]";
-			mes "All right! We can start to make our";
-			mes "music box with crystal fragments.";
-			next;
-			mes "[Carolling]";
-			mes "We would amplify the sounds of the";
-			mes "crystal fragments to sound through";
-			mes "the music box.";
-			next;
-			mes "[Carolling]";
-			mes "You know, a music box that sounds";
-			mes "like a jukebox!";
-			next;
-			mes "[Carolling]";
-			mes "It's handy. You can carry it, as";
-			mes "well as listen to sweet carols";
-			mes "anywhere. Doesn't that sound";
-			mes "cool!?";
-			next;
-			mes "[Carolling]";
-			mes "So, we need more of some";
-			mes "materials.";
-			mes "^0000FF10 Wooden Block, 1 Hammer Of";
-			mes "Blacksmith, 1 Jubilee, 10 Sticky";
-			mes "Mucus, 3-karat Diamond^000000!";
-			next;
-			delitem 6092,6;
-			emotion 33;
-			set iROxmas08carol,2;
-			mes "[Carolling]";
-			mes "Those are all needed.";
-			mes "Isn't that easy?";
-			close;
-		}
-	}
-	
-	if (iROxmas08carol == 2) {
-		if (countitem(1019) < 10 || countitem(1005) < 1 || countitem(7312) < 1 || countitem(938) < 10 || countitem(732) < 1) {
-			mes "[Carolling]";
-			mes "We can make a music box";
-			mes "with Singing Crystal Pieces.";
-			mes "It's handy, you can hear carols";
-			mes "anywhere. Sounds cool?";
-			next;
-			mes "[Carolling]";
-			mes "So, we need more of some materials.";
-			mes "^0000FF10 Wooden Block, 1 Hammer Of";
-			mes "Blacksmith, 1 Jubilee, 10 Sticky";
-			mes "Mucus, 3-karat Diamond^000000!";
-			next;
-			emotion 33;
-			mes "[Carolling]";
-			mes "That's all we need.";
-			mes "Isn't that easy?";
-			close;
-		}else{
-			specialeffect 75;
-			mes "[Carolling]";
-			mes "Jingle bells, jingle bells,";
-			mes "jingle all the way!";
-			mes "O what fun it is to ride, in a";
-			mes "one... horse... o-pen... sleigh!!!";
-			next;
-			mes "[Carolling]";
-			mes "Wow!";
-			mes "You came back!";
-			mes "Did you bring all the";
-			mes "materials?";
-			next;
-			mes "[Carolling]";
-			mes "Good!";
-			mes "No need to hesitate! Let's get";
-			mes "started to make our music box.";
-			next;
-			mes "[Carolling]";
-			specialeffect 101;
-			mes "Blacksmith hammers on wooden";
-			mes "block... and we shape the frame.";
-			next;
-			mes "[Carolling]";
-			//(effect - stones from ground?)
-			mes "Please use the Singing Crystal";
-			mes "Pieces for a column, the Diamond as";
-			mes "a prop, and the Sticky Mucus as";
-			mes "glue.";
-			next;
-			mes "[Carolling]";
-			specialeffect 1;
-			mes "And now...";
-			mes "we decorate with a Jubilee...";
-			next;
-			mes "[Carolling]";
-			specialeffect 88;
-			mes "The last step...!";
-			mes "Breating life into it!";
-			next;
-			mes "[Carolling]";
-			mes "It's done now!!!";
-			next;
-			mes "[Carolling]";
-			mes "It's so cool! Isn't it cute!!?!";
-			next;
-			mes "[Carolling]";
-			mes "You did as I requested, so I will";
-			mes "give you gifts, as promised.";
-			next;
-			mes "[Carolling]";
-			mes "One, is this music box.";
-			mes "Please play this music box all over";
-			mes "the villages!";
-			next;
-			mes "[Carolling]";
-			mes "Another present is a Christmas cake";
-			mes "especially shaped like your name!";
-			mes "I made this cake shaped like your";
-			mes "name!";
-			next;
-			mes "[Carolling]";
-			mes "Don't worry, it tastes good.";
-			next;
-			emotion 33;
-			getitem 2784,1;
-			getnameditem 12354,"+strcharinfo(0)+";
-			delitem 1019,10;
-			delitem 1005,1;
-			delitem 7312,1;
-			delitem 938,10;
-			delitem 732,1;
-			set iROxmas08carol,3;
-			mes "[Carolling]";
-			mes "Thanks a lot.";
-			mes "Merry Christmas!";
-			mes "Have a good holiday season!";
-			close;
-		}
-	}
-}
-
-// ============= Santa Claus - Card Game ===============
-// =====================================================
--	script	Santa Claus#iROxmas08::08santa	718,{
-	mes "[Santa Claus]";
-	mes "Wow! Were you naughty or nice this";
-	mes "year?";
-	mes "All right, what comes to your mind";
-	mes "when you think about Christmas?";
-	next;
-	switch(select("Carolling:Santa Claus:Gift Boxes:Santa Costume:Not much really...")) {
-	
-	case 1:
-		mes "[Santa Claus]";
-		mes "Carolling! That's good!";
-		mes "A sweet carol always makes";
-		mes "Christmas more happy!!!";
-		next;
-		mes "[Santa Claus]";
-		mes "Yes indeed Carolling spreads Joy";
-		mes "throughout the world?";
-		close;
-
-	case 2:
-		mes "[Santa Claus]";
-		if (Sex) {
-			mes "Ho ho ho! What a good boy!";
-		}else{
-			mes "Ho ho ho! What a good girl!";	
-		}
-		next;
-		mes "[Santa Claus]";
-		mes "But you should be wary of a fake";
-		mes "Santa romaing around.";
-		mes "Have you heard of Antonio, who";
-		mes "invades villages every Christmas?";
-		next;
-		mes "[Santa Claus]";
-		mes "He has stolen my gifts, as well as";
-		mes "attacked adventurers around Toy and";
-		mes "Lutie field.";
-		next;
-		mes "[Santa Claus]";
-		mes "A bad Santa ruins us good Santa's";
-		mes "reputations!";
-		mes "The World Santa Organization is";
-		mes "considering this a grave";
-		mes "situation.";
-		close;
-	
-	case 3:
-		mes "[Santa Claus]";
-		mes "A gift box! That sounds good!";
-		mes "It's so exciting to open gift boxes";
-		mes "when you wake up on Christmas";
-		mes "morning!!!";
-		next;
-		mes "[Santa Claus]";
-		mes "But we have very little gifts now,";
-		mes "since Santa Antonio has stolen my";
-		mes "gift bag.";
-		next;
-		mes "[Santa Claus]";
-		mes "Many adventurers try to catch up";
-		mes "to him, but he is not easy to catch.";
-		next;
-		mes "[Santa Claus]";
-		mes "Anyway let those adventurers try to";
-		mes "catch him, I have a small game for";
-		mes "you.";
-		next;
-		mes "[Santa Claus]";
-		mes "I will give you a small gift if you";
-		mes "beat me!";
-		next;
-		mes "[Santa Claus]";
-		mes "Do you want to play a game with";
-		mes "me?";
-		next;
-		if (select("No, thanks.:Yes, I would.") == 1) {
-			mes "[Santa Claus]";
-			mes "Aww, don't be afraid. If you've";
-			mes "been a little naughty this year I";
-			mes "won't stuff your stockings with";
-			mes "coal.";
-			next;
-			mes "[Santa Claus]";
-			mes "I will stay here throughout the";
-			mes "Christmas season, just visit me";
-			mes "when you change your mind.";
-			close;
-		}
-		if (gettimetick(2) < SantaCardTime) {
-			mes "[Santa Claus]";
-			mes "Um... You've played the game";
-			mes "recently haven't you?";
-			next;
-			mes "[Santa Claus]";
-			mes "You can try the game once a hour.";
-			mes "Please visit me after the one hour";
-			mes "has passed.";
-			close;
-		}
-		set .@SantaCardTurn,0;
-		set .@SantaCardWins,0;
-		mes "[Santa Claus]";
-		mes "Wow! You're so cool!";
-		next;
-		mes "[Santa Claus]";
-		mes "Let me explain how to play this";
-		mes "game.";
-		next;
-		mes "[Santa Claus]";
-		mes "It's quite simple. I will pick one";
-		mes "of three cards: Poring Card,";
-		mes "Ghostring Card, and Angeling Card.";
-		mes "Guess which card I pick and";
-		mes "you're a winner!";
-		next;
-		mes "[Santa Claus]";
-		mes "If you guess right 3 times out of";
-		mes "5, I will give you a gift.";
-		mes "Let's get started!";
-		next;
-		while(.@SantaCardTurn != 5) {
-			emotion 56;
-			mes "[Santa Claus]";
-			mes "First let me shuffle up these";
-			mes "cards... Ok!!!";
-			next;
-			specialeffect 0;
-			mes "[Santa Claus]";
-			mes "One!";
-			next;
-			specialeffect 1;
-			mes "[Santa Claus]";
-			mes "Two!";
-			next;
-			specialeffect 2;
-			mes "[Santa Claus]";
-			mes "Three!";
-			next;
-			specialeffect 18;
-			mes "[Santa Claus]";
-			mes "I'm picking up only one!";
-			next;
-			cutin "sorry",4;
-			mes "[Santa Claus]";
-			mes "I'm picking up only one!";
-			mes "Please guess what is is.";
-			next;
-			switch(select("Poring:Angeling:Ghostring")) {
-				case 1:
-					mes "["+strcharinfo(0)+"]";
-					mes "Um...I choose Poring!";
-					set .@SantaCardP,1;
-					next;
-					break;
-
-				case 2:
-					mes "["+strcharinfo(0)+"]";
-					mes "Um...I choose Angeling!";
-					set .@SantaCardP,2;
-					next;
-					break;
-
-				case 3:
-					mes "["+strcharinfo(0)+"]";
-					mes "Um...I choose Ghostring!";
-					set .@SantaCardP,3;
-					next;
-			}
-			mes "[Santa Claus]";
-			mes "Let's see!!";
-			mes "One! Two! Three!";
-			set .@SantaCardNpc, rand(1,3);
-			next;
-			mes "[Santa Claus]";
-			mes "Let's see!!";
-			mes "One! Two! Three!";
-			if (.@SantaCardNpc == 1) {
-				cutin "Æ÷¸µÄ«µå",4;
-			}
-			else if (.@SantaCardNpc == 2) {
-				cutin "¿£Á©¸µÄ«µå",4;
-			}
-			else if (.@SantaCardNpc == 3) {
-				cutin "°í½ºÆ®¸µÄ«µå",4;
-			}		
-			next;
-			set .@SantaCardTurn,.@SantaCardTurn+1;
-			if (.@SantaCardP == .@SantaCardNpc) {
-				set .@SantaCardWins,.@SantaCardWins+1;
-				emotion 0;
-				emotion 5,1;
-				cutin "",255;
-				mes "[Santa Claus]";
-				mes "You're lucky.";
-				mes "Can you guess the right card the";
-				mes "next time around?";
-				next;
-			}else{
-				emotion 0;
-				emotion 23,1;
-				cutin "",255;
-				mes "[Santa Claus]";
-				mes "Aww maybe next time...";
-				next;
-			}
-		}
-		if (.@SantaCardWins < 3) {
-			mes "["+strcharinfo(0)+"]";
-			mes "This is just luck. Let me try";
-			mes "again!!";
-			next;
-			mes "[Santa Claus]";
-			mes "Whenever you want.";
-			close;
-		}else{
-			mes "[Santa Claus]";
-			mes "You're so good!";
-			next;
-			mes "[Santa Claus]";
-			mes "Now this gift is for you. Put your";
-			mes "hand into the bag and pick only";
-			mes "one.";
-			set .@SantaCardPrize, rand(1,12);
-			next;
-			if (.@SantaCardPrize == 1) {
-				getitem 12354,2;
-			}
-			else if (.@SantaCardPrize == 2) {
-				getitem 595,3;
-			}
-			else if (.@SantaCardPrize == 3) {
-				getitem 593,3;							
-			}
-			else if (.@SantaCardPrize == 4) {
-				getitem 12236,3;			
-			}
-			else if (.@SantaCardPrize == 5) {
-				getitem 538,10;
-			}
-			else if (.@SantaCardPrize == 6) {
-				getitem 14546,10;
-			}
-			else if (.@SantaCardPrize == 7) {
-				getitem 5136,1;
-			}
-			else if (.@SantaCardPrize == 8) {
-				getitem 603,1;
-			}
-			else if (.@SantaCardPrize == 9) {
-				getitem 12130,1;
-			}
-			else if (.@SantaCardPrize == 10) {
-				getitem 14550,10;
-			}
-			else if (.@SantaCardPrize == 11) {
-				getitem 12132,3;
-			}
-			else if (.@SantaCardPrize == 12) {
-				getitem 594,3;
-			}
-			set SantaCardTime,gettimetick(2)+3600;
-			mes "[Santa Claus]";
-			mes "Good job! Thanks for playing the";
-			mes "card game with me! Merry";
-			mes "Christmas!";
-			close;
-		}
-
-	case 4:
-		mes "[Santa Claus]";
-		mes "Do you mean that ever so";
-		mes "fashionable costume for Santa's and";
-		mes "youngsters!?!";
-		mes "Light-weight, fashionable, and";
-		mes "keeps you warm!";
-		next;
-		mes "[Santa Claus]";
-		mes "There used to be designer who";
-		mes "visited my house to make my Santa";
-		mes "costumes. Do you have any ideas?";
-		close;
-	
-	case 5:
-		mes "[Santa Claus]";
-		mes "........................";
-		next;
-		mes "[Santa Claus]";
-		mes "........................";
-		if (Sex) {
-			mes "Oh! Poor boy...";
-		}else{
-			mes "Oh! Poor girl...";	
-		}
-		next;
-		mes "[Santa Claus]";
-		mes "........................";
-		if (Sex) {
-			mes "Oh! Poor boy...";
-		}else{
-			mes "Oh! Poor girl...";	
-		}
-		mes "...";
-		next;
-		mes "[Santa Claus]";
-		mes "You should open your heart to the";
-		mes "spirit of Christmas!";
-		mes "Once you do, I know you'll be able";
-		mes "to think of something.";
-		close;
-	}
-}
-
-payon,171,109,4	duplicate(08santa)	Santa Claus#0801	718
-prontera,156,285,4	duplicate(08santa)	Santa Claus#0802	718
-alberta,117,66,4	duplicate(08santa)	Santa Claus#0803	718
-geffen,119,70,4	duplicate(08santa)	Santa Claus#0804	718
-morocc,158,104,4	duplicate(08santa)	Santa Claus#0805	718
-
-
-// ============= Louise Kim - Santa Suit ===============
-// =====================================================
-xmas_in,89,92,4	script	Louise Kim#iROxmas08	714,{
-	mes "[Louise Kim]";
-	mes "I always thought about how boring";
-	mes "Santa Claus is wearing a too boring";
-	mes "costume. Too boring!";
-	next;
-	mes "[Louise Kim]";
-	mes "I could make a glamorous style for";
-	mes "him!";
-	next;
-	mes "[Louise Kim]";
-	mes "I once made a costume for";
-	mes "the notorious figure Antonio!";
-	mes "The reason catching up to him";
-	mes "is so hard, is that his clothes";
-	mes "have been given strong power!";
-	mes "I blessed them with good luck!";
-	next;
-	emotion 3;
-	mes "[Louise Kim]";
-	mes "Preta Porter!!";
-	mes "Which is quite luxurious";
-	mes "but sold at good price ~";
-	next;
-	mes "[Louise Kim]";
-	mes "Hey loosers! You can share my sense";
-	mes "of fashion and wear my look if you";
-	mes "run a light mission for me.";
-	next;
-	mes "[Louise Kim]";
-	mes "Are you interested?";
-	next;
-	if (select("Nope.:Yes, please.") == 1) {
-		mes "[Louise Kim]";
-		mes "Ah!";
-		mes "You're silly! You lost your big";
-		mes "chance!";
-		next;
-		emotion 18;
-		mes "[Louise Kim]";
-		mes "Come to me later if you";
-		mes "want to get the mission.";
-		mes "I, Louise Kim, am generous";
-		mes "enough to accept you next time.";
-		close;
-	}
-	mes "[Louise Kim]";
-	mes "You're so cool.";
-	next;
-	mes "[Louise Kim]";
-	mes "Don't worry about this mission.";
-	mes "It's not that difficult.";
-	mes "I'm only in need of some";
-	mes "materials. Things that are";
-	mes "beyond my ability...";
-	next;
-	mes "[Louise Kim]";
-	mes "Anyway, can you bring me some";
-	mes "stuff?";
-	next;
-	if (select("Why not? What do you need?:Sorry, no time.") == 2) {
-		emotion 18;
-		mes "[Louise Kim]";
-		mes "What?";
-		mes "You will definitely regret it.";
-		mes "No more chances later.";
-		close;
-	}
-	mes "[Louise Kim]";
-	mes "All right, you're cool!!";
-	mes "You need to bring me: ^0000FFCotton Shirt,";
-	mes "3 Red Potion, Holy Water, 4 Wrapping";
-	mes "Paper, Wrapping Lace^000000..";
-	next;
-	mes "[Louise Kim]";
-	mes "If you bring me all that stuff, I";
-	mes "can make you a glamorous Santa";
-	mes "costume.";
-	next;
-	if (countitem(2301) < 1 || countitem(501) < 3 || countitem(523) < 1 || countitem(7175) < 4 || countitem(7174) < 1) {		
-			mes "[Louise Kim]";
-			mes "If you were to bring me all the";
-			mes "stuff, I would make you a wonderful";
-			mes "costume, for free...";
-			next;
-			emotion 3;
-			mes "[Louise Kim]";
-			mes "Please see me again if you are";
-			mes "interested.";
-			close;
-	}else{
-		select("Here you are.");
-		emotion 33;
-		mes "[Louise Kim]";
-		mes "Oh! Good!";
-		mes "Let's not delay.";
-		mes "I will show you my limitless";
-		mes "ability.";
-		next;
-		mes "-She pours everything in a pot-";
-		mes "-even the shirt goes in!-";
-		mes "-She takes it out with skill-";
-		mes "-and many blessings she sings.-";
-		next;
-		specialeffect 42;
-		emotion 2;
-		mes "[Louise Kim]";
-		mes "By artist, Louise Kim!";
-		mes "All over the world will be blessed";
-		mes "tonight!";
-		next;
-		mes "-Pour red potion in another pot-";
-		mes "-then stir all of its parts.-";
-		mes "-Put the cotton shirts in-";
-		mes "-and dye it for grateful hearts.-";
-		mes "-Thread by thread-";
-		mes "-String by string-";
-		mes "-Count your blessings and sing!-";
-		next;
-		specialeffect 75;
-		emotion 2;
-		mes "[Louise Kim]";
-		mes "By artist, Louise Kim!";
-		mes "All over the world will be blessed";
-		mes "tonight!";
-		next;
-		mes "-She is knitting clothes-";
-		mes "-with a hooked needle-";
-		mes "-with her great skill.-";
-		mes "Spread your blessings,-";
-		mes "cheer and goodwill!-";
-		next;
-		specialeffect 91;
-		emotion 3;
-		mes "[Louise Kim]";
-		mes "This is miraculous!";
-		mes "I am a genius of the world.";
-		mes "Artist, Louise Kim!!!";
-		next;
-		mes "[Louise Kim]";
-		mes "All right! Isn't it wonderful?";
-		mes "You can call it what you wish.";
-		mes "My fashion is radiant.";
-		mes "I ain't envious of Designer";
-		mes "Pierre.";
-		next;
-		emotion 18;
-		mes "[Louise Kim]";
-		mes "I am supposed to get paid well,";
-		mes "however I will just let it";
-		mes "be free, since this is Christmas!";
-		next;
-		delitem 2301,1;
-		delitem 501,3;
-		delitem 523,1;
-		delitem 7175,4;
-		delitem 7174,1;
-		getitem 12132,1;
-		mes "[Louise Kim]";
-		mes "Go brag about these wonderful";
-		mes "clothes. There wouldn't be";
-		mes "any without me, Louise Kim.";
-		close;
-	}
-}
-
-//XMAS MOBS
-prt_fild00,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild00,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild00,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild00,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild01,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild02,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild02,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild02,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild02,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild03,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild03,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild03,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild03,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild04,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild04,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild04,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild04,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild05,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild05,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild05,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild05,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild06,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild06,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild06,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild06,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild07,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild07,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild07,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild07,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild08,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild08,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild08,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild08,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild09,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild09,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild09,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild09,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild10,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild10,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild10,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild10,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-prt_fild11,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-prt_fild11,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-prt_fild11,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-prt_fild11,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild01,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild02,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild02,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild02,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild02,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild03,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild03,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild03,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild03,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild04,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild04,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild04,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild04,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild05,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild05,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild05,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild05,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild06,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild06,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild06,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild06,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild07,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild07,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild07,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild07,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild08,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild08,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild08,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild08,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild09,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild09,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild09,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild09,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild10,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild10,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild10,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild10,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-pay_fild11,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-pay_fild11,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-pay_fild11,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-pay_fild11,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild00,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild00,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild00,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild00,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild01,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild02,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild02,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild02,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild02,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild03,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild03,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild03,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild03,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild04,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild04,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild04,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild04,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild05,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild05,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild05,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild05,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild06,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild06,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild06,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild06,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild07,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild07,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild07,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild07,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild08,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild08,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild08,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild08,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild09,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild09,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild09,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild09,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild10,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild10,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild10,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild10,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild11,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild11,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild11,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild11,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild12,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild12,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild12,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild12,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild13,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild13,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild13,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild13,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-gef_fild14,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-gef_fild14,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-gef_fild14,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
-gef_fild14,0,0,0,0	monster	Antonio	1247,1,0,0,0
-
-xmas_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
-xmas_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
-xmas_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+//===== eAthena Script =======================================
+//= iRO 2008 Christmas Event
+//===== By: ==================================================
+//= Kisuka
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= iRO Christmas Event. (2008)
+//= Create Music Box and Cake.
+//= Play card game with Santa.
+//= Create Santa Suits.
+//==========================================
+//= Must enable X-mas08 items in item_db2 (not in databases).
+//= Must have 'Christmas Carol' skill (not in databases).
+//= Must enable X-mas08 mobs in mob_avail (not in databases).
+//===== Additional Comments: =================================
+//= 1.0 First version. [Kisuka]
+//============================================================
+
+// ============== Carolling - Music Box ================
+// =====================================================
+prontera,226,306,4	script	Carolling#iROxmas08	79,{
+	if (iROxmas08carol < 1 || iROxmas08carol == 3) {
+		if (iROxmas08carol == 3) {
+			mes "[Carolling]";
+			mes "Jingle Bells! Jingle Bells! Jingle";
+			mes "all the way!";
+			mes "O' what fun it is to ride in a";
+			mes "one-horse open sleeeigh, Hey!";
+			next;
+			mes "[Carolling]";
+			mes "Merry Christmas!";
+			mes "Hey! You! What comes to mind when";
+			mes "you think about Christmas?";
+			next;
+		}else{
+			mes "[Carolling]";
+			mes "Jingle Bells! Jingle Bells! Jingle all the way!";
+			next;
+			specialeffect 75;
+			mes "[Carolling]";
+			mes "O' what fun it is to ride in a one-horse open sleigh!";
+			next;
+			mes "[Carolling]";
+			mes "Merry Christmas!";
+			if (Sex) {
+				mes "Hey, boy! What comes to mind when";
+			}else{
+				mes "Hey, girl! What comes to mind when";	
+			}
+			mes "you think about Christmas?";
+			next;
+		}
+		switch(select("Santa Claus:Gift Boxes:Carols:Santa Costumes:Fake Santa Antonio")) {
+
+			case 1:
+				mes "[Carolling]";
+				mes "Santa Claus!";
+				mes "You're so innocent!!";
+				mes "Ah!";
+				next;
+				mes "[Carolling]";
+				mes "Here's a secret!";
+				mes "There's a rumor that Santa Claus";
+				mes "lives in a certain village all";
+				mes "throughout the year.";
+				next;
+				mes "[Carolling]";
+				mes "But now!!!";
+				mes "In this Christmas season!!";
+				mes "You guys can meet Santa on either";
+				mes "of the five possible villages";
+				mes "throughout Rune-Midgerts!";
+				next;
+				mes "[Carolling]";
+				mes "If you win over Santa, you can get";
+				mes "a gift. Would you go for it?";
+				next;
+				emotion 18;
+				mes "[Carolling]";
+				mes "Carolling's hot news! Ha!";
+				mes "Isn't that big news?";
+				close;
+
+			case 2:
+				mes "[Carolling]";
+				mes "Gift boxes?! All right!";
+				mes "Isn't it thrilling to open gifts";
+				mes "over your head!!";
+				next;
+				mes "[Carolling]";
+				mes "Anyway, did you know...";
+				mes "Some villain, a fake Santa robbed";
+				mes "some gifts from the good Santa!";
+				next;
+				mes "[Carolling]";
+				mes "Furthermore, he has put bad magic";
+				mes "on the gifts so that they become";
+				mes "monsters!";
+				next;
+				emotion 18;
+				mes "[Carolling]";
+				mes "Carolling's hot news! Ha!";
+				mes "Isn't it amazing?";
+				close;
+
+			case 3:
+				if (iROxmas08carol == 3) {
+					mes "[Carolling]";
+					mes "Ah, a music box is useful.";
+					next;
+					mes "[Carolling]";
+					mes "Though we can't all play it around";
+					mes "the village as we planned, it's";
+					mes "cool that you carry it.";
+					next;
+					mes "[Carolling]";
+					mes "We want to enjoy carols all";
+					mes "together... I hope to get Crystal";
+					mes "Pieces!";
+					next;
+					mes "[Carolling]";
+					mes "If you can get ^0000FFSinging Crystal";
+					mes "Pieces^000000, give them to me please?";
+					next;
+					select("Why not? Sure, I can give you some.");
+					if (countitem(6092) < 6) {
+						mes "[Carolling]";
+						mes "Yes, please.";
+						next;
+						mes "[Carolling]";
+						mes "If you can get ^0000FFSinging Crystal";
+						mes "Pieces^000000, give them to me please?";
+						close;
+					}else{
+						mes "[Carolling]";
+						mes "Wow, you have them.";
+						next;
+						mes "[Carolling]";
+						mes "I can bake you a cake,";
+						mes "and I can carve your name on the";
+						mes "cake, if you want!";
+						next;
+						if (select("No, thanks.:Please name it for me.") == 2) {
+							mes "[Carolling]";
+							mes "Thank for your help!";
+							next;
+							mes "[Carolling]";
+							mes "Many people live in the giant";
+							mes "world!";
+							mes "So many people hope to hear";
+							mes "carolling, yet I always lack";
+							mes "Crystal pieces.";
+							next;
+							mes "[Carolling]";
+							mes "If you can get ^0000FFSinging Crystal Pieces^000000, give them to me please?";
+							next;
+							emotion 18;
+							delitem 6092,6;
+							getnameditem 12354,"+strcharinfo(0)+";
+							mes "[Carolling]";
+							mes "Let's care about others around you";
+							mes "on this Christmas season!";
+							close;
+						}else{
+							mes "[Carolling]";
+							mes "Oh!";
+							mes "Shyness!";
+							next;
+							mes "[Carolling]";
+							mes "Anyway, thanks a lot for your";
+							mes "help.";
+							next;
+							mes "[Carolling]";
+							mes "Many people live in the giant";
+							mes "world!";
+							mes "So many people hope to hear";
+							mes "carolling, yet I always lack";
+							mes "Crystal pieces.";
+							next;
+							mes "[Carolling]";
+							mes "If you can get ^0000FFSinging Crystal Pieces^000000, give them to me please?";
+							next;
+							emotion 18;
+							delitem 6092,6;
+							getitem 12354,1;
+							mes "[Carolling]";
+							mes "Let's care about others around you";
+							mes "on this Christmas season!";
+							close;
+						}
+					}
+				}
+					mes "[Carolling]";
+					mes "You know about Christmas!";
+					mes "Talking about Christmas...";
+					mes "...it's carols!!!";
+					mes "I've been waiting for this for when";
+					mes "Christmas comes around!";
+					next;
+					mes "[Carolling]";
+					mes "But there's been no caroling here";
+					mes "and there like before, so we can't";
+					mes "feel the Christmas spirit.";
+					next;
+					mes "[Carolling]";
+					mes "So, I installed a Singing Crystal";
+					mes "in Prontera...";
+					next;
+					mes "[Carolling]";
+					mes "but that jerk Antonio broke the";
+					mes "crystal!";
+					next;
+					mes "[Carolling]";
+					mes "The gift boxes have been changing";
+					mes "into monsters since Antonio placed";
+					mes "some magic on them, so the monsters";
+					mes "ate up the crystal fragments!";
+					next;
+					mes "[Carolling]";
+					mes "I am so devastated, since the";
+					mes "Singing Crystal has been the hope";
+					mes "of many children around the villages.";
+					next;
+					if (select("There's no other way to carol?:You can hear carols in Lutie.") == 2) {
+						mes "[Carolling]";
+						mes "And just stay there, every";
+						mes "Christmas, for your whole life?";
+						next;
+						mes "["+strcharinfo(0)+"]";
+						mes "What? What do you mean?";
+						next;
+						mes "[Carolling]";
+						mes "Oh, nevermind.";
+						mes "Ah...";
+						close;
+					}
+					mes "[Carolling]";
+					mes "Maybe, it's quite hard to make a";
+					mes "jukebox for the villages, but a";
+					mes "music box might be possible.";
+					next;
+					mes "[Carolling]";
+					mes "We need the ^0000FFSinging Crystal Pieces^000000";
+					mes "that the monsters ate up.";
+					next;
+					mes "[Carolling]";
+					mes "Please bring me ^0000FF6 Singing Crystal";
+					mes "Pieces^000000, and you will be rewarded";
+					mes "with presents!";
+					next;
+					mes "[Carolling]";
+					mes "Sounds cool, huh!!";
+					next;
+					select("........................");
+					mes "[Carolling]";
+					mes "...Why are you staring at me like";
+					mes "that?";
+					next;
+					mes "[Carolling]";
+					mes "You're thinking that we are always";
+					mes "getting our plans spoiled, aren't";
+					mes "you?";
+					next;
+					mes "[Carolling]";
+					mes "I know that we are not good at";
+					mes "controlling stuff, but our rewards";
+					mes "are good, right?";
+					next;
+					select("........................");
+					mes "[Carolling]";
+					mes "Hey, we treat you good...";
+					next;
+					select("........................");
+					mes "[Carolling]";
+					mes "You are so cruel to me!";
+					mes "Bad! Bad!";
+					next;
+					mes "[Carolling]";
+					mes "Please, for our children's";
+					mes "hope!!!?";
+					mes "Please bring me 6 Singing Crystal";
+					mes "Pieces from ^0000FFViolent Gift Boxes^000000!";
+					next;
+					emotion 33;
+					mes "[Carolling]";
+					mes "They're definitely as";
+					mes "harsh as their name.";
+					mes "Go on please!";
+					set iROxmas08carol,1;
+					close;
+
+			case 4:
+				mes "[Carolling]";
+				mes "Santa costumes!!";
+				mes "You know, the santa costumes that";
+				mes "the monsters are wearing now aren't";
+				mes "genuine!";
+				next;
+				mes "[Carolling]";
+				mes "The rumor 'round here is, Lutie's";
+				mes "designer made these costumes.";
+				next;
+				mes "[Carolling]";
+				mes "Every year, adventurers challenge";
+				mes "to attack Antonio the fake Santa,";
+				mes "but there's no way to catch up to";
+				mes "him due to his hat and costume!";
+				next;
+				mes "[Carolling]";
+				mes "Are there some spcial abilities";
+				mes "within them?";
+				mes "There's still the designer in the";
+				mes "Christmas village... How about";
+				mes "asking her to make that costume?";
+				next;
+				emotion 18;
+				mes "[Carolling]";
+				mes "Carolling's hot news! Ha!";
+				mes "It's hot, huh?";
+				close;
+
+
+			case 5:
+				mes "[Carolling]";
+				mes "A-N-T-O-N-I-O!!!";
+				mes "As I heard, this Antonio is quite";
+				mes "different from before.";
+				next;
+				mes "[Carolling]";
+				mes "He seems to be quite resolved with";
+				mes "himself since he ran away from";
+				mes "people before.";
+				next;
+				mes "[Carolling]";
+				mes "And he isn't alone anymore... is";
+				mes "what I heard...";
+				next;
+				emotion 18;
+				mes "[Carolling]";
+				mes "Carolling's hot news! Ha!";
+				mes "Hotness, right?";
+				close;
+		}
+	}
+	
+	if (iROxmas08carol == 1) {
+		if (countitem(6092) < 6) {
+			mes "[Carolling]";
+			mes "Maybe, it's quite hard to make a";
+			mes "jukebox for the villages, but a";
+			mes "music box might be possible.";
+			next;
+			mes "[Carolling]";
+			mes "We need the ^0000FFSinging Crystal Pieces^000000";
+			mes "that the monsters ate up.";
+			next;
+			mes "[Carolling]";
+			mes "Please bring me ^0000FF6 Singing Crystal Pieces^000000, and you will be rewarded with presents!";
+			next;
+			mes "[Carolling]";
+			mes "For all of the children of this";
+			mes "world!!!";
+			mes "Please bring me ^0000FF6Singing Crystal";
+			mes "Pieces^000000 from ^0000FFViolent Gift Boxes^000000!";
+			next;
+			emotion 33;
+			mes "[Carolling]";
+			mes "Be careful!";
+			mes "They're definitely as";
+			mes "harsh as their name.";
+			mes "Take care!!!";
+			close;
+		}else{
+			specialeffect 75;
+			mes "[Carolling]";
+			mes "Don't cry, don't cry!";
+			mes "Santa won't give you a";
+			mes "gift if you're crying.";
+			next;
+			mes "[Carolling]";
+			select("I got them!");
+			mes "[Carolling]";
+			mes "Wow, you got them!";
+			mes "They are so cruel, aren't they?";
+			mes "I'm happy to see you again.";
+			next;
+			mes "[Carolling]";
+			mes "Let's count together!";
+			mes "... ...";
+			mes "Six!!";
+			next;
+			mes "[Carolling]";
+			mes "All right! We can start to make our";
+			mes "music box with crystal fragments.";
+			next;
+			mes "[Carolling]";
+			mes "We would amplify the sounds of the";
+			mes "crystal fragments to sound through";
+			mes "the music box.";
+			next;
+			mes "[Carolling]";
+			mes "You know, a music box that sounds";
+			mes "like a jukebox!";
+			next;
+			mes "[Carolling]";
+			mes "It's handy. You can carry it, as";
+			mes "well as listen to sweet carols";
+			mes "anywhere. Doesn't that sound";
+			mes "cool!?";
+			next;
+			mes "[Carolling]";
+			mes "So, we need more of some";
+			mes "materials.";
+			mes "^0000FF10 Wooden Block, 1 Hammer Of";
+			mes "Blacksmith, 1 Jubilee, 10 Sticky";
+			mes "Mucus, 3-karat Diamond^000000!";
+			next;
+			delitem 6092,6;
+			emotion 33;
+			set iROxmas08carol,2;
+			mes "[Carolling]";
+			mes "Those are all needed.";
+			mes "Isn't that easy?";
+			close;
+		}
+	}
+	
+	if (iROxmas08carol == 2) {
+		if (countitem(1019) < 10 || countitem(1005) < 1 || countitem(7312) < 1 || countitem(938) < 10 || countitem(732) < 1) {
+			mes "[Carolling]";
+			mes "We can make a music box";
+			mes "with Singing Crystal Pieces.";
+			mes "It's handy, you can hear carols";
+			mes "anywhere. Sounds cool?";
+			next;
+			mes "[Carolling]";
+			mes "So, we need more of some materials.";
+			mes "^0000FF10 Wooden Block, 1 Hammer Of";
+			mes "Blacksmith, 1 Jubilee, 10 Sticky";
+			mes "Mucus, 3-karat Diamond^000000!";
+			next;
+			emotion 33;
+			mes "[Carolling]";
+			mes "That's all we need.";
+			mes "Isn't that easy?";
+			close;
+		}else{
+			specialeffect 75;
+			mes "[Carolling]";
+			mes "Jingle bells, jingle bells,";
+			mes "jingle all the way!";
+			mes "O what fun it is to ride, in a";
+			mes "one... horse... o-pen... sleigh!!!";
+			next;
+			mes "[Carolling]";
+			mes "Wow!";
+			mes "You came back!";
+			mes "Did you bring all the";
+			mes "materials?";
+			next;
+			mes "[Carolling]";
+			mes "Good!";
+			mes "No need to hesitate! Let's get";
+			mes "started to make our music box.";
+			next;
+			mes "[Carolling]";
+			specialeffect 101;
+			mes "Blacksmith hammers on wooden";
+			mes "block... and we shape the frame.";
+			next;
+			mes "[Carolling]";
+			//(effect - stones from ground?)
+			mes "Please use the Singing Crystal";
+			mes "Pieces for a column, the Diamond as";
+			mes "a prop, and the Sticky Mucus as";
+			mes "glue.";
+			next;
+			mes "[Carolling]";
+			specialeffect 1;
+			mes "And now...";
+			mes "we decorate with a Jubilee...";
+			next;
+			mes "[Carolling]";
+			specialeffect 88;
+			mes "The last step...!";
+			mes "Breating life into it!";
+			next;
+			mes "[Carolling]";
+			mes "It's done now!!!";
+			next;
+			mes "[Carolling]";
+			mes "It's so cool! Isn't it cute!!?!";
+			next;
+			mes "[Carolling]";
+			mes "You did as I requested, so I will";
+			mes "give you gifts, as promised.";
+			next;
+			mes "[Carolling]";
+			mes "One, is this music box.";
+			mes "Please play this music box all over";
+			mes "the villages!";
+			next;
+			mes "[Carolling]";
+			mes "Another present is a Christmas cake";
+			mes "especially shaped like your name!";
+			mes "I made this cake shaped like your";
+			mes "name!";
+			next;
+			mes "[Carolling]";
+			mes "Don't worry, it tastes good.";
+			next;
+			emotion 33;
+			getitem 2784,1;
+			getnameditem 12354,"+strcharinfo(0)+";
+			delitem 1019,10;
+			delitem 1005,1;
+			delitem 7312,1;
+			delitem 938,10;
+			delitem 732,1;
+			set iROxmas08carol,3;
+			mes "[Carolling]";
+			mes "Thanks a lot.";
+			mes "Merry Christmas!";
+			mes "Have a good holiday season!";
+			close;
+		}
+	}
+}
+
+// ============= Santa Claus - Card Game ===============
+// =====================================================
+-	script	Santa Claus#iROxmas08::08santa	718,{
+	mes "[Santa Claus]";
+	mes "Wow! Were you naughty or nice this";
+	mes "year?";
+	mes "All right, what comes to your mind";
+	mes "when you think about Christmas?";
+	next;
+	switch(select("Carolling:Santa Claus:Gift Boxes:Santa Costume:Not much really...")) {
+	
+	case 1:
+		mes "[Santa Claus]";
+		mes "Carolling! That's good!";
+		mes "A sweet carol always makes";
+		mes "Christmas more happy!!!";
+		next;
+		mes "[Santa Claus]";
+		mes "Yes indeed Carolling spreads Joy";
+		mes "throughout the world?";
+		close;
+
+	case 2:
+		mes "[Santa Claus]";
+		if (Sex) {
+			mes "Ho ho ho! What a good boy!";
+		}else{
+			mes "Ho ho ho! What a good girl!";	
+		}
+		next;
+		mes "[Santa Claus]";
+		mes "But you should be wary of a fake";
+		mes "Santa romaing around.";
+		mes "Have you heard of Antonio, who";
+		mes "invades villages every Christmas?";
+		next;
+		mes "[Santa Claus]";
+		mes "He has stolen my gifts, as well as";
+		mes "attacked adventurers around Toy and";
+		mes "Lutie field.";
+		next;
+		mes "[Santa Claus]";
+		mes "A bad Santa ruins us good Santa's";
+		mes "reputations!";
+		mes "The World Santa Organization is";
+		mes "considering this a grave";
+		mes "situation.";
+		close;
+	
+	case 3:
+		mes "[Santa Claus]";
+		mes "A gift box! That sounds good!";
+		mes "It's so exciting to open gift boxes";
+		mes "when you wake up on Christmas";
+		mes "morning!!!";
+		next;
+		mes "[Santa Claus]";
+		mes "But we have very little gifts now,";
+		mes "since Santa Antonio has stolen my";
+		mes "gift bag.";
+		next;
+		mes "[Santa Claus]";
+		mes "Many adventurers try to catch up";
+		mes "to him, but he is not easy to catch.";
+		next;
+		mes "[Santa Claus]";
+		mes "Anyway let those adventurers try to";
+		mes "catch him, I have a small game for";
+		mes "you.";
+		next;
+		mes "[Santa Claus]";
+		mes "I will give you a small gift if you";
+		mes "beat me!";
+		next;
+		mes "[Santa Claus]";
+		mes "Do you want to play a game with";
+		mes "me?";
+		next;
+		if (select("No, thanks.:Yes, I would.") == 1) {
+			mes "[Santa Claus]";
+			mes "Aww, don't be afraid. If you've";
+			mes "been a little naughty this year I";
+			mes "won't stuff your stockings with";
+			mes "coal.";
+			next;
+			mes "[Santa Claus]";
+			mes "I will stay here throughout the";
+			mes "Christmas season, just visit me";
+			mes "when you change your mind.";
+			close;
+		}
+		if (gettimetick(2) < SantaCardTime) {
+			mes "[Santa Claus]";
+			mes "Um... You've played the game";
+			mes "recently haven't you?";
+			next;
+			mes "[Santa Claus]";
+			mes "You can try the game once a hour.";
+			mes "Please visit me after the one hour";
+			mes "has passed.";
+			close;
+		}
+		set .@SantaCardTurn,0;
+		set .@SantaCardWins,0;
+		mes "[Santa Claus]";
+		mes "Wow! You're so cool!";
+		next;
+		mes "[Santa Claus]";
+		mes "Let me explain how to play this";
+		mes "game.";
+		next;
+		mes "[Santa Claus]";
+		mes "It's quite simple. I will pick one";
+		mes "of three cards: Poring Card,";
+		mes "Ghostring Card, and Angeling Card.";
+		mes "Guess which card I pick and";
+		mes "you're a winner!";
+		next;
+		mes "[Santa Claus]";
+		mes "If you guess right 3 times out of";
+		mes "5, I will give you a gift.";
+		mes "Let's get started!";
+		next;
+		while(.@SantaCardTurn != 5) {
+			emotion 56;
+			mes "[Santa Claus]";
+			mes "First let me shuffle up these";
+			mes "cards... Ok!!!";
+			next;
+			specialeffect 0;
+			mes "[Santa Claus]";
+			mes "One!";
+			next;
+			specialeffect 1;
+			mes "[Santa Claus]";
+			mes "Two!";
+			next;
+			specialeffect 2;
+			mes "[Santa Claus]";
+			mes "Three!";
+			next;
+			specialeffect 18;
+			mes "[Santa Claus]";
+			mes "I'm picking up only one!";
+			next;
+			cutin "sorry",4;
+			mes "[Santa Claus]";
+			mes "I'm picking up only one!";
+			mes "Please guess what is is.";
+			next;
+			switch(select("Poring:Angeling:Ghostring")) {
+				case 1:
+					mes "["+strcharinfo(0)+"]";
+					mes "Um...I choose Poring!";
+					set .@SantaCardP,1;
+					next;
+					break;
+
+				case 2:
+					mes "["+strcharinfo(0)+"]";
+					mes "Um...I choose Angeling!";
+					set .@SantaCardP,2;
+					next;
+					break;
+
+				case 3:
+					mes "["+strcharinfo(0)+"]";
+					mes "Um...I choose Ghostring!";
+					set .@SantaCardP,3;
+					next;
+			}
+			mes "[Santa Claus]";
+			mes "Let's see!!";
+			mes "One! Two! Three!";
+			set .@SantaCardNpc, rand(1,3);
+			next;
+			mes "[Santa Claus]";
+			mes "Let's see!!";
+			mes "One! Two! Three!";
+			if (.@SantaCardNpc == 1) {
+				cutin "Æ÷¸µÄ«µå",4;
+			}
+			else if (.@SantaCardNpc == 2) {
+				cutin "¿£Á©¸µÄ«µå",4;
+			}
+			else if (.@SantaCardNpc == 3) {
+				cutin "°í½ºÆ®¸µÄ«µå",4;
+			}		
+			next;
+			set .@SantaCardTurn,.@SantaCardTurn+1;
+			if (.@SantaCardP == .@SantaCardNpc) {
+				set .@SantaCardWins,.@SantaCardWins+1;
+				emotion 0;
+				emotion 5,1;
+				cutin "",255;
+				mes "[Santa Claus]";
+				mes "You're lucky.";
+				mes "Can you guess the right card the";
+				mes "next time around?";
+				next;
+			}else{
+				emotion 0;
+				emotion 23,1;
+				cutin "",255;
+				mes "[Santa Claus]";
+				mes "Aww maybe next time...";
+				next;
+			}
+		}
+		if (.@SantaCardWins < 3) {
+			mes "["+strcharinfo(0)+"]";
+			mes "This is just luck. Let me try";
+			mes "again!!";
+			next;
+			mes "[Santa Claus]";
+			mes "Whenever you want.";
+			close;
+		}else{
+			mes "[Santa Claus]";
+			mes "You're so good!";
+			next;
+			mes "[Santa Claus]";
+			mes "Now this gift is for you. Put your";
+			mes "hand into the bag and pick only";
+			mes "one.";
+			set .@SantaCardPrize, rand(1,12);
+			next;
+			if (.@SantaCardPrize == 1) {
+				getitem 12354,2;
+			}
+			else if (.@SantaCardPrize == 2) {
+				getitem 595,3;
+			}
+			else if (.@SantaCardPrize == 3) {
+				getitem 593,3;							
+			}
+			else if (.@SantaCardPrize == 4) {
+				getitem 12236,3;			
+			}
+			else if (.@SantaCardPrize == 5) {
+				getitem 538,10;
+			}
+			else if (.@SantaCardPrize == 6) {
+				getitem 14546,10;
+			}
+			else if (.@SantaCardPrize == 7) {
+				getitem 5136,1;
+			}
+			else if (.@SantaCardPrize == 8) {
+				getitem 603,1;
+			}
+			else if (.@SantaCardPrize == 9) {
+				getitem 12130,1;
+			}
+			else if (.@SantaCardPrize == 10) {
+				getitem 14550,10;
+			}
+			else if (.@SantaCardPrize == 11) {
+				getitem 12132,3;
+			}
+			else if (.@SantaCardPrize == 12) {
+				getitem 594,3;
+			}
+			set SantaCardTime,gettimetick(2)+3600;
+			mes "[Santa Claus]";
+			mes "Good job! Thanks for playing the";
+			mes "card game with me! Merry";
+			mes "Christmas!";
+			close;
+		}
+
+	case 4:
+		mes "[Santa Claus]";
+		mes "Do you mean that ever so";
+		mes "fashionable costume for Santa's and";
+		mes "youngsters!?!";
+		mes "Light-weight, fashionable, and";
+		mes "keeps you warm!";
+		next;
+		mes "[Santa Claus]";
+		mes "There used to be designer who";
+		mes "visited my house to make my Santa";
+		mes "costumes. Do you have any ideas?";
+		close;
+	
+	case 5:
+		mes "[Santa Claus]";
+		mes "........................";
+		next;
+		mes "[Santa Claus]";
+		mes "........................";
+		if (Sex) {
+			mes "Oh! Poor boy...";
+		}else{
+			mes "Oh! Poor girl...";	
+		}
+		next;
+		mes "[Santa Claus]";
+		mes "........................";
+		if (Sex) {
+			mes "Oh! Poor boy...";
+		}else{
+			mes "Oh! Poor girl...";	
+		}
+		mes "...";
+		next;
+		mes "[Santa Claus]";
+		mes "You should open your heart to the";
+		mes "spirit of Christmas!";
+		mes "Once you do, I know you'll be able";
+		mes "to think of something.";
+		close;
+	}
+}
+
+payon,171,109,4	duplicate(08santa)	Santa Claus#0801	718
+prontera,156,285,4	duplicate(08santa)	Santa Claus#0802	718
+alberta,117,66,4	duplicate(08santa)	Santa Claus#0803	718
+geffen,119,70,4	duplicate(08santa)	Santa Claus#0804	718
+morocc,158,104,4	duplicate(08santa)	Santa Claus#0805	718
+
+
+// ============= Louise Kim - Santa Suit ===============
+// =====================================================
+xmas_in,89,92,4	script	Louise Kim#iROxmas08	714,{
+	mes "[Louise Kim]";
+	mes "I always thought about how boring";
+	mes "Santa Claus is wearing a too boring";
+	mes "costume. Too boring!";
+	next;
+	mes "[Louise Kim]";
+	mes "I could make a glamorous style for";
+	mes "him!";
+	next;
+	mes "[Louise Kim]";
+	mes "I once made a costume for";
+	mes "the notorious figure Antonio!";
+	mes "The reason catching up to him";
+	mes "is so hard, is that his clothes";
+	mes "have been given strong power!";
+	mes "I blessed them with good luck!";
+	next;
+	emotion 3;
+	mes "[Louise Kim]";
+	mes "Preta Porter!!";
+	mes "Which is quite luxurious";
+	mes "but sold at good price ~";
+	next;
+	mes "[Louise Kim]";
+	mes "Hey loosers! You can share my sense";
+	mes "of fashion and wear my look if you";
+	mes "run a light mission for me.";
+	next;
+	mes "[Louise Kim]";
+	mes "Are you interested?";
+	next;
+	if (select("Nope.:Yes, please.") == 1) {
+		mes "[Louise Kim]";
+		mes "Ah!";
+		mes "You're silly! You lost your big";
+		mes "chance!";
+		next;
+		emotion 18;
+		mes "[Louise Kim]";
+		mes "Come to me later if you";
+		mes "want to get the mission.";
+		mes "I, Louise Kim, am generous";
+		mes "enough to accept you next time.";
+		close;
+	}
+	mes "[Louise Kim]";
+	mes "You're so cool.";
+	next;
+	mes "[Louise Kim]";
+	mes "Don't worry about this mission.";
+	mes "It's not that difficult.";
+	mes "I'm only in need of some";
+	mes "materials. Things that are";
+	mes "beyond my ability...";
+	next;
+	mes "[Louise Kim]";
+	mes "Anyway, can you bring me some";
+	mes "stuff?";
+	next;
+	if (select("Why not? What do you need?:Sorry, no time.") == 2) {
+		emotion 18;
+		mes "[Louise Kim]";
+		mes "What?";
+		mes "You will definitely regret it.";
+		mes "No more chances later.";
+		close;
+	}
+	mes "[Louise Kim]";
+	mes "All right, you're cool!!";
+	mes "You need to bring me: ^0000FFCotton Shirt,";
+	mes "3 Red Potion, Holy Water, 4 Wrapping";
+	mes "Paper, Wrapping Lace^000000..";
+	next;
+	mes "[Louise Kim]";
+	mes "If you bring me all that stuff, I";
+	mes "can make you a glamorous Santa";
+	mes "costume.";
+	next;
+	if (countitem(2301) < 1 || countitem(501) < 3 || countitem(523) < 1 || countitem(7175) < 4 || countitem(7174) < 1) {		
+			mes "[Louise Kim]";
+			mes "If you were to bring me all the";
+			mes "stuff, I would make you a wonderful";
+			mes "costume, for free...";
+			next;
+			emotion 3;
+			mes "[Louise Kim]";
+			mes "Please see me again if you are";
+			mes "interested.";
+			close;
+	}else{
+		select("Here you are.");
+		emotion 33;
+		mes "[Louise Kim]";
+		mes "Oh! Good!";
+		mes "Let's not delay.";
+		mes "I will show you my limitless";
+		mes "ability.";
+		next;
+		mes "-She pours everything in a pot-";
+		mes "-even the shirt goes in!-";
+		mes "-She takes it out with skill-";
+		mes "-and many blessings she sings.-";
+		next;
+		specialeffect 42;
+		emotion 2;
+		mes "[Louise Kim]";
+		mes "By artist, Louise Kim!";
+		mes "All over the world will be blessed";
+		mes "tonight!";
+		next;
+		mes "-Pour red potion in another pot-";
+		mes "-then stir all of its parts.-";
+		mes "-Put the cotton shirts in-";
+		mes "-and dye it for grateful hearts.-";
+		mes "-Thread by thread-";
+		mes "-String by string-";
+		mes "-Count your blessings and sing!-";
+		next;
+		specialeffect 75;
+		emotion 2;
+		mes "[Louise Kim]";
+		mes "By artist, Louise Kim!";
+		mes "All over the world will be blessed";
+		mes "tonight!";
+		next;
+		mes "-She is knitting clothes-";
+		mes "-with a hooked needle-";
+		mes "-with her great skill.-";
+		mes "Spread your blessings,-";
+		mes "cheer and goodwill!-";
+		next;
+		specialeffect 91;
+		emotion 3;
+		mes "[Louise Kim]";
+		mes "This is miraculous!";
+		mes "I am a genius of the world.";
+		mes "Artist, Louise Kim!!!";
+		next;
+		mes "[Louise Kim]";
+		mes "All right! Isn't it wonderful?";
+		mes "You can call it what you wish.";
+		mes "My fashion is radiant.";
+		mes "I ain't envious of Designer";
+		mes "Pierre.";
+		next;
+		emotion 18;
+		mes "[Louise Kim]";
+		mes "I am supposed to get paid well,";
+		mes "however I will just let it";
+		mes "be free, since this is Christmas!";
+		next;
+		delitem 2301,1;
+		delitem 501,3;
+		delitem 523,1;
+		delitem 7175,4;
+		delitem 7174,1;
+		getitem 12132,1;
+		mes "[Louise Kim]";
+		mes "Go brag about these wonderful";
+		mes "clothes. There wouldn't be";
+		mes "any without me, Louise Kim.";
+		close;
+	}
+}
+
+//XMAS MOBS
+prt_fild00,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild00,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild00,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild00,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild01,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild02,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild02,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild02,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild02,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild03,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild03,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild03,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild03,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild04,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild04,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild04,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild04,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild05,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild05,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild05,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild05,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild06,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild06,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild06,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild06,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild07,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild07,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild07,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild07,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild08,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild08,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild08,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild08,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild09,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild09,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild09,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild09,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild10,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild10,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild10,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild10,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+prt_fild11,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+prt_fild11,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+prt_fild11,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+prt_fild11,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild01,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild02,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild02,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild02,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild02,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild03,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild03,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild03,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild03,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild04,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild04,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild04,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild04,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild05,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild05,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild05,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild05,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild06,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild06,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild06,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild06,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild07,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild07,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild07,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild07,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild08,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild08,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild08,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild08,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild09,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild09,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild09,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild09,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild10,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild10,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild10,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild10,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+pay_fild11,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+pay_fild11,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+pay_fild11,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+pay_fild11,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild00,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild00,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild00,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild00,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild01,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild02,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild02,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild02,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild02,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild03,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild03,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild03,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild03,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild04,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild04,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild04,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild04,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild05,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild05,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild05,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild05,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild06,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild06,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild06,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild06,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild07,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild07,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild07,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild07,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild08,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild08,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild08,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild08,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild09,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild09,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild09,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild09,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild10,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild10,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild10,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild10,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild11,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild11,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild11,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild11,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild12,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild12,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild12,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild12,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild13,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild13,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild13,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild13,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+gef_fild14,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+gef_fild14,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+gef_fild14,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
+gef_fild14,0,0,0,0	monster	Antonio	1247,1,0,0,0
+
+xmas_fild01,0,0,0,0	monster	Christmas Jakk	1244,5,0,0,0
+xmas_fild01,0,0,0,0	monster	Christmas Goblin	1245,5,0,0,0
+xmas_fild01,0,0,0,0	monster	Christmas Cookie	1246,5,0,0,0
 xmas_fild01,0,0,0,0	monster	Antonio	1247,1,0,0,0
\ No newline at end of file
diff --git a/npc/events/valentinesday_2009.txt b/npc/events/valentinesday_2009.txt
index 0ecb45896..02845d3e2 100644
--- a/npc/events/valentinesday_2009.txt
+++ b/npc/events/valentinesday_2009.txt
@@ -1,784 +1,784 @@
-//===== eAthena Script =======================================
-//= iRO Valentine's Day Event (2009)
-//===== By: ==================================================
-//= Kisuka
-//===== Current Version: =====================================
-//= 1.2
-//===== Compatible With: =====================================
-//= eAthena SVN
-//===== Description: =========================================
-//= iRO Valentine's Day Event. (2009)
-//= Make Chocolate/Chocolate Boxes/Home-Made Chocolate.
-//= Make Valentine's Rings/Boxes.
-//= Trade rings to those of opposite gender.
-//= Register rings you have gotten for votes.
-//=
-//= The male and female with the most votes at the end of
-//= the event will receive item (14466) from GM team.
-//=
-//= Must enable the event items in item_db2 and item_trade!
-//===== Additional Comments: =================================
-//= 1.0 First version. [Kisuka]
-//= 1.1-1.2 Fixed exploits with unlimited rings and non deleting choco [Lupus]
-//============================================================
-
-// Marco Bassinio (Chocolate/Chocolate Box maker)
-prontera,164,174,4	script	Trader#Val09	58,{
-	mes "[Marco Bassinio]";
-	mes "Hey, folks! Here's something you don't see everyday!";
-	mes "Something you can never find in Rune-Midgarts!";
-	mes "Something that makes you happy with just one bite!";
-	next;
-	mes "[Marco Bassinio]";
-	mes "It's the perfect dessert and the perfect gift for loved ones.";
-	mes "High-quality, traditional homemade chocolate only 5000z each!";
-	next;
-	switch(select("I'll take it, please!:I want to wrap the chocolate!:End trading.")) {
-		case 1:
-			mes "[Marco Bassinio]";
-			mes "Ahaha, my dear.";
-			mes "This chocolate is";
-			mes "nothing like others.";
-			mes "Every piece bears the";
-			mes "devotion of the person";
-			mes "who made it!";
-			next;
-			mes "[Marco Bassinio]";
-			mes "So, that's why I can't sell";
-			mes "more than 5 of them at a time.";
-			mes "If you really really want more,";
-			mes "then talk to me again.";
-			mes "How many do you want anyway?";
-			next;
-			while(.@input <= 0 || .@input > 5) {
-				input .@input;
-				if (.@input < 1) {
-					mes "[Marco Bassinio]";
-					mes "Oh, it's such a shame!";
-					mes "I'm sure you'll miss";
-					mes "this opportunity and";
-					mes "regret you didn't buy it.";
-					next;
-					mes "[Marco Bassinio]";
-					mes "Remember, you can never";
-					mes "find this anywhere else!";
-					mes "Come back anytime,";
-					mes "when you change your mind.";
-					close;
-				}
-				if (.@val09choco > 5) {
-					mes "[Marco Bassinio]";
-					mes "Ugh.. Didn't I tell you?";
-					mes "5 is the maximum!";
-					mes "I can't sell more than";
-					mes "that to the same person.";
-					next;
-					mes "[Marco Bassinio]";
-					mes "And you know it's not";
-					mes "like an everyday meal.";
-					mes "Eating too much is not";
-					mes "really good for you.";
-					next;
-				}
-			}
-			if (!checkweight(558, .@input)) {
-				mes "[Marco Bassinio]";
-				mes "You're carrying too many items.";
-				mes "Please use the Kafra Services.";
-				close;
-			}
-			set .@price, .@input * 5000;
-			if (Zeny < .@price) {
-				mes "[Marco Bassinio]";
-				mes "Looks like you don't have";
-				mes "enough zeny with ya.";
-				mes "Maybe you should borrow";
-				mes "some zeny from a friend.";
-				mes "Cuz, I'm not gonna";
-				mes "be here everyday.";
-				close;
-			}else{
-				mes "[Marco Bassinio]";
-				mes "Good for you!";
-				mes "It's also perfect as a gift!";
-				mes "You know you can't get this";
-				mes "kind of chocolate normally.";
-				next;
-				mes "[Marco Bassinio]";
-				mes "If you want more,";
-				mes "you should come back.";
-				mes "Might be a good idea to";
-				mes "buy some more while";
-				mes "you have a chance...!";
-				set Zeny,Zeny - .@price;
-				getitem 558,.@input;
-				close;
-			}
-		case 2:
-			mes "[Marco Bassinio]";
-			mes "If you want to gift-wrap";
-			mes "the chocolate, of course,";
-			mes "you need chocolate,";
-			mes "plus, wrapping paper,";
-			mes "wrapping strap and a box.";
-			next;
-			mes "[Marco Bassinio]";
-			mes "You also need to pay";
-			mes "500 zeny to carve your";
-			mes "name on the box.";
-			mes "Are you all prepared...?";
-			next;
-			if(countitem(7175) < 1 || countitem(7174) < 1 || countitem(7948) < 1 || Zeny < 500) {
-				mes "[Marco Bassinio]";
-				mes "Hmm.. Looks like you don't";
-				mes "have enough materials to";
-				mes "decorate the gift box..";
-				mes "You can't just put your gift";
-				mes "into some plain looking box..";
-				mes "Don't you think?";
-				next;
-				mes "[Marco Bassinio]";
-				mes "You need to bring some";
-				mes "wrapping paper,";
-				mes "wrapping strap, and a box.";
-				mes "Oh, also bring 500 zeny,";
-				mes "and don't forget to bring your";
-				mes "true loving heart with you!!";
-				close;
-			}
-			if(countitem(558) < 1) {
-				mes "[Marco Bassinio]";
-				mes "Hey, look, adventurer!";
-				mes "I can't create something right away!";
-				mes "You know I'm not an alchemist or anything.";
-				next;
-				mes "[Marco Bassinio]";
-				mes "You're not saying that you";
-				mes "want an empty chocolate box";
-				mes "without any chocolate in it,";
-				mes "am I right?";
-				close;				
-			}
-			if (!checkweight(12744,1)) {
-				mes "[Marco Bassinio]";
-				mes "You're carrying too many items.";
-				mes "Please use the Kafra Services.";
-				close;
-			}
-			mes "[Marco Bassinio]";
-			mes "Here, look!";
-			mes "It's your chocolate box";
-			mes "with your name on it.";
-			mes "Isn't it fabulous?";
-			mes "See, your name looks";
-			mes "great on the box!";
-			next;
-			delitem 558,1;
-			delitem 7175,1;
-			delitem 7174,1;
-			delitem 7948,1;
-			set Zeny,Zeny-500;
-			getnameditem 12744,strcharinfo(0);
-			mes "[Marco Bassinio]";
-			mes "Happy Valentine's Day!";
-			mes "Valentine's the reason I came back.";
-			close;
-		case 3:
-			mes "[Marco Bassinio]";
-			mes "Oh, it's such a shame!";
-			mes "I'm sure you'll miss";
-			mes "this opportunity and";
-			mes "regret you didn't buy it.";
-			next;
-			mes "[Marco Bassinio]";
-			mes "Remember, you can never";
-			mes "find this anywhere else!";
-			mes "Come back anytime,";
-			mes "when you change your mind.";
-			close;
-	}
-}
-
-// Packs Trader (Sells Wrapping Paper, Lace, and Box)
-prontera,147,171,5	script	Packs Trader#Val09	58,{
-	mes "[Packs Trader]";
-	mes "Hello.";
-	mes "I am a Packs Trader,";
-	mes "I sell paper boxes and";
-	mes "supplies for packing presents.";
-	next;
-	while(1) {
-		mes "[Packs Trader]";
-		mes "Do you have something to buy?";
-		next;
-		switch(select("Packing Paper:Packing Ribbon:Box:Cancel.")) {
-			case 1:
-				mes "[Packs Trader]";
-				mes "It's 200 zeny for";
-				mes "1 Packing Paper.";
-				mes "How many do you want?";
-				mes "You can't buy more";
-				mes "than 10 items at once.";
-				next;
-				input .@input;
-				if (.@input <= 0) {
-					mes "[Packs Trader]";
-					mes "Nothing to buy.";
-					mes "Come back when";
-					mes "you need something.";
-					close;
-				}
-				if (.@input > 10) {
-					mes "[Packs Trader]";
-					mes "I told you not to buy more than 10...";
-					next;
-					break;
-				}
-				if (!checkweight(7175,.@input)) {
-					mes "[Packs Trader]";
-					mes "You're carrying too many items.";
-					mes "Please use the Kafra Services.";
-					close;
-				}
-				set .@price, .@input * 200;
-				if (Zeny < .@price) {
-					mes "[Packs Trader]";
-					mes "You don't have enough money.";
-					mes "Please check your wallet.";
-					next;
-					break;
-				}else{
-					mes "[Packs Trader]";
-					mes "Here they are.";
-					mes "Hope it makes your";
-					mes "Valentine's Day";
-					mes "more pleasing!";
-					set Zeny,Zeny-.@price;
-					getitem 7175,.@input;
-					next;
-					break;
-				}
-			case 2:
-				mes "[Packs Trader]";
-				mes "It's 200 zeny for";
-				mes "1 Packing Ribbon.";
-				mes "How many do you want?";
-				mes "You can't buy more";
-				mes "than 10 items at once.";
-				next;
-				input .@input;
-				if (.@input <= 0) {
-					mes "[Packs Trader]";
-					mes "Nothing to buy.";
-					mes "Come back when";
-					mes "you need something.";
-					close;
-				}
-				if (.@input > 10) {
-					mes "[Packs Trader]";
-					mes "I told you not to buy more than 10...";
-					next;
-					break;
-				}
-				if (!checkweight(7174,.@input)) {
-					mes "[Packs Trader]";
-					mes "You're carrying too many items.";
-					mes "Please use the Kafra Services.";
-					close;
-				}
-				set .@price, .@input * 200;
-				if (Zeny < .@price) {
-					mes "[Packs Trader]";
-					mes "You don't have enough money.";
-					mes "Please check your wallet.";
-					next;
-					break;
-				}else{
-					mes "[Packs Trader]";
-					mes "Here they are.";
-					mes "Hope it makes your";
-					mes "Valentine's Day";
-					mes "more pleasing!";
-					set Zeny,Zeny-.@price;
-					getitem 7174,.@input;
-					next;
-					break;
-				}
-			case 3:
-				mes "[Packs Trader]";
-				mes "It's 600 zeny for";
-				mes "1 Box.";
-				mes "How many do you want?";
-				mes "You can't buy more";
-				mes "than 10 items at once.";
-				next;
-				input .@input;
-				if (.@input <= 0) {
-					mes "[Packs Trader]";
-					mes "Nothing to buy.";
-					mes "Come back when";
-					mes "you need something.";
-					close;
-				}
-				if (.@input > 10) {
-					mes "[Packs Trader]";
-					mes "I told you not to buy more than 10...";
-					next;
-					break;
-				}
-				if (!checkweight(7948,.@input)) {
-					mes "[Packs Trader]";
-					mes "You're carrying too many items.";
-					mes "Please use the Kafra Services.";
-					close;
-				}
-				set .@price, .@input * 600;
-				if (Zeny < .@price) {
-					mes "[Packs Trader]";
-					mes "You don't have enough money.";
-					mes "Please check your wallet.";
-					next;
-					break;
-				}else{
-					mes "[Packs Trader]";
-					mes "Here they are.";
-					mes "Hope it makes your";
-					mes "Valentine's Day";
-					mes "more pleasing!";
-					set Zeny,Zeny-.@price;
-					getitem 7948,.@input;
-					next;
-					break;
-				}	
-			case 4:
-				mes "[Packs Trader]";
-				mes "Goodbye!";
-				mes "And enjoy your";
-				mes "Valentine's Day.";
-				close;
-		}
-	}
-}
-
-// Event Ring Maker (Makes ring for players)
-prontera,154,185,5	script	Event Ring Maker#Val09	721,{
-	if (BaseLevel < 75) {
-		mes "[Event Ring Maker]";
-		mes "Hello, I only make the";
-		mes "Valentine rings to those";
-		mes "experienced adventurers";
-		mes "Level 75 or above.";
-		next;
-		mes "[Event Ring Maker]";
-		mes "You're not fully";
-		mes "experienced yet.";
-		mes "Come back when you're";
-		mes "experienced enough to";
-		mes "handle the quests.";
-		close;
-	}
-	
-	if (iROval09ring >= 1) {
-		mes "[Event Ring Maker]";
-		mes "The box with the ring,";
-		mes "carved with your name,";
-		mes "is for the one you love.";
-		next;
-		mes "[Event Ring Maker]";
-		mes "As for the rings that you";
-		mes "receive from others, they";
-		mes "should all be registered";
-		mes "with the Vote Manager.";
-		mes "She is standing near";
-		mes "the Prontera Fountain.";
-		next;
-		mes "[Event Ring Maker]";
-		mes "Only the most popular";
-		mes "male and female are";
-		mes "subjected to getting rewards.";
-		mes "Be aware, and always";
-		mes "try to stay popular!";
-		close;
-	}
-	
-	mes "[Event Ring Maker]";
-	mes "Hi, there, how are ya?";
-	mes "Come to me if you're";
-	mes "interested in the event,";
-	mes "'Who's Valentine's Hottest?'";
-	next;
-	mes "[Event Ring Maker]";
-	mes "I make the most precious";
-	mes "rings that you can give";
-	mes "to your sweethearts.";
-	mes "Those rings are very special";
-	mes "because I carve";
-	mes "your names on them!";
-	next;
-	mes "[Event Ring Maker]";
-	mes "Isn't it exciting?";
-	mes "Isn't it such a brilliant idea?";
-	mes "Give these special rings";
-	mes "to your sweethearts!";
-	next;
-	mes "[Event Ring Maker]";
-	mes "You should hurry 'cuz";
-	mes "this event will only";
-	mes "last for two weeks.";
-	mes "Give that special someone";
-	mes "a gift of a Valentine's ring.";
-	next;
-	mes "[Event Ring Maker]";
-	mes "Remember, you can only";
-	mes "generate the ring once.";
-	mes "You also need Wrapping Paper,";
-	mes "Wrapping Strap and a Box";
-	mes "to make the ring.";
-	next;
-	mes "[Event Ring Maker]";
-	mes "So you better be sure";
-	mes "of who you give this to.";
-	mes "By the way,";
-	mes "It costs 1,000 zeny.";
-	mes "Would you like to make one?";
-	next;
-	if(select("Hmm.. I gotta give it a second thought...:Sure.") == 1) {
-		mes "[Event Ring Maker]";
-		mes "Alrighty!";
-		mes "You can't put a rush";
-		mes "on such a thing like this.";
-		mes "Think about what";
-		mes "you truly want.";
-		mes "Just follow your heart!";
-		close;
-	}
-	if(countitem(7175) < 1 || countitem(7174) < 1 || countitem(7948) < 1 || Zeny < 1000) {
-		mes "[Event Ring Maker]";
-		mes "Well, you don't have";
-		mes "enough materials";
-		mes "to make a gift box.";
-		mes "Check what you have,";
-		mes "and come back later";
-		mes "with all the materials.";
-		close;
-	}
-	mes "[Event Ring Maker]";
-	mes "Okie Dokie!";
-	mes "I'll make it right away.";
-	next;
-	delitem 7175,1;
-	delitem 7174,1;
-	delitem 7948,1;
-	set Zeny,Zeny-1000;
-	set iROval09ring,1;
-	if (Sex) {
-		getnameditem 12742,strcharinfo(0);
-	}else{
-		getnameditem 12743,strcharinfo(0);
-	}
-	mes "[Event Ring Maker]";
-	mes "Here, the most precious";
-	mes "ring in the world!";
-	mes "Don't forget, you can never";
-	mes "make this ring again.";
-	next;
-	mes "[Event Ring Maker]";
-	mes "You must pick out the one";
-	mes "that you really really love,";
-	mes "and give this ring";
-	mes "to that person.";
-	next;
-	mes "[Event Ring Maker]";
-	mes "Of course, you've got to";
-	mes "get rings from others,";
-	mes "that's the way you can";
-	mes "participate in the voting, right?";
-	mes "Challenge yourself to become";
-	mes "Valentine's Hottest!";
-	close;	
-}
-
-// Valentine Vote Manager (Registers votes)
-prontera,157,185,4	script	Valentine Vote Manager#v	113,{
-	mes "[Valentine Vote Manager]";
-	mes "Hello, I'm the Valentine's";
-	mes "Vote Manager.";
-	mes "I'm in charge of collecting";
-	mes "rings for this event!";
-	next;
-	mes "[Valentine Vote Manager]";
-	mes "I register the rings";
-	mes "you get from others";
-	mes "and I calculate the";
-	mes "total number of rings.";
-	next;
-	mes "[Valentine Vote Manager]";
-	mes "You know what I do besides";
-	mes "just counting those rings?";
-	mes "I can tell you the adventurer's";
-	mes "name who's got the";
-	mes "most number of votes.";
-	next;
-	mes "[Valentine Vote Manager]";
-	mes "Plus, you can also find out how";
-	mes "many votes he/she got.";
-	next;
-	while (1) {
-		mes "[Valentine Vote Manager]";
-		mes "So, what do you want?";
-		next;
-		switch(select("Please register my rings.:Please count my votes.:Nothing, for now.")) {
-			case 1:
-				mes "[Valentine Vote Manager]";
-				mes "Please tell me how many";
-				mes "rings you want to register.";
-				next;
-				mes "[Valentine Vote Manager]";
-				mes "When you write the";
-				mes "number of the rings,";
-				mes "the number shouldn't be";
-				mes "larger than the number of";
-				mes "rings you actually have.";
-				mes "'0', cancels everything.";
-				next;
-				input .@input;
-
-				if (.@input <= 0) {
-					mes "[Valentine Vote Manager]";
-					mes "You have entered 0.";
-					mes "Registration is cancelled.";
-					next;
-					break;
-				}
-				
-				if (Sex) {
-					if (countitem(7947) > .@input) {
-						mes "[Valentine Vote Manager]";
-						mes "Seems like the value you entered is too small.";
-						mes "I know you've got more. Be honest, dear.";
-						next;
-						break;
-					}
-					
-					if (countitem(7947) < .@input) {
-						mes "[Valentine Vote Manager]";
-						mes "Seems like the value you entered is too large.";
-						mes "I know you've got less. Be honest, dear.";
-						next;
-						break;
-					}
-					
-					mes "[Valentine Vote Manager]";
-					mes "I'll take those silver rings,";
-					mes "and count the votes for you.";
-					mes "Thank you for participating.";
-					delitem 7947,.@input;
-					set Val09Rings,Val09Rings+.@input;
-					if (Val09Rings > $Val09votes_M) {
-						set $Val09votes_M,Val09Rings;
-						set $Val09name_M$,strcharinfo(0);
-					}
-					next;
-					break;
-				}else{
-					if (countitem(7946) > .@input) {
-						mes "[Valentine Vote Manager]";
-						mes "Seems like the value you entered is too small.";
-						mes "I know you've got more. Be honest, dear.";
-						next;
-						break;
-					}
-					
-					if (countitem(7946) < .@input) {
-						mes "[Valentine Vote Manager]";
-						mes "Seems like the value you entered is too large.";
-						mes "I know you've got less. Be honest, dear.";
-						next;
-						break;
-					}
-					
-					mes "[Valentine Vote Manager]";
-					mes "I'll take those gold rings,";
-					mes "and count the votes for you.";
-					mes "Thank you for participating.";
-					delitem 7946,.@input;
-					set Val09Rings,Val09Rings+.@input;
-					if (Val09Rings > $Val09votes_F) {
-						set $Val09votes_F,Val09Rings;
-						set $Val09name_F$,strcharinfo(0);
-					}
-					next;
-					break;
-				}
-			case 2:
-				mes "[Valentine Vote Manager]";
-				mes "Let's see...";
-				mes "You have registered..";
-				mes ".."+Val09Rings+" rings so far.";
-				mes "and...";
-				next;
-				mes "[Valentine Vote Manager]";
-				mes "The current record shows... "+$Val09name_M$+" is the male vote leader who's registered the total of "+$Val09votes_M+" rings.";
-				next;
-				mes "[Valentine Vote Manager]";
-				mes "The current record shows... "+$Val09name_F$+" is the female vote leader who's registered the total of "+$Val09votes_F+" rings.";
-				next;
-				break;			
-
-			case 3:
-				mes "[Valentine Vote Manager]";
-				mes "Hey, you can be popular too!";
-				mes "Anyone can... really!";
-				mes "Though you have to try a lot";
-				mes "harder, but still~ Hahaha!";
-				close;
-		}
-	}
-}
-
-// Charles Orleans (Makes Home-Made Chocolates)
-prt_castle,42,35,3	script	Dessert Manager#Val09	47,{
-	if (Sex) {
-		mes "[Charles Orleans]";
-		mes "Monsieur~! What brings";
-		mes "you to my beautiful atelier?";
-		mes "What is it that you want?";
-		mes "Well, my sparkling eyes";
-		mes "get dried and lose their shine";
-		mes "if not for the pretty little lady.";
-		next;
-		mes "[Charles Orleans]";
-		mes "Please leave me alone unless";
-		mes "you have business with me.";
-		mes "Haaaa~ I'm a busy person.";
-		mes "Don't bother me....";
-		mes "Annoying, annoying, annoying~~!";
-		close;
-	}
-	
-	mes "[Charles Orleans]";
-	mes "Oh, Mademoiselle!";
-	mes "This little trifling space";
-	mes "felt like heaven the";
-	mes "minute you walked in!";
-	mes "Can I help you with";
-	mes "anything, if it's alright?";
-	next;
-	if(select("Please, make me some chocolate.:Don't bother. I'm just passing by.") == 2) {
-		mes "[Charles Orleans]";
-		mes "Ahhh, this is so heartbreaking.";
-		mes "How could you say that?";
-		mes "You're just so mean.";
-		mes "Don't bother? Just passing by?";
-		next;
-		mes "[Charles Orleans]";
-		mes "What can I do to make you";
-		mes "pay a little attention to me?";
-		mes "Please.. I feel like my soul is lost..";
-		close;
-	}
-	if(countitem(558) < 3) {
-		mes "[Charles Orleans]";
-		mes "Ahhh, Mademoiselle.";
-		mes "I'm not an alchemist,";
-		mes "or a magician.";
-		mes "I don't just make chocolate";
-		mes "out of anything.";
-		next;
-		mes "[Charles Orleans]";
-		mes "I always think of making";
-		mes "chocolate as artistic work.";
-		mes "You see, I'm no ordinary cook...";
-		mes "I make chocolate with feelings..";
-		mes "messages of loving hearts..";
-		next;
-		mes "[Charles Orleans]";
-		mes "I make masterpieces.";
-		mes "No one can imitate";
-		mes "the looks and the taste.";
-		mes "Yes, it's nothing like";
-		mes "ordinary chocolate!";
-		next;
-		mes "[Charles Orleans]";
-		mes "I'm afraid I can't make it";
-		mes "and prove it to you now.";
-		mes "This is really a shame!";
-		next;
-		mes "[Charles Orleans]";
-		mes "I really want to thank";
-		mes "you for visiting me";
-		mes "and if you only bring";
-		mes "^3152ff3 Chocolates^000000,";
-		mes "I'll make you chocolate";
-		mes "like you've never seen...";
-		next;
-		mes "[Charles Orleans]";
-		mes "never tasted before...";
-		mes "Mademoiselle, with your spirit,";
-		mes "I'm sure you can bring";
-		mes "3 pieces of chocolate.";
-		mes "I have no doubt at all.";
-		next;
-		mes "[Charles Orleans]";
-		mes "So... what do you think?";
-		mes "Can you bring ^3152ff3 Chocolates^000000?";
-		mes "I could get them myself,";
-		mes "but I'm tied up with so much";
-		mes "work as you see right now.";
-		next;
-		mes "[Charles Orleans]";
-		mes "Adios, Mademoiselle.....";
-		mes "I'll be waiting for you.";
-		close;
-	}else{
-		if (!checkweight(559,1)) {
-			mes "[Charles Orleans]";
-			mes "You're carrying too many items.";
-			mes "Please use the Kafra Services.";
-			close;
-		}
-		mes "[Charles Orleans]";
-		mes "Oh, Mademoiselle!";
-		mes "I'll make the best chocolate";
-		mes "with the pieces you've brought.";
-		mes "I'm going to put the light of";
-		mes "your eyes into this chocolate";
-		mes "that no one can resist.";
-		next;
-		mes "[Charles Orleans]";
-		mes "It'll be stronger than a";
-		mes "sweet sweet love potion.....";
-		next;
-		mes "[Charles Orleans]";
-		mes "Un, Deux, Trois, Quatre.....";
-		mes "Just like the ugly duckling that";
-		mes "turned to a beautiful swan-";
-		mes "Ordinary chocolate pieces are";
-		mes "becoming a piece of art!";
-		next;
-		mes "[Charles Orleans]";
-		mes "They're changing!";
-		mes "They're getting warm,";
-		mes "softly changing the shape,";
-		mes "getting stronger again!";
-		mes "Oh, is it a master piece or";
-		mes "what...!!";
-		next;
-		mes "[Charles Orleans]";
-		mes "Here you go, Mademoiselle!";
-		mes "Ahahahaha, just look at this!";
-		mes "I can't believe I made this.";
-		mes "Oh, I can't take my eyes off..!!";
-		delitem 558,3;
-		getitem 559,1;
-		next;
-		mes "[Charles Orleans]";
-		mes "Alright. Mademoiselle,";
-		mes "I hope this is just";
-		mes "what you wanted,";
-		mes "for it bears your";
-		mes "beautiful heart inside.";
-		close;
-	}
-	
+//===== eAthena Script =======================================
+//= iRO Valentine's Day Event (2009)
+//===== By: ==================================================
+//= Kisuka
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= iRO Valentine's Day Event. (2009)
+//= Make Chocolate/Chocolate Boxes/Home-Made Chocolate.
+//= Make Valentine's Rings/Boxes.
+//= Trade rings to those of opposite gender.
+//= Register rings you have gotten for votes.
+//=
+//= The male and female with the most votes at the end of
+//= the event will receive item (14466) from GM team.
+//=
+//= Must enable the event items in item_db2 and item_trade!
+//===== Additional Comments: =================================
+//= 1.0 First version. [Kisuka]
+//= 1.1-1.2 Fixed exploits with unlimited rings and non deleting choco [Lupus]
+//============================================================
+
+// Marco Bassinio (Chocolate/Chocolate Box maker)
+prontera,164,174,4	script	Trader#Val09	58,{
+	mes "[Marco Bassinio]";
+	mes "Hey, folks! Here's something you don't see everyday!";
+	mes "Something you can never find in Rune-Midgarts!";
+	mes "Something that makes you happy with just one bite!";
+	next;
+	mes "[Marco Bassinio]";
+	mes "It's the perfect dessert and the perfect gift for loved ones.";
+	mes "High-quality, traditional homemade chocolate only 5000z each!";
+	next;
+	switch(select("I'll take it, please!:I want to wrap the chocolate!:End trading.")) {
+		case 1:
+			mes "[Marco Bassinio]";
+			mes "Ahaha, my dear.";
+			mes "This chocolate is";
+			mes "nothing like others.";
+			mes "Every piece bears the";
+			mes "devotion of the person";
+			mes "who made it!";
+			next;
+			mes "[Marco Bassinio]";
+			mes "So, that's why I can't sell";
+			mes "more than 5 of them at a time.";
+			mes "If you really really want more,";
+			mes "then talk to me again.";
+			mes "How many do you want anyway?";
+			next;
+			while(.@input <= 0 || .@input > 5) {
+				input .@input;
+				if (.@input < 1) {
+					mes "[Marco Bassinio]";
+					mes "Oh, it's such a shame!";
+					mes "I'm sure you'll miss";
+					mes "this opportunity and";
+					mes "regret you didn't buy it.";
+					next;
+					mes "[Marco Bassinio]";
+					mes "Remember, you can never";
+					mes "find this anywhere else!";
+					mes "Come back anytime,";
+					mes "when you change your mind.";
+					close;
+				}
+				if (.@val09choco > 5) {
+					mes "[Marco Bassinio]";
+					mes "Ugh.. Didn't I tell you?";
+					mes "5 is the maximum!";
+					mes "I can't sell more than";
+					mes "that to the same person.";
+					next;
+					mes "[Marco Bassinio]";
+					mes "And you know it's not";
+					mes "like an everyday meal.";
+					mes "Eating too much is not";
+					mes "really good for you.";
+					next;
+				}
+			}
+			if (!checkweight(558, .@input)) {
+				mes "[Marco Bassinio]";
+				mes "You're carrying too many items.";
+				mes "Please use the Kafra Services.";
+				close;
+			}
+			set .@price, .@input * 5000;
+			if (Zeny < .@price) {
+				mes "[Marco Bassinio]";
+				mes "Looks like you don't have";
+				mes "enough zeny with ya.";
+				mes "Maybe you should borrow";
+				mes "some zeny from a friend.";
+				mes "Cuz, I'm not gonna";
+				mes "be here everyday.";
+				close;
+			}else{
+				mes "[Marco Bassinio]";
+				mes "Good for you!";
+				mes "It's also perfect as a gift!";
+				mes "You know you can't get this";
+				mes "kind of chocolate normally.";
+				next;
+				mes "[Marco Bassinio]";
+				mes "If you want more,";
+				mes "you should come back.";
+				mes "Might be a good idea to";
+				mes "buy some more while";
+				mes "you have a chance...!";
+				set Zeny,Zeny - .@price;
+				getitem 558,.@input;
+				close;
+			}
+		case 2:
+			mes "[Marco Bassinio]";
+			mes "If you want to gift-wrap";
+			mes "the chocolate, of course,";
+			mes "you need chocolate,";
+			mes "plus, wrapping paper,";
+			mes "wrapping strap and a box.";
+			next;
+			mes "[Marco Bassinio]";
+			mes "You also need to pay";
+			mes "500 zeny to carve your";
+			mes "name on the box.";
+			mes "Are you all prepared...?";
+			next;
+			if(countitem(7175) < 1 || countitem(7174) < 1 || countitem(7948) < 1 || Zeny < 500) {
+				mes "[Marco Bassinio]";
+				mes "Hmm.. Looks like you don't";
+				mes "have enough materials to";
+				mes "decorate the gift box..";
+				mes "You can't just put your gift";
+				mes "into some plain looking box..";
+				mes "Don't you think?";
+				next;
+				mes "[Marco Bassinio]";
+				mes "You need to bring some";
+				mes "wrapping paper,";
+				mes "wrapping strap, and a box.";
+				mes "Oh, also bring 500 zeny,";
+				mes "and don't forget to bring your";
+				mes "true loving heart with you!!";
+				close;
+			}
+			if(countitem(558) < 1) {
+				mes "[Marco Bassinio]";
+				mes "Hey, look, adventurer!";
+				mes "I can't create something right away!";
+				mes "You know I'm not an alchemist or anything.";
+				next;
+				mes "[Marco Bassinio]";
+				mes "You're not saying that you";
+				mes "want an empty chocolate box";
+				mes "without any chocolate in it,";
+				mes "am I right?";
+				close;				
+			}
+			if (!checkweight(12744,1)) {
+				mes "[Marco Bassinio]";
+				mes "You're carrying too many items.";
+				mes "Please use the Kafra Services.";
+				close;
+			}
+			mes "[Marco Bassinio]";
+			mes "Here, look!";
+			mes "It's your chocolate box";
+			mes "with your name on it.";
+			mes "Isn't it fabulous?";
+			mes "See, your name looks";
+			mes "great on the box!";
+			next;
+			delitem 558,1;
+			delitem 7175,1;
+			delitem 7174,1;
+			delitem 7948,1;
+			set Zeny,Zeny-500;
+			getnameditem 12744,strcharinfo(0);
+			mes "[Marco Bassinio]";
+			mes "Happy Valentine's Day!";
+			mes "Valentine's the reason I came back.";
+			close;
+		case 3:
+			mes "[Marco Bassinio]";
+			mes "Oh, it's such a shame!";
+			mes "I'm sure you'll miss";
+			mes "this opportunity and";
+			mes "regret you didn't buy it.";
+			next;
+			mes "[Marco Bassinio]";
+			mes "Remember, you can never";
+			mes "find this anywhere else!";
+			mes "Come back anytime,";
+			mes "when you change your mind.";
+			close;
+	}
+}
+
+// Packs Trader (Sells Wrapping Paper, Lace, and Box)
+prontera,147,171,5	script	Packs Trader#Val09	58,{
+	mes "[Packs Trader]";
+	mes "Hello.";
+	mes "I am a Packs Trader,";
+	mes "I sell paper boxes and";
+	mes "supplies for packing presents.";
+	next;
+	while(1) {
+		mes "[Packs Trader]";
+		mes "Do you have something to buy?";
+		next;
+		switch(select("Packing Paper:Packing Ribbon:Box:Cancel.")) {
+			case 1:
+				mes "[Packs Trader]";
+				mes "It's 200 zeny for";
+				mes "1 Packing Paper.";
+				mes "How many do you want?";
+				mes "You can't buy more";
+				mes "than 10 items at once.";
+				next;
+				input .@input;
+				if (.@input <= 0) {
+					mes "[Packs Trader]";
+					mes "Nothing to buy.";
+					mes "Come back when";
+					mes "you need something.";
+					close;
+				}
+				if (.@input > 10) {
+					mes "[Packs Trader]";
+					mes "I told you not to buy more than 10...";
+					next;
+					break;
+				}
+				if (!checkweight(7175,.@input)) {
+					mes "[Packs Trader]";
+					mes "You're carrying too many items.";
+					mes "Please use the Kafra Services.";
+					close;
+				}
+				set .@price, .@input * 200;
+				if (Zeny < .@price) {
+					mes "[Packs Trader]";
+					mes "You don't have enough money.";
+					mes "Please check your wallet.";
+					next;
+					break;
+				}else{
+					mes "[Packs Trader]";
+					mes "Here they are.";
+					mes "Hope it makes your";
+					mes "Valentine's Day";
+					mes "more pleasing!";
+					set Zeny,Zeny-.@price;
+					getitem 7175,.@input;
+					next;
+					break;
+				}
+			case 2:
+				mes "[Packs Trader]";
+				mes "It's 200 zeny for";
+				mes "1 Packing Ribbon.";
+				mes "How many do you want?";
+				mes "You can't buy more";
+				mes "than 10 items at once.";
+				next;
+				input .@input;
+				if (.@input <= 0) {
+					mes "[Packs Trader]";
+					mes "Nothing to buy.";
+					mes "Come back when";
+					mes "you need something.";
+					close;
+				}
+				if (.@input > 10) {
+					mes "[Packs Trader]";
+					mes "I told you not to buy more than 10...";
+					next;
+					break;
+				}
+				if (!checkweight(7174,.@input)) {
+					mes "[Packs Trader]";
+					mes "You're carrying too many items.";
+					mes "Please use the Kafra Services.";
+					close;
+				}
+				set .@price, .@input * 200;
+				if (Zeny < .@price) {
+					mes "[Packs Trader]";
+					mes "You don't have enough money.";
+					mes "Please check your wallet.";
+					next;
+					break;
+				}else{
+					mes "[Packs Trader]";
+					mes "Here they are.";
+					mes "Hope it makes your";
+					mes "Valentine's Day";
+					mes "more pleasing!";
+					set Zeny,Zeny-.@price;
+					getitem 7174,.@input;
+					next;
+					break;
+				}
+			case 3:
+				mes "[Packs Trader]";
+				mes "It's 600 zeny for";
+				mes "1 Box.";
+				mes "How many do you want?";
+				mes "You can't buy more";
+				mes "than 10 items at once.";
+				next;
+				input .@input;
+				if (.@input <= 0) {
+					mes "[Packs Trader]";
+					mes "Nothing to buy.";
+					mes "Come back when";
+					mes "you need something.";
+					close;
+				}
+				if (.@input > 10) {
+					mes "[Packs Trader]";
+					mes "I told you not to buy more than 10...";
+					next;
+					break;
+				}
+				if (!checkweight(7948,.@input)) {
+					mes "[Packs Trader]";
+					mes "You're carrying too many items.";
+					mes "Please use the Kafra Services.";
+					close;
+				}
+				set .@price, .@input * 600;
+				if (Zeny < .@price) {
+					mes "[Packs Trader]";
+					mes "You don't have enough money.";
+					mes "Please check your wallet.";
+					next;
+					break;
+				}else{
+					mes "[Packs Trader]";
+					mes "Here they are.";
+					mes "Hope it makes your";
+					mes "Valentine's Day";
+					mes "more pleasing!";
+					set Zeny,Zeny-.@price;
+					getitem 7948,.@input;
+					next;
+					break;
+				}	
+			case 4:
+				mes "[Packs Trader]";
+				mes "Goodbye!";
+				mes "And enjoy your";
+				mes "Valentine's Day.";
+				close;
+		}
+	}
+}
+
+// Event Ring Maker (Makes ring for players)
+prontera,154,185,5	script	Event Ring Maker#Val09	721,{
+	if (BaseLevel < 75) {
+		mes "[Event Ring Maker]";
+		mes "Hello, I only make the";
+		mes "Valentine rings to those";
+		mes "experienced adventurers";
+		mes "Level 75 or above.";
+		next;
+		mes "[Event Ring Maker]";
+		mes "You're not fully";
+		mes "experienced yet.";
+		mes "Come back when you're";
+		mes "experienced enough to";
+		mes "handle the quests.";
+		close;
+	}
+	
+	if (iROval09ring >= 1) {
+		mes "[Event Ring Maker]";
+		mes "The box with the ring,";
+		mes "carved with your name,";
+		mes "is for the one you love.";
+		next;
+		mes "[Event Ring Maker]";
+		mes "As for the rings that you";
+		mes "receive from others, they";
+		mes "should all be registered";
+		mes "with the Vote Manager.";
+		mes "She is standing near";
+		mes "the Prontera Fountain.";
+		next;
+		mes "[Event Ring Maker]";
+		mes "Only the most popular";
+		mes "male and female are";
+		mes "subjected to getting rewards.";
+		mes "Be aware, and always";
+		mes "try to stay popular!";
+		close;
+	}
+	
+	mes "[Event Ring Maker]";
+	mes "Hi, there, how are ya?";
+	mes "Come to me if you're";
+	mes "interested in the event,";
+	mes "'Who's Valentine's Hottest?'";
+	next;
+	mes "[Event Ring Maker]";
+	mes "I make the most precious";
+	mes "rings that you can give";
+	mes "to your sweethearts.";
+	mes "Those rings are very special";
+	mes "because I carve";
+	mes "your names on them!";
+	next;
+	mes "[Event Ring Maker]";
+	mes "Isn't it exciting?";
+	mes "Isn't it such a brilliant idea?";
+	mes "Give these special rings";
+	mes "to your sweethearts!";
+	next;
+	mes "[Event Ring Maker]";
+	mes "You should hurry 'cuz";
+	mes "this event will only";
+	mes "last for two weeks.";
+	mes "Give that special someone";
+	mes "a gift of a Valentine's ring.";
+	next;
+	mes "[Event Ring Maker]";
+	mes "Remember, you can only";
+	mes "generate the ring once.";
+	mes "You also need Wrapping Paper,";
+	mes "Wrapping Strap and a Box";
+	mes "to make the ring.";
+	next;
+	mes "[Event Ring Maker]";
+	mes "So you better be sure";
+	mes "of who you give this to.";
+	mes "By the way,";
+	mes "It costs 1,000 zeny.";
+	mes "Would you like to make one?";
+	next;
+	if(select("Hmm.. I gotta give it a second thought...:Sure.") == 1) {
+		mes "[Event Ring Maker]";
+		mes "Alrighty!";
+		mes "You can't put a rush";
+		mes "on such a thing like this.";
+		mes "Think about what";
+		mes "you truly want.";
+		mes "Just follow your heart!";
+		close;
+	}
+	if(countitem(7175) < 1 || countitem(7174) < 1 || countitem(7948) < 1 || Zeny < 1000) {
+		mes "[Event Ring Maker]";
+		mes "Well, you don't have";
+		mes "enough materials";
+		mes "to make a gift box.";
+		mes "Check what you have,";
+		mes "and come back later";
+		mes "with all the materials.";
+		close;
+	}
+	mes "[Event Ring Maker]";
+	mes "Okie Dokie!";
+	mes "I'll make it right away.";
+	next;
+	delitem 7175,1;
+	delitem 7174,1;
+	delitem 7948,1;
+	set Zeny,Zeny-1000;
+	set iROval09ring,1;
+	if (Sex) {
+		getnameditem 12742,strcharinfo(0);
+	}else{
+		getnameditem 12743,strcharinfo(0);
+	}
+	mes "[Event Ring Maker]";
+	mes "Here, the most precious";
+	mes "ring in the world!";
+	mes "Don't forget, you can never";
+	mes "make this ring again.";
+	next;
+	mes "[Event Ring Maker]";
+	mes "You must pick out the one";
+	mes "that you really really love,";
+	mes "and give this ring";
+	mes "to that person.";
+	next;
+	mes "[Event Ring Maker]";
+	mes "Of course, you've got to";
+	mes "get rings from others,";
+	mes "that's the way you can";
+	mes "participate in the voting, right?";
+	mes "Challenge yourself to become";
+	mes "Valentine's Hottest!";
+	close;	
+}
+
+// Valentine Vote Manager (Registers votes)
+prontera,157,185,4	script	Valentine Vote Manager#v	113,{
+	mes "[Valentine Vote Manager]";
+	mes "Hello, I'm the Valentine's";
+	mes "Vote Manager.";
+	mes "I'm in charge of collecting";
+	mes "rings for this event!";
+	next;
+	mes "[Valentine Vote Manager]";
+	mes "I register the rings";
+	mes "you get from others";
+	mes "and I calculate the";
+	mes "total number of rings.";
+	next;
+	mes "[Valentine Vote Manager]";
+	mes "You know what I do besides";
+	mes "just counting those rings?";
+	mes "I can tell you the adventurer's";
+	mes "name who's got the";
+	mes "most number of votes.";
+	next;
+	mes "[Valentine Vote Manager]";
+	mes "Plus, you can also find out how";
+	mes "many votes he/she got.";
+	next;
+	while (1) {
+		mes "[Valentine Vote Manager]";
+		mes "So, what do you want?";
+		next;
+		switch(select("Please register my rings.:Please count my votes.:Nothing, for now.")) {
+			case 1:
+				mes "[Valentine Vote Manager]";
+				mes "Please tell me how many";
+				mes "rings you want to register.";
+				next;
+				mes "[Valentine Vote Manager]";
+				mes "When you write the";
+				mes "number of the rings,";
+				mes "the number shouldn't be";
+				mes "larger than the number of";
+				mes "rings you actually have.";
+				mes "'0', cancels everything.";
+				next;
+				input .@input;
+
+				if (.@input <= 0) {
+					mes "[Valentine Vote Manager]";
+					mes "You have entered 0.";
+					mes "Registration is cancelled.";
+					next;
+					break;
+				}
+				
+				if (Sex) {
+					if (countitem(7947) > .@input) {
+						mes "[Valentine Vote Manager]";
+						mes "Seems like the value you entered is too small.";
+						mes "I know you've got more. Be honest, dear.";
+						next;
+						break;
+					}
+					
+					if (countitem(7947) < .@input) {
+						mes "[Valentine Vote Manager]";
+						mes "Seems like the value you entered is too large.";
+						mes "I know you've got less. Be honest, dear.";
+						next;
+						break;
+					}
+					
+					mes "[Valentine Vote Manager]";
+					mes "I'll take those silver rings,";
+					mes "and count the votes for you.";
+					mes "Thank you for participating.";
+					delitem 7947,.@input;
+					set Val09Rings,Val09Rings+.@input;
+					if (Val09Rings > $Val09votes_M) {
+						set $Val09votes_M,Val09Rings;
+						set $Val09name_M$,strcharinfo(0);
+					}
+					next;
+					break;
+				}else{
+					if (countitem(7946) > .@input) {
+						mes "[Valentine Vote Manager]";
+						mes "Seems like the value you entered is too small.";
+						mes "I know you've got more. Be honest, dear.";
+						next;
+						break;
+					}
+					
+					if (countitem(7946) < .@input) {
+						mes "[Valentine Vote Manager]";
+						mes "Seems like the value you entered is too large.";
+						mes "I know you've got less. Be honest, dear.";
+						next;
+						break;
+					}
+					
+					mes "[Valentine Vote Manager]";
+					mes "I'll take those gold rings,";
+					mes "and count the votes for you.";
+					mes "Thank you for participating.";
+					delitem 7946,.@input;
+					set Val09Rings,Val09Rings+.@input;
+					if (Val09Rings > $Val09votes_F) {
+						set $Val09votes_F,Val09Rings;
+						set $Val09name_F$,strcharinfo(0);
+					}
+					next;
+					break;
+				}
+			case 2:
+				mes "[Valentine Vote Manager]";
+				mes "Let's see...";
+				mes "You have registered..";
+				mes ".."+Val09Rings+" rings so far.";
+				mes "and...";
+				next;
+				mes "[Valentine Vote Manager]";
+				mes "The current record shows... "+$Val09name_M$+" is the male vote leader who's registered the total of "+$Val09votes_M+" rings.";
+				next;
+				mes "[Valentine Vote Manager]";
+				mes "The current record shows... "+$Val09name_F$+" is the female vote leader who's registered the total of "+$Val09votes_F+" rings.";
+				next;
+				break;			
+
+			case 3:
+				mes "[Valentine Vote Manager]";
+				mes "Hey, you can be popular too!";
+				mes "Anyone can... really!";
+				mes "Though you have to try a lot";
+				mes "harder, but still~ Hahaha!";
+				close;
+		}
+	}
+}
+
+// Charles Orleans (Makes Home-Made Chocolates)
+prt_castle,42,35,3	script	Dessert Manager#Val09	47,{
+	if (Sex) {
+		mes "[Charles Orleans]";
+		mes "Monsieur~! What brings";
+		mes "you to my beautiful atelier?";
+		mes "What is it that you want?";
+		mes "Well, my sparkling eyes";
+		mes "get dried and lose their shine";
+		mes "if not for the pretty little lady.";
+		next;
+		mes "[Charles Orleans]";
+		mes "Please leave me alone unless";
+		mes "you have business with me.";
+		mes "Haaaa~ I'm a busy person.";
+		mes "Don't bother me....";
+		mes "Annoying, annoying, annoying~~!";
+		close;
+	}
+	
+	mes "[Charles Orleans]";
+	mes "Oh, Mademoiselle!";
+	mes "This little trifling space";
+	mes "felt like heaven the";
+	mes "minute you walked in!";
+	mes "Can I help you with";
+	mes "anything, if it's alright?";
+	next;
+	if(select("Please, make me some chocolate.:Don't bother. I'm just passing by.") == 2) {
+		mes "[Charles Orleans]";
+		mes "Ahhh, this is so heartbreaking.";
+		mes "How could you say that?";
+		mes "You're just so mean.";
+		mes "Don't bother? Just passing by?";
+		next;
+		mes "[Charles Orleans]";
+		mes "What can I do to make you";
+		mes "pay a little attention to me?";
+		mes "Please.. I feel like my soul is lost..";
+		close;
+	}
+	if(countitem(558) < 3) {
+		mes "[Charles Orleans]";
+		mes "Ahhh, Mademoiselle.";
+		mes "I'm not an alchemist,";
+		mes "or a magician.";
+		mes "I don't just make chocolate";
+		mes "out of anything.";
+		next;
+		mes "[Charles Orleans]";
+		mes "I always think of making";
+		mes "chocolate as artistic work.";
+		mes "You see, I'm no ordinary cook...";
+		mes "I make chocolate with feelings..";
+		mes "messages of loving hearts..";
+		next;
+		mes "[Charles Orleans]";
+		mes "I make masterpieces.";
+		mes "No one can imitate";
+		mes "the looks and the taste.";
+		mes "Yes, it's nothing like";
+		mes "ordinary chocolate!";
+		next;
+		mes "[Charles Orleans]";
+		mes "I'm afraid I can't make it";
+		mes "and prove it to you now.";
+		mes "This is really a shame!";
+		next;
+		mes "[Charles Orleans]";
+		mes "I really want to thank";
+		mes "you for visiting me";
+		mes "and if you only bring";
+		mes "^3152ff3 Chocolates^000000,";
+		mes "I'll make you chocolate";
+		mes "like you've never seen...";
+		next;
+		mes "[Charles Orleans]";
+		mes "never tasted before...";
+		mes "Mademoiselle, with your spirit,";
+		mes "I'm sure you can bring";
+		mes "3 pieces of chocolate.";
+		mes "I have no doubt at all.";
+		next;
+		mes "[Charles Orleans]";
+		mes "So... what do you think?";
+		mes "Can you bring ^3152ff3 Chocolates^000000?";
+		mes "I could get them myself,";
+		mes "but I'm tied up with so much";
+		mes "work as you see right now.";
+		next;
+		mes "[Charles Orleans]";
+		mes "Adios, Mademoiselle.....";
+		mes "I'll be waiting for you.";
+		close;
+	}else{
+		if (!checkweight(559,1)) {
+			mes "[Charles Orleans]";
+			mes "You're carrying too many items.";
+			mes "Please use the Kafra Services.";
+			close;
+		}
+		mes "[Charles Orleans]";
+		mes "Oh, Mademoiselle!";
+		mes "I'll make the best chocolate";
+		mes "with the pieces you've brought.";
+		mes "I'm going to put the light of";
+		mes "your eyes into this chocolate";
+		mes "that no one can resist.";
+		next;
+		mes "[Charles Orleans]";
+		mes "It'll be stronger than a";
+		mes "sweet sweet love potion.....";
+		next;
+		mes "[Charles Orleans]";
+		mes "Un, Deux, Trois, Quatre.....";
+		mes "Just like the ugly duckling that";
+		mes "turned to a beautiful swan-";
+		mes "Ordinary chocolate pieces are";
+		mes "becoming a piece of art!";
+		next;
+		mes "[Charles Orleans]";
+		mes "They're changing!";
+		mes "They're getting warm,";
+		mes "softly changing the shape,";
+		mes "getting stronger again!";
+		mes "Oh, is it a master piece or";
+		mes "what...!!";
+		next;
+		mes "[Charles Orleans]";
+		mes "Here you go, Mademoiselle!";
+		mes "Ahahahaha, just look at this!";
+		mes "I can't believe I made this.";
+		mes "Oh, I can't take my eyes off..!!";
+		delitem 558,3;
+		getitem 559,1;
+		next;
+		mes "[Charles Orleans]";
+		mes "Alright. Mademoiselle,";
+		mes "I hope this is just";
+		mes "what you wanted,";
+		mes "for it bears your";
+		mes "beautiful heart inside.";
+		close;
+	}
+	
 }
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2