prontera,150,190,4	script	test flag 1	722,{
	end;
OnInit:
	.tick = 1000; // 
	.areasize = 3; // the player has to stand in the .times * .tick mili-seconds in the .areasize area to capture this flag pole
	getmapxy .@map$, .@x, .@y, 1;
	while ( true ) {
		getmemberaid AREA, .@map$, .@x - .areasize, .@y - .areasize, .@x + .areasize, .@y + .areasize;
		for ( .@i = 0; .@i < $@onlinecount; .@i++ ) {
			attachrid $@onlineaid[.@i];
			mapannounce .@map$, strcharinfo(0) +" -> "+ strcharinfo(2), bc_map;
		}
		sleep .tick;
	}
	end; // shouldn't reach
}

//	=============================================================

prontera,160,190,4	script	test flag 2	722,{
	end;
OnInit:
	.tick = 1000; // 
	.areasize = 3; // the player has to stand in the .times * .tick mili-seconds in the .areasize area to capture this flag pole
	getmapxy .@map$, .@x, .@y, 1;
	while ( true ) {
		deletearray .@array_gid;
		deletearray .@array_inside;
		getmemberaid AREA, .@map$, .@x - .areasize, .@y - .areasize, .@x + .areasize, .@y + .areasize;
		for ( .@i = 0; .@i < $@onlinecount; .@i++ ) {
			attachrid $@onlineaid[.@i];
			.@j = 0;
			.@size = getarraysize( .@array_gid );
			while ( getcharid(2) != .@array_gid[.@j] && .@j < .@size ) .@j++;
			if ( .@j == .@size ) {
				.@array_gid[ .@size ] = getcharid(2);
				.@array_inside[ .@size ] = 1;
			}
			else
				.@array_inside[ .@j ]++;
		}
		.@size = getarraysize( .@array_gid );
		for ( .@i = 0; .@i < .@size; .@i++ ) {
			mapannounce .@map$, getguildname( .@array_gid[.@i] ) +" has "+ .@array_inside[.@i] +" players standing in", bc_map;
		}
		sleep .tick;
	}
	end; // shouldn't reach
}

//	===================================================================

prontera,150,180,4	script	test flag 3	722,{
	if ( .gid )
		dispbottom "this current flag belongs to "+ getguildname( .gid );
	else
		dispbottom "nobody has claim this flag pole yet";
	end;
OnInit:
	.times = 2;
	.tick = 1000; // 
	.areasize = 3; // the player has to stand in the .times * .tick mili-seconds in the .areasize area to capture this flag pole
	getmapxy .@map$, .@x, .@y, 1;
	while ( true ) {
		deletearray .@array_gid;
		deletearray .@array_inside;
		getmemberaid AREA, .@map$, .@x - .areasize, .@y - .areasize, .@x + .areasize, .@y + .areasize;
		for ( .@i = 0; .@i < $@onlinecount; .@i++ ) {
			attachrid $@onlineaid[.@i];
			.@j = 0;
			.@size = getarraysize( .@array_gid );
			while ( getcharid(2) != .@array_gid[.@j] && .@j < .@size ) .@j++;
			if ( .@j == .@size ) {
				.@array_gid[ .@size ] = getcharid(2);
				.@array_inside[ .@size ] = 1;
			}
			else
				.@array_inside[ .@j ]++;
		}
		.@size = getarraysize( .@array_gid );
//		for ( .@i = 0; .@i < .@size; .@i++ )
//			mapannounce .@map$, getguildname( .@array_gid[ .@idx[.@i] ] ) +" has "+ .@array_inside[ .@idx[.@i] ] +" players standing in", bc_map;
//		announce "tesT "+  .@size +" "+ .@array_gid +" "+ .@high_gid +" "+ .@high_count, 0;
		if ( .@size > 1 )
			.@high_count = 0;		
		else if ( .@size == 1 ) {
			if ( .@array_gid != .@high_gid ) {
				.@high_gid = .@array_gid;
				.@high_count = 0;
			}
			.@high_count++;
			if ( .@high_count == .times && .gid != .@high_gid ) {
				.gid = .@high_gid;
				flagemblem .@high_gid;
				mapannounce .@map$, getguildname( .@high_gid ) +" has capture this flag pole", bc_map;
			}
		}
		sleep .tick;
	}
	end; // shouldn't reach
}