//===== Hercules Script ======================================
//= elRO Airship
//===== By: ==================================================
//= Draike, Bluto, Hephaestus
//===== Current Version: =====================================
//= 2.2a
//===== Description: =========================================
//= It's the elRO airship. XD
//===== Additional Comments: =================================
//= ALWAYS HAVE AT LEAST TWELVE (12) LOCATIONS AS THE MINIMUM.  This is unless you modify to OnMinutes and change the schedule around.
//= If you have "airplane,103,72,0	warp	airs02a	1,1,airplane,102,200" as a warp, remove it.  Where it's supposed to go, I have no clue.
//= 2.1 Removed Duplicates [Silent]
//= 2.2 Added missing next;'s [Evera]
//============================================================

payon,153,43,5	script	itinsetter	FAKE_NPC,{
	//This is just OnInit stuff to set the hourly intinerary.
OnInit:
	deletearray $locationsname$[0],500;
	deletearray $locationsmap$[0],500;
	deletearray $locationsx[0],500;
	deletearray $locationsy[0],500;
	deletearray $alreadygoneto[0],500;
	setarray $locationsname$[0],"Airport";
	setarray $locationsname$[1],"Prontera";
	setarray $locationsname$[2],"Payon";
	setarray $locationsname$[3],"Aldebaran";
	setarray $locationsname$[4],"Alberta";
	setarray $locationsname$[5],"Geffen";
	setarray $locationsname$[6],"Morocc";
	setarray $locationsname$[7],"Glast Heim";
	setarray $locationsname$[8],"Umbala";
	setarray $locationsname$[9],"Comodo";
	setarray $locationsname$[10],"Amatsu";
	setarray $locationsname$[11],"Niflheim";
	setarray $locationsname$[12],"Lutie";
	setarray $locationsname$[13],"Louyang";
	setarray $locationsname$[14],"Gonryun";
	setarray $locationsname$[15],"Yuno";
	setarray $locationsname$[16],"Ant Hell";
	setarray $locationsname$[17],"Jawaii";
	setarray $locationsname$[18],"Orc Village";
	setarray $locationsname$[19],"Mjolnir Coal Mines";
	setarray $locationsname$[20],"Gefenia Ruins";
	setarray $locationsname$[21],"Ayothaya";
	setarray $locationsname$[22],"Lighthalzen";
	setarray $locationsname$[23],"Juperos";
	setarray $locationsmap$[0],"airport";
	setarray $locationsmap$[1],"prt_fild08";
	setarray $locationsmap$[2],"pay_fild08";
	setarray $locationsmap$[3],"mjolnir_12";
	setarray $locationsmap$[4],"pay_fild03";
	setarray $locationsmap$[5],"gef_fild00";
	setarray $locationsmap$[6],"moc_fild10";
	setarray $locationsmap$[7],"glast_01";
	setarray $locationsmap$[8],"umbala";
	setarray $locationsmap$[9],"comodo";
	setarray $locationsmap$[10],"amatsu";
	setarray $locationsmap$[11],"niflheim";
	setarray $locationsmap$[12],"xmas";
	setarray $locationsmap$[13],"louyang";
	setarray $locationsmap$[14],"gonryun";
	setarray $locationsmap$[15],"yuno";
	setarray $locationsmap$[16],"moc_fild04";
	setarray $locationsmap$[17],"jawaii";
	setarray $locationsmap$[18],"gef_fild10";
	setarray $locationsmap$[19],"mjolnir_02";
	setarray $locationsmap$[20],"gefenia01";
	setarray $locationsmap$[21],"ayothaya";
	setarray $locationsmap$[22],"lighthalzen";
	setarray $locationsmap$[23],"jupe_gate";
	setarray $locationsx[0],148;
	setarray $locationsx[1],206;
	setarray $locationsx[2],159;
	setarray $locationsx[3],62;
	setarray $locationsx[4],194;
	setarray $locationsx[5],50;
	setarray $locationsx[6],163;
	setarray $locationsx[7],196;
	setarray $locationsx[8],187;
	setarray $locationsx[9],203;
	setarray $locationsx[10],115;
	setarray $locationsx[11],132;
	setarray $locationsx[12],232;
	setarray $locationsx[13],36;
	setarray $locationsx[14],82;
	setarray $locationsx[15],58;
	setarray $locationsx[16],209;
	setarray $locationsx[17],248;
	setarray $locationsx[18],158;
	setarray $locationsx[19],76;
	setarray $locationsx[20],98;
	setarray $locationsx[21],183;
	setarray $locationsx[22],99;
	setarray $locationsx[23],46;
	setarray $locationsy[0],45;
	setarray $locationsy[1],280;
	setarray $locationsy[2],92;
	setarray $locationsy[3],381;
	setarray $locationsy[4],182;
	setarray $locationsy[5],365;
	setarray $locationsy[6],172;
	setarray $locationsy[7],327;
	setarray $locationsy[8],98;
	setarray $locationsy[9],76;
	setarray $locationsy[10],79;
	setarray $locationsy[11],241;
	setarray $locationsy[12],308;
	setarray $locationsy[13],279;
	setarray $locationsy[14],96;
	setarray $locationsy[15],194;
	setarray $locationsy[16],326;
	setarray $locationsy[17],175;
	setarray $locationsy[18],95;
	setarray $locationsy[19],363;
	setarray $locationsy[20],21;
	setarray $locationsy[21],104;
	setarray $locationsy[22],240;
	setarray $locationsy[23],19;
	goto resetgoneto;
	end;

setrandomitin:
	set $@settervariable,$@settervariable + 1;
	setarray $locationn[$@settervariable],rand(0,getarraysize($locationsname$) - 1);
	if($alreadygoneto[$locationn[$@settervariable]]==1)set $@settervariable,$@settervariable - 1;
	if($alreadygoneto[$locationn[$@settervariable]]==1)goto setrandomitin;
	setarray $alreadygoneto[$locationn[$@settervariable]], 1;
	if($@settervariable<12)goto setrandomitin;
	end;

resetgoneto:
	deletearray $alreadygoneto[0], 500;
	set $@currenttime, 0;
	goto setrandomitin;

OnMinute00:
	set $@currenttime, 1;
	callfunc "F_Itinreset",12,1,2;

OnMinute03:
	set $destination,250;
	end;

OnMinute05:
	set $@currenttime, 2;
	callfunc "F_Itinreset",1,2,3;

OnMinute08:
	set $destination,250;
	end;

OnMinute10:
	set $@currenttime, 3;
	callfunc "F_Itinreset",2,3,4;

OnMinute13:
	set $destination,250;
	end;

OnMinute15:
	set $@currenttime, 4;
	callfunc "F_Itinreset",3,4,5;

OnMinute18:
	set $destination,250;
	end;

OnMinute20:
	set $@currenttime, 5;
	callfunc "F_Itinreset",4,5,6;

OnMinute23:
	set $destination,250;
	end;

OnMinute25:
	set $@currenttime, 6;
	callfunc "F_Itinreset",5,6,7;

OnMinute28:
	set $destination,250;
	end;

OnMinute30:
	set $@currenttime, 7;
	callfunc "F_Itinreset",6,7,8;

OnMinute33:
	set $destination,250;
	end;

OnMinute35:
	set $@currenttime, 8;
	callfunc "F_Itinreset",7,8,9;

OnMinute38:
	set $destination,250;
	end;

OnMinute40:
	set $@currenttime, 9;
	callfunc "F_Itinreset",8,9,10;

OnMinute43:
	set $destination,250;
	end;

OnMinute45:
	set $@currenttime, 10;
	callfunc "F_Itinreset",9,10,11;

OnMinute48:
	set $destination,250;
	end;

OnMinute50:
	set $@currenttime, 11;
	callfunc "F_Itinreset",10,11,12;

OnMinute53:
	set $destination,250;
	end;

OnMinute55:
	set $@currenttime, 12;
	callfunc "F_Itinreset",11,12,1;

OnMinute58:
	set $destination,250;
	end;
}

