-	script	custom_bg#control	-1,{
OnInit:
	set .minplayer2start, 2; // minimum player to start ... please do not set to 1
	setarray .rewarditem,
		501, 10, // reward to the winning team
		501, 3; // reward to the losing team
	set .startingscore, 99; // score at start
	set .eventlasting, 120; // event last 120 seconds
	set .red_cloth, 1; // color value from red clothing
	set .blue_cloth, 2; // color value from blue clothing
	set .grey_cloth, 3; // color value from grey clothing
	end;
OnStart:
	if ( getwaitingroomstate( 0, .rednpcname$ ) < .minplayer2start || getwaitingroomstate( 0, .bluenpcname$ ) < .minplayer2start )
		end;
	set .red, waitingroom2bg( "bat_c01",53,128, strnpcinfo(0)+"::OnRedQuit", strnpcinfo(0)+"::OnRedDead", .rednpcname$ );
	copyarray .team1aid[.@i], $@arenamembers[.@i], $@arenamembersnum;
	set .team1count, .minplayer2start;
	set .blue, waitingroom2bg( "bat_c01",146,56, strnpcinfo(0)+"::OnBlueQuit", strnpcinfo(0)+"::OnBlueDead", .bluenpcname$ );
	copyarray .team2aid[.@i], $@arenamembers[.@i], $@arenamembersnum;
	set .team2count, .minplayer2start;
	delwaitingroom .rednpcname$;
	delwaitingroom .bluenpcname$;
	bg_warp .red, "bat_c01", 53,128;
	bg_warp .blue, "bat_c01", 146,56;
	set .score[1], .startingscore;
	set .score[2], .startingscore;
	bg_updatescore "bat_c01", .score[1], .score[2];
	callsub L_setleader, 1;
	callsub L_setleader, 2;
	for ( set .@i, 0; .@i < .minplayer2start; set .@i, .@i +1 ) {
		attachrid .team1aid[.@i];
		@clotes_color = getlook( LOOK_CLOTHES_COLOR );
		setlook LOOK_CLOTHES_COLOR, ( .leader_aid[1] == getcharid(3) )? .grey_cloth : .red_cloth;
	}
	for ( set .@i, 0; .@i < .minplayer2start; set .@i, .@i +1 ) {
		attachrid .team2aid[.@i];
		@clotes_color = getlook( LOOK_CLOTHES_COLOR );
		setlook LOOK_CLOTHES_COLOR, ( .leader_aid[2] == getcharid(3) )? .grey_cloth : .blue_cloth;
	}
	sleep 5000;
	mapannounce "bat_c01", "[Clan War] : Clan with most kills within 2 mins wins!",0;
	set .time, gettimetick(2);
	callsub L_showdigitall, 0, 1;
	sleep .eventlasting * 1000;
	bg_updatescore "bat_c01", .score[1], .score[2];
	if ( .score[1] > .score[2] ) {
		mapannounce "bat_c01", "[Clan War] : The Troll Clan has won the war!", 0;
		callsub L_reward, 1, 0;
		callsub L_reward, 2, 2;
	}
	else if ( .score[1] < .score[2] ) {
		mapannounce "bat_c01", "[Clan War] : The Fairy Clan has won the war!", 0;
		callsub L_reward, 2, 0;
		callsub L_reward, 1, 2;
	}
	else {
		mapannounce "bat_c01", "[Clan War] : The war has been declared draw!",0;
		callsub L_reward, 1, 2;
		callsub L_reward, 2, 2;
	}
	callsub L_showdigitall, gettimetick(2) - .time, 0;
	bg_warp .red, "prontera",152,178;
	bg_warp .blue, "prontera",154,178;
	bg_destroy .red;
	bg_destroy .blue;
	donpcevent .rednpcname$ +"::OnStart";
	donpcevent .bluenpcname$ +"::OnStart";
	set .leader_aid[1], 0;
	set .leader_aid[2], 0;
	for ( set .@i, 0; .@i < .team1count; set .@i, .@i +1 ) {
		attachrid .team1aid[.@i];
		setlook look_clothes_color, @clotes_color;
		@clotes_color = 0;
	}
	for ( set .@i, 0; .@i < .team2count; set .@i, .@i +1 ) {
		attachrid .team2aid[.@i];
		setlook look_clothes_color, @clotes_color;
		@clotes_color = 0;
	}
	end;
L_setleader:
	while ( ( set( .@tmp, getd( ".team"+ getarg(0) +"aid["+ rand( getd(".team"+ getarg(0) +"count") ) +"]" ) ) ) == playerattached() );
	set .leader_aid[ getarg(0) ], .@tmp;
	set .@origin, playerattached();
	attachrid .leader_aid[ getarg(0) ];
	addtimer 1, strnpcinfo(0) +"::Onteam"+ getarg(0) +"leader";
	attachrid .@origin;
	return;
