AMOS PD CD

home *** CD-ROM | disk | FTP | other *** search

/ AMOS PD CD / amospdcd.iso / sourcecode / general / adventure.amos / adventure.amosSourceCode next >

Wrap

AMOS Source Code | 2000-10-30 | 30.6 KB | 899 lines

' '################################################################## '### YB&TM - TQFTPB - THE COMPUTER GAME!!! AMIGA VERSION!!! ### '### WRITTEN BY PETERSAM, THE AMOS MAN!!! ### '################################################################## ' ' INTRO:- ' Led Off If Chip Free+Fast Free<500000 Then Goto LOWMEM SETUP: Global ANSWER$,LOWMEM,LOCATION,SPEECH,MOVENO,LINE,YB,TM,OPEN,OPENTM,HELPNO YB=1 : TM=1 Load "YB&TM:YBTMmusic.ABK" Screen Open 0,320,256,4096,Lowres Flash Off : Curs Off : Hide On Unpack 4 To 0 Wait 100 For OFFSET=64 To 350 Step 16 Screen Display 0,130,OFFSET,320,256 : Wait Vbl Next Wait 50 Screen Open 0,320,256,16,Lowres Unpack 2 To 0 : Get Sprite Palette Music 1 Do : OPENSHUT If OPEN=False and YB>1 Then Dec YB If OPEN=True and YB<3 Then Inc YB If YB=3 Then OPEN=False If OPENTM=False and TM>1 Then Dec TM If OPENTM=True and TM<3 Then Inc TM If TM=3 Then Add WORRLY,1,1 To 10 If TM=3 and WORRLY=10 Then OPENTM=False Bob 1,60,140,YB : Wait Vbl Bob 2,200,135,TM : Wait Vbl If Mouse Key Then Goto FINISH Loop ' LOWMEM: Close Workbench For QWERTY=6 To 16 Erase QWERTY Next Erase 4 Load "YBTMMUSIC.abk" Screen Open 0,320,256,16,Lowres Unpack 2 To 0 Hide Bob 1,60,140,1 : Bob 2,200,135,2 Music 1 : Repeat : Until Mouse Key FINISH: Fade 10 For VOL=63 To 0 Step -1 Volume VOL : Wait 3 : Next Music Off : Volume 63 Wait 100 Show ' ' SET UP:- ' HIGHMEMSETUP: If Chip Free+Fast Free<512000 Then LOWMEM=True If LOWMEM Then Goto LOWMEMSETUP Set Talk ,1,85,200 SPEECH=True Screen Open 0,640,70,2,Hires Screen Display 0,,240,, CHANGECURS Screen Open 1,320,256,16,Lowres Curs Off : Flash Off LINE=4 SETUPALL: Screen Open 2,320,32,2,Lowres Unpack 5 To 2 Reserve Zone 12 Set Zone 1,0,0 To 56,16 Set Zone 2,56,0 To 104,16 Set Zone 3,104,0 To 160,16 Set Zone 4,160,0 To 216,16 Set Zone 5,216,0 To 264,16 Set Zone 6,264,0 To 320,16 Set Zone 7,0,16 To 56,32 Set Zone 8,56,16 To 104,32 Set Zone 9,104,16 To 160,32 Set Zone 10,160,16 To 216,32 Set Zone 11,216,16 To 264,32 Set Zone 12,264,16 To 320,32 Screen 0 : Screen To Front 0 Goto LOCATION1 LOWMEMSETUP: Screen Open 0,640,200,2,Hires : Wait Vbl Screen Display 0,,85,, LINE=20 CHANGECURS Goto SETUPALL ' ' PROCEDURES:- ' Procedure OPENSHUT If Vumeter(0)>0 Then OPEN=True : YB=1 If Vumeter(2)>0 Then OPENTM=True : TM=1 : WORRLY=1 End Proc Procedure COMMAND Change Mouse 2 WIPE Screen 0 : Print "what now?" Screen To Front 2 : Screen 2 Repeat : Until Mouse Key : Repeat : Until Mouse Key=0 If Mouse Zone=1 Then ANSWER$="NORTH" If Mouse Zone=2 Then ANSWER$="SOUTH" If Mouse Zone=3 Then ANSWER$="EAST" If Mouse Zone=4 Then ANSWER$="WEST" If Mouse Zone=5 Then ANSWER$="HELP" If Mouse Zone=6 Then ANSWER$="WAIT" If Mouse Zone=7 Then ANSWER$="PRESS" If Mouse Zone=8 Then ANSWER$="READ" If Mouse Zone=9 Then ANSWER$="SAY" If Mouse Zone=10 Then ANSWER$="TAKE" If Mouse Zone=11 Then ANSWER$="EXAMINE" If Mouse Zone=12 Then ANSWER$="TALK" Change Mouse 3 End Proc Procedure HELP Inc HELPNO If HELPNO>10 WRITE["I am getting fed up of you asking for help!!"] : Pop Proc End If If LOCATION=1 WRITE["Why not explore the surroundings?"] End If If LOCATION=2 WRITE["The Beck seems a nice place to visit!"] End If If LOCATION=3 WRITE["Dont trespass on Saint theresas, will you?"] End If If LOCATION=4 WRITE["You are on the right track. . . "] End If If LOCATION=5 WRITE["Perhaps the shiny metal thing needs examination."] End If If LOCATION=6 WRITE["This plaque looks interesting."] End If If LOCATION=7 WRITE["Hello, mister warburton, your legs are so fluffy."] End If If LOCATION=8 WRITE["Dont be afraid to go inside the portaloo."] End If If LOCATION=9 WRITE["That door to the North looks interesting!"] End If If LOCATION=10 WRITE["This is a suttle hint that you CANT GO IN MY HOUSE!!!"] End If If LOCATION=11 WRITE["What the chuff are you doing here?"] End If If LOCATION=12 WRITE["They went thattaway!! (SOUTH)"] End If If LOCATION=13 WRITE["Chase a bug around a tree Ill get his blood he knows I will"] End If If LOCATION=14 WRITE["QUICK! AFTER THEM!!!"] End If If LOCATION=15 WRITE["BURP!!!!!! ANNNNNDROOOZZZZZZZZZZZAAAANNIIIIIIIIII. . . . . "] End If If LOCATION=16 WRITE["They didnt go this way."] End If If LOCATION=17 WRITE["You never listen to the help I give!! I might as well TALK TO WALL"] End If If LOCATION=18 WRITE["The guards took Baa Mee south"] End If If LOCATION=19 WRITE["That door east loooks nice!! HINT HINT"] End If If LOCATION>=20 WRITE["I am not going to give you any more help!! Hee hee hee hee hee"] End If End Proc Procedure UNIVERSAL Inc MOVENO If Upper$(ANSWER$)="SAY" and SPEECH=False and LOWMEM=False Then SPEECH=True : WIPE If Upper$(ANSWER$)="SAY" and SPEECH=True Then SPEECH=False : WIPE If Upper$(ANSWER$)="HELP" Then HELP : WIPE If Upper$(ANSWER$)="WAIT" Then WRITE["Waiting... (Yawn!!)"] : WIPE If Upper$(ANSWER$)="N" Then ANSWER$="North" : WIPE If Upper$(ANSWER$)="S" Then ANSWER$="South" : WIPE If Upper$(ANSWER$)="E" Then ANSWER$="East" : WIPE If Upper$(ANSWER$)="W" Then ANSWER$="West" : WIPE End Proc Procedure WRITE[WORRLY$] Screen 0 : Screen To Front 0 If Y Curs>LINE and SPEECH=False Centre "-- SLAP A MOUSE EYEBALL TO CONTINUE --" Repeat : Until Mouse Key : Repeat : Until Mouse Key=0 : Cls End If Centre WORRLY$ : Print If SPEECH Then Say WORRLY$+"."+Space$(100) End Proc Procedure WIPE ANSWER$="" End Proc Procedure CHANGECURS L1=%11 L2=%111 L3=%1111 L4=%111111 L5=%111111 L6=%1111 L7=%111 L8=%11 Set Curs L1,L2,L3,L4,L5,L6,L7,L8 End Proc Procedure PICCY[PIC] If LOWMEM=False Screen 1 : Cls 0 Unpack PIC To 1 Screen To Back 1 End If End Proc ' ' LOCATION DESCRIPTIONS:- ' LOCATION1: LOCATION=1 PICCY[12] WRITE["Your two friends, Andrew, who everyone calls Barmy,"] WRITE["and Jonjo Roberts, who is often called Splerge, have come round"] WRITE["to your house, to play on your fab AMIGA. After blowing up"] WRITE["mindless green blobs, Barmy suggested going on a quest for a"] WRITE["banana with a slightly pink shade. You worry about him sometimes."] WRITE["So you, Barmy and Splerge are standing outside your"] WRITE["house trying to decide which way to go. To the West is Saint"] WRITE["Teresa's primary, to the East is the beck, a long wet river."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="EAST" Then Goto LOCATION4 If Upper$(ANSWER$)="WEST" Then Goto LOCATION2 If Upper$(ANSWER$)="NORTH" WRITE["Unfortunately, the only thing directly North is a large tree"] WRITE["and walking straight into it would be quite painful."] End If If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION10 Until LOCATION<>1 ' LOCATION2: LOCATION=2 PICCY[15] WRITE["You and the others are walking along Barwick Road. To the"] WRITE["West is Saint Teresas school, to the East is your house."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="EAST" Then Goto LOCATION1 If Upper$(ANSWER$)="WEST" Then Goto LOCATION3 If Upper$(ANSWER$)="NORTH" WRITE["To the North is a very boring cul-de-sac."] WRITE["You want to go that way, but Splerge"] WRITE["and Barmy dont, so you stay where you are."] End If If Upper$(ANSWER$)="SOUTH" WRITE["The only thing South is the Denill streets. You want to go visit"] WRITE["Margaret, who lives there, but BarmyBrain doesnt."] End If Until LOCATION<>2 ' LOCATION3: LOCATION=3 PICCY[15] WRITE["You are nearly at Saint Teresas. (It is West) Barwick Road"] WRITE["leads off to the East, and, eventually, your house."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="EAST" Then Goto LOCATION2 If Upper$(ANSWER$)="WEST" Then Goto LOCATION11 If Upper$(ANSWER$)="NORTH" WRITE["To the North is a very boring cul-de-sac."] WRITE["You want to go that way, but Splerge"] WRITE["and Barmy dont, so you stay where you are."] End If If Upper$(ANSWER$)="SOUTH" WRITE["The only things South are the Denill streets. You want to go "] WRITE["visit Margaret, who lives there, but BarmyBrain doesnt."] End If Until LOCATION<>3 ' LOCATION4: LOCATION=4 PICCY[15] WRITE["You start the trek up the hill that leads to Barwick-in-Elmet."] WRITE["To the west is your house. East, the road continues."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="EAST" Then Goto LOCATION5 If Upper$(ANSWER$)="WEST" Then Goto LOCATION1 If Upper$(ANSWER$)="SOUTH" WRITE["There isnt much of interest south. Jonjo has picked a"] WRITE["daisy and is chanting away to himself: 'Caroline loves me,"] WRITE["she loves me not. WWWooooorrrrrrrrrrrr' and other strange"] WRITE["noises."] End If If Upper$(ANSWER$)="NORTH" WRITE["You attempt to walk North, except that you notice that you"] WRITE["reached the Beck rather suddenly. Too late. With a splash"] WRITE["you fall in the water. Splerge and Barmy haul you out, and,"] WRITE["after five minutes, you have drip dried."] End If Until LOCATION<>4 ' LOCATION5: LOCATION=5 PICCY[15] WRITE["You reach the top of the hill. To the east, the road continues,"] WRITE["where as West, eventually, is your house. Barmy notices something"] WRITE["shiny towards the North."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="EAST" Then Goto LOCATION7 If Upper$(ANSWER$)="WEST" Then Goto LOCATION4 If Upper$(ANSWER$)="NORTH" Then Goto LOCATION6 If Upper$(ANSWER$)="SOUTH" WRITE["You would gladdly go south, if it wasnt for the fact that you"] WRITE["cant go in that direction!!!"] End If Until LOCATION<>5 ' LOCATION6: LOCATION=6 PICCY[7] WRITE["On closer inspection you see that the shiny metal thing is"] WRITE["actually a portaloo. Or is it??? There is a plaque on it."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" WRITE["You walk straight into the portaloo, and hurt your nose."] End If If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION5 If Upper$(ANSWER$)="EAST" WRITE["You go for a brief swim in the beck. When you get out, you"] WRITE["are in front of the portaloo again."] End If If Upper$(ANSWER$)="WEST" WRITE["You do your level best to walk to the west, but there is a steep"] WRITE["drop stopping you. Jonjo asks to help you by giving you a shove"] WRITE["but you decline."] End If If Upper$(ANSWER$)="READ" WRITE["You read the plaque. Here is what it says:"] Wait 100 : Cls Centre " ________________________________ " : Print Centre "| TIME MACHINE |" : Print Centre "| Press the button to toggle the |" : Print Centre "| door open and closed. Slap mah |" : Print Centre "| thighs with a soggy fish, too! |" : Print Centre "|________________________________|" : Print End If If Upper$(ANSWER$)="PRESS" Then Goto LOCATION8 Until LOCATION<>6 ' LOCATION7: LOCATION=7 PICCY[15] WRITE["You walk on a bit, but are knackered after the steep hill climb."] WRITE["Barmy sits in the middle of the road singing: 'I am a lumberjack"] WRITE["and I am okay,' for no apparant reason. Its all downhill to the "] WRITE["West. "] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" WRITE["You are so tired, that you only manage a few inches North."] End If If Upper$(ANSWER$)="SOUTH" WRITE["You are so tired, that you only manage a few inches South."] End If If Upper$(ANSWER$)="EAST" WRITE["You are so tired, that you only manage a few inches East."] End If If Upper$(ANSWER$)="WEST" Then Goto LOCATION5 Until LOCATION<>7 ' LOCATION8: LOCATION=8 PICCY[7] WRITE["With a grating squark, the door in the portaloo opens."] WRITE["Inside it seems incredibly roomy compared to the outside."] WRITE["Barmy has not noticed, as he is engrossed in saying "] WRITE["'good morning' to a grass hopper."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION9 If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION5 If Upper$(ANSWER$)="EAST" WRITE["You go for a brief swim in the beck. When you get out, you"] WRITE["are in front of the portaloo again."] End If If Upper$(ANSWER$)="WEST" WRITE["You do your level best to walk to the West, but there is a steep"] WRITE["drop stopping you. Jonjo asks to help you by giving you a shove"] WRITE["but you decline."] End If If Upper$(ANSWER$)="READ" WRITE["You read the plaque. Here is what it says:"] Centre " ________________________________ " : Print Centre "| TIME MACHINE |" : Print Centre "| Press the button to toggle the |" : Print Centre "| door open and closed. Slap mah |" : Print Centre "| thighs with a soggy fish, too! |" : Print Centre "|________________________________|" : Print End If Until LOCATION<>8 ' LOCATION9: LOCATION=9 PICCY[13] WRITE["The inside of the portaloo contains many gadgets, knobs (oo-er)"] WRITE["and flashing lights. To the south, a door is marked"] WRITE["'1991', to the East is a door marked '991', and the door due North"] WRITE["says '91' on it."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" WRITE["You walk through the door marked 91. You feel a strange sensation,"] WRITE["And when you come to you find yourself standing in front of a large"] WRITE["dinosaur. It is then you realize that '91' meant 91 million years BC!!"] WRITE["Before you can say 'oo eck a large dinosaur' you run back into"] WRITE["the portaloo."] End If If Upper$(ANSWER$)="EAST" Then Goto LOCATION14 If Upper$(ANSWER$)="WEST" WRITE["You walk into a wall, and bruise your head."] End If If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION6 Until LOCATION<>9 ' LOCATION10: LOCATION=10 PICCY[12] WRITE["You are standing in your drive way. To the South is your house,"] WRITE["To the North is barwick Road."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION1 If Upper$(ANSWER$)="SOUTH" WRITE["You would go inside your house, if it was not for the fact"] WRITE["that you have just locked yourself out."] End If If Upper$(ANSWER$)="EAST" WRITE["You walk straight into a brick wall and break your nose."] End If If Upper$(ANSWER$)="WEST" WRITE["Walking to the west is a silly idea, as there is only a"] WRITE["garage in that direction."] End If Until LOCATION<>10 ' LOCATION11: LOCATION=11 PICCY[15] WRITE["You are standing to the North of Saint Teresas Primary."] WRITE["To the East is a long road that eventually leads to your house."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="WEST" WRITE["Theres nowt of any interest in that direction."] End If If Upper$(ANSWER$)="SOUTH" WRITE["You enter the gates of Saint Teresas Primary school."] WRITE["The only problem is that Mrs. Fleming,"] WRITE["the head mistress, spots you and kicks you out."] End If If Upper$(ANSWER$)="EAST" Then Goto LOCATION3 If Upper$(ANSWER$)="NORTH" WRITE["You walk North into the main road, and narrowly avoid getting"] WRITE["run over by a Lada. (!!!!!)"] End If Until LOCATION<>11 ' LOCATION12: LOCATION=12 PICCY[6] WRITE["You and Twit Man are back in the courtyard. There is a drawbridge"] WRITE["North, and exits East and South."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION15 If Upper$(ANSWER$)="EAST" Then Goto LOCATION16 If Upper$(ANSWER$)="WEST" Then Goto LOCATION9 If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION18 Until LOCATION<>12 ' LOCATION13: LOCATION=13 WRITE["Two guards unlock the door to the North and run in."] WRITE["They see twitmans face and promptly commit suicide."] WRITE["Twitman says, 'I am a hero.' You think you"] WRITE["see something shiny in one of their medieval pockets."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="EXAMINE" WRITE["You search in one of the guards pockets. You see a brass key"] WRITE["That you think might unlock the door to the North."] WRITE["You try it, and, lo and behold, the door unlocks."] WRITE["You walk through into another similar room. You lock the"] WRITE["door behind you and swallow the key."] WRITE["This unfortunately means that there is no way out."] Goto LOCATION23 End If If Upper$(ANSWER$)="NORTH" WRITE["The door is locked!!"] End If If Upper$(ANSWER$)="SOUTH" WRITE["There is only a brick wall in that direction."] End If If Upper$(ANSWER$)="EAST" WRITE["There is only a brick wall in that direction."] End If If Upper$(ANSWER$)="WEST" WRITE["There is only a brick wall in that direction."] End If Until LOCATION<>13 ' LOCATION14: LOCATION=14 PICCY[6] WRITE["You are in the courtyard of a medieval castle. Barmy"] WRITE["shouts to you. 'Over here!! Look!' But before you know it,"] WRITE["two knights in shining armour have gagged him up."] WRITE["They try to do the same to you and JonJo, but they see JonJos face"] WRITE["and run away to the South, dragging Barmy behind them. Splerge"] WRITE["shouts: 'After them!!' and then proceeds to"] WRITE["sit on the floor and make cow noises."] WRITE["He obviously hasnt had a right lot of practise at following people."] WRITE["You pull a yoghurt carton out of your pocket. You eat it"] WRITE["(well, its contents), and JonJo eats a twix bar. You are magically"] WRITE["transmogrified into Yoghurt Boy, and Splerge is mutilated beyond"] WRITE["recognition to form Twit Man!! Yes, it should be Twix Man, but"] WRITE["he is so stupid you call him Twit man instead."] WRITE["There is a drawbridge in front of you, and corridors lead East and South."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION15 If Upper$(ANSWER$)="EAST" Then Goto LOCATION16 If Upper$(ANSWER$)="WEST" Then Goto LOCATION9 If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION18 Until LOCATION<>14 ' LOCATION15: WRITE["You walk straight out, onto a long wooden drawbridge."] WRITE["Or, at least, you would have done if there had been a drawbridge"] WRITE["there. As it is, you fall into the moat with a gigantic splash."] WRITE["Splerge asks if you want a help out. Sarcastically, you say"] WRITE["'No, I enjoy sinking.' Ten minutes later, as you reach the"] WRITE["bottom of the moat, you realize that theres a time and place"] WRITE["for sarcasm. And that wasnt it."] Wait 75 : End ' LOCATION16: LOCATION=16 PICCY[8] WRITE["You are in a long corridor. There is a room to the East,"] WRITE["And to the West there is the courtyard."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" WRITE["You can't go North!!!"] End If If Upper$(ANSWER$)="SOUTH" WRITE["You try to go South, but can't. AWWWWW!!"] End If If Upper$(ANSWER$)="WEST" Then Goto LOCATION12 If Upper$(ANSWER$)="EAST" Then Goto LOCATION17 Until LOCATION<>16 ' LOCATION17: LOCATION=17 PICCY[10] WRITE["You find yourselves in a room with no entrance or exit."] WRITE["Quite how you managed to get in in the first place baffles you."] WRITE["There doesnt seem to be any way out, but they do say"] WRITE["walls have ear's . . ."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" WRITE["There isnt any exits, so you cant go North."] End If If Upper$(ANSWER$)="SOUTH" WRITE["There isnt any exits, so you cant go South."] End If If Upper$(ANSWER$)="EAST" WRITE["There isnt any exits, so you cant go East."] End If If Upper$(ANSWER$)="WEST" WRITE["There isnt any exits, so you cant go West."] End If If Upper$(ANSWER$)="TALK" WRITE["You proceed to explain to the wall the virtues of letting you out."] WRITE["Twitman says 'No-one will speak to you if you let us die in here.'"] WRITE["You add: 'If you let us go, we can tell everyone how nice you are.'"] WRITE["The wall sees the error of its ways and provides you with an"] WRITE["opening towards the West."] WRITE["You and twitman run out of the room before anyone can say"] WRITE["'Quick lets run out of this room.'"] Goto LOCATION16 : End If Until LOCATION<>17 ' LOCATION18: LOCATION=18 PICCY[8] WRITE["You are in a corridor. To the South is a door saying"] WRITE["'YE OLDE GYMNASIUM' on it, whereas North is the courtyard."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION12 If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION19 If Upper$(ANSWER$)="EAST" WRITE["There is no way to go East!"] End If If Upper$(ANSWER$)="WEST" WRITE["Theres no way to go in that direction!"] End If Until LOCATION<>18 ' LOCATION19: LOCATION=19 PICCY[8] WRITE["You are in an old gym, covered in cobwebs."] WRITE["An old man is sitting on a mat. He has a crown on his head."] WRITE["You ask him if he has seen Barmy. 'I donteth even "] WRITE["knoweth who he iseth!'"] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION18 If Upper$(ANSWER$)="EAST" Then Goto LOCATION20 If Upper$(ANSWER$)="SOUTH" WRITE["You are about to walk through a door marked 'PRIVATETH', "] WRITE["but the king tells you not to. 'That roometh is privateth!!'"] End If If Upper$(ANSWER$)="WEST" WRITE['You walk West, straight in some gym equipment, and graize your left knee.'] End If Until LOCATION<>19 ' LOCATION20: LOCATION=20 PICCY[9] WRITE["You are in a short, dark corridor. There is a light to the East,"] WRITE["And to the West is the Gym."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" WRITE["It's too dark to see if there is anything to the North."] End If If Upper$(ANSWER$)="SOUTH" WRITE["It's too dark to see if there is anything to the North."] End If If Upper$(ANSWER$)="EAST" Then Goto LOCATION21 If Upper$(ANSWER$)="WEST" Then Goto LOCATION19 Until LOCATION<>20 ' LOCATION21: LOCATION=21 PICCY[16] WRITE["You find yourselves in a room with loads of treasure; "] WRITE["Gold coins, Statues, diamonds and jewelry."] WRITE["Twitman sees a bronze statue. He suggests that you Take it."] WRITE["'With all this money I will be able to buy loads of Ataris!'"] WRITE["He says. You add, 'And I will be able to afford millions of Amigas!'"] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="TAKE" WRITE["The statue appears to be a booby trap;"] WRITE["When you pick it up a lever is triggered and the floor seems to"] WRITE["open up beneath your feet. You and twitman fall into a dungeon "] WRITE["cell with apparantly no way out."] Goto LOCATION22 End If If Upper$(ANSWER$)="NORTH" WRITE["The only way out seems to be West."] End If If Upper$(ANSWER$)="EAST" WRITE["All the gold is blocking your path Eastwards."] End If If Upper$(ANSWER$)="SOUTH" WRITE["There is no way out that way."] End If If Upper$(ANSWER$)="WEST" Then Goto LOCATION20 Until LOCATION<>21 ' LOCATION22: LOCATION=22 PICCY[8] MOVEIT=MOVENO WRITE["To your North is a locked door"] Repeat If MOVENO-MOVEIT>5 Then Goto LOCATION13 COMMAND : UNIVERSAL WRITE["Unfortunately, there is no way to go in any direction."] Until LOCATION<>22 ' LOCATION23: LOCATION=23 PICCY[11] MOVEG=MOVENO WRITE["You see a banana on the floor. Next to it is a paint can."] WRITE["The banana is pink, and therefore has just been painted."] WRITE["The paint is just drying."] Repeat If MOVENO-MOVEG>5 Then Goto LOCATION24 COMMAND : UNIVERSAL If Upper$(ANSWER$)="TAKE" WRITE["Twitman picks up the banana. Unfortunately the paint is still"] WRITE["wet, and so he puts it back down again."] End If If Upper$(ANSWER$)="NORTH" WRITE["You cant go in any direction."] End If If Upper$(ANSWER$)="SOUTH" WRITE["You cant go in any direction."] End If If Upper$(ANSWER$)="EAST" WRITE["You cant go in any direction."] End If If Upper$(ANSWER$)="WEST" WRITE["You cant go in any direction."] End If Until LOCATION<>23 ' LOCATION24: LOCATION=24 PICCY[11] WRITE["Two guards materialize in the room you are in."] WRITE["'You areth under arresteth for stealingeth the kings potato.'"] WRITE["'I thought it was a banana!' you say."] WRITE["'Banana! Ha! What a silly name! The king officially"] WRITE["named it a potato!' says the first guard."] WRITE["'Dont you get a tad confused between bananas and potatoes?' "] WRITE["asks Twitman. You shush him."] WRITE["'Shush! Bananas and potatoes werent discovered in Britain"] WRITE["in the tenth century, apart from this one.'"] WRITE["'So why did he call it a potato?'"] WRITE["'It was probably a name he thought up of the top of his head.'"] WRITE["Twitman ponders what the king was doing with a potato on his head."] WRITE["He suggests that it would have been better to call the banana a crown."] WRITE["You politely ask the guards to set you free, but instead"] WRITE["they whack you round the head with a large blunt instrument."] WRITE["Twit man suddenly thinks of a joke."] WRITE["'What is the difference between me and an old umbrella?'"] WRITE["'Dont know.' says one of the guards."] WRITE["'I am a born wally, and the other is a worn brolly!'"] PICCY[14] WRITE["You wake up some time later with a splitting headache."] WRITE["You appear to be in a prison cell. You see Barmy."] WRITE["'Having fun, Barm??' you ask. "] WRITE["'No.' replies Barmybrain. Twit man is staring at two more prisoners"] WRITE["Being put in the same cell as you."] WRITE["'Hey!!' he says to one of them. 'Aren't you Haydn fitz Williams"] WRITE["from New Computer Express?'"] WRITE["'Write and tell H F W about anything under the sun!!"] WRITE["'Reach him at: Express Mail, 30 Monmouth. . .'"] WRITE["Barmys eyes open wide as he sees the other person."] WRITE["'Belching heck! Arent you that Keith Pom--'"] WRITE["'Does your PC keep packing up? Is your Amiga less than friendly?"] WRITE["Would your ST try the patience of a Saint? Write to Keith Pomfrets"] WRITE["Tech tips and we will soon see you right. Send your sorry stories to"] WRITE["30 Monmouth Street, Bath. . .'"] WRITE["'They must have come here through the time machine in 1991!'"] WRITE["'I use an amiga for this, a PC for that,"] WRITE["an MSX for this, an Apple Mac for that--'says Keith."] WRITE["'Macs are fab!' says Haydn Fitz Willy."] WRITE["'Unfortunately, not for games.' points out Keith."] WRITE["TwitMan decides to recite a poem he wrote about Haydn."] WRITE["'Haydn Fitz Williams went up the stairs"] WRITE["To interview some hackers,"] WRITE["But they tied him up and hit him hard"] WRITE["And kicked him in the left kneecap.'"] WRITE["The guards give him a round of applause. They go up to you."] WRITE["'You know thateth you found the kingeths potato,"] WRITE["or banana as you calleth it?' says one of the guards."] WRITE["'Yup.' You say."] WRITE["'Welleth, we have losteth it. And if we dont find it by"] WRITE["sunset. . . well, we willeth be executed.'"] WRITE["'Yeah.' says the other guard. 'You musteth find it foreth us. "] WRITE["Or we will killeth you!! Hahahahahahahahahahaha'"] WRITE["'You know what this means, dont you?' says Barmy."] WRITE["'Yes.' says Twitman. 'We are on THE QUEST FOR THE PINK BANANA!!"] WRITE["You are about to say 'about time too'. Youve been playing this"] WRITE["game for ages and youve only just started on the quest."] WRITE["But you decide to use tact. After all, this game took the"] WRITE["script writer and programmer weeks to write."] WRITE["There is an exit into a maze of dungeon cells to the North."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION26 If Upper$(ANSWER$)="SOUTH" WRITE["You walk south, and trip over Barmy who is sitting on the floor."] End If If Upper$(ANSWER$)="EAST" WRITE["You walk into the wall."] End If If Upper$(ANSWER$)="WEST" WRITE["You walk into the wall."] End If Until LOCATION<>24 ' LOCATION25: LOCATION=25 PICCY[14] WRITE["You walk back into the cell. Haydn and Keith are expounding"] WRITE["the virtues of the Commodore PET. There is a way out to the North."] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION26 If Upper$(ANSWER$)="SOUTH" WRITE["You walk south, and trip over Barmy who is sitting on the floor."] End If If Upper$(ANSWER$)="EAST" WRITE["You walk into the wall."] End If If Upper$(ANSWER$)="WEST" WRITE["You walk into the wall."] End If Until LOCATION<>25 ' LOCATION26: LOCATION=26 PICCY[8] B=Timer Repeat A=Timer-B TIMELEFT=(100-A/50) TIMELEFTY$=Str$(TIMELEFT) TIMELINE$="You look at your watch. You have"+TIMELEFTY$+" seconds left." WRITE[TIMELINE$] If TIMELEFT=<0 Then Goto LOCATION27 COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" and BUNK=0 Inc BUNK WRITE["You are lost in a maze, but are getting closer. . ."] End If If Upper$(ANSWER$)="EAST" and BUNK=1 Inc BUNK WRITE["You are lost in a maze, but are getting closer. . ."] End If If Upper$(ANSWER$)="WEST" and BUNK=2 Inc BUNK WRITE["You are lost in a maze, but are getting closer. . ."] End If If Upper$(ANSWER$)="SOUTH" and BUNK=3 Inc BUNK WRITE["You are lost in a maze, but are getting closer. . ."] End If If BUNK=4 Then Goto LOCATION28 WRITE["This corridor seems much like every other one."] Until LOCATION<>26 ' LOCATION27: LOCATION=27 WRITE["The king stands in front of you. 'You have noteth found"] WRITE["The pink potato! Noweth. . . YOU DIE!!"] WRITE["The earth seems to give way and you are falling. . . "] WRITE["Falling. . . Falling. . . "] WRITE["THE END"] Wait 75 : End ' LOCATION28: LOCATION=28 PICCY[8] WRITE["You stumble into a large room. A signpost pointing south says"] WRITE["'This way for the pink nana!' and a sign on a door to the west says"] WRITE["'NOT through this door for the pink nana!'"] Repeat COMMAND : UNIVERSAL If Upper$(ANSWER$)="NORTH" Then Goto LOCATION26 If Upper$(ANSWER$)="WEST" Then Goto LOCATION26 If Upper$(ANSWER$)="SOUTH" Then Goto LOCATION29 If Upper$(ANSWER$)="EAST" Then Goto LOCATION26 Until LOCATION<>28 ' LOCATION29: PICCY[11] WRITE["In the middle of the room you see the pink banana, and a note"] WRITE["tied to it says: 'told you it was this way'"] WRITE["The king enters. 'Ahhhh, you haveth found it. . .'"] WRITE["'Now,' you say, 'Return us and the others to our time machine.'"] WRITE["The king shows you the way to your time machine, and you, "] WRITE["Twitman, Barmy, Keith and Haydn return to 1991."] WRITE["We hope you enjoyed Yoghurt boy and Twitman, the Quest for the"] WRITE["pink banana. Dont miss Y B and T M 2 - The revenge!!"] WRITE["C O N G R A T U L A T I O N S ! !"] Wait 100 End