2043c95e66
While refactoring those events the following other changes were made: Introducing OnInstanceDestroy event. This event can be used to hook script code right in front of the instance destruction. This can be useful if you have any stored references to an instance id for example. The script command cmdothernpc will now check if the target event exists and report failures. Therefore it now returns true or false. All agit(FE,SE,TE) start and end commands from atcommand and script commands have been merged in their respective guild function which now returns a bool value of true for successful actions and false if it did not succeed(if the specific WoE was [not] running). All global triggered events with mapserver status output now call the same function and therefore have the same mapserver output(including their respective event name of course). Renamed a few events in the script configuration to match the other names Added constants for months and weekdays Additionally added constants for gettime types to make it easier to read. Replaced all existing usages I found with their proper new syntax or better fitting functions.
443 lines
13 KiB
Plaintext
443 lines
13 KiB
Plaintext
//===== rAthena Script =======================================
|
|
//= elRO Airship
|
|
//===== By: ==================================================
|
|
//= Draike, Bluto, Hephaestus
|
|
//===== Current Version: =====================================
|
|
//= 2.2a
|
|
//===== Compatible With: =====================================
|
|
//= rAthena Project
|
|
//===== 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 -1,{
|
|
//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;
|
|
specialeffect2 EF_CASTSPIN;
|
|
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 774,{
|
|
callfunc "F_Porter",0;
|
|
}
|
|
prt_fild08,206,279,5 script Porter#01 774,{
|
|
callfunc "F_Porter",1;
|
|
}
|
|
gef_fild00,50,364,5 script Porter#02 774,{
|
|
callfunc "F_Porter",5;
|
|
}
|
|
moc_fild10,163,173,5 script Porter#03 774,{
|
|
callfunc "F_Porter",6;
|
|
}
|
|
mjolnir_12,61,380,5 script Porter#04 774,{
|
|
callfunc "F_Porter",3;
|
|
}
|
|
pay_fild08,159,91,5 script Porter#05 774,{
|
|
callfunc "F_Porter",2;
|
|
}
|
|
pay_fild03,194,181,5 script Porter#06 774,{
|
|
callfunc "F_Porter",4;
|
|
}
|
|
glast_01,196,326,1 script Porter#07 774,{
|
|
callfunc "F_Porter",7;
|
|
}
|
|
umbala,188,98,3 script Porter#08 774,{
|
|
callfunc "F_Porter",8;
|
|
}
|
|
comodo,203,75,8 script Porter#09 774,{
|
|
callfunc "F_Porter",9;
|
|
}
|
|
amatsu,115,78,8 script Porter#10 774,{
|
|
callfunc "F_Porter",10;
|
|
}
|
|
niflheim,132,242,5 script Porter#11 774,{
|
|
callfunc "F_Porter",11;
|
|
}
|
|
xmas,232,309,5 script Porter#12 774,{
|
|
callfunc "F_Porter",12;
|
|
}
|
|
louyang,35,279,8 script Porter#13 774,{
|
|
callfunc "F_Porter",13;
|
|
}
|
|
gonryun,82,95,7 script Porter#14 774,{
|
|
callfunc "F_Porter",14;
|
|
}
|
|
yuno,58,195,4 script Porter#15 774,{
|
|
callfunc "F_Porter",15;
|
|
}
|
|
moc_fild04,210,326,2 script Porter#16 774,{
|
|
callfunc "F_Porter",16;
|
|
}
|
|
jawaii,247,174,7 script Porter#17 774,{
|
|
callfunc "F_Porter",17;
|
|
}
|
|
gef_fild10,159,95,2 script Porter#18 774,{
|
|
callfunc "F_Porter",18;
|
|
}
|
|
mjolnir_02,76,364,5 script Porter#19 774,{
|
|
callfunc "F_Porter",19;
|
|
}
|
|
gefenia01,97,22,6 script Porter#20 774,{
|
|
callfunc "F_Porter",20;
|
|
}
|
|
ayothaya,182,105,5 script Porter#21 774,{
|
|
callfunc "F_Porter",21;
|
|
}
|
|
lighthalzen,99,241,4 script Porter#22 774,{
|
|
callfunc "F_Porter",22;
|
|
}
|
|
jupe_gate,46,18,7 script Porter#23 774,{
|
|
callfunc "F_Porter",23;
|
|
}
|
|
airport,141,43,5 script Itinerary Schedule 837,{
|
|
mes "^FF0000[Itinerary]^000000";
|
|
callfunc "F_Itin";
|
|
}
|
|
|
|
airplane,102,68,5 script Docker 852,{
|
|
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];
|
|
specialeffect2 EF_CASTSPIN;
|
|
|
|
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(DT_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(DT_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;
|
|
}
|