L_showdigitall:
	for ( set .@i, 0; .@i < .team1count; set .@i, .@i +1 ) {
		if ( isloggedin( .team1aid[.@i] ) ) {
			attachrid .team1aid[.@i];
			showdigit getarg(0), getarg(1);
		}
	}
	for ( set .@i, 0; .@i < .team2count; set .@i, .@i +1 ) {
		if ( isloggedin( .team2aid[.@i] ) ) {
			attachrid .team2aid[.@i];
			showdigit getarg(0), getarg(1);
		}
	}
	detachrid;
	return;
L_reward:
	for ( set .@i, 0; .@i < getd(".team"+ getarg(0) +"count"); set .@i, .@i +1 )
		getitem .rewarditem[ getarg(1) ], .rewarditem[ getarg(1) +1 ], getd(".team"+ getarg(0) +"aid["+ .@i +"]" );
	return;
OnRedDead: callsub L_dead, 1;
OnBlueDead: callsub L_dead, 2;
L_dead:
	if ( .leader_aid[ getarg(0) ] != getcharid(3) )
		set .score[ getarg(0) ], .score[ getarg(0) ] -1;
	else {
		callsub L_setleader, getarg(0);
		set .score[ getarg(0) ], .score[ getarg(0) ] -2;
	}
	bg_updatescore "bat_c01", .score[1], .score[2];
	if ( .score[ getarg(0) ] <= 0 )
		awake strnpcinfo(0);
	sleep2 1250;
	percentheal 100,100;
	end;
OnRedQuit: callsub L_quit, 1, .red;
OnBlueQuit: callsub L_quit, 2, .blue;
L_quit:
	percentheal 100, 100;
	while ( getd( ".team"+ getarg(0) +"aid["+ .@i +"]" ) != getcharid(3) && .@i < getd(".team"+ getarg(0) +"count") )
		set .@i, .@i +1;
	deletearray getd( ".team"+ getarg(0) +"aid["+ .@i +"]" ), 1;
	setd ".team"+ getarg(0) +"count", getd(".team"+ getarg(0) +"count") -1;
	if ( .leader_aid[ getarg(0) ] == getcharid(3) )
		callsub L_setleader, getarg(0);
	setlook LOOK_CLOTHES_COLOR, @clotes_color;
	@clotes_color = 0;
	if ( bg_get_data( getarg(1), 0 ) > 1 ) end;
	set .score[ getarg(0) ], 0;
	awake strnpcinfo(0);
	end;
Onteam1leader: callsub L_lead, 1, 548;
Onteam2leader: callsub L_lead, 2, 549;
L_lead:
	while ( .leader_aid[ getarg(0) ] == getcharid(3) ) {
		specialeffect2 getarg(1);
		sleep2 1000;
	}
	end;
}

prontera,150,190,5	script	Troll Clan #custom_bg	468,{
	end;
OnInit:
	sleep 1;
	set getvariableofnpc( .rednpcname$, "custom_bg#control" ), strnpcinfo(0);
OnStart:
	waitingroom "Kill War", getvariableofnpc( .minplayer2start, "custom_bg#control" ) +1, strnpcinfo(0)+"::OnJoin",1;
	end;
OnJoin:
	announce "[Clan War] : Troll Clan side has ["+ getwaitingroomstate(0) +"/"+ getvariableofnpc( .minplayer2start, "custom_bg#control" ) +"] Users. ( Kill War )",0;
	donpcevent "custom_bg#control::OnStart";
	end;
}
prontera,155,190,5	script	Fairy Clan #custom_bg	435,{
	end;
OnInit:
	sleep 1;
	set getvariableofnpc( .bluenpcname$, "custom_bg#control" ), strnpcinfo(0);
OnStart:
	waitingroom "Kill War", getvariableofnpc( .minplayer2start, "custom_bg#control" ) +1, strnpcinfo(0)+"::OnJoin",1;
	end;
OnJoin:
	announce "[Clan War] : Fairy Clan side has ["+ getwaitingroomstate(0) +"/"+ getvariableofnpc( .minplayer2start, "custom_bg#control" ) +"] Users. ( Kill War )",0;
	donpcevent "custom_bg#control::OnStart";
	end;
}

bat_c01	mapflag	battleground	2
bat_c01	mapflag	nosave	SavePoint
bat_c01	mapflag	nowarp
bat_c01	mapflag	nowarpto
bat_c01	mapflag	noteleport
bat_c01	mapflag	nomemo
bat_c01	mapflag	nopenalty
bat_c01	mapflag	nobranch
bat_c01	mapflag	noicewall