[RO] warp to woe map command + map check

-	script	atcmndwoe	-1,{

	OnWoeCommand:
		for( set .@i, 0; .@i < .map_size; set .@i, .@i + 1 ) {
			if( strcharinfo(3) == .@maps$[.@i] ) {
				dispbottom ""+strcharinfo(0)+" You cant use this command in this map.";
				end;
			}
		}
		warp "sch_gld",293,96;
		end;

	OnInit:
		setarray .map$,
			"schg_cas01", "schg_cas02", "schg_cas03", "schg_cas04", "schg_cas05",
			"arug_cas01", "arug_cas02", "arug_cas03", "arug_cas04", "arug_cas05",
			"prtg_cas01", "prtg_cas02", "prtg_cas03", "prtg_cas04", "prtg_cas05",
			"payg_cas01", "payg_cas02", "payg_cas03", "payg_cas04", "payg_cas05",
			"gefg_cas01", "gefg_cas02", "gefg_cas03", "gefg_cas04", "gefg_cas05",
			"aldeg_cas01", "aldeg_cas02","aldeg_cas03", "aldeg_cas04", "aldeg_cas05"; //Mapas onde o comando é bloqueado.
		.map_size = getarraysize( .map$ );
		bindatcmd("woe","atcmndwoe::OnWoeCommand",0,99);
		end;
}