//===== eAthena Script =======================================
//= Global Custom Functions
//===== By: ==================================================
//= Akabane-Kurodo
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 1.0
//===== Description: =========================================
//= <Description>
//===== Additional Comments: =================================
//= 1.0 Ajout des functions pour les warp de castles.
//============================================================

//= 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;
	return;
}

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";
}

//= Gef Guild castle warp func
function	script	Gef_Warp_Func	{
	switch(@Gef_castle) {
		case 2:
			set @map_name$, "gefg_cas02";
			set @map_warp_x, 70;
			set @map_warp_y, 143;
			break;

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

		case 4:
			set @map_name$, "gefg_cas04";
			set @map_warp_x, 24;
			set @map_warp_y, 149;
			break;

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

		case 11:
			set @map_name$, "gefg_cas01";
			set @map_warp_x, 34;
			set @map_warp_y, 140;
			break;

		case 12:
			set @map_name$, "gefg_cas01";
			set @map_warp_x, 95;
			set @map_warp_y, 178;
			break;

		case 31:
			set @map_name$, "gefg_cas03";
			set @map_warp_x, 60;
			set @map_warp_y, 286;
			break;

		case 32:
			set @map_name$, "gefg_cas03";
			set @map_warp_x, 100;
			set @map_warp_y, 280;
			break;

		case 33:
			set @map_name$, "gefg_cas03";
			set @map_warp_x, 125;
			set @map_warp_y, 250;
			break;

		case 34:
			set @map_name$, "gefg_cas03";
			set @map_warp_x, 89;
			set @map_warp_y, 159;
			break;

		case 51:
			set @map_name$, "gefg_cas05";
			set @map_warp_x, 11;
			set @map_warp_y, 134;
			break;

		case 52:
			set @map_name$, "gefg_cas05";
			set @map_warp_x, 99;
			set @map_warp_y, 200;
			break;

	}
	callfunc "Gef_Msg_Set";
	callfunc "Gef_Check";
}

function	script	Gef_Msg_Set	{
	set @town_name$, "Geffen";
	set @day_woe$, "Dimanche";
	set @hour_start, 16;
	set @hour_stop, 18;
	return;
}

function	script	Gef_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_Disallow";
	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_Allow";
	callfunc "W_Allow";
}

//= Pay Guild castle warp func
function	script	Pay_Warp_Func	{
	switch(@Pay_castle) {
		case 1:
			set @map_name$, "payg_cas01";
			set @map_warp_x, 214;
			set @map_warp_y, 48;
			break;

		case 2:
			set @map_name$, "payg_cas02";
			set @map_warp_x, 272;
			set @map_warp_y, 57;
			break;

		case 3:
			set @map_name$, "payg_cas03";
			set @map_warp_x, 226;
			set @map_warp_y, 26;
			break;

		case 4:
			set @map_name$, "payg_cas04";
			set @map_warp_x, 252;
			set @map_warp_y, 271;
			break;

		case 5:
			set @map_name$, "payg_cas05";
			set @map_warp_x, 62;
			set @map_warp_y, 225;
			break;
	}
	callfunc "Pay_Msg_Set";
	callfunc "Pay_Check";
}

function	script	Pay_Msg_Set	{
	set @town_name$, "Payon";
	set @day_woe$, "Mardi";
	set @hour_start, 20;
	set @hour_stop, 22;
	return;
}

function	script	Pay_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_Disallow";
	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_Allow";
	callfunc "W_Allow";
}

//= Prt Guild castle warp func
function	script	Prt_Warp_Func	{
	switch(@Prt_castle) {
		case 1:
			set @map_name$, "prtg_cas01";
			set @map_warp_x, 99;
			set @map_warp_y, 32;
			break;

		case 2:
			set @map_name$, "prtg_cas02";
			set @map_warp_x, 43;
			set @map_warp_y, 229;
			break;

		case 3:
			set @map_name$, "prtg_cas03";
			set @map_warp_x, 168;
			set @map_warp_y, 12;
			break;

		case 4:
			set @map_name$, "prtg_cas04";
			set @map_warp_x, 86;
			set @map_warp_y, 13;
			break;

		case 5:
			set @map_name$, "prtg_cas05";
			set @map_warp_x, 17;
			set @map_warp_y, 235;
			break;
	}
	callfunc "Prt_Msg_Set";
	callfunc "Prt_Check";
}

function	script	Prt_Msg_Set	{
	set @town_name$, "Prontera";
	set @day_woe$, "Samedi";
	set @hour_start, 21;
	set @hour_stop, 23;
	return;
}

function	script	Prt_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_Disallow";
	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_Allow";
	callfunc "W_Allow";
}