summaryrefslogtreecommitdiff
path: root/npc/airports/airships.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/airports/airships.txt')
-rw-r--r--npc/airports/airships.txt1398
1 files changed, 710 insertions, 688 deletions
diff --git a/npc/airports/airships.txt b/npc/airports/airships.txt
index 1477d9510..6f1e1291e 100644
--- a/npc/airports/airships.txt
+++ b/npc/airports/airships.txt
@@ -2,233 +2,291 @@
//= The Airship System Script
//===== By: ==================================================
//= rAthena Dev Team
-//===== Current Version: =====================================
-//= 1.2a
//===== Compatible With: =====================================
-//= rAthena SVN 3422+(Requires jA Script System)
+//= rAthena SVN
//===== Description: =========================================
-//= The Airship System used in the official servers, however this
-//= one is still about 25% custom and is missing some npcs.
+//= The Airship System used in the official servers.
//===== Additional Comments: =================================
-//= 0.1 Added first version, it might be a little buggy [MasterOfMuppets]
-//= 0.1a Fixed the Airport Staff#Iz which was [MasterOfMuppets]
-//= warping you to the same location as Airport Staff#Ein
-//= 0.2 Implemented some more airship NPCs, more are to come.
-//= 0.3 Implemented some more NPCs [MasterOfMuppets]
-//= 0.4 Implemented two mini games scripted by Dj-Yhn [MasterOfMuppets]
-//= 0.5 Removed Duplicates [Silent]
-//= 0.5a Fixed a typo [Evera]
-//= 0.5b Fixed appledice bugs [Lupus]
-//= 0.6 Added Rachel to the international route [Playtester]
-//= 0.7 Implemented Few Missings NPCs like (Pilot, Aanos, etc...).
-//= Corrected Dialogs from some NPCs.
-//= Added sistem to work with the "How Does the Airship Work" Quest [Samuray22]
-//= 0.8 Moved Gambling NPC Kaci since it's part of a quest. [SinSloth]
-//= 0.8b Fixed a Little Bug with the "How Does the Airship Work" Quest. [Samuray22]
-//= 0.9 Fixed a incorrect variable changed form "mob_inv" to "mobinv". [Samuray22]
-//= 0.9b Fixed a typo and bad variable use in the Typing Challenge [ultramage]
-//= 1.0 Fixed bad NPC header data to comply with rev. 11603. [L0ne_W0lf]
-//= 1.1 Touch-ups, and changed references of "Yuno" to "Juno", [L0ne_W0lf]
-//= 1.1a Small fix to comparison check. [Paradox924X]
-//= 1.1b Small fix to zeny check. [Kisuka]
-//= 1.2 Updated some NPCs based on official files. [L0ne_W0lf]
-//= 1.2a Fixed "mobinv" and "mobrand" variables to work with invation. [Slim]
+//= Official NPCs (except apple gambling function).
//============================================================
//============================================================
-//= The Airship System (Juno -> Hugel -> Einbroch -> Lighthalzen -> repeat)
+//= Domestic Airship Route
+//= ... -> Juno -> Einbroch -> Lighthalzen -> Einbroch
+//= -> Juno -> Hugel -> ...
//============================================================
-airplane,243,74,4 script #AirshipWarp-1 45,2,2,{
-OnTouch:
- if($@airplanelocation == 1)warp "einbroch",90,275;
- if($@airplanelocation == 2)warp "yuno",85,265;
- if($@airplanelocation == 3)warp "lighthalzen",302,75;
- if($@airplanelocation == 4)warp "hugel",182,150;
+airplane,243,73,0 script #AirshipWarp-1 45,1,1,{
end;
+OnInit:
OnHide:
misceffect 16;
+ disablenpc strnpcinfo(0);
end;
+
OnUnhide:
+ enablenpc strnpcinfo(0);
misceffect 215;
end;
-}
-airplane,243,29,4 script #AirshipWarp-2 45,2,2,{
OnTouch:
- if($@airplanelocation == 1)warp "einbroch",90,275;
- if($@airplanelocation == 2)warp "yuno",85,265;
- if($@airplanelocation == 3)warp "lighthalzen",302,75;
- if($@airplanelocation == 4)warp "hugel",182,150;
- end;
-
-OnHide:
- misceffect 16;
- end;
-OnUnhide:
- misceffect 215;
- end;
+ switch ($@airplanelocation) {
+ case 0: warp "yuno",92,260; end;
+ case 1: warp "einbroch",92,278; end;
+ case 2: warp "lighthalzen",302,75; end;
+ case 3: warp "hugel",181,146; end;
+ }
}
-airplane,1,1,0 script EinYuno_Airship -1,{
+airplane,243,29,0 duplicate(#AirshipWarp-1) #AirshipWarp-2 45,1,1
+
+airplane,1,1,0 script Domestic_Airship -1,{
+ end;
OnInit:
-while(1)
-{
initnpctimer;
- setnpctimer 0;
- set $@airplanelocation,0;
+ end;
+OnTimer20000:
+ mapannounce "airplane","We are heading to Einbroch.",bc_map,"0x00ff00";
+ end;
+OnTimer50000:
+ mapannounce "airplane","We will arrive in Einbroch shortly.",bc_map,"0x00ff00";
+ end;
+OnTimer60000:
+ set $@airplanelocation,1;
+ donpcevent "#AirshipWarp-1::OnUnhide";
+ donpcevent "#AirshipWarp-2::OnUnhide";
+ mapannounce "airplane","Welcome to Einbroch. Have a safe trip.",bc_map,"0x00ff00";
+ end;
+OnTimer70000:
+ mapannounce "airplane","Currently we are in Einbroch. The Airship will take off shortly.",bc_map,"0x00ff00";
+ end;
+OnTimer80000:
donpcevent "#AirshipWarp-1::OnHide";
donpcevent "#AirshipWarp-2::OnHide";
- disablenpc "#AirshipWarp-1";
- disablenpc "#AirshipWarp-2";
- mapannounce "airplane","The Airship is leaving the ground. Our next destination is Hugel.",bc_map,0xBA55D3;
+ mapannounce "airplane","The Airship is now taking off. Our next destination is Lighthalzen.",bc_map,"0x70dbdb";
end;
-OnTimer15000:
- mapannounce "airplane","We are heading to Hugel.",bc_map,0xBA55D3;
+OnTimer100000:
+ mapannounce "airplane","We are heading to Lighthalzen.",bc_map,"0x70dbdb";
end;
-OnTimer30000:
- mapannounce "airplane","We will arrive in Hugel shortly.",bc_map,0xBA55D3;
+OnTimer130000:
+ mapannounce "airplane","We will arrive in Lighthalzen shortly.",bc_map,"0x70dbdb";
end;
-OnTimer45000:
- set $@airplanelocation,4;
- enablenpc "#AirshipWarp-1";
- enablenpc "#AirshipWarp-2";
+OnTimer140000:
+ set $@airplanelocation,2;
donpcevent "#AirshipWarp-1::OnUnhide";
donpcevent "#AirshipWarp-2::OnUnhide";
- mapannounce "airplane","Welcome to Hugel. Have a safe trip.",bc_map,0xBA55D3;
+ mapannounce "airplane","Welcome to Lighthalzen. Have a safe trip.",bc_map,"0x70dbdb";
end;
-OnTimer55000:
- mapannounce "airplane","Currently, we are in Hugel. The Airship will leave shortly.",bc_map,0xBA55D3;
+OnTimer150000:
+ mapannounce "airplane","Currently we are in Lighthalzen. The Airship will leave shortly.",bc_map,"0x70dbdb";
end;
-OnTimer65000:
- set $@airplanelocation,0;
+OnTimer160000:
donpcevent "#AirshipWarp-1::OnHide";
donpcevent "#AirshipWarp-2::OnHide";
- disablenpc "#AirshipWarp-1";
- disablenpc "#AirshipWarp-2";
- mapannounce "airplane","The Airship is leaving the ground. Our next destination is Einbroch.",bc_map,0x00FF00;
+ mapannounce "airplane","The Airship is leaving the ground. Our next destination is Einbroch.",bc_map,"0x00ff00";
end;
-OnTimer80000:
- mapannounce "airplane","We are heading to Einbroch.",bc_map,0x00FF00;
+OnTimer180000:
+ mapannounce "airplane","We are heading to Einbroch.",bc_map,"0x00ff00";
end;
-OnTimer95000:
- mapannounce "airplane","We will arrive in Einbroch shortly.",bc_map,0x00FF00;
+OnTimer210000:
+ mapannounce "airplane","We will arrive in Einbroch shortly.",bc_map,"0x00FF00";
end;
-OnTimer110000:
+OnTimer220000:
set $@airplanelocation,1;
- enablenpc "#AirshipWarp-1";
- enablenpc "#AirshipWarp-2";
donpcevent "#AirshipWarp-1::OnUnhide";
donpcevent "#AirshipWarp-2::OnUnhide";
- mapannounce "airplane","Welcome to Einbroch. Have a safe trip.",bc_map,0x00FF00;
+ mapannounce "airplane","Welcome to Einbroch. Have a safe trip.",bc_map,"0x00ff00";
end;
-OnTimer120000:
- mapannounce "airplane","Currently, we are in Einbroch. The Airship will take off shortly.",bc_map,0x00FF00;
+OnTimer230000:
+ mapannounce "airplane","Currently we are in Einbroch. The Airship will take off shortly.",bc_map,"0x00ff00";
end;
-OnTimer130000:
+OnTimer240000:
+ donpcevent "#AirshipWarp-1::OnHide";
+ donpcevent "#AirshipWarp-2::OnHide";
+ mapannounce "airplane","The Airship is now taking off. Our next destination is Juno.",bc_map,"0xff8200";
+ end;
+OnTimer260000:
+ mapannounce "airplane","We are heading to Juno.",bc_map,"0xff8200";
+ end;
+OnTimer290000:
+ mapannounce "airplane","We will arrive in Juno shortly.",bc_map,"0xff8200";
+ end;
+OnTimer300000:
set $@airplanelocation,0;
+ donpcevent "#AirshipWarp-1::OnUnhide";
+ donpcevent "#AirshipWarp-2::OnUnhide";
+ mapannounce "airplane","Welcome to Juno. Have a safe trip.",bc_map,"0xff8200";
+ end;
+OnTimer310000:
+ mapannounce "airplane","Currently we are in Juno. The Airship will leave shortly.",bc_map,"0xff8200";
+ end;
+OnTimer320000:
donpcevent "#AirshipWarp-1::OnHide";
donpcevent "#AirshipWarp-2::OnHide";
- disablenpc "#AirshipWarp-1";
- disablenpc "#AirshipWarp-2";
- mapannounce "airplane","The Airship is leaving the ground. Our next destination is Lighthalzen.",bc_map,0xFF8600;
+ mapannounce "airplane","The Airship is leaving the ground. Our next destination is Hugel.",bc_map,"0xca4bf3";
end;
-OnTimer145000:
- mapannounce "airplane","We are heading to Lighthalzen.",bc_map,0xFF8600;
+OnTimer340000:
+ mapannounce "airplane","We are heading to Hugel.",bc_map,"0xca4bf3";
end;
-OnTimer160000:
- mapannounce "airplane","We will arrive in Lighthalzen shortly.",bc_map,0xFF8600;
+OnTimer370000:
+ mapannounce "airplane","We will arrive in Hugel shortly.",bc_map,"0xca4bf3";
end;
-OnTimer175000:
+OnTimer380000:
set $@airplanelocation,3;
- enablenpc "#AirshipWarp-1";
- enablenpc "#AirshipWarp-2";
donpcevent "#AirshipWarp-1::OnUnhide";
donpcevent "#AirshipWarp-2::OnUnhide";
- mapannounce "airplane","Welcome to Lighthalzen. Have a safe trip.",bc_map,0xFF8600;
+ mapannounce "airplane","Welcome to Hugel. Have a safe trip.",bc_map,"0xca4bf3";
end;
-OnTimer185000:
- mapannounce "airplane","Currently, we are in Lighthalzen. The Airship will leave shortly.",bc_map,0xFF8600;
+OnTimer390000:
+ mapannounce "airplane","Currently we are in Hugel. The Airship will leave shortly.",bc_map,"0xca4bf3";
end;
-OnTimer195000:
- set $@airplanelocation,0;
+OnTimer400000:
donpcevent "#AirshipWarp-1::OnHide";
donpcevent "#AirshipWarp-2::OnHide";
- disablenpc "#AirshipWarp-1";
- disablenpc "#AirshipWarp-2";
- mapannounce "airplane","The Airship is now taking off. Our next destination is Juno.",bc_map,0x70DBDB;
+ mapannounce "airplane","The Airship is leaving the ground. Our next destination is Juno.",bc_map,"0xff8200";
end;
-OnTimer210000:
- mapannounce "airplane","We are heading to Juno.",bc_map,0x70DBDB;
+OnTimer420000:
+ mapannounce "airplane","We are heading to Juno.",bc_map,"0xff8200";
end;
-OnTimer225000:
- mapannounce "airplane","We will arrive in Juno shortly.",bc_map,0x70DBDB;
+OnTimer450000:
+ mapannounce "airplane","We will arrive in Juno shortly.",bc_map,"0xff8200";
end;
-OnTimer240000:
- set $@airplanelocation,2;
- enablenpc "#AirshipWarp-1";
- enablenpc "#AirshipWarp-2";
+OnTimer460000:
+ set $@airplanelocation,0;
donpcevent "#AirshipWarp-1::OnUnhide";
donpcevent "#AirshipWarp-2::OnUnhide";
- mapannounce "airplane","Welcome to Juno. Have a safe trip.",bc_map,0x70DBDB;
+ mapannounce "airplane","Welcome to Juno. Have a safe trip.",bc_map,"0xff8200";
end;
-OnTimer250000:
- mapannounce "airplane","Currently, we are in Juno. The Airship will leave shortly.",bc_map,0x70DBDB;
+OnTimer470000:
+ mapannounce "airplane","Currently we are in Juno. The Airship will leave shortly.",bc_map,"0xff8200";
end;
-OnTimer260000:
+OnTimer480000:
+ donpcevent "#AirshipWarp-1::OnHide";
+ donpcevent "#AirshipWarp-2::OnHide";
+ mapannounce "airplane","The Airship is leaving the ground. Our next destination is Einbroch.",bc_map,"0x00ff00";
stopnpctimer;
+ initnpctimer;
}
-}
-
-//C4644E
-//============================================================
-//= Some normal NPCS (airplane)
-//============================================================
-
-airplane,240,64,5 script Exit#01::Exit2 857,{
+airplane,240,64,5 script Exit#airplane1a::ExitAirplane 857,{
end;
}
+airplane,247,64,5 duplicate(ExitAirplane) Exit#airplane1b 857
+airplane,240,40,1 duplicate(ExitAirplane) Exit#airplane2a 857
+airplane,247,40,1 duplicate(ExitAirplane) Exit#airplane2b 857
-airplane,247,64,5 duplicate(Exit2) Exit#02 857
-
-airplane,240,39,1 duplicate(Exit2) Exit#03 857
-
-airplane,247,39,1 duplicate(Exit2) Exit#04 857
-
-airplane,100,69,2 script Airship Crew#01::Airship Crew 852,{
+airplane,100,69,3 script Airship Crew#ein-1 852,{
mes "[Airship Crew]";
mes "If we've landed at";
mes "your destination and";
mes "you'd like to leave the";
mes "Airship, please use the";
mes "stairs up ahead. Thank";
- mes "you for you patronage.";
+ mes "you for your patronage.";
+ close;
+}
+
+airplane,64,94,1 script Umbala Kid#ein_p 787,{
+ emotion e_swt2;
+ mes "[Kid]";
+ if (event_umbala >= 3) {
+ mes "Wow, mom!";
+ mes "L-look at this!";
+ mes "We're flying! W-we're...";
+ mes "We're in the freakin' sky!";
+ }
+ else {
+ mes "Makumalagu!";
+ mes "Saampa joojimbo";
+ mes "kaku na jedi Solo.";
+ mes "Bwahahahahahahaah!";
+ }
+ close;
+}
+
+airplane,66,93,3 script Umbala Lady#ein_p 783,{
+ emotion e_dots;
+ mes "[Lady]";
+ if (event_umbala >= 3) {
+ mes "Shush...";
+ mes "Honey, behave~";
+ mes "Don't act so excited";
+ mes "when we're out in a";
+ mes "public place like this!";
+ }
+ else {
+ mes "Chooktu!";
+ mes "Sacraup matii!";
+ mes "Shaka gurftalfi";
+ mes "huntiki manjoo!";
+ }
+ close;
+}
+
+airplane,71,91,7 script Umbala Man#ein_p 789,{
+ if (event_umbala >= 3) {
+ mes "[Chrmlim]";
+ mes "Hey there~";
+ mes "From that look on";
+ mes "your face, I see that";
+ mes "you can understand";
+ mes "me. ^333333*Whew...!*^000000";
+ next;
+ emotion e_pif;
+ mes "[Chrmlim]";
+ mes "I've been helping the";
+ mes "Airship enterprise by";
+ mes "having the Airship Crewmen";
+ mes "train in Umbala to overcome";
+ mes "any acrophobia they might have through bungee jumping. Neat, eh?";
+ next;
+ mes "[Chrmlim]";
+ mes "But...";
+ mes "Some of them couldn't";
+ mes "overcome their fear of";
+ mes "heights. And a few even";
+ mes "ended up, um, ^333333in Nifflheim^000000.";
+ }
+ else {
+ mes "[Chrmlim]";
+ mes "Bajoo ga";
+ mes "nukta Airship.";
+ next;
+ mes "[Chrmlim]";
+ mes "...";
+ mes "......";
+ next;
+ emotion e_pif;
+ mes "[Chrmlim]";
+ mes "Shabala moow bajama";
+ mes "Airship kulaha googoona ";
+ mes "salu. Dama, kookoo na nu";
+ mes "yukuta. Um, fashuku na ret!";
+ }
close;
}
airplane,250,58,2 script Airship Staff#airplane 67,{
+ // Hugel quest addition
if (hg_ma1 == 3) {
mes "[Airship Staff]";
mes "Welcome";
mes "to the Airship.";
mes "How may I help you?";
next;
- switch(select("Do you have a passenger named Thierry?")) {
- case 1:
- break;
- }
+ select("Do you have a passenger named Thierry?");
mes "[Airship Staff]";
mes "I am sorry, but I do not think that we have a passenger by that name.";
close;
}
+ // Hugel quest end
mes "[Airship Staff]";
mes "Welcome";
mes "to the Airship.";
mes "How may I help you?";
next;
- switch(select("Using the Airship:Captain's Cabin:Facilities:Cancel")) {
+ switch (select("Using the Airship:Captain's Cabin:Facilities:Cancel")) {
case 1:
mes "[Airship Staff]";
mes "When you see a broadcast";
@@ -245,7 +303,7 @@ airplane,250,58,2 script Airship Staff#airplane 67,{
mes "en route and you'll get";
mes "another chance to arrive";
mes "to your intended destination.";
- break;
+ close;
case 2:
mes "[Airship Staff]";
mes "The Captain's Cabin";
@@ -253,7 +311,7 @@ airplane,250,58,2 script Airship Staff#airplane 67,{
mes "of the Airship. There, you";
mes "can meet the captain and";
mes "the pilot of the Airship.";
- break;
+ close;
case 3:
mes "[Airship Staff]";
mes "The Airship provides";
@@ -262,16 +320,15 @@ airplane,250,58,2 script Airship Staff#airplane 67,{
mes "our passengers. We invite";
mes "you to try your luck and skills";
mes "in the Airship's Mini Games~";
- break;
+ close;
case 4:
mes "[Airship Staff]";
mes "Well, I hope you";
mes "your flight aboard";
mes "our Airships. Thank";
mes "you and have a good day.";
- break;
+ close;
}
- close;
}
airplane,80,71,2 script Zerta#01airplane 834,{
@@ -304,6 +361,7 @@ airplane,72,34,6 script Aanos#01airplane 702,{
}
airplane,221,158,2 script Pilot#airplane 852,{
+ // Hugel quest addition
if (hg_ma1 == 3) {
mes "[Pilot]";
mes "I wish that I could go drink a cold fresh beer.";
@@ -315,10 +373,7 @@ airplane,221,158,2 script Pilot#airplane 852,{
mes "But! That makes me want to drink more and more!";
emotion e_sob;
next;
- switch(select("Do you know a passenger named Thierry?")) {
- case 1:
- break;
- }
+ select("Do you know a passenger named Thierry?");
mes "[Pilot]";
mes "This uniform is";
mes "really dapper, but";
@@ -339,8 +394,9 @@ airplane,221,158,2 script Pilot#airplane 852,{
mes "- ...He is not listening to you, at all. -";
close;
}
- set .@pilot,rand(1,4);
- if (.@pilot == 1) {
+ // Hugel quest end
+ switch (rand(1,4)) {
+ case 1:
mes "[Pilot]";
mes "It's been sooo";
mes "long since I've";
@@ -357,16 +413,16 @@ airplane,221,158,2 script Pilot#airplane 852,{
mes "booze, some chips, some TV";
mes "and serius R&R is in order.";
emotion e_sob;
- }
- else if (.@pilot == 2) {
+ close;
+ case 2:
mes "[Pilot]";
mes "Man, the weather";
mes "is really nice today.";
mes "Bright, open skies make";
mes "for some good visibility";
mes "and safe, carefree flying.";
- }
- else if (.@pilot == 3) {
+ close;
+ case 3:
mes "[Pilot]";
mes "You know, our captain's a";
mes "respectable guy. Him and";
@@ -382,8 +438,8 @@ airplane,221,158,2 script Pilot#airplane 852,{
mes "something, getting reindeers";
mes "and elves to work for him.";
mes "The man must be a genius!";
- }
- else {
+ close;
+ default:
mes "[Pilot]";
mes "You know, this whole";
mes "piloting thing in the air,";
@@ -399,156 +455,309 @@ airplane,221,158,2 script Pilot#airplane 852,{
mes "training while the Airships";
mes "were still being invented.";
mes "Isn't that freakin' crazy?!";
+ close;
+ }
+}
+
+airplane,50,66,5 script Apple Merchant#airplane 86,{
+ mes "[Fruitz]";
+ mes "Welcome to Fruitz's";
+ mes "Shop where you can";
+ mes "purchase Apples or grind";
+ mes "them to make Apple Juice.";
+ next;
+ switch (select("Buy Apples.:Make Apple Juice.:Why are you here?:Cancel.")) {
+ case 1:
+ mes "[Fruitz]";
+ mes "Please enter the amount";
+ mes "of Apples that you wish to";
+ mes "buy. Each Apple is 15 zeny";
+ mes "and you can buy a maximum";
+ mes "of 500 at a time. Please enter";
+ mes " '0' to cancel your order.";
+ next;
+ while (1) {
+ input .@input;
+ set .@pay, .@input * 15;
+ if (.@input == 0) {
+ mes "[Fruitz]";
+ mes "Thanks for stopping";
+ mes "by my shop. Farewell!";
+ mes "Come by anytime when";
+ mes "you feel like having an";
+ mes "Apple to snack on~";
+ close;
+ }
+ else if (.@input < 1 || .@input > 500) {
+ mes "[Fruitz]";
+ mes "You've entered a number";
+ mes "higher than the maximum";
+ mes "value of 500. Please enter";
+ mes "the number of Apples you";
+ mes "wish to purchase again.";
+ next;
+ }
+ else {
+ mes "[Fruitz]";
+ mes "A total of ^FF0000" + .@input + "^000000 Apples";
+ mes "will cost you ^FF0000" + .@pay + " Zeny^000000 zeny.";
+ mes "Would you like to continue?";
+ next;
+ if (select("Yes:No") == 2) {
+ mes "[Fruitz]";
+ mes "Thanks for stopping";
+ mes "by my shop. Farewell!";
+ mes "Come by anytime when";
+ mes "you feel like having an";
+ mes "Apple to snack on~";
+ close;
+ }
+ break;
+ }
+ }
+ if (Zeny < .@pay) {
+ mes "[Fruitz]";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to";
+ mes "purchase that many Apples.";
+ mes "Please check your zeny or";
+ mes "purchase fewer Apples.";
+ close;
+ }
+ else if (checkweight(512,.@input) == 0) {
+ mes "[Fruitz]";
+ mes "Hmmm, I don't think";
+ mes "you've got enough room in";
+ mes "your inventory to carry this";
+ mes "many Apples. Why don't you free up some of your inventory space?";
+ close;
+ }
+ else {
+ set Zeny, Zeny - .@pay;
+ getitem 512,.@input; //Apple
+ mes "[Fruitz]";
+ mes "Thanks for stopping by";
+ mes "my shop. I hope you enjoy";
+ mes "the flavor of these Apples~!";
+ close;
+ }
+ case 2:
+ mes "[Fruitz]";
+ mes "Okay, I'll need";
+ mes "^FF00003 Apples and 1 Empty Bottle^000000";
+ mes "to make 1 Apple Juice for you.";
+ mes "Would you like to proceed?";
+ next;
+ switch (select("Yes:No")) {
+ case 1:
+ if (countitem(512) < 3 || countitem(713) < 1) {
+ mes "[Fruitz]";
+ mes "I'm sorry, but you don't";
+ mes "have enough materials to";
+ mes "create a bottle of Apple Juice.";
+ mes "Remember, I need 3 Apples";
+ mes "and 1 Empty Bottle to do it.";
+ close;
+ }
+ else {
+ mes "[Fruitz]";
+ mes "Thank you,";
+ mes "please wait";
+ mes "just a moment.";
+ next;
+ mes "^3355FF*Grind grind*";
+ mes "*Grind grind*";
+ mes "*Clang...!*^000000";
+ next;
+ delitem 512,3; //Apple
+ delitem 713,1; //Empty_Bottle
+ getitem 531,1; //Apple_Juice
+ mes "[Fruitz]";
+ mes "There you go~";
+ mes "I hope you enjoy!";
+ mes "Please feel free to";
+ mes "stop by for your Apple";
+ mes "and Apple Juice needs";
+ mes "at anytime, adventurer~";
+ close;
+ }
+ case 2:
+ mes "[Fruitz]";
+ mes "Thanks for stopping";
+ mes "by my shop. Farewell!";
+ mes "Come by anytime when";
+ mes "you feel like having an";
+ mes "Apple to snack on~";
+ close;
+ }
+ case 3:
+ mes "[Fruitz]";
+ mes "I used to be a wandering";
+ mes "vagabond when, one day,";
+ mes "I took a nap and something";
+ mes "struck my head and awoke";
+ mes "me from my restful slumber.";
+ next;
+ mes "[Fruitz]";
+ mes "It turns out that I was";
+ mes "sleeping beneath an apple";
+ mes "tree and that an apple fell";
+ mes "and hit me on the head.";
+ mes "I was dying of hunger and";
+ mes "was about to eat that Apple...";
+ next;
+ mes "[Fruitz]";
+ mes "But suddenly, Kain, my old";
+ mes "friend from the mining days,";
+ mes "asked me to help him around";
+ mes "on the Airship. So I did, and";
+ mes "it was there where I found some";
+ mes "people playing the Dice game.";
+ next;
+ mes "[Fruitz]";
+ mes "I was bored and curious";
+ mes "and ended up wagering that";
+ mes "single Apple in a game of";
+ mes "dice. But for some reason,";
+ mes "I had this incredible lucky";
+ mes "streak. One apple became two... ";
+ next;
+ mes "[Fruitz]";
+ mes "Two became four and";
+ mes "before I knew it, I had";
+ mes "cornered the Apple market!";
+ mes "I won so many Apples, I just";
+ mes "started my own business here";
+ mes "on the Airship. Weird, huh?";
+ next;
+ mes "[Fruitz]";
+ mes "So Apples are good";
+ mes "for you. They were";
+ mes "certainly very good";
+ mes "to me. Hahahahaah~!";
+ close;
+ case 4:
+ mes "[Fruitz]";
+ mes "Thank you for";
+ mes "using my shop.";
+ mes "Farewell~";
+ close;
}
- close;
}
//============================================================
-//= The Airship System (Izlude -> Juno -> Rachel -> Repeat)
+//= International Airship Route
+//= ... -> Izlude -> Juno -> Rachel -> ...
//============================================================
-airplane_01,243,74,4 script #AirshipWarp-3 45,2,2,{
-OnTouch:
- if($@airplanelocation2 == 1)warp "izlude",202,56;
- if($@airplanelocation2 == 2)warp "yuno",20,265;
- if($@airplanelocation2 == 3)warp "ra_fild12",292,204;
+airplane_01,243,73,0 script #AirshipWarp-3 45,1,1,{
end;
+
+OnTouch:
+ switch ($@airplanelocation2) {
+ case 0: warp "ra_fild12",292,204; end;
+ case 1: warp "izlude",200,56; end;
+ case 2: warp "yuno",12,261; end;
+ }
+OnInit:
OnHide:
misceffect 16;
+ disablenpc strnpcinfo(0);
end;
+
OnUnhide:
+ enablenpc strnpcinfo(0);
misceffect 215;
end;
}
-airplane_01,243,29,4 script #AirshipWarp-4 45,2,2,{
-OnTouch:
- if($@airplanelocation2 == 1)warp "izlude",202,56;
- if($@airplanelocation2 == 2)warp "yuno",20,265;
- if($@airplanelocation2 == 3)warp "ra_fild12",292,204;
- end;
+airplane_01,243,29,0 duplicate(#AirshipWarp-3) #AirshipWarp-4 45,1,1
-OnHide:
- misceffect 16;
+airplane_01,1,1,0 script International_Airship -1,{
end;
-OnUnhide:
- misceffect 215;
- end;
-}
-
-airplane_01,1,1,0 script YunoIzl_Airship -1,{
OnInit:
-while(1)
-{
- disablenpc "Airship#airplane02";
+OnEnable:
initnpctimer;
- setnpctimer 0;
- set $@airplanelocation2,0;
- donpcevent "#AirshipWarp-3::OnHide";
- donpcevent "#AirshipWarp-4::OnHide";
- disablenpc "#AirshipWarp-3";
- disablenpc "#AirshipWarp-4";
- mapannounce "airplane_01","The Airship is leaving the ground. Our next destination is Izlude.",bc_map,0x00FF00;
end;
-OnTimer15000:
- set $@mobinv,$@mobinv+1;
- set $@mobrand,rand(1,3);
- if($@mobinv >= 9 && $@mobrand == 3) {
- stopnpctimer;
- enablenpc "Airship#airplane02";
- donpcevent "Airship#airplane02::OnInvasion";
- }
- mapannounce "airplane_01","We are heading to Izlude.",bc_map,0x00FF00;
+OnTimer25000:
+ mapannounce "airplane_01","We are heading to Izlude.",bc_map,"0x00ff00";
end;
-OnTimer30000:
- mapannounce "airplane_01","We will arrive in Izlude shortly.",bc_map,0x00FF00;
+OnTimer50000:
+ mapannounce "airplane_01","We will arrive in Izlude shortly.",bc_map,"0x00ff00";
end;
-OnTimer45000:
+OnTimer60000:
set $@airplanelocation2,1;
- enablenpc "#AirshipWarp-3";
- enablenpc "#AirshipWarp-4";
donpcevent "#AirshipWarp-3::OnUnhide";
donpcevent "#AirshipWarp-4::OnUnhide";
- mapannounce "airplane_01","Welcome to Izlude. Have a safe trip.",bc_map,0x00FF00;
+ mapannounce "airplane_01","Welcome to Izlude. Have a safe trip.",bc_map,"0x00ff00";
end;
-OnTimer55000:
- mapannounce "airplane_01","Currently, we are in Izlude. The Airship will leave shortly.",bc_map,0x00FF00;
+OnTimer70000:
+ mapannounce "airplane_01","We are currently in Izlude. The Airship will take off shortly.",bc_map,"0x00ff00";
end;
-OnTimer65000:
- set $@airplanelocation2,0;
+OnTimer80000:
donpcevent "#AirshipWarp-3::OnHide";
donpcevent "#AirshipWarp-4::OnHide";
- disablenpc "#AirshipWarp-3";
- disablenpc "#AirshipWarp-4";
- mapannounce "airplane_01","The Airship is leaving the ground. Our next destination is Juno.",bc_map,0x70DBDB;
+ mapannounce "airplane_01","The Airship is now taking off. Our next destination is Juno.",bc_map,"0x70dbdb";
end;
-OnTimer80000:
- mapannounce "airplane_01","We are heading to Juno.",bc_map,0x70DBDB;
+OnTimer105000:
+ mapannounce "airplane_01","We are heading to Juno.",bc_map,"0x70dbdb";
end;
-OnTimer95000:
- mapannounce "airplane_01","We will arrive in Juno shortly.",bc_map,0x70DBDB;
+OnTimer130000:
+ mapannounce "airplane_01","We will arrive in Juno shortly.",bc_map,"0x70dbdb";
end;
-OnTimer110000:
+OnTimer140000:
set $@airplanelocation2,2;
- enablenpc "#AirshipWarp-3";
- enablenpc "#AirshipWarp-4";
donpcevent "#AirshipWarp-3::OnUnhide";
donpcevent "#AirshipWarp-4::OnUnhide";
- mapannounce "airplane_01","Welcome to Juno. Have a safe trip.",bc_map,0x70DBDB;
+ mapannounce "airplane_01","Welcome to Juno. Have a safe trip.",bc_map,"0x70dbdb";
end;
-OnTimer120000:
- mapannounce "airplane_01","Currently, we are in Juno. The Airship will take off shortly.",bc_map,0x70DBDB;
+OnTimer150000:
+ mapannounce "airplane_01","We are currently in Juno. The Airship will leave shorty.",bc_map,"0x70dbdb";
end;
-OnTimer130000:
- set $@airplanelocation2,0;
+OnTimer160000:
donpcevent "#AirshipWarp-3::OnHide";
donpcevent "#AirshipWarp-4::OnHide";
- disablenpc "#AirshipWarp-3";
- disablenpc "#AirshipWarp-4";
- mapannounce "airplane_01","The Airship is leaving the ground. Our next destination is Rachel.",bc_map,0xFF8600;
+ mapannounce "airplane_01","The Airship is leaving the ground. Our next destination is Rachel.",bc_map,"0xFF8200";
end;
-OnTimer145000:
- mapannounce "airplane_01","We are heading to Rachel.",bc_map,0xFF8600;
+OnTimer185000:
+ mapannounce "airplane_01","We are heading to Rachel.",bc_map,"0xFF8200";
end;
-OnTimer160000:
- mapannounce "airplane_01","We will arrive in Rachel shortly.",bc_map,0xFF8600;
+OnTimer210000:
+ mapannounce "airplane_01","We will arrive in Rachel shortly.",bc_map,"0xFF8200";
end;
-OnTimer175000:
- set $@airplanelocation2,3;
- enablenpc "#AirshipWarp-3";
- enablenpc "#AirshipWarp-4";
+OnTimer220000:
+ set $@airplanelocation2,0;
donpcevent "#AirshipWarp-3::OnUnhide";
donpcevent "#AirshipWarp-4::OnUnhide";
- mapannounce "airplane_01","Welcome to Rachel. Have a safe trip.",bc_map,0xFF8600;
+ mapannounce "airplane_01","Welcome to Rachel. Have a safe trip.",bc_map,"0xFF8200";
end;
-OnTimer185000:
- mapannounce "airplane_01","Currently, we are in Rachel. The Airship will leave shortly.",bc_map,0xFF8600;
+OnTimer230000:
+ mapannounce "airplane_01","We are currently in Rachel. The Airship will take off shortly.",bc_map,"0xFF8200";
end;
-OnTimer195000:
- stopnpctimer;
-}
-OnReturn:
- killmonsterall "airplane_01";
- set $@mobinv,0;
- mapannounce "airplane_01","Monster threat nullfied. The Airship is now returning to normal operation.",bc_map,0x00FF00;
- startnpctimer;
+OnTimer240000:
+ donpcevent "#AirshipWarp-3::OnHide";
+ donpcevent "#AirshipWarp-4::OnHide";
+ mapannounce "airplane_01","The Airship is now taking off. Our next destination is Izlude.",bc_map,"0x00ff00";
+ stopnpctimer;
+ set .moninv, .moninv + 1;
+ if (.moninv == 7) {
+ if (rand(1,3) == 3) {
+ donpcevent "Airship#airplane02::OnEnable";
+ end;
+ }
+ set .moninv, 0;
+ }
+ initnpctimer;
end;
}
-//============================================================
-//= Some normal NPCS (airplane_01)
-//============================================================
-
-airplane_01,240,64,5 duplicate(Exit2) Exit#05 857
-
-airplane_01,247,64,5 duplicate(Exit2) Exit#06 857
-
-airplane_01,240,39,1 duplicate(Exit2) Exit#07 857
-
-airplane_01,247,39,1 duplicate(Exit2) Exit#08 857
-
-airplane_01,100,69,2 duplicate(Airship Crew) Airship Crew#02 852
+airplane_01,240,64,5 script Exit#airplane_011a::ExitAirplane01 857,{
+ end;
+}
+airplane_01,247,64,5 duplicate(ExitAirplane01) Exit#airplane_011b 857
+airplane_01,240,40,1 duplicate(ExitAirplane01) Exit#airplane_012a 857
+airplane_01,247,40,1 duplicate(ExitAirplane01) Exit#airplane_012b 857
airplane_01,250,58,2 script Airship Staff#airplane01 67,{
mes "[Airship Staff]";
@@ -556,7 +765,7 @@ airplane_01,250,58,2 script Airship Staff#airplane01 67,{
mes "to the Airship.";
mes "How may I help you?";
next;
- switch(select("Using the Airship:Captain's Cabin:Facilities:Cancel")) {
+ switch (select("Using the Airship:Captain's Cabin:Facilities:Cancel")) {
case 1:
mes "[Airship Staff]";
mes "When you see a broadcast";
@@ -573,7 +782,7 @@ airplane_01,250,58,2 script Airship Staff#airplane01 67,{
mes "en route and you'll get";
mes "another chance to arrive";
mes "to your intended destination.";
- break;
+ close;
case 2:
mes "[Airship Staff]";
mes "The Captain's Cabin";
@@ -581,7 +790,7 @@ airplane_01,250,58,2 script Airship Staff#airplane01 67,{
mes "of the Airship. There, you";
mes "can meet the captain and";
mes "the pilot of the Airship.";
- break;
+ close;
case 3:
mes "[Airship Staff]";
mes "The Airship provides";
@@ -590,20 +799,18 @@ airplane_01,250,58,2 script Airship Staff#airplane01 67,{
mes "our passengers. We invite";
mes "you to try your luck and skills";
mes "in the Airship's Mini Games~";
- break;
+ close;
case 4:
mes "[Airship Staff]";
mes "Well, I hope you";
mes "your flight aboard";
mes "our Airships. Thank";
mes "you and have a good day.";
- break;
+ close;
}
- close;
}
-
-airplane_01,50,66,5 script Apple Merchant#airplane 86,{
+airplane_01,50,66,5 script Apple Merchant#air01 86,{
if (checkweight(1201,1) == 0) {
mes "- Wait a minute !! -";
mes "- Currently you're carrying -";
@@ -618,7 +825,7 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "purchase Apples or grind";
mes "them to make Apple Juice.";
next;
- switch(select("Buy Apples.:Make Apple Juice.:Cancel.")) {
+ switch (select("Buy Apples.:Make Apple Juice.:Cancel.")) {
case 1:
mes "[Meltz]";
mes "Please enter the amount";
@@ -628,9 +835,9 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "of 500 at a time. Please enter";
mes "'0' to cancel your order.";
next;
- while(1) {
- input .@input,0,501;
- set .@pay,.@input*15;
+ while (1) {
+ input .@input;
+ set .@pay, .@input * 15;
if (.@input == 0) {
mes "[Meltz]";
mes "Thanks for stopping";
@@ -640,7 +847,7 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "Apple to snack on~";
close;
}
- else if (.@input < 0 && .@input > 500) {
+ else if (.@input < 1 || .@input > 500) {
mes "[Meltz]";
mes "You've entered a number";
mes "higher than the maximum";
@@ -655,9 +862,7 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "will cost you ^FF0000" + .@pay + "^000000 zeny.";
mes "Would you like to continue?";
next;
- if (select("Yes:No") == 1)
- break;
- else {
+ if (select("Yes:No") == 2) {
mes "[Meltz]";
mes "Thanks for stopping";
mes "by my shop. Farewell!";
@@ -666,6 +871,7 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "Apple to snack on~";
close;
}
+ break;
}
}
if (Zeny < .@pay) {
@@ -686,7 +892,7 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
close;
}
else {
- set zeny,zeny-.@pay;
+ set Zeny, Zeny - .@pay;
getitem 512,.@input; //Apple
mes "[Meltz]";
mes "Thanks for stopping by";
@@ -694,7 +900,6 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "the flavor of these Apples~!";
close;
}
- break;
case 2:
mes "[Meltz]";
mes "Okay, I'll need";
@@ -702,9 +907,9 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "to make 1 Apple Juice for you.";
mes "Would you like to proceed?";
next;
- switch(select("Yes:No")) {
+ switch (select("Yes:No")) {
case 1:
- if ((countitem(512) < 3) || (countitem(713) < 1)) {
+ if (countitem(512) < 3 || countitem(713) < 1) {
mes "[Meltz]";
mes "I'm sorry, but you don't";
mes "have enough materials to";
@@ -729,7 +934,6 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "Please come again.";
close;
}
- break;
case 2:
mes "[Meltz]";
mes "Thanks for stopping";
@@ -739,7 +943,6 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "Apple to snack on~";
close;
}
- break;
case 3:
mes "[Meltz]";
mes "Thanks for stopping";
@@ -747,201 +950,27 @@ airplane_01,50,66,5 script Apple Merchant#airplane 86,{
mes "Come by anytime when";
mes "you feel like having an";
mes "Apple to snack on~";
- break;
+ close;
}
- close;
-}
-
-airplane_01,32,61,4 script Nils#ein 49,{
- callfunc "F_ClearGarbage"; //Clear outdated, unused variables
-loopback:
- mes "[Nils]";
- mes "Welcome to the";
- mes "^FF0000RO Typing Challenge^000000.";
- mes "Would you like to play";
- mes "a quick typing game?";
- next;
- menu "Play ^FF0000RO Typing Challenge^000000",s_Play,"Information",s_Info,"View Top Records",s_Record,"Cancel",-;
-
- mes "[Nils]";
- mes "Feel free to take on the";
- mes "Ro Typing Challenge";
- mes "anytime. I'll be here~";
- close;
-
-s_Play:
- mes "[Nils]";
- mes "Okay, we have";
- mes "a new challenger!";
- mes "Enter the following";
- mes "text as quickly as you";
- mes "can without making any";
- mes "mistakes! Let's start~!";
- next;
- //below arrays are for simplified entering of new lines ;P
-
- //first lines array
- setarray .textstringsa$[0],
- "^00FFFFthkelfkskeldmsiejdlsle^0000FFhfndkelsheidl",
- "^993366hfjdkeldjsieldjs^663366hfjdjeiskdlefvbd",
- "^00FFFFCoboman no chikara-yumei na",
- "^993366belief love luck grimace sweat rush",
- "^00FFFFcallipygian salacious lascivious",
- "^663366uNflAPPaBLe LoVaBLe SeCreTs AnD",
- "^00CCFFburrdingdingdilidingdingphoohudaamb",
- "^FF33CCbarapaphurarlandreamduranbatuhi^990066wooi",
- "^FF33CCLiGhTsPeEd RiGhT SPEed leFT TURn",
- "^00CCFFI'm the King of all Weirdos! Now",
- "^00CCFFBy the power of^000000",
- "^00CCFF...silence. quiet benevolence...";
-
- //second lines array
- setarray .textstringsb$[0],"skemd",
- "",
- "chikara-dalookii na chikara da ze!",
- "folktale rodimus optimus bumblebee",
- "licentious prurient concupiscent",
- "BoWLiNg aGaINST tHe KarMA of YoUtH",
- "andoora^0000FFbambarambambamburanbamding",
- "kabamturubamdingding",
- "RiGhT BuRn OrIGInAL GaNgSteR SmACk",
- "you know of my true power. Obey~!",
- "p-po-poi-po-poi-poin-poing",
- "soul mate... wonder. enigma...";
- //for the few 3-liners... =X
-
- setarray .textstringsc$[0],"",
- "",
- "COBO ON!",
- "",
- "",
- "",
- "",
- "",
- "",
- "",
- "GOD-POING. I NEVER LOSE!",
- "cloud.";
-
- //comparisation strings
- setarray .compstring$[0],
- "thkelfkskeldmsiejdlslehfndkelsheidlskemd",
- "hfjdkeldjsieldjshfjdjeiskdlefvbd",
- "Coboman no chikara-yumei na chikara-dalookii na chikara da ze! COBO ON!",
- "belief love luck grimace sweat rush folktale rodimus optimus bumblebee",
- "callipygian salacious lascivious licentious prurient concupiscent",
- "uNflAPPaBLe LoVaBLe SeCreTs AnD BoWLiNg aGaINST tHe KarMA of YoUtH",
- "burrdindingdilidingdingphoohudaambandoorabambarambambamburanbamding",
- "barapaphurarlandreamduranbatuhiwooikabamturubamdingding",
- "LiGhTsPeEd RiGhT SPEed leFT TURn RiGhT BuRn OrIGInAL GaNgSteR SmACk",
- "I'm the King of all Weirdos! Now you know of my true power. Obey~!",
- "By the power of p-po-poi-po-poi-poin-poing GOD-POING. I NEVER LOSE!",
- "...silence. quiet benevolence... soul mate... wonder. enigma... cloud";
-
- //lengths
- setarray .lengths[0],20,32,73,73,65,66,67,55,67,66,67,69;
-
- // initnpctimer;
- // pick 2 distinct phrases and initialize related variables
- set .@index1,rand(getarraysize(.textstringsa$));
- set .@string1a$,.textstringsa$[.@index1];
- set .@string1b$,.textstringsb$[.@index1];
- set .@string1c$,.textstringsc$[.@index1];
- set .@typingstring1$,.compstring$[.@index1];
-
- while ( set(.@index2,rand(getarraysize(.textstringsa$))) == .@index1 );
- set .@string2a$,.textstringsa$[.@index2];
- set .@string2b$,.textstringsb$[.@index2];
- set .@string2c$,.textstringsc$[.@index2];
- set .@typingstring2$,.compstring$[.@index2];
-
- set .@typingkeys,.lengths[.@index1]+.lengths[.@index2];
- set .@start,gettimetick(0);
-
- mes "[Nils]";
- mes .@string1a$;
- if(.@string1b$ != "")mes .@string1b$;
- if(.@string1c$ != "")mes .@string1c$;
- input .@comparisonvar$[1];
- next;
- mes "^000000[Nils]";
- mes .@string2a$;
- if(.@string2b$ != "")mes .@string2b$;
- if(.@string2c$ != "")mes .@string2c$;
- input .@comparisonvar$[2];
- next;
- if(.@comparisonvar$[1] != .@typingstring1$ || .@comparisonvar$[2] != .@typingstring2$) goto s_Fail;
- set .@time, (gettimetick(0) - .@start) / 100; //seconds taken
- if (.@time) set .@mypoints, (.@typingkeys * 100) / .@time;
- mes "[Nils]";
- mes "Your typing time";
- mes "was ^FF0000" + .@time + " seconds^000000";
- mes "and your score is";
- mes "^0000FF" + .@mypoints + "^000000 points";
- next;
- if(.@mypoints <= $TypingRecord)goto loopback;
- mes "[Nils]";
- mes "Congratulations!";
- mes "It's a new record.";
- mes "I'll put you on the high-";
- mes "score list immediately.";
- set $TypingRecord,.@mypoints;
- set $TypingRecord$,strcharinfo(0);
- close;
-
-s_Fail:
- mes "^000000[Nils]";
- mes "I'm sorry you didn't type";
- mes "all characters correctly.";
- mes "But remember, practice makes";
- mes "perfect!";
- close;
-
-s_Info:
- mes "[Nils]";
- mes "The RO Typing Challenge";
- mes "is a game where you enter";
- mes "the given text as quickly as you";
- mes "can. The name of the top player";
- mes "is recorded for posterity. If you";
- mes "want fame, here's your chance!";
- next;
- mes "[Nils]";
- mes "I'd just like to let";
- mes "you know that you type";
- mes "all the text that you see";
- mes "in the single input line that";
- mes "you're given. So don't press";
- mes "the enter key, just click 'OK'.";
- close;
-
-s_Record:
- mes "[Nils]";
- mes "^0000FF" + $TypingRecord$ + "^000000";
- mes "is the current";
- mes "record holder with";
- mes "a record of ^0000FF" + $TypingRecord + "^000000";
- mes "points. Try to beat";
- mes "that record next time~";
- close;
-
}
airplane_01,221,158,2 script Pilot#airplane_01 852,{
- set .@pilot, rand(1,4);
- if (.@pilot == 1) {
+ switch (rand(1,4)) {
+ case 1:
mes "[Pilot]";
mes "Longitude, 131 degrees east.";
mes "Latitude, 37 degrees north.";
mes "We're right on course, captain.";
- } else if(.@pilot == 2) {
+ close;
+ case 2:
mes "[Pilot]";
mes "Looks like a really";
mes "cloudy day. Always hard";
mes "to navigate when the skies";
mes "aren't clear. Guess we'll";
mes "need to amp the radar.";
- } else if(.@pilot == 3) {
+ close;
+ case 3:
mes "[Pilot]";
mes "The Captain is a good";
mes "man and I can't think of";
@@ -957,7 +986,8 @@ airplane_01,221,158,2 script Pilot#airplane_01 852,{
mes "[Pilot]";
mes "R-right away, sir!";
mes "(See what I mean?)";
- } else {
+ close;
+ default:
mes "[Pilot]";
mes "This uniform is";
mes "really dapper, but";
@@ -976,12 +1006,10 @@ airplane_01,221,158,2 script Pilot#airplane_01 852,{
mes "[Pilot]";
mes "Oh...! Hello there!";
mes "E-e-enjoying your flight?!";
+ close;
}
- close;
}
-
-
airplane_01,83,61,2 script Dianne#01airplane_01 72,2,2,{
mes "[Dianne]";
mes "It's so weird!";
@@ -1008,18 +1036,7 @@ airplane_01,69,63,2 script Mendel#01airplane_01 55,{
close;
}
-airplane_01,33,68,4 script Clarice 74,{
- mes "[Clarice]";
- mes "Hi, I'm Clarice~";
- mes "How would you like";
- mes "to wager some Apples";
- mes "in a friendly game of Dice?";
- next;
- callfunc "applegamble","Clarice";
- end;
-}
-
-airplane_01,71,31,2 script Swordsman Shimizu#01 106,{
+airplane_01,71,31,2 script Swordsman Shimizu#air_01 106,{
mes "[Swordsman Shimizu]";
mes "Finally, after five";
mes "years of waiting...";
@@ -1035,208 +1052,204 @@ airplane_01,71,31,2 script Swordsman Shimizu#01 106,{
}
//============================================================
-//= The Izlude Airship Staff
-//============================================================
-
-izlude,201,54,3 script Airship Staff#izl 91,{
- mes "[Airship Staff]";
- mes "Welcome to the International Airship.";
- mes "How may I help you?";
+//= Typing Challenge
+//============================================================
+airplane_01,32,61,4 script Nils#ein 49,1,1,{
+ mes "[Nils]";
+ mes "Welcome to the";
+ mes "^ff0000RO Typing Challenge^000000.";
+ mes "Would you like to play";
+ mes "a quick typing game?";
next;
- if (select("Board the Airship:Cancel") == 1) {
- mes "[Airship Staff]";
- mes "The Airship boarding fee";
- mes "is 1,200 zeny, but if you've";
- mes "got a Free Ticket for Airship,";
- mes "the fee will be waived. Will";
- mes "you board the Airship?";
+ switch (select("Play ^ff0000RO Typing Challenge^000000:Information:View Top Records:Cancel")) {
+ case 1:
+ mes "[Nils]";
+ mes "Okay, we have";
+ mes "a new challenger!";
+ mes "Enter the following";
+ mes "text as quickly as you";
+ mes "can without making any";
+ mes "mistakes! Let's start~!";
+ setarray .@line1_1$[0], "^3cbcbccallipygian salacius lascivious^000000",
+ "^3cbcbcBy the power of^000000",
+ "^0000ffthkelfkskeldmsiejdlslehfndkelsheidl^000000",
+ "^3cbcbcburrdingdingdingdilidingdingdingphoohudaamb^000000",
+ "^3cbcbcCoboman no chikara-yumei na^000000",
+ "^3cbcbcI'm the king of All Weirdos! Now^000000",
+ "^3cbcbcYou give me no choice. I guess it's^000000";
+ setarray .@line1_2$[0], "^3cbcbclicentious prurient concupiscent^000000",
+ "^3cbcbcp-po-poi-po-poi-poin-poing^000000",
+ "^3cbcbcskemd^000000",
+ "^3cbcbcandoorabambarambambambambamburanbamding^000000",
+ "^3cbcbcchikara-daiookii na chikara da ze!^000000",
+ "^3cbcbcyou know of my true power. Obey~!^000000",
+ "^3cbcbctime for me to reveal my secret...^000000";
+ setarray .@line1_3$[0], "",
+ "^3cbcbcGOD-POING. I NEVER LOSE!^000000",
+ "",
+ "",
+ "^3cbcbcCOBO ON^000000",
+ "",
+ "";
+ setarray .@word1$[0], "callipygian salacius lascivious licentious prurient concupiscent",
+ "By the power of p-po-poi-po-poi-poin-poing GOD-POING. I NEVER LOSE!",
+ "thkelfkskeldmsiejdlslehfndkelsheidlskemd",
+ "burrdingdingdingdilidingdingdingphoohudaambandoorabambarambambambambamburanbamding",
+ "Coboman no chikara-yumei na chikara-daiookii na chikara da ze! COBO ON",
+ "I'm the king of All Weirdos! Now you know of my true power. Obey~!",
+ "You give me no choice. I guess it's time for me to reveal my secret...";
+ setarray .@line2_1$[0], "^3cbcbcuNflAPPaBLe LoVaBLe SeCreTs AnD^000000",
+ "^ff1493LiGhTsPeEd RiGhT SPEed LeFT TURn^000000",
+ "^ff1493hfjdkeldjsieldjshfjdjeiskdlefvbd^000000",
+ "^ff1493burapaphuralanderamduanbatuhiwooi^000000",
+ "^ff1493belief love luck grimace sweat rush^000000",
+ "^800080opeN, Open!op3n.openOpen0p3nOpEn0pen^000000",
+ "^3cbcbcfReeDoM ecstAcy JoUrnaliSm ArMplt^000000";
+ setarray .@line2_2$[0], "^3cbcbcboWLIiNg aGaINST tHe KarMA of YoUtH^000000",
+ "^ff1493RiGhT BuRn OrIGInAL GaNgSteR SmACk^000000",
+ "",
+ "^ff1493kabamturubamdingding^000000",
+ "^ff1493folktale rodimus optimus bumblebee^000000",
+ "^800080`open'0Pen open? open!111OPENSESAME^000000",
+ "^3cbcbcDisCoverY hEaDaChE MoonbeAmS jUsTiCE^000000";
+ setarray .@word2$[0], "uNflAPPaBLe LoVaBLe SeCreTs AnD boWLIiNg aGaINST tHe KarMA of YoUtH",
+ "LiGhTsPeEd RiGhT SPEed LeFT TURn RiGhT BuRn OrIGInAL GaNgSteR SmACk",
+ "hfjdkeldjsieldjshfjdjeiskdlefvbd",
+ "burapaphuralanderamduanbatuhiwooikabamturubamdingding",
+ "belief love luck grimace sweat rush folktale rodimus optimus bumblebee",
+ "opeN, Open!op3n.openOpen0p3nOpEn0pen`open'0Pen open? open!111OPENSESAME",
+ "fReeDoM ecstAcy JoUrnaliSm ArMplt DisCoverY hEaDaChE MoonbeAmS jUsTiCE";
+ setarray .@letters[0], 1300,
+ 1250,
+ 1180,
+ 1380,
+ 1740,
+ 1440,
+ 1450;
+ set .@wordtest, rand(7);
next;
- if (select("Yes:No") == 1) {
- if(countitem(7311) > 0) {
- delitem 7311,1;
- warp "airplane_01",224,64;
- close;
- }
- if(Zeny >= 1200) {
- set Zeny, Zeny - 1200;
- warp "airplane_01",224,64;
+ mes "[Nils]";
+ mes .@line1_1$[.@wordtest];
+ mes .@line1_2$[.@wordtest];
+ mes .@line1_3$[.@wordtest];
+ set .@start_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1);
+ next;
+ input .@save1$;
+ set .@end_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1);
+ set .@total_time, .@end_time - .@start_time;
+ mes "[Nils]";
+ mes .@line2_1$[.@wordtest];
+ mes .@line2_2$[.@wordtest];
+ set .@start_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1);
+ next;
+ input .@save2$;
+ set .@end_time, gettime(3)*60*60 + gettime(2)*60 + gettime(1);
+ set .@total_time, .@total_time + (.@start_time - .@end_time);
+ set .@tasoo, (.@letters[.@wordtest] / .@total_time) * 6;
+ if ((.@save1$ == .@word1$[.@wordtest]) && (.@save2$ == .@word2$[.@wordtest])) {
+ mes "[Nils]";
+ mes "Your record is ^ff0000" + .@total_time + " seconds^000000 and";
+ mes "the total letters are " + .@tasoo + ".";
+ next;
+ if (.@tasoo >= 1300) {
+ mes "[Nils]";
+ mes "Hmmm, this record isn't";
+ mes "humanly possible unless you";
+ mes "copy and paste the whole";
+ mes "sentence. Please play fairly";
+ mes "next time.";
close;
}
- mes "[Airship Staff]";
- mes "You don't have enough zeny.";
- close;
- }
- }
- mes "[Airship Staff]";
- mes "Thank you and";
- mes "have a nice day.";
- close;
-}
-
-//============================================================
-//= The Hugel Airship Staff
-//============================================================
-
-hugel,182,150,3 script Airship Staff#hu 91,{
- mes "[Airship Staff]";
- mes "Welcome to the International Airship.";
- mes "How may I help you?";
- next;
- if (select("Board the Airship:Cancel") == 1) {
- mes "[Airship Staff]";
- mes "The Airship boarding fee";
- mes "is 1,200 zeny, but if you've";
- mes "got a Free Ticket for Airship,";
- mes "the fee will be waived. Will";
- mes "you board the Airship?";
- next;
- if (select("Yes:No") == 1) {
- if(countitem(7311) > 0) {
- delitem 7311,1;
- warp "airplane",224,64;
+ if (.@tasoo >= $050320_ein_typing) {
+ mes "[Nils]";
+ mes "The previous top record was";
+ mes "made by ^0000ff" + $050320_minus1_typing$ + "^000000";
+ mes "with the total ^0000ff" + $050320_ein_typing + "^000000 letters.";
+ mes "However, ^ff0000" + strcharinfo(0) + "^000000,";
+ mes "you made the new top record";
+ mes "this time. Congratulations!";
+ set $050320_minus1_typing$, strcharinfo(0);
+ set $050320_ein_typing, .@tasoo;
close;
}
- if(Zeny >= 1200) {
- set Zeny, Zeny - 1200;
- warp "airplane",224,64;
+ else {
+ mes "[Nils]";
+ mes "^0000ff" + $050320_minus1_typing$ + "^000000";
+ mes "is the current";
+ mes "record holder with";
+ mes "a letter total of ^0000ff" + $050320_ein_typing + "^000000";
+ mes "characters. Try to beat";
+ mes "that record next time~";
close;
}
- mes "[Airship Staff]";
- mes "You don't have enough zeny.";
- close;
- }
- }
- mes "[Airship Staff]";
- mes "Thank you and";
- mes "have a nice day.";
- close;
-}
-
-//============================================================
-//= The Rachel Airship Staff
-//============================================================
-
-ra_fild12,295,208,3 script Airship Staff#ra 45,1,1,{
-OnTouch:
- mes "T use the airship, you are";
- mes "required to pay 1,200 zeny or a";
- mes "Free Airship Ticket. Would you like to use the service?";
- next;
- if (select("Yes:No") == 1) {
- if (countitem(7311) > 0) {
- delitem 7311,1;
- warp "airplane_01",224,64;
- close;
}
- if (Zeny >= 1200) {
- set Zeny, Zeny - 1200;
- warp "airplane_01",224,64;
+ else {
+ mes "[Nils]";
+ mes "Oooh...";
+ mes "I'm sorry, but";
+ mes "you entered the";
+ mes "text incorrectly...";
close;
}
- mes "You don't have enough zeny.";
+ case 2:
+ mes "[Nils]";
+ mes "The ^ff0000RO Typing Challenge^000000";
+ mes "is a game where you enter";
+ mes "the given text as quickly as you";
+ mes "can. The name of the top player";
+ mes "is recorded for posterity. If you";
+ mes "want fame, here's your chance!";
+ next;
+ mes "[Nils]";
+ mes "I'd just like to let";
+ mes "you know that you type";
+ mes "all the text that you see";
+ mes "in the single input line that";
+ mes "you're given. So don't press";
+ mes "the enter key, just click 'OK.'";
+ close;
+ case 3:
+ mes "[Nils]";
+ mes "^0000ff" + $050320_minus1_typing$ + "^000000";
+ mes "is the current";
+ mes "record holder with";
+ mes "a letter total of ^0000ff" + $050320_ein_typing + "^000000";
+ mes "characters. Try to beat";
+ mes "that record next time~";
+ close;
+ case 4:
+ mes "[Nils]";
+ mes "Feel free to take on the";
+ mes "^ff0000RO Typing Challenge^000000";
+ mes "anytime. I'll be here~";
close;
}
- mes "Thank you and, please come again.";
- close;
}
//============================================================
-//= Juno Airport NPCs
-//============================================================
-
-y_airport,144,63,4 script Airport Staff#Ein 91,{
- mes "[Airship Staff]";
- mes "Good day!";
- mes "Would you like to go";
- mes "to ^FF0000Einbroch^000000,^FF0000Hugel^000000 or";
- mes "^FF0000Lighthalzen^000000?";
- next;
- if (select("Yes.:No.") == 1) {
- mes "[Airship Staff]";
- mes "Thank you and";
- mes "have a nice day.";
- close2;
- warp "yuno",57,240;
- end;
- }
- mes "[Airship Staff]";
- mes "Thank you and";
- mes "have a nice day.";
- close;
-}
-
-y_airport,141,63,4 script Airport Staff#Izl 91,{
- mes "[Airship Staff]";
- mes "Good day!";
- mes "Would you like to go";
- mes "to ^FF0000Izlude^000000 or ^FF0000Rachel^000000?";
- next;
- if (select("Yes.:No.") == 1) {
- mes "[Airship Staff]";
- mes "Thank you and";
- mes "have a nice day.";
- close2;
- warp "yuno",50,240;
- end;
- }
- mes "[Airship Staff]";
- mes "Thank you and";
- mes "have a nice day.";
- close;
-}
-
-yuno,14,262,5 script Airship Staff#yuno01 91,{
- mes "[Airship Staff]";
- mes "Welcome to Juno Airport.";
- mes "Please use this door to";
- mes "board the Airship that will";
- mes "be flying all the way to Izlude";
- mes "in the Rune-Midgarts Kingdom,";
- mes "and to Rachel in the Arunafeltz";
- mes "Republic.";
- next;
- mes "[Airship Staff]";
- mes "Otherwise, if Juno is";
- mes "your intended destination,";
- mes "please head down the stairs";
- mes "and ask the Arrival Staff to lead";
- mes "you to the main terminal. Thank";
- mes "you, and enjoy your travels.";
- close;
-}
-
-yuno,88,263,3 script Airship Staff#yuno02 91,{
- mes "[Airship Staff]";
- mes "Welcome to Juno Airport.";
- mes "Please use this door to";
- mes "board the Airship which stops";
- mes "over Einbroch, Lighthalzen and";
- mes "Hugel in the Schwaltzvalt Republic.";
+//= Apple Gambling
+//============================================================
+airplane_01,33,68,4 script Clarice 74,{
+ mes "[Clarice]";
+ mes "Hi, I'm Clarice~";
+ mes "How would you like";
+ mes "to wager some Apples";
+ mes "in a friendly game of Dice?";
next;
- mes "[Airship Staff]";
- mes "Otherwise, if Juno is";
- mes "your intended destination,";
- mes "please head down the stairs";
- mes "and ask the Arrival Staff to lead";
- mes "you to the main terminal. Thank";
- mes "you, and enjoy your travels.";
- close;
+ callfunc "applegamble","Clarice";
+ end;
}
-//============================================================
-//= Apple Gambling Function
-//============================================================
-
function script applegamble {
- switch(select("Play Dice Game:Learn Dice Game Rules:Cancel")){
+ switch (select("Play Dice Game:Learn Dice Game Rules:Cancel")) {
case 3:
mes "["+getarg(0)+"]";
mes "I'm up for a game of";
mes "dice whenever you feel";
mes "like it. Just talk to me if";
mes "you ever get hit with the";
- mes "sudden urge to gamle, kay?";
+ mes "sudden urge to gamble, kay?";
close;
case 2:
mes "["+getarg(0)+"]";
@@ -1296,57 +1309,66 @@ function script applegamble {
mes "up to 50 Apples. If you'd like";
mes "to cancel, please enter '0'.";
next;
-L_Input:
- input .@amount;
- if(.@amount == 0) {
- mes "["+getarg(0)+"]";
- mes "Changed your mind?";
- mes "I understand. Well then,";
- mes "I hope we can play sometime.";
- close;
- }
- if(.@amount > 50) set .@amount,50;
- mes "["+getarg(0)+"]";
- mes "So you'll be";
- mes "betting ^FF0000"+.@amount+"^000000 Apples.";
- mes "Is that right?";
- next;
- if(select("Yes:No")==2){
+ while(1) {
+ input .@amount;
+ if (.@amount == 0) {
+ mes "["+getarg(0)+"]";
+ mes "Changed your mind?";
+ mes "I understand. Well then,";
+ mes "I hope we can play sometime.";
+ close;
+ }
+ else if (.@amount < 1 || .@amount > 50) {
+ mes "[Clarice]";
+ mes "You can't bet more than";
+ mes "50 Apples. Remember, we";
+ mes "need to keep these stakes";
+ mes "reasonable. Please enter";
+ mes "a value no greater than 50.";
+ next;
+ continue;
+ }
mes "["+getarg(0)+"]";
- mes "Mm, made a mistake?";
- mes "Alright, please enter the";
- mes "number of Apples you";
- mes "wish to place in this bet";
+ mes "So you'll be";
+ mes "betting ^FF0000"+.@amount+"^000000 Apples.";
+ mes "Is that right?";
next;
- goto L_Input;
- }
- if(countitem(512)<.@amount){
- //more apples then in inventory
- //-Improvised-
+ if (select("Yes:No") == 2) {
+ mes "["+getarg(0)+"]";
+ mes "Mm, made a mistake?";
+ mes "Alright, please enter the";
+ mes "number of Apples you";
+ mes "wish to place in this bet";
+ next;
+ continue;
+ }
+ if (countitem(512) <.@amount) {
+ mes "I'm sorry, but you";
+ mes "don't seem to have";
+ mes "enough Apples for this";
+ mes "bet... You can't gamble";
+ mes "if you can't play, you know.";
+ next;
+ continue;
+ }
+ delitem 512,.@amount;
mes "["+getarg(0)+"]";
- mes "Ooh...";
- mes "You don't have that";
- mes "many Apples with you,";
- mes "now do you?";
- close;
+ mes "Good!";
+ mes "Now we can start";
+ mes "this game! I'll roll first~";
+ break;
}
- delitem 512,.@amount;
- mes "["+getarg(0)+"]";
- mes "Good!";
- mes "Now we can start";
- mes "this game! I'll roll first~";
+ mes "^3355FF*Rolling and rumbling*^000000";
next;
- mes "^0000FF*Rolling and rumbling*";
set .@table1,rand(1,6);
set .@table2,rand(1,6);
set .@tablesub,.@table1+.@table2;
+ mes "["+getarg(0)+"]";
+ mes "I got a ^0000FF" + .@table1 + "^000000 and a ^0000FF" + .@table2 + "^000000.";
+ mes "That's a total of ^0000FF" + .@tablesub + "^000000.";
+ mes "^FF0000" + strcharinfo(0) + "^000000, now it's your turn.";
next;
- mes "I rolled a "+.@table1+" and a "+.@table2+",";
- mes "giving me a total of "+.@tablesub+".";
- mes "Now it's your turn,";
- mes strcharinfo(0)+".";
- next;
- menu "Roll Dice.",-;
+ select("Cast Dice.");
mes "^0000FF*Rolling and rumbling*";
set .@player1,rand(1,6);