function	script	F_Porter	{
	if($destination==getarg(0))goto Board;
	if($destination!=getarg(0))goto Notime;

Board:
	mes "^FF0000[Porter]^000000";
	mes "The plane is currently ported.  Would you like to board?";
	next;
	menu "Yes.",L_Yes,"No.",L_Nope,"View Hourly Itinerary.",Itin;

L_Yes:
	if($destination!=getarg(0))goto Notime;
	warp "airplane", 105, 72;
	specialeffect(EF_CASTSPIN, AREA, playerattached());
L_Nope:
	mes "^FF0000[Porter]^000000";
	mes "Have a good day.  Thank you for traveling with Airship.";
	close;

Notime:
	mes "^FF0000[Porter]^000000";
	if (Sex == SEX_FEMALE)
		mes "Sorry, ma'am, but the plane currently isn't ported.  However, you can view the airplane's hourly itinerary.";
	else
		mes "Sorry, sir, but the plane currently isn't ported.  However, you can view the airplane's hourly itinerary.";
	next;
	menu "Yes, please.",Itin,"No thanks.",L_Nope;
	close;
	end;

Itin:
	mes "^FF0000[Porter]^000000";
	callfunc "F_Itin";
}

airport,153,43,5	script	Airport Porter	4_M_TWBOY,{
	callfunc "F_Porter",0;
}
prt_fild08,206,279,5	script	Porter#01	4_M_TWBOY,{
	callfunc "F_Porter",1;
}
gef_fild00,50,364,5	script	Porter#02	4_M_TWBOY,{
	callfunc "F_Porter",5;
}
moc_fild10,163,173,5	script	Porter#03	4_M_TWBOY,{
	callfunc "F_Porter",6;
}
mjolnir_12,61,380,5	script	Porter#04	4_M_TWBOY,{
	callfunc "F_Porter",3;
}
pay_fild08,159,91,5	script	Porter#05	4_M_TWBOY,{
	callfunc "F_Porter",2;
}
pay_fild03,194,181,5	script	Porter#06	4_M_TWBOY,{
	callfunc "F_Porter",4;
}
glast_01,196,326,1	script	Porter#07	4_M_TWBOY,{
	callfunc "F_Porter",7;
}
umbala,188,98,3	script	Porter#08	4_M_TWBOY,{
	callfunc "F_Porter",8;
}
comodo,203,75,0	script	Porter#09	4_M_TWBOY,{
	callfunc "F_Porter",9;
}
amatsu,115,78,0	script	Porter#10	4_M_TWBOY,{
	callfunc "F_Porter",10;
}
niflheim,132,242,5	script	Porter#11	4_M_TWBOY,{
	callfunc "F_Porter",11;
}
xmas,232,309,5	script	Porter#12	4_M_TWBOY,{
	callfunc "F_Porter",12;
}
louyang,35,279,0	script	Porter#13	4_M_TWBOY,{
	callfunc "F_Porter",13;
}
gonryun,82,95,7	script	Porter#14	4_M_TWBOY,{
	callfunc "F_Porter",14;
}
yuno,58,195,4	script	Porter#15	4_M_TWBOY,{
	callfunc "F_Porter",15;
}
moc_fild04,210,326,2	script	Porter#16	4_M_TWBOY,{
	callfunc "F_Porter",16;
}
jawaii,247,174,7	script	Porter#17	4_M_TWBOY,{
	callfunc "F_Porter",17;
}
gef_fild10,159,95,2	script	Porter#18	4_M_TWBOY,{
	callfunc "F_Porter",18;
}
mjolnir_02,76,364,5	script	Porter#19	4_M_TWBOY,{
	callfunc "F_Porter",19;
}
gefenia01,97,22,6	script	Porter#20	4_M_TWBOY,{
	callfunc "F_Porter",20;
}
ayothaya,182,105,5	script	Porter#21	4_M_TWBOY,{
	callfunc "F_Porter",21;
}
lighthalzen,99,241,4	script	Porter#22	4_M_TWBOY,{
	callfunc "F_Porter",22;
}
jupe_gate,46,18,7	script	Porter#23	4_M_TWBOY,{
	callfunc "F_Porter",23;
}
airport,141,43,5	script	Itinerary Schedule	2_BULLETIN_BOARD,{
	mes "^FF0000[Itinerary]^000000";
	callfunc "F_Itin";
}

