'sasi (bug fix for qbasic ver) ' and REPLACED VAR 'AS' WITH 'ASS' to allow use with qbasic interpreter ' modified 9090 restart section to go to 171 for proper restart ' added line 15035 for proper screen formatting ' added auto upper case coversion & removed check for caps 100 REM ******************* 110 REM * PIRATE ISALND * 120 REM * * 130 REM * BY * 140 REM * DAVID MENY * 150 REM ******************* 160 CLS : KEY OFF: DEFINT A-Z 170 DIM A(45, 6), O1$(20), O2$(20), TR(14), IN$(14), RO$(45) 171 GOSUB 20000: REM INITIALIZE 172 LOCATE 21, 1 173 PRINT "Pirate Island by David Meny" 174 PRINT "Copyright 1985, Menco, Inc." 175 PRINT 176 PRINT " In your sleep, you dream of valiant pirates who sail across the seas, finding" 177 PRINT "secret treasure hidden deep inside dangerous islands." 178 PRINT " You dream of adventourous fights to the death between pirates over gold-laced" 179 PRINT "statues or chest of gold coins from a long time ago." 180 PRINT " You dream and dream until the rocking of the seas wakens you on board the ship" 185 PRINT "'The Eagle's Nest', a pirate ship!": PRINT 190 GOSUB 15000: REM PRINT ROOM DESCRIPTION 200 GOSUB 14000: REM PRINT ROOM CONTENTS 210 IF START = 1 THEN MV = MV + 1 ELSE 219 211 IF MV = 10 THEN TR(2) = RO ELSE 219 212 PRINT "The captain walks up to you." 213 IF FLAG98 = 1 THEN 216 214 PRINT "'You fool!! We have been sailing for days now and we haven't found Pirate": PRINT "Island. I shouldn't have trusted you, even though you are my grand son.'" 215 PRINT "The captain pulls out his cutlass and decapitates you.": GOTO 2000 216 PRINT "'Congradulations!! We've come ashore on ze' old Pirate Island. Now go ashore by": PRINT "the east starboard deck.' The captain then hands you a bag of silver." 217 PRINT "'Spend it wisely. It's your payment IF you don't come back.'": TR(2) = 25: A(39, 2) = 22: FLAG97 = 1: TR(14) = 200 219 PRINT : INPUT ">", A$: A$ = UCASE$(A$) 220 IF A$ = "" THEN PRINT : PRINT "What?": GOTO 210 230 ASs = ASC(A$) '240 IF ASs < 65 OR ASs > 90 THEN PRINT : PRINT "I can only use capital letters, matey.": GOTO 210 245 IF A$ = "LOOK UNDER JULIUS" THEN GOSUB 8010: GOTO 210 246 IF A$ = "LOOK UNDER PIRATE ISLAND" THEN GOSUB 8150: GOTO 210 247 IF A$ = "LOOK UNDER DAVID MENY" THEN GOSUB 8300: GOTO 210 250 M = LEN(A$): IF M < 7 THEN A$ = A$ + " ": GOTO 250 260 KW = 0: B$ = LEFT$(A$, 3) 270 IF B$ = "INV" OR B$ = "I " THEN GOSUB 1000: GOTO 210 280 IF B$ = "SCO" THEN GOSUB 1500: GOTO 210 285 IF B$ = "DIG" THEN GOSUB 2250: GOTO 210 286 IF B$ = "KNO" THEN GOSUB 6500: GOTO 210 290 IF B$ = "QUI" OR B$ = "Q " THEN GOSUB 2000 300 IF B$ = "LOO" OR B$ = "L " THEN PRINT : GOTO 190 305 IF B$ = "SWI" THEN GOSUB 8500: GOTO 210 310 IF B$ = "N " THEN C$ = "N ": KW = 1: GOSUB 2500: GOTO 210 320 IF B$ = "S " THEN C$ = "S ": KW = 1: GOSUB 2500: GOTO 210 330 IF B$ = "E " THEN C$ = "E ": KW = 1: GOSUB 2500: GOTO 210 340 IF B$ = "W " THEN C$ = "W ": KW = 1: GOSUB 2500: GOTO 210 350 IF B$ = "U " THEN C$ = "U ": KW = 1: GOSUB 2500: GOTO 210 360 IF B$ = "D " THEN C$ = "D ": KW = 1: GOSUB 2500: GOTO 210 370 N = 1 380 IF MID$(A$, N, 1) = " " THEN C$ = MID$(A$, N + 1, 3): IF LEFT$(C$, 1) <> " " THEN 410 ELSE 400 390 IF N < M THEN N = N + 1: GOTO 380 400 PRINT : PRINT "I don't know that word.": GOTO 210 410 IF B$ = "GO " OR B$ = "MOV" OR B$ = "WAL" THEN KW = 1: GOSUB 2500: GOTO 210 420 IF B$ = "GET" OR B$ = "TAK" THEN GOSUB 3000: GOTO 210 430 IF B$ = "DRO" OR B$ = "PUT" THEN GOSUB 3500: GOTO 210 440 IF B$ = "OPE" THEN GOSUB 4000: GOTO 210 450 IF B$ = "UNL" THEN GOSUB 4500: GOTO 210 460 IF B$ = "BUY" THEN GOSUB 5000: GOTO 210 480 IF B$ = "CLI" THEN GOSUB 6000: GOTO 210 490 IF B$ = "REA" THEN GOSUB 7000: GOTO 210 510 PRINT : PRINT "I don't know that word." 520 GOTO 210 1000 REM INVENTORY 1010 PRINT " You are carrying:" 1020 PRINT 1030 FOR I = 1 TO 14 1040 IF TR(I) = 200 THEN PRINT " "; IN$(I): FLAG1 = 1 1050 NEXT I 1060 IF FLAG1 <> 1 THEN PRINT " nothing" 1070 FLAG1 = 0 1080 RETURN 1500 REM SCORE 1510 PRINT 1520 PRINT "Out of 200 points, you got "; score; " points." 1521 PRINT "That gives you the rating of "; 1522 IF score < 50 THEN PRINT "a Deck boy." 1523 IF score > 50 AND score < 100 THEN PRINT "a Sea Man." 1524 IF score > 100 AND score < 150 THEN PRINT "a Bucaneer." 1525 IF score > 150 THEN PRINT "a Sea Captain." 1530 RETURN 2000 REM QUIT 2010 COLOR 0, 7: LOCATE 25, 50: PRINT "Score:"; score: COLOR 7, 0: PRINT 2020 PRINT "Out of 200 points, you got "; score; " points." 2021 PRINT "That gives you the rating of "; 2022 IF score < 50 THEN PRINT "a Deck boy." 2023 IF score > 50 AND score < 100 THEN PRINT "a Sea Man." 2024 IF score > 100 AND score < 150 THEN PRINT "a Bucaneer." 2025 IF score > 150 THEN PRINT "a Sea Captain." 2029 IF EGG = 1 THEN PRINT : GOTO 9020 2030 PRINT : GOTO 9020 2250 REM DIG ROUTINE 2251 INPUT "With what"; f$: f$ = UCASE$(f$): f$ = LEFT$(f$, 3) 2252 IF f$ <> "SHO" THEN PRINT "You can't use that to dig with.": RETURN 2260 IF RO <> 1 AND RO <> 11 AND RO <> 21 THEN 2270 ELSE 2290 2270 IF RO > 23 THEN PRINT "If you dig on the ship, you might cause a leak.": RETURN 2280 PRINT "The ground is too hard here.": RETURN 2290 IF RO = 1 THEN PRINT "You dig into the ground...You hit something! Its a coffin! When you open the": PRINT "coffin, a skeleton pops out, knife first, stabbing you!! The coffin was": PRINT "boobeytrapped!!": RETURN 2000 2300 IF RO = 11 THEN PRINT "You dig but you don't find anything.": RETURN 2310 PRINT "You dig in the damp soil and soon you come upon a grating in the ground!": TR(13) = 21: RETURN 2500 REM GO ROUTINE 2510 C$ = LEFT$(C$, 1) 2511 IF C$ = "S" AND RO = 39 AND FLAG97 = 0 THEN PRINT "Are you sure you want to dive into the water?": RETURN 2520 IF C$ = "N" AND A(RO, 1) = 0 THEN PRINT : PRINT "You can't go that way.": RETURN 2530 IF C$ = "S" AND A(RO, 2) = 0 THEN PRINT : PRINT "You can't go that way.": RETURN 2540 IF C$ = "E" AND A(RO, 3) = 0 THEN PRINT : PRINT "You can't go that way.": RETURN 2550 IF C$ = "W" AND A(RO, 4) = 0 THEN PRINT : PRINT "You can't go that way.": RETURN 2560 IF C$ = "U" AND A(RO, 5) = 0 THEN PRINT : PRINT "You can't go that way.": RETURN 2570 IF C$ = "D" AND A(RO, 6) = 0 THEN PRINT : PRINT "You can't go that way.": RETURN 2580 IF C$ = "N" THEN RO = A(RO, 1) 2590 IF C$ = "S" THEN RO = A(RO, 2) 2600 IF C$ = "E" THEN RO = A(RO, 3) 2610 IF C$ = "W" THEN RO = A(RO, 4) 2620 IF C$ = "U" THEN RO = A(RO, 5) 2630 IF C$ = "D" THEN RO = A(RO, 6) 2640 IF RO = 22 AND FLAG2 = 0 THEN score = score + 20: FLAG2 = 1 2650 IF RO = 23 AND FLAG3 = 0 THEN score = score + 20: FLAG3 = 1 2660 RETURN 190 3000 REM GET ROUTINE 3010 IF C$ = "CHE" AND RO = 23 THEN PRINT "The chest is too large and heavy for you to carry.": RETURN 3020 IF C$ = "CAP" AND RO = 25 THEN PRINT "The captain moves out of the way just as you try to lift him. 'Hey, are you some": PRINT "kind of quier?'": RETURN 3030 IF C$ = "COO" AND RO = 40 THEN PRINT "The cook slaps your hand. 'Not now, someone might see us.'": RETURN 3040 IF C$ = "STE" AND RO = 40 THEN PRINT "The cook slaps your hand. 'Wait till it's done.'": RETURN 3041 IF C$ = "GAR" AND FLAG98 = 0 THEN PRINT "'No one messes with my stew makin's.' The cook pulls out a knife and cuts your": PRINT "throat. As you die, you hear the cook mutter, 'Now that'll teach him.'": RETURN 2000 3042 IF C$ = "GRA" THEN PRINT "The grate is secured to the grate.": RETURN 3050 FLAG7 = 0: FLAG8 = 0: OBJECT = 0 3060 FOR I = 1 TO 14 3070 IF TR(I) = 200 THEN FLAG7 = FLAG7 + 1 3080 NEXT I 3090 IF FLAG7 > 6 THEN PRINT : PRINT "You can't carry anymore.": RETURN 3100 FOR I = 1 TO 12 3110 IF TR(I) = RO THEN FLAG8 = 1 3115 NEXT I 3120 IF FLAG8 = 0 THEN PRINT : PRINT "There is nothing here to pick up.": RETURN 3130 FOR I = 1 TO 14 3140 IF C$ = O1$(I) AND TR(I) = RO THEN OBJECT = I 3150 NEXT 3160 IF OBJECT = 0 THEN PRINT : PRINT "I don't see that here.": RETURN 3170 TR(OBJECT) = 200 3180 PRINT "Ok." 3190 IF TR(1) = 200 AND FLAG9 = 0 THEN score = score + 15: FLAG9 = 1 3200 IF TR(12) = 200 AND FLAG10 = 0 THEN score = score + 40: FLAG10 = 1 3201 IF TR(9) = 200 AND FLAG55 = 0 THEN score = score + 60: FLAG55 = 1 3210 RETURN 3500 REM DROP ROUTINE 3510 OBJECT = 0: FOR I = 1 TO 14 3520 IF C$ = O1$(I) THEN OBJECT = I 3530 NEXT I 3540 IF OBJECT = 0 THEN PRINT "You don't have that!": RETURN 3550 PRINT "Ok." 3560 TR(OBJECT) = RO 3570 RETURN 4000 REM OPEN ROUTINE 4010 IF C$ <> "DRA" AND C$ <> "BOX" AND C$ <> "CHE" AND C$ <> "DOO" THEN PRINT : PRINT "You can't open that.": RETURN 4011 PRINT 4015 IF C$ = "DRA" AND RO <> 26 THEN PRINT "I don't see a dresser here.": RETURN 4016 IF C$ = "DRA" AND RO = 26 AND FLAG4 = 1 THEN PRINT "The drawer is already open.": RETURN 4020 IF C$ = "DRA" AND FLAG4 = 0 AND RO = 26 THEN PRINT "The drawer is now open. Inside you see your pirate book and your sword.": TR(5) = RO: TR(6) = RO: FLAG4 = 1: RETURN 4030 IF C$ = "BOX" AND TR(11) <> 200 THEN PRINT "You don't even have the box.": RETURN 4040 IF C$ = "BOX" AND FLAG5 = 0 AND TR(11) = 200 THEN PRINT "Ok, the box is now open. You find a thieve's pick inside.": TR(12) = RO: FLAG5 = 1: RETURN 4050 IF C$ = "BOX" AND FLAG5 = 1 AND TR(11) = 200 THEN PRINT "The box is already open.": RETURN 4060 IF C$ = "CHE" AND RO <> 23 THEN PRINT "I don't see the chest here.": RETURN 4070 IF C$ = "CHE" AND RO = 23 AND FLAG70 = 0 THEN PRINT "You must unlock the chest.": RETURN 4080 IF C$ = "CHE" AND RO = 23 AND FLAG70 = 1 THEN PRINT "The chest is already open.": RETURN 4090 IF C$ = "DOO" AND RO <> 26 AND RO <> 29 THEN PRINT "There is no door here.": RETURN 4100 IF C$ = "DOO" AND RO = 26 AND FLAG11 = 0 THEN PRINT "The door swings open revealing a passage to the east.": A(26, 3) = 27: A(27, 4) = 26: FLAG11 = 1: RETURN 4110 IF C$ = "DOO" AND RO = 26 AND FLAG11 = 1 THEN PRINT "The door is already open.": RETURN 4120 IF C$ = "DOO" AND RO = 29 THEN PRINT "The door is locked and is the quarters of the captain.": RETURN 4130 RETURN 4500 REM unlock routine 4510 IF C$ <> "DOO" AND C$ <> "CHE" AND C$ <> "GRA" AND C$ <> "BOX" THEN PRINT "I cna't unlock that!": RETURN 4520 IF C$ = "DOO" THEN PRINT "You don't need to unlock that!": RETURN 4530 IF C$ = "BOX" THEN PRINT "You don't need to unlock that!": RETURN 4540 INPUT "With what"; f$: f$ = UCASE$(f$): f$ = LEFT$(f$, 3) 4550 IF C$ = "CHE" THEN 4600 4560 IF f$ = "KEY" THEN PRINT "The key doesn't fit the grate.": RETURN 4570 IF f$ <> "PIC" THEN PRINT "You can't use that to unlock the grate!": RETURN 4580 IF FLAG60 = 1 THEN PRINT "The grate is already unlocked!": RETURN 4590 PRINT "The grate is now unlocked and opened! The grate reveals a passage downward.": A(21, 6) = 23: A(23, 5) = 21: FLAG60 = 1: RETURN 4600 IF f$ = "PIC" THEN PRINT "The pick doesn't fit the chest's lock.": RETURN 4610 IF f$ <> "KEY" THEN PRINT "You can't use that to unlock the chest!": RETURN 4620 IF FLAG70 = 1 THEN PRINT "The chest is already unlocked!": RETURN 4630 PRINT "The chest is now unlocked and opened! The chest reveals a large, gold Spanish coin!": FLAG70 = 1: TR(9) = 23: RETURN 5000 REM BUY ROUTINE 5010 INPUT "With what?"; f$: f$ = UCASE$(f$): f$ = LEFT$(f$, 3) 5020 IF C$ <> "GAR" THEN PRINT "You can't buy that!": RETURN 5030 IF FLAG50 = 1 THEN PRINT "You've already bought the clove of garlic.": RETURN 5040 IF RO <> 40 AND TR(4) <> 200 THEN PRINT "I don't see the clove of garlic here.": RETURN 5050 IF f$ <> "BAG" AND f$ <> "SIL" THEN PRINT "'You fool! You'd think I'd seatle for less than silver for my garlic!' You are": PRINT " then decapitated!": RETURN 2000 5060 PRINT "The cook thinks it over then says, 'Well I guess it's a good deal so here.'": PRINT "Then the cooks hands you the clove and takes your bag of silver.": TR(4) = 200: TR(14) = 255: FLAG50 = 1 5070 RETURN 6000 REM CLIMB ROUTINE 6010 IF C$ <> "MAS" AND C$ <> "LAD" THEN PRINT "You can't climb that!": RETURN 6020 IF C$ = "MAS" AND RO = 33 THEN PRINT "You climb up the mast...Soon you are in the crow's nest.": RO = 35: PRINT : RETURN 190 6030 IF C$ = "MAS" AND RO = 32 THEN PRINT "You climb up the mast...Soon you are in the crow's nest.": RO = 34: PRINT : RETURN 190 6040 IF C$ = "MAS" THEN PRINT "I can't see a mast here.": RETURN 6050 IF C$ = "LAD" AND RO = 39 THEN PRINT "If you want to go down the ladder just say so.": RETURN 6060 IF C$ = "LAD" THEN PRINT "I don't see a ladder here.": RETURN 6500 REM KNOCK ROUTINR 6510 INPUT "What do you want to knock on"; f$: f$ = UCASE$(f$): f$ = LEFT$(f$, 3) 6520 IF f$ <> "DOO" THEN PRINT : PRINT "Awesome!!!": RETURN 6530 IF RO <> 29 AND RO <> 26 AND RO <> 27 THEN PRINT : PRINT "I don't see a door here.": RETURN 6540 IF RO = 29 AND FLAG12 = 0 THEN PRINT : PRINT "You knock on the door and wait. Soon the captain comes and ushers you in.": RO = 25: FLAG12 = 1: PRINT : RETURN 190 6545 IF RO = 29 AND FLAG12 = 1 THEN PRINT : PRINT "There is no answer.": RETURN 6550 PRINT : PRINT "Nothing happens." 6560 RETURN 7000 REM READ ROUTINE 7010 IF C$ <> "BOO" AND C$ <> "NOT" THEN PRINT : PRINT "You can't read that!": RETURN 7015 IF C$ = "NOT" THEN 7190 7020 IF TR(5) <> 200 THEN PRINT : PRINT "You aren't even carrying the book!": RETURN 7030 PRINT 7060 PRINT " This is Julius the Pirate's book on pirates. Included" 7070 PRINT " are many entries on other pirates, ships and treasures." 7080 PRINT " You skim through the book until you find a large entry" 7090 PRINT " on an ancient Spanish coin worth thousands of dollar" 7100 PRINT " and located on an island close by here. The lattitude" 7110 PRINT " is 45 degrees and the longitude is 24 degrees." 7120 PRINT 7130 PRINT " You notice that at the bottom of the last page that there" 7140 PRINT " is some text reading:" 7150 PRINT 7160 PRINT " For other refrences on Julius the Pirate, look under Julius" 7170 PRINT " in a card catalog found in every ship library." 7180 RETURN 7190 IF RO <> 42 THEN PRINT : PRINT "You can't see any note here.": RETURN 7200 PRINT 7210 PRINT " To find a book in the many books in our wondourous library," 7220 PRINT " look under the subject and then go find the book. I hope" 7230 PRINT " the books will entertain you and widen your horizons and" 7240 PRINT " be sure to put the books back, OR ELSE!!!" 7250 PRINT 7260 PRINT " -Jonny the Captain" 7270 RETURN 8000 REM LOOK UNDER ROUTINE 8010 IF RO <> 42 THEN PRINT "You can't find information on that here. Try the ship's library open 24 hours a": PRINT "day!": RETURN 8020 PRINT 8030 PRINT " You look through the card catalog, find a book on Julius" 8040 PRINT " the Pirate, go get the book along the racks, and find this" 8050 PRINT " entry:": PRINT 8060 PRINT " Julius the Pirate was a great pirate, know for his daring" 8070 PRINT " adventures and finding rare and valuable treasures. His" 8080 PRINT " most famous treasure find was the Spanish gold coin, an" 8090 PRINT " original coin since only one was made and it was minted in" 8100 PRINT " in 1635. Julius died before he could collect the coin but" 8110 PRINT " left the degrees of the island that the famous coin is" 8120 PRINT " supposed to be on, in his pirate book passed on through his" 8130 PRINT " generations. The last known recorded inheritered of the book" 8131 PRINT " was Humphry Goodfellow, who died in a fire at his house. The" 8132 PRINT " whereabouts of the book is unknown.": PRINT 8133 PRINT " You read on till you find the last paragraph, which you are" 8134 PRINT " shocked by:": PRINT 8135 PRINT " Julius the Pirate was a great pirate, but he had a problem" 8136 PRINT " with his left eye, which made him put marks 5 degrees west" 8137 PRINT " of the original on longitude and latitude maps." 8138 PRINT " MORE?" 8139 IF INKEY$ = "" THEN 8139 8140 RETURN 8150 IF RO <> 42 THEN PRINT "You can't find information on that here. Try the ship's library open 24 hours a": PRINT "day!": RETURN 8160 PRINT 8170 PRINT " Pirate Island is one of the most scariest islands in the" 8180 PRINT " whole ocean. The name of the island has sent chills down" 8190 PRINT " the spines of many young sea-going sailors. The bravest" 8200 PRINT " captains have steered away from the island just to stay" 8210 PRINT " out of the horrors that superstision have provided." 8220 PRINT " Legends have it that the valuable Spanish gold coin rests" 8230 PRINT " on Pirate Island but to date, no one has even tried to" 8240 PRINT " find the coin. But then again, we don't record ALL voyages!" 8250 RETURN 8300 IF RO <> 42 THEN PRINT "You can't find information on that here. Try the ship's library open 24 hours a": PRINT "day!": RETURN 8310 PRINT 8320 PRINT " David Meny is one of the greatest pirates on the seven seas!" 8330 PRINT " He has written his way out of a jail cell and found the Spanish" 8340 PRINT " silver coin, second in value to only the famous gold coin made" 8350 PRINT " by the Spainards. He continues to roam the free world" 8360 PRINT " in search of adventure and intrigue." 8370 RETURN 8500 REM SWIM ROUTINE 8510 IF RO <> 11 AND RO <> 44 AND RO <> 45 AND RO <> 22 THEN PRINT "You can't swim here!": RETURN 8520 IF RO = 44 OR RO = 45 THEN PRINT "You swim around for awhile then end up where you are now.": RETURN 8530 IF RO = 22 THEN PRINT "The water is to shallow to swim here.": RETURN 8540 PRINT "You swim out into the bay...." 8550 RO = 44: RETURN 190 8990 END 9000 REM end of game 9010 PRINT "You have died. Too bad." 9020 INPUT "Would you like to start over"; f$: f$ = UCASE$(f$) 9030 f$ = LEFT$(f$, 1) 9040 IF f$ = "Y" OR f$ = "y" THEN GOTO 9090 9050 IF f$ = "N" OR f$ = "n" THEN GOTO 9070 9060 PRINT "Please answer the question.": GOTO 9020 9070 PRINT : PRINT "Ok. See you next time on Pirate Island." 9080 FOR I = 1 TO 100: NEXT I: CLS : END 9090 CLS : RESTORE: GOTO 171: 14000 REM PRINT ROOM CONTENTS 14020 FLAG99 = 0: JKH = 0: FOR I = 1 TO 14 14030 IF TR(I) = RO THEN JKH = I 14031 IF JKH <> I THEN 14040 14035 IF FLAG99 = 0 THEN PRINT O2$(JKH): ELSE PRINT O2$(JKH) 14036 FLAG99 = 1: JKH = I 14040 NEXT 14050 RETURN 15000 REM ROOM DESCRIPTION 15010 COLOR 0, 7 15020 LOCATE 25, 1 15030 PRINT " " 15035 COLOR 7, 0 15040 LOCATE 25, 3: PRINT RO$(RO) 15050 LOCATE 25, 50: PRINT "Score:"; score 15060 COLOR 7, 0 15065 PRINT RO$(RO) 15066 IF RO > 39 THEN 15090 15070 ON RO GOSUB 15110, 15150, 15150, 15175, 15210, 15240, 15280, 15320, 15210, 15210, 15360, 15400, 15210, 15450, 15490, 15520, 15560, 15450, 15450, 15600, 15640, 15680, 15720, 15760, 15800, 15850, 15890, 15920, 15950, 16000, 16040, 16080, 16120, 16170, 16170, 16190, 16230, 16270, 16320 15071 IF RO <> 25 THEN 15080 15072 PRINT : PRINT "The captain looks at you the says, 'Well what's then longitude of Pirate": INPUT "Island"; F1: INPUT "'Ok, now what's the latitude"; F2 15073 PRINT "'You better be right or you'll regret you ever woke up this morning! Now leave.'": IF F1 = f4 AND F2 = F3 THEN FLAG98 = 1: START = 1: RO = 29: PRINT : RETURN 190 15074 START = 1: RO = 29: FLAG98 = 0: RETURN 190 15080 RETURN 15090 ST = RO - 39: ON ST GOSUB 16360, 16410, 16440, 16480, 16510, 16550 15100 RETURN 15110 REM ROOM 1 15120 PRINT "You are on the top of a high cliff overlooking the blue waters of the ocean. A" 15130 PRINT "path leads down. The soil is damp here." 15140 RETURN 15150 REM ROOM 2 AND 3 15160 PRINT "You are in a large rain forest." 15170 RETURN 15175 REM ROOM 4 15180 PRINT "You are on a small path leading out of a large rain forest to the west. In the" 15190 PRINT "center of the path there is a large tree." 15200 RETURN 15210 REM ROOM 5,9,10 AND 13 15220 PRINT "This is a thick forest covered by many trees, all of which are unclimbable." 15230 RETURN 15240 REM ROOM 6 15250 PRINT "You are standing below a large cliff. A path leads up to the cliff while an" 15260 PRINT "east/west path heads towards a cove and a meadow." 15270 RETURN 15280 REM room 7 15290 PRINT "You are near a large rock which has probably stood here for many hundreds of" 15300 PRINT "years. A small path leads south." 15310 RETURN 15320 REM room 8 15330 PRINT "You are in a large tree above a small path. The many leaves and branches" 15340 PRINT "prevent you from going any further up, while a large stump leads down." 15350 RETURN 15360 REM room 11 15370 PRINT "You are standing on the shore of an inland cove. The clear, blue waters of" 15380 PRINT "the ocean are of to the east, while a murky smell comes from the south. The" 15385 PRINT "soil is damp here." 15390 RETURN 15400 REM room 12 15410 PRINT "You are standing in a large meadow where birds sing and deer play. The tall," 15420 PRINT "lush grass beneath you is stamped out, forming a path to the north, south and" 15430 PRINT "west." 15440 RETURN 15450 REM rooms 14,18 and 19 15460 PRINT "This is a murky, dismal swamp where hideous creatures hide when they are not on" 15470 PRINT "the hunt. A path leads to the west." 15480 RETURN 15490 PRINT "You are standing, or rather were standing, in a large pond of quick sand." 15500 PRINT "You are slowly...slowly...slowly...sinking." 15510 RETURN 9000 15520 REM room 16 15530 PRINT "You are walking along a beach path which surrounds the southwest part of the" 15540 PRINT "island. To the east you can see a beach, while to the west comes a murky smell." 15550 RETURN 15560 REM room 17 15570 PRINT "This is a sandy beachy coming out of the water. Palm tress line the shore and" 15580 PRINT "a path leads to the west and to the east. Another path heads north." 15590 RETURN 15600 REM room 20 15610 PRINT "You are standing in a dark cave leading out of a swamp. >From the east comes" 15620 PRINT "squeaky noises (Maybe you aren't the only one on this island)." 15630 RETURN 15640 REM room 21 15650 PRINT "You are in a cave with many bats. The ground is damp here. "; : IF TR(4) <> 200 THEN PRINT " The bats see you and attack.": PRINT "You have many bat bites and slowly...slowly...slowly die.": RETURN 9000 15660 PRINT " The bats, seeing your garlic, stay far back." 15670 RETURN 15680 REM room 22 15690 PRINT "You are in a shallow cove, so shallow that you can stand up. To the north there" 15700 PRINT "is a sandy beach, while to all other directions there is deep water." 15710 FLAG40 = 1: RETURN 15720 REM room 23 15730 PRINT "You are in a secret cave below a grate. From up above you can hear squeaky" 15740 PRINT "noises." 15750 RETURN 15760 REM room 24 15770 PRINT "This is the wheelhouse of the ship where the ship is directed. A navigator is" 15780 PRINT "here directing the wheel over the blue water of the ocean." 15790 RETURN 15800 REM room 25 15810 PRINT "You are in the captain's quarters, a large room with many sea equipment along" 15820 PRINT "the including a compass and an old relic made out of gold. There is a large," 15830 PRINT "wooden desk here containg top-secret information." 15840 RETURN 15850 REM room 26 15860 PRINT "You are in your cabin, a small room with minor furnishments. The only" 15870 PRINT "furnishments are a bed and a dresser with only one drawer. A large wooden door" 15871 PRINT "is on the east wall." 15880 RETURN 15890 REM room 27 15900 PRINT "You are in the north end of a hallway running north to south." 15910 RETURN 15920 REM room 28 15930 PRINT "You are on the port section of the ship's deck. To the north there is the " 15940 PRINT "ship's wheelhouse. Also the mid deck is to the south." 15945 RETURN 15950 REM room 29 15960 PRINT "You are on the ship's port deck. To the west is another portdeck and to the" 15970 PRINT "south there is the mid deck. To the east there is a passageway leading to the" 15980 PRINT "wheelhouse and to the north there is a large door leading to the captain's" 15981 PRINT "quarters." 15990 RETURN 16000 REM room 30 16010 PRINT "You are in the crew's cabin portion of the ship. There are many bunks and gear" 16020 PRINT "here that belongs to other people, so don't touch it." 16030 RETURN 16040 REM room 31 16050 PRINT "This is a hallway running north to south. To the west is the crew's cabin while" 16060 PRINT "up there is the mid deck." 16070 RETURN 16080 REM room 32 16090 PRINT "You are on the ship's mid deck. Another mid deck is off to the east while the" 16100 PRINT "ship's port and starboard decks are off to the north and south. A large mast is" 16105 PRINT "here with a crow's nest on top of it." 16110 RETURN 16120 REM room 33 16130 PRINT "You are on one of two mid decks. This mid deck has a ladder leading down to the" 16140 PRINT "decks below. Also the port and starboards are off to the north and south while" 16150 PRINT "a large mast is above you. On the top of the mast, there is a crow's nest." 16160 RETURN 16170 REM room 34 and 35 16180 PRINT "You are in a crow's nest, a lookout site for land, storms and other ships." 16181 RETURN 16190 REM room 36 16200 PRINT "You are in the ship's mess hall where every day hungry crewmen are fed. To the" 16210 PRINT "south is the galley and to the east is a hallway." 16220 RETURN 16230 REM room 37 16240 PRINT "You are in a hallway running north to south. To the west is the ship's mess" 16250 PRINT "hall." 16260 RETURN 16270 REM room 38 16280 PRINT "You are on the starboard deck of the ship. To the east there is another" 16290 PRINT "starboard deck, while to the north there is a mid deck. To the south there is" 16300 PRINT "the ship's library." 16310 RETURN 16320 REM room 39 16330 PRINT "This is the ship's starboard deck. There is a ladder here, leading down to a" 16340 PRINT "hallway and a deck to the north and to the west." 16341 IF RO <> 39 THEN 15100 16342 IF FLAG40 <> 1 THEN 15100 16343 PRINT 16344 IF RO = 39 AND FLAG40 = 1 AND TR(9) = 200 THEN PRINT "As you come back aboard the ship, the captain greets you. 'Welcome back, matey!": PRINT "Congradulations, you found the coin. Now we will all be": PRINT "rich!'": score = score + 55: EGG = 1: RETURN 2000 16345 IF RO = 39 AND FLAG40 = 1 AND TR(9) <> 200 THEN PRINT "As you come back aboard the ship, the captain greets you. 'Welcome back, matey!": PRINT "What? You didn't find the coin. I'll kill you for that!' The captain" 16346 PRINT "then pulls out his sword and kills you!": RETURN 2000 16350 RETURN 16360 REM room 40 16370 PRINT "This is the ship's galley where food is prepared. A large stove is against the" 16380 PRINT "south wall and many ingredients awaiting to be prepared in the stew the cook is" 16390 PRINT "making." 16400 RETURN 16410 REM room 41 16420 PRINT "You are in the south end of a hallway running north to south." 16430 RETURN 16440 REM room 42 16450 PRINT "You are in the ship's library with many books lining the wall. A card catalog is" 16460 PRINT "here and a card catalog reference note is pinned on top of the card catalog." 16470 RETURN 16480 REM room 43 16490 PRINT "You are under water. You are sinking in the soft sand......." 16500 RETURN 9000 16510 REM ROOM 44 16520 PRINT "You are swimming on the top of the water in an inland cove. Off to the east is" 16530 PRINT "the shore of the cove." 16540 RETURN 16550 REM room 45 16560 PRINT "You are on the bottom of a cove. The sand here is sturdy, thus you don't sink." 16570 RETURN 19990 END 20000 REM INITIALIZE 20005 FLAG1 = 0: FLAG2 = 0: FLAG3 = 0: FLAG4 = 0: FLAG5 = 0: FLAG6 = 0: FLAG6 = 0: FLAG7 = 0: FLAG8 = 0: FLAG9 = 0: FLAG10 = 0: FLAG11 = 0: FLAG12 = 0: FLAG13 = 0: FLAG14 = 0: FLAG15 = 0: FLAG40 = 0: FLAG55 = 0: FLAG50 = 0: FLAG60 = 0: FLAG70 = 0: FLAG95 = 0: FLAG96 = 0: FLAG97 = 0: FLAG99 = 0: FLAG99 = 0: FLAG100 = 0: 20010 RO = 26: score = 0 20015 F3 = 45: f4 = 29 20020 FOR I = 1 TO 45 20030 FOR J = 1 TO 6 20040 READ A(I, J) 20050 NEXT J 20060 NEXT I 20070 FOR I = 1 TO 14 20080 READ O1$(I), O2$(I), TR(I), IN$(I) 20090 NEXT I 20100 FOR I = 1 TO 45 20110 READ RO$(I) 20120 NEXT I 20130 RETURN 25000 REM DATA STATEMENTS 25010 DATA 0,0,0,0,0,6: REM ROOM 1 25020 DATA 2,2,3,2,0,0: REM ROOM 2 25030 DATA 2,3,4,0,6,0: REM ROOM 3 25040 DATA 0,0,0,3,8,0: REM ROOM 4 25050 DATA 0,5,10,9,0,0: REM ROOM 5 25060 DATA 0,0,12,11,1,3: REM ROOM 6 25070 DATA 0,17,0,0,0,0: REM ROOM 7 25080 DATA 0,0,0,0,0,4: REM ROOM 8 25090 DATA 5,10,13,9,0,0: REM ROOM 9 25100 DATA 5,19,10,9,0,0: REM ROOM 10 25110 DATA 6,15,12,0,0,0: REM ROOM 11 25120 DATA 6,16,0,11,0,0: REM ROOM 12 25130 DATA 9,0,0,18,0,0: REM ROOM 13 25140 DATA 0,19,14,20,0,0: REM ROOM 14 25150 DATA 0,0,0,0,0,0: REM ROOM 15 25160 DATA 12,0,17,15,0,0: REM ROOM 16 25170 DATA 7,22,18,16,0,0: REM ROOM 17 25180 DATA 13,0,0,17,0,0: REM ROOM 18 25190 DATA 14,18,19,10,0,0: REM ROOM 19 25200 DATA 0,0,21,14,0,0: REM ROOM 20 25210 DATA 0,0,0,20,0,0: REM ROOM 21 25220 DATA 17,39,43,43,43,43: REM ROOM 22 25230 DATA 0,0,0,0,21,0: REM ROOM 23 25240 DATA 0,0,29,28,0,0: REM ROOM 24 25250 DATA 0,29,0,0,0,0: REM ROOM 25 25260 DATA 0,0,0,0,0,0: REM ROOM 26 25270 DATA 0,31,0,0,0,0: REM ROOM 27 25280 DATA 24,32,29,0,0,0: REM ROOM 28 25290 DATA 0,33,24,28,0,0: REM ROOM 29 25300 DATA 0,0,31,0,0,0: REM ROOM 30 25310 DATA 27,37,0,30,33,0: REM ROOM 31 25320 DATA 28,38,33,0,0,0: REM ROOM 32 25330 DATA 29,39,0,32,0,31: REM ROOM 33 25340 DATA 0,0,0,0,0,32: REM ROOM 34 25350 DATA 0,0,0,0,0,33: REM ROOM 35 25360 DATA 0,40,37,0,0,0: REM ROOM 36 25370 DATA 31,41,0,36,39,0: REM ROOM 37 25380 DATA 32,42,39,0,0,0: REM ROOM 38 25390 DATA 33,0,0,38,0,37: REM ROOM 39 25400 DATA 36,0,0,0,0,0: REM ROOM 40 25410 DATA 37,0,0,0,0,0: REM ROOM 41 25420 DATA 38,0,0,0,0,0: REM ROOM 42 25430 DATA 0,0,0,0,0,0: REM ROOM 43 25431 DATA 0,0,11,0,0,45: REM ROOM 44 25432 DATA 0,0,0,0,44,0: REM ROOM 45 25440 DATA "SHO","There is an old shovel here.",35,"a shovel" 25450 DATA "CAP","The captain of the ship is here.",25,"" 25460 DATA "KEY","There is a shiny key laying near you.",8,"a key" 25470 DATA "GAR","There is a clove of garlic near you.",40,"a clove of garlic" 25480 DATA "BOO","There is a bounded book here.",255,"a book" 25490 DATA "SWO","A sharp sword is here.",255,"a sharp sword" 25500 DATA "CHE","There is an old pirate chest here.",23,"" 25510 DATA "COO","The ship's cook is here, cooking a stew.",40,"" 25520 DATA "COI","There is a Spanish coin here.",255,"a gold coin" 25530 DATA "TRA","There is a tray here full of discarded food.",36,"a tray" 25531 DATA "BOX","Near you, there is small box.",45,"a box" 25532 DATA "PIC","There is a thieve's pick here.",255,"a thieve's pick" 25533 DATA "GRA","There is a metal grate here.",255,"" 25534 DATA "BAG","A bag of silver coins is here.",255,"a bag of silver coins" 25535 DATA High Cliff,Rain Forest,Rain Forest,Small Path,Thick Forest,Near Cliff 25540 DATA Rock,Up A Tree,Thick Forest,Thick Forest,Inland Cove,Meadow 25550 DATA Thick Forest,Swamp,Quicksand,Beach Path,Sandy Beach,Swamp,Swamp 25560 DATA Dark Cave,Bat Cave,Shallow Cove,Secret Cave,Wheelhouse 25570 DATA Captain's Quarters,Your Cabin,Hallway,Port Deck,Port Deck 25580 DATA Crew's Cabin,Hallway,Mid Deck,Mid Deck,Crow's Nest,Crow's Nest 25590 DATA Mess Hall,Hallway,Starboard Deck,Starboard Deck,Galley,Hallway 25600 DATA Ship's Library,Under Water,Top of the Bay,Bottom of the Bay