test

//= Global Warp Guild func
function	script	W_Disallow	{
	mes "Désolé mais les chateaux de " + @town_name$ + " sont fermé aujourd'hui à la woe.";
	mes "Ils seront ouvert le " + @day_woe$ + " pour la Woe de " + @hour_start + "H à " + @hour_stop + "H.";
	mes "Ils restent par contre accéssible hors woe pour investire etc.";
	close;
}

function	script	W_Allow	{
	warp @map_name$,@map_warp_x,@map_warp_y;
	end;
}

//= Alde Guild castle warp func
function	script	Alde_Warp_Func	{
	switch(@Alde_castle) {
		case 1:
			set @map_name$, "aldeg_cas01";
			set @map_warp_x, 34;
			set @map_warp_y, 248;
			break;

		case 2:
			set @map_name$, "aldeg_cas02";
			set @map_warp_x, 88;
			set @map_warp_y, 163;
			break;

		case 3:
			set @map_name$, "aldeg_cas03";
			set @map_warp_x, 114;
			set @map_warp_y, 286;
			break;

		case 4:
			set @map_name$, "aldeg_cas04";
			set @map_warp_x, 149;
			set @map_warp_y, 17;
			break;

		case 5:
			set @map_name$, "aldeg_cas05";
			set @map_warp_x, 216;
			set @map_warp_y, 103;
			break;
	}
	callfunc "Alde_Msg_Set";
	callfunc "Alde_Check";
}

function	script	Alde_Msg_Set	{
	set @town_name$, "Al de Baran";
	set @day_woe$, "Jeudi";
	set @hour_start, 20;
	set @hour_stop, 22;
}

function	script	Alde_Check	{
	if((gettime(4)==2) && (gettime(3)>=20 && gettime(3)<22)) callfunc "W_Disallow";
	if((gettime(4)==4) && (gettime(3)>=20 && gettime(3)<22)) callfunc "W_Allow";
	if((gettime(4)==6) && (gettime(3)>=21 && gettime(3)<23)) callfunc "W_Disallow";
	if((gettime(4)==0) && (gettime(3)>=16 && gettime(3)<18)) callfunc "W_Disallow";
	callfunc "W_Allow";
}