airplane,102,68,5	script	Docker	4_M_EIN_SOLDIER,{
	if($destination == 250) goto Nowhere;
	mes "^FF0000[Airplane Attendant]^000000";
	if($destination == 250)goto Notime;
	set @dockky, $destination;
	if($destination != 250)mes "We are currently docked at "+$locationsname$[$destination]+".  Would you like to exit?";
	next;
	menu "Yes.",Lyes,"No.",Lnope;

Lyes:
	if($destination == 250)goto Notime;
	if($destination != @dockky)goto Notime;
	warp $locationsmap$[$destination], $locationsx[$destination], $locationsy[$destination];
	specialeffect(EF_CASTSPIN, AREA, playerattached());

Lnope:
	mes "^FF0000[Airplane Attendant]^000000";
	mes "Have a good day.  Thank you for traveling with us.";
	close;

Notime:
	mes "^FF0000[Airplane Attendant]^000000";
	if (Sex == SEX_FEMALE)
		mes "Sorry, ma'am, but the plane currently isn't docked.  Please wait.";
	else
		mes "Sorry, sir, but the plane currently isn't docked.  Please wait.";
	close;

Nowhere:
	mes "^FF0000[Airplane Attendant]^000000";
	mes "We're currently in air. Please wait until the pilot has announced that we have safely landed.";
	close;
}

