xmas,147,109,4	script	Dark Lord 	737,{
mes "[^FF0000The ^00FF00Dark ^0000FFLord^000000]";

switch( @Introduction ){
	Case 0:
		mes "Human measly, one skill, killed you are.";
		next;
		misceffect 72;
		mes "[^FF0000The ^00FF00Dark ^0000FFLord^000000]";
		mes "I want to make friends, Alas here.";
		next;
		mes "[^FF0000The ^00FF00Dark ^0000FFLord^000000]";
		mes "I just want to say Ho Ho Ho.. Merry Christmas!";
		break;
	Case 1:
		mes "So now you're saying..";
		mes ""+strcharinfo(0)+" should I slash this guy up?";
		next;
		mes "[^FF0000The ^00FF00Dark ^0000FFLord^000000]";
		mes "Please Santa needs your help! :(";
		break;
	Case 2:
		mes "Aye, I'm deeply sorry for the troubles but can you please find Santa in the second level of the Clock tower";
		next;
		mes "[^FF0000The ^00FF00Dark ^0000FFLord^000000]";
		mes "He's in a catatonic state but I'm pretty sure he's hiding up somewhere northwest(Thanks to MaiaWalker)";
		break;
	default:
	Case 3:
		mes "Here here comes, Christmas Christmas.";
		set #Started,atoi( gettimestr( "%Y%m%d", 9 ) );
		break;
}
set @Introduction,@Introduction + 1;
close;

}


c_tower2,36,274,0	script	#xmsevent	111,2,2,{
OnTouch:
	if( #Started != atoi( gettimestr( "%Y%m%d", 9 ) ) ){
		mes "[---------]";
		mes "Bagged and tagged.";
		next;
		percentheal -70,-70;
	}else{
		mes "[Santa]";
		mes "Come on, you little runt *puffs smoke*";
		next;
		switch( rand(3) ){
			Case 0:
				mes "*You grab the nearest block of metal and pound Santa's head*";
				break;
			Case 1:
				mes "*He stings you with a grin, You kick his balls";
				percentheal -30,-30;
				break;
			Case 2:
				mes "*Blindsided, You get knocked out again";
				percentheal -70,-70;
				break;
			default:
				mes "*You here jingle bells*";
				break;
		}
	}
warp "1@mist",61,282;
close;
}


1@mist,65,289,4	script	Santa#vnc_xmas	718,{

mes "[Santa]";
if( #Started != atoi( gettimestr( "%Y%m%d", 9 ) ) ){
	mes "What are you doing here ? ";
}else{
	mes "I shall summon different monsters";
	next;
	mes "[Santa]";
	mes "Let's just say they wanted some 'action'";
	next;
	mes "[Santa]";
	mes "Let's start, when I stop spawning";
	close2;
	killmonsterall "1@mist","All";
	monster "1@mist",61,283,"Santa's Monsters",@monster,.xmas_day,strnpcinfo(0)+"::OnMyMobDead";
	end;
}
close;

OnMyMobDead:
mapannounce "Gimme some milk, Gimme some milk I gotta see "+strcharinfo(0)+"",bc_map;
if( !mobcount( "1@mist",strnpcinfo(0)+"::OnMyMobDead" ) ){
	getexp 74848224,700000;
}
end;

OnInit:
OnClock0000:
if( .xmas_day < 12 )
	set .xmas_day,.xmas_day + 1;
end;
}