6 files changed, 2049 insertions, 2049 deletions

diff --git a/npc/battleground/bg_kvm01.txt b/npc/battleground/bg_kvm01.txt
index 4f7f21eea..efc5c12fb 100644
--- a/npc/battleground/bg_kvm01.txt
+++ b/npc/battleground/bg_kvm01.txt
@@ -1,391 +1,391 @@
-// ==============================================================================

-// BattleGround System - KvM 80~99

-// ==============================================================================

-

-// Registration NPC's

-// *********************************************************************

-

-bat_room,253,227,4	script	Registration::KvM01R_Guillaume	418,{ // KvM Guillaume

-	end;

-

-OnInit:

-	waitingroom "Battle Station 5 Players",5,"KvM01_BG::OnGuillaumeJoin",1;

-	end;

-	

-OnEnterBG:

-	set $@KvM01BG_id1, waitingroom2bg("bat_c01",53,128,"KvM01_BG::OnGuillaumeQuit","KvM01_BG::OnGuillaumeDie");

-	end;

-}

-

-bat_room,253,204,0	script	Registration::KvM01R_Croix	414,{ // KvM Croix

-	end;

-

-OnInit:

-	waitingroom "Battle Station 5 Players",5,"KvM01_BG::OnCroixJoin",1;

-	end;

-

-OnEnterBG:

-	set $@KvM01BG_id2, waitingroom2bg("bat_c01",146,55,"KvM01_BG::OnCroixQuit","KvM01_BG::OnCroixDie");

-	end;

-}

-

-// Light Effects

-// *********************************************************************

-

-bat_c01,54,123,0	script	#bat_c01a	111,{

-	end;

-

-OnKvM01LightA: misceffect 54; end;

-OnKvM01LightB: misceffect 55; end;

-OnKvM01LightC: misceffect 56; end;

-}

-

