From 288490094a7fe9167747dc78d416940759a31197 Mon Sep 17 00:00:00 2001 From: FlavioJS Date: Tue, 5 Dec 2006 13:23:07 +0000 Subject: - Massive EOL normalization & 'svn:eol-style native' flag setting for all txt/conf/h/c files. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@9410 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/quests/WIP/airships.txt | 2276 +++++++++++++++++++++---------------------- 1 file changed, 1138 insertions(+), 1138 deletions(-) (limited to 'npc/quests/WIP/airships.txt') diff --git a/npc/quests/WIP/airships.txt b/npc/quests/WIP/airships.txt index b6284bcbd..60930f7d2 100644 --- a/npc/quests/WIP/airships.txt +++ b/npc/quests/WIP/airships.txt @@ -1,1138 +1,1138 @@ -//===== eAthena Script ======================================= -//= The Airship System Script -//===== By: ================================================== -//= MasterOfMuppets -//===== Current Version: ===================================== -//= 0.5c -//===== Compatible With: ===================================== -//= eAthena SVN 3422+(Requires jA Script System) -//===== Description: ========================================= -//= The Airship System used in the official servers, however this -//= one is still about 25% custom and is missing some npcs. -//===== 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.5aFixed a typo [Evera] 0.5b Fixed appledice bugs [Lupus] -//============================================================ - -//============================================================ -//= The Airship System (Yuno -> Hugel -> Einbroch -> Lighthalzen -> repeat) -//============================================================ - -airplane.gat,243,74,4 script #AirshipWarp-1 45,2,2{ -OnTouch: - if($@airplanelocation == 1)warp "einbroch.gat",90,275; - if($@airplanelocation == 2)warp "yuno.gat",85,265; - if($@airplanelocation == 3)warp "lighthalzen.gat",302,75; - if($@airplanelocation == 4)warp "hugel.gat",182,150; - end; - -OnHide: - misceffect 16; - end; -OnUnhide: - misceffect 215; - end; -} - -airplane.gat,243,29,4 script #AirshipWarp-2 45,2,2{ -OnTouch: - if($@airplanelocation == 1)warp "einbroch.gat",90,275; - if($@airplanelocation == 2)warp "yuno.gat",85,265; - if($@airplanelocation == 3)warp "lighthalzen.gat",302,75; - if($@airplanelocation == 4)warp "hugel.gat",182,150; - end; - -OnHide: - misceffect 16; - end; -OnUnhide: - misceffect 215; - end; -} - -airplane.gat,1,1,0 script EinYuno_Airship -1,{ -OnInit: -while(1) -{ - initnpctimer; - setnpctimer 0; - set $@airplanelocation,0; - donpcevent "#AirshipWarp-1::OnHide"; - donpcevent "#AirshipWarp-2::OnHide"; - disablenpc "#AirshipWarp-1"; - disablenpc "#AirshipWarp-2"; - mapannounce "airplane.gat","The Airship is leaving the ground. Our next destination is Hugel.",1,0xBA55D3; - end; -OnTimer15000: - mapannounce "airplane.gat","We are heading to Hugel.",1,0xBA55D3; - end; -OnTimer30000: - mapannounce "airplane.gat","We will arrive in Hugel shortly.",1,0xBA55D3; - end; -OnTimer45000: - set $@airplanelocation,4; - enablenpc "#AirshipWarp-1"; - enablenpc "#AirshipWarp-2"; - donpcevent "#AirshipWarp-1::OnUnhide"; - donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane.gat","Welcome to Hugel. Have a safe trip.",1,0xBA55D3; - end; -OnTimer55000: - mapannounce "airplane.gat","Currently, we are in Hugel. The Airship will leave shortly.",1,0xBA55D3; - end; -OnTimer65000: - set $@airplanelocation,0; - donpcevent "#AirshipWarp-1::OnHide"; - donpcevent "#AirshipWarp-2::OnHide"; - disablenpc "#AirshipWarp-1"; - disablenpc "#AirshipWarp-2"; - mapannounce "airplane.gat","The Airship is leaving the ground. Our next destination is Einbroch.",1,0x00FF00; - end; -OnTimer80000: - mapannounce "airplane.gat","We are heading to Einbroch.",1,0x00FF00; - end; -OnTimer95000: - mapannounce "airplane.gat","We will arrive in Einbroch shortly.",1,0x00FF00; - end; -OnTimer110000: - set $@airplanelocation,1; - enablenpc "#AirshipWarp-1"; - enablenpc "#AirshipWarp-2"; - donpcevent "#AirshipWarp-1::OnUnhide"; - donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane.gat","Welcome to Einbroch. Have a safe trip.",1,0x00FF00; - end; -OnTimer120000: - mapannounce "airplane.gat","Currently, we are in Einbroch. The Airship will take off shortly.",1,0x00FF00; - end; -OnTimer130000: - set $@airplanelocation,0; - donpcevent "#AirshipWarp-1::OnHide"; - donpcevent "#AirshipWarp-2::OnHide"; - disablenpc "#AirshipWarp-1"; - disablenpc "#AirshipWarp-2"; - mapannounce "airplane.gat","The Airship is leaving the ground. Our next destination is Lighthalzen.",1,0xFF8600; - end; -OnTimer145000: - mapannounce "airplane.gat","We are heading to Lighthalzen.",1,0xFF8600; - end; -OnTimer160000: - mapannounce "airplane.gat","We will arrive in Lighthalzen shortly.",1,0xFF8600; - end; -OnTimer175000: - set $@airplanelocation,3; - enablenpc "#AirshipWarp-1"; - enablenpc "#AirshipWarp-2"; - donpcevent "#AirshipWarp-1::OnUnhide"; - donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane.gat","Welcome to Lighthalzen. Have a safe trip.",1,0xFF8600; - end; -OnTimer185000: - mapannounce "airplane.gat","Currently, we are in Lighthalzen. The Airship will leave shortly.",1,0xFF8600; - end; -OnTimer195000: - set $@airplanelocation,0; - donpcevent "#AirshipWarp-1::OnHide"; - donpcevent "#AirshipWarp-2::OnHide"; - disablenpc "#AirshipWarp-1"; - disablenpc "#AirshipWarp-2"; - mapannounce "airplane.gat","The Airship is now taking off. Our next destination is Yuno.",1,0x70DBDB; - end; -OnTimer210000: - mapannounce "airplane.gat","We are heading to Yuno.",1,0x70DBDB; - end; -OnTimer225000: - mapannounce "airplane.gat","We will arrive in Yuno shortly.",1,0x70DBDB; - end; -OnTimer240000: - set $@airplanelocation,2; - enablenpc "#AirshipWarp-1"; - enablenpc "#AirshipWarp-2"; - donpcevent "#AirshipWarp-1::OnUnhide"; - donpcevent "#AirshipWarp-2::OnUnhide"; - mapannounce "airplane.gat","Welcome to Yuno. Have a safe trip.",1,0x70DBDB; - end; -OnTimer250000: - mapannounce "airplane.gat","Currently, we are in Yuno. The Airship will leave shortly.",1,0x70DBDB; - end; -OnTimer260000: - stoptimer; -} -} - -//C4644E - -//============================================================ -//= Some normal NPCS (airplane.gat) -//============================================================ - -airplane.gat,240,64,5 script Exit#01::Exit2 857,{ - -end; - -} - -airplane.gat,247,64,5 duplicate(Exit2) Exit#02 857 - -airplane.gat,240,39,1 duplicate(Exit2) Exit#03 857 - -airplane.gat,247,39,1 duplicate(Exit2) Exit#04 857 - -airplane.gat,100,69,2 script Airship Crew#01::Airship Crew 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."; - close; - -} - -airplane.gat,250,59,3 script Airship Staff::AirshipInfo 67,{ - - 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.gat,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."; - close; - -} - - -airplane.gat,33,69,4 script Kaci 73,{ -if fragmentauest==1 { -mes "[Kaci]"; -mes "Oh.. Thx my dear"; -close2; -emotion e_kis; -delitem 7148,1; -set fragmentauest,2; -end; -} - callfunc "applegamble","Kaci"; - end; - - OnLose: - emotion e_wah; - end; - - OnWin: - emotion e_no1; - end; -} - -airplane.gat,80,71,4 script Zerta 834,{ - mes "[Zerta]"; - mes "Oh, hello adventurer."; - mes "I am currently on a"; - mes "sacred journey, offering"; - mes "prayer for the sake of the"; - mes "Rune-Midgard continent."; - close; -} - -airplane.gat,65,63,4 script Maelin 714,{ - mes "[Maelin]"; - mes "Um, this Airship is"; - mes "to Lutie, isn't it? I've"; - mes "been waiting so long,"; - mes "but I haven't heard any"; - mes "broadcast about Lutie."; - close; -} - -airplane.gat,32,61,4 script Nils::TypingContest 49,{ - -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; - mes "[Nils]"; - set @index,rand(1,getarraysize($textstringsa$))-1; - set @string1a$,$textstringsa$[@index]; - set @string1b$,$textstringsb$[@index]; - set @string1c$,$textstringsc$[@index]; - set @typingstring1$,$compstring$[@index]; - set @typingkeys,$lengths[@index]; - set @index2,rand(1,getarraysize($textstringsa$))-1; - while (@index2 == @index) { - set @index2,rand(1,getarraysize($textstringsa$))-1; - } - set @string2a$,$textstringsa$[@index2]; - set @string2b$,$textstringsb$[@index2]; - set @string2c$,$textstringsc$[@index2]; - set @typingstring2$,$compstring$[@index2]; - set @typingkeys,@typingkeys+$lengths[@index2]; - set @start,gettime(3)*60*60+gettime(2)*60+gettime(1); - 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]; - if(@comparisonvar$[1] == @typingstring1$ && @comparisonvar$[2] == @typingstring2$)set @typingcorrect,1; - next; - if(!@typingcorrect)goto s_Fail; - set @time,(gettime(3)*60*60+gettime(2)*60+gettime(1))-@start; //seconds taken - 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; - -} - -//============================================================ -//= The Airship System (Yuno -> Izlude -> Repeat) -//============================================================ - -airplane_01.gat,243,74,4 script #AirshipWarp-3 45,2,2{ -OnTouch: - if($@airplanelocation2 == 1)warp "izlude.gat",202,56; - if($@airplanelocation2 == 2)warp "yuno.gat",20,265; - end; - -OnHide: - misceffect 16; - end; -OnUnhide: - misceffect 215; - end; -} - -airplane_01.gat,243,29,4 script #AirshipWarp-4 45,2,2{ -OnTouch: - if($@airplanelocation2 == 1)warp "izlude.gat",202,56; - if($@airplanelocation2 == 2)warp "yuno.gat",20,265; - -OnHide: - misceffect 16; - end; -OnUnhide: - misceffect 215; - end; -} - -airplane_01.gat,1,1,0 script YunoIzl_Airship -1,{ -OnInit: -while(1) -{ - initnpctimer; - setnpctimer 0; - set $@airplanelocation2,0; - donpcevent "#AirshipWarp-3::OnHide"; - donpcevent "#AirshipWarp-4::OnHide"; - disablenpc "#AirshipWarp-3"; - disablenpc "#AirshipWarp-4"; - mapannounce "airplane_01.gat","The Airship is leaving the ground. Our next destination is Izlude.",1,0x00FF00; - end; -OnTimer15000: - mapannounce "airplane_01.gat","We are heading to Izlude.",1,0x00FF00; - end; -OnTimer30000: - mapannounce "airplane_01.gat","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.gat","Welcome to Izlude. Have a safe trip.",1,0x00FF00; - end; -OnTimer55000: - mapannounce "airplane_01.gat","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.gat","The Airship is leaving the ground. Our next destination is Yuno.",1,0x70DBDB; - end; -OnTimer80000: - mapannounce "airplane_01.gat","We are heading to Yuno.",1,0x70DBDB; - end; -OnTimer95000: - mapannounce "airplane_01.gat","We will arrive in Yuno 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.gat","Welcome to Yuno. Have a safe trip.",1,0x70DBDB; - end; -OnTimer120000: - mapannounce "airplane_01.gat","Currently, we are in Yuno. The Airship will take off shortly.",1,0x70DBDB; - end; -OnTimer130000: - stoptimer; -} -} - -//============================================================ -//= Some normal NPCS (airplane_01.gat) -//============================================================ - -airplane_01.gat,240,64,5 duplicate(Exit2) Exit#05 857 - -airplane_01.gat,247,64,5 duplicate(Exit2) Exit#06 857 - -airplane_01.gat,240,39,1 duplicate(Exit2) Exit#07 857 - -airplane_01.gat,247,39,1 duplicate(Exit2) Exit#08 857 - -airplane_01.gat,100,69,2 duplicate(Airship Crew) Airship Crew#02 852 - -airplane_01.gat,250,59,3 duplicate(AirshipInfo) Airship Staff#info 67 - -airplane_01.gat,50,66,4 duplicate(AirshipApples) Meltz 86 - -airplane_01.gat,32,61,4 duplicate(TypingContest) Nils 49 - -airplane_01.gat,83,61,2 script Girl#10 72,{ - - mes "[Dianne]"; - mes "It's so weird!"; - mes "I went to visit the"; - mes "Airship Captain and"; - mes "all I saw was this"; - mes "weird reindeer. Oh!"; - mes "Do you think that..."; - close; - -} - -airplane_01.gat,69,63,2 script Old Man#06 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 "have brought my chef so that"; - mes "I could enjoy a real meal."; - close; - -} - -airplane_01.gat,33,68,4 script Clarice 74,{ - callfunc "applegamble","Clarice"; - end; -} - -//============================================================ -//= The Izlude Airship Staff -//============================================================ - -izlude.gat,201,54,3 script Airship Staff#izl 91,{ - - mes "[Airship Staff]"; - mes "Welcome to the Izlude Airship."; - mes "How may I help you?"; - next; - menu "Board the Airship",-,"Cancel",L_Cancel; - - 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; - menu "Yes",-,"No",L_Cancel; - - if(countitem(7311) > 0) goto L_GotTicket; - if(Zeny < 1200) goto L_NoZeny; - set Zeny, Zeny - 1200; - warp "airplane_01.gat",224,64; - close; - - L_GotTicket: - delitem 7311,1; - warp "airplane_01.gat",224,64; - close; - - L_NoZeny: - mes "[Airship Staff]"; - mes "You don't have enough zeny."; - close; - - L_Cancel: - mes "[Airship Staff]"; - mes "Thank you and"; - mes "have a nice day."; - close; -} - -//============================================================ -//= The Hugel Airship Staff -//============================================================ - -hugel.gat,182,150,3 script Airship Staff#hu 91,{ - - mes "[Airship Staff]"; - mes "Welcome to the Schwartzwald Republic's Airship."; - mes "How may I help you?"; - next; - menu "Board the Airship",-,"Cancel",L_Cancel; - - 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; - menu "Yes",-,"No",L_Cancel; - - if(countitem(7311) > 0) goto L_GotTicket; - if(Zeny < 1200) goto L_NoZeny; - set Zeny, Zeny - 1200; - warp "airplane.gat",224,64; - close; - - L_GotTicket: - delitem 7311,1; - warp "airplane.gat",224,64; - close; - - L_NoZeny: - mes "[Airship Staff]"; - mes "You don't have enough zeny."; - close; - - L_Cancel: - mes "[Airship Staff]"; - mes "Thank you and"; - mes "have a nice day."; - close; -} - -//============================================================ -//= Yuno Airport NPCs -//============================================================ - -y_airport.gat,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; - menu "Yes.",s_Warp,"No.",-; - - mes "[Airship Staff]"; - mes "Thank you and"; - mes "have a nice day."; - close; - -s_Warp: - mes "[Airship Staff]"; - mes "Thank you and"; - mes "have a nice day."; - close2; - warp "yuno.gat",57,240; - end; - -} - -y_airport.gat,141,63,4 script Airport Staff#Izl 91,{ - - mes "[Airship Staff]"; - mes "Good day!"; - mes "Would you like to go"; - mes "to ^FF0000Izlude^000000?"; - next; - menu "Yes.",s_Warp,"No.",-; - - mes "[Airship Staff]"; - mes "Thank you and"; - mes "have a nice day."; - close; - -s_Warp: - mes "[Airship Staff]"; - mes "Thank you and"; - mes "have a nice day."; - close2; - warp "yuno.gat",50,240; - end; - -} - -//============================================================ -//= Apple Gambling Function -//============================================================ - -function script applegamble { - mes "["+getarg(0)+"]"; - mes "Hi, I'm "+getarg(0)+"~"; - mes "How would you like"; - mes "to wager some Apples"; - mes "in a friendly game of Dice?"; - next; - 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?"; - close; - case 2: - mes "["+getarg(0)+"]"; - mes "The rules for the Dice game"; - mes "are pretty simple. First, you"; - mes "place a bet by wagering Apples."; - mes "You can bet a maximum of 50"; - mes "Apples at a time. To keep things"; - mes "legal, I can only accept Apples."; - next; - mes "["+getarg(0)+"]"; - mes "But hey, if all that zeny"; - mes "is burning a hole in your"; - mes "pocket, head over to Fruitz"; - mes "and you can buy as many"; - mes "Apples as you want, playah~"; - next; - mes "["+getarg(0)+"]"; - mes "Now, we begin with me"; - mes "rolling wto 6-sided dice."; - mes "When it's your turn, you'll"; - mes "roll two 6-sided dice. After"; - mes "that, both of us will have the"; - mes "option of rolling a third die."; - next; - mes "["+getarg(0)+"]"; - mes "Now here's the important"; - mes "thing. If your total is higher"; - mes "than 12, you'll bust, meaning"; - mes "that you lose. Otherwise, the"; - mes "person with the higher total"; - mes "is the winner. Got it?"; - next; - mes "["+getarg(0)+"]"; - mes "Now, you'll be the first"; - mes "to decide whether or not"; - mes "you'll roll the third die. Then,"; - mes "depending on your result, I'll"; - mes "roll my third die... Or maybe not."; - next; - mes "["+getarg(0)+"]"; - mes "When you win, you'll"; - mes "receive twice as many"; - mes "Apples as you wagered."; - mes "But if we happen to tie, you"; - mes "get the Apples that you bet"; - mes "returned to you. Fair, right?"; - close; - case 1: - break; - } - mes "["+getarg(0)+"]"; - mes "Ooh, so you'll play with"; - mes "me? Great! How many"; - mes "Apples would you like to bet?"; - mes "Remember, you can wager"; - 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){ - 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; - goto L_Input; - } - if(countitem(512)<@amount){ - //more apples then in inventory - //-Improvised- - mes "["+getarg(0)+"]"; - mes "Ooh..."; - mes "You don't have that"; - mes "much Apples with you,"; - mes "now do you?"; - close; - } - delitem 512,@amount; - mes "["+getarg(0)+"]"; - mes "Good!"; - mes "Now we can start"; - mes "this game! I'll roll first~"; - next; - mes "^0000FF*Rolling and rumbling*"; - set @table1,rand(1,6); - set @table2,rand(1,6); - set @tablesub,@table1+@table2; - 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.",-; - - mes "^0000FF*Rolling and rumbling*"; - set @player1,rand(1,6); - set @player2,rand(1,6); - set @playersub,@player1+@player2; - next; - mes "["+getarg(0)+"]"; - mes strcharinfo(0)+","; - mes "you rolled a "+@player1+" and a "+@player2+","; - mes "giving you a total of ^FF0000"+@playersub+"^000000."; - next; - mes "["+getarg(0)+"]"; - if(@playersub == @tablesub) { - mes "Well, well, well."; - mes "Both of us have a total"; - mes "of "+@playersub+". Well, the ball's in"; - mes "your court. Are you going"; - mes "to roll your third die,"; - mes strcharinfo(0)+"?"; - } else if(@playersub > @tablesub) { - mes "Since my total is only ^0000FF"+@tablesub+"^000000,"; - mes "you have the advantage for"; - mes "now with your total of ^FF0000"+@playersub+"^000000. Do"; - mes "you wanna roll one more die?"; - mes "Remember, you'll bust if all three"; - mes "of your dice total more than 12."; - } else if(@tablesub > @playersub) { - mes "Since my total is ^0000FF"+@tablesub+"^000000,"; - mes "I have the advantage for"; - mes "now with your total of ^FF0000"+@playersub+"^000000. Do"; - mes "you wanna roll one more die?"; - mes "Remember, you'll bust if all three"; - mes "of your dice total more than 12."; - } - next; - if(select("Roll another dice.:Don't Roll.")==2){ - mes "["+getarg(0)+"]"; - mes "Not gonna roll, huh?"; - if(@tablesub == @playersub) { - mes "You better hope I roll"; - mes "too high and bust, or"; - mes "I'll beat you for sure!"; - mes "Okay, here goes nothing..."; - next; - goto L_Table3; - } else if(@tablesub < @playersub) { - next; - mes "["+getarg(0)+"]"; - mes "Alright, I see that you"; - mes "don't want to risk rolling"; - mes "higher than 12 and busting."; - mes "I'll go ahead and roll then."; - next; - goto L_Table3; - } else if(@tablesub > @playersub) { - //you have a lower sub total then table, and do not roll 3th -Improvised- - mes "["+getarg(0)+"]"; - mes "Not gonna roll, huh?"; - mes "Well, then I'm not"; - mes "gonna roll either."; - next; - mes "["+getarg(0)+"]"; - mes "That means that I"; - mes "have a total of ^0000FF"+@tablesub+"^000000"; - mes "wich beats your ^FF0000"+@playersub+"^000000."; - mes "I'm sorry, but you lose"; - mes "this game, "+strcharinfo(0)+". Better"; - mes "luck next time."; - } - close; - } - mes "^0000FF*Rolling and rumbling*"; - set @player3,rand(1,6); - set @playersub,@playersub+@player3; - if(@playersub > 12) { - //player bust --Improvised-- - next; - mes "["+getarg(0)+"]"; - mes "Oh my... You rolled a ^FF000"+@player3+"^000000,"; - mes "making your total ^FF0000"+@playersub+"^000000."; - mes "That's more then 12, meaning you bust."; - mes "Sorry, but you lose this"; - mes "game, "+strcharinfo(0)+"."; - close; - } - next; - mes "["+getarg(0)+"]"; - mes "Oh hey! You rolled"; - if(@playersub >= @tablesub) { - mes "a ^FF0000"+@player3+"^000000, giving you a total"; - mes "of ^FF0000"+@playersub+"^000000. Now, if I don't"; - mes "roll, I'll lose for sure!"; - mes "I'm gonna go for it..."; - next; - goto L_Table3; - } else if(@playersub < @tablesub) { - //player's sub together with 3th die is still too low - //--Improvised-- - mes "a ^FF0000"+@player3+"^000000, giving"; - mes "you a total of ^FF0000"+@playersub+"^000000."; - mes "Wich still isn't enough"; - mes "to beat my ^0000FF"+@tablesub+"^000000."; - mes "Sorry, but you lose this"; - mes "game, "+strcharinfo(0)+". Them's"; - mes "the breaks, I suppose..."; - close; - } -L_Table3: - mes "^0000FF*Rolling and rumbling*"; - set @table3,rand(1,6); - set @tablesub,@tablesub+@table3; - next; - if(@tablesub > 12) { - mes "["+getarg(0)+"]"; - mes "Eh? I rolled a ^0000FF"+@table3+"^000000, making"; - mes "my total ^0000FF"+@tablesub+"^000000. I hate to say"; - mes "it, but I gambled and lost."; - mes "Take your winnings before"; - mes "I cry, "+strcharinfo(0)+"~!"; - close2; - getitem 512,@amount*2; - end; - } - mes "["+getarg(0)+"]"; - if(@tablesub < @playersub) { - mes "I rolled a "+@table3+", which"; - mes "gives me a total of ^0000FF"+@tablesub+"^000000."; - mes "But... It's still not enough"; - mes "to beat your ^FF0000"+@playersub+"^000000. It looks"; - mes "like I can't compete with"; - mes "you, "+strcharinfo(0)+"..."; - close2; - getitem 512,@amount*2; - end; - } else if(@tablesub > @playersub) { - mes "I rolled a ^0000FF"+@table3+"^000000, giving"; - mes "me a total of ^0000FF"+@tablesub+"^000000 which"; - mes "beats your total of ^FF0000"+@playersub+"^000000."; - mes "Sorry, but you lose this"; - mes "game, "+strcharinfo(0)+". Them's"; - mes "the breaks, I suppose..."; - close; - } else if(@tablesub == @playersub) { - //Result = tie, --Improvised-- - mes "I rolled a ^0000FF"+@table3+"^000000, giving"; - mes "me a total of ^0000FF"+@tablesub+"^000000, which"; - mes "is the same as your total."; - mes "Well, this game didn't have a"; - mes "winner or loser, "+strcharinfo(0)+"."; - close2; - getitem 512,@amount; - end; - } -} +//===== eAthena Script ======================================= +//= The Airship System Script +//===== By: ================================================== +//= MasterOfMuppets +//===== Current Version: ===================================== +//= 0.5c +//===== Compatible With: ===================================== +//= eAthena SVN 3422+(Requires jA Script System) +//===== Description: ========================================= +//= The Airship System used in the official servers, however this +//= one is still about 25% custom and is missing some npcs. +//===== 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.5aFixed a typo [Evera] 0.5b Fixed appledice bugs [Lupus] +//============================================================ + +//============================================================ +//= The Airship System (Yuno -> Hugel -> Einbroch -> Lighthalzen -> repeat) +//============================================================ + +airplane.gat,243,74,4 script #AirshipWarp-1 45,2,2{ +OnTouch: + if($@airplanelocation == 1)warp "einbroch.gat",90,275; + if($@airplanelocation == 2)warp "yuno.gat",85,265; + if($@airplanelocation == 3)warp "lighthalzen.gat",302,75; + if($@airplanelocation == 4)warp "hugel.gat",182,150; + end; + +OnHide: + misceffect 16; + end; +OnUnhide: + misceffect 215; + end; +} + +airplane.gat,243,29,4 script #AirshipWarp-2 45,2,2{ +OnTouch: + if($@airplanelocation == 1)warp "einbroch.gat",90,275; + if($@airplanelocation == 2)warp "yuno.gat",85,265; + if($@airplanelocation == 3)warp "lighthalzen.gat",302,75; + if($@airplanelocation == 4)warp "hugel.gat",182,150; + end; + +OnHide: + misceffect 16; + end; +OnUnhide: + misceffect 215; + end; +} + +airplane.gat,1,1,0 script EinYuno_Airship -1,{ +OnInit: +while(1) +{ + initnpctimer; + setnpctimer 0; + set $@airplanelocation,0; + donpcevent "#AirshipWarp-1::OnHide"; + donpcevent "#AirshipWarp-2::OnHide"; + disablenpc "#AirshipWarp-1"; + disablenpc "#AirshipWarp-2"; + mapannounce "airplane.gat","The Airship is leaving the ground. Our next destination is Hugel.",1,0xBA55D3; + end; +OnTimer15000: + mapannounce "airplane.gat","We are heading to Hugel.",1,0xBA55D3; + end; +OnTimer30000: + mapannounce "airplane.gat","We will arrive in Hugel shortly.",1,0xBA55D3; + end; +OnTimer45000: + set $@airplanelocation,4; + enablenpc "#AirshipWarp-1"; + enablenpc "#AirshipWarp-2"; + donpcevent "#AirshipWarp-1::OnUnhide"; + donpcevent "#AirshipWarp-2::OnUnhide"; + mapannounce "airplane.gat","Welcome to Hugel. Have a safe trip.",1,0xBA55D3; + end; +OnTimer55000: + mapannounce "airplane.gat","Currently, we are in Hugel. The Airship will leave shortly.",1,0xBA55D3; + end; +OnTimer65000: + set $@airplanelocation,0; + donpcevent "#AirshipWarp-1::OnHide"; + donpcevent "#AirshipWarp-2::OnHide"; + disablenpc "#AirshipWarp-1"; + disablenpc "#AirshipWarp-2"; + mapannounce "airplane.gat","The Airship is leaving the ground. Our next destination is Einbroch.",1,0x00FF00; + end; +OnTimer80000: + mapannounce "airplane.gat","We are heading to Einbroch.",1,0x00FF00; + end; +OnTimer95000: + mapannounce "airplane.gat","We will arrive in Einbroch shortly.",1,0x00FF00; + end; +OnTimer110000: + set $@airplanelocation,1; + enablenpc "#AirshipWarp-1"; + enablenpc "#AirshipWarp-2"; + donpcevent "#AirshipWarp-1::OnUnhide"; + donpcevent "#AirshipWarp-2::OnUnhide"; + mapannounce "airplane.gat","Welcome to Einbroch. Have a safe trip.",1,0x00FF00; + end; +OnTimer120000: + mapannounce "airplane.gat","Currently, we are in Einbroch. The Airship will take off shortly.",1,0x00FF00; + end; +OnTimer130000: + set $@airplanelocation,0; + donpcevent "#AirshipWarp-1::OnHide"; + donpcevent "#AirshipWarp-2::OnHide"; + disablenpc "#AirshipWarp-1"; + disablenpc "#AirshipWarp-2"; + mapannounce "airplane.gat","The Airship is leaving the ground. Our next destination is Lighthalzen.",1,0xFF8600; + end; +OnTimer145000: + mapannounce "airplane.gat","We are heading to Lighthalzen.",1,0xFF8600; + end; +OnTimer160000: + mapannounce "airplane.gat","We will arrive in Lighthalzen shortly.",1,0xFF8600; + end; +OnTimer175000: + set $@airplanelocation,3; + enablenpc "#AirshipWarp-1"; + enablenpc "#AirshipWarp-2"; + donpcevent "#AirshipWarp-1::OnUnhide"; + donpcevent "#AirshipWarp-2::OnUnhide"; + mapannounce "airplane.gat","Welcome to Lighthalzen. Have a safe trip.",1,0xFF8600; + end; +OnTimer185000: + mapannounce "airplane.gat","Currently, we are in Lighthalzen. The Airship will leave shortly.",1,0xFF8600; + end; +OnTimer195000: + set $@airplanelocation,0; + donpcevent "#AirshipWarp-1::OnHide"; + donpcevent "#AirshipWarp-2::OnHide"; + disablenpc "#AirshipWarp-1"; + disablenpc "#AirshipWarp-2"; + mapannounce "airplane.gat","The Airship is now taking off. Our next destination is Yuno.",1,0x70DBDB; + end; +OnTimer210000: + mapannounce "airplane.gat","We are heading to Yuno.",1,0x70DBDB; + end; +OnTimer225000: + mapannounce "airplane.gat","We will arrive in Yuno shortly.",1,0x70DBDB; + end; +OnTimer240000: + set $@airplanelocation,2; + enablenpc "#AirshipWarp-1"; + enablenpc "#AirshipWarp-2"; + donpcevent "#AirshipWarp-1::OnUnhide"; + donpcevent "#AirshipWarp-2::OnUnhide"; + mapannounce "airplane.gat","Welcome to Yuno. Have a safe trip.",1,0x70DBDB; + end; +OnTimer250000: + mapannounce "airplane.gat","Currently, we are in Yuno. The Airship will leave shortly.",1,0x70DBDB; + end; +OnTimer260000: + stoptimer; +} +} + +//C4644E + +//============================================================ +//= Some normal NPCS (airplane.gat) +//============================================================ + +airplane.gat,240,64,5 script Exit#01::Exit2 857,{ + +end; + +} + +airplane.gat,247,64,5 duplicate(Exit2) Exit#02 857 + +airplane.gat,240,39,1 duplicate(Exit2) Exit#03 857 + +airplane.gat,247,39,1 duplicate(Exit2) Exit#04 857 + +airplane.gat,100,69,2 script Airship Crew#01::Airship Crew 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."; + close; + +} + +airplane.gat,250,59,3 script Airship Staff::AirshipInfo 67,{ + + 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.gat,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."; + close; + +} + + +airplane.gat,33,69,4 script Kaci 73,{ +if fragmentauest==1 { +mes "[Kaci]"; +mes "Oh.. Thx my dear"; +close2; +emotion e_kis; +delitem 7148,1; +set fragmentauest,2; +end; +} + callfunc "applegamble","Kaci"; + end; + + OnLose: + emotion e_wah; + end; + + OnWin: + emotion e_no1; + end; +} + +airplane.gat,80,71,4 script Zerta 834,{ + mes "[Zerta]"; + mes "Oh, hello adventurer."; + mes "I am currently on a"; + mes "sacred journey, offering"; + mes "prayer for the sake of the"; + mes "Rune-Midgard continent."; + close; +} + +airplane.gat,65,63,4 script Maelin 714,{ + mes "[Maelin]"; + mes "Um, this Airship is"; + mes "to Lutie, isn't it? I've"; + mes "been waiting so long,"; + mes "but I haven't heard any"; + mes "broadcast about Lutie."; + close; +} + +airplane.gat,32,61,4 script Nils::TypingContest 49,{ + +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; + mes "[Nils]"; + set @index,rand(1,getarraysize($textstringsa$))-1; + set @string1a$,$textstringsa$[@index]; + set @string1b$,$textstringsb$[@index]; + set @string1c$,$textstringsc$[@index]; + set @typingstring1$,$compstring$[@index]; + set @typingkeys,$lengths[@index]; + set @index2,rand(1,getarraysize($textstringsa$))-1; + while (@index2 == @index) { + set @index2,rand(1,getarraysize($textstringsa$))-1; + } + set @string2a$,$textstringsa$[@index2]; + set @string2b$,$textstringsb$[@index2]; + set @string2c$,$textstringsc$[@index2]; + set @typingstring2$,$compstring$[@index2]; + set @typingkeys,@typingkeys+$lengths[@index2]; + set @start,gettime(3)*60*60+gettime(2)*60+gettime(1); + 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]; + if(@comparisonvar$[1] == @typingstring1$ && @comparisonvar$[2] == @typingstring2$)set @typingcorrect,1; + next; + if(!@typingcorrect)goto s_Fail; + set @time,(gettime(3)*60*60+gettime(2)*60+gettime(1))-@start; //seconds taken + 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; + +} + +//============================================================ +//= The Airship System (Yuno -> Izlude -> Repeat) +//============================================================ + +airplane_01.gat,243,74,4 script #AirshipWarp-3 45,2,2{ +OnTouch: + if($@airplanelocation2 == 1)warp "izlude.gat",202,56; + if($@airplanelocation2 == 2)warp "yuno.gat",20,265; + end; + +OnHide: + misceffect 16; + end; +OnUnhide: + misceffect 215; + end; +} + +airplane_01.gat,243,29,4 script #AirshipWarp-4 45,2,2{ +OnTouch: + if($@airplanelocation2 == 1)warp "izlude.gat",202,56; + if($@airplanelocation2 == 2)warp "yuno.gat",20,265; + +OnHide: + misceffect 16; + end; +OnUnhide: + misceffect 215; + end; +} + +airplane_01.gat,1,1,0 script YunoIzl_Airship -1,{ +OnInit: +while(1) +{ + initnpctimer; + setnpctimer 0; + set $@airplanelocation2,0; + donpcevent "#AirshipWarp-3::OnHide"; + donpcevent "#AirshipWarp-4::OnHide"; + disablenpc "#AirshipWarp-3"; + disablenpc "#AirshipWarp-4"; + mapannounce "airplane_01.gat","The Airship is leaving the ground. Our next destination is Izlude.",1,0x00FF00; + end; +OnTimer15000: + mapannounce "airplane_01.gat","We are heading to Izlude.",1,0x00FF00; + end; +OnTimer30000: + mapannounce "airplane_01.gat","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.gat","Welcome to Izlude. Have a safe trip.",1,0x00FF00; + end; +OnTimer55000: + mapannounce "airplane_01.gat","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.gat","The Airship is leaving the ground. Our next destination is Yuno.",1,0x70DBDB; + end; +OnTimer80000: + mapannounce "airplane_01.gat","We are heading to Yuno.",1,0x70DBDB; + end; +OnTimer95000: + mapannounce "airplane_01.gat","We will arrive in Yuno 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.gat","Welcome to Yuno. Have a safe trip.",1,0x70DBDB; + end; +OnTimer120000: + mapannounce "airplane_01.gat","Currently, we are in Yuno. The Airship will take off shortly.",1,0x70DBDB; + end; +OnTimer130000: + stoptimer; +} +} + +//============================================================ +//= Some normal NPCS (airplane_01.gat) +//============================================================ + +airplane_01.gat,240,64,5 duplicate(Exit2) Exit#05 857 + +airplane_01.gat,247,64,5 duplicate(Exit2) Exit#06 857 + +airplane_01.gat,240,39,1 duplicate(Exit2) Exit#07 857 + +airplane_01.gat,247,39,1 duplicate(Exit2) Exit#08 857 + +airplane_01.gat,100,69,2 duplicate(Airship Crew) Airship Crew#02 852 + +airplane_01.gat,250,59,3 duplicate(AirshipInfo) Airship Staff#info 67 + +airplane_01.gat,50,66,4 duplicate(AirshipApples) Meltz 86 + +airplane_01.gat,32,61,4 duplicate(TypingContest) Nils 49 + +airplane_01.gat,83,61,2 script Girl#10 72,{ + + mes "[Dianne]"; + mes "It's so weird!"; + mes "I went to visit the"; + mes "Airship Captain and"; + mes "all I saw was this"; + mes "weird reindeer. Oh!"; + mes "Do you think that..."; + close; + +} + +airplane_01.gat,69,63,2 script Old Man#06 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 "have brought my chef so that"; + mes "I could enjoy a real meal."; + close; + +} + +airplane_01.gat,33,68,4 script Clarice 74,{ + callfunc "applegamble","Clarice"; + end; +} + +//============================================================ +//= The Izlude Airship Staff +//============================================================ + +izlude.gat,201,54,3 script Airship Staff#izl 91,{ + + mes "[Airship Staff]"; + mes "Welcome to the Izlude Airship."; + mes "How may I help you?"; + next; + menu "Board the Airship",-,"Cancel",L_Cancel; + + 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; + menu "Yes",-,"No",L_Cancel; + + if(countitem(7311) > 0) goto L_GotTicket; + if(Zeny < 1200) goto L_NoZeny; + set Zeny, Zeny - 1200; + warp "airplane_01.gat",224,64; + close; + + L_GotTicket: + delitem 7311,1; + warp "airplane_01.gat",224,64; + close; + + L_NoZeny: + mes "[Airship Staff]"; + mes "You don't have enough zeny."; + close; + + L_Cancel: + mes "[Airship Staff]"; + mes "Thank you and"; + mes "have a nice day."; + close; +} + +//============================================================ +//= The Hugel Airship Staff +//============================================================ + +hugel.gat,182,150,3 script Airship Staff#hu 91,{ + + mes "[Airship Staff]"; + mes "Welcome to the Schwartzwald Republic's Airship."; + mes "How may I help you?"; + next; + menu "Board the Airship",-,"Cancel",L_Cancel; + + 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; + menu "Yes",-,"No",L_Cancel; + + if(countitem(7311) > 0) goto L_GotTicket; + if(Zeny < 1200) goto L_NoZeny; + set Zeny, Zeny - 1200; + warp "airplane.gat",224,64; + close; + + L_GotTicket: + delitem 7311,1; + warp "airplane.gat",224,64; + close; + + L_NoZeny: + mes "[Airship Staff]"; + mes "You don't have enough zeny."; + close; + + L_Cancel: + mes "[Airship Staff]"; + mes "Thank you and"; + mes "have a nice day."; + close; +} + +//============================================================ +//= Yuno Airport NPCs +//============================================================ + +y_airport.gat,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; + menu "Yes.",s_Warp,"No.",-; + + mes "[Airship Staff]"; + mes "Thank you and"; + mes "have a nice day."; + close; + +s_Warp: + mes "[Airship Staff]"; + mes "Thank you and"; + mes "have a nice day."; + close2; + warp "yuno.gat",57,240; + end; + +} + +y_airport.gat,141,63,4 script Airport Staff#Izl 91,{ + + mes "[Airship Staff]"; + mes "Good day!"; + mes "Would you like to go"; + mes "to ^FF0000Izlude^000000?"; + next; + menu "Yes.",s_Warp,"No.",-; + + mes "[Airship Staff]"; + mes "Thank you and"; + mes "have a nice day."; + close; + +s_Warp: + mes "[Airship Staff]"; + mes "Thank you and"; + mes "have a nice day."; + close2; + warp "yuno.gat",50,240; + end; + +} + +//============================================================ +//= Apple Gambling Function +//============================================================ + +function script applegamble { + mes "["+getarg(0)+"]"; + mes "Hi, I'm "+getarg(0)+"~"; + mes "How would you like"; + mes "to wager some Apples"; + mes "in a friendly game of Dice?"; + next; + 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?"; + close; + case 2: + mes "["+getarg(0)+"]"; + mes "The rules for the Dice game"; + mes "are pretty simple. First, you"; + mes "place a bet by wagering Apples."; + mes "You can bet a maximum of 50"; + mes "Apples at a time. To keep things"; + mes "legal, I can only accept Apples."; + next; + mes "["+getarg(0)+"]"; + mes "But hey, if all that zeny"; + mes "is burning a hole in your"; + mes "pocket, head over to Fruitz"; + mes "and you can buy as many"; + mes "Apples as you want, playah~"; + next; + mes "["+getarg(0)+"]"; + mes "Now, we begin with me"; + mes "rolling wto 6-sided dice."; + mes "When it's your turn, you'll"; + mes "roll two 6-sided dice. After"; + mes "that, both of us will have the"; + mes "option of rolling a third die."; + next; + mes "["+getarg(0)+"]"; + mes "Now here's the important"; + mes "thing. If your total is higher"; + mes "than 12, you'll bust, meaning"; + mes "that you lose. Otherwise, the"; + mes "person with the higher total"; + mes "is the winner. Got it?"; + next; + mes "["+getarg(0)+"]"; + mes "Now, you'll be the first"; + mes "to decide whether or not"; + mes "you'll roll the third die. Then,"; + mes "depending on your result, I'll"; + mes "roll my third die... Or maybe not."; + next; + mes "["+getarg(0)+"]"; + mes "When you win, you'll"; + mes "receive twice as many"; + mes "Apples as you wagered."; + mes "But if we happen to tie, you"; + mes "get the Apples that you bet"; + mes "returned to you. Fair, right?"; + close; + case 1: + break; + } + mes "["+getarg(0)+"]"; + mes "Ooh, so you'll play with"; + mes "me? Great! How many"; + mes "Apples would you like to bet?"; + mes "Remember, you can wager"; + 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){ + 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; + goto L_Input; + } + if(countitem(512)<@amount){ + //more apples then in inventory + //-Improvised- + mes "["+getarg(0)+"]"; + mes "Ooh..."; + mes "You don't have that"; + mes "much Apples with you,"; + mes "now do you?"; + close; + } + delitem 512,@amount; + mes "["+getarg(0)+"]"; + mes "Good!"; + mes "Now we can start"; + mes "this game! I'll roll first~"; + next; + mes "^0000FF*Rolling and rumbling*"; + set @table1,rand(1,6); + set @table2,rand(1,6); + set @tablesub,@table1+@table2; + 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.",-; + + mes "^0000FF*Rolling and rumbling*"; + set @player1,rand(1,6); + set @player2,rand(1,6); + set @playersub,@player1+@player2; + next; + mes "["+getarg(0)+"]"; + mes strcharinfo(0)+","; + mes "you rolled a "+@player1+" and a "+@player2+","; + mes "giving you a total of ^FF0000"+@playersub+"^000000."; + next; + mes "["+getarg(0)+"]"; + if(@playersub == @tablesub) { + mes "Well, well, well."; + mes "Both of us have a total"; + mes "of "+@playersub+". Well, the ball's in"; + mes "your court. Are you going"; + mes "to roll your third die,"; + mes strcharinfo(0)+"?"; + } else if(@playersub > @tablesub) { + mes "Since my total is only ^0000FF"+@tablesub+"^000000,"; + mes "you have the advantage for"; + mes "now with your total of ^FF0000"+@playersub+"^000000. Do"; + mes "you wanna roll one more die?"; + mes "Remember, you'll bust if all three"; + mes "of your dice total more than 12."; + } else if(@tablesub > @playersub) { + mes "Since my total is ^0000FF"+@tablesub+"^000000,"; + mes "I have the advantage for"; + mes "now with your total of ^FF0000"+@playersub+"^000000. Do"; + mes "you wanna roll one more die?"; + mes "Remember, you'll bust if all three"; + mes "of your dice total more than 12."; + } + next; + if(select("Roll another dice.:Don't Roll.")==2){ + mes "["+getarg(0)+"]"; + mes "Not gonna roll, huh?"; + if(@tablesub == @playersub) { + mes "You better hope I roll"; + mes "too high and bust, or"; + mes "I'll beat you for sure!"; + mes "Okay, here goes nothing..."; + next; + goto L_Table3; + } else if(@tablesub < @playersub) { + next; + mes "["+getarg(0)+"]"; + mes "Alright, I see that you"; + mes "don't want to risk rolling"; + mes "higher than 12 and busting."; + mes "I'll go ahead and roll then."; + next; + goto L_Table3; + } else if(@tablesub > @playersub) { + //you have a lower sub total then table, and do not roll 3th -Improvised- + mes "["+getarg(0)+"]"; + mes "Not gonna roll, huh?"; + mes "Well, then I'm not"; + mes "gonna roll either."; + next; + mes "["+getarg(0)+"]"; + mes "That means that I"; + mes "have a total of ^0000FF"+@tablesub+"^000000"; + mes "wich beats your ^FF0000"+@playersub+"^000000."; + mes "I'm sorry, but you lose"; + mes "this game, "+strcharinfo(0)+". Better"; + mes "luck next time."; + } + close; + } + mes "^0000FF*Rolling and rumbling*"; + set @player3,rand(1,6); + set @playersub,@playersub+@player3; + if(@playersub > 12) { + //player bust --Improvised-- + next; + mes "["+getarg(0)+"]"; + mes "Oh my... You rolled a ^FF000"+@player3+"^000000,"; + mes "making your total ^FF0000"+@playersub+"^000000."; + mes "That's more then 12, meaning you bust."; + mes "Sorry, but you lose this"; + mes "game, "+strcharinfo(0)+"."; + close; + } + next; + mes "["+getarg(0)+"]"; + mes "Oh hey! You rolled"; + if(@playersub >= @tablesub) { + mes "a ^FF0000"+@player3+"^000000, giving you a total"; + mes "of ^FF0000"+@playersub+"^000000. Now, if I don't"; + mes "roll, I'll lose for sure!"; + mes "I'm gonna go for it..."; + next; + goto L_Table3; + } else if(@playersub < @tablesub) { + //player's sub together with 3th die is still too low + //--Improvised-- + mes "a ^FF0000"+@player3+"^000000, giving"; + mes "you a total of ^FF0000"+@playersub+"^000000."; + mes "Wich still isn't enough"; + mes "to beat my ^0000FF"+@tablesub+"^000000."; + mes "Sorry, but you lose this"; + mes "game, "+strcharinfo(0)+". Them's"; + mes "the breaks, I suppose..."; + close; + } +L_Table3: + mes "^0000FF*Rolling and rumbling*"; + set @table3,rand(1,6); + set @tablesub,@tablesub+@table3; + next; + if(@tablesub > 12) { + mes "["+getarg(0)+"]"; + mes "Eh? I rolled a ^0000FF"+@table3+"^000000, making"; + mes "my total ^0000FF"+@tablesub+"^000000. I hate to say"; + mes "it, but I gambled and lost."; + mes "Take your winnings before"; + mes "I cry, "+strcharinfo(0)+"~!"; + close2; + getitem 512,@amount*2; + end; + } + mes "["+getarg(0)+"]"; + if(@tablesub < @playersub) { + mes "I rolled a "+@table3+", which"; + mes "gives me a total of ^0000FF"+@tablesub+"^000000."; + mes "But... It's still not enough"; + mes "to beat your ^FF0000"+@playersub+"^000000. It looks"; + mes "like I can't compete with"; + mes "you, "+strcharinfo(0)+"..."; + close2; + getitem 512,@amount*2; + end; + } else if(@tablesub > @playersub) { + mes "I rolled a ^0000FF"+@table3+"^000000, giving"; + mes "me a total of ^0000FF"+@tablesub+"^000000 which"; + mes "beats your total of ^FF0000"+@playersub+"^000000."; + mes "Sorry, but you lose this"; + mes "game, "+strcharinfo(0)+". Them's"; + mes "the breaks, I suppose..."; + close; + } else if(@tablesub == @playersub) { + //Result = tie, --Improvised-- + mes "I rolled a ^0000FF"+@table3+"^000000, giving"; + mes "me a total of ^0000FF"+@tablesub+"^000000, which"; + mes "is the same as your total."; + mes "Well, this game didn't have a"; + mes "winner or loser, "+strcharinfo(0)+"."; + close2; + getitem 512,@amount; + end; + } +} -- cgit v1.2.3-70-g09d2