' "The Birthday Assignment" ' Created with QDK 4.1.5 !include define game asl-version <410> start game author game info startscript { msg wait } afterturn { if ( %crew tolerance% = 0 ) then { msg <|bCrew Tolerance: 0|n|xbSorry Captain. You had a good run, but ultimately, you made too big mistakes, too often.|n|nYour crew has lost their faith in you and has mutinied, demanding you drop them off at the nearest airdock, or they will kill you.|n|nYou simply cannot run a ship on your own.|n> playerlose } } verb msg verb msg verb msg verb msg verb msg verb msg verb msg define variable type numeric value <1600> display nozero end define define variable type numeric value <3> display end define end define define options debug on panes on abbreviations on end define define synonyms end define define room alias look <|nThe registration office is quite tidy albeit it's small size. The roof is surprisingly tall and the walls are covered in thick bookshelves rich with titles on subjects so obscure you suspect they may be fiction. Upon the , wooden floor, a sturdy escritoire adorns the center accompanied by a chair, which is currently occupied by the Airlines advisor. A short, middle-aged and well-dressed man, he stands and greets you with a warm smile.|n|n"Welcome, welcome. Ah, I presume you're here to have your forms stamped, are you? That's what's wrong with all you young pilots, as soon as you've been licensed, you're all raring to go! Oh, ha ha. Well then, here are your forms, you are now licensed to fly your ship in our fair skies. If you would like some information, feel free to speak to me with the speak to command(|bspeak to|xb |iadvisor|xi), and I will do my best to assist you."|n|nJust as he seats himself, he looks back up at you and adds: "Oh, please don't forget that the |bdoor will lock|xb on your way out. I'm just about to finish up here" - he indicates to the stack of papers by his desk - " So if there's anything you'd like to ask, now's the time."|n|nTo your EAST there is the exit door.> east define object alias look speak { msg <"You're taking this quite seriously, I see. Very good to hear. Don't worry, you'll be out in just a moment so please be patient.|n|nFirst thing is first - you need to prepare yourself for what you might face out there. You can |bequip your ship with a cannon, purchase armaments to arm your crew |xbor|b upgrade your engine|xb, should you choose.|nTo do this, you will need to pay. To the right of your screen you will notice your current funds. Keep track of them and make your decisions wisely."> wait msg <|n"Acting in text adventure's isn't to difficult. Simply |itype out|xi what you want to do. Keep in mind that it's |bverb before noun|xb.|nExample, |i'break open nut'|xi as opposed to |i'break but open'|xi.|n|nMoving is a simple affair, type in the direction or use the arrows."|n|n> wait msg <|n"And last, but certainly not least, we have Crew Tolerance (CT). This is affected by your actions and will have a direct effect on whether or not your crew will stand by your side. It will rise as they see you more favourable and drop as they begin to think less of you. |bDon't let it hit zero.|xb"|n|nAnd that's all I have to say. Best of luck in your journey.> } prefix displaytype article gender properties end define define object alias
look speak displaytype article gender invisible end define end define define room alias look indescription north east west locked define object look speak displaytype article gender properties end define define object alias look speak prefix displaytype article gender properties end define end define define room alias north south west script if not flag then msg else msg define object alias look msg speak { msg wait choose } prefix displaytype article gender properties end define define object look displaytype article gender invisible end define end define define room alias east script { if flag then { msg } else { msg flag on } } define object alias speak { msg wait choose } prefix displaytype article gender properties end define define object look speak displaytype article gender invisible properties end define end define define room alias look south define object alias look speak { msg wait choose } displaytype article gender action { msg msg <> if ( %money% >= 20 ) then { msg dec goto } else { msg playerlose } } end define define object look speak displaytype article gender invisible properties end define define object look displaytype article gender invisible end define end define define room alias look north south west end define define room alias south script { if not flag then { msg flag on wait choose } else { msg } } define object look speak { msg <"Hola! Changed your mind yet?"> wait choose } displaytype article gender action { msg wait choose } end define end define define room alias look north define object displaytype article gender properties action goto end define end define define room alias script { msg wait msg <"Captain! Captain!"|nIt's Tony, your first mate. In truth, he has as little experience as you, but is a good friend of yours whom you trust very much. You could find no other more suited for the role of first mate.|n|n"A dust storm, dead ahead cap'n! I've never seen anything like it before in my life!" cries Tony.|n"Well what'll we do then?" says one voice. "Yeah, what're we gonna do? C'mon captain, time to get to work!" says another. It seems you still don't quite have the trust of your crew yet.|n|n"Well, I guess we could just go through it..." suggests Tony "It's only a bit of dust, after all!"> if flag then { msg <|nHearing this, Kevin suddenly speaks up.|n"What're you, crazy kid? Those storms have been known to uproot mountains! You'll barely survive if you go through them!"|nHe then turns to address you directly.|n"Way back when, the more daring captains would fly around these storms, but most of the time we used to wait out storms like this, since most of the time our ships were |itoo slow|xi to make it in good time. On the other hand, waiting behind meant that we're |isitting ducks|xi for pirates..."> } wait choose } end define define room script { msg wait goto } end define define room script { msg msg wait playerwin } end define define selection info choice { if ( %money% >= 900 ) then { msg goto dec flag on } else { msg goto } } choice { if ( %money% >= 1000 ) then { msg dec goto flag on } else { msg goto } } choice msg <"If you want some technical know-how, I'm your girl. Let me run you down on your options.|n|nIf you want to punch some holes into pirate ships, then by all means, get yourself a ship mounted cannon. Some of the small fry can't stand up to an assault like that and will scram as soon as they see it.|n|nHowever, if you want some more up close and personal protection, you should outfit yourself and your crew with weapons and armour. We sell all kind of weapons, to single shot rifles and flintlocks to Halberds and Cutlass swords.> end define define selection info choice { if ( %money% >= 10 ) then { msg dec } else msg } choice { msg wait choose } choice msg end define define selection info choice { if ( %money% >= 10 ) then { dec msg } else msg } choice { if ( %money% >= 30 ) then { msg flag on dec msg <...|n....|n|bCongratulations on a well made decision.|xb> hide } else msg } choice msg end define define selection info choice { msg wait choose } choice { if not flag then msg <"Have you met old Kevin? He never says much, but they say that he was once a great commodore. Haven't seen him for a while, though. He's a scruffy guy, used to hang out by the central square."|n|nYou thank him for the information.> else { if not flag then { if not flag then { msg <"Hey buddy," he leans in, as if to draw you closer. You lean in and he speaks.|n"Listen, I've got some booze I could do with getting rid of. I've got about ten kegs of the stuff - quite frankly, it's not selling.|n|nI'll sell it to you. For 50 credits a keg - that's half of what I bought it for, no shit.|n500c and it's all yours. I'll even have it loaded onto your ship, free of charge. How's that?"|n|nYou think about this for a moment. You're sure that your crew will appreciate the alcohol, and that perhaps you could trade it as a commodity.> wait choose flag on } else { msg <"I've still got the booze for sale. Are you interested?"> wait choose } } else msg } } choice msg <"Well, apart from buying a drink at the fine tavern - " he gives you a mischevious wink - " there really isn't anything here. Prospect is just a simple port-town, afterall. The residential areas are south of the Central Square, but you don't have any business there, do you?"|n|nYou thank him for his time and are about to leave when he adds...|n|n"Oh. Dust storms. They're quite common in this area. They'll cause all kinds of problems for you if you're not careful."|n> choice msg <"Well, take care then."|nHe resumes polishing glasses.> end define define selection choice { if ( %money% >= 500 ) then { msg <"I'm quite glad to hear it. I'll have Lionel deliver it to your ship, you should have it once you get back.|nPlease, do enjoy it, and remember that if you abuse the drink, the drink will abuse you."|n|iYour crew will appreciate the drinks.|nCrew tolerance +1|xi> dec flag on inc } else msg } choice msg end define define selection info choice { msg <"Yeah. I'm the mechanic here.|nSo, you're the owner of that airship out there? Nice machine,, for real. I can fix up her engine for ya, make her as fast as a panther and as smooth as butter. Gonna cost ya, though."> wait choose } choice <'Working Horse'?> { msg <"Yeah. Have you met the others? They're always askin for my help whenever there's work to be done.|nLionel do this, Lionel do that, Lionel, won't you please be a dear and cure cancer for me? I'm tellin' ya, it's a pain, but at least the people here pay alright.|nAnyway. So, you're the owner of that airship out there? Nice machine, for real. I can fix up her engine for ya, make her as fast as a panther and as smooth as butter. Gonna cost ya, though."> wait choose } end define define selection info choice { if ( %money% >= 1000 ) then { msg flag on dec } else msg } choice { msg wait choose } choice msg <"Come back anytime." He says.> end define define selection info choice { if flag then { msg dec goto } else { msg flag on goto } } choice { msg dec goto } end define define selection info choice { msg if flag then { msg <|nWith a whirr and a clunk, the engine suddenly kicks into a top gear you never though possible for airships. Lionel did a good job - you cruise around the dust storm at a safe distance and make it to the next town without a scratch.|n|nYour crew can't help but be impressed by your preperation and quick decision making.|n|iCrew Tolerance +1|xi> goto inc } else { msg <|nThe ship slowly picks up speed, but never manages to pick up enough momentum to put adequate distance between yourself and the ship.|n...|n|nYour ship took heavy damage and your crew does not respect your decision.|n|iCrew tolerance -2|xi> dec goto } } choice { msg dec goto } choice { msg if flag then msg <|nKevin pipes up suddenly.|n"Gaah. Don't you worry too much about them. Look, they're just small fry, not even armoured. I'm sure you've prepared something for this, captain."> wait choose } end define define selection info choice { if flag then { msg inc goto } else { msg wait choose } } choice { msg msg <|nTony sends a dispatch.|n"Uh, support craft? Yes, we will allow you to board. Please appoach our boarding action from the starboard side of the ship."|nYou hear a bit of sniggering on the other line as the other captain confirms the instructions.> enter if flag then { msg <|nAs the pirates board, the one at the head of the pack jumps forward with a pistol raised, crying "Har har! We tricked ye all! Walk the pl-" and stops abruptly when he notices your crew and their aresenal of weapons.|n|nHis cohorts, not being fortunate enough of seeing what they where up against, barged into the ship, and where defeated.|nSeveral of the pirate crew were slain, and the rest fled back to their own ship, only to find your crew had released the boarding plank beneath them as they fell to their deaths.|n|nThe few who did escape did so cursing revenge under their breath, but you get the feeling that they won't survive for long.|n|nYour crew can't help but be impressed by your preperation and quick decision making.|n|iCrew Tolerance +1|xi> inc goto } else { msg if flag then { msg <|nOne of the pirates comes up from the lower deck.|n"Ey boss! Look what I've found!" And dumps a keg of alcohol on the floor. |n|nThe pirates soon get to work, moving the alcohol from your ship to theirs. |n> msg <> if flag then { msg dec goto } else { msg wait <...> msg wait msg playerlose } } else { msg wait <...> msg wait msg playerlose } } } end define