-bat_c01,56,125,0	duplicate(#bat_c01a)	#bat_c01b	111

-bat_c01,58,127,0	duplicate(#bat_c01a)	#bat_c01c	111

-bat_c01,141,56,0	duplicate(#bat_c01a)	#bat_c01d	111

-bat_c01,143,58,0	duplicate(#bat_c01a)	#bat_c01e	111

-bat_c01,145,60,0	duplicate(#bat_c01a)	#bat_c01f	111

-

-// Battleground Engine

-// *********************************************************************

-

--	script	KvM01_BG	-1,{

-	end;

-

-OnInit:

-	setwall "bat_c01",54,122,6,7,0,"batc01wall_a";

-	setwall "bat_c01",55,122,5,7,0,"batc01wall_b";

-	setwall "bat_c01",140,56,6,7,0,"batc01wall_c";

-	setwall "bat_c01",140,57,5,7,0,"batc01wall_d";

-	disablenpc "TherapistKvM01a";

-	disablenpc "TherapistKvM01b";

-	disablenpc "VintenarKvM01a";

-	disablenpc "VintenarKvM01b";

-	end;

-

-OnGuillaumeJoin:

-OnCroixJoin:

-	donpcevent "KvM01_BG::OnReadyCheck";

-	end;

-

-OnGuillaumeQuit:

-	set BG_Delay_Tick, gettimetick(2) + 1200;

-OnGuillaumeDie:

-	if( $@KvM01BG == 2 )

-	{

-		set .Guillaume_Count, .Guillaume_Count - 1;

-		set .Croix_Score, .Croix_Score + 1;

-		bg_updatescore "bat_c01",.Guillaume_Score,.Croix_Score;

-		if( .Guillaume_Count < 1 ) donpcevent "KvM01_BG::OnCroixWin";

-	}

-	end;

-

-OnCroixQuit:

-	set BG_Delay_Tick, gettimetick(2) + 1200;

-OnCroixDie:

-	if( $@KvM01BG == 2 )

-	{

-		set .Croix_Count, .Croix_Count - 1;

-		set .Guillaume_Score, .Guillaume_Score + 1;

-		bg_updatescore "bat_c01",.Guillaume_Score,.Croix_Score;

-		if( .Croix_Count < 1 ) donpcevent "KvM01_BG::OnGuillaumeWin";

-	}

-	end;

-

-OnReadyCheck:

-	if( $@KvM01BG )

-		end;

-	set .@Guillaume, getwaitingroomstate(0,"KvM01R_Guillaume");

-	set .@Croix, getwaitingroomstate(0,"KvM01R_Croix");

-

-	if( .@Guillaume < 5 || .@Croix < 5 )

-	{

-		if( .@Guillaume > 3 && .@Croix > 3 && !agitcheck() && $@KvM_Flood < gettimetick(2) )

-		{

-			announce "Battleground -- Kreiger Von Midgard [80-99] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",0,0x696969;

-			set $@KvM_Flood, gettimetick(2) + 15;

-		}

-		else

-			mapannounce "bat_room","Battleground -- Kreiger Von Midgard [80-99] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",1,0x696969;

-		end;

-	}

-

-	set $@KvM01BG, 1; // Starting

-	donpcevent "KvM01R_Croix::OnEnterBG";

-	donpcevent "KvM01R_Guillaume::OnEnterBG";

-	donpcevent "KvM01_BG::OnStart";

-	end;

-

-OnStart:

-	announce "Battleground -- Kreiger Von Midgard [80-99] has started!",0,0x696969;

-	enablenpc "TherapistKvM01a";

-	enablenpc "TherapistKvM01b";

-	disablenpc "VintenarKvM01a";

-	disablenpc "VintenarKvM01b";

-	set $@KvM01BG_Victory, 0;

-	sleep 2000;

-	// Warp Teams

-	bg_warp $@KvM01BG_id1,"bat_c01",53,128;

-	bg_warp $@KvM01BG_id2,"bat_c01",146,55;

-	// ScoreBoard

-	set .Guillaume_Score, 0;

-	set .Croix_Score, 0;

-	initnpctimer;

-	end;

-

-OnTimer5000:

-	areapercentheal "bat_c01",50,123,58,131,100,100;

-	areapercentheal "bat_c01",141,52,149,60,100,100;

-	mapannounce "bat_c01","The Battle will start in 25 seconds!!",1,0x696969;

-	end;

-

-OnTimer26000:

-	mapannounce "bat_c01","The Battle will start in 4 seconds!!",1,0x696969;

-	end;

-

-OnTimer27000:

-	donpcevent "::OnKvM01LightA";

-	end;

-

-OnTimer28000:

-	donpcevent "::OnKvM01LightB";

-	end;

-	

-OnTimer29000:

-	donpcevent "::OnKvM01LightC";

-	end;

-

-OnTimer30000:

-	// Team Members

-	set .Guillaume_Count, bg_get_data($@KvM01BG_id1, 0);

-	set .Croix_Count, bg_get_data($@KvM01BG_id2, 0);

-	if( .Guillaume_Count < 5 || .Croix_Count < 5 )

-	{

-		set $@KvM01BG_Victory, 3;

-		set $@KvM01BG, 3;

-		mapannounce "bat_c01","There are not enough players to start the battle",1,0x696969;

-		stopnpctimer;

-		sleep 2000;

-		donpcevent "KvM01_BG::OnStop";

-		end;

-	}

-

-	set $@KvM01BG, 2; // Playing

-	areapercentheal "bat_c01",50,123,58,131,100,100;

-	bg_warp $@KvM01BG_id1,"bat_c01",62,119;

-	areapercentheal "bat_c01",141,52,149,60,100,100;

-	bg_warp $@KvM01BG_id2,"bat_c01",137,64;

-	end;

-

-OnTimer32000:

-	mapannounce "bat_c01","The Battle of Kreiger Von Midgard has begun!!",1,0x696969;

-	end;

-

-OnTimer300000:

-	mapannounce "bat_c01","The Battle will ends in 30 seconds!!",1,0x696969;

-	end;

-

-OnTimer330000:

-	if( .Croix_Count > .Guillaume_Count )

-		donpcevent "KvM01_BG::OnCroixWin";

-	else if( .Croix_Count < .Guillaume_Count )

-		donpcevent "KvM01_BG::OnGuillaumeWin";

-	else

-	{ // Draw Game

-		set $@KvM01BG, 3;

-		set $@KvM01BG_Victory, 3;

-

-		stopnpctimer;

-		sleep 2000;

-		mapannounce "bat_c01","The time is out! This is a Tie...",1,0x696969;

-		donpcevent "KvM01_BG::OnStop";

-	}

-	end;

-

-OnGuillaumeWin:

-	set $@KvM01BG, 3;

-	set $@KvM01BG_Victory, 1;

-	

-	stopnpctimer;

-	sleep 2000;

-	mapannounce "bat_c01","The Guillaume Army has won the Battle of Kreiger Von Midgard",1,0x0000FF;

-	donpcevent "KvM01_BG::OnStop";

-	end;

-

-OnCroixWin:

-	set $@KvM01BG, 3;

-	set $@KvM01BG_Victory, 2;

-

-	stopnpctimer;

-	sleep 2000;

-	mapannounce "bat_c01","The Croix Army has won the Battle of Kreiger Von Midgard",1,0xFF0000;

-	donpcevent "KvM01_BG::OnStop";

-	end;

-

-OnStop:

-	disablenpc "TherapistKvM01a";

-	disablenpc "TherapistKvM01b";

-	enablenpc "VintenarKvM01a";

-	enablenpc "VintenarKvM01b";

-	// Warp Teams

-	bg_warp $@KvM01BG_id1,"bat_c01",53,128;

-	bg_warp $@KvM01BG_id2,"bat_c01",146,55;

-	donpcevent "KvM01_BG_Out::OnBegin";

-	end;

-

-OnReset:

-	stopnpctimer;

-	stopnpctimer "KvM01_BG_Out";

-	set .Croix_Count, 0;

-	set .Guillaume_Count, 0;

-	set .Croix_Score, 0;

-	set .Guillaume_Score, 0;

-	set $@KvM01BG_Victory, 0;

-	if( $@KvM01BG_id1 ) { bg_destroy $@KvM01BG_id1; set $@KvM01BG_id1, 0; }

-	if( $@KvM01BG_id2 ) { bg_destroy $@KvM01BG_id2; set $@KvM01BG_id2, 0; }

-	disablenpc "TherapistKvM01a";

-	disablenpc "TherapistKvM01b";

-	disablenpc "VintenarKvM01a";

-	disablenpc "VintenarKvM01b";

-	sleep 1000;

-	mapwarp "bat_c01","bat_room",155,150;

-	sleep 2000;

-	maprespawnguildid "bat_c01",0,3; // Just in case someone else

-	bg_updatescore "bat_c01",0,0;

-	sleep 2000;

-	set $@KvM01BG, 0;

-	donpcevent "KvM01_BG::OnReadyCheck"; // Maybe a game is ready to start

-	end;

-}

-

--	script	KvM01_BG_Out	-1,{

-	end;

-

-OnBegin:

-	initnpctimer;

-	end;

-

-OnTimer3000:

-	mapannounce "bat_c01","Battle of Kreiger Von Midgard will close in 1 minute!",1,0x696969;

-	end;

-OnTimer30000:

-	mapannounce "bat_c01","Battle of Kreiger Von Midgard will close in 30 seconds!",1,0x696969;

-	end;

-OnTimer50000:

-	mapannounce "bat_c01","Battle of Kreiger Von Midgard will close in 10 seconds!",1,0x696969;

-	end;

-OnTimer60000:

-	donpcevent "KvM01_BG::OnReset";

-	end;

-}

-

-// Battleground Therapist

-// *********************************************************************

-

-bat_c01,51,130,5	script	Therapist in battle::TherapistKvM01a	95,{

-	mes "[Therapist in battle]";

-	mes "Just close your eyes, and take a deep breathe.";

-	mes "You can be free from pain.";

-	specialeffect2 312;

-	close;

-}

-

-bat_c01,148,53,1	script	Therapist in battle::TherapistKvM01b	95,{

-	mes "[Therapist in battle]";

-	mes "Just close your eyes, and take a deep breathe.";

-	mes "You can be free from pain.";

-	specialeffect2 312;

-	close;

-}

-

-// Battleground rewards

-// *********************************************************************

-

-bat_c01,51,130,5	script	Guillaume Vintenar::VintenarKvM01a	419,{

-	if( $@KvM01BG_Victory )

-	{

-		if( $@KvM01BG_Victory == 3 )

-		{

-			setquest 6025;

-			bg_leave;

-			warp "bat_room",155,150;

-			end;

-		}

-		else if( $@KvM01BG_Victory == Bat_Team )

-		{ // Victory

-			set .@Reward, 5;

-			mes "[Swandery]";

-			mes "Blessed Guillaume!!";

-			mes "Let's enjoy our glorious victory!";

-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";

-			close2;

-		}

-		else

-		{ // 

-			set .@Reward, 1;

-			mes "[Swandery]";

-			mes "You lost, but you're dedicated to this battle.";

-			mes "This is a reward for your great dedication by Guillaume Marollo!";

-			mes "Just take this defeat a lesson, and later you would definitely learn.";

-			close2;

-		}

-

-		setquest 6025;

-		getitem 7773, .@Reward;

-		bg_leave;

-		warp "bat_room",155,150;

-		end;

-	}

-	end;

-}

-

-bat_c01,148,53,1	script	Croix Vintenar::VintenarKvM01b	415,{

-	if( $@KvM01BG_Victory )

-	{

-		if( $@KvM01BG_Victory == 3 )

-		{

-			setquest 6025;

-			bg_leave;

-			warp "bat_room",155,150;

-			end;

-		}

-		else if( $@KvM01BG_Victory == Bat_Team )

-		{ // Victory

-			set .@Reward, 5;

-			mes "[Swandery]";

-			mes "Blessed Croax!!";

-			mes "Let's enjoy our glorious victory!";

-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";

-			close2;

-		}

-		else

-		{ // 

-			set .@Reward, 1;

-			mes "[Swandery]";

-			mes "Oh, " + strcharinfo(0) + ". Don't be sad.";

-			mes "Even though we didn't win, we did our best.";

-			mes "This is a Royal gift from Croix, and please don't forget this battle. We can win the next.";

-			close2;

-		}

-

-		setquest 6025;

-		getitem 7773, .@Reward;

-		bg_leave;

-		warp "bat_room",155,150;

-		end;

-	}

-	end;

-}

-

-// MapFlags

-// *********************************************************************

-

-bat_c01	mapflag	battleground	2

-bat_c01	mapflag	nomemo

-bat_c01	mapflag	nosave	SavePoint

-bat_c01	mapflag	noteleport

-bat_c01	mapflag	nowarp

-bat_c01	mapflag	nowarpto

-bat_c01	mapflag	noreturn

-bat_c01	mapflag	nobranch

-bat_c01	mapflag	nopenalty

+// ==============================================================================
+// BattleGround System - KvM 80~99
+// ==============================================================================
+
+// Registration NPC's
+// *********************************************************************
+
+bat_room,253,227,4	script	Registration::KvM01R_Guillaume	418,{ // KvM Guillaume
+	end;
+
+OnInit:
+	waitingroom "Battle Station 5 Players",5,"KvM01_BG::OnGuillaumeJoin",1;
+	end;
+	
+OnEnterBG:
+	set $@KvM01BG_id1, waitingroom2bg("bat_c01",53,128,"KvM01_BG::OnGuillaumeQuit","KvM01_BG::OnGuillaumeDie");
+	end;
+}
+
+bat_room,253,204,0	script	Registration::KvM01R_Croix	414,{ // KvM Croix
+	end;
+
+OnInit:
+	waitingroom "Battle Station 5 Players",5,"KvM01_BG::OnCroixJoin",1;
+	end;
+
+OnEnterBG:
+	set $@KvM01BG_id2, waitingroom2bg("bat_c01",146,55,"KvM01_BG::OnCroixQuit","KvM01_BG::OnCroixDie");
+	end;
+}
+
+// Light Effects
+// *********************************************************************
+
+bat_c01,54,123,0	script	#bat_c01a	111,{
+	end;
+
+OnKvM01LightA: misceffect 54; end;
+OnKvM01LightB: misceffect 55; end;
+OnKvM01LightC: misceffect 56; end;
+}
+
+bat_c01,56,125,0	duplicate(#bat_c01a)	#bat_c01b	111
+bat_c01,58,127,0	duplicate(#bat_c01a)	#bat_c01c	111
+bat_c01,141,56,0	duplicate(#bat_c01a)	#bat_c01d	111
+bat_c01,143,58,0	duplicate(#bat_c01a)	#bat_c01e	111
+bat_c01,145,60,0	duplicate(#bat_c01a)	#bat_c01f	111
+
+// Battleground Engine
+// *********************************************************************
+
+-	script	KvM01_BG	-1,{
+	end;
+
+OnInit:
+	setwall "bat_c01",54,122,6,7,0,"batc01wall_a";
+	setwall "bat_c01",55,122,5,7,0,"batc01wall_b";
+	setwall "bat_c01",140,56,6,7,0,"batc01wall_c";
+	setwall "bat_c01",140,57,5,7,0,"batc01wall_d";
+	disablenpc "TherapistKvM01a";
+	disablenpc "TherapistKvM01b";
+	disablenpc "VintenarKvM01a";
+	disablenpc "VintenarKvM01b";
+	end;
+
+OnGuillaumeJoin:
+OnCroixJoin:
+	donpcevent "KvM01_BG::OnReadyCheck";
+	end;
+
+OnGuillaumeQuit:
+	set BG_Delay_Tick, gettimetick(2) + 1200;
+OnGuillaumeDie:
+	if( $@KvM01BG == 2 )
+	{
+		set .Guillaume_Count, .Guillaume_Count - 1;
+		set .Croix_Score, .Croix_Score + 1;
+		bg_updatescore "bat_c01",.Guillaume_Score,.Croix_Score;
+		if( .Guillaume_Count < 1 ) donpcevent "KvM01_BG::OnCroixWin";
+	}
+	end;
+
+OnCroixQuit:
+	set BG_Delay_Tick, gettimetick(2) + 1200;
+OnCroixDie:
+	if( $@KvM01BG == 2 )
+	{
+		set .Croix_Count, .Croix_Count - 1;
+		set .Guillaume_Score, .Guillaume_Score + 1;
+		bg_updatescore "bat_c01",.Guillaume_Score,.Croix_Score;
+		if( .Croix_Count < 1 ) donpcevent "KvM01_BG::OnGuillaumeWin";
+	}
+	end;
+
+OnReadyCheck:
+	if( $@KvM01BG )
+		end;
+	set .@Guillaume, getwaitingroomstate(0,"KvM01R_Guillaume");
+	set .@Croix, getwaitingroomstate(0,"KvM01R_Croix");
+
+	if( .@Guillaume < 5 || .@Croix < 5 )
+	{
+		if( .@Guillaume > 3 && .@Croix > 3 && !agitcheck() && $@KvM_Flood < gettimetick(2) )
+		{
+			announce "Battleground -- Kreiger Von Midgard [80-99] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",0,0x696969;
+			set $@KvM_Flood, gettimetick(2) + 15;
+		}
+		else
+			mapannounce "bat_room","Battleground -- Kreiger Von Midgard [80-99] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",1,0x696969;
+		end;
+	}
+
+	set $@KvM01BG, 1; // Starting
+	donpcevent "KvM01R_Croix::OnEnterBG";
+	donpcevent "KvM01R_Guillaume::OnEnterBG";
+	donpcevent "KvM01_BG::OnStart";
+	end;
+
+OnStart:
+	announce "Battleground -- Kreiger Von Midgard [80-99] has started!",0,0x696969;
+	enablenpc "TherapistKvM01a";
+	enablenpc "TherapistKvM01b";
+	disablenpc "VintenarKvM01a";
+	disablenpc "VintenarKvM01b";
+	set $@KvM01BG_Victory, 0;
+	sleep 2000;
+	// Warp Teams
+	bg_warp $@KvM01BG_id1,"bat_c01",53,128;
+	bg_warp $@KvM01BG_id2,"bat_c01",146,55;
+	// ScoreBoard
+	set .Guillaume_Score, 0;
+	set .Croix_Score, 0;
+	initnpctimer;
+	end;
+
+OnTimer5000:
+	areapercentheal "bat_c01",50,123,58,131,100,100;
+	areapercentheal "bat_c01",141,52,149,60,100,100;
+	mapannounce "bat_c01","The Battle will start in 25 seconds!!",1,0x696969;
+	end;
+
+OnTimer26000:
+	mapannounce "bat_c01","The Battle will start in 4 seconds!!",1,0x696969;
+	end;
+
+OnTimer27000:
+	donpcevent "::OnKvM01LightA";
+	end;
+
+OnTimer28000:
+	donpcevent "::OnKvM01LightB";
+	end;
+	
+OnTimer29000:
+	donpcevent "::OnKvM01LightC";
+	end;
+
+OnTimer30000:
+	// Team Members
+	set .Guillaume_Count, bg_get_data($@KvM01BG_id1, 0);
+	set .Croix_Count, bg_get_data($@KvM01BG_id2, 0);
+	if( .Guillaume_Count < 5 || .Croix_Count < 5 )
+	{
+		set $@KvM01BG_Victory, 3;
+		set $@KvM01BG, 3;
+		mapannounce "bat_c01","There are not enough players to start the battle",1,0x696969;
+		stopnpctimer;
+		sleep 2000;
+		donpcevent "KvM01_BG::OnStop";
+		end;
+	}
+
+	set $@KvM01BG, 2; // Playing
+	areapercentheal "bat_c01",50,123,58,131,100,100;
+	bg_warp $@KvM01BG_id1,"bat_c01",62,119;
+	areapercentheal "bat_c01",141,52,149,60,100,100;
+	bg_warp $@KvM01BG_id2,"bat_c01",137,64;
+	end;
+
+OnTimer32000:
+	mapannounce "bat_c01","The Battle of Kreiger Von Midgard has begun!!",1,0x696969;
+	end;
+
+OnTimer300000:
+	mapannounce "bat_c01","The Battle will ends in 30 seconds!!",1,0x696969;
+	end;
+
+OnTimer330000:
+	if( .Croix_Count > .Guillaume_Count )
+		donpcevent "KvM01_BG::OnCroixWin";
+	else if( .Croix_Count < .Guillaume_Count )
+		donpcevent "KvM01_BG::OnGuillaumeWin";
+	else
+	{ // Draw Game
+		set $@KvM01BG, 3;
+		set $@KvM01BG_Victory, 3;
+
+		stopnpctimer;
+		sleep 2000;
+		mapannounce "bat_c01","The time is out! This is a Tie...",1,0x696969;
+		donpcevent "KvM01_BG::OnStop";
+	}
+	end;
+
+OnGuillaumeWin:
+	set $@KvM01BG, 3;
+	set $@KvM01BG_Victory, 1;
+	
+	stopnpctimer;
+	sleep 2000;
+	mapannounce "bat_c01","The Guillaume Army has won the Battle of Kreiger Von Midgard",1,0x0000FF;
+	donpcevent "KvM01_BG::OnStop";
+	end;
+
+OnCroixWin:
+	set $@KvM01BG, 3;
+	set $@KvM01BG_Victory, 2;
+
+	stopnpctimer;
+	sleep 2000;
+	mapannounce "bat_c01","The Croix Army has won the Battle of Kreiger Von Midgard",1,0xFF0000;
+	donpcevent "KvM01_BG::OnStop";
+	end;
+
+OnStop:
+	disablenpc "TherapistKvM01a";
+	disablenpc "TherapistKvM01b";
+	enablenpc "VintenarKvM01a";
+	enablenpc "VintenarKvM01b";
+	// Warp Teams
+	bg_warp $@KvM01BG_id1,"bat_c01",53,128;
+	bg_warp $@KvM01BG_id2,"bat_c01",146,55;
+	donpcevent "KvM01_BG_Out::OnBegin";
+	end;
+
+OnReset:
+	stopnpctimer;
+	stopnpctimer "KvM01_BG_Out";
+	set .Croix_Count, 0;
+	set .Guillaume_Count, 0;
+	set .Croix_Score, 0;
+	set .Guillaume_Score, 0;
+	set $@KvM01BG_Victory, 0;
+	if( $@KvM01BG_id1 ) { bg_destroy $@KvM01BG_id1; set $@KvM01BG_id1, 0; }
+	if( $@KvM01BG_id2 ) { bg_destroy $@KvM01BG_id2; set $@KvM01BG_id2, 0; }
+	disablenpc "TherapistKvM01a";
+	disablenpc "TherapistKvM01b";
+	disablenpc "VintenarKvM01a";
+	disablenpc "VintenarKvM01b";
+	sleep 1000;
+	mapwarp "bat_c01","bat_room",155,150;
+	sleep 2000;
+	maprespawnguildid "bat_c01",0,3; // Just in case someone else
+	bg_updatescore "bat_c01",0,0;
+	sleep 2000;
+	set $@KvM01BG, 0;
+	donpcevent "KvM01_BG::OnReadyCheck"; // Maybe a game is ready to start
+	end;
+}
+
+-	script	KvM01_BG_Out	-1,{
+	end;
+
+OnBegin:
+	initnpctimer;
+	end;
+
+OnTimer3000:
+	mapannounce "bat_c01","Battle of Kreiger Von Midgard will close in 1 minute!",1,0x696969;
+	end;
+OnTimer30000:
+	mapannounce "bat_c01","Battle of Kreiger Von Midgard will close in 30 seconds!",1,0x696969;
+	end;
+OnTimer50000:
+	mapannounce "bat_c01","Battle of Kreiger Von Midgard will close in 10 seconds!",1,0x696969;
+	end;
+OnTimer60000:
+	donpcevent "KvM01_BG::OnReset";
+	end;
+}
+
+// Battleground Therapist
+// *********************************************************************
+
+bat_c01,51,130,5	script	Therapist in battle::TherapistKvM01a	95,{
+	mes "[Therapist in battle]";
+	mes "Just close your eyes, and take a deep breathe.";
+	mes "You can be free from pain.";
+	specialeffect2 312;
+	close;
+}
+
+bat_c01,148,53,1	script	Therapist in battle::TherapistKvM01b	95,{
+	mes "[Therapist in battle]";
+	mes "Just close your eyes, and take a deep breathe.";
+	mes "You can be free from pain.";
+	specialeffect2 312;
+	close;
+}
+
+// Battleground rewards
+// *********************************************************************
+
+bat_c01,51,130,5	script	Guillaume Vintenar::VintenarKvM01a	419,{
+	if( $@KvM01BG_Victory )
+	{
+		if( $@KvM01BG_Victory == 3 )
+		{
+			setquest 6025;
+			bg_leave;
+			warp "bat_room",155,150;
+			end;
+		}
+		else if( $@KvM01BG_Victory == Bat_Team )
+		{ // Victory
+			set .@Reward, 5;
+			mes "[Swandery]";
+			mes "Blessed Guillaume!!";
+			mes "Let's enjoy our glorious victory!";
+			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			close2;
+		}
+		else
+		{ // 
+			set .@Reward, 1;
+			mes "[Swandery]";
+			mes "You lost, but you're dedicated to this battle.";
+			mes "This is a reward for your great dedication by Guillaume Marollo!";
+			mes "Just take this defeat a lesson, and later you would definitely learn.";
+			close2;
+		}
+
+		setquest 6025;
+		getitem 7773, .@Reward;
+		bg_leave;
+		warp "bat_room",155,150;
+		end;
+	}
+	end;
+}
+
+bat_c01,148,53,1	script	Croix Vintenar::VintenarKvM01b	415,{
+	if( $@KvM01BG_Victory )
+	{
+		if( $@KvM01BG_Victory == 3 )
+		{
+			setquest 6025;
+			bg_leave;
+			warp "bat_room",155,150;
+			end;
+		}
+		else if( $@KvM01BG_Victory == Bat_Team )
+		{ // Victory
+			set .@Reward, 5;
+			mes "[Swandery]";
+			mes "Blessed Croax!!";
+			mes "Let's enjoy our glorious victory!";
+			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			close2;
+		}
+		else
+		{ // 
+			set .@Reward, 1;
+			mes "[Swandery]";
+			mes "Oh, " + strcharinfo(0) + ". Don't be sad.";
+			mes "Even though we didn't win, we did our best.";
+			mes "This is a Royal gift from Croix, and please don't forget this battle. We can win the next.";
+			close2;
+		}
+
+		setquest 6025;
+		getitem 7773, .@Reward;
+		bg_leave;
+		warp "bat_room",155,150;
+		end;
+	}
+	end;
+}
+
+// MapFlags
+// *********************************************************************
+
+bat_c01	mapflag	battleground	2
+bat_c01	mapflag	nomemo
+bat_c01	mapflag	nosave	SavePoint
+bat_c01	mapflag	noteleport
+bat_c01	mapflag	nowarp
+bat_c01	mapflag	nowarpto
+bat_c01	mapflag	noreturn
+bat_c01	mapflag	nobranch
+bat_c01	mapflag	nopenalty
diff --git a/npc/battleground/bg_kvm02.txt b/npc/battleground/bg_kvm02.txt
index 9d38a290d..521192f07 100644
--- a/npc/battleground/bg_kvm02.txt
+++ b/npc/battleground/bg_kvm02.txt
@@ -1,391 +1,391 @@
-// ==============================================================================

-// BattleGround System - KvM 60~79

-// ==============================================================================

-

-// Registration NPC's

-// *********************************************************************

-

-bat_room,225,227,4	script	Registration::KvM02R_Guillaume	418,{ // KvM Guillaume

-	end;

-

-OnInit:

-	waitingroom "Battle Station 5 Players",5,"KvM02_BG::OnGuillaumeJoin",1;

-	end;

-	

-OnEnterBG:

-	set $@KvM02BG_id1, waitingroom2bg("bat_c02",53,128,"KvM02_BG::OnGuillaumeQuit","KvM02_BG::OnGuillaumeDie");

-	end;

-}

-

-bat_room,225,204,0	script	Registration::KvM02R_Croix	414,{ // KvM Croix

-	end;

-

-OnInit:

-	waitingroom "Battle Station 5 Players",5,"KvM02_BG::OnCroixJoin",1;

-	end;

-

-OnEnterBG:

-	set $@KvM02BG_id2, waitingroom2bg("bat_c02",146,55,"KvM02_BG::OnCroixQuit","KvM02_BG::OnCroixDie");

-	end;

-}

-

-// Light Effects

-// *********************************************************************

-

-bat_c02,54,123,0	script	#bat_c02a	111,{

-	end;

-

-OnKvM02LightA: misceffect 54; end;

-OnKvM02LightB: misceffect 55; end;

-OnKvM02LightC: misceffect 56; end;

-}

-

-bat_c02,56,125,0	duplicate(#bat_c02a)	#bat_c02b	111

-bat_c02,58,127,0	duplicate(#bat_c02a)	#bat_c02c	111

-bat_c02,141,56,0	duplicate(#bat_c02a)	#bat_c02d	111

-bat_c02,143,58,0	duplicate(#bat_c02a)	#bat_c02e	111

-bat_c02,145,60,0	duplicate(#bat_c02a)	#bat_c02f	111

-

-// Battleground Engine

-// *********************************************************************

-

--	script	KvM02_BG	-1,{

-	end;

-

-OnInit:

-	setwall "bat_c02",54,122,6,7,0,"batc02wall_a";

-	setwall "bat_c02",55,122,5,7,0,"batc02wall_b";

-	setwall "bat_c02",140,56,6,7,0,"batc02wall_c";

-	setwall "bat_c02",140,57,5,7,0,"batc02wall_d";

-	disablenpc "TherapistKvM02a";

-	disablenpc "TherapistKvM02b";

-	disablenpc "VintenarKvM02a";

-	disablenpc "VintenarKvM02b";

-	end;

-

-OnGuillaumeJoin:

-OnCroixJoin:

-	donpcevent "KvM02_BG::OnReadyCheck";

-	end;

-

-OnGuillaumeQuit:

-	set BG_Delay_Tick, gettimetick(2) + 1200;

-OnGuillaumeDie:

-	if( $@KvM02BG == 2 )

-	{

-		set .Guillaume_Count, .Guillaume_Count - 1;

-		set .Croix_Score, .Croix_Score + 1;

-		bg_updatescore "bat_c02",.Guillaume_Score,.Croix_Score;

-		if( .Guillaume_Count < 1 ) donpcevent "KvM02_BG::OnCroixWin";

-	}

-	end;

-

-OnCroixQuit:

-	set BG_Delay_Tick, gettimetick(2) + 1200;

-OnCroixDie:

-	if( $@KvM02BG == 2 )

-	{

-		set .Croix_Count, .Croix_Count - 1;

-		set .Guillaume_Score, .Guillaume_Score + 1;

-		bg_updatescore "bat_c02",.Guillaume_Score,.Croix_Score;

-		if( .Croix_Count < 1 ) donpcevent "KvM02_BG::OnGuillaumeWin";

-	}

-	end;

-

-OnReadyCheck:

-	if( $@KvM02BG )

-		end;

-	set .@Guillaume, getwaitingroomstate(0,"KvM02R_Guillaume");

-	set .@Croix, getwaitingroomstate(0,"KvM02R_Croix");

-

-	if( .@Guillaume < 5 || .@Croix < 5 )

-	{

-		if( .@Guillaume > 3 && .@Croix > 3 && !agitcheck() && $@KvM_Flood < gettimetick(2) )

-		{

-			announce "Battleground -- Kreiger Von Midgard [60-79] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",0,0x808080;

-			set $@KvM_Flood, gettimetick(2) + 15;

-		}

-		else

-			mapannounce "bat_room","Battleground -- Kreiger Von Midgard [60-79] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",1,0x808080;

-		end;

-	}

-

-	set $@KvM02BG, 1; // Starting

-	donpcevent "KvM02R_Croix::OnEnterBG";

-	donpcevent "KvM02R_Guillaume::OnEnterBG";

-	donpcevent "KvM02_BG::OnStart";

-	end;

-

-OnStart:

-	announce "Battleground -- Kreiger Von Midgard [60-79] has started!",0,0x808080;

-	enablenpc "TherapistKvM02a";

-	enablenpc "TherapistKvM02b";

-	disablenpc "VintenarKvM02a";

-	disablenpc "VintenarKvM02b";

-	set $@KvM02BG_Victory, 0;

-	sleep 2000;

-	// Warp Teams

-	bg_warp $@KvM02BG_id1,"bat_c02",53,128;

-	bg_warp $@KvM02BG_id2,"bat_c02",146,55;

-	// ScoreBoard

-	set .Guillaume_Score, 0;

-	set .Croix_Score, 0;

-	initnpctimer;

-	end;

-

-OnTimer5000:

-	areapercentheal "bat_c02",50,123,58,131,100,100;

-	areapercentheal "bat_c02",141,52,149,60,100,100;

-	mapannounce "bat_c02","The Battle will start in 25 seconds!!",1,0x808080;

-	end;

-

-OnTimer26000:

-	mapannounce "bat_c02","The Battle will start in 4 seconds!!",1,0x808080;

-	end;

-

-OnTimer27000:

-	donpcevent "::OnKvM02LightA";

-	end;

-

-OnTimer28000:

-	donpcevent "::OnKvM02LightB";

-	end;

-	

-OnTimer29000:

-	donpcevent "::OnKvM02LightC";

-	end;

-

-OnTimer30000:

-	// Team Members

-	set .Guillaume_Count, bg_get_data($@KvM02BG_id1, 0);

-	set .Croix_Count, bg_get_data($@KvM02BG_id2, 0);

-	if( .Guillaume_Count < 5 || .Croix_Count < 5 )

-	{

-		set $@KvM02BG_Victory, 3;

-		set $@KvM02BG, 3;

-		mapannounce "bat_c02","There are not enough players to start the battle",1,0x808080;

-		stopnpctimer;

-		sleep 2000;

-		donpcevent "KvM02_BG::OnStop";

-		end;

-	}

-

-	set $@KvM02BG, 2; // Playing

-	areapercentheal "bat_c02",50,123,58,131,100,100;

-	bg_warp $@KvM02BG_id1,"bat_c02",62,119;

-	areapercentheal "bat_c02",141,52,149,60,100,100;

-	bg_warp $@KvM02BG_id2,"bat_c02",137,64;

-	end;

-

-OnTimer32000:

-	mapannounce "bat_c02","The Battle of Kreiger Von Midgard has begun!!",1,0x808080;

-	end;

-

-OnTimer300000:

-	mapannounce "bat_c02","The Battle will ends in 30 seconds!!",1,0x808080;

-	end;

-

-OnTimer330000:

-	if( .Croix_Count > .Guillaume_Count )

-		donpcevent "KvM02_BG::OnCroixWin";

-	else if( .Croix_Count < .Guillaume_Count )

-		donpcevent "KvM02_BG::OnGuillaumeWin";

-	else

-	{ // Draw Game

-		set $@KvM02BG, 3;

-		set $@KvM02BG_Victory, 3;

-

-		stopnpctimer;

-		sleep 2000;

-		mapannounce "bat_c02","The time is out! This is a Tie...",1,0x808080;

-		donpcevent "KvM02_BG::OnStop";

-	}

-	end;

-

-OnGuillaumeWin:

-	set $@KvM02BG, 3;

-	set $@KvM02BG_Victory, 1;

-	

-	stopnpctimer;

-	sleep 2000;

-	mapannounce "bat_c02","The Guillaume Army has won the Battle of Kreiger Von Midgard",1,0x0000FF;

-	donpcevent "KvM02_BG::OnStop";

-	end;

-

-OnCroixWin:

-	set $@KvM02BG, 3;

-	set $@KvM02BG_Victory, 2;

-

-	stopnpctimer;

-	sleep 2000;

-	mapannounce "bat_c02","The Croix Army has won the Battle of Kreiger Von Midgard",1,0xFF0000;

-	donpcevent "KvM02_BG::OnStop";

-	end;

-

-OnStop:

-	disablenpc "TherapistKvM02a";

-	disablenpc "TherapistKvM02b";

-	enablenpc "VintenarKvM02a";

-	enablenpc "VintenarKvM02b";

-	// Warp Teams

-	bg_warp $@KvM02BG_id1,"bat_c02",53,128;

-	bg_warp $@KvM02BG_id2,"bat_c02",146,55;

-	donpcevent "KvM02_BG_Out::OnBegin";

-	end;

-

-OnReset:

-	stopnpctimer;

-	stopnpctimer "KvM02_BG_Out";

-	set .Croix_Count, 0;

-	set .Guillaume_Count, 0;

-	set .Croix_Score, 0;

-	set .Guillaume_Score, 0;

-	set $@KvM02BG_Victory, 0;

-	if( $@KvM02BG_id1 ) { bg_destroy $@KvM02BG_id1; set $@KvM02BG_id1, 0; }

-	if( $@KvM02BG_id2 ) { bg_destroy $@KvM02BG_id2; set $@KvM02BG_id2, 0; }

-	disablenpc "TherapistKvM02a";

-	disablenpc "TherapistKvM02b";

-	disablenpc "VintenarKvM02a";

-	disablenpc "VintenarKvM02b";

-	sleep 1000;

-	mapwarp "bat_c02","bat_room",155,150;

-	sleep 2000;

-	maprespawnguildid "bat_c02",0,3; // Just in case someone else

-	bg_updatescore "bat_c02",0,0;

-	sleep 2000;

-	set $@KvM02BG, 0;

-	donpcevent "KvM02_BG::OnReadyCheck"; // Maybe a game is ready to start

-	end;

-}

-

--	script	KvM02_BG_Out	-1,{

-	end;

-

-OnBegin:

-	initnpctimer;

-	end;

-

-OnTimer3000:

-	mapannounce "bat_c02","Battle of Kreiger Von Midgard will close in 1 minute!",1,0x808080;

-	end;

-OnTimer30000:

-	mapannounce "bat_c02","Battle of Kreiger Von Midgard will close in 30 seconds!",1,0x808080;

-	end;

-OnTimer50000:

-	mapannounce "bat_c02","Battle of Kreiger Von Midgard will close in 10 seconds!",1,0x808080;

-	end;

-OnTimer60000:

-	donpcevent "KvM02_BG::OnReset";

-	end;

-}

-

-// Battleground Therapist

-// *********************************************************************

-

-bat_c02,51,130,5	script	Therapist in battle::TherapistKvM02a	95,{

-	mes "[Therapist in battle]";

-	mes "Just close your eyes, and take a deep breathe.";

-	mes "You can be free from pain.";

-	specialeffect2 312;

-	close;

-}

-

-bat_c02,148,53,1	script	Therapist in battle::TherapistKvM02b	95,{

-	mes "[Therapist in battle]";

-	mes "Just close your eyes, and take a deep breathe.";

-	mes "You can be free from pain.";

-	specialeffect2 312;

-	close;

-}

-

-// Battleground rewards

-// *********************************************************************

-

-bat_c02,51,130,5	script	Guillaume Vintenar::VintenarKvM02a	419,{

-	if( $@KvM02BG_Victory )

-	{

-		if( $@KvM02BG_Victory == 3 )

-		{

-			setquest 6025;

-			bg_leave;

-			warp "bat_room",155,150;

-			end;

-		}

-		else if( $@KvM02BG_Victory == Bat_Team )

-		{ // Victory

-			set .@Reward, 3;

-			mes "[Swandery]";

-			mes "Blessed Guillaume!!";

-			mes "Let's enjoy our glorious victory!";

-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";

-			close2;

-		}

-		else

-		{ // 

-			set .@Reward, 1;

-			mes "[Swandery]";

-			mes "You lost, but you're dedicated to this battle.";

-			mes "This is a reward for your great dedication by Guillaume Marollo!";

-			mes "Just take this defeat a lesson, and later you would definitely learn.";

-			close2;

-		}

-

-		setquest 6025;

-		getitem 7773, .@Reward;

-		bg_leave;

-		warp "bat_room",155,150;

-		end;

-	}

-	end;

-}

-

-bat_c02,148,53,1	script	Croix Vintenar::VintenarKvM02b	415,{

-	if( $@KvM02BG_Victory )

-	{

-		if( $@KvM02BG_Victory == 3 )

-		{

-			setquest 6025;

-			bg_leave;

-			warp "bat_room",155,150;

-			end;

-		}

-		else if( $@KvM02BG_Victory == Bat_Team )

-		{ // Victory

-			set .@Reward, 3;

-			mes "[Swandery]";

-			mes "Blessed Croax!!";

-			mes "Let's enjoy our glorious victory!";

-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";

-			close2;

-		}

-		else

-		{ // 

-			set .@Reward, 1;

-			mes "[Swandery]";

-			mes "Oh, " + strcharinfo(0) + ". Don't be sad.";

-			mes "Even though we didn't win, we did our best.";

-			mes "This is a Royal gift from Croix, and please don't forget this battle. We can win the next.";

-			close2;

-		}

-

-		setquest 6025;

-		getitem 7773, .@Reward;

-		bg_leave;

-		warp "bat_room",155,150;

-		end;

-	}

-	end;

-}

-

-// MapFlags

-// *********************************************************************

-

-bat_c02	mapflag	battleground	2

-bat_c02	mapflag	nomemo

-bat_c02	mapflag	nosave	SavePoint

-bat_c02	mapflag	noteleport

-bat_c02	mapflag	nowarp

-bat_c02	mapflag	nowarpto

-bat_c02	mapflag	noreturn

-bat_c02	mapflag	nobranch

-bat_c02	mapflag	nopenalty

+// ==============================================================================
+// BattleGround System - KvM 60~79
+// ==============================================================================
+
+// Registration NPC's
+// *********************************************************************
+
+bat_room,225,227,4	script	Registration::KvM02R_Guillaume	418,{ // KvM Guillaume
+	end;
+
+OnInit:
+	waitingroom "Battle Station 5 Players",5,"KvM02_BG::OnGuillaumeJoin",1;
+	end;
+	
+OnEnterBG:
+	set $@KvM02BG_id1, waitingroom2bg("bat_c02",53,128,"KvM02_BG::OnGuillaumeQuit","KvM02_BG::OnGuillaumeDie");
+	end;
+}
+
+bat_room,225,204,0	script	Registration::KvM02R_Croix	414,{ // KvM Croix
+	end;
+
+OnInit:
+	waitingroom "Battle Station 5 Players",5,"KvM02_BG::OnCroixJoin",1;
+	end;
+
+OnEnterBG:
+	set $@KvM02BG_id2, waitingroom2bg("bat_c02",146,55,"KvM02_BG::OnCroixQuit","KvM02_BG::OnCroixDie");
+	end;
+}
+
+// Light Effects
+// *********************************************************************
+
+bat_c02,54,123,0	script	#bat_c02a	111,{
+	end;
+
+OnKvM02LightA: misceffect 54; end;
+OnKvM02LightB: misceffect 55; end;
+OnKvM02LightC: misceffect 56; end;
+}
+
+bat_c02,56,125,0	duplicate(#bat_c02a)	#bat_c02b	111
+bat_c02,58,127,0	duplicate(#bat_c02a)	#bat_c02c	111
+bat_c02,141,56,0	duplicate(#bat_c02a)	#bat_c02d	111
+bat_c02,143,58,0	duplicate(#bat_c02a)	#bat_c02e	111
+bat_c02,145,60,0	duplicate(#bat_c02a)	#bat_c02f	111
+
+// Battleground Engine
+// *********************************************************************
+
+-	script	KvM02_BG	-1,{
+	end;
+
+OnInit:
+	setwall "bat_c02",54,122,6,7,0,"batc02wall_a";
+	setwall "bat_c02",55,122,5,7,0,"batc02wall_b";
+	setwall "bat_c02",140,56,6,7,0,"batc02wall_c";
+	setwall "bat_c02",140,57,5,7,0,"batc02wall_d";
+	disablenpc "TherapistKvM02a";
+	disablenpc "TherapistKvM02b";
+	disablenpc "VintenarKvM02a";
+	disablenpc "VintenarKvM02b";
+	end;
+
+OnGuillaumeJoin:
+OnCroixJoin:
+	donpcevent "KvM02_BG::OnReadyCheck";
+	end;
+
+OnGuillaumeQuit:
+	set BG_Delay_Tick, gettimetick(2) + 1200;
+OnGuillaumeDie:
+	if( $@KvM02BG == 2 )
+	{
+		set .Guillaume_Count, .Guillaume_Count - 1;
+		set .Croix_Score, .Croix_Score + 1;
+		bg_updatescore "bat_c02",.Guillaume_Score,.Croix_Score;
+		if( .Guillaume_Count < 1 ) donpcevent "KvM02_BG::OnCroixWin";
+	}
+	end;
+
+OnCroixQuit:
+	set BG_Delay_Tick, gettimetick(2) + 1200;
+OnCroixDie:
+	if( $@KvM02BG == 2 )
+	{
+		set .Croix_Count, .Croix_Count - 1;
+		set .Guillaume_Score, .Guillaume_Score + 1;
+		bg_updatescore "bat_c02",.Guillaume_Score,.Croix_Score;
+		if( .Croix_Count < 1 ) donpcevent "KvM02_BG::OnGuillaumeWin";
+	}
+	end;
+
+OnReadyCheck:
+	if( $@KvM02BG )
+		end;
+	set .@Guillaume, getwaitingroomstate(0,"KvM02R_Guillaume");
+	set .@Croix, getwaitingroomstate(0,"KvM02R_Croix");
+
+	if( .@Guillaume < 5 || .@Croix < 5 )
+	{
+		if( .@Guillaume > 3 && .@Croix > 3 && !agitcheck() && $@KvM_Flood < gettimetick(2) )
+		{
+			announce "Battleground -- Kreiger Von Midgard [60-79] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",0,0x808080;
+			set $@KvM_Flood, gettimetick(2) + 15;
+		}
+		else
+			mapannounce "bat_room","Battleground -- Kreiger Von Midgard [60-79] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",1,0x808080;
+		end;
+	}
+
+	set $@KvM02BG, 1; // Starting
+	donpcevent "KvM02R_Croix::OnEnterBG";
+	donpcevent "KvM02R_Guillaume::OnEnterBG";
+	donpcevent "KvM02_BG::OnStart";
+	end;
+
+OnStart:
+	announce "Battleground -- Kreiger Von Midgard [60-79] has started!",0,0x808080;
+	enablenpc "TherapistKvM02a";
+	enablenpc "TherapistKvM02b";
+	disablenpc "VintenarKvM02a";
+	disablenpc "VintenarKvM02b";
+	set $@KvM02BG_Victory, 0;
+	sleep 2000;
+	// Warp Teams
+	bg_warp $@KvM02BG_id1,"bat_c02",53,128;
+	bg_warp $@KvM02BG_id2,"bat_c02",146,55;
+	// ScoreBoard
+	set .Guillaume_Score, 0;
+	set .Croix_Score, 0;
+	initnpctimer;
+	end;
+
+OnTimer5000:
+	areapercentheal "bat_c02",50,123,58,131,100,100;
+	areapercentheal "bat_c02",141,52,149,60,100,100;
+	mapannounce "bat_c02","The Battle will start in 25 seconds!!",1,0x808080;
+	end;
+
+OnTimer26000:
+	mapannounce "bat_c02","The Battle will start in 4 seconds!!",1,0x808080;
+	end;
+
+OnTimer27000:
+	donpcevent "::OnKvM02LightA";
+	end;
+
+OnTimer28000:
+	donpcevent "::OnKvM02LightB";
+	end;
+	
+OnTimer29000:
+	donpcevent "::OnKvM02LightC";
+	end;
+
+OnTimer30000:
+	// Team Members
+	set .Guillaume_Count, bg_get_data($@KvM02BG_id1, 0);
+	set .Croix_Count, bg_get_data($@KvM02BG_id2, 0);
+	if( .Guillaume_Count < 5 || .Croix_Count < 5 )
+	{
+		set $@KvM02BG_Victory, 3;
+		set $@KvM02BG, 3;
+		mapannounce "bat_c02","There are not enough players to start the battle",1,0x808080;
+		stopnpctimer;
+		sleep 2000;
+		donpcevent "KvM02_BG::OnStop";
+		end;
+	}
+
+	set $@KvM02BG, 2; // Playing
+	areapercentheal "bat_c02",50,123,58,131,100,100;
+	bg_warp $@KvM02BG_id1,"bat_c02",62,119;
+	areapercentheal "bat_c02",141,52,149,60,100,100;
+	bg_warp $@KvM02BG_id2,"bat_c02",137,64;
+	end;
+
+OnTimer32000:
+	mapannounce "bat_c02","The Battle of Kreiger Von Midgard has begun!!",1,0x808080;
+	end;
+
+OnTimer300000:
+	mapannounce "bat_c02","The Battle will ends in 30 seconds!!",1,0x808080;
+	end;
+
+OnTimer330000:
+	if( .Croix_Count > .Guillaume_Count )
+		donpcevent "KvM02_BG::OnCroixWin";
+	else if( .Croix_Count < .Guillaume_Count )
+		donpcevent "KvM02_BG::OnGuillaumeWin";
+	else
+	{ // Draw Game
+		set $@KvM02BG, 3;
+		set $@KvM02BG_Victory, 3;
+
+		stopnpctimer;
+		sleep 2000;
+		mapannounce "bat_c02","The time is out! This is a Tie...",1,0x808080;
+		donpcevent "KvM02_BG::OnStop";
+	}
+	end;
+
+OnGuillaumeWin:
+	set $@KvM02BG, 3;
+	set $@KvM02BG_Victory, 1;
+	
+	stopnpctimer;
+	sleep 2000;
+	mapannounce "bat_c02","The Guillaume Army has won the Battle of Kreiger Von Midgard",1,0x0000FF;
+	donpcevent "KvM02_BG::OnStop";
+	end;
+
+OnCroixWin:
+	set $@KvM02BG, 3;
+	set $@KvM02BG_Victory, 2;
+
+	stopnpctimer;
+	sleep 2000;
+	mapannounce "bat_c02","The Croix Army has won the Battle of Kreiger Von Midgard",1,0xFF0000;
+	donpcevent "KvM02_BG::OnStop";
+	end;
+
+OnStop:
+	disablenpc "TherapistKvM02a";
+	disablenpc "TherapistKvM02b";
+	enablenpc "VintenarKvM02a";
+	enablenpc "VintenarKvM02b";
+	// Warp Teams
+	bg_warp $@KvM02BG_id1,"bat_c02",53,128;
+	bg_warp $@KvM02BG_id2,"bat_c02",146,55;
+	donpcevent "KvM02_BG_Out::OnBegin";
+	end;
+
+OnReset:
+	stopnpctimer;
+	stopnpctimer "KvM02_BG_Out";
+	set .Croix_Count, 0;
+	set .Guillaume_Count, 0;
+	set .Croix_Score, 0;
+	set .Guillaume_Score, 0;
+	set $@KvM02BG_Victory, 0;
+	if( $@KvM02BG_id1 ) { bg_destroy $@KvM02BG_id1; set $@KvM02BG_id1, 0; }
+	if( $@KvM02BG_id2 ) { bg_destroy $@KvM02BG_id2; set $@KvM02BG_id2, 0; }
+	disablenpc "TherapistKvM02a";
+	disablenpc "TherapistKvM02b";
+	disablenpc "VintenarKvM02a";
+	disablenpc "VintenarKvM02b";
+	sleep 1000;
+	mapwarp "bat_c02","bat_room",155,150;
+	sleep 2000;
+	maprespawnguildid "bat_c02",0,3; // Just in case someone else
+	bg_updatescore "bat_c02",0,0;
+	sleep 2000;
+	set $@KvM02BG, 0;
+	donpcevent "KvM02_BG::OnReadyCheck"; // Maybe a game is ready to start
+	end;
+}
+
+-	script	KvM02_BG_Out	-1,{
+	end;
+
+OnBegin:
+	initnpctimer;
+	end;
+
+OnTimer3000:
+	mapannounce "bat_c02","Battle of Kreiger Von Midgard will close in 1 minute!",1,0x808080;
+	end;
+OnTimer30000:
+	mapannounce "bat_c02","Battle of Kreiger Von Midgard will close in 30 seconds!",1,0x808080;
+	end;
+OnTimer50000:
+	mapannounce "bat_c02","Battle of Kreiger Von Midgard will close in 10 seconds!",1,0x808080;
+	end;
+OnTimer60000:
+	donpcevent "KvM02_BG::OnReset";
+	end;
+}
+
+// Battleground Therapist
+// *********************************************************************
+
+bat_c02,51,130,5	script	Therapist in battle::TherapistKvM02a	95,{
+	mes "[Therapist in battle]";
+	mes "Just close your eyes, and take a deep breathe.";
+	mes "You can be free from pain.";
+	specialeffect2 312;
+	close;
+}
+
+bat_c02,148,53,1	script	Therapist in battle::TherapistKvM02b	95,{
+	mes "[Therapist in battle]";
+	mes "Just close your eyes, and take a deep breathe.";
+	mes "You can be free from pain.";
+	specialeffect2 312;
+	close;
+}
+
+// Battleground rewards
+// *********************************************************************
+
+bat_c02,51,130,5	script	Guillaume Vintenar::VintenarKvM02a	419,{
+	if( $@KvM02BG_Victory )
+	{
+		if( $@KvM02BG_Victory == 3 )
+		{
+			setquest 6025;
+			bg_leave;
+			warp "bat_room",155,150;
+			end;
+		}
+		else if( $@KvM02BG_Victory == Bat_Team )
+		{ // Victory
+			set .@Reward, 3;
+			mes "[Swandery]";
+			mes "Blessed Guillaume!!";
+			mes "Let's enjoy our glorious victory!";
+			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			close2;
+		}
+		else
+		{ // 
+			set .@Reward, 1;
+			mes "[Swandery]";
+			mes "You lost, but you're dedicated to this battle.";
+			mes "This is a reward for your great dedication by Guillaume Marollo!";
+			mes "Just take this defeat a lesson, and later you would definitely learn.";
+			close2;
+		}
+
+		setquest 6025;
+		getitem 7773, .@Reward;
+		bg_leave;
+		warp "bat_room",155,150;
+		end;
+	}
+	end;
+}
+
+bat_c02,148,53,1	script	Croix Vintenar::VintenarKvM02b	415,{
+	if( $@KvM02BG_Victory )
+	{
+		if( $@KvM02BG_Victory == 3 )
+		{
+			setquest 6025;
+			bg_leave;
+			warp "bat_room",155,150;
+			end;
+		}
+		else if( $@KvM02BG_Victory == Bat_Team )
+		{ // Victory
+			set .@Reward, 3;
+			mes "[Swandery]";
+			mes "Blessed Croax!!";
+			mes "Let's enjoy our glorious victory!";
+			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			close2;
+		}
+		else
+		{ // 
+			set .@Reward, 1;
+			mes "[Swandery]";
+			mes "Oh, " + strcharinfo(0) + ". Don't be sad.";
+			mes "Even though we didn't win, we did our best.";
+			mes "This is a Royal gift from Croix, and please don't forget this battle. We can win the next.";
+			close2;
+		}
+
+		setquest 6025;
+		getitem 7773, .@Reward;
+		bg_leave;
+		warp "bat_room",155,150;
+		end;
+	}
+	end;
+}
+
+// MapFlags
+// *********************************************************************
+
+bat_c02	mapflag	battleground	2
+bat_c02	mapflag	nomemo
+bat_c02	mapflag	nosave	SavePoint
+bat_c02	mapflag	noteleport
+bat_c02	mapflag	nowarp
+bat_c02	mapflag	nowarpto
+bat_c02	mapflag	noreturn
+bat_c02	mapflag	nobranch
+bat_c02	mapflag	nopenalty
diff --git a/npc/battleground/bg_kvm03.txt b/npc/battleground/bg_kvm03.txt
index 7a8f82e0a..7765cebff 100644
--- a/npc/battleground/bg_kvm03.txt
+++ b/npc/battleground/bg_kvm03.txt
@@ -1,391 +1,391 @@
-// ==============================================================================

-// BattleGround System - KvM 1~59

-// ==============================================================================

-

-// Registration NPC's

-// *********************************************************************

-

-bat_room,197,227,4	script	Registration::KvM03R_Guillaume	418,{ // KvM Guillaume

-	end;

-

-OnInit:

-	waitingroom "Battle Station 5 Players",5,"KvM03_BG::OnGuillaumeJoin",1;

-	end;

-	

-OnEnterBG:

-	set $@KvM03BG_id1, waitingroom2bg("bat_c03",53,128,"KvM03_BG::OnGuillaumeQuit","KvM03_BG::OnGuillaumeDie");

-	end;

-}

-

-bat_room,197,204,0	script	Registration::KvM03R_Croix	414,{ // KvM Croix

-	end;

-

-OnInit:

-	waitingroom "Battle Station 5 Players",5,"KvM03_BG::OnCroixJoin",1;

-	end;

-

-OnEnterBG:

-	set $@KvM03BG_id2, waitingroom2bg("bat_c03",146,55,"KvM03_BG::OnCroixQuit","KvM03_BG::OnCroixDie");

-	end;

-}

-

-// Light Effects

-// *********************************************************************

-

-bat_c03,54,123,0	script	#bat_c03a	111,{

-	end;

-

-OnKvM03LightA: misceffect 54; end;

-OnKvM03LightB: misceffect 55; end;

-OnKvM03LightC: misceffect 56; end;

-}

-

-bat_c03,56,125,0	duplicate(#bat_c03a)	#bat_c03b	111

-bat_c03,58,127,0	duplicate(#bat_c03a)	#bat_c03c	111

-bat_c03,141,56,0	duplicate(#bat_c03a)	#bat_c03d	111

-bat_c03,143,58,0	duplicate(#bat_c03a)	#bat_c03e	111

-bat_c03,145,60,0	duplicate(#bat_c03a)	#bat_c03f	111

-

-// Battleground Engine

-// *********************************************************************

-

--	script	KvM03_BG	-1,{

-	end;

-

-OnInit:

-	setwall "bat_c03",54,122,6,7,0,"batc03wall_a";

-	setwall "bat_c03",55,122,5,7,0,"batc03wall_b";

-	setwall "bat_c03",140,56,6,7,0,"batc03wall_c";

-	setwall "bat_c03",140,57,5,7,0,"batc03wall_d";

-	disablenpc "TherapistKvM03a";

-	disablenpc "TherapistKvM03b";

-	disablenpc "VintenarKvM03a";

-	disablenpc "VintenarKvM03b";

-	end;

-

-OnGuillaumeJoin:

-OnCroixJoin:

-	donpcevent "KvM03_BG::OnReadyCheck";

-	end;

-

-OnGuillaumeQuit:

-	set BG_Delay_Tick, gettimetick(2) + 1200;

-OnGuillaumeDie:

-	if( $@KvM03BG == 2 )

-	{

-		set .Guillaume_Count, .Guillaume_Count - 1;

-		set .Croix_Score, .Croix_Score + 1;

-		bg_updatescore "bat_c03",.Guillaume_Score,.Croix_Score;

-		if( .Guillaume_Count < 1 ) donpcevent "KvM03_BG::OnCroixWin";

-	}

-	end;

-

-OnCroixQuit:

-	set BG_Delay_Tick, gettimetick(2) + 1200;

-OnCroixDie:

-	if( $@KvM03BG == 2 )

-	{

-		set .Croix_Count, .Croix_Count - 1;

-		set .Guillaume_Score, .Guillaume_Score + 1;

-		bg_updatescore "bat_c03",.Guillaume_Score,.Croix_Score;

-		if( .Croix_Count < 1 ) donpcevent "KvM03_BG::OnGuillaumeWin";

-	}

-	end;

-

-OnReadyCheck:

-	if( $@KvM03BG )

-		end;

-	set .@Guillaume, getwaitingroomstate(0,"KvM03R_Guillaume");

-	set .@Croix, getwaitingroomstate(0,"KvM03R_Croix");

-

-	if( .@Guillaume < 5 || .@Croix < 5 )

-	{

-		if( .@Guillaume > 3 && .@Croix > 3 && !agitcheck() && $@KvM_Flood < gettimetick(2) )

-		{

-			announce "Battleground -- Kreiger Von Midgard [1-59] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",0,0xC0C0C0;

-			set $@KvM_Flood, gettimetick(2) + 15;

-		}

-		else

-			mapannounce "bat_room","Battleground -- Kreiger Von Midgard [1-59] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",1,0xC0C0C0;

-		end;

-	}

-

-	set $@KvM03BG, 1; // Starting

-	donpcevent "KvM03R_Croix::OnEnterBG";

-	donpcevent "KvM03R_Guillaume::OnEnterBG";

-	donpcevent "KvM03_BG::OnStart";

-	end;

-

-OnStart:

-	announce "Battleground -- Kreiger Von Midgard [1-59] has started!",0,0xC0C0C0;

-	enablenpc "TherapistKvM03a";

-	enablenpc "TherapistKvM03b";

-	disablenpc "VintenarKvM03a";

-	disablenpc "VintenarKvM03b";

-	set $@KvM03BG_Victory, 0;

-	sleep 2000;

-	// Warp Teams

-	bg_warp $@KvM03BG_id1,"bat_c03",53,128;

-	bg_warp $@KvM03BG_id2,"bat_c03",146,55;

-	// ScoreBoard

-	set .Guillaume_Score, 0;

-	set .Croix_Score, 0;

-	initnpctimer;

-	end;

-

-OnTimer5000:

-	areapercentheal "bat_c03",50,123,58,131,100,100;

-	areapercentheal "bat_c03",141,52,149,60,100,100;

-	mapannounce "bat_c03","The Battle will start in 25 seconds!!",1,0xC0C0C0;

-	end;

-

-OnTimer26000:

-	mapannounce "bat_c03","The Battle will start in 4 seconds!!",1,0xC0C0C0;

-	end;

-

-OnTimer27000:

-	donpcevent "::OnKvM03LightA";

-	end;

-

-OnTimer28000:

-	donpcevent "::OnKvM03LightB";

-	end;

-	

-OnTimer29000:

-	donpcevent "::OnKvM03LightC";

-	end;

-

-OnTimer30000:

-	// Team Members

-	set .Guillaume_Count, bg_get_data($@KvM03BG_id1, 0);

-	set .Croix_Count, bg_get_data($@KvM03BG_id2, 0);

-	if( .Guillaume_Count < 5 || .Croix_Count < 5 )

-	{

-		set $@KvM03BG_Victory, 3;

-		set $@KvM03BG, 3;

-		mapannounce "bat_c03","There are not enough players to start the battle",1,0xC0C0C0;

-		stopnpctimer;

-		sleep 2000;

-		donpcevent "KvM03_BG::OnStop";

-		end;

-	}

-

-	set $@KvM03BG, 2; // Playing

-	areapercentheal "bat_c03",50,123,58,131,100,100;

-	bg_warp $@KvM03BG_id1,"bat_c03",62,119;

-	areapercentheal "bat_c03",141,52,149,60,100,100;

-	bg_warp $@KvM03BG_id2,"bat_c03",137,64;

-	end;

-

-OnTimer32000:

-	mapannounce "bat_c03","The Battle of Kreiger Von Midgard has begun!!",1,0xC0C0C0;

-	end;

-

-OnTimer300000:

-	mapannounce "bat_c03","The Battle will ends in 30 seconds!!",1,0xC0C0C0;

-	end;

-

-OnTimer330000:

-	if( .Croix_Count > .Guillaume_Count )

-		donpcevent "KvM03_BG::OnCroixWin";

-	else if( .Croix_Count < .Guillaume_Count )

-		donpcevent "KvM03_BG::OnGuillaumeWin";

-	else

-	{ // Draw Game

-		set $@KvM03BG, 3;

-		set $@KvM03BG_Victory, 3;

-

-		stopnpctimer;

-		sleep 2000;

-		mapannounce "bat_c03","The time is out! This is a Tie...",1,0xC0C0C0;

-		donpcevent "KvM03_BG::OnStop";

-	}

-	end;

-

-OnGuillaumeWin:

-	set $@KvM03BG, 3;

-	set $@KvM03BG_Victory, 1;

-	

-	stopnpctimer;

-	sleep 2000;

-	mapannounce "bat_c03","The Guillaume Army has won the Battle of Kreiger Von Midgard",1,0x0000FF;

-	donpcevent "KvM03_BG::OnStop";

-	end;

-

-OnCroixWin:

-	set $@KvM03BG, 3;

-	set $@KvM03BG_Victory, 2;

-

-	stopnpctimer;

-	sleep 2000;

-	mapannounce "bat_c03","The Croix Army has won the Battle of Kreiger Von Midgard",1,0xFF0000;

-	donpcevent "KvM03_BG::OnStop";

-	end;

-

-OnStop:

-	disablenpc "TherapistKvM03a";

-	disablenpc "TherapistKvM03b";

-	enablenpc "VintenarKvM03a";

-	enablenpc "VintenarKvM03b";

-	// Warp Teams

-	bg_warp $@KvM03BG_id1,"bat_c03",53,128;

-	bg_warp $@KvM03BG_id2,"bat_c03",146,55;

-	donpcevent "KvM03_BG_Out::OnBegin";

-	end;

-

-OnReset:

-	stopnpctimer;

-	stopnpctimer "KvM03_BG_Out";

-	set .Croix_Count, 0;

-	set .Guillaume_Count, 0;

-	set .Croix_Score, 0;

-	set .Guillaume_Score, 0;

-	set $@KvM03BG_Victory, 0;

-	if( $@KvM03BG_id1 ) { bg_destroy $@KvM03BG_id1; set $@KvM03BG_id1, 0; }

-	if( $@KvM03BG_id2 ) { bg_destroy $@KvM03BG_id2; set $@KvM03BG_id2, 0; }

-	disablenpc "TherapistKvM03a";

-	disablenpc "TherapistKvM03b";

-	disablenpc "VintenarKvM03a";

-	disablenpc "VintenarKvM03b";

-	sleep 1000;

-	mapwarp "bat_c03","bat_room",155,150;

-	sleep 2000;

-	maprespawnguildid "bat_c03",0,3; // Just in case someone else

-	bg_updatescore "bat_c03",0,0;

-	sleep 2000;

-	set $@KvM03BG, 0;

-	donpcevent "KvM03_BG::OnReadyCheck"; // Maybe a game is ready to start

-	end;

-}

-

--	script	KvM03_BG_Out	-1,{

-	end;

-

-OnBegin:

-	initnpctimer;

-	end;

-

-OnTimer3000:

-	mapannounce "bat_c03","Battle of Kreiger Von Midgard will close in 1 minute!",1,0xC0C0C0;

-	end;

-OnTimer30000:

-	mapannounce "bat_c03","Battle of Kreiger Von Midgard will close in 30 seconds!",1,0xC0C0C0;

-	end;

-OnTimer50000:

-	mapannounce "bat_c03","Battle of Kreiger Von Midgard will close in 10 seconds!",1,0xC0C0C0;

-	end;

-OnTimer60000:

-	donpcevent "KvM03_BG::OnReset";

-	end;

-}

-

-// Battleground Therapist

-// *********************************************************************

-

-bat_c03,51,130,5	script	Therapist in battle::TherapistKvM03a	95,{

-	mes "[Therapist in battle]";

-	mes "Just close your eyes, and take a deep breathe.";

-	mes "You can be free from pain.";

-	specialeffect2 312;

-	close;

-}

-

-bat_c03,148,53,1	script	Therapist in battle::TherapistKvM03b	95,{

-	mes "[Therapist in battle]";

-	mes "Just close your eyes, and take a deep breathe.";

-	mes "You can be free from pain.";

-	specialeffect2 312;

-	close;

-}

-

-// Battleground rewards

-// *********************************************************************

-

-bat_c03,51,130,5	script	Guillaume Vintenar::VintenarKvM03a	419,{

-	if( $@KvM03BG_Victory )

-	{

-		if( $@KvM03BG_Victory == 3 )

-		{

-			setquest 6025;

-			bg_leave;

-			warp "bat_room",155,150;

-			end;

-		}

-		else if( $@KvM03BG_Victory == Bat_Team )

-		{ // Victory

-			set .@Reward, 1;

-			mes "[Swandery]";

-			mes "Blessed Guillaume!!";

-			mes "Let's enjoy our glorious victory!";

-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";

-			close2;

-		}

-		else

-		{ // 

-			set .@Reward, 0;

-			mes "[Swandery]";

-			mes "You lost, but you're dedicated to this battle.";

-			mes "This is a reward for your great dedication by Guillaume Marollo!";

-			mes "Just take this defeat a lesson, and later you would definitely learn.";

-			close2;

-		}

-

-		setquest 6025;

-		getitem 7773, .@Reward;

-		bg_leave;

-		warp "bat_room",155,150;

-		end;

-	}

-	end;

-}

-

-bat_c03,148,53,1	script	Croix Vintenar::VintenarKvM03b	415,{

-	if( $@KvM03BG_Victory )

-	{

-		if( $@KvM03BG_Victory == 3 )

-		{

-			setquest 6025;

-			bg_leave;

-			warp "bat_room",155,150;

-			end;

-		}

-		else if( $@KvM03BG_Victory == Bat_Team )

-		{ // Victory

-			set .@Reward, 1;

-			mes "[Swandery]";

-			mes "Blessed Croax!!";

-			mes "Let's enjoy our glorious victory!";

-			mes "" + strcharinfo(0) + ", its a sign reflecting victory";

-			close2;

-		}

-		else

-		{ // 

-			set .@Reward, 0;

-			mes "[Swandery]";

-			mes "Oh, " + strcharinfo(0) + ". Don't be sad.";

-			mes "Even though we didn't win, we did our best.";

-			mes "Please don't forget this battle. We can win the next.";

-			close2;

-		}

-

-		setquest 6025;

-		getitem 7773, .@Reward;

-		bg_leave;

-		warp "bat_room",155,150;

-		end;

-	}

-	end;

-}

-

-// MapFlags

-// *********************************************************************

-

-bat_c03	mapflag	battleground	2

-bat_c03	mapflag	nomemo

-bat_c03	mapflag	nosave	SavePoint

-bat_c03	mapflag	noteleport

-bat_c03	mapflag	nowarp

-bat_c03	mapflag	nowarpto

-bat_c03	mapflag	noreturn

-bat_c03	mapflag	nobranch

-bat_c03	mapflag	nopenalty

+// ==============================================================================
+// BattleGround System - KvM 1~59
+// ==============================================================================
+
+// Registration NPC's
+// *********************************************************************
+
+bat_room,197,227,4	script	Registration::KvM03R_Guillaume	418,{ // KvM Guillaume
+	end;
+
+OnInit:
+	waitingroom "Battle Station 5 Players",5,"KvM03_BG::OnGuillaumeJoin",1;
+	end;
+	
+OnEnterBG:
+	set $@KvM03BG_id1, waitingroom2bg("bat_c03",53,128,"KvM03_BG::OnGuillaumeQuit","KvM03_BG::OnGuillaumeDie");
+	end;
+}
+
+bat_room,197,204,0	script	Registration::KvM03R_Croix	414,{ // KvM Croix
+	end;
+
+OnInit:
+	waitingroom "Battle Station 5 Players",5,"KvM03_BG::OnCroixJoin",1;
+	end;
+
+OnEnterBG:
+	set $@KvM03BG_id2, waitingroom2bg("bat_c03",146,55,"KvM03_BG::OnCroixQuit","KvM03_BG::OnCroixDie");
+	end;
+}
+
+// Light Effects
+// *********************************************************************
+
+bat_c03,54,123,0	script	#bat_c03a	111,{
+	end;
+
+OnKvM03LightA: misceffect 54; end;
+OnKvM03LightB: misceffect 55; end;
+OnKvM03LightC: misceffect 56; end;
+}
+
+bat_c03,56,125,0	duplicate(#bat_c03a)	#bat_c03b	111
+bat_c03,58,127,0	duplicate(#bat_c03a)	#bat_c03c	111
+bat_c03,141,56,0	duplicate(#bat_c03a)	#bat_c03d	111
+bat_c03,143,58,0	duplicate(#bat_c03a)	#bat_c03e	111
+bat_c03,145,60,0	duplicate(#bat_c03a)	#bat_c03f	111
+
+// Battleground Engine
+// *********************************************************************
+
+-	script	KvM03_BG	-1,{
+	end;
+
+OnInit:
+	setwall "bat_c03",54,122,6,7,0,"batc03wall_a";
+	setwall "bat_c03",55,122,5,7,0,"batc03wall_b";
+	setwall "bat_c03",140,56,6,7,0,"batc03wall_c";
+	setwall "bat_c03",140,57,5,7,0,"batc03wall_d";
+	disablenpc "TherapistKvM03a";
+	disablenpc "TherapistKvM03b";
+	disablenpc "VintenarKvM03a";
+	disablenpc "VintenarKvM03b";
+	end;
+
+OnGuillaumeJoin:
+OnCroixJoin:
+	donpcevent "KvM03_BG::OnReadyCheck";
+	end;
+
+OnGuillaumeQuit:
+	set BG_Delay_Tick, gettimetick(2) + 1200;
+OnGuillaumeDie:
+	if( $@KvM03BG == 2 )
+	{
+		set .Guillaume_Count, .Guillaume_Count - 1;
+		set .Croix_Score, .Croix_Score + 1;
+		bg_updatescore "bat_c03",.Guillaume_Score,.Croix_Score;
+		if( .Guillaume_Count < 1 ) donpcevent "KvM03_BG::OnCroixWin";
+	}
+	end;
+
+OnCroixQuit:
+	set BG_Delay_Tick, gettimetick(2) + 1200;
+OnCroixDie:
+	if( $@KvM03BG == 2 )
+	{
+		set .Croix_Count, .Croix_Count - 1;
+		set .Guillaume_Score, .Guillaume_Score + 1;
+		bg_updatescore "bat_c03",.Guillaume_Score,.Croix_Score;
+		if( .Croix_Count < 1 ) donpcevent "KvM03_BG::OnGuillaumeWin";
+	}
+	end;
+
+OnReadyCheck:
+	if( $@KvM03BG )
+		end;
+	set .@Guillaume, getwaitingroomstate(0,"KvM03R_Guillaume");
+	set .@Croix, getwaitingroomstate(0,"KvM03R_Croix");
+
+	if( .@Guillaume < 5 || .@Croix < 5 )
+	{
+		if( .@Guillaume > 3 && .@Croix > 3 && !agitcheck() && $@KvM_Flood < gettimetick(2) )
+		{
+			announce "Battleground -- Kreiger Von Midgard [1-59] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",0,0xC0C0C0;
+			set $@KvM_Flood, gettimetick(2) + 15;
+		}
+		else
+			mapannounce "bat_room","Battleground -- Kreiger Von Midgard [1-59] G: " + .@Guillaume + "/5, C: " + .@Croix + "/5",1,0xC0C0C0;
+		end;
+	}
+
+	set $@KvM03BG, 1; // Starting
+	donpcevent "KvM03R_Croix::OnEnterBG";
+	donpcevent "KvM03R_Guillaume::OnEnterBG";
+	donpcevent "KvM03_BG::OnStart";
+	end;
+
+OnStart:
+	announce "Battleground -- Kreiger Von Midgard [1-59] has started!",0,0xC0C0C0;
+	enablenpc "TherapistKvM03a";
+	enablenpc "TherapistKvM03b";
+	disablenpc "VintenarKvM03a";
+	disablenpc "VintenarKvM03b";
+	set $@KvM03BG_Victory, 0;
+	sleep 2000;
+	// Warp Teams
+	bg_warp $@KvM03BG_id1,"bat_c03",53,128;
+	bg_warp $@KvM03BG_id2,"bat_c03",146,55;
+	// ScoreBoard
+	set .Guillaume_Score, 0;
+	set .Croix_Score, 0;
+	initnpctimer;
+	end;
+
+OnTimer5000:
+	areapercentheal "bat_c03",50,123,58,131,100,100;
+	areapercentheal "bat_c03",141,52,149,60,100,100;
+	mapannounce "bat_c03","The Battle will start in 25 seconds!!",1,0xC0C0C0;
+	end;
+
+OnTimer26000:
+	mapannounce "bat_c03","The Battle will start in 4 seconds!!",1,0xC0C0C0;
+	end;
+
+OnTimer27000:
+	donpcevent "::OnKvM03LightA";
+	end;
+
+OnTimer28000:
+	donpcevent "::OnKvM03LightB";
+	end;
+	
+OnTimer29000:
+	donpcevent "::OnKvM03LightC";
+	end;
+
+OnTimer30000:
+	// Team Members
+	set .Guillaume_Count, bg_get_data($@KvM03BG_id1, 0);
+	set .Croix_Count, bg_get_data($@KvM03BG_id2, 0);
+	if( .Guillaume_Count < 5 || .Croix_Count < 5 )
+	{
+		set $@KvM03BG_Victory, 3;
+		set $@KvM03BG, 3;
+		mapannounce "bat_c03","There are not enough players to start the battle",1,0xC0C0C0;
+		stopnpctimer;
+		sleep 2000;
+		donpcevent "KvM03_BG::OnStop";
+		end;
+	}
+
+	set $@KvM03BG, 2; // Playing
+	areapercentheal "bat_c03",50,123,58,131,100,100;
+	bg_warp $@KvM03BG_id1,"bat_c03",62,119;
+	areapercentheal "bat_c03",141,52,149,60,100,100;
+	bg_warp $@KvM03BG_id2,"bat_c03",137,64;
+	end;
+
+OnTimer32000:
+	mapannounce "bat_c03","The Battle of Kreiger Von Midgard has begun!!",1,0xC0C0C0;
+	end;
+
+OnTimer300000:
+	mapannounce "bat_c03","The Battle will ends in 30 seconds!!",1,0xC0C0C0;
+	end;
+
+OnTimer330000:
+	if( .Croix_Count > .Guillaume_Count )
+		donpcevent "KvM03_BG::OnCroixWin";
+	else if( .Croix_Count < .Guillaume_Count )
+		donpcevent "KvM03_BG::OnGuillaumeWin";
+	else
+	{ // Draw Game
+		set $@KvM03BG, 3;
+		set $@KvM03BG_Victory, 3;
+
+		stopnpctimer;
+		sleep 2000;
+		mapannounce "bat_c03","The time is out! This is a Tie...",1,0xC0C0C0;
+		donpcevent "KvM03_BG::OnStop";
+	}
+	end;
+
+OnGuillaumeWin:
+	set $@KvM03BG, 3;
+	set $@KvM03BG_Victory, 1;
+	
+	stopnpctimer;
+	sleep 2000;
+	mapannounce "bat_c03","The Guillaume Army has won the Battle of Kreiger Von Midgard",1,0x0000FF;
+	donpcevent "KvM03_BG::OnStop";
+	end;
+
+OnCroixWin:
+	set $@KvM03BG, 3;
+	set $@KvM03BG_Victory, 2;
+
+	stopnpctimer;
+	sleep 2000;
+	mapannounce "bat_c03","The Croix Army has won the Battle of Kreiger Von Midgard",1,0xFF0000;
+	donpcevent "KvM03_BG::OnStop";
+	end;
+
+OnStop:
+	disablenpc "TherapistKvM03a";
+	disablenpc "TherapistKvM03b";
+	enablenpc "VintenarKvM03a";
+	enablenpc "VintenarKvM03b";
+	// Warp Teams
+	bg_warp $@KvM03BG_id1,"bat_c03",53,128;
+	bg_warp $@KvM03BG_id2,"bat_c03",146,55;
+	donpcevent "KvM03_BG_Out::OnBegin";
+	end;
+
+OnReset:
+	stopnpctimer;
+	stopnpctimer "KvM03_BG_Out";
+	set .Croix_Count, 0;
+	set .Guillaume_Count, 0;
+	set .Croix_Score, 0;
+	set .Guillaume_Score, 0;
+	set $@KvM03BG_Victory, 0;
+	if( $@KvM03BG_id1 ) { bg_destroy $@KvM03BG_id1; set $@KvM03BG_id1, 0; }
+	if( $@KvM03BG_id2 ) { bg_destroy $@KvM03BG_id2; set $@KvM03BG_id2, 0; }
+	disablenpc "TherapistKvM03a";
+	disablenpc "TherapistKvM03b";
+	disablenpc "VintenarKvM03a";
+	disablenpc "VintenarKvM03b";
+	sleep 1000;
+	mapwarp "bat_c03","bat_room",155,150;
+	sleep 2000;
+	maprespawnguildid "bat_c03",0,3; // Just in case someone else
+	bg_updatescore "bat_c03",0,0;
+	sleep 2000;
+	set $@KvM03BG, 0;
+	donpcevent "KvM03_BG::OnReadyCheck"; // Maybe a game is ready to start
+	end;
+}
+
+-	script	KvM03_BG_Out	-1,{
+	end;
+
+OnBegin:
+	initnpctimer;
+	end;
+
+OnTimer3000:
+	mapannounce "bat_c03","Battle of Kreiger Von Midgard will close in 1 minute!",1,0xC0C0C0;
+	end;
+OnTimer30000:
+	mapannounce "bat_c03","Battle of Kreiger Von Midgard will close in 30 seconds!",1,0xC0C0C0;
+	end;
+OnTimer50000:
+	mapannounce "bat_c03","Battle of Kreiger Von Midgard will close in 10 seconds!",1,0xC0C0C0;
+	end;
+OnTimer60000:
+	donpcevent "KvM03_BG::OnReset";
+	end;
+}
+
+// Battleground Therapist
+// *********************************************************************
+
+bat_c03,51,130,5	script	Therapist in battle::TherapistKvM03a	95,{
+	mes "[Therapist in battle]";
+	mes "Just close your eyes, and take a deep breathe.";
+	mes "You can be free from pain.";
+	specialeffect2 312;
+	close;
+}
+
+bat_c03,148,53,1	script	Therapist in battle::TherapistKvM03b	95,{
+	mes "[Therapist in battle]";
+	mes "Just close your eyes, and take a deep breathe.";
+	mes "You can be free from pain.";
+	specialeffect2 312;
+	close;
+}
+
+// Battleground rewards
+// *********************************************************************
+
+bat_c03,51,130,5	script	Guillaume Vintenar::VintenarKvM03a	419,{
+	if( $@KvM03BG_Victory )
+	{
+		if( $@KvM03BG_Victory == 3 )
+		{
+			setquest 6025;
+			bg_leave;
+			warp "bat_room",155,150;
+			end;
+		}
+		else if( $@KvM03BG_Victory == Bat_Team )
+		{ // Victory
+			set .@Reward, 1;
+			mes "[Swandery]";
+			mes "Blessed Guillaume!!";
+			mes "Let's enjoy our glorious victory!";
+			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			close2;
+		}
+		else
+		{ // 
+			set .@Reward, 0;
+			mes "[Swandery]";
+			mes "You lost, but you're dedicated to this battle.";
+			mes "This is a reward for your great dedication by Guillaume Marollo!";
+			mes "Just take this defeat a lesson, and later you would definitely learn.";
+			close2;
+		}
+
+		setquest 6025;
+		getitem 7773, .@Reward;
+		bg_leave;
+		warp "bat_room",155,150;
+		end;
+	}
+	end;
+}
+
+bat_c03,148,53,1	script	Croix Vintenar::VintenarKvM03b	415,{
+	if( $@KvM03BG_Victory )
+	{
+		if( $@KvM03BG_Victory == 3 )
+		{
+			setquest 6025;
+			bg_leave;
+			warp "bat_room",155,150;
+			end;
+		}
+		else if( $@KvM03BG_Victory == Bat_Team )
+		{ // Victory
+			set .@Reward, 1;
+			mes "[Swandery]";
+			mes "Blessed Croax!!";
+			mes "Let's enjoy our glorious victory!";
+			mes "" + strcharinfo(0) + ", its a sign reflecting victory";
+			close2;
+		}
+		else
+		{ // 
+			set .@Reward, 0;
+			mes "[Swandery]";
+			mes "Oh, " + strcharinfo(0) + ". Don't be sad.";
+			mes "Even though we didn't win, we did our best.";
+			mes "Please don't forget this battle. We can win the next.";
+			close2;
+		}
+
+		setquest 6025;
+		getitem 7773, .@Reward;
+		bg_leave;
+		warp "bat_room",155,150;
+		end;
+	}
+	end;
+}
+
+// MapFlags
+// *********************************************************************
+
+bat_c03	mapflag	battleground	2
+bat_c03	mapflag	nomemo
+bat_c03	mapflag	nosave	SavePoint
+bat_c03	mapflag	noteleport
+bat_c03	mapflag	nowarp
+bat_c03	mapflag	nowarpto
+bat_c03	mapflag	noreturn
+bat_c03	mapflag	nobranch
+bat_c03	mapflag	nopenalty
diff --git a/npc/events/halloween_2008.txt b/npc/events/halloween_2008.txt
index 1ff63a693..778cd0d81 100644
--- a/npc/events/halloween_2008.txt
+++ b/npc/events/halloween_2008.txt
@@ -1,312 +1,312 @@
-//===== eAthena Script =======================================

-//= iRO Halloween (2008)

-//===== By: ==================================================

-//= Kisuka

-//===== Current Version: =====================================

-//= 1.0

-//===== Compatible With: =====================================

-//= eAthena SVN

-//===== Description: =========================================

-//= iRO Halloween (2008)

-//= Run away from the zombies for tickets.

-//= Redeem tickets for prizes.

-//===== Notes: ===============================================

-//= You must enable the event monsters in mob_db2.

-//===== Additional Comments: =================================

-//= 1.0 First version. [Kisuka]

-//============================================================

-

-payon,162,176,4	script	Halloween Magician#iRO08	704,{

-	

-	if(Hallow08 < 1) {

-			mes "[Halloween Magician]";

-			mes "Kkkkkkkkk!";

-			mes "I have a special event this";

-			mes "Halloween that tests your luck and";

-			mes "agility.";

-			mes "Are you interested?";

-			next;

-			mes "[Halloween Magician]";

-			mes "Come on! Don't be a wuss!";

-			mes "If you collect enough tickets";

-			mes "you can get good prizes!";

-			mes "So what do you say?";

-			next;

-			goto MainMenu;

-	}

-

-	if (Hallow08Kill == 1) {

-		mes "[Halloween Magician]";

-		mes "You a 'fraidy cat or something?!";

-		mes "You know you want to try again...";

-		mes "Do you know the rules?";

-		next;

-		set Hallow08Kill,0;

-		if(select("Yes, I know.:No, I don't know.") == 2) {

-			goto Rules;

-		}

-		goto Participate;

-	}

-

-	if (Hallow08Kill == 2) {

-		mes "[Halloween Magician]";

-		mes "Oh, well done! You are alright!";

-		mes "Isn't it fun with zombies??";

-		mes "You know, zombies were people too!";

-		mes "Ha!";

-		mes "Kkkkkkk.";

-		next;

-		getitem 7941,1;

-		set Hallow08Kill,0;

-		mes "[Halloween Magician]";

-		mes "As I promised";

-		mes "You can get Halloween tickets";

-		mes "for cool items.";

-		close;

-	}

-

-	if(Hallow08 > 0) {

-		mes "[Halloween Magician]";

-		mes "Well, do you want to hear the rules";

-		mes "again or,";

-		mes "just get back to it...";

-		next;

-		goto MainMenu2;

-	}

-	

-		Rules:

-			mes "[Halloween Magician]";

-			mes "This village is like a virtual";

-			mes "Payon. There are zombies and ghouls";

-			mes "roaming around";

-			mes "and three southern exits, but only";

-			mes "one works.";

-			mes "That's up to you to find out.";

-			next;

-			mes "[Halloween Magician]";

-			mes "You can't use any skills";

-			mes "to kill the ghouls or zombies.";

-			mes "And one more thing...";

-			mes "you shouldn't forget...";

-			next;

-			mes "[Halloween Magician]";

-			mes "All participants";

-			mes "should be wearing nothing.";

-			mes "Put all belongings in your storage";

-			mes "and come back here when your weight";

-			mes "is '0'.";

-			next;

-			mes "[Halloween Magician]";

-			mes "Oh and one more thing!";

-			mes "You can't be riding a PecoPeco or";

-			mes "have a Cart.";

-			mes "If you are, then I will remove them";

-			mes "before you enter.";

-			mes "Got it?";

-			next;

-			mes "[Halloween Magician]";

-			mes "Remember, there are three exits but";

-			mes "only one works randomly,";

-			mes "the zombies and ghouls roaming";

-			mes "around there can't be killed";

-			mes "and you can't be wearing anything.";

-			next;

-			if (Hallow08 > 0) {

-				mes "[Halloween Magician]";

-				mes "Hey...";

-				mes "Come back once you're ready.";

-				close;

-			}else{

-				goto MainMenu;

-			}

-			

-		Participate:

-			mes "[Halloween Magician]";

-			mes "Ok, you are ready.";

-			mes "Let me check your weight.";

-			next;

-			if (Weight > 0) {

-				mes "[Halloween Magician]";

-				mes "Gosh!";

-				mes "There's always a black sheep";

-				mes "anywhere.";

-				next;

-				mes "[Halloween Magician]";

-				mes "You think I wouldn't notice that";

-				mes "your weight is above '0'?";

-				mes "You're overweight...";

-				close;

-			}else{

-				mes "[Halloween Magician]";

-				mes "You seem good to go,";

-				mes "and your weight is just right.";

-				next;

-				mes "[Halloween Magician]";

-				mes "I was quite swamped with my work,";

-				mes "so I'm exhausted.";

-				next;

-				mes "[Halloween Magician]";

-				mes "I sometimes forget to send you";

-				mes "there...";

-				next;

-				mes "[Halloween Magician]";

-				mes "I hope you come back well.";

-				close2;

-				if (Hallow08 < 1) {

-					set Hallow08,1;

-				}

-				set Hallow08Kill,1;

-				set @Hallow08Warp, rand(1,3);

-				percentheal -98,0;

-				setriding 0;

-				setcart 0;

-				warp "evt_zombie",155,246;

-				end;

-			}

-			

-		TicketExchange:

-			mes "[Halloween Magician]";

-			mes "You want to exchange tickets for";

-			mes "prizes?";

-			mes "Good job! Kkkkkk!";

-			next;

-			mes "[Halloween Magician]";

-			mes "Lemme tell you what items you can";

-			mes "exchange for.";

-			next;

-			mes "[Halloween Magician]";

-			mes "5 tickets for Pumpkin Pie.";

-			mes "20 tickets for Pumpkin-Head.";

-			mes "50 tickets for Old Blue Box.";

-			mes "70 tickets for Old Purple Box.";

-			mes "200 tickets for Old Card Album.";

-			next;

-			mes "[Halloween Magician]";

-			mes "What would you like to exchange";

-			mes "for?";

-			next;

-			switch(select("Pumpkin Pie:Pumpkin-Head:Old Blue Box:Old Purple Box:Old Card Album")) {

-				case 1:

-					if(countitem(7941) < 5) {

-						goto NotEnough;

-					}else{

-						delitem 7941,5;

-						getitem 12192,1;

-						goto Enough;

-					}

-					break;

-				case 2:

-					if(countitem(7941) < 20) {

-						goto NotEnough;

-					}else{

-						delitem 7941,20;

-						getitem 5134,1;

-						goto Enough;

-					}

-					break;

-				case 3:

-					if(countitem(7941) < 50) {

-						goto NotEnough;

-					}else{

-						delitem 7941,50;

-						getitem 603,1;

-						goto Enough;

-					}

-					break;

-				case 4:

-					if(countitem(7941) < 70) {

-						goto NotEnough;

-					}else{

-						delitem 7941,70;

-						getitem 617,1;

-						goto Enough;

-					}

-					break;			

-				case 5:

-					if(countitem(7941) < 200) {

-						goto NotEnough;

-					}else{

-						delitem 7941,200;

-						getitem 616,1;

-						goto Enough;

-					}

-			}

-					

-		NextTime:

-			mes "[Halloween Magician]";

-			mes "Ok, see you then.";

-			mes "Kkkkkkkk.";

-			close;

-

-	MainMenu:

-		menu "Explain it to me.",Rules,"I want to participate.",Participate,"I want to exchange tickets for prizes.",TicketExchange,"I'll come back next time.",NextTime;

-

-	MainMenu2:

-		menu "Get me back there now!",Participate,"Please, tell me the rules",Rules,"I want to exchange tickets for prizes.",TicketExchange,"I'll come back next time.",NextTime;

-

-	NotEnough:

-		mes "[Halloween Magician]";

-		mes "You don't have enough tickets!";

-		mes "Can't you even count?";

-		mes "Please come here with the right";

-		mes "number of tickets.";

-		close;

-

-	Enough:

-		mes "[Halloween Magician]";

-		mes "Here it is.";

-		mes "Do you need...";

-		mes "anything else?";

-		next;

-		if (Hallow08 == 1) {

-			goto MainMenu2;

-		}else{

-			goto MainMenu;

-		}

-}

-	

-// --------------- MapFlags ---------------

-

-evt_zombie	mapflag	nightenabled

-evt_zombie	mapflag	nobranch

-evt_zombie	mapflag	nomemo

-evt_zombie	mapflag	nopenalty

-evt_zombie	mapflag	pvp	off

-evt_zombie	mapflag	noreturn

-evt_zombie	mapflag	nosave	SavePoint

-evt_zombie	mapflag	noskill

-evt_zombie	mapflag	noteleport

-

-evt_zombie,16,142,1	script	zombiewarp001	45,2,2,{

-	OnTouch:

-	if (@Hallow08Warp == 1) {

-		set Hallow08Kill,2;

-		specialeffect 16;

-		warp "payon",28,142;

-	}

-	end;

-}

-

-evt_zombie,122,27,1	script	zombiewarp002	45,2,2,{

-	OnTouch:

-	if (@Hallow08Warp == 2) {

-		set Hallow08Kill,2;

-		specialeffect 16;

-		warp "payon",121,40;

-	}

-	end;

-}

-

-evt_zombie,267,89,1	script	zombiewarp003	45,2,2,{

-	OnTouch:

-	if (@Hallow08Warp == 3) {

-		set Hallow08Kill,2;

-		specialeffect 16;

-		warp "payon",253,95;

-	}

-	end;

-}

-

-evt_zombie,0,0,0,0	monster	Zombie	3000,150,0,0,0

-evt_zombie,0,0,0,0	monster	Ghoul	3001,80,0,0,0

+//===== eAthena Script =======================================
+//= iRO Halloween (2008)
+//===== By: ==================================================
+//= Kisuka
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= iRO Halloween (2008)
+//= Run away from the zombies for tickets.
+//= Redeem tickets for prizes.
+//===== Notes: ===============================================
+//= You must enable the event monsters in mob_db2.
+//===== Additional Comments: =================================
+//= 1.0 First version. [Kisuka]
+//============================================================
+
+payon,162,176,4	script	Halloween Magician#iRO08	704,{
+	
+	if(Hallow08 < 1) {
+			mes "[Halloween Magician]";
+			mes "Kkkkkkkkk!";
+			mes "I have a special event this";
+			mes "Halloween that tests your luck and";
+			mes "agility.";
+			mes "Are you interested?";
+			next;
+			mes "[Halloween Magician]";
+			mes "Come on! Don't be a wuss!";
+			mes "If you collect enough tickets";
+			mes "you can get good prizes!";
+			mes "So what do you say?";
+			next;
+			goto MainMenu;
+	}
+
+	if (Hallow08Kill == 1) {
+		mes "[Halloween Magician]";
+		mes "You a 'fraidy cat or something?!";
+		mes "You know you want to try again...";
+		mes "Do you know the rules?";
+		next;
+		set Hallow08Kill,0;
+		if(select("Yes, I know.:No, I don't know.") == 2) {
+			goto Rules;
+		}
+		goto Participate;
+	}
+
+	if (Hallow08Kill == 2) {
+		mes "[Halloween Magician]";
+		mes "Oh, well done! You are alright!";
+		mes "Isn't it fun with zombies??";
+		mes "You know, zombies were people too!";
+		mes "Ha!";
+		mes "Kkkkkkk.";
+		next;
+		getitem 7941,1;
+		set Hallow08Kill,0;
+		mes "[Halloween Magician]";
+		mes "As I promised";
+		mes "You can get Halloween tickets";
+		mes "for cool items.";
+		close;
+	}
+
+	if(Hallow08 > 0) {
+		mes "[Halloween Magician]";
+		mes "Well, do you want to hear the rules";
+		mes "again or,";
+		mes "just get back to it...";
+		next;
+		goto MainMenu2;
+	}
+	
+		Rules:
+			mes "[Halloween Magician]";
+			mes "This village is like a virtual";
+			mes "Payon. There are zombies and ghouls";
+			mes "roaming around";
+			mes "and three southern exits, but only";
+			mes "one works.";
+			mes "That's up to you to find out.";
+			next;
+			mes "[Halloween Magician]";
+			mes "You can't use any skills";
+			mes "to kill the ghouls or zombies.";
+			mes "And one more thing...";
+			mes "you shouldn't forget...";
+			next;
+			mes "[Halloween Magician]";
+			mes "All participants";
+			mes "should be wearing nothing.";
+			mes "Put all belongings in your storage";
+			mes "and come back here when your weight";
+			mes "is '0'.";
+			next;
+			mes "[Halloween Magician]";
+			mes "Oh and one more thing!";
+			mes "You can't be riding a PecoPeco or";
+			mes "have a Cart.";
+			mes "If you are, then I will remove them";
+			mes "before you enter.";
+			mes "Got it?";
+			next;
+			mes "[Halloween Magician]";
+			mes "Remember, there are three exits but";
+			mes "only one works randomly,";
+			mes "the zombies and ghouls roaming";
+			mes "around there can't be killed";
+			mes "and you can't be wearing anything.";
+			next;
+			if (Hallow08 > 0) {
+				mes "[Halloween Magician]";
+				mes "Hey...";
+				mes "Come back once you're ready.";
+				close;
+			}else{
+				goto MainMenu;
+			}
+			
+		Participate:
+			mes "[Halloween Magician]";
+			mes "Ok, you are ready.";
+			mes "Let me check your weight.";
+			next;
+			if (Weight > 0) {
+				mes "[Halloween Magician]";
+				mes "Gosh!";
+				mes "There's always a black sheep";
+				mes "anywhere.";
+				next;
+				mes "[Halloween Magician]";
+				mes "You think I wouldn't notice that";
+				mes "your weight is above '0'?";
+				mes "You're overweight...";
+				close;
+			}else{
+				mes "[Halloween Magician]";
+				mes "You seem good to go,";
+				mes "and your weight is just right.";
+				next;
+				mes "[Halloween Magician]";
+				mes "I was quite swamped with my work,";
+				mes "so I'm exhausted.";
+				next;
+				mes "[Halloween Magician]";
+				mes "I sometimes forget to send you";
+				mes "there...";
+				next;
+				mes "[Halloween Magician]";
+				mes "I hope you come back well.";
+				close2;
+				if (Hallow08 < 1) {
+					set Hallow08,1;
+				}
+				set Hallow08Kill,1;
+				set @Hallow08Warp, rand(1,3);
+				percentheal -98,0;
+				setriding 0;
+				setcart 0;
+				warp "evt_zombie",155,246;
+				end;
+			}
+			
+		TicketExchange:
+			mes "[Halloween Magician]";
+			mes "You want to exchange tickets for";
+			mes "prizes?";
+			mes "Good job! Kkkkkk!";
+			next;
+			mes "[Halloween Magician]";
+			mes "Lemme tell you what items you can";
+			mes "exchange for.";
+			next;
+			mes "[Halloween Magician]";
+			mes "5 tickets for Pumpkin Pie.";
+			mes "20 tickets for Pumpkin-Head.";
+			mes "50 tickets for Old Blue Box.";
+			mes "70 tickets for Old Purple Box.";
+			mes "200 tickets for Old Card Album.";
+			next;
+			mes "[Halloween Magician]";
+			mes "What would you like to exchange";
+			mes "for?";
+			next;
+			switch(select("Pumpkin Pie:Pumpkin-Head:Old Blue Box:Old Purple Box:Old Card Album")) {
+				case 1:
+					if(countitem(7941) < 5) {
+						goto NotEnough;
+					}else{
+						delitem 7941,5;
+						getitem 12192,1;
+						goto Enough;
+					}
+					break;
+				case 2:
+					if(countitem(7941) < 20) {
+						goto NotEnough;
+					}else{
+						delitem 7941,20;
+						getitem 5134,1;
+						goto Enough;
+					}
+					break;
+				case 3:
+					if(countitem(7941) < 50) {
+						goto NotEnough;
+					}else{
+						delitem 7941,50;
+						getitem 603,1;
+						goto Enough;
+					}
+					break;
+				case 4:
+					if(countitem(7941) < 70) {
+						goto NotEnough;
+					}else{
+						delitem 7941,70;
+						getitem 617,1;
+						goto Enough;
+					}
+					break;			
+				case 5:
+					if(countitem(7941) < 200) {
+						goto NotEnough;
+					}else{
+						delitem 7941,200;
+						getitem 616,1;
+						goto Enough;
+					}
+			}
+					
+		NextTime:
+			mes "[Halloween Magician]";
+			mes "Ok, see you then.";
+			mes "Kkkkkkkk.";
+			close;
+
+	MainMenu:
+		menu "Explain it to me.",Rules,"I want to participate.",Participate,"I want to exchange tickets for prizes.",TicketExchange,"I'll come back next time.",NextTime;
+
+	MainMenu2:
+		menu "Get me back there now!",Participate,"Please, tell me the rules",Rules,"I want to exchange tickets for prizes.",TicketExchange,"I'll come back next time.",NextTime;
+
+	NotEnough:
+		mes "[Halloween Magician]";
+		mes "You don't have enough tickets!";
+		mes "Can't you even count?";
+		mes "Please come here with the right";
+		mes "number of tickets.";
+		close;
+
+	Enough:
+		mes "[Halloween Magician]";
+		mes "Here it is.";
+		mes "Do you need...";
+		mes "anything else?";
+		next;
+		if (Hallow08 == 1) {
+			goto MainMenu2;
+		}else{
+			goto MainMenu;
+		}
+}
+	
+// --------------- MapFlags ---------------
+
+evt_zombie	mapflag	nightenabled
+evt_zombie	mapflag	nobranch
+evt_zombie	mapflag	nomemo
+evt_zombie	mapflag	nopenalty
+evt_zombie	mapflag	pvp	off
+evt_zombie	mapflag	noreturn
+evt_zombie	mapflag	nosave	SavePoint
+evt_zombie	mapflag	noskill
+evt_zombie	mapflag	noteleport
+
+evt_zombie,16,142,1	script	zombiewarp001	45,2,2,{
+	OnTouch:
+	if (@Hallow08Warp == 1) {
+		set Hallow08Kill,2;
+		specialeffect 16;
+		warp "payon",28,142;
+	}
+	end;
+}
+
+evt_zombie,122,27,1	script	zombiewarp002	45,2,2,{
+	OnTouch:
+	if (@Hallow08Warp == 2) {
+		set Hallow08Kill,2;
+		specialeffect 16;
+		warp "payon",121,40;
+	}
+	end;
+}
+
+evt_zombie,267,89,1	script	zombiewarp003	45,2,2,{
+	OnTouch:
+	if (@Hallow08Warp == 3) {
+		set Hallow08Kill,2;
+		specialeffect 16;
+		warp "payon",253,95;
+	}
+	end;
+}
+
+evt_zombie,0,0,0,0	monster	Zombie	3000,150,0,0,0
+evt_zombie,0,0,0,0	monster	Ghoul	3001,80,0,0,0
 evt_zombie,0,0,0,0	monster	Zombie Master	3002,20,0,0,0
\ No newline at end of file
diff --git a/npc/events/halloween_2009.txt b/npc/events/halloween_2009.txt
index 463a2a023..cdabb699c 100644
--- a/npc/events/halloween_2009.txt
+++ b/npc/events/halloween_2009.txt
@@ -1,442 +1,442 @@
-//===== eAthena Script =======================================

-//= iRO Halloween (2009)

-//===== By: ==================================================

-//= Kisuka

-//===== Current Version: =====================================

-//= 1.1

-//===== Compatible With: =====================================

-//= eAthena SVN

-//===== Description: =========================================

-//= iRO Halloween (2009)

-//= Quest for Weird Pumpkin Hat.

-//= Exchange treats for buffs.

-//= Summon event monsters in towns.

-//===== Notes: ===============================================

-//= You must enable the event items in item_db2.

-//= You must enable the event mobs in mob_db2, mob_avail, and

-//= their skills in mob_skill_db2.

-//===== Additional Comments: =================================

-//= 1.0 First version. [Kisuka]

-//= 1.1 Fixed even exploit, fixed mobs overlap. [Lupus]

-//============================================================

-

-// Headgear Quest - Pumpkin Hat

-// ============================

-prontera,152,192,5	script	Pumpkin Hat Researcher	712,{

-	if(BaseLevel < 45) {

-		mes "[Pumpkin Hat Researcher]";

-		mes "Shoo, I don't need a child. Shoo! I don't talk to novices.";

-		next;

-		mes "[Pumpkin Hat Researcher]";

-		mes "Go reach a level that can fight with stronger monsters and come back.";

-		close;

-	}

-	mes "[Pumpkin Hat Researcher]";

-	mes "Say do you like Pumpkin Pies?";

-	next;

-	mes "[Pumpkin Hat Researcher]";

-	mes "I'm a Pumpkin Hat researcher, Why don't you listen to my story?";

-	next;

-	while(1) {

-		switch(select("Listen to the story.:Ask about Pumpkin Hat.:Get a Pumpkin Hat.:Stop the conversation.")) {

-			case 1:

-				mes "[Pumpkin Hat Researcher]";

-				mes "I've been studying about an upgraded Pumpkin Hat.";

-				mes "I have discovered that it is a very simple process.";

-				next;

-				mes "[Pumpkin Hat Researcher]";

-				mes "The process is quite simple.";

-				mes "If you bring me ^4a4aff20 Jack o' Pumpkin^000000 I can show you.";

-				mes "Isn't that a tempting proposal?";

-				next;

-				break;

-			case 2:

-				mes "[Pumpkin Hat Researcher]";

-				mes "This upgraded pumpkin hat is powerful stuff!";

-				next;

-				mes "[Pumpkin Hat Researcher]";

-				mes "It can make a Pumpkin Pie that restores a large percentage of HP & SP using condensed energy to the person who wears it.";

-				next;

-				mes "[Pumpkin Hat Researcher]";

-				mes "All you need is ^4a4aff20 Jack o' Pumpkin^000000s.";

-				next;

-				break;

-			case 3:

-				mes "[Pumpkin Hat Researcher]";

-				mes "Do you want to get Pumpkin Pies? Okay, let me count the Jack o' Pumpkins you've brought.";

-				next;

-				if(countitem(1062) < 20) {

-					mes "[Pumpkin Hat Researcher]";

-					mes "I need ^4a4aff20 Jack o' Pumpkin^000000.";

-					mes "I'm not an alchemist or a wizard to create something from nothing.";

-					next;

-					mes "[Pumpkin Hat Researcher]";

-					mes "Okay, go hunting monsters and come back.";

-					mes "I'm going to stay here for a while so take your time.";

-					next;

-					break;

-				}else{

-					mes "[Pumpkin Hat Researcher]";

-					mes "I hope this will be useful to you. Don't forget to wear it while fighting to get your Pumpkin Pies.";

-					delitem 1062,20;	// Jack o' Pumpkin

-					getitem 5668,1;		// Weird Pumpkin Hat

-					next;

-					mes "[Pumpkin Hat Researcher]";

-					mes "I guess that I should get back to my research.";

-					close;

-				}

-			case 4:

-				mes "[Pumpkin Hat Researcher]";

-				mes "Bye, until we'll see each other again.";

-				mes "I wish you well...";

-				close;

-		}

-	}

-}

-

-// Buffs - Trick or Treaters

-// =========================

--	script	Trick or Treater::09Treats	706,2,2,{

-OnTouch:

-	hideoffnpc strnpcinfo(3);

-	initnpctimer;

-	mes "[Trick or Treater]";

-	mes "Hooray! hooray! Hooray!";

-	mes "Trick or Treat?";

-	next;

-	if(select("Trick.:Treat.") == 1) {

-		mes "[Trick or Treater]";

-		mes "!!!!";

-		mes "Fine. I have no choice but to trick you back!";

-		sc_start SC_Stun,5000,0;

-		close;

-	}

-	mes "[Trick or Treater]";

-	mes "Oh yay! What kind of treat do you have?";

-	next;

-	switch(select("Candy:Candy Cane:Well-baked Cookie:Nothing")) {

-		case 1:

-			if(countitem(529) > 0) {

-				mes "[Trick or Treater]";

-				mes "Yay thank you!";

-				mes "Here, take this for being so nice!";

-				sc_start SC_STRFood, 1800000, 5;

-				sc_start SC_INTFood, 1800000, 5;

-				sc_start SC_VITFood, 1800000, 5;

-				sc_start SC_AGIFood, 1800000, 5;

-				sc_start SC_DEXFood, 1800000, 5;

-				sc_start SC_LUKFood, 1800000, 5;

-				sc_start SC_FLEEFOOD, 1800000, 15;

-				delitem 529,1;	// Candy

-				close;

-			}else{

-				mes "[Trick or Treater]";

-				mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";

-				mes "Fine. I have no choice but to trick you!";

-				sc_start SC_Stun,5000,0;

-				close;

-			}

-		case 2:

-			if(countitem(530) > 0) {

-				mes "[Trick or Treater]";

-				mes "Yay thank you!";

-				mes "Here, take this for being so nice!";

-				sc_start SC_STRFood, 1800000, 5;

-				sc_start SC_INTFood, 1800000, 5;

-				sc_start SC_VITFood, 1800000, 5;

-				sc_start SC_AGIFood, 1800000, 5;

-				sc_start SC_DEXFood, 1800000, 5;

-				sc_start SC_LUKFood, 1800000, 5;

-				sc_start SC_FLEEFOOD, 1800000, 15;

-				delitem 530,1;	// Candy Cane

-				close;

-			}else{

-				mes "[Trick or Treater]";

-				mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";

-				mes "Fine. I have no choice but to trick you!";

-				sc_start SC_Stun,5000,0;

-				close;

-			}	

-		case 3:

-			if(countitem(538) > 0) {

-				mes "[Trick or Treater]";

-				mes "Yay thank you!";

-				mes "Here, take this for being so nice!";

-				sc_start SC_STRFood, 1800000, 5;

-				sc_start SC_INTFood, 1800000, 5;

-				sc_start SC_VITFood, 1800000, 5;

-				sc_start SC_AGIFood, 1800000, 5;

-				sc_start SC_DEXFood, 1800000, 5;

-				sc_start SC_LUKFood, 1800000, 5;

-				sc_start SC_FLEEFOOD, 1800000, 15;

-				delitem 538,1;	// Well-baked Cookie

-				close;

-			}else{

-				mes "[Trick or Treater]";

-				mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";

-				mes "Fine. I have no choice but to trick you!";

-				sc_start SC_Stun,5000,0;

-				close;

-			}	

-		case 4:

-			mes "[Trick or Treater]";

-			mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";

-			mes "Fine. I have no choice but to trick you!";

-			sc_start SC_Stun,5000,0;

-			close;

-	}

-OnInit:

-	hideonnpc "Trick or Treater#iRO1";

-	hideonnpc "Trick or Treater#iRO2";

-	hideonnpc "Trick or Treater#iRO3";

-	hideonnpc "Trick or Treater#iRO4";

-	hideonnpc "Trick or Treater#iRO5";

-	hideonnpc "Trick or Treater#iRO6";

-	hideonnpc "Trick or Treater#iRO7";

-	hideonnpc "Trick or Treater#iRO8";

-	end;

-	

-OnEnableTreat:

-	enablenpc strnpcinfo(3);

-	hideonnpc strnpcinfo(3);

-	end;

-	

-OnTimer15000:

-	hideonnpc strnpcinfo(3);

-	disablenpc strnpcinfo(3);

-	end;

-		

-OnTimer300000:

-	donpcevent strnpcinfo(3)+"::OnEnableTreat";

-	stopnpctimer;

-	end;

-}

-prontera,151,173,5	duplicate(09Treats)	Trick or Treater#iRO1	706,2,2

-prontera,270,350,5	duplicate(09Treats)	Trick or Treater#iRO2	706,2,2

-prontera,234,310,5	duplicate(09Treats)	Trick or Treater#iRO3	706,2,2

-prontera,156,321,5	duplicate(09Treats)	Trick or Treater#iRO4	706,2,2

-prontera,156,283,5	duplicate(09Treats)	Trick or Treater#iRO5	706,2,2

-prontera,142,214,5	duplicate(09Treats)	Trick or Treater#iRO6	706,2,2

-prontera,134,125,5	duplicate(09Treats)	Trick or Treater#iRO7	706,2,2

-prontera,220,72,5	duplicate(09Treats)	Trick or Treater#iRO8	706,2,2

-

-// Monster Summoning - Halloween Wizard

-// ====================================

--	script	Halloween Wizard#iRO09::09HallowWiz	737,{

-	mes "[Halloween Wizard]";

-	mes "...";

-	mes "Do you want to play a trick on someone?";

-	next;

-	while(1) {

-		switch(select("What trick?:Sure:No.")) {

-			case 1:

-				mes "[Halloween Wizard]";

-				mes "I can summon monsters in other parts of the world with just a few materials.";

-				next;

-				mes "[Halloween Wizard]";

-				mes "Sounds interesting huh?";

-				next;

-				mes "[Halloween Wizard]";

-				mes "If you bring me Fabric, Jack o' Pumpkins, Worn Fabric, or Crushed Pumpkins I can summon the monsters.";

-				next;

-				break;

-			case 2:

-				mes "[Halloween Wizard]";

-				mes "Which town do you want to play a trick on?";

-				next;

-				getmapxy(.@mapname$,.@mapx,.@mapy,0,""+strcharinfo(0)+"");

-				if (.@mapname$ == "prontera") {

-					switch(select("Geffen:Payon:Alberta:Aldebaran")) {

-						case 1:

-							set .@HallowTown,3;

-							break;

-						case 2:

-							set .@HallowTown,2;

-							break;

-						case 3:

-							set .@HallowTown,4;

-							break;

-						case 4:

-							set .@HallowTown,5;

-							break;

-					}

-				}

-				else if (.@mapname$ == "payon") {

-					switch(select("Prontera:Geffen:Alberta:Aldebaran")) {

-						case 1:

-							set .@HallowTown,1;

-							break;

-						case 2:

-							set .@HallowTown,3;

-							break;

-						case 3:

-							set .@HallowTown,4;

-							break;

-						case 4:

-							set .@HallowTown,5;

-							break;

-					}

-				}

-				else if (.@mapname$ == "geffen") {

-					switch(select("Prontera:Payon:Alberta:Aldebaran")) {

-						case 1:

-							set .@HallowTown,1;

-							break;

-						case 2:

-							set .@HallowTown,2;

-							break;

-						case 3:

-							set .@HallowTown,4;

-							break;

-						case 4:

-							set .@HallowTown,5;

-							break;

-					}

-				}

-				else if (.@mapname$ == "alberta") {

-					switch(select("Prontera:Geffen:Payon:Aldebaran")) {

-						case 1:

-							set .@HallowTown,1;

-							break;

-						case 2:

-							set .@HallowTown,3;

-							break;

-						case 3:

-							set .@HallowTown,2;

-							break;

-						case 4:

-							set .@HallowTown,5;

-							break;

-					}

-				}

-				else if (.@mapname$ == "aldebaran") {

-					switch(select("Prontera:Geffen:Payon:Alberta")) {

-						case 1:

-							set .@HallowTown,1;

-							break;

-						case 2:

-							set .@HallowTown,3;

-							break;

-						case 3:

-							set .@HallowTown,2;

-							break;

-						case 4:

-							set .@HallowTown,4;

-							break;

-					}

-				}

-				setarray .@HallowTowns$[1],"prontera","payon","geffen","alberta","aldebaran";

-				mes "[Halloween Wizard]";

-				mes "Ok then let's go to the next step.";

-				next;

-				mes "[Halloween Wizard]";

-				mes "How many Fabrics or Jack o' Pumpkins do you want to use? Don't go over 100 because that is the max amount that I can use.";

-				next;

-				input .@input;

-				if (.@input == 0) {

-					mes "[Halloween Wizard]";

-					mes "You have no definite idea.";

-					mes "It's not a big deal.";

-					mes "Let me know.";

-					next;

-					break;

-				}

-				else if (.@input > 100) {

-					mes "[Halloween Wizard]";

-					mes "I told you that it must be between 1 to 100!";

-					mes "You didn't pay attention!";

-					next;

-					break;

-				}

-				else {

-					set .@fabric,countitem(1059);

-					set .@jack,countitem(1062);

-					set .@worn,countitem(6299);

-					set .@crushed,countitem(6298);

-					set .@whispers,0;

-					set .@darklords,0;

-

-					set .@total,.@fabric + .@jack + .@worn + .@crushed;

-

-					if(.@total < .@input) {

-						mes "[Halloween Wizard]";

-						mes "Recount the number of items you have and tell me the total.";

-						mes "Huhuhuhuhuhu...";

-						next;

-						break;

-					}

-

-					if(.@fabric > 0) {

-						if(.@fabric >= .@input) {

-							delitem 1059,.@input;

-							set .@whispers,.@whispers+.@input;

-							set .@input,0;

-						}

-						else{

-							delitem 1059,.@fabric;

-							set .@input,.@input - .@fabric;

-							set .@whispers,.@whispers+.@fabric;

-						}

-					}

-					if(.@worn > 0 && .@input != 0) {

-						if(.@worn >= .@input) {

-							delitem 6299,.@input;

-							set .@whispers,.@whispers+.@input;

-							set .@input,0;

-						}

-						else{

-							delitem 6299,.@worn;

-							set .@input,.@input - .@worn;

-							set .@whispers,.@whispers+.@worn;

-						}

-					}

-					if(.@jack > 0 && .@input != 0) {

-						if(.@jack >= .@input) {

-							delitem 1062,.@input;

-							set .@darklords,.@darklords+.@input;

-							set .@input,0;

-						}

-						else{

-							delitem 1062,.@jack;

-							set .@input,.@input - .@jack;

-							set .@darklords,.@darklords+.@jack;

-						}

-					}

-					if(.@crushed > 0 && .@input != 0) {

-						if(.@crushed >= .@input) {

-							delitem 6298,.@input;

-							set .@darklords,.@darklords+.@input;

-							set .@input,0;

-						}

-						else{

-							delitem 6298,.@crushed;

-							set .@input,.@input - .@crushed;

-							set .@darklords,.@darklords+.@crushed;

-						}

-					}

-					if (.@input > 0) {

-						mes "Theres a problem.";

-						close;

-					}

-					monster ""+.@HallowTowns$[.@HallowTown]+"",0,0,"Halloween Whisper",3014,.@whispers;

-					monster ""+.@HallowTowns$[.@HallowTown]+"",0,0,"Halloween Dark Lord",3015,.@darklords;

-					mes "[Halloween Wizard]";

-					mes "Here's what you wanted.";

-					mes "Imagine what the people must be thinking in the other villages?";

-					mes "Muahahaha";

-					close;

-				}

-			case 3:

-				mes "[Halloween Wizard]";

-				mes "If you change your mind, come back here...";

-				mes "I'll stay here for a while...";

-				mes "Kkkk...";

-				close;

-		}

-	}

-}

-prontera,156,195,5	duplicate(09HallowWiz)	Halloween Wizard#1	737

-geffen,133,122,5	duplicate(09HallowWiz)	Halloween Wizard#2	737

-payon,156,196,5	duplicate(09HallowWiz)	Halloween Wizard#3	737

-alberta,96,57,5	duplicate(09HallowWiz)	Halloween Wizard#4	737

+//===== eAthena Script =======================================
+//= iRO Halloween (2009)
+//===== By: ==================================================
+//= Kisuka
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= iRO Halloween (2009)
+//= Quest for Weird Pumpkin Hat.
+//= Exchange treats for buffs.
+//= Summon event monsters in towns.
+//===== Notes: ===============================================
+//= You must enable the event items in item_db2.
+//= You must enable the event mobs in mob_db2, mob_avail, and
+//= their skills in mob_skill_db2.
+//===== Additional Comments: =================================
+//= 1.0 First version. [Kisuka]
+//= 1.1 Fixed even exploit, fixed mobs overlap. [Lupus]
+//============================================================
+
+// Headgear Quest - Pumpkin Hat
+// ============================
+prontera,152,192,5	script	Pumpkin Hat Researcher	712,{
+	if(BaseLevel < 45) {
+		mes "[Pumpkin Hat Researcher]";
+		mes "Shoo, I don't need a child. Shoo! I don't talk to novices.";
+		next;
+		mes "[Pumpkin Hat Researcher]";
+		mes "Go reach a level that can fight with stronger monsters and come back.";
+		close;
+	}
+	mes "[Pumpkin Hat Researcher]";
+	mes "Say do you like Pumpkin Pies?";
+	next;
+	mes "[Pumpkin Hat Researcher]";
+	mes "I'm a Pumpkin Hat researcher, Why don't you listen to my story?";
+	next;
+	while(1) {
+		switch(select("Listen to the story.:Ask about Pumpkin Hat.:Get a Pumpkin Hat.:Stop the conversation.")) {
+			case 1:
+				mes "[Pumpkin Hat Researcher]";
+				mes "I've been studying about an upgraded Pumpkin Hat.";
+				mes "I have discovered that it is a very simple process.";
+				next;
+				mes "[Pumpkin Hat Researcher]";
+				mes "The process is quite simple.";
+				mes "If you bring me ^4a4aff20 Jack o' Pumpkin^000000 I can show you.";
+				mes "Isn't that a tempting proposal?";
+				next;
+				break;
+			case 2:
+				mes "[Pumpkin Hat Researcher]";
+				mes "This upgraded pumpkin hat is powerful stuff!";
+				next;
+				mes "[Pumpkin Hat Researcher]";
+				mes "It can make a Pumpkin Pie that restores a large percentage of HP & SP using condensed energy to the person who wears it.";
+				next;
+				mes "[Pumpkin Hat Researcher]";
+				mes "All you need is ^4a4aff20 Jack o' Pumpkin^000000s.";
+				next;
+				break;
+			case 3:
+				mes "[Pumpkin Hat Researcher]";
+				mes "Do you want to get Pumpkin Pies? Okay, let me count the Jack o' Pumpkins you've brought.";
+				next;
+				if(countitem(1062) < 20) {
+					mes "[Pumpkin Hat Researcher]";
+					mes "I need ^4a4aff20 Jack o' Pumpkin^000000.";
+					mes "I'm not an alchemist or a wizard to create something from nothing.";
+					next;
+					mes "[Pumpkin Hat Researcher]";
+					mes "Okay, go hunting monsters and come back.";
+					mes "I'm going to stay here for a while so take your time.";
+					next;
+					break;
+				}else{
+					mes "[Pumpkin Hat Researcher]";
+					mes "I hope this will be useful to you. Don't forget to wear it while fighting to get your Pumpkin Pies.";
+					delitem 1062,20;	// Jack o' Pumpkin
+					getitem 5668,1;		// Weird Pumpkin Hat
+					next;
+					mes "[Pumpkin Hat Researcher]";
+					mes "I guess that I should get back to my research.";
+					close;
+				}
+			case 4:
+				mes "[Pumpkin Hat Researcher]";
+				mes "Bye, until we'll see each other again.";
+				mes "I wish you well...";
+				close;
+		}
+	}
+}
+
+// Buffs - Trick or Treaters
+// =========================
+-	script	Trick or Treater::09Treats	706,2,2,{
+OnTouch:
+	hideoffnpc strnpcinfo(3);
+	initnpctimer;
+	mes "[Trick or Treater]";
+	mes "Hooray! hooray! Hooray!";
+	mes "Trick or Treat?";
+	next;
+	if(select("Trick.:Treat.") == 1) {
+		mes "[Trick or Treater]";
+		mes "!!!!";
+		mes "Fine. I have no choice but to trick you back!";
+		sc_start SC_Stun,5000,0;
+		close;
+	}
+	mes "[Trick or Treater]";
+	mes "Oh yay! What kind of treat do you have?";
+	next;
+	switch(select("Candy:Candy Cane:Well-baked Cookie:Nothing")) {
+		case 1:
+			if(countitem(529) > 0) {
+				mes "[Trick or Treater]";
+				mes "Yay thank you!";
+				mes "Here, take this for being so nice!";
+				sc_start SC_STRFood, 1800000, 5;
+				sc_start SC_INTFood, 1800000, 5;
+				sc_start SC_VITFood, 1800000, 5;
+				sc_start SC_AGIFood, 1800000, 5;
+				sc_start SC_DEXFood, 1800000, 5;
+				sc_start SC_LUKFood, 1800000, 5;
+				sc_start SC_FLEEFOOD, 1800000, 15;
+				delitem 529,1;	// Candy
+				close;
+			}else{
+				mes "[Trick or Treater]";
+				mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";
+				mes "Fine. I have no choice but to trick you!";
+				sc_start SC_Stun,5000,0;
+				close;
+			}
+		case 2:
+			if(countitem(530) > 0) {
+				mes "[Trick or Treater]";
+				mes "Yay thank you!";
+				mes "Here, take this for being so nice!";
+				sc_start SC_STRFood, 1800000, 5;
+				sc_start SC_INTFood, 1800000, 5;
+				sc_start SC_VITFood, 1800000, 5;
+				sc_start SC_AGIFood, 1800000, 5;
+				sc_start SC_DEXFood, 1800000, 5;
+				sc_start SC_LUKFood, 1800000, 5;
+				sc_start SC_FLEEFOOD, 1800000, 15;
+				delitem 530,1;	// Candy Cane
+				close;
+			}else{
+				mes "[Trick or Treater]";
+				mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";
+				mes "Fine. I have no choice but to trick you!";
+				sc_start SC_Stun,5000,0;
+				close;
+			}	
+		case 3:
+			if(countitem(538) > 0) {
+				mes "[Trick or Treater]";
+				mes "Yay thank you!";
+				mes "Here, take this for being so nice!";
+				sc_start SC_STRFood, 1800000, 5;
+				sc_start SC_INTFood, 1800000, 5;
+				sc_start SC_VITFood, 1800000, 5;
+				sc_start SC_AGIFood, 1800000, 5;
+				sc_start SC_DEXFood, 1800000, 5;
+				sc_start SC_LUKFood, 1800000, 5;
+				sc_start SC_FLEEFOOD, 1800000, 15;
+				delitem 538,1;	// Well-baked Cookie
+				close;
+			}else{
+				mes "[Trick or Treater]";
+				mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";
+				mes "Fine. I have no choice but to trick you!";
+				sc_start SC_Stun,5000,0;
+				close;
+			}	
+		case 4:
+			mes "[Trick or Treater]";
+			mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat.";
+			mes "Fine. I have no choice but to trick you!";
+			sc_start SC_Stun,5000,0;
+			close;
+	}
+OnInit:
+	hideonnpc "Trick or Treater#iRO1";
+	hideonnpc "Trick or Treater#iRO2";
+	hideonnpc "Trick or Treater#iRO3";
+	hideonnpc "Trick or Treater#iRO4";
+	hideonnpc "Trick or Treater#iRO5";
+	hideonnpc "Trick or Treater#iRO6";
+	hideonnpc "Trick or Treater#iRO7";
+	hideonnpc "Trick or Treater#iRO8";
+	end;
+	
+OnEnableTreat:
+	enablenpc strnpcinfo(3);
+	hideonnpc strnpcinfo(3);
+	end;
+	
+OnTimer15000:
+	hideonnpc strnpcinfo(3);
+	disablenpc strnpcinfo(3);
+	end;
+		
+OnTimer300000:
+	donpcevent strnpcinfo(3)+"::OnEnableTreat";
+	stopnpctimer;
+	end;
+}
+prontera,151,173,5	duplicate(09Treats)	Trick or Treater#iRO1	706,2,2
+prontera,270,350,5	duplicate(09Treats)	Trick or Treater#iRO2	706,2,2
+prontera,234,310,5	duplicate(09Treats)	Trick or Treater#iRO3	706,2,2
+prontera,156,321,5	duplicate(09Treats)	Trick or Treater#iRO4	706,2,2
+prontera,156,283,5	duplicate(09Treats)	Trick or Treater#iRO5	706,2,2
+prontera,142,214,5	duplicate(09Treats)	Trick or Treater#iRO6	706,2,2
+prontera,134,125,5	duplicate(09Treats)	Trick or Treater#iRO7	706,2,2
+prontera,220,72,5	duplicate(09Treats)	Trick or Treater#iRO8	706,2,2
+
+// Monster Summoning - Halloween Wizard
+// ====================================
+-	script	Halloween Wizard#iRO09::09HallowWiz	737,{
+	mes "[Halloween Wizard]";
+	mes "...";
+	mes "Do you want to play a trick on someone?";
+	next;
+	while(1) {
+		switch(select("What trick?:Sure:No.")) {
+			case 1:
+				mes "[Halloween Wizard]";
+				mes "I can summon monsters in other parts of the world with just a few materials.";
+				next;
+				mes "[Halloween Wizard]";
+				mes "Sounds interesting huh?";
+				next;
+				mes "[Halloween Wizard]";
+				mes "If you bring me Fabric, Jack o' Pumpkins, Worn Fabric, or Crushed Pumpkins I can summon the monsters.";
+				next;
+				break;
+			case 2:
+				mes "[Halloween Wizard]";
+				mes "Which town do you want to play a trick on?";
+				next;
+				getmapxy(.@mapname$,.@mapx,.@mapy,0,""+strcharinfo(0)+"");
+				if (.@mapname$ == "prontera") {
+					switch(select("Geffen:Payon:Alberta:Aldebaran")) {
+						case 1:
+							set .@HallowTown,3;
+							break;
+						case 2:
+							set .@HallowTown,2;
+							break;
+						case 3:
+							set .@HallowTown,4;
+							break;
+						case 4:
+							set .@HallowTown,5;
+							break;
+					}
+				}
+				else if (.@mapname$ == "payon") {
+					switch(select("Prontera:Geffen:Alberta:Aldebaran")) {
+						case 1:
+							set .@HallowTown,1;
+							break;
+						case 2:
+							set .@HallowTown,3;
+							break;
+						case 3:
+							set .@HallowTown,4;
+							break;
+						case 4:
+							set .@HallowTown,5;
+							break;
+					}
+				}
+				else if (.@mapname$ == "geffen") {
+					switch(select("Prontera:Payon:Alberta:Aldebaran")) {
+						case 1:
+							set .@HallowTown,1;
+							break;
+						case 2:
+							set .@HallowTown,2;
+							break;
+						case 3:
+							set .@HallowTown,4;
+							break;
+						case 4:
+							set .@HallowTown,5;
+							break;
+					}
+				}
+				else if (.@mapname$ == "alberta") {
+					switch(select("Prontera:Geffen:Payon:Aldebaran")) {
+						case 1:
+							set .@HallowTown,1;
+							break;
+						case 2:
+							set .@HallowTown,3;
+							break;
+						case 3:
+							set .@HallowTown,2;
+							break;
+						case 4:
+							set .@HallowTown,5;
+							break;
+					}
+				}
+				else if (.@mapname$ == "aldebaran") {
+					switch(select("Prontera:Geffen:Payon:Alberta")) {
+						case 1:
+							set .@HallowTown,1;
+							break;
+						case 2:
+							set .@HallowTown,3;
+							break;
+						case 3:
+							set .@HallowTown,2;
+							break;
+						case 4:
+							set .@HallowTown,4;
+							break;
+					}
+				}
+				setarray .@HallowTowns$[1],"prontera","payon","geffen","alberta","aldebaran";
+				mes "[Halloween Wizard]";
+				mes "Ok then let's go to the next step.";
+				next;
+				mes "[Halloween Wizard]";
+				mes "How many Fabrics or Jack o' Pumpkins do you want to use? Don't go over 100 because that is the max amount that I can use.";
+				next;
+				input .@input;
+				if (.@input == 0) {
+					mes "[Halloween Wizard]";
+					mes "You have no definite idea.";
+					mes "It's not a big deal.";
+					mes "Let me know.";
+					next;
+					break;
+				}
+				else if (.@input > 100) {
+					mes "[Halloween Wizard]";
+					mes "I told you that it must be between 1 to 100!";
+					mes "You didn't pay attention!";
+					next;
+					break;
+				}
+				else {
+					set .@fabric,countitem(1059);
+					set .@jack,countitem(1062);
+					set .@worn,countitem(6299);
+					set .@crushed,countitem(6298);
+					set .@whispers,0;
+					set .@darklords,0;
+
+					set .@total,.@fabric + .@jack + .@worn + .@crushed;
+
+					if(.@total < .@input) {
+						mes "[Halloween Wizard]";
+						mes "Recount the number of items you have and tell me the total.";
+						mes "Huhuhuhuhuhu...";
+						next;
+						break;
+					}
+
+					if(.@fabric > 0) {
+						if(.@fabric >= .@input) {
+							delitem 1059,.@input;
+							set .@whispers,.@whispers+.@input;
+							set .@input,0;
+						}
+						else{
+							delitem 1059,.@fabric;
+							set .@input,.@input - .@fabric;
+							set .@whispers,.@whispers+.@fabric;
+						}
+					}
+					if(.@worn > 0 && .@input != 0) {
+						if(.@worn >= .@input) {
+							delitem 6299,.@input;
+							set .@whispers,.@whispers+.@input;
+							set .@input,0;
+						}
+						else{
+							delitem 6299,.@worn;
+							set .@input,.@input - .@worn;
+							set .@whispers,.@whispers+.@worn;
+						}
+					}
+					if(.@jack > 0 && .@input != 0) {
+						if(.@jack >= .@input) {
+							delitem 1062,.@input;
+							set .@darklords,.@darklords+.@input;
+							set .@input,0;
+						}
+						else{
+							delitem 1062,.@jack;
+							set .@input,.@input - .@jack;
+							set .@darklords,.@darklords+.@jack;
+						}
+					}
+					if(.@crushed > 0 && .@input != 0) {
+						if(.@crushed >= .@input) {
+							delitem 6298,.@input;
+							set .@darklords,.@darklords+.@input;
+							set .@input,0;
+						}
+						else{
+							delitem 6298,.@crushed;
+							set .@input,.@input - .@crushed;
+							set .@darklords,.@darklords+.@crushed;
+						}
+					}
+					if (.@input > 0) {
+						mes "Theres a problem.";
+						close;
+					}
+					monster ""+.@HallowTowns$[.@HallowTown]+"",0,0,"Halloween Whisper",3014,.@whispers;
+					monster ""+.@HallowTowns$[.@HallowTown]+"",0,0,"Halloween Dark Lord",3015,.@darklords;
+					mes "[Halloween Wizard]";
+					mes "Here's what you wanted.";
+					mes "Imagine what the people must be thinking in the other villages?";
+					mes "Muahahaha";
+					close;
+				}
+			case 3:
+				mes "[Halloween Wizard]";
+				mes "If you change your mind, come back here...";
+				mes "I'll stay here for a while...";
+				mes "Kkkk...";
+				close;
+		}
+	}
+}
+prontera,156,195,5	duplicate(09HallowWiz)	Halloween Wizard#1	737
+geffen,133,122,5	duplicate(09HallowWiz)	Halloween Wizard#2	737
+payon,156,196,5	duplicate(09HallowWiz)	Halloween Wizard#3	737
+alberta,96,57,5	duplicate(09HallowWiz)	Halloween Wizard#4	737
 aldebaran,146,122,5	duplicate(09HallowWiz)	Halloween Wizard#5	737
\ No newline at end of file
diff --git a/npc/merchants/cash_hair.txt b/npc/merchants/cash_hair.txt
index aea26e5ec..18b0645c7 100644
--- a/npc/merchants/cash_hair.txt
+++ b/npc/merchants/cash_hair.txt
@@ -1,125 +1,125 @@
-//===== eAthena Script ======================================= 

-//= Cash Hair Stylist

-//===== By: ================================================== 

-//= Kisuka

-//===== Current Version: ===================================== 

-//= 1.0

-//===== Compatible With: ===================================== 

-//= eAthena SVN

-//===== Description: ========================================= 

-//= Exchange cash item, New_Style_Coupon, for new hair styles.

-//===== Additional Comments: ================================= 

-//= 1.0 First Version. [Kisuka]

-//============================================================

-

-itemmall,19,74,5	script	Stylist#cash	91,{

-	mes "[Stylist]";

-	mes "Hey, I'm Kaniki.";

-	mes "I'm here to start a new";

-	mes "trend by introducing my";

-	mes "special new hairstyles!";

-	mes "Give me a ^FF0000New Style Coupon^000000,";

-	mes "and I'll change your hair~";

-	next;

-	if (Sex == 1) {

-		mes "[Kaniki]";

-		mes "I have two special";

-		mes "hairstyles for men, the";

-		mes "Emergency Heal Perm";

-		mes "and the Aura Blade Cut.";

-		mes "and aura blade cut.";

-		next;

-		cutin "hair_m_24.bmp",4;

-		mes "[Kaniki]";

-		mes "This is the Emergency";

-		mes "Heal Perm. It's a brand";

-		mes "new style I invented recently.";

-		mes "What do you think? Cool, huh?";

-		next;

-		cutin "",255;

-		cutin "hair_m_25.bmp",4;

-		mes "[Kaniki]";

-		mes "Now this is the Aura";

-		mes "Blade Cut. You haven't";

-		mes "seen anything like it";

-		mes "before, haven't you?";

-		next;

-		cutin "",255;

-	}else{

-		mes "[Kaniki]";

-		mes "I have two new hairstyles for";

-		mes "women, the Assumptio Perm";

-		mes "and the Soul Changer Cut.";

-		mes "Do you want to see how";

-		mes "these styles look?";

-		next;

-		cutin "hair_f_24.bmp",4;

-		mes "[Kaniki]";

-		mes "This is the Assumptio";

-		mes "Perm. It'd really good";

-		mes "on you, wouldn't it?";

-		next;

-		cutin "",255;

-		cutin "hair_f_25.bmp",4;

-		mes "[Kaniki]";

-		mes "Next is the Soul";

-		mes "Changer Cut. What do";

-		mes "you think? Isn't it nice?";

-		next;

-		cutin "",255;

-	}

-	mes "[Kaniki]";

-	mes "Have you decided";

-	mes "if you'd like me to";

-	mes "change your hairstyle?";

-	next;

-	if(select("Change Hairstyle:Don't Change") == 1) {

-		if (countitem(7622) > 0) {

-			mes "[Kaniki]";

-			mes "Great, you brought";

-			mes "a New Style Coupon!";

-			mes "Alright, which hairstyle";

-			mes "did you want to have?";

-			next;

-			if (Sex == 1) {

-				if(select("Emergency Heal Perm:Aura Blade Cut") == 1) {

-					delitem 7622,1;	// New_Style_Coupon

-					setlook 1,24;

-				}else{

-					delitem 7622,1;	// New_Style_Coupon

-					setlook 1,25;

-				}

-			}else{

-				if(select("Assumptio Perm:Soul Changer Cut") == 1) {

-					delitem 7622,1;	// New_Style_Coupon

-					setlook 1,24;

-				}else{

-					delitem 7622,1;	// New_Style_Coupon

-					setlook 1,25;

-				}

-			}

-			mes "[Kaniki]";

-			mes "There--! It's done!";

-			mes "How do you like your";

-			mes "new hair? Well, I hope";

-			mes "to see you again. Take care!";

-			close;

-		}else{

-			mes "[Kaniki]";

-			mes "I'm sorry, but I can";

-			mes "only provide my hairstyling";

-			mes "service if you bring a New";

-			mes "Style Coupon. Please come";

-			mes "back to me after you manage to";

-			mes "get one of those coupons, okay?";

-			close;

-		}

-	}

-	mes "[Kaniki]";

-	mes "Really? Oh, that's too bad.";

-	mes "Well, if you ever change your";

-	mes "mind about updating your";

-	mes "hairstyle, come back";

-	mes "and let me know, okay?";

-	close;

+//===== eAthena Script ======================================= 
+//= Cash Hair Stylist
+//===== By: ================================================== 
+//= Kisuka
+//===== Current Version: ===================================== 
+//= 1.0
+//===== Compatible With: ===================================== 
+//= eAthena SVN
+//===== Description: ========================================= 
+//= Exchange cash item, New_Style_Coupon, for new hair styles.
+//===== Additional Comments: ================================= 
+//= 1.0 First Version. [Kisuka]
+//============================================================
+
+itemmall,19,74,5	script	Stylist#cash	91,{
+	mes "[Stylist]";
+	mes "Hey, I'm Kaniki.";
+	mes "I'm here to start a new";
+	mes "trend by introducing my";
+	mes "special new hairstyles!";
+	mes "Give me a ^FF0000New Style Coupon^000000,";
+	mes "and I'll change your hair~";
+	next;
+	if (Sex == 1) {
+		mes "[Kaniki]";
+		mes "I have two special";
+		mes "hairstyles for men, the";
+		mes "Emergency Heal Perm";
+		mes "and the Aura Blade Cut.";
+		mes "and aura blade cut.";
+		next;
+		cutin "hair_m_24.bmp",4;
+		mes "[Kaniki]";
+		mes "This is the Emergency";
+		mes "Heal Perm. It's a brand";
+		mes "new style I invented recently.";
+		mes "What do you think? Cool, huh?";
+		next;
+		cutin "",255;
+		cutin "hair_m_25.bmp",4;
+		mes "[Kaniki]";
+		mes "Now this is the Aura";
+		mes "Blade Cut. You haven't";
+		mes "seen anything like it";
+		mes "before, haven't you?";
+		next;
+		cutin "",255;
+	}else{
+		mes "[Kaniki]";
+		mes "I have two new hairstyles for";
+		mes "women, the Assumptio Perm";
+		mes "and the Soul Changer Cut.";
+		mes "Do you want to see how";
+		mes "these styles look?";
+		next;
+		cutin "hair_f_24.bmp",4;
+		mes "[Kaniki]";
+		mes "This is the Assumptio";
+		mes "Perm. It'd really good";
+		mes "on you, wouldn't it?";
+		next;
+		cutin "",255;
+		cutin "hair_f_25.bmp",4;
+		mes "[Kaniki]";
+		mes "Next is the Soul";
+		mes "Changer Cut. What do";
+		mes "you think? Isn't it nice?";
+		next;
+		cutin "",255;
+	}
+	mes "[Kaniki]";
+	mes "Have you decided";
+	mes "if you'd like me to";
+	mes "change your hairstyle?";
+	next;
+	if(select("Change Hairstyle:Don't Change") == 1) {
+		if (countitem(7622) > 0) {
+			mes "[Kaniki]";
+			mes "Great, you brought";
+			mes "a New Style Coupon!";
+			mes "Alright, which hairstyle";
+			mes "did you want to have?";
+			next;
+			if (Sex == 1) {
+				if(select("Emergency Heal Perm:Aura Blade Cut") == 1) {
+					delitem 7622,1;	// New_Style_Coupon
+					setlook 1,24;
+				}else{
+					delitem 7622,1;	// New_Style_Coupon
+					setlook 1,25;
+				}
+			}else{
+				if(select("Assumptio Perm:Soul Changer Cut") == 1) {
+					delitem 7622,1;	// New_Style_Coupon
+					setlook 1,24;
+				}else{
+					delitem 7622,1;	// New_Style_Coupon
+					setlook 1,25;
+				}
+			}
+			mes "[Kaniki]";
+			mes "There--! It's done!";
+			mes "How do you like your";
+			mes "new hair? Well, I hope";
+			mes "to see you again. Take care!";
+			close;
+		}else{
+			mes "[Kaniki]";
+			mes "I'm sorry, but I can";
+			mes "only provide my hairstyling";
+			mes "service if you bring a New";
+			mes "Style Coupon. Please come";
+			mes "back to me after you manage to";
+			mes "get one of those coupons, okay?";
+			close;
+		}
+	}
+	mes "[Kaniki]";
+	mes "Really? Oh, that's too bad.";
+	mes "Well, if you ever change your";
+	mes "mind about updating your";
+	mes "hairstyle, come back";
+	mes "and let me know, okay?";
+	close;
 }
\ No newline at end of file