' ' ' ' ' ' ' Reading the program code will not ' ' tell you a great deal about where ' ' you are. ' ' *** Please run EFH.BAS first. *** ' ' To continue from here, press [F5] ' ' ' ' DECLARE SUB MapOfMine () DECLARE SUB HighScores () COMMON SHARED PlaceBeen$, LANTERN, GEM, PICK, LIVES, Turns, POINTS, MONEY, score COMMON SHARED HOUSEKEY, COIN, PUMP, JUG, WATER, BIKECHAIN, BIKE, PHCARD, TICKET, a$ RANDOMIZE TIMER IF GemPlace = 0 THEN GemPlace = INT(RND * 6) + 1 COLOR 15, 1: CLS : COLOR 11, 7 LOCATE 1, 1: PRINT STRING$(80, " ") LOCATE 1, 2: PRINT "Escape From Hiddenite" COLOR 0: LOCATE 1, 50: PRINT "Turn #:"; Turns; TAB(65); "Score:"; POINTS COLOR 15, 1 LOCATE 2, 1 5010 IF LANTERN = 1 THEN 5015 ELSE 5011 5011 PRINT " Pushing aside the cobwebs, you gain access to the dark musty mine shaft." 5012 PRINT " Boy, it sure is dark in here. Aren't you afraid of the dark? I thought so." 5013 PRINT " Outside, in the daylight, you are much happier. Too bad there isn't a way" PlaceBeen$ = "Mine" 5014 PRINT " to take some daylight with you.": PRINT " The journey back will take a minute...": CHAIN "efh1.bas" 5015 PRINT " Pushing aside the cobwebs, you gain access to the dark musty mine shaft." 5016 PRINT " Boy it sure is dark in here. But you are not afraid because you have a" 5017 PRINT " lantern." 5018 PRINT " The shaft continues east for a great distance. It intersects with tunnels" 5019 PRINT " at regular intervals along the way." 5020 IF GEM = 1 THEN PRINT " You already have a gem, so this trip is totally uncalled for.": PRINT " The journey back up the shaft will take some time...": CHAIN "efh1.bas" 5021 INPUT " would you like to turn back (Y/N)"; a$: a$ = UCASE$(a$) 5022 IF a$ = "Y" THEN PlaceBeen$ = "MINE": CLS : PRINT : PRINT : : PRINT : PRINT " Please wait while Hiddenite is reconstructed...": CHAIN "efh1.bas" 5023 place$ = "Main shaft": GOSUB GetInputs: : GOSUB 40000 '-----------------mine entrance----------------- 5030 IF a$ = "GO NORTH" THEN PRINT " You can't go north": GOTO 5023 5032 IF a$ = "GO SOUTH" THEN PRINT " You can't go south": GOTO 5023 5034 IF a$ = "GO WEST" THEN PRINT " Going west you exit the mine. The long climb takes some time...": PlaceBeen$ = "MINE": CHAIN "efh1.bas" 5036 IF a$ = "GO EAST" THEN 5100 5037 IF a$ = "LOOK AROUND" THEN PRINT " You see a bright light to west.": GOTO 5023 5038 IF a$ = "JUMP" THEN PRINT " Jumping up, you hit your head on the ceiling. OUCH!": GOTO 5023 5040 PRINT " I don't understand.": GOTO 5023 5100 '-----------------------A4--------------------- 5110 place$ = "Main shaft": GOSUB GetInputs: : GOSUB 40000 5112 IF a$ = "GO NORTH" THEN 6900 5114 IF a$ = "GO SOUTH" THEN 5500 5115 IF a$ = "GO EAST" THEN 5200 5116 IF a$ = "GO WEST" THEN 5023 5118 IF a$ = "LOOK AROUND" THEN PRINT " You see some light to the west.": GOTO 5110 5119 PRINT " I don't get it.": GOTO 5110 5200 '---------------------B4--------------------------- 5210 place$ = "Main shaft": GOSUB GetInputs: : GOSUB 40000 5211 IF a$ = "GO NORTH" THEN 7000 5212 IF a$ = "GO SOUTH" THEN 5600 5214 IF a$ = "GO EAST" THEN 5300 5216 IF a$ = "GO WEST" THEN 5100 5218 IF a$ = "LOOK AROUND" THEN PRINT " You can see a faint light to the west.": GOTO 5210 5230 PRINT " I don't understand.": GOTO 5210 5300 '---------------------C4------------------------- 5310 place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 5312 IF a$ = "GO NORTH" THEN 7100 5314 IF a$ = "GO SOUTH" THEN 5700 5316 IF a$ = "GO EAST" THEN 5400 5318 IF a$ = "GO WEST" THEN 5200 5320 IF a$ = "LOOK AROUND" THEN PRINT " It sure is dark in here, and there seems to be an echoing sound to the east.": GOTO 5310 5322 PRINT " I don't understand.": GOTO 5310 5400 '---------------------btmless pit ----------------- PRINT " You are standing on a ledge that over looks a deep cavern." PRINT " The ledge begins to crumble...": PRINT : PRINT PRINT " You claw with all your strength, but to no avail." PRINT " On you way down you are free to ponder your mistakes." PRINT : PRINT " Press a key to see the results of your last actions." DO WHILE INKEY$ = "": LOOP: PRINT : PRINT 5410 LET FALL = 100 5411 WHILE FALL > 0 5415 PRINT " v" 5416 IF FALL = 60 THEN PRINT " * - * - * BIFF !" 5418 IF FALL = 40 THEN PRINT " * - * - * SLAM !" 5420 IF FALL = 20 THEN PRINT " * - * - * CRASH !" 5422 IF FALL = 1 THEN PRINT " * . * . * SPLAT!!!" 5424 LET FALL = FALL - 1 5426 FOR W = 1 TO 65: NEXT W 5427 WEND 5428 PRINT " * *. | .* * " 5430 PRINT "_______________\*/_______________________" 5432 PRINT 5449 PRINT " You have just fallen a great distance. Although the distance traveled did " 5440 PRINT " not harm you, the rather abrupt ending has.": GOTO 20000 5500 '-------------------------A5--------------------------------------- 5510 place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 5512 IF a$ = "GO NORTH" THEN 5100 5514 IF a$ = "GO SOUTH" THEN PRINT " The passage has caved in you must find another route.": GOTO 5510 5516 IF a$ = "GO EAST" THEN PRINT " The passage is blocked.": GOTO 5510 5518 IF a$ = "GO WEST" THEN PRINT " The tunnel is blocked.": GOTO 5510 5519 IF a$ = "LOOK AROUND" THEN PRINT " There is a very faint light to the north.": GOTO 5510 5520 PRINT " I don't understand.": GOTO 5510 5600 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 5200 IF a$ = "GO SOUTH" THEN 6000 IF a$ = "GO EAST" THEN 5700 IF a$ = "GO WEST" THEN PRINT " That way is solid rock, try another.": GOTO 5600 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than the end of your nose in here.": GOTO 5600 PRINT " I can't see what your saying in here, it's too dark.": GOTO 5600 5700 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 5300 IF a$ = "GO SOUTH" THEN 6100 IF a$ = "GO EAST" THEN PRINT " There's more rock this way too, try another.": GOTO 5700 IF a$ = "GO WEST" THEN 5600 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than the end of your nose in here.": GOTO 5700 PRINT " I can't see what your saying in here, it's too dark.": GOTO 5700 5800 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 5400 IF a$ = "GO SOUTH" THEN 6200 IF a$ = "GO EAST" THEN 5900 IF a$ = "GO WEST" THEN PRINT " That way is blocked.": GOTO 5800 IF a$ = "LOOK AROUND" THEN PRINT " Can't see a thing, but here an echoing sound to the north.": GOTO 5800 PRINT " I can't see what your saying, it's too dark.": GOTO 5800 5900 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 7400 IF a$ = "GO SOUTH" THEN PRINT " There is a wall of limestone in the way.": GOTO 5900 IF a$ = "GO EAST" THEN PRINT " There is a wall of limestone in the way.": GOTO 5900 IF a$ = "GO WEST" THEN 5800 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than the end of your nose in here.": GOTO 5900 PRINT " I can't see what your saying in here, it's too dark.": GOTO 5900 6000 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 5600 IF a$ = "GO SOUTH" THEN 6300 IF a$ = "GO EAST" THEN 6100 IF a$ = "GO WEST" THEN PRINT " That way is blocked, Are you suprised?": GOTO 6000 IF a$ = "LOOK AROUND" THEN PRINT " The darkness is getting a little monotonous, eh?": GOTO 6000 PRINT " I heard you, just didn't understand you.": GOTO 6000 6100 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 5700 IF a$ = "GO SOUTH" THEN PRINT " That way's been blocked since the mine was built.": GOTO 6100 IF a$ = "GO EAST" THEN 6200 IF a$ = "GO WEST" THEN 6000 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than here.": GOTO 6100 PRINT " What are your saying here?": GOTO 6100 6200 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 5800 IF a$ = "GO SOUTH" THEN PRINT " They say walking into walls can cause brain damage, try another way.": GOTO 6200 IF a$ = "GO EAST" THEN PRINT " Have you got a headache yet? These walls tend to be hard. Try another way.": GOTO 6200 IF a$ = "GO WEST" THEN 6100 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than the end of your nose in here.": GOTO 6200 PRINT " I can't see what your saying in here, it's too dark.": GOTO 6200 6300 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 6000 IF a$ = "GO SOUTH" THEN 6500 IF a$ = "GO EAST" THEN 6800 IF a$ = "GO WEST" THEN 6400 IF a$ = "LOOK AROUND" THEN PRINT " This is another boring tunnel.": GOTO 6300 PRINT " I can't understand what your saying.": GOTO 6300 6400 '------------------------------------------------------------- IF GemPlace = 1 THEN PRINT " There seems to be something shiny embedded in the wall, it looks like a gem." IF GemPlace = 1 AND PICK = 1 THEN PRINT " Since you remembered to bring a pick, you dig the shiny stone out.": POINTS = POINTS + 150: GEM = 1: GemPlace = 6 IF GemPlace = 1 AND PICK = 0 THEN PRINT " It seems you neglected to bring any tools, now you must leave this place." place$ = "Marble room": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " That way is blocked.": GOTO 6400 IF a$ = "GO SOUTH" THEN PRINT " This tunnel seems a bit longer and curves to the south and east.": GOTO 6500 IF a$ = "GO EAST" THEN 6300 IF a$ = "GO WEST" THEN PRINT " That way is blocked by solid marble.": GOTO 6400 IF a$ = "LOOK AROUND" THEN PRINT " The walls in this room seem different from the others.": GOTO 6400 PRINT " I don't understand what your saying.": GOTO 6400 6500 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 6300 IF a$ = "GO SOUTH" THEN PRINT " The tunnel takes a circlular path; first south, then east, then north.": GOTO 6700 IF a$ = "GO EAST" THEN PRINT " As usual, you have chosen to walk into the walls.": GOTO 6500 IF a$ = "GO WEST" THEN PRINT " The tunnel curves west then north.": GOTO 6400 IF a$ = "LOOK AROUND" THEN PRINT " You see the end of your nose, that's about it.": GOTO 6500 PRINT " I can't see what your saying in here, it's too dark.": GOTO 6500 6600 '------------------------------------------------------------- place$ = "Small round room": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " You can't go that way.": GOTO 6600 IF a$ = "GO SOUTH" THEN PRINT " You can't go that way.": GOTO 6600 IF a$ = "GO EAST" THEN 6700 IF a$ = "GO WEST" THEN PRINT " You can't go that way.": GOTO 6600 IF a$ = "LOOK AROUND" AND a = 1 THEN PRINT " You notice something you didn't notice before, it is a piece of paper.": PRINT " You pick it up and unfold it... IT'S A MAP OF THE MINE!": POINTS = POINTS + 125: MineMap = 1: a = 2: GOTO 6600 IF a$ = "LOOK AROUND" AND a = 0 THEN PRINT " You are in a small underground room, deep in the mine.": a = 1: GOTO 6600 IF a$ = "LOOK AROUND" AND a = 2 THEN PRINT " Finding nothing of interest here you leave the room.": GOTO 6700 IF MineMap = 1 THEN PRINT " Finding nothing of interest here you leave the room.": GOTO 6700 PRINT " I don't understand.": GOTO 6600 6700 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " The tunnel takes a circular path; first north, then west, then south.": GOTO 6500 IF a$ = "GO SOUTH" THEN PRINT " The tunnel takes a circular path; first south, then west, then north.": GOTO 6500 IF a$ = "GO EAST" THEN PRINT " You cannot go that way.": GOTO 6700 IF a$ = "GO WEST" THEN PRINT " You enter what appears to be small room.": GOTO 6600 IF a$ = "LOOK AROUND" THEN PRINT " Boy, sure is dark in here.": GOTO 6700 PRINT " I can't see what your saying in here, it's too dark.": GOTO 6700 6800 '------------------------------------------------------------- place$ = "Small chamber": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " The way is blocked.": GOTO 6800 IF a$ = "GO SOUTH" THEN PRINT " The way is blocked.": GOTO 6800 IF a$ = "GO EAST" THEN PRINT " The way is blocked.": GOTO 6800 IF a$ = "GO WEST" THEN 6300 IF a$ = "LOOK AROUND" THEN PRINT " This a small chamber, the tunnel terminates here.": GOTO 6800 PRINT " Are you talking with your mouth full?.": GOTO 6800 6900 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " Walking into walls is not good for the complexion.": GOTO 6900 IF a$ = "GO SOUTH" THEN 5100 IF a$ = "GO EAST" THEN PRINT " Shouldn't you go down a tunnel? Try south.": GOTO 6900 IF a$ = "GO WEST" THEN PRINT " Tunnels make it easier to move around the mine, try south.": GOTO 6900 IF a$ = "LOOK AROUND" THEN PRINT " You can see a very faint light to the south.": GOTO 6900 PRINT " I am really trying to understand.": GOTO 6900 7000 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " OUCH! Let's not walk into the walls, shall we?": GOTO 7000 IF a$ = "GO SOUTH" THEN 5200 IF a$ = "GO EAST" THEN 7100 IF a$ = "GO WEST" THEN PRINT " Darn! Why did they put so much rock underground?": GOTO 7000 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than the end of your nose in here.": GOTO 7000 PRINT " I can't see what your saying in here, it's too dark.": GOTO 7000 7100 '------------------------------------------------------------- IF GemPlace = 2 THEN PRINT " There seems to be something shiny embedded in the wall, it looks like a gem." IF GemPlace = 2 AND PICK = 1 THEN PRINT " Since you remembered to bring a pick, you dig the shiny stone out.": GEM = 1: POINTS = POINTS + 150: GemPlace = 6 IF GemPlace = 2 AND PICK = 0 THEN PRINT " It seems you neglected to bring any tools, now you must leave this place." place$ = "Dark corner": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " Boy, you sure are good at finding walls. Find another way.": GOTO 7100 IF a$ = "GO SOUTH" THEN 5300 IF a$ = "GO EAST" THEN PRINT " Found a wall, how nice. Try again.": GOTO 7100 IF a$ = "GO WEST" THEN 7000 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than the end of your nose in here.": GOTO 7100 PRINT " I can't see what your saying in here, it's too dark.": GOTO 7100 7200 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 7500 IF a$ = "GO SOUTH" THEN 5400 IF a$ = "GO EAST" THEN 7300 IF a$ = "GO WEST" THEN PRINT " You can't walk though rock.": GOTO 7200 IF a$ = "LOOK AROUND" THEN PRINT " You can hear a faint echoing sound to the south.": GOTO 7200 PRINT " I can't see what your saying, it's still too dark.": GOTO 7200 7300 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " These rock walls are making many dents in your forehead.": GOTO 7300 IF a$ = "GO SOUTH" THEN 7400 IF a$ = "GO EAST" THEN PRINT " Looks we dented our forehead again.": GOTO 7300 IF a$ = "GO WEST" THEN 7200 IF a$ = "LOOK AROUND" THEN PRINT " You can't see further than here.": GOTO 7300 PRINT " Try rephrasing that.": GOTO 7300 7400 '------------------------------------------------------------- place$ = "Dark Passage": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 7300 IF a$ = "GO SOUTH" THEN 5900 IF a$ = "GO EAST" THEN PRINT " This is far east as you get.": GOTO 7400 IF a$ = "GO WEST" THEN 5400 IF a$ = "LOOK AROUND" THEN PRINT " You can't see a thing, but hear a faint echoing sound to the west.": GOTO 7400 PRINT " Are you mummbling or something?": GOTO 7400 7500 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 7600 IF a$ = "GO SOUTH" THEN 7200 IF a$ = "GO EAST" THEN PRINT " Boy this sure is fun ain't it? Try again.": GOTO 7500 IF a$ = "GO WEST" THEN 7700 IF a$ = "LOOK AROUND" THEN PRINT " You can't see very far, it's too dark.": GOTO 7500 PRINT " I can't understand what your saying.": GOTO 7500 7600 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " Gosh, I love this place. WALL!": GOTO 7600 IF a$ = "GO SOUTH" THEN 7500 IF a$ = "GO EAST" THEN PRINT " Are we having fun yet? (wall)": GOTO 7600 IF a$ = "GO WEST" THEN 7800 IF a$ = "LOOK AROUND" THEN PRINT " You can't see the end of your nose in here.": GOTO 7600 PRINT " I can't grasp what your saying.": GOTO 7600 7700 '------------------------------------------------------------- IF GemPlace = 3 THEN PRINT " There seems to be something shiny embedded in the wall, it looks like a gem." IF GemPlace = 3 AND PICK = 1 THEN PRINT " Since you remembered to bring a pick, you dig the shiny stone out.": GEM = 1: POINTS = POINTS + 150: GemPlace = 6 IF GemPlace = 3 AND PICK = 0 THEN PRINT " It seems you neglected to bring any tools, now you must leave this place." place$ = "Very dark corner": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 7800 IF a$ = "GO SOUTH" THEN PRINT " Here we go again, bouncing off walls.": GOTO 7700 IF a$ = "GO EAST" THEN 7500 IF a$ = "GO WEST" THEN PRINT " Why do choose to inflict so much pain on yourself? WALL!": GOTO 7700 IF a$ = "LOOK AROUND" THEN PRINT " You can't see a thing in here.": GOTO 7700 PRINT " I can't see what your saying.": GOTO 7700 7800 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " @#%&*!!! WALL!": GOTO 7800 IF a$ = "GO SOUTH" THEN 7700 IF a$ = "GO EAST" THEN 7600 IF a$ = "GO WEST" THEN 7900 IF a$ = "LOOK AROUND" THEN PRINT " You're blind as a bat in here.": GOTO 7800 PRINT " I can't see or understand what your saying.": GOTO 7800 7900 '------------------------------------------------------------- place$ = "Mineshaft": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN 8000 IF a$ = "GO SOUTH" THEN PRINT " WALL! (Ouch)": GOTO 7900 IF a$ = "GO EAST" THEN 7800 IF a$ = "GO WEST" THEN 8100 IF a$ = "LOOK AROUND" THEN PRINT " You see plenty of darkness.": GOTO 7900 PRINT " What are you saying, anyway?": GOTO 7900 8000 '------------------------------------------------------------- IF GemPlace = 4 THEN PRINT " There seems to be something shiny embedded in the wall, it looks like a gem." IF GemPlace = 4 AND PICK = 1 THEN PRINT " Since you remembered to bring a pick, you dig the shiny stone out.": GEM = 1: POINTS = POINTS + 150: GemPlace = 6 IF GemPlace = 4 AND PICK = 0 THEN PRINT " It seems you neglected to bring any tools, now you must leave this place." place$ = "Sparkle room": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " You can't go that way.": GOTO 8000 IF a$ = "GO SOUTH" THEN 7900 IF a$ = "GO EAST" THEN PRINT " You can't go that way either.": GOTO 8000 IF a$ = "GO WEST" THEN PRINT " You can't go that way either.": GOTO 8000 IF a$ = "LOOK AROUND" THEN PRINT " My ain't all this rock pretty?": GOTO 8000 PRINT " I wish I knew what you were talking about.": GOTO 8000 8100 '------------------------------------------------------------- IF GemPlace = 5 THEN PRINT " There seems to be something shiny embedded in the wall, it looks like a gem." IF GemPlace = 5 AND PICK = 1 THEN PRINT " Since you remembered to bring a pick, you dig the shiny stone out.": GEM = 1: POINTS = POINTS + 150: GemPlace = 6 IF GemPlace = 5 AND PICK = 0 THEN PRINT " It seems you neglected to bring any tools, now you must leave this place." place$ = "Tunnel end": GOSUB GetInputs: : GOSUB 40000 IF a$ = "GO NORTH" THEN PRINT " Not this way you're not.": GOTO 8100 IF a$ = "GO SOUTH" THEN PRINT " Not this way you're not.": GOTO 8100 IF a$ = "GO EAST" THEN 7900 IF a$ = "GO WEST" THEN PRINT " End of the line, try again.": GOTO 8100 IF a$ = "LOOK AROUND" THEN PRINT " You can see rock, rock, tunnel, rock.": GOTO 8100 PRINT " Try to rephase that for us dummies.": GOTO 8100 ' ' (((( Please see below )))) ' GetInputs: Spot = CSRLIN IF Spot = 1 THEN Spot = 2 COLOR 11, 7: LOCATE 1, 1: PRINT STRING$(80, " ") LOCATE 1, 2: PRINT "Escape From Hiddenite" COLOR 0: LOCATE 1, 50: PRINT "Turn #:"; Turns; TAB(65); "Score:"; POINTS COLOR 15, 1 LOCATE Spot, 1: PRINT place$; " >" LOCATE Spot, LEN(place$) + 3: INPUT "", a$ ' Breaking the program for the purpose of cheating is frowned ' upon by the author. Please play fairly. ' ' If you are viewing this before the program has run please exit ' and run EFH.BAS it will chain to the others accordingly. ' ' To continue press [F5] to exit press [Alt], [F], [X]. IF CSRLIN > 22 THEN FOR W = 2 TO 23 LOCATE W, 1: PRINT STRING$(80, " ") NEXT W LOCATE 2, 1 END IF RETURN 20000 '-------------------------------death------------------------------- 20005 LET LIVES = LIVES - 1 20010 IF LIVES < 1 THEN 30000 20020 PRINT " You are now dead, but there is still hope for you yet. I can help you but " 20030 PRINT " you now have only "; LIVES; " more chance(s)." 20040 INPUT " Would you still like to continue, or are you a chicken (Y/N)"; a$ 20060 IF UCASE$(a$) = "Y" THEN 20200 ELSE 30000 20070 IF LIVES > 0 THEN PlaceBeen$ = "Mine": CLS : PRINT : PRINT : PRINT " Reconstructing Hiddenite, please wait...": CHAIN "efh1.bas" 20200 ' 20202 GOTO 20070 30000 INPUT " YOU'RE DEAD FOR SURE NOW, THERE IS NO GOING BACK (press enter)", q 30005 CLS 30010 PRINT : PRINT : PRINT : PRINT 30020 PRINT " It has been a pleasure watching you fail, we will have to do this " 30030 PRINT " again sometime.": PRINT : PRINT 30040 PRINT SPC(10); " YOUR FINAL SCORE IS "; POINTS; " POINTS.": PRINT 30042 PRINT SPC(10); " YOU TOOK "; Turns; " STEPS TO GET THIS FAR.": PRINT 30045 LET score = POINTS + DOLLARS 30050 IF score < 500 THEN PRINT SPC(10); " YOUR RANK IS IDIOT." ELSE 30060 30055 GOTO 99999 30060 IF score < 1500 THEN PRINT SPC(10); " YOUR RANK IS AMATUER." ELSE 30070 30065 GOTO 99999 30070 IF score < 2000 THEN PRINT SPC(10); " YOUR RANK IS NOVICE." ELSE 30080 30075 GOTO 99999 30080 IF score < 3000 THEN PRINT SPC(10); " YOUR RANK IS WANDERER." ELSE 30090 30085 GOTO 99999 30090 IF score < 4000 THEN PRINT SPC(10); " YOU ARE HARRY HOUDINI." ELSE 30100 30095 GOTO 99999 30100 IF score < 5000 THEN PRINT SPC(10); " NO PLACE CAN HOLD YOU, CHAMP." ELSE 30110 30105 GOTO 99999 30110 PRINT SPC(10); " YOU ARE A GOD!": GOTO 99999 40000 '-----------------------corrections---------------------------------- 40002 LET a$ = UCASE$(a$) 40004 IF a$ = "N" THEN a$ = "GO NORTH" 40005 IF a$ = "S" THEN a$ = "GO SOUTH" 40006 IF a$ = "W" THEN a$ = "GO WEST" 40007 IF a$ = "E" THEN a$ = "GO EAST" 40008 IF a$ = "NORTH" THEN a$ = "GO NORTH" 40009 IF a$ = "SOUTH" THEN a$ = "GO SOUTH" 40010 IF a$ = "WEST" THEN a$ = "GO WEST" 40011 IF a$ = "EAST" THEN a$ = "GO EAST" 40012 IF a$ = "QUIT" THEN 41000 40013 IF a$ = "Q" GOTO 41000 40015 IF a$ = "MAP" THEN 42000 40016 IF a$ = "D" THEN a$ = "GO DOWN" 40017 IF a$ = "DOWN" THEN a$ = "GO DOWN" 40018 IF a$ = "TURNS" THEN PRINT "You have taken "; Turns; " turns.": a$ = "LOOK AROUND" 40019 IF a$ = "INVENTORY" THEN 40020 ELSE 40100 40020 '---------inventory------- 40021 J$ = ", " 40022 IF HOUSEKEY = 1 THEN J1$ = "a key" ELSE J1$ = "" 40023 IF COIN = 1 THEN J2$ = ", a coin" ELSE J2$ = "" 40024 IF PUMP = 1 THEN J3$ = ", a tire pump" ELSE J3$ = "" 40025 IF JUG = 1 THEN J4$ = ", a water jug" ELSE J4$ = "" 40026 IF WATER = 1 THEN J5$ = " (the jug is full)" ELSE J5$ = "" 40027 IF WATER = 0 AND JUG = 1 THEN J5$ = " (the jug is empty)" ELSE J5$ = "" 40028 IF BIKECHAIN = 1 THEN J6$ = ", a bike chain" ELSE J6$ = "" 40029 IF GEM = 1 THEN J7$ = ", a rare gem" ELSE J7$ = "" 40030 IF LANTERN = 1 THEN J8$ = ", a lantern" ELSE J8$ = "" 40031 IF BIKE = 1 THEN J9$ = ", an old bike" ELSE J9$ = "" 40032 IF PHCARD = 1 THEN J10$ = ", a phonecard" ELSE J10$ = "" 40033 IF TICKET = 1 THEN J11$ = ", a bus ticket" ELSE J11$ = "" 40034 IF MineMap = 1 THEN J12$ = ", a map to the mine" ELSE J12$ = "" 40035 IF PICK = 1 THEN J13$ = ", a pick" ELSE J13$ = "" 40089 PRINT " You have "; J1$; J2$; J3$; J4$; J5$; J6$; J7$; J8$; J9$; J10$; J11$; J12$; J13$; J$; LIVES; " lives left, and $"; MONEY; " dollars." 40090 LET a$ = "LOOK AROUND" 40100 '---skip to here w/o inventory--- 40212 Turns = Turns + 1: RETURN 41000 INPUT " What and leave this beautiful little mine? (Y/N) ", X$ 41001 IF UCASE$(X$) = "Y" THEN 30005 ELSE a$ = "LOOK AROUND": RETURN 42000 '-------------- map ----------- 42010 IF MineMap = 1 THEN 42030 42020 PRINT " First you must find the map to the mine. Until then, none is available." 42025 RETURN 42030 MapOfMine CLS RETURN 99999 PRINT : PRINT : PRINT PRINT TAB(18); "[Press any key]": DO WHILE INKEY$ = "": LOOP HighScores SYSTEM SUB HighScores SCREEN 8 '------------------------ High Score Screen------------------ GOSUB DrawScreen GOSUB ShowScore GOSUB SaveScore GOSUB ShowScore DO WHILE INKEY$ = "": LOOP SCREEN 0 CLS END '------------------------- Subs: ---------------------------- ShowScore: OPEN "EFHscore.lst" FOR INPUT AS #1 INPUT #1, N1$, L1$, S1$, T1$, M1$, N2$, L2$, S2$, T2$, M2$, N3$, L3$, S3$, T3$, M3$ CLOSE COLOR 7 LOCATE 9, 15: PRINT TAB(17); "NAME"; TAB(29); "LIVES"; TAB(40); "SCORE"; TAB(50); "TURNS"; TAB(58); "CASH LEFT" COLOR 3 LOCATE 10, 15: PRINT TAB(15); "--------"; TAB(28); "-------"; TAB(39); "-------"; TAB(49); "-------"; TAB(57); "----------" COLOR 8 LOCATE 12, 15: PRINT TAB(15); N1$; TAB(30); L1$; TAB(40); S1$; TAB(50); T1$; TAB(60); "$"; M1$ LOCATE 14, 15: PRINT TAB(15); N2$; TAB(30); L2$; TAB(40); S2$; TAB(50); T2$; TAB(60); "$"; M2$ LOCATE 16, 15: PRINT TAB(15); N3$; TAB(30); L3$; TAB(40); S3$; TAB(50); T3$; TAB(60); "$"; M3$ RETURN SaveScore: IF score > VAL(S1$) THEN GOSUB EnterName IF score <= VAL(S1$) AND score > VAL(S2$) THEN GOSUB EnterName IF score <= VAL(S2$) AND score > VAL(S3$) THEN GOSUB EnterName IF score > VAL(S1$) THEN S3$ = S2$: N3$ = N2$: L3$ = L2$: T3$ = T2$: M3$ = M2$: S2$ = S1$: N2$ = N1$: L2$ = L1$: T2$ = T1$: M2$ = M1$: S1$ = STR$(score): N1$ = Name$: L1$ = STR$(LIVES): T1$ = STR$(Turns): M1$ = STR$(MONEY): GOTO WriteScore IF score <= VAL(S1$) AND score > VAL(S2$) THEN S3$ = S2$: N3$ = N2$: L3$ = L2$: T3$ = T2$: M3$ = M2$: S2$ = STR$(score): N2$ = Name$: L2$ = STR$(LIVES): T2$ = STR$(Turns): M2$ = STR$(MONEY): GOTO WriteScore IF score <= VAL(S2$) AND score > VAL(S3$) THEN : S3$ = STR$(score): N3$ = Name$: L3$ = STR$(LIVES): T3$ = STR$(Turns): M3$ = STR$(MONEY): GOTO WriteScore IF score <= VAL(S3$) THEN GOTO DontWriteScore WriteScore: OPEN "efhscore.lst" FOR OUTPUT AS #1 WRITE #1, N1$, L1$, S1$, T1$, M1$, N2$, L2$, S2$, T2$, M2$, N3$, L3$, S3$, T3$, M3$ CLOSE RETURN DontWriteScore: LOCATE 18, 22: PRINT " I'm sorry you didn't make the list. " RETURN EnterName: LOCATE 18, 15: PRINT " Congratulations! You made the list. [Press any key]" DO WHILE INKEY$ = "": LOOP LOCATE 18, 15: PRINT " " LOCATE 18, 22: INPUT " Enter your name > ", Name$ LOCATE 18, 15: PRINT " " IF LEN(Name$) > 12 THEN Name$ = LEFT$(Name$, 12) RETURN DrawScreen: SCREEN 8: CLS LINE (100, 50)-(540, 150), 15, BF: LINE (99, 49)-(541, 151), 1, B LINE (140, 28)-(500, 42), 15, BF: LINE (139, 27)-(501, 43), 1, B LINE (100, 50)-(540, 150), 4, B: LINE (140, 28)-(500, 42), 4, B PAINT (10, 10), 1 COLOR 1, 15 LOCATE 5, 23: PRINT "High Scores for Escape From Hiddenite" RETURN END SUB SUB MapOfMine CLS : SCREEN 8 COLOR 8, 7 LINE (317, 20)-(323, 20) LINE (237, 80)-(343, 80) LINE (237, 120)-(343, 120) LINE (400, 157)-(400, 163) LINE (160, 87)-(160, 113) LINE (77, 100)-(565, 100) LINE (235, 40)-(485, 40) LINE (240, 37)-(240, 83) LINE (315, 80)-(405, 80) LINE (395, 60)-(485, 60) LINE (475, 80)-(565, 80) LINE (475, 120)-(565, 120) LINE (315, 120)-(405, 120) LINE (315, 140)-(485, 140) LINE (235, 160)-(405, 160) LINE (360, 180)-(400, 180) LINE (240, 77)-(240, 163) LINE (320, 17)-(320, 83) LINE (320, 77)-(320, 180) LINE (400, 37)-(400, 83) LINE (400, 77)-(400, 143) LINE (480, 37)-(480, 143) LINE (560, 77)-(560, 123) CIRCLE (360, 180), 40, , , , .3 CIRCLE (320, 160), 80, , 3, 4.7, .25 CIRCLE (480, 100), 9, 0, , , .4 PAINT (480, 100), 0 CIRCLE (480, 100), 9, , , , .4 COLOR 8 LOCATE 13, 2: PRINT "Entrance" COLOR 15 LOCATE 2, 2: PRINT " `Proposed Layout for Mine Claim # 0013'" COLOR 14 LOCATE 22, 2: PRINT " [Press any key to continue.]" DO WHILE INKEY$ = "": LOOP SCREEN 0: COLOR 15, 1: CLS a$ = "LOOK AROUND" END SUB