diff options
Diffstat (limited to 'npc/airports/airships.txt')
-rw-r--r-- | npc/airports/airships.txt | 908 |
1 files changed, 564 insertions, 344 deletions
diff --git a/npc/airports/airships.txt b/npc/airports/airships.txt index 7b0bad0bf..59f48d615 100644 --- a/npc/airports/airships.txt +++ b/npc/airports/airships.txt @@ -3,7 +3,7 @@ //===== By: ================================================== //= eAthena Dev Team //===== Current Version: ===================================== -//= 1.1b +//= 1.2 //===== Compatible With: ===================================== //= eAthena SVN 3422+(Requires jA Script System) //===== Description: ========================================= @@ -31,6 +31,7 @@ //= 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] //============================================================ //============================================================ @@ -80,13 +81,13 @@ while(1) donpcevent "#AirshipWarp-2::OnHide"; disablenpc "#AirshipWarp-1"; disablenpc "#AirshipWarp-2"; - mapannounce "airplane","The Airship is leaving the ground. Our next destination is Hugel.",1,0xBA55D3; + mapannounce "airplane","The Airship is leaving the ground. Our next destination is Hugel.",bc_map,0xBA55D3; end; OnTimer15000: - mapannounce "airplane","We are heading to Hugel.",1,0xBA55D3; + mapannounce "airplane","We are heading to Hugel.",bc_map,0xBA55D3; end; OnTimer30000: - mapannounce "airplane","We will arrive in Hugel shortly.",1,0xBA55D3; + mapannounce "airplane","We will arrive in Hugel shortly.",bc_map,0xBA55D3; end; OnTimer45000: set $@airplanelocation,4; @@ -94,10 +95,10 @@ OnTimer45000: enablenpc "#AirshipWarp-2"; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane","Welcome to Hugel. Have a safe trip.",1,0xBA55D3; + mapannounce "airplane","Welcome to Hugel. Have a safe trip.",bc_map,0xBA55D3; end; OnTimer55000: - mapannounce "airplane","Currently, we are in Hugel. The Airship will leave shortly.",1,0xBA55D3; + mapannounce "airplane","Currently, we are in Hugel. The Airship will leave shortly.",bc_map,0xBA55D3; end; OnTimer65000: set $@airplanelocation,0; @@ -105,13 +106,13 @@ OnTimer65000: donpcevent "#AirshipWarp-2::OnHide"; disablenpc "#AirshipWarp-1"; disablenpc "#AirshipWarp-2"; - mapannounce "airplane","The Airship is leaving the ground. Our next destination is Einbroch.",1,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.",1,0x00FF00; + mapannounce "airplane","We are heading to Einbroch.",bc_map,0x00FF00; end; OnTimer95000: - mapannounce "airplane","We will arrive in Einbroch shortly.",1,0x00FF00; + mapannounce "airplane","We will arrive in Einbroch shortly.",bc_map,0x00FF00; end; OnTimer110000: set $@airplanelocation,1; @@ -119,10 +120,10 @@ OnTimer110000: enablenpc "#AirshipWarp-2"; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane","Welcome to Einbroch. Have a safe trip.",1,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.",1,0x00FF00; + mapannounce "airplane","Currently, we are in Einbroch. The Airship will take off shortly.",bc_map,0x00FF00; end; OnTimer130000: set $@airplanelocation,0; @@ -130,13 +131,13 @@ OnTimer130000: donpcevent "#AirshipWarp-2::OnHide"; disablenpc "#AirshipWarp-1"; disablenpc "#AirshipWarp-2"; - mapannounce "airplane","The Airship is leaving the ground. Our next destination is Lighthalzen.",1,0xFF8600; + mapannounce "airplane","The Airship is leaving the ground. Our next destination is Lighthalzen.",bc_map,0xFF8600; end; OnTimer145000: - mapannounce "airplane","We are heading to Lighthalzen.",1,0xFF8600; + mapannounce "airplane","We are heading to Lighthalzen.",bc_map,0xFF8600; end; OnTimer160000: - mapannounce "airplane","We will arrive in Lighthalzen shortly.",1,0xFF8600; + mapannounce "airplane","We will arrive in Lighthalzen shortly.",bc_map,0xFF8600; end; OnTimer175000: set $@airplanelocation,3; @@ -144,10 +145,10 @@ OnTimer175000: enablenpc "#AirshipWarp-2"; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane","Welcome to Lighthalzen. Have a safe trip.",1,0xFF8600; + mapannounce "airplane","Welcome to Lighthalzen. Have a safe trip.",bc_map,0xFF8600; end; OnTimer185000: - mapannounce "airplane","Currently, we are in Lighthalzen. The Airship will leave shortly.",1,0xFF8600; + mapannounce "airplane","Currently, we are in Lighthalzen. The Airship will leave shortly.",bc_map,0xFF8600; end; OnTimer195000: set $@airplanelocation,0; @@ -155,13 +156,13 @@ OnTimer195000: donpcevent "#AirshipWarp-2::OnHide"; disablenpc "#AirshipWarp-1"; disablenpc "#AirshipWarp-2"; - mapannounce "airplane","The Airship is now taking off. Our next destination is Juno.",1,0x70DBDB; + mapannounce "airplane","The Airship is now taking off. Our next destination is Juno.",bc_map,0x70DBDB; end; OnTimer210000: - mapannounce "airplane","We are heading to Juno.",1,0x70DBDB; + mapannounce "airplane","We are heading to Juno.",bc_map,0x70DBDB; end; OnTimer225000: - mapannounce "airplane","We will arrive in Juno shortly.",1,0x70DBDB; + mapannounce "airplane","We will arrive in Juno shortly.",bc_map,0x70DBDB; end; OnTimer240000: set $@airplanelocation,2; @@ -169,10 +170,10 @@ OnTimer240000: enablenpc "#AirshipWarp-2"; donpcevent "#AirshipWarp-1::OnUnhide"; donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane","Welcome to Juno. Have a safe trip.",1,0x70DBDB; + mapannounce "airplane","Welcome to Juno. Have a safe trip.",bc_map,0x70DBDB; end; OnTimer250000: - mapannounce "airplane","Currently, we are in Juno. The Airship will leave shortly.",1,0x70DBDB; + mapannounce "airplane","Currently, we are in Juno. The Airship will leave shortly.",bc_map,0x70DBDB; end; OnTimer260000: stopnpctimer; @@ -206,168 +207,73 @@ airplane,100,69,2 script Airship Crew#01::Airship Crew 852,{ close; } -airplane,250,59,3 script Airship Staff::AirshipInfo 67,{ +airplane,250,58,2 script Airship Staff#airplane 67,{ + 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; + } + mes "[Airship Staff]"; + mes "I am sorry, but I do not think that we have a passenger by that name."; + close; + } mes "[Airship Staff]"; mes "Welcome"; mes "to the Airship."; mes "How may I help you?"; next; - menu "Using the Airship",s_Use,"Captain's Cabin",s_Capt,"Facilities",s_Faci,"Cancel",-; - - mes "[Airship Staff]"; - mes "Well, I hope you like"; - mes "your flight aboard"; - mes "our Airships. Thank"; - mes "you and have a good day."; - close; - -s_Use: - mes "[Airship Staff]"; - mes "When you see a broadcast"; - mes "announcing that we have"; - mes "arrived at your destination,"; - mes "please use one of the exits"; - mes "located at the north and"; - mes "south ends of the Airship"; - next; - mes "[Airship Staff]"; - mes "If you happen to miss"; - mes "your stop, don't worry."; - mes "The airship is constantly"; - mes "on route and you'll get"; - mes "another chance to arrive"; - mes "to your intended destination."; - close; - -s_Capt: - mes "[Airship Staff]"; - mes "The Captain's Cabin"; - mes "is located at the front"; - mes "of the Airship. There, you"; - mes "can meet the captain and"; - mes "the pilot of the Airship."; - close; - -s_Faci: - mes "[Airship Staff]"; - mes "The Airship provides"; - mes "various Mini Games for"; - mes "the entertainment of all"; - mes "our passengers. We invite"; - mes "you to try your luck and skills"; - mes "in the Airship's Mini Games~"; - close; - -} - -airplane,50,66,4 script Meltz::AirshipApples 86,{ - - mes "[Meltz]"; - mes "Welcome to Meltz's"; - mes "Shop where you can"; - mes "purchase Apples or grind"; - mes "them to make Apple Juice."; - next; - menu "Buy Apples",s_Buy,"Make Apple Juice",s_Juice,"Cancel.",-; - -s_Cancel: - mes "[Meltz]"; - mes "Thanks for stopping"; - mes "by my shop. Farewell!"; - mes "Come back anytime when"; - mes "you feel like having an"; - mes "Apple to snack on~"; - close; - -s_Buy: - mes "[Meltz]"; - 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; - input @tempapple; - if(!@tempapple)goto s_Cancel; - if(@tempapple > 0 && @tempapple < 501)goto s_AppleBuy; - if(@tempapple < 0)close; - mes "[Meltz]"; - mes "The maximum amount of apples"; - mes "you can buy at the same time"; - mes "is 500. " + @tempapple + " is clearly"; - mes "over 500."; - close; - -s_AppleBuy: - mes "[Meltz]"; - mes "A total of ^FF0000" + @tempapple + "^000000 Apples."; - mes "will cost you ^FF0000" + @tempapple * 15 + "^000000 zeny."; - mes "Would you like to continue?"; - next; - menu "Yes",-,"No",s_Cancel; - - if(zeny < (@tempapple * 15))goto s_NEnoughZeny; - mes "[Meltz]"; - mes "Thanks for stopping by"; - mes "my shop. I hope you enjoy"; - mes "the flavor of these Apples~!"; - getitem 512,@tempapple; - set zeny,zeny - (@tempapple * 15); - close; - -s_NEnoughZeny: - mes "[Meltz]"; - mes "I'm sorry buy you don't"; - mes "seem to have enough zeny."; - mes "Come back anytime when"; - mes "you feel like having an"; - mes "Apple to snack on~"; - close; - -s_Juice: - mes "[Meltz]"; - 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; - menu "Yes",-,"No",s_Cancel; - - if(countitem(512) < 3 || !countitem(713))goto s_Material; - mes "[Meltz]"; - mes "Thank you,"; - mes "please wait"; - mes "just a moment."; - next; - mes "*Grind grind*"; - mes "*Grind grind*"; - mes "*Clang...!*"; - next; - mes "[Meltz]"; - 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~"; - delitem 512,3; - delitem 713,1; - getitem 531,1; - close; - -s_Material: - mes "[Meltz]"; - 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."; + switch(select("Using the Airship:Captain's Cabin:Facilities:Cancel")) { + case 1: + mes "[Airship Staff]"; + mes "When you see a broadcast"; + mes "announcing that we have"; + mes "arrived at your destination,"; + mes "please use one of the exits"; + mes "located at the north and"; + mes "south ends of the Airship."; + next; + mes "[Airship Staff]"; + mes "If you happen to miss"; + mes "your stop, don't worry."; + mes "The Airship is constantly"; + mes "en route and you'll get"; + mes "another chance to arrive"; + mes "to your intended destination."; + break; + case 2: + mes "[Airship Staff]"; + mes "The Captain's Cabin"; + mes "is located at the front"; + mes "of the Airship. There, you"; + mes "can meet the captain and"; + mes "the pilot of the Airship."; + break; + case 3: + mes "[Airship Staff]"; + mes "The Airship provides"; + mes "various Mini Games for"; + mes "the entertainment of all"; + mes "our passengers. We invite"; + mes "you to try your luck and skills"; + mes "in the Airship's Mini Games~"; + break; + 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; - } -airplane,80,71,4 script Zerta 834,{ +airplane,80,71,2 script Zerta#01airplane 834,{ mes "[Zerta]"; mes "Oh, hello adventurer."; mes "I am currently on a"; @@ -377,17 +283,17 @@ airplane,80,71,4 script Zerta 834,{ close; } -airplane,65,63,4 script Maelin 714,{ +airplane,65,63,4 script Maelin#01airplane 714,{ mes "[Maelin]"; mes "Um, this Airship is"; mes "to Lutie, isn't it? I've"; - mes "been waiting so long,"; + mes "waiting so long,"; mes "but I haven't heard any"; mes "broadcast about Lutie."; close; } -airplane,72,34,2 script Aanos 702,{ +airplane,72,34,6 script Aanos#01airplane 702,{ mes "[Aanos]"; mes "Oh wooow~"; mes "The sky looks"; @@ -396,7 +302,456 @@ airplane,72,34,2 script Aanos 702,{ close; } -airplane,32,61,4 script Nils::TypingContest 49,{ +airplane,221,158,2 script Pilot#airplane 852,{ + if (hg_ma1 == 3) { + mes "[Pilot]"; + mes "I wish that I could go drink a cold fresh beer."; + mes "Drinking is the goal of my life! Drinking gives me energy!"; + mes "I am nothing without drinks!"; + next; + mes "[Pilot]"; + mes "But! Driving under the influence is not good."; + 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; + } + mes "[Pilot]"; + mes "This uniform is"; + mes "really dapper, but"; + mes "it's way too thick to"; + mes "wear around the Airship."; + next; + mes "[Pilot]"; + mes "..."; + mes "......"; + mes "No one ever really"; + mes "comes into this room."; + mes "And the captain IS a reindeer.^FFFFFF ^000000 I could just strip to my boxers."; + next; + emotion e_omg; + mes "[Pilot]"; + mes "Wah!? Who is it!"; + next; + mes "- ...He is not listening to you, at all. -"; + close; + } + set .@pilot,rand(1,4); + if (.@pilot == 1) { + mes "[Pilot]"; + mes "It's been sooo"; + mes "long since I've"; + mes "enjoyed a nice, cold"; + mes "alcoholic brew. But the"; + mes "job requires me to be as"; + mes "clear headed as I can!"; + next; + mes "[Pilot]"; + mes "Always drink responsibly!"; + mes "Still, I can't remember the"; + mes "last time I had a real vacation"; + mes "or even a day off. Yeap, some"; + mes "booze, some chips, some TV"; + mes "and serius R&R is in order."; + emotion e_sob; + } + else if (.@pilot == 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) { + mes "[Pilot]"; + mes "You know, our captain's a"; + mes "respectable guy. Him and"; + mes "his brother are actually well"; + mes "known in the aircraft industry."; + mes "Who knew reindeer made"; + mes "such good captains?"; + next; + mes "[Pilot]"; + mes "Just between you"; + mes "and me, I gotta tell"; + mes "you, that Santa was onto"; + mes "something, getting reindeers"; + mes "and elves to work for him."; + mes "The man must be a genius!"; + } + else { + mes "[Pilot]"; + mes "You know, this whole"; + mes "piloting thing in the air,"; + mes "it's rather new, you know?"; + mes "Yeah, they got this Airship"; + mes "operation in a hurry."; + next; + emotion e_omg; + mes "[Pilot]"; + mes "Still, they where real"; + mes "serius, really thought"; + mes "ahead. I mean, they had us"; + mes "training while the Airships"; + mes "were still being invented."; + mes "Isn't that freakin' crazy?!"; + } + close; +} + +//============================================================ +//= The Airship System (Izlude -> Juno -> Rachel -> Repeat) +//============================================================ + +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; + end; + +OnHide: + misceffect 16; + end; +OnUnhide: + 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; + +OnHide: + misceffect 16; + end; +OnUnhide: + misceffect 215; + end; +} + +airplane_01,1,1,0 script YunoIzl_Airship -1,{ +OnInit: +while(1) +{ + disablenpc "Airship#airplane02"; + 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; + end; +OnTimer30000: + mapannounce "airplane_01","We will arrive in Izlude shortly.",bc_map,0x00FF00; + end; +OnTimer45000: + 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; + end; +OnTimer55000: + mapannounce "airplane_01","Currently, we are in Izlude. The Airship will leave shortly.",bc_map,0x00FF00; + end; +OnTimer65000: + 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 Juno.",bc_map,0x70DBDB; + end; +OnTimer80000: + 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; + end; +OnTimer110000: + 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; + end; +OnTimer120000: + mapannounce "airplane_01","Currently, we are in Juno. The Airship will take off shortly.",bc_map,0x70DBDB; + end; +OnTimer130000: + 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 Rachel.",bc_map,0xFF8600; + end; +OnTimer145000: + mapannounce "airplane_01","We are heading to Rachel.",bc_map,0xFF8600; + end; +OnTimer160000: + mapannounce "airplane_01","We will arrive in Rachel shortly.",bc_map,0xFF8600; + end; +OnTimer175000: + set $@airplanelocation2,3; + enablenpc "#AirshipWarp-3"; + enablenpc "#AirshipWarp-4"; + donpcevent "#AirshipWarp-3::OnUnhide"; + donpcevent "#AirshipWarp-4::OnUnhide"; + mapannounce "airplane_01","Welcome to Rachel. Have a safe trip.",bc_map,0xFF8600; + end; +OnTimer185000: + mapannounce "airplane_01","Currently, we are in Rachel. The Airship will leave shortly.",bc_map,0xFF8600; + 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; + 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,250,58,2 script Airship Staff#airplane01 67,{ + 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")) { + case 1: + mes "[Airship Staff]"; + mes "When you see a broadcast"; + mes "announcing that we have"; + mes "arrived at your destination,"; + mes "please use one of the exits"; + mes "located at the north and"; + mes "south ends of the Airship."; + next; + mes "[Airship Staff]"; + mes "If you happen to miss"; + mes "your stop, don't worry."; + mes "The Airship is constantly"; + mes "en route and you'll get"; + mes "another chance to arrive"; + mes "to your intended destination."; + break; + case 2: + mes "[Airship Staff]"; + mes "The Captain's Cabin"; + mes "is located at the front"; + mes "of the Airship. There, you"; + mes "can meet the captain and"; + mes "the pilot of the Airship."; + break; + case 3: + mes "[Airship Staff]"; + mes "The Airship provides"; + mes "various Mini Games for"; + mes "the entertainment of all"; + mes "our passengers. We invite"; + mes "you to try your luck and skills"; + mes "in the Airship's Mini Games~"; + break; + 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; +} + + +airplane_01,50,66,5 script Apple Merchant#airplane 86,{ + if (checkweight(1201,1) == 0) { + mes "- Wait a minute !! -"; + mes "- Currently you're carrying -"; + mes "- too many items with you. -"; + mes "- Please try again -"; + mes "- after you loose some weight. -"; + close; + } + mes "[Meltz]"; + mes "Welcome to Meltz'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.:Cancel.")) { + case 1: + mes "[Meltz]"; + 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,0,501; + set .@pay,.@input*15; + if (.@input == 0) { + mes "[Meltz]"; + 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 < 0 && .@input > 500) { + mes "[Meltz]"; + 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 "[Meltz]"; + mes "A total of ^FF0000" + .@input + "^000000 Apples"; + mes "will cost you ^FF0000" + .@pay + "^000000 zeny."; + mes "Would you like to continue?"; + next; + if (select("Yes:No") == 1) + break; + else { + mes "[Meltz]"; + 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; + } + } + } + if (Zeny < .@pay) { + mes "[Meltz]"; + mes "I'm sorry, you don't have"; + mes "enough money with you."; + mes "Please check your funds or"; + mes "purchase less Apples."; + close; + } + else if (checkweight(512,.@input) == 0) { + mes "[Meltz]"; + mes "Hmm, I don't think you've"; + mes "got enough room to carry"; + mes "this many Apples. You might"; + mes "want to free up your inventory"; + mes "space."; + close; + } + else { + set zeny,zeny-.@pay; + getitem 512,.@input; //Apple + mes "[Meltz]"; + mes "Thanks for stopping by"; + mes "my shop. I hope you enjoy"; + mes "the flavor of these Apples~!"; + close; + } + break; + case 2: + mes "[Meltz]"; + 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 "[Meltz]"; + 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 "[Meltz]"; + mes "Thank you, please wait."; + 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 "[Meltz]"; + mes "There you go~"; + mes "Please come again."; + close; + } + break; + case 2: + mes "[Meltz]"; + 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; + case 3: + mes "[Meltz]"; + 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~"; + break; + } + close; +} + +airplane_01,32,61,4 script Nils#ein 49,{ callfunc "F_ClearGarbage"; //Clear outdated, unused variables loopback: mes "[Nils]"; @@ -574,7 +929,7 @@ s_Record: } -airplane_01,221,158,6 script Pilot#air-0::Pilot 852,{ +airplane_01,221,158,2 script Pilot#airplane_01 852,{ set .@pilot, rand(1,4); if (.@pilot == 1) { mes "[Pilot]"; @@ -619,7 +974,7 @@ airplane_01,221,158,6 script Pilot#air-0::Pilot 852,{ mes "And the captain IS a reindeer."; mes "I could just strip to my boxers."; next; - //Emotion "Pilot#airplane_01" ET_HUK + emotion e_omg; mes "[Pilot]"; mes "Oh...! Hello there!"; mes "E-e-enjoying your flight?!"; @@ -627,163 +982,9 @@ airplane_01,221,158,6 script Pilot#air-0::Pilot 852,{ close; } -//============================================================ -//= The Airship System (Izlude -> Juno -> Rachel -> Repeat) -//============================================================ - -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; - end; - -OnHide: - misceffect 16; - end; -OnUnhide: - 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; -OnHide: - misceffect 16; - end; -OnUnhide: - misceffect 215; - end; -} -airplane_01,1,1,0 script YunoIzl_Airship -1,{ -OnInit: -while(1) -{ - disablenpc "Quest_Izl"; - 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.",1,0x00FF00; - end; -OnTimer15000: - set $@mobinv, $@mobinv+1; - set $@mobrand, rand(1,3); - if($@mobinv >= 9 && $@mobrand == 3) { - stopnpctimer; - enablenpc "Quest_Izl"; - donpcevent "Quest_Izl::OnInvasion"; - } - mapannounce "airplane_01","We are heading to Izlude.",1,0x00FF00; - end; -OnTimer30000: - mapannounce "airplane_01","We will arrive in Izlude shortly.",1,0x00FF00; - end; -OnTimer45000: - 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.",1,0x00FF00; - end; -OnTimer55000: - mapannounce "airplane_01","Currently, we are in Izlude. The Airship will leave shortly.",1,0x00FF00; - end; -OnTimer65000: - 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 Juno.",1,0x70DBDB; - end; -OnTimer80000: - mapannounce "airplane_01","We are heading to Juno.",1,0x70DBDB; - end; -OnTimer95000: - mapannounce "airplane_01","We will arrive in Juno shortly.",1,0x70DBDB; - end; -OnTimer110000: - 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.",1,0x70DBDB; - end; -OnTimer120000: - mapannounce "airplane_01","Currently, we are in Juno. The Airship will take off shortly.",1,0x70DBDB; - end; -OnTimer130000: - 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 Rachel.",1,0xFF8600; - end; -OnTimer145000: - mapannounce "airplane_01","We are heading to Rachel.",1,0xFF8600; - end; -OnTimer160000: - mapannounce "airplane_01","We will arrive in Rachel shortly.",1,0xFF8600; - end; -OnTimer175000: - set $@airplanelocation2,3; - enablenpc "#AirshipWarp-3"; - enablenpc "#AirshipWarp-4"; - donpcevent "#AirshipWarp-3::OnUnhide"; - donpcevent "#AirshipWarp-4::OnUnhide"; - mapannounce "airplane_01","Welcome to Rachel. Have a safe trip.",1,0xFF8600; - end; -OnTimer185000: - mapannounce "airplane_01","Currently, we are in Rachel. The Airship will leave shortly.",1,0xFF8600; - end; -OnTimer195000: - stopnpctimer; -} -OnReturn: - killmonsterall "airplane_01"; - set $@mobinv, 0; - mapannounce "airplane_01","Monster threat nullfied. The Airship is now returning to normal operation.",1,0x00FF00; - startnpctimer; - 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,250,59,3 duplicate(AirshipInfo) Airship Staff#info 67 - -airplane_01,50,66,4 duplicate(AirshipApples) Meltz 86 - -airplane_01,32,61,4 duplicate(TypingContest) Nils 49 - -airplane_01,221,158,6 duplicate(Pilot) Pilot#air-1 852 - - -airplane_01,83,61,2 script Dianne 72,{ +airplane_01,83,61,2 script Dianne#01airplane_01 72,2,2,{ mes "[Dianne]"; mes "It's so weird!"; mes "I went to visit the"; @@ -792,17 +993,18 @@ airplane_01,83,61,2 script Dianne 72,{ mes "weird reindeer. Oh!"; mes "Do you think that..."; close; + OnTouch: - Emotion 28, "Dianne"; + emotion e_sob; end; } -airplane_01,69,63,2 script Old Man#06 55,{ +airplane_01,69,63,2 script Mendel#01airplane_01 55,{ mes "[Mendel]"; mes "As I expected, the"; mes "in-flight meals are"; mes "three star quality at best."; - mes "^111111*Harrrumph*^000000 I really should"; + mes "*Harrrumph* I really should"; mes "have brought my chef so that"; mes "I could enjoy a real meal."; close; @@ -819,7 +1021,7 @@ airplane_01,33,68,4 script Clarice 74,{ end; } -airplane_01,71,31,6 script Swordman Shimizu 106,{ +airplane_01,71,31,2 script Swordsman Shimizu#01 106,{ mes "[Swordsman Shimizu]"; mes "Finally, after five"; mes "years of waiting..."; @@ -964,7 +1166,7 @@ y_airport,144,63,4 script Airport Staff#Ein 91,{ mes "have a nice day."; close; } - + y_airport,141,63,4 script Airport Staff#Izl 91,{ mes "[Airship Staff]"; mes "Good day!"; @@ -985,13 +1187,15 @@ y_airport,141,63,4 script Airport Staff#Izl 91,{ close; } -yuno,14,262,3 script Airship Staff#yuno01::Airship Staff 91,{ +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 "in the Rune-Midgarts Kingdom,"; + mes "and to Rachel in the Arunafeltz"; + mes "Republic."; next; mes "[Airship Staff]"; mes "Otherwise, if Juno is"; @@ -1003,7 +1207,23 @@ yuno,14,262,3 script Airship Staff#yuno01::Airship Staff 91,{ close; } -yuno,88,263,5 duplicate(Airship Staff) Airship Staff#yuno02 91 +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."; + 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; +} //============================================================ //= Apple Gambling Function |