function	script	F_Itin	{
	//This is the itinerary's function.  It should work well enough.
	if($@currenttime==0)mes "Try again later.  A recent server reboot or rehash has messed the itinerary up for a bit.";
	if($@currenttime==0)close;
	if($@currenttime==0)end;
	set @tempo, 0;
	set @tempo, $@currenttime - 1;
	goto seta;
	close;

seta:
	set @tempo, @tempo + 1;
	set @time, gettime(GETTIME_HOUR);
	set @minutes, 5 * @tempo - 5;
	set @minutess, 5 * @tempo - 2;
	if(@minutes<10)set @minutes$, "0" + @minutes;
	if(@minutes>9)set @minutes$, @minutes;
	if(@minutess<10)set @minutess$, "0" + @minutess;
	if(@minutess>9)set @minutess$, @minutess;
	if(@time<12)set @time$,@time;
	if(@time==12)set @time$,12;
	if(@time>12)set @time$,@time - 12;
	if(@time<12)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. - "+"^FF0000"+$locationsname$[$locationn[@tempo]]+"^000000";
	if(@time==12)mes @time$+":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
	if(@time>12 && time<24)mes @time$ +":"+ @minutes$ + " P.M. - "+@time$ + ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
	if(@time==24)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
	if(@tempo<12)goto seta;
	set @tempo, 0;
	goto setb;

setb:
	if($@currenttime - 1==@tempo)goto setc;
	set @tempo, @tempo + 1;
	set @time, gettime(GETTIME_HOUR) + 1;
	set @minutes, 5 * @tempo - 5;
	set @minutess, 5 * @tempo - 2;
	if(@minutes<10)set @minutes$, "0" + @minutes;
	if(@minutes>9)set @minutes$, @minutes;
	if(@minutess<10)set @minutess$, "0" + @minutess;
	if(@minutess>9)set @minutess$, @minutess;
	if(@time<12)set @time$,@time;
	if(@time==12)set @time$,12;
	if(@time>12)set @time$,@time - 12;
	if(@time<12)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. - "+"^FF0000"+$locationsname$[$locationn[@tempo]]+"^000000";
	if(@time==12)mes @time$+":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
	if(@time>12 && time<24)mes @time$ +":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
	if(@time==24)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
	goto setb;

setc:
	close;
	end;
}

function	script	F_Itinreset	{
	setarray $alreadygoneto[$locationn[getarg(0)]], 0;
	goto sest;
sest:
	setarray $locationn[getarg(0)],rand(0,getarraysize($locationsname$) - 1);
	if($alreadygoneto[$locationn[getarg(0)]]==1)goto sest;
	setarray $alreadygoneto[$locationn[getarg(0)]], 1;
	set $destination,$locationn[$@currenttime];
	announce "Pilot: The plane has arrived at "+$locationsname$[$locationn[getarg(1)]]+".  Departure to "+ $locationsname$[$locationn[getarg(2)]] + " is in 3 minutes.",16;
	end;
}
