Full npc folder reorganization. (I hope I didn't break anything D:)

-Now common scripts goes to the main npc folder, and pre-re-only/re-only ones goes to their respective folders.
-NPCs with practically the same script but little differences have been left in the main folder and uses the command checkre() for the differences.
-For those NPCs with different coordinates but same script, the script has been left in the main folder but the NPCs splitted as duplicates.
-All pre-renewal files has been reverted back to their pre-renewal behavior.

TODO:
-Correct pre-re quest rewards.
-Check for pre-re/re differences in mapflags.

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

1 files changed, 1684 insertions, 0 deletions

diff --git a/npc/events/christmas_2005.txt b/npc/events/christmas_2005.txt
new file mode 100644
index 000000000..fd82b553f
--- /dev/null
+++ b/npc/events/christmas_2005.txt
@@ -0,0 +1,1684 @@
+//===== rAthena Script =======================================
+//= 2005 ChristMas Event
+//===== By: ==================================================
+//= Brainstorm
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= [Aegis Conversion]
+//= Event 1: Louise's Kim creates Louise's Santa Hat.
+//= Event 2: Enjoy Happymerry Chistmas Event summons monsters.
+//= Event 3: Oholy requires you to hunt Deviruchi NPCs.
+//==========================================
+//= Break down of arguments used in the function:
+//=	arg(0) Originating NPC (disable)
+//=	arg(1) Next NPC to be enabled
+//=	arg(2) Map name of originating NPC
+//=	arg(3) Coordinate X to be teleported to
+//=	arg(4) Coordinate Y to be teleported to
+//===== Additional Comments: =================================
+//= 1.0 First semi-working conversion. [Brainstorm]
+//= 1.1 Refined Brainstorm's conversion. [L0ne_W0lf]
+//= 1.2 Replaced effect numerics with constants. [L0ne_W0lf]
+//= 1.2a Small update to the checkweight. (bugreport:2553). [Paradox924X]
+//============================================================
+
+// Louise's Santa Hat (Event 1)
+xmas_in,89,92,5	script	Louise Kim#designer	714,{
+	mes "[Designer Louise Kim]";
+	mes "Cone shaped red Santa hat is too ordinary.";
+	mes "It's old fashioned.";
+	mes "Maybe in 1980's?!";
+	mes "Haha~";
+	next;
+	mes "[Designer Louise Kim]";
+	mes "If you leave it on me,";
+	mes "I'll change it to lastest model.";
+	mes "You know what I mean~!";
+	next;
+	mes "[Designer Louise Kim]";
+	mes "You know Antonio's hat,right?";
+	mes "Guess who made it?";
+	mes "As you know, Antonio is hard to catch,";
+	mes "that's because I blowed some power in the hat. ";
+	mes "";
+	next;
+	mes "[Designer Louise Kim]";
+	mes "If you don't like your hat,";
+	mes "bring it to me.";
+	mes "I'll change it to brand new one.";
+	mes "Stylish Louise's hat.";
+	mes "";
+	emotion e_lv;
+	next;
+	if(countitem(2236) > 0) {
+		if (select("Here.:It's ok.") == 1) {
+			mes "[Designer Louise Kim]";
+			mes "Nice choice!!";
+			mes "If I do it like this ...";
+			mes "and this and...";
+			mes "finally it'll turn into fantastic hat.";
+			mes "But before that,I need some materials to make with.";
+			next;
+			if (select("What are the materials?:So what? I don't want to know.") == 1) {
+				mes "[Designer Louise Kim]";
+				mes "Well, nothing special.";
+				mes "Basically, you need Santa's hat of course.";
+				mes "and with a touch of my magical fingers,";
+				mes "it'll just turn into very special thing.";
+				mes "Well,just little bit prettier and";
+				mes "little bit more practical. Haha...";
+				next;
+				mes "[Designer Louise Kim]";
+				mes "Anyway,to sum up,required materials are....";
+				mes "Basically ^0000FFSanta's Hat^000000 and";
+				mes " ^0000FF 1 Cactus Needle ^000000 for sewing, ";
+				mes "^0000FF 10 Holy Water ^000000 for blessing, ";
+				mes "^0000FF 1 Rosary ^000000 for luckiness.";
+				mes "It's pretty enough to make Louise Hat.";
+				next;
+				if (countitem(952) > 0 && countitem(523) > 9 && countitem(2608) > 0) {
+					select("Here you are.....");
+					mes "[Designer Louise Kim]";
+					mes "Wow~~!! So fast!!";
+					mes "I like your style~.";
+					mes "Ok!! If everything is ready, no need to hesitate.";
+					mes "I'll show you what Designer Louise Kim's power is.";
+					emotion e_no1;
+					next;
+					mes "-She puts the hat in a bucket -";
+					mes "-filled with Holy Water.-";
+					mes "-She rapidly takes it out and starts mending the hat-";
+					mes "-humming a tune.-";
+					next;
+					mes "[Designer Louise Kim]";
+					mes "~With the number one designer, Louise Kim,~";
+					mes "~you are the most blessed soul.~";
+					emotion e_ho;
+					misceffect EF_BLESSING;
+					next;
+					mes "-Immediately, she puts Rosary in an-";
+					mes "-unknown liquid and dissolves it.-";
+					mes "-And with a brush,-";
+					mes "-neatly coats the liquid on -";
+					mes "-a thread of the hat.-";
+					next;
+					mes "[Designer Louise Kim]";
+					mes "~With the number one designer, Louise Kim,~";
+					mes "~you are the luckiest soul.~";
+					emotion e_ho;
+					misceffect EF_GLORIA;
+					next;
+					mes "-She starts sewing the hat with -";
+					mes "-a Cactus Needle and a thread.-";
+					mes " ";
+					next;
+					mes "[Designer Louise Kim]";
+					mes "~This is called the Louise's miracle.~";
+					mes "~The most talented disigner,~";
+					mes "~L_O_U_I_S_E K_I_M~";
+					emotion e_lv;
+					misceffect EF_BENEDICTIO;
+					next;
+					mes "[Designer Louise Kim]";
+					mes "Here!! All done~~";
+					mes "How do you like it?";
+					mes "Isn't it so wonderful?";
+					mes "Take it!! It's a gift.";
+					next;
+					mes "[Designer Louise Kim]";
+					mes "I should have called high price for it";
+					mes "but as you know it's Christmas!";
+					mes "It's a gift for you!";
+					mes "I won't charge anything.";
+					mes "Just tell many people how good it is.";
+					emotion e_heh;
+					next;
+					mes "[Designer Louise Kim]";
+					mes "Wherever you go,";
+					mes "whatever you do,";
+					mes "never take off the hat.";
+					mes "You won't have a chance to buy it";
+					mes "no matter how much you pay.";
+					next;
+					mes "[Designer Louise Kim]";
+					mes "Alright~Go ahead~";
+					mes "Go brag yourself!";
+					mes "~Who would be happier than~";
+					mes "~being with Louise.~";
+					emotion e_ho;
+					delitem 2236,1; //Santa's_Hat
+					delitem 952,1; //Cactus_Needle
+					delitem 523,10; //Holy_Water
+					delitem 2608,1; //Rosary
+					getitem 5136,1; //Santa's_Hat_
+					close;
+				}
+				else {
+					mes "[Designer Louise Kim]";
+					mes "Come on~If you just get me the materials,";
+					mes "I won't chage anything,";
+					mes "Call me if you change your mind.";
+					emotion e_lv;
+					close;
+				}
+			}
+			mes "[Designer Louise Kim]";
+			mes "You'll regret!";
+			mes "Think again!";
+			emotion e_heh;
+			close;
+		}
+		mes "[Designer Louise Kim]";
+		mes "Ok~ whatever~";
+		mes "It's not me,";
+		mes "who's going to lose whose own luck.";
+		emotion e_heh;
+		close;
+	}
+	else {
+		mes "[Designer Louise Kim]";
+		mes "Perhaps you get the chance to acheive Santa's Hat later some time,";
+		mes "think about it carefully.";
+		mes "You can get the better designed hat,";
+		mes "and I can show off my talent.";
+		mes "";
+		emotion e_heh;
+		close;
+	}
+}
+
+// Enjoy Happymerry Chistmas Event (Event 2)
+prontera,155,285,3	script	Enjoy#enjoy	753,{
+	if (!christ_solo05){
+		mes "[Enjoy]";
+		mes "Oh~~~";
+		mes "It's already winter again~~!";
+		mes "This chilling weather makes";
+		mes "my body freeze~";
+		mes "And also makes my heart freeze.";
+		mes "Who said that christmas is only for lovers~";
+		mes "Oh~~I'm so lonely~!!!";
+		next;
+		mes "[Enjoy]";
+		mes "Pitiless sister!!";
+		mes "How can she leave me alone on a christmas day~";
+		mes "'Spend your days with family on a chirstmas day'";
+		mes "is our family precept";
+		mes "Hm...I need to get some rest.";
+		mes "I'm so nervous these days~";
+		next;
+		mes "[Enjoy]";
+		mes "Lets make a joyful christmas for ";
+		mes "lonely singles.";
+		mes "Who's with me?!!";
+		mes "!!!!!!!!!!!";
+		mes "!!!!!!!!!!!!!";
+		next;
+		switch(select("Wow!:Hm...I'm not interested.:I have ~")){
+		case 1:
+			mes "[Enjoy]";
+			mes "Alright~~!!!";
+			mes "Let's rock and roll!!";
+			mes "Here's my plan!!";
+			mes "Let's punish those couples";
+			mes "who are so excited about christmas.";
+			mes "I just don't want to see them happy.";
+			next;
+			mes "[Enjoy]";
+			mes "To put in action,";
+			mes "we need to gather many phalanges.";
+			mes "Ok!!Bring our phalanges in every town on a way back here. ";
+			mes "Alright?Let's go!!";
+			next;
+			mes "[Enjoy]";
+			mes "Each should have one person's phone number.";
+			mes "We must keep it secret before we put in action.";
+			mes "So we must be very careful.";
+			mes "Well...";
+			mes "I know ^0000FFHappymerry^000000's phone number.";
+			next;
+			mes "[Enjoy]";
+			mes "First of all, go look for ^0000FFHappymerry^000000";
+			mes "and tell him about our plan.";
+			mes "On a way back, bring as many phalanges as you can. ";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "Alright,sir!!!";
+			next;
+			mes "[Enjoy]";
+			mes "Oh,and don't forget to bring";
+			mes "5 branch of dead trees!!!";
+			mes "Must bring item to attack town~";
+			mes "hahahaha~~";
+			emotion e_gg;
+			next;
+			mes "[Enjoy]";
+			mes "Get it?!!!!";
+			mes "Let's go punish!!!";
+			mes "We are not being jealous,";
+			mes "It's just not right leading a loose life!";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "Let's punish!!!!!!!!!!!!!!!!!!!!!!!!!!!";
+			set christ_solo05,1;
+			close;
+		case 2:
+			mes "[Enjoy]";
+			mes "If you are not with me, get away~!!";
+			mes "Get out of my sight!!!!";
+			mes "";
+			close;
+		case 3:
+			mes "[Enjoy]";
+			mes "......";
+			specialeffect EF_BLESSING;
+			next;
+			mes "[Enjoy]";
+			mes ".............";
+			specialeffect EF_INCAGIDEX;
+			next;
+			mes "[Enjoy]";
+			mes "........................";
+			specialeffect EF_STEELBODY;
+			next;
+			mes "[Enjoy]";
+			mes "........................";
+			mes "Get lost,you devil!!!!!!";
+			specialeffect EF_BEGINASURA;
+			specialeffect2 EF_HIT2;
+			set Hp,Hp/2;
+			set Hp,Hp/2;
+			close2;
+			warp "prontera",155,230;
+			end;
+		}
+	}
+	else if((christ_solo05 > 0) && (christ_solo05 < 5)){
+		mes "[Enjoy]";
+		mes "Each should have one person's phone number.";
+		mes "We must keep it secret before we put in action.";
+		mes "So we must be very careful.";
+		mes "Well...";
+		mes "I know ^0000FFHappymerry^000000's phone number.";
+		next;
+		mes "[Enjoy]";
+		mes "First of all, go look for ^0000FFHappymerry^000000";
+		mes "and tell him about our plan.";
+		mes "On a way back, bring as many phalanges as you can.";
+		next;
+		mes "[Enjoy]";
+		mes "Oh,and don't forget to bring";
+		mes "5 branch of dead trees!!!";
+		mes "Let's go punish couples!!!";
+		close;
+	}
+	else if (christ_solo05 == 5) {
+		if (countitem(604) > 4){
+			mes "[Enjoy]";
+			mes "Did you do as I told you to do?!!!";
+			mes "Did you bring branch of dead trees?Let me see~~!!";
+			next;
+			mes "[Enjoy]";
+			mes "Fine!!";
+			mes "You are all ready!!!";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "Wait!!";
+			mes "Where's other people??";
+			next;
+			mes "[Enjoy]";
+			mes "What are you talking about?!";
+			mes "They are already here.......";
+			next;
+			mes "[Enjoy]";
+			mes "Can't you see?!";
+			mes "Please~!!!!Are you ok?!!!";
+			donpcevent "Happymerry#happymerry02::OnCommandOn";
+			donpcevent "Christ#christ02::OnCommandOn";
+			donpcevent "Mas#mas02::OnCommandOn";
+			donpcevent "Event#event02::OnCommandOn";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "Oh.. Yup!!!";
+			next;
+			mes "[Enjoy]";
+			mes "Welcome!! Welcome,my phalanges!!!";
+			mes "Being a single is not a sin.";
+			mes "Why do we have to hide ourselves from ";
+			mes "their sight!";
+			mes "I hate couples!!";
+			mes "Poor single!!";
+			next;
+			mes "[Enjoy]";
+			mes "For those of who have friend who just met his/her mate,";
+			mes "or who had to turn his/her back from kissing couples!!";
+			mes "What are you waiting for!!";
+			mes "Why do we have to be the victim!!";
+			mes "";
+			next;
+			mes "[Enjoy]";
+			mes "It's christmas season again!!";
+			mes "";
+			next;
+			mes "[Enjoy]";
+			mes "Are we the soldiers";
+			mes "who have beaten up monsters with our bare hand.";
+			mes "Don't you remember the days?!!We have jumped down from Air ship!!";
+			mes "We are well trained singles!!Haha~!";
+			next;
+			mes "[Enjoy]";
+			mes "We don't have to wipe our tears";
+			mes "looking at party players anymore.";
+			mes "No need to envy!!";
+			mes "This christmas is for singles!! ";
+			mes "Yahoo~";
+			mes "";
+			next;
+			mes "[All]";
+			mes "Christmas for singles!!!";
+			mes "No more envy!!No more sorrow!!No more anger!!!";
+			mes "Christmas for singles!!!";
+			next;
+			mes "-Enjoy takes away branches of dead trees.";
+			mes "-Grabs them tight.-";
+			next;
+			mes "[Enjoy]";
+			mes "Let's punish couples,";
+			mes "those of who leading a loose life!!";
+			mes " ";
+			mes "[All]";
+			mes "Let's punish!!!!!";
+			emotion e_go;
+			emotion e_go,1;
+			donpcevent "Happymerry#happymerry02::OnCommandEmotion";
+			donpcevent "Christ#christ02::OnCommandEmotion";
+			donpcevent "Mas#mas02::OnCommandEmotion";
+			donpcevent "Event#event02::OnCommandEmotion";
+			misceffect 376; //_HITLINE2
+			delitem 604,5; //Branch_of_Dead_Tree
+			set christ_solo05,6;
+			donpcevent "Happymerry#happymerry02::OnCommandOff";
+			donpcevent "Christ#christ02::OnCommandOff";
+			donpcevent "Mas#mas02::OnCommandOff";
+			donpcevent "Event#event02::OnCommandOff";
+			close2;
+			mapannounce "prontera", "Single soldiers "+ strcharinfo(0) +"'s sorrow spread all over the town.",bc_map,0x66FFCC;
+			monster "prontera",155,300,""+ strcharinfo(0) +"'s anguish",1062,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",156,300,""+ strcharinfo(0) +"'s jealousy",1062,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",157,300,""+ strcharinfo(0) +"'s despair",1062,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",158,300,""+ strcharinfo(0) +"'s frustration",1062,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",154,300,""+ strcharinfo(0) +"'s bombing",1062,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",158,299,""+ strcharinfo(0) +"'s grudge",1246,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",157,299,""+ strcharinfo(0) +"'s curse",1246,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",156,299,""+ strcharinfo(0) +"'s anger",1246,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",155,299,""+ strcharinfo(0) +"'s grief",1246,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",154,299,""+ strcharinfo(0) +"'s hatred",1246,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",158,298,""+ strcharinfo(0) +"'s a bitter taste of solo",1245,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",157,298,""+ strcharinfo(0) +"'s couple punisher",1245,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",156,298,""+ strcharinfo(0) +"'s loneliness",1245,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",155,298,""+ strcharinfo(0) +"'s sobbing",1245,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",154,298,""+ strcharinfo(0) +"'s darkness",1245,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",158,297,""+ strcharinfo(0) +"'s depression",1244,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",157,297,""+ strcharinfo(0) +"'s estrangement",1244,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",156,297,""+ strcharinfo(0) +"'s nightmare",1244,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",155,297,""+ strcharinfo(0) +"'s wail",1244,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",154,297,""+ strcharinfo(0) +"'s whisper",1244,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",158,296,""+ strcharinfo(0) +"'s regret",1588,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",157,296,""+ strcharinfo(0) +"'s shadow",1588,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",156,296,""+ strcharinfo(0) +"'s couplebreaker",1588,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",155,296,""+ strcharinfo(0) +"'s sadness",1588,1,"Enjoy#enjoy::OnMyMobDead";
+			monster "prontera",154,296,""+ strcharinfo(0) +"'s symbol of brokenheart",1588,1,"Enjoy#enjoy::OnMyMobDead";
+			donpcevent "Enjoy#enjoy::OnCommandGo";
+			end;
+		}
+		else {
+			mes "[Enjoy]";
+			mes "There's no much time left!!!";
+			mes "No time to hesitate!!";
+			mes "Couples will enjoy their christmas day";
+			mes "so happily.";
+			mes "Are you going to leave them like that!!!!!";
+			mes "Let's go let's go!!";
+			mes "Go get ^0000FF 5 branch of dead tree^000000s!!!";
+			close;
+		}
+	}
+	else {
+		mes "[Enjoy]";
+		mes "Hm.... ";
+		mes "It's no use just blaming oneself!";
+		mes "We lonely fellows can build our own hopeful future.";
+		mes "Let's go!!";
+		mes "Let's go phalanges!!!";
+		next;
+		mes "[Enjoy]";
+		mes "For the day we all get happy~!!";
+		mes "Let's go for it!!!";
+		mes "Cheer up everybody!!!";
+		mes "Let's rock till you get happy~!";
+		mes "";
+		set christ_solo05,0;
+		close;
+	}
+
+OnMyMobDead:
+	end;
+
+OnCommandGo:
+	disablenpc "Enjoy#enjoy";
+	initnpctimer;
+	end;
+
+OnCommandStop:
+	enablenpc "Enjoy#enjoy";
+	killmonster "prontera","Enjoy#enjoy::OnMyMobDead";
+	stopnpctimer;
+	end;
+
+OnTimer3000:
+	mapannounce "prontera", "You must refine by yourself to satisfy!!!!",bc_map,0x66FFCC;
+	end;
+
+OnTimer5000:
+	mapannounce "prontera", "It's a waste to organize party at dungeon!!!",bc_map,0x66FFCC;
+	end;
+
+OnTimer7000:
+	mapannounce "prontera", "There is a NPC flirting me!!!",bc_map,0x66FFCC;
+	end;
+
+OnTimer9000:
+	mapannounce "prontera", "I was always alone from the day I was born!!",bc_map,0x66FFCC;
+	end;
+
+OnTimer11000:
+	mapannounce "prontera", "We dig herbs even on a christmas day!!",bc_map,0x66FFCC;
+	end;
+
+OnTimer13000:
+	mapannounce "prontera", "...We are the insuperable single soldiers!!!",bc_map,0x66FFCC;
+	end;
+
+OnTimer180000:
+	mapannounce "prontera", "Wish every single soldiers have a merry christmas!!",bc_map,0x66FFCC;
+	donpcevent "Enjoy#enjoy::OnCommandStop";
+	end;
+}
+
+prontera,150,286,5	script	Happymerry#happymerry02	869,{
+	end;
+
+OnInit:
+	disablenpc "Happymerry#happymerry02";
+	stopnpctimer;
+	end;
+
+OnCommandOn:
+	initnpctimer;
+	enablenpc "Happymerry#happymerry02";
+OnCommandEmotion:
+	emotion e_go;
+	end;
+
+OnCommandOff:
+	disablenpc "Happymerry#happymerry02";
+	stopnpctimer;
+	end;
+
+OnTimer60000:
+	donpcevent "Happymerry#happymerry02::OnCommandOff";
+	donpcevent "Christ#christ02::OnCommandOff";
+	donpcevent "Mas#mas02::OnCommandOff";
+	donpcevent "Event#event02::OnCommandOff";
+	stopnpctimer;
+	end;
+}
+
+prontera,161,286,4	script	Christ#christ02	875,{
+	end;
+OnInit:
+	disablenpc "Christ#christ02";
+	end;
+
+OnCommandOn:
+	enablenpc "Christ#christ02";
+OnCommandEmotion:
+	emotion e_go;
+	end;
+
+OnCommandOff:
+	disablenpc "Christ#christ02";
+	end;
+}
+
+prontera,161,281,1	script	Mas#mas02	748,{
+	end;
+OnInit:
+	disablenpc "Mas#mas02";
+	end;
+
+OnCommandOn:
+	enablenpc "Mas#mas02";
+OnCommandEmotion:
+	emotion e_go;
+	end;
+
+OnCommandOff:
+	disablenpc "Mas#mas02";
+	end;
+}
+
+prontera,150,281,7	script	Event#event02	881,{
+	end;
+OnInit:
+	disablenpc "Event#event02";
+	end;
+
+OnCommandOn:
+	enablenpc "Event#event02";
+OnCommandEmotion:
+	emotion e_go;
+	end;
+
+OnCommandOff:
+	disablenpc "Event#event02";
+	end;
+}
+
+prontera,188,177,4	script	Happymerry#happymerry	869,{
+	if (christ_solo05==1) {
+		mes "[Happymerry]";
+		mes "Holgren~~!!";
+		mes "I've never expected you betraying me! Don't wanna get refined~!!!";
+		mes "I hate christmas~!";
+		emotion e_sob;
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Are...you...?";
+		next;
+		mes "[Happymerry]";
+		mes "What are you laughing at? huh~!";
+		mes "At least, I never borrowed a hand";
+		mes "to get my equips refined!";
+		mes "I was always brave!!";
+		mes "Blessing? Gloria~~?!";
+		mes "Couples~~duh~!!!!!!";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "You seem to be the right one!!!";
+		mes "Enjoy is waiting for you.";
+		mes "let's go!!!";
+		next;
+		mes "[Happymerry]";
+		mes "...!";
+		mes "The day has come?";
+		mes "He help me last christmas,";
+		mes "when I failed refining my equips.";
+		mes "Oh, holy Enjoy~";
+		mes "";
+		next;
+		mes "[Happymerry]";
+		mes "Alright!I've been waiting for a year!!";
+		mes "I'm ready to mess up christmas day~!!";
+		mes "So,where is Enjoy?";
+		mes "Where is he?!";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "He's waiting for you!";
+		mes "Go ahead~";
+		mes "I'll follow you after contacting others.";
+		mes "";
+		next;
+		mes "[Happymerry]";
+		mes "Alright!";
+		mes "I was supposed to call ^0000FFChrist^000000!";
+		mes "Call him for me!";
+		mes "I'll go ahead with my bags packed up.";
+		mes "See ya!";
+		set christ_solo05,2;
+		close;
+	}
+	else if (christ_solo05 > 1) {
+		mes "[Happymerry]";
+		mes "Hm...There's more things to pack up than I thought.";
+		mes "Well,it's been a year.....";
+		mes "Anyway,";
+		mes "Don't for get to call ^0000FFChrist^000000!";
+		mes "See ya!";
+		close;
+	}
+	else {
+		mes "[Happymerry]";
+		mes "Holgren!!";
+		mes "I've never expected you betraying me! Don't wanna get refined~!!!";
+		mes "I hate christmas~!";
+		emotion e_sob;
+		next;
+		mes "[Happymerry]";
+		mes "What are you laughing at? huh~!";
+		mes "At least, I never borrowed a hand";
+		mes "to get my equips refined!";
+		mes "I was always brave!!";
+		mes "Blessing? Gloria~~?!";
+		mes "Couples~~duh~!!!!!!";
+		close;
+	}
+}
+
+prontera,62,339,3	script	Christ#christ	875,{
+	if (christ_solo05 == 2) {
+		mes "[Christ]";
+		mes "Now~finally!!!";
+		mes "I get to ride Pecopeco~!";
+		mes "Why do need to organize a party with priest?!";
+		mes "I don't need all that.";
+		mes "Only thing I need is this chubby Pecopeco~!";
+		mes "";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Um...";
+		next;
+		mes "[Christ]";
+		mes "Who are you!";
+		mes "Don't ever think to get around my Peco~!";
+		mes "Oh~my sweat Peco~~Weren't you scared? It's ok darling.";
+		mes "Enjoy was all alone lonely from the day he were born~";
+		mes "But me?!! Nope!!";
+		mes "I have my sweat peco with me!!";
+		next;
+		mes "[Christ]";
+		mes "I'm going to held party with my peco.";
+		mes "We'll share christmas cake together and.....";
+		mes "I'm not gonna be lonely~";
+		mes "No I won't!!!";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Actually Enjoy told me...";
+		next;
+		mes "[Christ]";
+		mes "Huh? What did you say?";
+		mes "Enjoy? You know him? Then,you must be the one whom Happymerry sent!?";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Yes~ Happymerry sent me...";
+		next;
+		mes "[Christ]";
+		mes "Finally, the day has come!!";
+		mes "Did you hear it? Peco~";
+		mes "...We have an amazing plan!";
+		mes "This christmas is gonna be fantastic!!";
+		mes "No need to envy couples!!";
+		next;
+		mes "[Christ]";
+		mes "Alright!!";
+		mes "I'll run to Enjoy with my peco~!";
+		mes "Go tell ^0000FFMas^000000";
+		mes "about this!!!";
+		mes "See ya~~!";
+		set christ_solo05,3;
+		close;
+	}
+	else if(christ_solo05 > 2) {
+		mes "[Christ]";
+		mes "Than,see you there!!";
+		mes "I'll go meet Enjoy!";
+		mes "Never forget to tell ^0000FFMas^000000";
+		mes "about this!!!";
+		mes "See ya~~!";
+		close;
+	}
+	else {
+		mes "[Christ]";
+		mes "Now~finally!!!";
+		mes "I get to ride Pecopeco~!";
+		mes "Why do need to organize a party with priest?!";
+		mes "I don't need all that.";
+		mes "Only thing I need is this chubby Pecopeco~!";
+		mes "";
+		next;
+		mes "[Christ]";
+		mes "Who are you!";
+		mes "Don't ever think to get around my Peco~!";
+		mes "Oh~my sweat Peco~~Weren't you scared?It's ok darling.";
+		mes "Enjoy was all alone lonely from the day he were born~";
+		mes "But me?!!Nope!!";
+		mes "I have my sweat peco with me!!";
+		next;
+		mes "[Christ]";
+		mes "I'm going to held party with my peco.";
+		mes "We'll share christmas cake together and.....";
+		mes "I'm not gonna be lonely~";
+		mes "No I won't!!!";
+		close;
+	}
+}
+
+prontera,163,66,7	script	Mas#mas	748,{
+	if(christ_solo05 == 3) {
+		mes "[Mas]";
+		mes "Herds!!!!!How long does it take!";
+		mes "Somebody know the regenerating time of Herb?!!";
+		mes "I'll dig herbs and make potions and sell it to singles!!";
+		mes "Hahahaha!!";
+		next;
+		mes "[Mas]";
+		mes "Ah~~";
+		mes "How come I feel so empty~.";
+		mes "although I have herds fill in a storage. ";
+		mes "No~~!!!!!!";
+		mes "No time to waste~~";
+		mes "Let's dig herbs.......";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Hey~are you ok? Are you Mas?";
+		next;
+		mes "[Mas]";
+		mes "Who...who are you?!!!";
+		mes "Well, it's been so long since I spoke to a stranger.";
+		mes "Hm...";
+		mes "I feel something warm inside my heart....... ";
+		mes "Never mind!! What am I thinking?!!";
+		mes "Get away~I have dig herbs~";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Mas!!";
+		mes "Are you ok?!";
+		mes "Christ sent me.";
+		next;
+		mes "[Mas]";
+		mes "What!!!Already!!";
+		mes "Yeah~right!";
+		mes "I don't need to spend times digging herbs!!";
+		mes "If Enjoy made an order!?!";
+		mes "I'll be there right away~!!!!!";
+		next;
+		mes "[Mas]";
+		mes "...Are going with me?";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "No~~";
+		mes "I have something left to do.";
+		mes "I have to tell others about this.";
+		next;
+		mes "[Mas]";
+		mes "Oh yeah right!!!";
+		mes "Go look for ^0000FFEvent^000000.";
+		mes "Well,bye~.";
+		mes "I'll meet you there!!...";
+		mes "Herbs~?! Couples?! Whatever~~";
+		set christ_solo05,4;
+		close;
+	}
+	else if(christ_solo05 > 3) {
+		mes "[Mas]";
+		mes "If you excuse me, I'll go ahead and meat Enjoy.";
+		mes "And don't forget to tell ^0000FFEvent^000000 about this.";
+		mes "Herbs~couples~~Whatever~~";
+		mes "This christmas is gonna be fantastic!!";
+		mes "Hahahaha~";
+		close;
+	}
+	else {
+		mes "[Mas]";
+		mes "Herds!!!!!How long does it take!";
+		mes "Somebody know the regenerating time of Herb?!!";
+		mes "I'll dig herbs and make potions and sell it to singles!!";
+		mes "Hahahaha!!";
+		next;
+		mes "Ah~~";
+		mes "How come I feel so empty~.";
+		mes "although I have herds fill in a storage. ";
+		mes "No~~!!!!!!";
+		mes "No time to waste~~";
+		mes "Let's dig herbs.......";
+		close;
+	}
+}
+
+prontera,35,209,5	script	Event#event	881,{
+	if(christ_solo05 == 4) {
+		mes "[Event]";
+		mes "........................";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "...Are... you...?";
+		next;
+		mes "[Event]";
+		mes "...I love you too~!!!";
+		emotion e_omg,1;
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "(Oh,my..)";
+		next;
+		mes "[Event]";
+		mes "It's ok, Tinybee. I'm not lonely at all.";
+		mes "I have Ms.Bathory and Ms.Orclady with me.";
+		mes "Hahahaha~~~";
+		mes "";
+		next;
+		mes "-He laughed talking to his right hand.-";
+		mes "";
+		//Emotion "Event#event" ET_KIK
+		emotion e_kis;
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Mas sent me here.";
+		mes "You know about Enjoy's plan, right?";
+		mes "...Are you listening?";
+		next;
+		mes "[Event]";
+		mes "...Did you hear?? Tinybee?";
+		mes "The day has come!!";
+		mes "Hahaha~~~~.";
+		next;
+		mes "[Event]";
+		mes "Wait for me miss Kafra~~~";
+		mes "Don't be so lonely~.";
+		mes "I'll make your christmas unforgettably fantastic.";
+		mes "Let's go Tinybee.";
+		mes "";
+		next;
+		mes "-He kept talking to his right hand-";
+		mes "-and packed his stuff and bowed to Kafra.-";
+		mes "";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Finally!!! Done telling everyone!!";
+		mes "Now I should get my ^0000FFBranch of Dead Tree^000000s packed up";
+		mes "and go punish singles!!!";
+		mes "Hahahaha..";
+		set christ_solo05,5;
+		close;
+	}
+	else if(christ_solo05 > 4) {
+		mes "[Event]";
+		mes "Wait for me miss Kafra~~~";
+		mes "Don't be so lonely~.";
+		mes "I'll make your christmas unforgettably fantastic.";
+		mes "Let's go Tinybee.";
+		next;
+		mes "-He  talked to his right hand-";
+		mes "-and packed his stuff and bowed to Kafra.-";
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Finally!!! Done telling everyone!!";
+		mes "Now I should get my things packed up";
+		mes "and go punish singles!!!";
+		mes "Hahahaha..";
+		close;
+	}
+	else {
+		mes "[Event]";
+		mes "........................";
+		next;
+		mes "[Event]";
+		mes "...I love you too~!!!";
+		emotion e_omg,1;
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "(Oh.my~)";
+		next;
+		mes "[Event]";
+		mes "It's ok Tinybee.I'm not lonely at all.";
+		mes "I have Ms.Bathory and Ms.Orclady with me.";
+		mes "Hahahaha~~~";
+		mes "";
+		next;
+		mes "-He laughed talking to his right hand.-";
+		mes "";
+		emotion e_kis;
+		close;
+	}
+}
+
+// Oholy (Event 3)
+prontera,156,242,0	script	Oholy#pron::OholyDup	79,{
+	if (!christ_carol05) {
+		mes "[Oholy]";
+		mes "Joy to the world!";
+		mes "The Lord has come.";
+		specialeffect EF_GLORIA;
+		next;
+		if (Sex) {
+			mes "[Oholy]";
+			mes "Merry Christmas!";
+			mes "Dear brother, what comes in";
+			mes "your mind when you think of Christmas?";
+			next;
+		}
+		else {
+			mes "[Oholy]";
+			mes "Merry Christmas!";
+			mes "Dear sister, what comes in";
+			mes "your mind when you think of Christmas?";
+			next;
+		}
+		switch(select("Santa Claus:Christmas Gifts:Christmas Carols:Santa Hat:I don't like couples")) {
+		case 1:
+			mes "[Oholy]";
+			mes "Santa Claus!";
+			mes "You still have childish";
+			mes "innocence, kid!!!";
+			mes "Hohoho.";
+			next;
+			mes "[Oholy]";
+			mes "There is a rumor that Santa Claus";
+			mes "in the town where Christmas ";
+			mes "never ends. This is just";
+			mes "between you and me, okay?";
+			next;
+			mes "[Oholy]";
+			mes "The latest headline by Oholy";
+			mes "Isn't it amazing?";
+			emotion e_heh;
+			close;
+		case 2:
+			mes "[Oholy]";
+			mes "Gifts! That's nice!";
+			mes "How exciting it is!!!";
+			mes "You wake up and find";
+			mes "christmas gifts next to your pillow!";
+			next;
+			mes "[Oholy]";
+			mes "Have you heard that";
+			mes "bad santa who makes a suprise";
+			mes "attack in every christmas, has";
+			mes "taken Santa Claus's gifts to";
+			mes "good kids!";
+			next;
+			mes "[Oholy]";
+			mes "So, Santa Claus in Christmas";
+			mes "town has offered a reward for";
+			mes "capturing phony Santa, Antonio.";
+			next;
+			mes "[Oholy]";
+			mes "The latest headline by Oholy";
+			mes "Isn't it amazing?";
+			emotion e_heh;
+			close;
+		case 3:
+			mes "[Oholy]";
+			mes "That's right!";
+			mes "Carol is the essential for";
+			mes "Christmas! When I was";
+			mes "young, my mind used to be";
+			mes "fluttered by carols during";
+			mes "Christmas.";
+			next;
+			mes "[Oholy]";
+			mes "But, in these days, not many";
+			mes "people sing Christmas carols";
+			mes "so it is hard to feel that";
+			mes "Christmas is coming closer";
+			mes " ";
+			next;
+			mes "[Oholy]";
+			mes "Therefore, I decided to wish";
+			mes "a merry christmas to everyone";
+			mes "by singing Christmas carols and";
+			mes "giving gifts to kids from door";
+			mes "to door, but, unfortunately,";
+			mes "wicked devil has torn off my carol music book!!!";
+			next;
+			mes "[Oholy]";
+			mes "I have many houses to visit.";
+			mes "I feel so sad for disappointed";
+			mes "kids who didn't hear the carols.";
+			next;
+			menu "...can I help you?",-;
+			mes "[Oholy]";
+			mes "Good gracious! Are you for real?";
+			mes "Oh? Shee... Can you hear it?";
+			mes "Every kids appreciate your kindness.";
+			emotion e_heh;
+			mes "Don't be afraid. I will not";
+			mes "ask you to make a new christmas carol.";
+			next;
+			mes "[Oholy]";
+			mes "If you have a will,";
+			mes "we got no time to waste.";
+			mes "Let's move on to give hope to kids!";
+			next;
+			mes "[Oholy]";
+			mes "Well, please bring me back";
+			mes "Christmas carol music book, "+ strcharinfo(0) +".";
+			mes "That little devil will be still";
+			mes "in the town because it only happened a few minutes ago.";
+			next;
+			mes "[Oholy]";
+			mes "Please be careful because";
+			mes "you are dealing with devil.";
+			mes "Well then, hope you a good luck!!!";
+			mes " ";
+			emotion e_no1;
+			set christ_carol05,1;
+			close;
+		case 4:
+			mes "[Oholy]";
+			mes "A Santa Hat!!";
+			mes "Did you know that the real";
+			mes "Santa Hat is totally different";
+			mes "from the one that monsters";
+			mes "are wearing?! I heard a rumor";
+			mes "that an anonymous designer";
+			mes "in Lutie, made all of those santa hats.";
+			next;
+			mes "[Oholy]";
+			mes "Also, there is another rumor";
+			mes "about phony Santa, Antonio.";
+			mes "He has been chased by many ";
+			mes "adventurers but never been";
+			mes "caught because of his Santa Costume.";
+			next;
+			mes "[Oholy]";
+			mes "Maybe his hat and clothes have";
+			mes "special functions within...";
+			mes "Maybe that anonymous designer";
+			mes "still lives in Lutie. Why don't";
+			mes "you go visit him and ask to";
+			mes "make you a new Santa Hat?";
+			next;
+			mes "[Oholy]";
+			mes "The latest headline by Oholy";
+			mes "Isn't it amazing?";
+			emotion e_heh;
+			close;
+		case 5:
+			mes "[Oholy]";
+			mes "Oh, dear. I was thinking of";
+			mes "the sa.m..e... Oops, ho..hoho.";
+			mes "Oh well, it's not only me. Many";
+			mes "people think of the same in this Christmas.";
+			next;
+			mes "[Oholy]";
+			mes "I heard a strange rumor that";
+			mes "those people are plotting";
+			mes "something in this Christmas.";
+			mes "...hope it goes well(*murmur*)";
+			next;
+			mes "[Oholy]";
+			mes "The latest headline by Oholy";
+			mes "Isn't it amazing?";
+			emotion e_heh;
+			close;
+		}
+	}
+	else if(christ_carol05 == 1) {
+		mes "[Oholy]";
+		mes "He should not be able to escape";
+		mes "from the town. Please find the";
+		mes "devil and bring me back my";
+		mes "Christmas Carol Music Book.";
+		mes "Punish the wicked devil who is ruining Christmas!!!";
+		close;
+	}
+	else if(christ_carol05 == 2) {
+		if(!checkweight(1201,1)) {
+			mes "^3355FFWait a second!";
+			mes "Right now, you're carrying";
+			mes "too many things with you.";
+			mes "Please come back after";
+			mes "using the Kafra Service";
+			mes "to store some of your items.^000000";
+			close;
+		}
+		set .@now_weight,MaxWeight-Weight;
+		if(.@now_weight < 2000) {
+			mes "^3355FFWait a second!";
+			mes "Right now, you're carrying";
+			mes "too many things with you.";
+			mes "Please come back after";
+			mes "using the Kafra Service";
+			mes "to store some of your items.^000000";
+			close;
+		}
+		if (countitem(1097) > 0) {
+			mes "[Oholy]";
+			mes "Oh, my gracious! ";
+			mes "You have brought me the book!";
+			mes "Didn't the devil trouble you?";
+			mes "I'm glad you have return safely.";
+			next;
+			mes "[Oholy]";
+			mes "In return, I'm going to sing";
+			mes "a carol from the music book.";
+			next;
+			mes "[Oholy]";
+			mes "Hum! Huum!!";
+			mes "~Sleep well, little children,~";
+			mes "~wherever you are;~";
+			mes "~Tomorrow is Christmas~";
+			mes "~beneath every star.~";
+			specialeffect EF_GLORIA;
+			next;
+			mes "-Your mind is overwhelmed by her singing-";
+			mes "-You started humming then,-";
+			mes "-began to sing the next phase-";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "~Soon the snowflackes will fall~";
+			mes "~and tomorrow you'll see~";
+			mes "~Every wish, one and all,~";
+			mes "~waiting under the tree.~";
+			specialeffect2 EF_GLORIA;
+			next;
+			mes "[Oholy]";
+			mes "Oh, my. You have a wonderful";
+			mes "voice!! Alright!!!";
+			mes "I was going to give these";
+			mes "to kids, but, since you found";
+			mes "my music book and sang a carol to me!";
+			next;
+			mes "-She brought a big sack-";
+			mes "-and opened it in front of you-";
+			next;
+			mes "[Oholy]";
+			mes "OK! Don't look inside.";
+			mes "Just put your hands";
+			mes "grab what you want.";
+			next;
+			switch(rand(1,15)) {
+			case 1:
+				mes "[Oholy]";
+				mes "A Cookie Bag!";
+				mes "I wrapped those indivisually.";
+				mes "There are many sweets in them.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 12130,7;//Cookie_Bag
+				close;
+			case 2:
+				mes "[Oholy]";
+				mes "Candies!";
+				mes "These were made by";
+				mes "Chief noun.";
+				mes "Very sweet and delicious.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 529,20;//Candy
+				close;
+			case 3:
+				mes "[Oholy]";
+				mes "Candy Canes!";
+				mes "These were made by";
+				mes "Chief noun.";
+				mes "Very sweet and delicious.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 530,15;//Candy_Striper
+				close;
+			case 4:
+				mes "[Oholy]";
+				mes "A Piece Of Cake!";
+				mes "These were baked by";
+				mes "Chief Acolyte.";
+				mes "Very soft and delicious.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 539,5;//Piece_of_Cake
+				close;
+			case 5:
+				mes "[Oholy]";
+				mes "Cookies!";
+				mes "These were baked by";
+				mes "Chief Acolyte.";
+				mes "Very crispy and delicious.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 538,10;//Well_baked_Cookie
+				close;
+			case 6:
+				mes "[Oholy]";
+				mes "A Spore Doll!";
+				mes "It's made elaborately by";
+				mes "Bishop, Tomas.";
+				mes "Very cute.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 743,1;//Spore_Doll
+				close;
+			case 7:
+				mes "[Oholy]";
+				mes "A Baphomet Doll!";
+				mes "..........?!..........";
+				mes "How did it get in here..?!";
+				mes "Oops, oh well.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 750,1;//Baphomet_Doll
+				close;
+			case 8:
+				mes "[Oholy]";
+				mes "A Osiris Doll!";
+				mes "..........?!..........";
+				mes "How did it get in here..?!";
+				mes "Oops, oh well.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 751,1;//Osiris_Doll
+				close;
+			case 9:
+				mes "[Oholy]";
+				mes "A Rocker Doll!";
+				mes "This was donated by";
+				mes "a knight, Lighten.";
+				mes "Very kind of him.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 752,1;//Grasshopper_Doll
+				close;
+
+			case 10:
+				mes "[Oholy]";
+				mes "A Yoyo Doll!";
+				mes "This was donated by";
+				mes "an assassin, Marzia.";
+				mes "Very kind of him.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 753,1;//Monkey_Doll
+				close;
+			case 11:
+				mes "[Oholy]";
+				mes "A Racoon Doll!";
+				mes "This was donated by";
+				mes "a hunter, Raiden Kurs.";
+				mes "Very kind of him.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 754,1;//Raccoondog_Doll
+				close;
+			case 12:
+				mes "[Oholy]";
+				mes "A Black Cat Doll!";
+				mes "Sister Magareta found the item";
+				mes "from the monster, Loli Ruri.";
+				mes "Very kind of her.";
+				mes "Hope she is doing okay.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 7206,1;//Black_Kitty_Doll
+				close;
+			case 13:
+				mes "[Oholy]";
+				mes "A Hung Doll!";
+				mes "I made this doll.";
+				mes "Isn't it adorable?!";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 7212,1;//Hanging_Doll
+				close;
+			case 14:
+				mes "[Oholy]";
+				mes "A Munak Doll!";
+				mes "That is from some country";
+				mes "across the ocean.";
+				mes "An artisan made this doll";
+				mes "with his passion.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 7277,1;//Munak_Doll
+				close;
+			case 15:
+				mes "[Oholy]";
+				mes "A Santa Hat!";
+				mes "This is only produced";
+				mes "during Christmas season.";
+				mes "It is not a common hat.";
+				mes "Merry Christmas!";
+				emotion e_heh;
+				delitem 1097,1;//Worn_Out_Page
+				set christ_carol05,3;
+				getitem 2236,1;//Santa's_Hat
+				close;
+			}
+		}
+		else {
+			mes "[Oholy]";
+			mes "Welcome back!! You look good.";
+			mes "2 arms and 2 legs, you look great.";
+			mes "But, where is my music book?!";
+			close;
+		}
+	}
+	else {
+		mes "[Oholy]";
+		mes "Thank you very much.";
+		mes "People and even Devils are";
+		mes "all excited on Christmas day,";
+		mes "so nobody knows what would";
+		mes "happen. Will you help me";
+		mes "then, won't you? Please~";
+		next;
+		mes "[Oholy]";
+		mes "Let's think about the neighbors";
+		mes "and do a good deed during Christmas!";
+		set christ_carol05,0;
+		close;
+	}
+}
+
+// Deviruchi functions
+function	script	F_carol_devi	{
+	if (christ_carol05 == 1) {
+		mes "[Deviruchi]";
+		mes "Heyhey, human!!";
+		mes "Don't ya wanna sell your";
+		mes "soul and be bound in a beneficial contract with me?";
+		emotion e_kis;
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Hey, you! Deviruchi!!!";
+		mes "What a brat!!! Gotcha!";
+		next;
+		mes "-You quickly snatched-";
+		mes "-the nape of Deviruchi's neck-";
+		next;
+		switch(rand(1,4)) {
+		case 1:
+			mes "[Deviruchi]";
+			mes "What are you doing!?";
+			mes "Human?";
+			mes "Let go of me...right now!";
+			emotion e_omg;
+			emotion e_omg,1;
+			next;
+			mes "-Deviruchi quickly ran away-";
+			mes "-^4d4dffWhere Deviruchi is gone,-";
+			mes "-there is a worn out paper.^000000-";
+			mes "-Let's read the paper.-";
+			enablenpc getarg(1);
+			disablenpc getarg(0);
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "Rudolph... If... Foggy...";
+			mes "Sledge... Reindeer...";
+			mes "Hmm, I think I got what I need.";
+			mes "Let's go back to Ms.Oholy.";
+			set christ_carol05,2;
+			getitem 1097,1; //Worn_Out_Page
+			close;
+		case 2:
+			mes "[Deviruchi]";
+			mes "What are you doing!?";
+			mes "Human?";
+			mes "Let go of me...right now!";
+			emotion e_omg;
+			emotion e_omg,1;
+			next;
+			mes "-Deviruchi ran away quickly-";
+			mes "-and mumbled something.-";
+			enablenpc getarg(1);
+			disablenpc getarg(0);
+			next;
+			mes "-You are now cursed!!!-";
+			sc_start SC_Curse,5000,0;
+			emotion e_omg,1;
+			close;
+		case 3:
+			mes "[Deviruchi]";
+			mes "What are you doing!?";
+			mes "Human?";
+			mes "Let go of me...right now!";
+			emotion e_omg;
+			emotion e_omg,1;
+			next;
+			mes "-Deviruchi ran away quickly-";
+			mes "-and mumbled something.-";
+			enablenpc getarg(1);
+			disablenpc getarg(0);
+			next;
+			mes "-You are blinded!!!-";
+			sc_start SC_Blind,5000,0;
+			emotion e_omg,1;
+			close;
+		case 4:
+			mes "[Deviruchi]";
+			mes "What are you doing!?";
+			mes "Human?";
+			mes "Let go of me...right now!";
+			emotion e_omg;
+			emotion e_omg,1;
+			next;
+			mes "-Deviruchi ran away quickly-";
+			mes "-and mumbled something.-";
+			enablenpc getarg(1);
+			disablenpc getarg(0);
+			next;
+			mes "-You are poisoned!!!-";
+			sc_start SC_Poison,5000,0;
+			emotion e_omg,1;
+			close;
+		}
+	}
+	else {
+		mes "[Deviruchi]";
+		mes "Heyhey, human!!";
+		mes "Don't ya wanna sell your";
+		mes "soul and be bound in a beneficial contract with me?";
+		emotion e_omg;
+		next;
+		mes "["+ strcharinfo(0) +"]";
+		mes "Hey, you! Deviruchi!!!";
+		mes "What a brat!!! Gotcha!";
+		next;
+		mes "-You quickly snatched-";
+		mes "-the nape of Deviruchi's neck-";
+		next;
+		mes "[Deviruchi]";
+		mes "What are you doing!?";
+		mes "Human?";
+		mes "Let go of me...right now!";
+		emotion e_omg;
+		emotion e_omg,1;
+		next;
+		mes "-Deviruchi ran away quickly-";
+		mes "-and mumbled something.-";
+		mes "-Your body is suddenly floating.-";
+		close2;
+		warp getarg(2),getarg(3),getarg(4);
+		end;
+	}
+}
+
+function	script	F_carol_devi2	{
+	mes "[Deviruchi]";
+	mes "Heyhey, human!!";
+	mes "Don't ya wanna sell your";
+	mes "soul and be bound in a beneficial contract with me?";
+	emotion e_omg;
+	next;
+	mes "["+ strcharinfo(0) +"]";
+	mes "Hey, you! Deviruchi!!!";
+	mes "What a brat!!! Gotcha!";
+	next;
+	mes "-You quickly snatched-";
+	mes "-the nape of Deviruchi's neck-";
+	next;
+	mes "[Deviruchi]";
+	mes "What are you doing!?";
+	mes "Human?";
+	mes "Let go of me...right now!";
+	emotion e_omg;
+	emotion e_omg,1;
+	next;
+	mes "-Deviruchi ran away quickly-";
+	mes "-and mumbled something.-";
+	mes "-Your body is suddenly floating.-";
+	close2;
+	warp getarg(0),getarg(1),getarg(2);
+	end;
+}
+
+prontera,94,297,3	script	Deviruchi#pron_01	738,3,3,{
+	callfunc("F_carol_devi2","prontera",155,230);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#pron_01","Deviruchi#pron_02","prontera",155,230);
+	end;
+}
+
+prontera,205,242,3	script	Deviruchi#pron_02	738,3,3,{
+	callfunc("F_carol_devi2","prontera",155,230);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#pron_02","Deviruchi#pron_03","prontera",155,230);
+	end;
+}
+
+prontera,126,118,3	script	Deviruchi#pron_03	738,3,3,{
+	callfunc("F_carol_devi2","prontera",155,230);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#pron_03","Deviruchi#pron_01","prontera",155,230);
+	end;
+}
+
+// Payon
+payon,165,153,3	duplicate(OholyDup)	Oholy#payon	79
+payon,142,203,3	script	Deviruchi#payon_01	738,3,3,{
+	callfunc("F_carol_devi2","payon",166,60);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#payon_01","Deviruchi#payon_02","payon",166,60);
+	end;
+}
+
+payon,248,239,3	script	Deviruchi#payon_02	738,3,3,{
+	callfunc("F_carol_devi2","payon",166,60);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#payon_02","Deviruchi#payon_03","payon",166,60);
+	end;
+}
+
+payon,140,56,3	script	Deviruchi#payon_03	738,3,3,{
+	callfunc("F_carol_devi2","payon",166,60);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#payon_03","Deviruchi#payon_01","payon",166,60);
+	end;
+}
+
+morocc,161,85,0	duplicate(OholyDup)	Oholy#morocc	79
+morocc,52,134,3	script	Deviruchi#morocc_01	738,3,3,{
+	callfunc("F_carol_devi2","morocc",160,51);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#morocc_01","Deviruchi#morocc_02","morocc",160,51);
+	end;
+}
+
+morocc,210,264,3	script	Deviruchi#morocc_02	738,3,3,{
+	callfunc("F_carol_devi2","morocc",160,51);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#morocc_02","Deviruchi#morocc_03","morocc",160,51);
+	end;
+}
+
+morocc,223,74,3	script	Deviruchi#morocc_03	738,3,3,{
+	callfunc("F_carol_devi2","morocc",160,51);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#morocc_03","Deviruchi#morocc_01","morocc",160,51);
+	end;
+}
+
+// Geffen
+geffen,120,188,0	duplicate(OholyDup)	Oholy#geffen	79
+geffen,173,163,3	script	Deviruchi#geffen_01	738,3,3,{
+	callfunc("F_carol_devi2","geffen",120,34);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#geffen_01","Deviruchi#geffen_02","geffen",120,34);
+	end;
+}
+
+geffen,49,95,3	script	Deviruchi#geffen_02	738,3,3,{
+	callfunc("F_carol_devi2","geffen",120,34);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#geffen_02","Deviruchi#geffen_03","geffen",120,34);
+	end;
+}
+
+geffen,111,101,3	script	Deviruchi#geffen_03	738,3,3,{
+	callfunc("F_carol_devi2","geffen",120,34);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#geffen_03","Deviruchi#geffen_01","geffen",120,34);
+	end;
+}
+
+// Alberta
+alberta,54,237,0	duplicate(OholyDup)	Oholy#alberta	79
+alberta,97,86,3	script	Deviruchi#alberta_01	738,3,3,{
+	callfunc("F_carol_devi2","alberta",28,235);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#alberta_01","Deviruchi#alberta_02","alberta",28,235);
+	end;
+}
+
+alberta,180,48,3	script	Deviruchi#alberta_02	738,3,3,{
+	callfunc("F_carol_devi2","alberta",28,235);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#alberta_02","Deviruchi#alberta_03","alberta",28,235);
+	end;
+}
+
+alberta,54,132,3	script	Deviruchi#alberta_03	738,3,3,{
+	callfunc("F_carol_devi2","alberta",28,235);
+	end;
+
+OnTouch:
+	callfunc("F_carol_devi","Deviruchi#alberta_03","Deviruchi#alberta_01","alberta",28,235);
+	end;
+}