mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-01 22:10:16 +00:00
6079 lines
201 KiB
QBasic
6079 lines
201 KiB
QBasic
'****************************** ROBORAIDER *********************************
|
|
'********************************** by *************************************
|
|
'***************************** x.t.r.GRAPHICS (TM) *************************
|
|
|
|
'**************************** PRESS <F5> TO PLAY!! *************************
|
|
|
|
'############### Copyright 2004 by Kevin ################
|
|
|
|
DECLARE SUB Ending ()
|
|
DECLARE SUB Mission06 ()
|
|
DECLARE SUB Menu9 ()
|
|
DECLARE SUB Mission05 ()
|
|
DECLARE SUB Menu8 ()
|
|
DECLARE SUB Mission04 ()
|
|
DECLARE SUB Menu7 ()
|
|
DECLARE SUB Mbrief01 ()
|
|
DECLARE SUB Mission03 ()
|
|
DECLARE SUB Menu6 ()
|
|
DECLARE SUB Mission02 ()
|
|
DECLARE SUB Menu5 ()
|
|
DECLARE SUB Mission01 ()
|
|
DECLARE SUB Menu4 ()
|
|
DECLARE SUB Test003 ()
|
|
DECLARE SUB Menu3 ()
|
|
DECLARE SUB Test002 ()
|
|
DECLARE SUB Dril ()
|
|
DECLARE SUB Drop ()
|
|
DECLARE SUB Missionb2 ()
|
|
DECLARE SUB Scorp ()
|
|
DECLARE SUB Creep ()
|
|
DECLARE SUB Tbot1 ()
|
|
DECLARE SUB Tbot2 ()
|
|
DECLARE SUB Missionb ()
|
|
DECLARE SUB Trainerb ()
|
|
DECLARE SUB Robopic ()
|
|
DECLARE SUB Bonus ()
|
|
DECLARE SUB Trailer ()
|
|
DECLARE SUB Menu2 ()
|
|
DECLARE SUB Test001 ()
|
|
DECLARE SUB Levelcode ()
|
|
DECLARE SUB Credits ()
|
|
DECLARE SUB Help ()
|
|
DECLARE SUB Menu ()
|
|
DECLARE SUB Intro ()
|
|
CALL Intro
|
|
|
|
SUB Bonus
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>BONUS>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>GAME-TRAILER>>": LOCATE 11, 15: COLOR 15: PRINT ">>ROBO-PICS<<": LOCATE 13, 15: COLOR 15: PRINT ">>MENU<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>GAME-TRAILER<<": LOCATE 11, 15: COLOR 9: PRINT ">>ROBO-PICS>>": LOCATE 13, 15: COLOR 15: PRINT ">>MENU<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>GAME-TRAILER<<": LOCATE 11, 15: COLOR 15: PRINT ">>ROBO-PICS<<": LOCATE 13, 15: COLOR 14: PRINT ">>MENU>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Trailer
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Robopic
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Menu
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Credits
|
|
PLAY "MB O4"
|
|
CLS
|
|
SCREEN 13
|
|
LOCATE 22, 1
|
|
'######## Robo Theme #######
|
|
PLAY "E16 G E16 C2 C G E E3 G E C3 E16 G E16 C2 C16 C G3 E16 E E16 G F E G C3 E16 G E16 C2"
|
|
COLOR 10
|
|
PRINT " Credits"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Main Programer Kevin"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Graphics Kevin"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Debuging Kevin"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
COLOR 9
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Special Thanks"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Anyone who plays my games :)"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Vic's Qbasic Programing Tutorials"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Mallard's 'Basic Basic' Tutorials"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Qbasic By Exaple (by Greg Perry)"
|
|
SLEEP (1)
|
|
PRINT
|
|
COLOR 14
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Cool sites "
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " www.qbasic.com"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " www.qbasicnews.com"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Those 2 sites link to more"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Look out for RoboRaider II"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT " Play all levels for Bonus Levelcode!"
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
COLOR 7
|
|
SLEEP (1)
|
|
PRINT " This is the Classic style of Robo-"
|
|
SLEEP (1)
|
|
PRINT " Raider, I hope to have a Hi-Def "
|
|
SLEEP (1)
|
|
PRINT " version of this one and the second"
|
|
SLEEP (1)
|
|
PRINT " one next year."
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
SLEEP (1)
|
|
PRINT
|
|
|
|
CALL Menu
|
|
END SUB
|
|
|
|
SUB Creep
|
|
CLS
|
|
SCREEN 13
|
|
LINE (10, 37)-(20, 45), 8, BF
|
|
LINE (20, 35)-(160, 50), 10, BF
|
|
LINE (22, 36)-(158, 36), 8
|
|
LINE (22, 60)-(158, 60), 8
|
|
CIRCLE (22, 48), 15, 7
|
|
PAINT (22, 48), 7
|
|
PSET (22, 48), 0
|
|
CIRCLE (158, 48), 15, 7
|
|
PAINT (158, 48), 7
|
|
PSET (158, 48), 0
|
|
LOCATE 10, 1: PRINT " Creeper: Mission 3:"
|
|
LOCATE 12, 1: PRINT " Did someone step on it? Nope this"
|
|
LOCATE 13, 1: PRINT " Bot is made for tight places. Like"
|
|
LOCATE 14, 1: PRINT " low hanging ceilings."
|
|
COLOR 10
|
|
LOCATE 17, 1: PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Missionb
|
|
|
|
END SUB
|
|
|
|
SUB Dril
|
|
CLS
|
|
SCREEN 13
|
|
LINE (60, 20)-(160, 50), 9, BF
|
|
LINE (60, 20)-(20, 35), 8
|
|
LINE (20, 35)-(60, 50), 8
|
|
LINE (60, 50)-(60, 20), 8
|
|
PAINT (55, 35), 8
|
|
LINE (70, 36)-(158, 36), 8
|
|
LINE (70, 60)-(158, 60), 8
|
|
CIRCLE (70, 48), 15, 7
|
|
PAINT (70, 48), 7
|
|
PSET (70, 48), 0
|
|
CIRCLE (158, 48), 15, 7
|
|
PAINT (158, 48), 7
|
|
PSET (158, 48), 0
|
|
LOCATE 10, 1: PRINT " Trainer-Bot: Test 1-2:"
|
|
LOCATE 12, 1: PRINT " A simple desinged robot for easy"
|
|
LOCATE 13, 1: PRINT " repairs. Used for the first two"
|
|
LOCATE 14, 1: PRINT " test in case of a crash."
|
|
COLOR 10
|
|
LOCATE 17, 1: PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Missionb2
|
|
|
|
END
|
|
END SUB
|
|
|
|
SUB Drop
|
|
CLS
|
|
SCREEN 13
|
|
LINE (10, 32)-(20, 45), 8, BF
|
|
LINE (20, 30)-(160, 50), 12, BF
|
|
LINE (22, 36)-(158, 36), 8
|
|
LINE (22, 60)-(158, 60), 8
|
|
'** SPIKE **
|
|
LINE (130, 29)-(110, 29), 7
|
|
LINE (130, 29)-(120, 10), 7: LINE (110, 29)-(120, 10), 7
|
|
PAINT (120, 20), 7
|
|
LINE (120, 10)-(120, 29), 8
|
|
'** WHEELS **
|
|
CIRCLE (22, 48), 15, 7
|
|
PAINT (22, 48), 7
|
|
PSET (22, 48), 0
|
|
CIRCLE (158, 48), 15, 7
|
|
PAINT (158, 48), 7
|
|
PSET (158, 48), 0
|
|
LOCATE 10, 1: PRINT " Drop-Bot: Mission 4:"
|
|
LOCATE 12, 1: PRINT " This Bot has a harpoon to raise "
|
|
LOCATE 13, 1: PRINT " and lower itself to different "
|
|
LOCATE 14, 1: PRINT " levels of terrain."
|
|
COLOR 10
|
|
LOCATE 17, 1: PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Missionb2
|
|
|
|
END SUB
|
|
|
|
SUB Ending
|
|
SCREEN 13
|
|
COLOR 15
|
|
CLS
|
|
PRINT " Dr Robo's Notes:"
|
|
PRINT
|
|
PRINT " I inserted all the gems into the"
|
|
PRINT " disk. It began to glow, and then "
|
|
PRINT " another slot melted into the center. "
|
|
PRINT " There is another gem!! I must research,"
|
|
PRINT " but until then then, my pilot needs a "
|
|
PRINT " break...."
|
|
PRINT " I'll give him a vacation while I "
|
|
PRINT " dig up the location of the last gem."
|
|
PRINT " Hopefuly the mystery will be solved,"
|
|
PRINT " and we can find out what this does..."
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Bonus
|
|
END SUB
|
|
|
|
SUB Help
|
|
CLS
|
|
PRINT " Help File:"
|
|
PRINT
|
|
PRINT " First thing first: to highlight"
|
|
PRINT " other menu commands, use the arrow- "
|
|
PRINT " keys. Press 'Enter' to select"
|
|
PRINT " Robots move with the arrowkeys. The"
|
|
PRINT " grip on the collecter bots operate"
|
|
PRINT " automaticaly when a item is in their"
|
|
PRINT " reach. You can press 'Esc' almost"
|
|
PRINT " anywhere in the game to exit."
|
|
PRINT " For any more help, open the README.TXT"
|
|
PRINT " located with this game."
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press any key to return"
|
|
DO
|
|
LOOP WHILE INKEY$ = ""
|
|
CALL Menu
|
|
END SUB
|
|
|
|
SUB Intro
|
|
PLAY "MB <"
|
|
CLS
|
|
SCREEN 13
|
|
'######## Robo Theme #######
|
|
PLAY "E16 G E16 C2 C G E E3 G E C3 E16 G E16 C2 C16 C G3 E16 E E16 G F E G C3 E16 G E16 C2"
|
|
'######## Intro #######
|
|
LOCATE 10, 15: COLOR 44: PRINT "xt": LOCATE 10, 17: COLOR 43: PRINT "GRAP": LOCATE 10, 21: COLOR 42: PRINT "HICS(TM)": COLOR 15
|
|
SLEEP (3)
|
|
CLS
|
|
LOCATE 10, 13: COLOR 42: PRINT ">>>": LOCATE 10, 16: COLOR 43: PRINT "PRE": LOCATE 10, 19: COLOR 44: PRINT "SE": LOCATE 10, 21: COLOR 43: PRINT "NTS": LOCATE 10, 23: COLOR 42: PRINT ">>>": COLOR 15
|
|
SLEEP (3)
|
|
CLS
|
|
LOCATE 10, 14: COLOR 7: PRINT "RoboRaider": COLOR 15
|
|
SLEEP (3)
|
|
CLS
|
|
PRINT " Dr. Robo's Notes:"
|
|
PRINT
|
|
PRINT " Note to self: My last Robo-Raider,"
|
|
PRINT " while exploring a cave, carelessly "
|
|
PRINT " hit a trip wire destoring one of my "
|
|
PRINT " finest robots. For this run on with "
|
|
PRINT " a rolling rock, I myself, slightly "
|
|
PRINT " inraged, carelessly fired him. Gee, "
|
|
PRINT " that leaves me with without a robot "
|
|
PRINT " pilot!"
|
|
PRINT " Note to self: Run ad in paper for "
|
|
PRINT " new pilot."
|
|
COLOR 10: LOCATE 23, 1: PRINT " Press SPACEBAR to continue...."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
COLOR 15
|
|
|
|
PRINT " NewsPaper AD:"
|
|
PRINT ""
|
|
PRINT " Dear R/C car fans, do you want to "
|
|
PRINT " be well paid for your piloting skills?"
|
|
PRINT " If so contact me at (###) ###-ROBO."
|
|
PRINT " Callers will have an appoitment setup "
|
|
PRINT " to take my tests. If you pass all three"
|
|
PRINT " tests completely, you will be hired on "
|
|
PRINT " the spot. "
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
COLOR 10: LOCATE 23, 1: PRINT " Press SPACEBAR to continue...."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Menu
|
|
END SUB
|
|
|
|
SUB Levelcode
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 9
|
|
PRINT " Turn on CAPS LOCK to type Levelcode."
|
|
PRINT " Press 'Enter' to check code."
|
|
PRINT " Levelcodes take you to levels you "
|
|
PRINT " last left off...."
|
|
PRINT
|
|
PRINT
|
|
INPUT " Insert Levelcode:", lcode$
|
|
PRINT " Checking Levelcode>>"; lcode$
|
|
SLEEP (4)
|
|
|
|
IF lcode$ = "TEST001" THEN GOTO swtch
|
|
IF lcode$ = "TEST002" THEN GOTO swtch
|
|
IF lcode$ = "TEST003" THEN GOTO swtch
|
|
IF lcode$ = "POINTY" THEN GOTO swtch
|
|
IF lcode$ = "INDEEP" THEN GOTO swtch
|
|
IF lcode$ = "SUBRUINS" THEN GOTO swtch
|
|
IF lcode$ = "TOWER" THEN GOTO swtch
|
|
IF lcode$ = "WALLDRILL" THEN GOTO swtch
|
|
IF lcode$ = "AMAZEME" THEN GOTO swtch
|
|
IF lcode$ = "ROBOBONUS" THEN GOTO swtch
|
|
IF lcode$ <> "" THEN GOTO err1
|
|
IF lcode$ = "" THEN GOTO err1
|
|
|
|
swtch: COLOR 10
|
|
PRINT
|
|
PRINT " "; lcode$; " is valid!"
|
|
PRINT " Enjoy this level!"
|
|
SLEEP (6)
|
|
IF lcode$ = "TEST001" THEN CALL Menu
|
|
IF lcode$ = "TEST002" THEN CALL Menu2
|
|
IF lcode$ = "TEST003" THEN CALL Menu3
|
|
IF lcode$ = "POINTY" THEN CALL Menu4
|
|
IF lcode$ = "INDEEP" THEN CALL Menu5
|
|
IF lcode$ = "SUBRUINS" THEN CALL Menu6
|
|
IF lcode$ = "TOWER" THEN CALL Menu7
|
|
IF lcode$ = "WALLDRILL" THEN CALL Menu8
|
|
IF lcode$ = "AMAZEME" THEN CALL Menu9
|
|
IF lcode$ = "ROBOBONUS" THEN CALL Bonus
|
|
|
|
err1: COLOR 12
|
|
PRINT
|
|
PRINT " "; lcode$; " does not compute."
|
|
PRINT " To get a level's code, defeat"
|
|
PRINT " the level before it..."
|
|
SLEEP (8)
|
|
CALL Menu
|
|
END SUB
|
|
|
|
SUB Mbrief01
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 15
|
|
PRINT " Mission Briefing:"
|
|
PRINT
|
|
PRINT " In your last mission, you "
|
|
PRINT " collected a round disk. This I "
|
|
PRINT " looked over carefuly, and I found"
|
|
PRINT " something... Your first Item, that"
|
|
PRINT " was found in the pyramid, the gem,"
|
|
PRINT " fits perfecly in one of the slots."
|
|
PRINT " There are four more slots to fill."
|
|
PRINT " I've looked, and found what I think"
|
|
PRINT " are the rest. One of them I hope to"
|
|
PRINT " collect myself. Any way, I think "
|
|
PRINT " this might be important, lets get "
|
|
PRINT " the other gems and find out!"
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Mission03
|
|
END SUB
|
|
|
|
SUB Menu
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Test1>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Test001
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
END SUB
|
|
|
|
SUB Menu2
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Test2>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Test002
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Menu3
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Test3>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Test003
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Menu4
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission1>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission01
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Menu5
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission2>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission02
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Menu6
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission3>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mbrief01
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Menu7
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission4>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission04
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
|
|
END SUB
|
|
|
|
SUB Menu8
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission5>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission05
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Menu9
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission6>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission06
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Mission01
|
|
CLS
|
|
SCREEN 7, 0, 1, 0
|
|
DIM sch1(100), sch2(100), scv1(100), scv2(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
COLOR 15
|
|
PRINT " Mission Status:"
|
|
PRINT
|
|
PRINT " Mission 1: There has been"
|
|
PRINT " a recent discovery in a pyramid"
|
|
PRINT " over in Egypt of a small passage."
|
|
PRINT " It's to small for humans, but one"
|
|
PRINT " of my finest robots 'Scorpian' "
|
|
PRINT " can make the trip. My scans show"
|
|
PRINT " a object at the end of the shaft,"
|
|
PRINT " and something else beyond it. "
|
|
PRINT " What ever that is you must find "
|
|
PRINT " out, good luck."
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
|
|
CLS
|
|
'############# ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 14, BF
|
|
LINE (5, 1)-(6, 7), 12, BF
|
|
LINE (5, 5)-(6, 8), 4, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), sch1
|
|
CLS
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 14, BF
|
|
LINE (5, 3)-(6, 10), 12, BF
|
|
LINE (5, 7)-(6, 10), 4, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), sch2
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 14, BF
|
|
LINE (1, 5)-(7, 6), 12, BF
|
|
LINE (5, 5)-(8, 6), 4, BF
|
|
GET (1, 1)-(10, 10), scv1
|
|
PCOPY 1, 0
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 14, BF
|
|
LINE (3, 5)-(10, 6), 12, BF
|
|
LINE (7, 5)-(10, 6), 4, BF
|
|
GET (1, 1)-(10, 10), scv2
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
'######## LEVEL ########
|
|
LINE (150, 200)-(150, 50), 12
|
|
LINE (170, 200)-(170, 50), 12
|
|
LINE (150, 50)-(170, 50), 12
|
|
CIRCLE (160, 60), 2, 9: PAINT (160, 60), 9
|
|
PCOPY 1, 0
|
|
'######## Level INTRO ####
|
|
x = 155: y = 180
|
|
stat$ = "Hmm, Scorpian's video feed shows a smaller shaft than my scans did. Never mind that, get that item."
|
|
PUT (x, y), sch1, PSET
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: PRINT stat$
|
|
PCOPY 1, 0
|
|
LOOP WHILE press$ = ""
|
|
CLS
|
|
stat$ = "Collect Item:"
|
|
'######## LEVEL ########
|
|
LINE (150, 200)-(150, 50), 12
|
|
LINE (170, 200)-(170, 50), 12
|
|
LINE (150, 50)-(170, 50), 12
|
|
PCOPY 1, 0
|
|
d = 1
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: PRINT stat$
|
|
'######## Item Code #######
|
|
IF i = 0 THEN CIRCLE (160, 60), 2, 9: PAINT (160, 60), 9 ELSE CIRCLE (160, 60), 2, 0: PAINT (160, 60), 0
|
|
IF i = 1 THEN LINE (120, 50)-(200, 10), 12, B: PUT (155, 46), mask, PSET: CIRCLE (160, 23), 10, 1: PAINT (160, 23), 1: CIRCLE (160, 23), 10, 7: stat$ = "Do not enter, there's a trip line on the door!"
|
|
IF y = 62 THEN IF x = 155 OR x = 156 THEN i = 1
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'####### Wall codes #######
|
|
IF x = 150 THEN GOTO mcrash1
|
|
IF x = 161 THEN GOTO mcrash1
|
|
IF y = 50 THEN GOTO mcrash1
|
|
IF i = 0 AND y = 188 THEN y = 187: stat$ = "Finish The Mission First!"
|
|
IF i = 0 AND y < 187 THEN stat$ = "Collect Item: "
|
|
IF i = 1 AND y = 188 THEN GOTO mfinish1
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
mfinish1: CLS
|
|
COLOR 10
|
|
PRINT " You completed your first mission!"
|
|
PRINT
|
|
PRINT " Now for the next one!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: POINTY"
|
|
PRINT " Next level's code is: INDEEP"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu5
|
|
|
|
mcrash1: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed My Robot!"
|
|
PRINT
|
|
PRINT " Sorry, You are fired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: POINTY"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END SUB
|
|
|
|
SUB Mission02
|
|
SCREEN 7, 0, 1, 0
|
|
DIM sch1(100), sch2(100), scv1(100), scv2(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
COLOR 15
|
|
PRINT " Mission Status:"
|
|
PRINT
|
|
PRINT " Mission 2: Your next mission"
|
|
PRINT " takes you to a cave with, you "
|
|
PRINT " guessed, a entrance to small for"
|
|
PRINT " humans. My scans show a maze of "
|
|
PRINT " paths leading to a object. You "
|
|
PRINT " will be using Scorpian again, it's"
|
|
PRINT " more tactical than the others."
|
|
PRINT " You must watch your battery life,"
|
|
PRINT " my bot has one of 30 minutes. But"
|
|
PRINT " be careful, I have towing bots,"
|
|
PRINT " made just for pulling back a "
|
|
PRINT " stranded robot. Just don't crash!"
|
|
COLOR 9
|
|
PRINT " NOTE: If the robot stops, its a "
|
|
PRINT " dead end, try a new direction"
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
'############# ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 14, BF
|
|
LINE (5, 1)-(6, 7), 12, BF
|
|
LINE (5, 5)-(6, 8), 4, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), sch1
|
|
CLS
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 14, BF
|
|
LINE (5, 3)-(6, 10), 12, BF
|
|
LINE (5, 7)-(6, 10), 4, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), sch2
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 14, BF
|
|
LINE (1, 5)-(7, 6), 12, BF
|
|
LINE (5, 5)-(8, 6), 4, BF
|
|
GET (1, 1)-(10, 10), scv1
|
|
PCOPY 1, 0
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 14, BF
|
|
LINE (3, 5)-(10, 6), 12, BF
|
|
LINE (7, 5)-(10, 6), 4, BF
|
|
GET (1, 1)-(10, 10), scv2
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
|
|
m2seg1: CLS ' >>>SEGMENT #01<<<<
|
|
'######### LEVEL ########
|
|
LINE (150, 200)-(150, 100), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (0, 100)-(150, 100), 2
|
|
LINE (320, 100)-(170, 100), 2
|
|
LINE (0, 80)-(320, 80), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 155: y = 180: d = 1
|
|
IF segm = 1 THEN x = 299: d = 2
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
IF y = 80 THEN GOTO mcrash2
|
|
IF x = 10 THEN x = 11
|
|
'########## DOOR CODES ###########
|
|
IF i = 0 THEN IF y < 189 THEN stat$ = "Collect Item:"
|
|
IF i = 0 THEN IF y = 190 THEN y = 189: stat$ = "Not Finished "
|
|
IF i = 1 THEN IF y = 190 THEN GOTO mfinish2
|
|
IF x = 305 THEN segm = 0: GOTO m2seg2
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg2: CLS ' >>>SEGMENT #02<<<
|
|
'######### LEVEL ########
|
|
LINE (150, 0)-(150, 80), 2
|
|
LINE (170, 0)-(170, 80), 2
|
|
LINE (0, 80)-(150, 80), 2
|
|
LINE (320, 80)-(170, 80), 2
|
|
LINE (0, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10: d = 4
|
|
IF segm = 1 THEN y = 10: d = 3
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash2
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash2
|
|
IF y = 91 THEN GOTO mcrash2
|
|
IF x = 300 THEN x = 299
|
|
'########## DOOR CODES ########
|
|
IF x = 5 THEN segm = 1: GOTO m2seg1
|
|
IF y = 5 THEN segm = 0: GOTO m2seg3
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg3: CLS ' >>>SEGMENT #03<<<
|
|
'######### LEVEL ########
|
|
LINE (150, 0)-(150, 80), 2
|
|
LINE (170, 0)-(170, 80), 2
|
|
LINE (0, 80)-(150, 80), 2
|
|
LINE (320, 80)-(170, 80), 2
|
|
LINE (150, 200)-(150, 100), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (0, 100)-(150, 100), 2
|
|
LINE (320, 100)-(170, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180: d = 1
|
|
IF segm = 1 THEN x = 299: d = 2
|
|
IF segm = 2 THEN y = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash2
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash2
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
IF x = 10 THEN x = 11
|
|
'########## DOOR CODES ##########
|
|
IF y = 185 THEN segm = 1: GOTO m2seg2
|
|
IF x = 305 THEN segm = 0: GOTO m2seg4
|
|
IF y = 5 THEN segm = 0: GOTO m2seg15
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg4: CLS ' >>> SEGMENT04 <<<
|
|
'######### LEVEL #############
|
|
LINE (0, 80)-(320, 80), 2
|
|
LINE (0, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10: d = 4
|
|
IF segm = 1 THEN x = 299: d = 2
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 80 OR y = 91 THEN GOTO mcrash2
|
|
'########## DOOR CODES #######
|
|
IF x = 5 THEN segm = 1: GOTO m2seg3
|
|
IF x = 305 THEN segm = 0: GOTO m2seg5
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg5: CLS ' >>> SEGMENT #05 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 0)-(150, 80), 2
|
|
LINE (170, 0)-(170, 80), 2
|
|
LINE (0, 80)-(150, 80), 2
|
|
LINE (320, 80)-(170, 80), 2
|
|
LINE (150, 200)-(150, 100), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (0, 100)-(150, 100), 2
|
|
LINE (320, 100)-(170, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN y = 10
|
|
IF segm = 2 THEN y = 180
|
|
IF segm = 3 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash2
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash2
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
'########## DOOR CODES ##########
|
|
IF x = 5 THEN segm = 1: GOTO m2seg4
|
|
IF y = 5 THEN segm = 0: GOTO m2seg17
|
|
IF x = 305 THEN segm = 1: GOTO m2seg14
|
|
IF y = 185 THEN segm = 0: GOTO m2seg6
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg6: CLS ' >>> SEGMENT #06 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 0)-(150, 80), 2
|
|
LINE (170, 0)-(170, 80), 2
|
|
LINE (0, 80)-(150, 80), 2
|
|
LINE (320, 80)-(170, 80), 2
|
|
LINE (150, 200)-(150, 100), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (0, 100)-(150, 100), 2
|
|
LINE (320, 100)-(170, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 10
|
|
IF segm = 1 THEN x = 10
|
|
IF segm = 2 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash2
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash2
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
'########## DOOR CODES ##########
|
|
IF x = 5 THEN segm = 0: GOTO m2seg16
|
|
IF y = 5 THEN segm = 2: GOTO m2seg5
|
|
IF x = 305 THEN segm = 0: GOTO m2seg7
|
|
IF y = 185 THEN y = 184
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg7: CLS ' >>> SEGMENT #07 <<<
|
|
'######### LEVEL #############
|
|
LINE (0, 80)-(320, 80), 2
|
|
LINE (0, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10: d = 4
|
|
IF segm = 1 THEN x = 299: d = 2
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 80 OR y = 91 THEN GOTO mcrash2
|
|
'########## DOOR CODES #######
|
|
IF x = 5 THEN segm = 2: GOTO m2seg6
|
|
IF x = 305 THEN segm = 0: GOTO m2seg8
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg8: CLS ' >>> SEGMENT #08 <<<
|
|
'######## LEVEL #########
|
|
LINE (0, 80)-(150, 80), 2
|
|
LINE (150, 80)-(150, 0), 2
|
|
LINE (0, 100)-(170, 100), 2
|
|
LINE (170, 100)-(170, 0), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN y = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash2
|
|
IF x = 161 OR y = 91 THEN GOTO mcrash2
|
|
'########## DOOR CODES #########
|
|
IF x = 5 THEN segm = 1: GOTO m2seg7
|
|
IF y = 5 THEN segm = 0: GOTO m2seg9
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg9: CLS ' >>> SEGMENT #09 <<<
|
|
'######## LEVEL #########
|
|
LINE (150, 200)-(150, 80), 2
|
|
LINE (150, 80)-(320, 80), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (170, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180
|
|
IF segm = 1 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 150 OR y = 80 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
'########## DOOR CODES #########
|
|
IF x = 305 THEN segm = 0: GOTO m2seg10
|
|
IF y = 185 THEN segm = 1: GOTO m2seg8
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg10: CLS ' >>> SEGMENT #10 <<<
|
|
'######## LEVEL #########
|
|
LINE (0, 80)-(150, 80), 2
|
|
LINE (150, 80)-(150, 0), 2
|
|
LINE (0, 100)-(170, 100), 2
|
|
LINE (170, 100)-(170, 0), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN y = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash2
|
|
IF x = 161 OR y = 91 THEN GOTO mcrash2
|
|
'########## DOOR CODES #########
|
|
IF x = 5 THEN segm = 1: GOTO m2seg9
|
|
IF y = 5 THEN segm = 0: GOTO m2seg11
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg11: CLS ' >>> SEGMENT #11 <<<
|
|
'########## LEVEL #########
|
|
LINE (150, 200)-(150, 100), 2
|
|
LINE (170, 200)-(170, 80), 2
|
|
LINE (150, 100)-(0, 100), 2
|
|
LINE (170, 80)-(0, 80), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180
|
|
IF segm = 1 THEN x = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash2
|
|
IF x = 161 OR y = 80 THEN GOTO mcrash2
|
|
'########## DOOR CODES ##########
|
|
IF y = 185 THEN segm = 1: GOTO m2seg10
|
|
IF x = 5 THEN segm = 0: GOTO m2seg12
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg12: CLS ' >>> SEGMENT #12 <<<
|
|
'######### LEVEL #############
|
|
LINE (0, 80)-(320, 80), 2
|
|
LINE (0, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 300
|
|
IF segm = 1 THEN x = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 80 OR y = 91 THEN GOTO mcrash2
|
|
'########## DOOR CODES #######
|
|
IF x = 5 THEN segm = 0: GOTO m2seg13
|
|
IF x = 305 THEN segm = 1: GOTO m2seg11
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg13: CLS ' >>> SEGMENT #13 <<<
|
|
'######## LEVEL #########
|
|
LINE (150, 200)-(150, 80), 2
|
|
LINE (150, 80)-(320, 80), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (170, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 1 THEN y = 180
|
|
IF segm = 0 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 150 OR y = 80 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
'########## DOOR CODES #########
|
|
IF x = 305 THEN segm = 1: GOTO m2seg12
|
|
IF y = 185 THEN segm = 0: GOTO m2seg14
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
|
|
m2seg14: CLS ' >>> SEGMENT #14 <<<
|
|
'######## LEVEL #########
|
|
LINE (0, 80)-(150, 80), 2
|
|
LINE (150, 80)-(150, 0), 2
|
|
LINE (0, 100)-(170, 100), 2
|
|
LINE (170, 100)-(170, 0), 2
|
|
LINE (151, 70)-(169, 60), 1, BF
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 10
|
|
IF segm = 1 THEN x = 10
|
|
IF i = 0 THEN stat$ = "Passage Blocked:"
|
|
IF segm = 0 THEN stat$ = "There it is!!"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## ITEM CODE ######
|
|
IF i = 0 THEN CIRCLE (160, 40), 3, 6: PAINT (160, 40), 6 ELSE CIRCLE (160, 40), 3, 0: PAINT (160, 40), 0
|
|
IF x > 152 AND x < 159 THEN IF y = 29 OR y = 42 THEN i = 1: stat$ = "Exit Cave:Got Item"
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash2
|
|
IF x = 161 OR y = 91 THEN GOTO mcrash2
|
|
IF y = 51 OR y = 70 THEN GOTO mcrash2
|
|
'########## DOOR CODES #########
|
|
IF x = 5 THEN segm = 3: GOTO m2seg5
|
|
IF y = 5 THEN segm = 1: GOTO m2seg13
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg15: CLS ' >>> SEGMENT #15 <<<
|
|
'######## LEVEL #########
|
|
LINE (150, 200)-(150, 80), 2
|
|
LINE (150, 80)-(320, 80), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (170, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180: d = 1
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 150 OR y = 80 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
IF x = 305 THEN x = 304
|
|
'########## DOOR CODES #########
|
|
IF y = 185 THEN segm = 2: GOTO m2seg3
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg16: CLS ' >>> SEGMENT #16 <<<
|
|
'######## LEVEL #########
|
|
LINE (320, 100)-(150, 100), 2
|
|
LINE (320, 80)-(170, 80), 2
|
|
LINE (150, 100)-(150, 0), 2
|
|
LINE (170, 80)-(170, 0), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash2
|
|
IF x = 150 OR y = 90 THEN GOTO mcrash2
|
|
IF y = 10 THEN y = 11
|
|
'########## DOOR CODES ##########
|
|
IF x = 305 THEN segm = 1: GOTO m2seg6
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m2seg17: CLS ' >>> SEGMENT #17 <<<
|
|
'######## LEVEL #########
|
|
LINE (150, 200)-(150, 80), 2
|
|
LINE (150, 80)-(320, 80), 2
|
|
LINE (170, 200)-(170, 100), 2
|
|
LINE (170, 100)-(320, 100), 2
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180: d = 1
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 150 OR y = 80 THEN GOTO mcrash2
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash2
|
|
IF x = 305 THEN x = 304
|
|
'########## DOOR CODES #########
|
|
IF y = 185 THEN segm = 1: GOTO m2seg5
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
mfinish2: CLS
|
|
COLOR 10
|
|
PRINT " You completed the mission!"
|
|
PRINT
|
|
PRINT " Now for the next one!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: INDEEP"
|
|
PRINT " Next level's code is: SUBRUINS"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu6
|
|
|
|
dbtt: CLS
|
|
COLOR 14
|
|
PRINT " Your battery ran out!"
|
|
PRINT
|
|
PRINT " Esc. = Exit| Try again?"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: INDEEP"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to Retry..."
|
|
PCOPY 1, 0
|
|
btt = 0
|
|
DO
|
|
press$ = INKEY$
|
|
IF press$ = CHR$(27) THEN END
|
|
LOOP UNTIL press$ = " "
|
|
segm = 0
|
|
GOTO m2seg1
|
|
|
|
END
|
|
|
|
mcrash2: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed My Robot!"
|
|
PRINT
|
|
PRINT " Sorry, You are fired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: INDEEP"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END SUB
|
|
|
|
SUB Mission03
|
|
SCREEN 7, 0, 1, 0
|
|
DIM crh1(100), crh2(100), crv1(100), crv2(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
COLOR 15
|
|
PRINT " Mission Status:"
|
|
PRINT
|
|
PRINT " Mission 3: In this mission, you"
|
|
PRINT " will be exploring a collapsed ruin. "
|
|
PRINT " My scans show me that my flat robot,"
|
|
PRINT " 'Creeper' designed for getting under"
|
|
PRINT " things, should be able to retreive "
|
|
PRINT " the gem located there. It also has a"
|
|
PRINT " 30 minute battery life, this is "
|
|
PRINT " plenty of time to clear this level. "
|
|
PRINT " Take your time, and be careful. I "
|
|
PRINT " made a flat towing bot for any dead "
|
|
PRINT " batteries. Just don't crash!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT " NOTE: If the robot stops, its a "
|
|
PRINT " dead end, try a new direction"
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
|
|
'######### ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 9, BF
|
|
PSET (4, 1), 7: PSET (7, 1), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), crh1
|
|
CLS
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 9, BF
|
|
PSET (4, 10), 7: PSET (7, 10), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), crh2
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 9, BF
|
|
PSET (1, 4), 7: PSET (1, 7), 7
|
|
GET (1, 1)-(10, 10), crv1
|
|
PCOPY 1, 0
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 9, BF
|
|
PSET (10, 4), 7: PSET (10, 7), 7
|
|
GET (1, 1)-(10, 10), crv2
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
|
|
m3seg1: CLS ' >>> SEGMENT #01 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 200)-(150, 0), 6
|
|
LINE (170, 200)-(170, 0), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 155: y = 180: d = 1
|
|
IF segm = 1 THEN y = 10
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 161 THEN GOTO mcrash3
|
|
IF x = 150 THEN GOTO mcrash3
|
|
'########## DOOR CODES ##########
|
|
IF i = 0 AND y = 185 THEN y = 184: stat$ = "Not Finished "' ELSE GOTO mfinish3
|
|
IF i = 0 AND y < 184 THEN stat$ = "Collect Item:"
|
|
IF y = 5 THEN segm = 0: GOTO m3seg2
|
|
IF i = 1 AND y = 185 THEN GOTO mfinish3
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg2: CLS ' >>> SEGMENT #02 <<<
|
|
'######## LEVEL #########
|
|
LINE (150, 0)-(150, 80), 6
|
|
LINE (170, 0)-(170, 80), 6
|
|
LINE (0, 80)-(150, 80), 6
|
|
LINE (320, 80)-(170, 80), 6
|
|
LINE (150, 200)-(150, 100), 6
|
|
LINE (170, 200)-(170, 100), 6
|
|
LINE (0, 100)-(150, 100), 6
|
|
LINE (320, 100)-(170, 100), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180
|
|
IF segm = 1 THEN x = 10
|
|
IF segm = 2 THEN x = 300
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash3
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash3
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash3
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash3
|
|
IF y = 5 THEN y = 6
|
|
'########## DOOR CODES ##########
|
|
IF x = 5 THEN segm = 0: GOTO m3seg13
|
|
IF x = 305 THEN segm = 0: GOTO m3seg3
|
|
IF y = 185 THEN segm = 1: GOTO m3seg1
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg3: CLS ' >>> SEGMENT #03 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 0)-(150, 80), 6
|
|
LINE (170, 0)-(170, 80), 6
|
|
LINE (0, 80)-(150, 80), 6
|
|
LINE (320, 80)-(170, 80), 6
|
|
LINE (0, 100)-(320, 100), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN y = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash3
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash3
|
|
IF y = 91 THEN GOTO mcrash3
|
|
IF x = 300 THEN x = 299
|
|
'########## DOOR CODES ########
|
|
IF x = 5 THEN segm = 2: GOTO m3seg2
|
|
IF y = 5 THEN segm = 0: GOTO m3seg4
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg4: CLS ' >>> SEGMENT #04 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 200)-(150, 100), 6
|
|
LINE (170, 200)-(170, 100), 6
|
|
LINE (0, 100)-(150, 100), 6
|
|
LINE (320, 100)-(170, 100), 6
|
|
LINE (0, 80)-(320, 80), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180
|
|
IF segm = 1 THEN x = 300
|
|
IF segm = 2 THEN x = 10
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash3
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash3
|
|
IF y = 80 THEN GOTO mcrash3
|
|
'########## DOOR CODES ###########
|
|
IF y = 185 THEN segm = 1: GOTO m3seg3
|
|
IF x = 5 THEN segm = 1: GOTO m3seg15
|
|
IF x = 305 THEN segm = 0: GOTO m3seg5
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg5: CLS ' >>> SEGMENT #05 <<<
|
|
'########## LEVEL ########
|
|
LINE (0, 80)-(150, 80), 6
|
|
LINE (0, 100)-(150, 100), 6
|
|
LINE (150, 0)-(150, 80), 6
|
|
LINE (150, 100)-(150, 200), 6
|
|
LINE (170, 0)-(170, 200), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN y = 10
|
|
IF segm = 2 THEN y = 180
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash3
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash3
|
|
IF x = 161 THEN GOTO mcrash3
|
|
'########## DOOR CODES ##########
|
|
IF x = 5 THEN segm = 1: GOTO m3seg4
|
|
IF y = 5 THEN segm = 0: GOTO m3seg6
|
|
IF y = 185 THEN segm = 0: GOTO m3seg16
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg6: CLS ' >>> SEGMENT #06 <<<
|
|
'########## LEVEL #########
|
|
LINE (150, 200)-(150, 100), 6
|
|
LINE (170, 200)-(170, 80), 6
|
|
LINE (150, 100)-(0, 100), 6
|
|
LINE (170, 80)-(0, 80), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180
|
|
IF segm = 1 THEN x = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash3
|
|
IF x = 161 OR y = 80 THEN GOTO mcrash3
|
|
'########## DOOR CODES ##########
|
|
IF y = 185 THEN segm = 1: GOTO m3seg5
|
|
IF x = 5 THEN segm = 1: GOTO m3seg7
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg7: CLS ' >>> SEGMENT #07 <<<
|
|
'######### LEVEL #############
|
|
LINE (0, 80)-(320, 80), 6
|
|
LINE (0, 100)-(320, 100), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 80 OR y = 91 THEN GOTO mcrash3
|
|
'########## DOOR CODES #######
|
|
IF x = 5 THEN segm = 1: GOTO m3seg8
|
|
IF x = 305 THEN segm = 1: GOTO m3seg6
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg8: CLS ' >>> SEGMENT #08 <<<
|
|
'######### LEVEL #############
|
|
LINE (0, 80)-(320, 80), 6
|
|
LINE (0, 100)-(320, 100), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 80 OR y = 91 THEN GOTO mcrash3
|
|
'########## DOOR CODES #######
|
|
IF x = 5 THEN segm = 1: GOTO m3seg9
|
|
IF x = 305 THEN segm = 0: GOTO m3seg7
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg9: CLS ' >>> SEGMENT #09 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 200)-(150, 100), 6
|
|
LINE (170, 200)-(170, 100), 6
|
|
LINE (0, 100)-(150, 100), 6
|
|
LINE (320, 100)-(170, 100), 6
|
|
LINE (0, 80)-(320, 80), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180
|
|
IF segm = 1 THEN x = 300
|
|
IF segm = 2 THEN x = 10
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y > 90 THEN GOTO mcrash3
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash3
|
|
IF y = 80 THEN GOTO mcrash3
|
|
'########## DOOR CODES ###########
|
|
IF y = 185 THEN segm = 0: GOTO m3seg14
|
|
IF x = 5 THEN segm = 0: GOTO m3seg10
|
|
IF x = 305 THEN segm = 0: GOTO m3seg8
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg10: CLS ' >>> SEGMENT #10 <<<
|
|
'######## LEVEL #########
|
|
LINE (150, 200)-(150, 80), 6
|
|
LINE (150, 80)-(320, 80), 6
|
|
LINE (170, 200)-(170, 100), 6
|
|
LINE (170, 100)-(320, 100), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 300
|
|
IF segm = 1 THEN y = 180
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 150 OR y = 80 THEN GOTO mcrash3
|
|
IF x > 160 AND y > 90 THEN GOTO mcrash3
|
|
'########## DOOR CODES #########
|
|
IF y = 185 THEN segm = 1: GOTO m3seg11
|
|
IF x = 305 THEN segm = 2: GOTO m3seg9
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg11: CLS ' >>> SEGMENT #11 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 200)-(150, 0), 6
|
|
LINE (170, 200)-(170, 0), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 180
|
|
IF segm = 1 THEN y = 10
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 161 THEN GOTO mcrash3
|
|
IF x = 150 THEN GOTO mcrash3
|
|
'########## DOOR CODES ##########
|
|
IF y = 5 THEN segm = 1: GOTO m3seg10
|
|
IF y = 185 THEN segm = 1: GOTO m3seg12
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg12: CLS ' >>> SEGMENT #12 <<<
|
|
'######## LEVEL #########
|
|
LINE (320, 100)-(150, 100), 6
|
|
LINE (320, 80)-(170, 80), 6
|
|
LINE (150, 100)-(150, 0), 6
|
|
LINE (170, 80)-(170, 0), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 300
|
|
IF segm = 1 THEN y = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash3
|
|
IF x = 150 OR y = 91 THEN GOTO mcrash3
|
|
'########## DOOR CODES ##########
|
|
IF x = 305 THEN segm = 1: GOTO m3seg13
|
|
IF y = 5 THEN segm = 0: GOTO m3seg11
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
|
|
m3seg13: CLS ' >>> SEGMENT #13 <<<
|
|
'######### LEVEL #############
|
|
LINE (0, 80)-(320, 80), 6
|
|
LINE (0, 100)-(320, 100), 6
|
|
LINE (140, 50)-(180, 150), 6, BF
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 300
|
|
IF segm = 1 THEN x = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF segm = 0 THEN stat$ = "Passage Blocked:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## ITEM CODE ###########
|
|
IF i = 0 THEN CIRCLE (90, 90), 2, 10: PAINT (90, 90), 10 ELSE CIRCLE (90, 90), 2, 0: PAINT (90, 90), 0
|
|
IF i = 0 THEN IF x = 79 OR x = 92 THEN IF y > 84 AND y < 87 THEN i = 1: stat$ = "Exit Ruin:Got Item"
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 80 OR y = 91 THEN GOTO mcrash3
|
|
IF x = 180 OR x = 131 THEN GOTO mcrash3
|
|
'########## DOOR CODES #######
|
|
IF x = 305 THEN segm = 1: GOTO m3seg2
|
|
IF x = 5 THEN segm = 0: GOTO m3seg12
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg14: CLS ' >>> SEGMENT #14 <<<
|
|
'######### LEVEL ########
|
|
LINE (150, 0)-(150, 80), 6
|
|
LINE (170, 0)-(170, 80), 6
|
|
LINE (0, 80)-(150, 80), 6
|
|
LINE (320, 80)-(170, 80), 6
|
|
LINE (0, 100)-(320, 100), 6
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 10
|
|
IF segm = 1 THEN x = 300
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash3
|
|
IF x > 160 AND y < 81 THEN GOTO mcrash3
|
|
IF y = 91 THEN GOTO mcrash3
|
|
IF x = 10 THEN x = 11
|
|
'########## DOOR CODES ########
|
|
IF x = 305 THEN segm = 0: GOTO m3seg15
|
|
IF y = 5 THEN segm = 0: GOTO m3seg9
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg15: CLS ' >>> SEGMENT #15 <<<
|
|
'######### LEVEL #############
|
|
LINE (0, 80)-(320, 80), 6
|
|
LINE (0, 100)-(320, 100), 6
|
|
LINE (140, 50)-(180, 150), 6, BF
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10: d = 4
|
|
IF segm = 1 THEN x = 299: d = 2
|
|
IF i = 0 THEN stat$ = "Passage Blocked:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 80 OR y = 91 THEN GOTO mcrash3
|
|
IF x = 180 OR x = 131 THEN GOTO mcrash3
|
|
'########## DOOR CODES #######
|
|
IF x = 5 THEN segm = 1: GOTO m3seg14
|
|
IF x = 305 THEN segm = 2: GOTO m3seg4
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m3seg16: CLS ' >>> SEGMENT #16 <<<
|
|
'######## LEVEL #########
|
|
LINE (0, 80)-(150, 80), 6
|
|
LINE (150, 80)-(150, 0), 6
|
|
LINE (0, 100)-(170, 100), 6
|
|
LINE (170, 100)-(170, 0), 6
|
|
LINE (0, 50)-(35, 150), 6, BF
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 10
|
|
IF i = 0 THEN stat$ = "Passage Blocked:"
|
|
IF i = 1 THEN stat$ = "Exit Ruin: Got Gem"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), crh1, PSET
|
|
IF d = 2 THEN PUT (x, y), crv1, PSET
|
|
IF d = 3 THEN PUT (x, y), crh2, PSET
|
|
IF d = 4 THEN PUT (x, y), crv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt3
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x < 151 AND y < 81 THEN GOTO mcrash3
|
|
IF x = 161 OR y = 91 THEN GOTO mcrash3
|
|
IF x = 35 THEN GOTO mcrash3
|
|
'########## DOOR CODES #########
|
|
IF y = 5 THEN segm = 2: GOTO m3seg5
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
mfinish3: CLS
|
|
COLOR 10
|
|
PRINT " You completed the mission!"
|
|
PRINT
|
|
PRINT " Now for the next one!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: SUBRUINS"
|
|
PRINT " Next level's code is: TOWER"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu7
|
|
|
|
dbtt3: CLS
|
|
COLOR 14
|
|
PRINT " Your battery ran out!"
|
|
PRINT
|
|
PRINT " Esc. = Exit| Try again?"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: SUBRUINS"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to Retry..."
|
|
PCOPY 1, 0
|
|
btt = 0
|
|
DO
|
|
press$ = INKEY$
|
|
IF press$ = CHR$(27) THEN END
|
|
LOOP UNTIL press$ = " "
|
|
segm = 0
|
|
GOTO m3seg1
|
|
|
|
mcrash3: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed My Robot!"
|
|
PRINT
|
|
PRINT " Sorry, You are fired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: SUBRUINS"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END SUB
|
|
|
|
SUB Mission04
|
|
SCREEN 7, 0, 1, 0
|
|
DIM drh1(100), drh2(100), drv1(100), drv2(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
COLOR 15
|
|
PRINT " Mission Status:"
|
|
PRINT
|
|
PRINT " Mission 4: I was successful in"
|
|
PRINT " retreaving the third gem. But I was "
|
|
PRINT " ambushed, and the gem stolen. It did"
|
|
PRINT " not go far. It was taken by the "
|
|
PRINT " Peditron Science Lab. Never fear, "
|
|
PRINT " you're getting it back with the help"
|
|
PRINT " of 'Drop Bot'. He can take on the "
|
|
PRINT " air-ducks to the lab where the gem "
|
|
PRINT " is being held. Get in and out fast, "
|
|
PRINT " I don't want my tecnology in their "
|
|
PRINT " hands. Good luck!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT " NOTE: You have Three Minutes to get"
|
|
PRINT " in and out undetected!"
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
'######### ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 12, BF
|
|
LINE (5, 5)-(6, 6), 7, BF
|
|
PSET (4, 1), 7: PSET (7, 1), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), drh1
|
|
CLS
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 12, BF
|
|
LINE (5, 5)-(6, 4), 7, BF
|
|
PSET (4, 10), 7: PSET (7, 10), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), drh2
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 12, BF
|
|
LINE (5, 5)-(6, 6), 7, BF
|
|
PSET (1, 4), 7: PSET (1, 7), 7
|
|
GET (1, 1)-(10, 10), drv1
|
|
PCOPY 1, 0
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 12, BF
|
|
LINE (5, 5)-(4, 6), 7, BF
|
|
PSET (10, 4), 7: PSET (10, 7), 7
|
|
GET (1, 1)-(10, 10), drv2
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
m4seg1: CLS ' >>> SEGMENT #01 <<<
|
|
'######## LEVEL ########
|
|
LINE (2, 20)-(310, 190), 7, B
|
|
LINE (20, 30)-(40, 50), 7, B
|
|
LINE (20, 30)-(25, 35), 7: LINE (40, 30)-(35, 35), 7
|
|
LINE (25, 35)-(35, 35), 7
|
|
LINE (25, 35)-(25, 50), 7: LINE (35, 35)-(35, 50), 7
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 290: y = 180: d = 1
|
|
IF segm = 1 THEN x = 26: y = 60: d = 3
|
|
btt$ = "Time: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Press SPACEBAR to pick up bot:"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), drh1, PSET
|
|
IF d = 2 THEN PUT (x, y), drv1, PSET
|
|
IF d = 3 THEN PUT (x, y), drh2, PSET
|
|
IF d = 4 THEN PUT (x, y), drv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
IF i = 1 THEN IF press$ = " " THEN GOTO mfinish4
|
|
'########### THREE MIN CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 180 THEN GOTO dbtt4
|
|
IF y < 184 AND (btt / 100) THEN btt$ = "Time: [||||||||||]"
|
|
IF (btt / 100) > 18 THEN btt$ = "Time: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 36 THEN btt$ = "Time: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 54 THEN btt$ = "Time: [||||||| ]": C = 10
|
|
IF (btt / 100) > 72 THEN btt$ = "Time: [|||||| ]": C = 14
|
|
IF (btt / 100) > 90 THEN btt$ = "Time: [||||| ]": C = 14
|
|
IF (btt / 100) > 108 THEN btt$ = "Time: [|||| ]": C = 14
|
|
IF (btt / 100) > 125 THEN btt$ = "Time: [||| ]": C = 12
|
|
IF (btt / 100) > 144 THEN btt$ = "Time: [|| ]": C = 12
|
|
IF (btt / 100) > 162 THEN btt$ = "Time: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 181 OR y = 20 THEN GOTO mcrash4
|
|
IF x = 301 OR x = 2 THEN GOTO mcrash4
|
|
'########## DOOR CODES ##########
|
|
IF x > 10 AND x < 41 THEN IF y = 21 OR y = 50 THEN segm = 0: GOTO m4seg2
|
|
IF x = 40 OR x = 11 THEN IF y > 21 AND y < 51 THEN segm = 0: GOTO m4seg2
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m4seg2: CLS ' >>> SEGMENT #02 <<<
|
|
'######## LEVEL ########
|
|
LINE (2, 20)-(2, 190), 7
|
|
LINE (22, 20)-(22, 50), 7
|
|
LINE (2, 20)-(22, 20), 7
|
|
LINE (22, 70)-(22, 170), 7
|
|
LINE (22, 70)-(280, 70), 7
|
|
LINE (280, 70)-(280, 170), 7
|
|
LINE (2, 190)-(300, 190), 7
|
|
LINE (300, 190)-(300, 50), 7
|
|
LINE (300, 50)-(22, 50), 7
|
|
LINE (22, 170)-(150, 170), 7
|
|
LINE (280, 170)-(170, 170), 7
|
|
LINE (150, 170)-(150, 100), 7
|
|
LINE (170, 170)-(170, 100), 7
|
|
LINE (150, 100)-(170, 100), 7
|
|
'**DOOR**
|
|
LINE (150, 100)-(155, 105), 7
|
|
LINE (170, 100)-(165, 105), 7
|
|
LINE (150, 120)-(170, 120), 7
|
|
LINE (150, 120)-(155, 115), 7
|
|
LINE (170, 120)-(165, 115), 7
|
|
LINE (155, 105)-(165, 115), 7, B
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 8: y = 35: d = 3
|
|
IF segm = 1 THEN x = 155: y = 125: d = 3
|
|
btt$ = "Time: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Get Out Quick:"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), drh1, PSET
|
|
IF d = 2 THEN PUT (x, y), drv1, PSET
|
|
IF d = 3 THEN PUT (x, y), drh2, PSET
|
|
IF d = 4 THEN PUT (x, y), drv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### THREE MIN CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 180 THEN GOTO dbtt4
|
|
IF (btt / 100) > 18 THEN btt$ = "Time: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 36 THEN btt$ = "Time: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 54 THEN btt$ = "Time: [||||||| ]": C = 10
|
|
IF (btt / 100) > 72 THEN btt$ = "Time: [|||||| ]": C = 14
|
|
IF (btt / 100) > 90 THEN btt$ = "Time: [||||| ]": C = 14
|
|
IF (btt / 100) > 108 THEN btt$ = "Time: [|||| ]": C = 14
|
|
IF (btt / 100) > 125 THEN btt$ = "Time: [||| ]": C = 12
|
|
IF (btt / 100) > 144 THEN btt$ = "Time: [|| ]": C = 12
|
|
IF (btt / 100) > 162 THEN btt$ = "Time: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 181 OR y = 20 THEN GOTO mcrash4
|
|
IF x = 301 OR x = 2 THEN GOTO mcrash4
|
|
IF x = 13 THEN IF y > 20 AND y < 51 THEN GOTO mcrash4
|
|
IF y = 50 THEN IF x > 12 AND x < 300 THEN GOTO mcrash4
|
|
IF y = 61 THEN IF x > 12 AND x < 280 THEN GOTO mcrash4
|
|
IF x = 13 THEN IF y > 60 AND y < 171 THEN GOTO mcrash4
|
|
IF x = 280 THEN IF y > 60 AND y < 171 THEN GOTO mcrash4
|
|
IF y = 170 THEN IF x > 160 AND x < 281 THEN GOTO mcrash4
|
|
IF y = 170 THEN IF x > 12 AND x < 151 THEN GOTO mcrash4
|
|
IF x = 150 THEN IF y > 100 AND y < 171 THEN GOTO mcrash4
|
|
IF x = 161 THEN IF y > 100 AND y < 171 THEN GOTO mcrash4
|
|
'########## DOOR CODES ##########
|
|
IF y = 25 THEN segm = 1: GOTO m4seg1
|
|
IF y = 120 THEN IF x > 150 AND x < 161 THEN segm = 0: GOTO m4seg3
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m4seg3: CLS ' >>> SEGMENT #03 <<<
|
|
'######## LEVEL ########
|
|
LINE (130, 100)-(190, 190), 6, B
|
|
LINE (3, 100)-(53, 190), 6, B
|
|
LINE (299, 100)-(249, 190), 6, B
|
|
LINE (2, 20)-(300, 190), 7, B
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 155: y = 120: d = 3
|
|
btt$ = "Time: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Get Out Quick:"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## ITEM CODE ########
|
|
IF i = 0 THEN CIRCLE (160, 180), 2, 14: PAINT (160, 180), 14 ELSE CIRCLE (160, 180), 2, 0: PAINT (160, 180), 0
|
|
IF i = 0 THEN IF x > 154 AND x < 157 AND y = 169 THEN i = 1: stat$ = "Get Out Quick:"
|
|
IF i = 0 THEN IF y > 174 AND y < 177 THEN IF x = 162 OR x = 149 THEN i = 1: stat$ = "Get Out Quick:"
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), drh1, PSET
|
|
IF d = 2 THEN PUT (x, y), drv1, PSET
|
|
IF d = 3 THEN PUT (x, y), drh2, PSET
|
|
IF d = 4 THEN PUT (x, y), drv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### THREE MIN CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 180 THEN GOTO dbtt4
|
|
IF (btt / 100) > 18 THEN btt$ = "Time: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 36 THEN btt$ = "Time: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 54 THEN btt$ = "Time: [||||||| ]": C = 10
|
|
IF (btt / 100) > 72 THEN btt$ = "Time: [|||||| ]": C = 14
|
|
IF (btt / 100) > 90 THEN btt$ = "Time: [||||| ]": C = 14
|
|
IF (btt / 100) > 108 THEN btt$ = "Time: [|||| ]": C = 14
|
|
IF (btt / 100) > 125 THEN btt$ = "Time: [||| ]": C = 12
|
|
IF (btt / 100) > 144 THEN btt$ = "Time: [|| ]": C = 12
|
|
IF (btt / 100) > 162 THEN btt$ = "Time: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF y = 181 OR y = 20 THEN GOTO mcrash4
|
|
IF x = 130 OR x = 181 THEN GOTO mcrash4
|
|
'########## DOOR CODES ##########
|
|
IF y = 105 THEN segm = 1: GOTO m4seg2
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
mfinish4: CLS
|
|
COLOR 10
|
|
PRINT " You completed the mission!"
|
|
PRINT
|
|
PRINT " Now for the next one!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TOWER"
|
|
PRINT " Next level's code is: WALLDRILL"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu8
|
|
|
|
|
|
dbtt4: CLS
|
|
COLOR 12
|
|
PRINT " You Lost My Robot!"
|
|
PRINT
|
|
PRINT " Sorry, You are fired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TOWER"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END
|
|
|
|
mcrash4: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed My Robot!"
|
|
PRINT
|
|
PRINT " Sorry, You are fired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TOWER"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END SUB
|
|
|
|
SUB Mission05
|
|
SCREEN 7, 0, 1, 0
|
|
DIM dbh1(100), dbh2(100), dbv1(100), dbv2(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
COLOR 15
|
|
PRINT " Mission Status:"
|
|
PRINT
|
|
PRINT " Mission 5: You're next mission "
|
|
PRINT " takes you back to a pyramid, but "
|
|
PRINT " this time a 1-inch thick wall is "
|
|
PRINT " keeping you from our goal. Have no "
|
|
PRINT " fear, I have designed a drilling bot"
|
|
PRINT " just right for the job. 'Drill-Bot' "
|
|
PRINT " is its model name. You activate the "
|
|
PRINT " drill by pressing the PageUp. But"
|
|
PRINT " be careful, the drill burns the "
|
|
PRINT " battery faster. So turn it on only "
|
|
PRINT " when you're going to drill the wall."
|
|
PRINT
|
|
COLOR 9
|
|
PRINT " PS: Pressing PageDown turns off the "
|
|
PRINT " Drill"
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
'######### ROBOT ##########
|
|
LINE (1, 4)-(2, 10), 8, BF
|
|
LINE (10, 4)-(9, 10), 8, BF
|
|
LINE (3, 4)-(8, 9), 9, BF
|
|
LINE (2, 3)-(9, 3), 7: LINE (2, 3)-(5, 1), 7: LINE (9, 3)-(7, 1), 7
|
|
PSET (6, 1), 7
|
|
PAINT (5, 2), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), dbh1
|
|
CLS
|
|
LINE (1, 1)-(2, 7), 8, BF
|
|
LINE (10, 1)-(9, 7), 8, BF
|
|
LINE (3, 2)-(8, 7), 9, BF
|
|
LINE (2, 8)-(9, 8), 7: LINE (2, 8)-(5, 10), 7: LINE (9, 8)-(7, 10), 7
|
|
PSET (6, 10), 7: PAINT (5, 9), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), dbh2
|
|
CLS
|
|
LINE (4, 1)-(10, 2), 8, BF
|
|
LINE (4, 10)-(10, 9), 8, BF
|
|
LINE (4, 3)-(9, 8), 9, BF
|
|
LINE (3, 2)-(3, 9), 7: LINE (3, 2)-(1, 5), 7: LINE (3, 9)-(1, 6), 7
|
|
PAINT (2, 5), 7
|
|
GET (1, 1)-(10, 10), dbv1
|
|
PCOPY 1, 0
|
|
CLS
|
|
LINE (1, 1)-(7, 2), 8, BF
|
|
LINE (1, 10)-(7, 9), 8, BF
|
|
LINE (2, 3)-(7, 8), 9, BF
|
|
LINE (8, 2)-(8, 9), 7: LINE (8, 2)-(10, 5), 7: LINE (8, 9)-(10, 7), 7
|
|
PSET (10, 6), 7: PAINT (9, 5), 7
|
|
GET (1, 1)-(10, 10), dbv2
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
m5seg1: CLS
|
|
'######## LEVEL ######
|
|
LINE (150, 10)-(150, 200), 12
|
|
LINE (170, 10)-(170, 200), 12
|
|
LINE (150, 10)-(170, 10), 12
|
|
LINE (150, 100)-(170, 100), 12
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
x = 155: y = 180: d = 1
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Pyramid:"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## ITEM CODE ###########
|
|
IF i = 0 THEN CIRCLE (160, 16), 2, 13: PAINT (160, 16), 13 ELSE CIRCLE (160, 16), 2, 0: PAINT (160, 16), 0
|
|
IF x > 153 AND x < 159 AND y = 18 THEN i = 1: stat$ = "Exit Pyramid:"
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), dbh1, PSET
|
|
IF d = 2 THEN PUT (x, y), dbv1, PSET
|
|
IF d = 3 THEN PUT (x, y), dbh2, PSET
|
|
IF d = 4 THEN PUT (x, y), dbv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + "I" THEN dr = 1
|
|
IF press$ = CHR$(0) + "Q" THEN dr = 0
|
|
'########### DRILL CODE ##############
|
|
IF dr = 1 THEN btt = btt + 100
|
|
IF y = 101 AND dr = 1 THEN w = 1
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt5
|
|
IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 161 THEN GOTO mcrash5
|
|
IF x = 150 THEN GOTO mcrash5
|
|
IF y = 10 THEN GOTO mcrash5
|
|
IF w = 0 AND y = 100 THEN GOTO mcrash5
|
|
'########## DOOR CODES ##########
|
|
IF i = 0 AND y = 185 THEN y = 184: stat$ = "Not Finished "' ELSE GOTO mfinish3
|
|
IF i = 0 AND y < 184 THEN stat$ = "Collect Item:"
|
|
IF i = 0 AND dr = 1 THEN stat$ = " Drill On!!!"
|
|
IF i = 1 AND y = 185 THEN GOTO mfinish5
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
mfinish5: CLS
|
|
COLOR 10
|
|
PRINT " You completed the mission!"
|
|
PRINT
|
|
PRINT " Now for the last one!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: WALLDRILL"
|
|
PRINT " Next level's code is: AMAZEME"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu9
|
|
|
|
END
|
|
|
|
dbtt5: CLS
|
|
COLOR 14
|
|
PRINT " Your battery ran out!"
|
|
PRINT
|
|
PRINT " Esc. = Exit| Try again?"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: WALLDRILL"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to Retry..."
|
|
PCOPY 1, 0
|
|
btt = 0
|
|
DO
|
|
press$ = INKEY$
|
|
IF press$ = CHR$(27) THEN END
|
|
LOOP UNTIL press$ = " "
|
|
segm = 0: dr = 0
|
|
GOTO m5seg1
|
|
END
|
|
|
|
mcrash5: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed My Robot!"
|
|
PRINT
|
|
PRINT " Sorry, You are fired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: WALLDRILL"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
|
|
END
|
|
END SUB
|
|
|
|
SUB Mission06
|
|
CLS
|
|
SCREEN 7, 0, 1, 0
|
|
PLAY "MB L64 <<<"
|
|
DIM sch1(100), sch2(100), scv1(100), scv2(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
COLOR 15
|
|
PRINT " Mission Status:"
|
|
PRINT
|
|
PRINT " Mission 6: I have the location"
|
|
PRINT " of the last gem. It has shown up in"
|
|
PRINT " a cave which seems to be a maze of "
|
|
PRINT " rooms. You're piloting Scorpian again"
|
|
PRINT " to collect the gem. Keep in mind the"
|
|
PRINT " the 30 minute battery life. Also keep"
|
|
PRINT " mind that this maze of rooms are quite"
|
|
PRINT " complex. So keep up with where you are"
|
|
PRINT " going. Good luck!"
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
|
|
CLS
|
|
'############# ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 14, BF
|
|
LINE (5, 1)-(6, 7), 12, BF
|
|
LINE (5, 5)-(6, 8), 4, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), sch1
|
|
CLS
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 14, BF
|
|
LINE (5, 3)-(6, 10), 12, BF
|
|
LINE (5, 7)-(6, 10), 4, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), sch2
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 14, BF
|
|
LINE (1, 5)-(7, 6), 12, BF
|
|
LINE (5, 5)-(8, 6), 4, BF
|
|
GET (1, 1)-(10, 10), scv1
|
|
PCOPY 1, 0
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 14, BF
|
|
LINE (3, 5)-(10, 6), 12, BF
|
|
LINE (7, 5)-(10, 6), 4, BF
|
|
GET (1, 1)-(10, 10), scv2
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
PCOPY 1, 0
|
|
|
|
m6seg1: CLS ' >>> SEGMENT #01 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0: LINE (310, 30)-(310, 60), 0
|
|
LINE (140, 190)-(170, 190), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 150: y = 175: d = 1
|
|
IF segm = 1 THEN x = 290
|
|
IF segm = 2 THEN x = 10
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF i = 1 AND x > 139 AND x < 170 THEN IF y = 180 THEN GOTO mfinish6
|
|
IF i = 0 AND x > 139 AND x < 170 THEN IF y = 180 THEN y = 179: stat$ = "Not Finished!"
|
|
IF i = 0 AND y < 178 THEN stat$ = "Collect Item:"
|
|
IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg2
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 0: GOTO m6seg13
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg2: CLS ' >>> SEGMENT #02 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0
|
|
LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN y = 22
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 0: GOTO m6seg3
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg1
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg3: CLS ' >>> SEGMENT #03 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0
|
|
LINE (140, 190)-(170, 190), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 170
|
|
IF segm = 1 THEN x = 7
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 1: GOTO m6seg2
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 0: GOTO m6seg4
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg4: CLS ' >>> SEGMENT #04 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (310, 30)-(310, 60), 0
|
|
LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 290
|
|
IF segm = 1 THEN y = 22
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 0: GOTO m6seg5
|
|
IF y > 29 AND y < 51 THEN IF x = 299 THEN segm = 1: GOTO m6seg3
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg5: CLS ' >>> SEGMENT #05 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (310, 30)-(310, 60), 0
|
|
LINE (140, 190)-(170, 190), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 175
|
|
IF segm = 1 THEN x = 290
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 1: GOTO m6seg4
|
|
IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg6
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg6: CLS ' >>> SEGMENT #06 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0
|
|
LINE (310, 30)-(310, 60), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 10
|
|
IF segm = 1 THEN x = 290
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg7
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg5
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg7: CLS ' >>> SEGMENT #07 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0
|
|
LINE (140, 190)-(170, 190), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 7
|
|
IF segm = 1 THEN y = 175
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg8
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg6
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg8: CLS ' >>> SEGMENT #08 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (310, 30)-(310, 60), 0
|
|
LINE (140, 190)-(170, 190), 0: LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 22
|
|
IF segm = 1 THEN x = 290
|
|
IF segm = 2 THEN y = 175
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg7
|
|
IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg9
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg15
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg9: CLS ' >>> SEGMENT #09 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0
|
|
LINE (140, 190)-(170, 190), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 7
|
|
IF segm = 1 THEN y = 175
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg8
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg10
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg10: CLS ' >>> SEGMENT #10 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (310, 30)-(310, 60), 0
|
|
LINE (140, 190)-(170, 190), 0: LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 22
|
|
IF segm = 1 THEN x = 290
|
|
IF segm = 2 THEN y = 175
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg9
|
|
IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg11
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg18
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg11: CLS ' >>> SEGMENT #11 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0
|
|
LINE (140, 190)-(170, 190), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 7
|
|
IF segm = 1 THEN y = 175
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg10
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg12
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg12: CLS ' >>> SEGMENT #12 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 22
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## ITEM CODE ###########
|
|
IF i = 0 THEN CIRCLE (160, 187), 2, 15: PAINT (160, 187), 15 ELSE CIRCLE (160, 187), 2, 0: PAINT (160, 187), 0
|
|
IF x > 154 AND x < 157 AND y = 176 THEN i = 1: stat$ = "Exit Cave:Got Item"
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg11
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
|
|
m6seg13: CLS ' >>> SEGMENT #13 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (310, 30)-(310, 60), 0
|
|
LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 290
|
|
IF segm = 1 THEN y = 23
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 2: GOTO m6seg1
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 0: GOTO m6seg14
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg14: CLS ' >>> SEGMENT #14 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (140, 190)-(170, 190), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 170
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 1: GOTO m6seg13
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
|
|
m6seg15: CLS ' >>> SEGMENT #15 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (140, 190)-(170, 190), 0: LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 22
|
|
IF segm = 1 THEN y = 175
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 2: GOTO m6seg8
|
|
IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg16
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg16: CLS ' >>> SEGMENT #16 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (5, 30)-(5, 60), 0
|
|
LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 22
|
|
IF segm = 1 THEN x = 7
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg15
|
|
IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 0: GOTO m6seg17
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg17: CLS ' >>> SEGMENT #17 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (310, 30)-(310, 60), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN x = 290
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 1: GOTO m6seg16
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
m6seg18: CLS ' >>> SEGMENT #18 <<<
|
|
'######### LEVEL ###########
|
|
LINE (5, 20)-(5, 190), 14
|
|
LINE (5, 190)-(310, 190), 14
|
|
LINE (310, 190)-(310, 20), 14
|
|
LINE (5, 20)-(310, 20), 14
|
|
LINE (140, 20)-(170, 20), 0
|
|
PCOPY 1, 0
|
|
'######### PROGRAM ######
|
|
IF segm = 0 THEN y = 22
|
|
btt$ = "Batt: [||||||||||]": C = 10
|
|
IF i = 0 THEN stat$ = "Collect Item:"
|
|
IF i = 1 THEN stat$ = "Exit Cave:Got Item"
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: COLOR C: PRINT btt$
|
|
LOCATE 2, 1: COLOR 9: PRINT stat$
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), sch1, PSET
|
|
IF d = 2 THEN PUT (x, y), scv1, PSET
|
|
IF d = 3 THEN PUT (x, y), sch2, PSET
|
|
IF d = 4 THEN PUT (x, y), scv2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'########### BATTERY CODE ############
|
|
btt = btt + 1
|
|
IF (btt / 100) > 1800 THEN GOTO dbtt6
|
|
IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]"
|
|
IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10
|
|
IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10
|
|
IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10
|
|
IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14
|
|
IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14
|
|
IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14
|
|
IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12
|
|
IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12
|
|
IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12
|
|
'########## BARRIER CODES #######
|
|
IF x = 5 OR x = 301 THEN GOTO mcrash6
|
|
IF y = 20 OR y = 181 THEN GOTO mcrash6
|
|
'########## DOOR CODES ###########
|
|
IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 2: GOTO m6seg10
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
|
|
mfinish6: CLS
|
|
COLOR 10
|
|
PRINT " You completed the mission!"
|
|
PRINT
|
|
PRINT " You completed the game!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: AMAZEME"
|
|
PRINT " Bonus Menu code is: ROBOBONUS"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Ending
|
|
|
|
END
|
|
|
|
dbtt6: CLS
|
|
COLOR 14
|
|
PRINT " Your battery ran out!"
|
|
PRINT
|
|
PRINT " Esc. = Exit| Try again?"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: AMAZEME"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to Retry..."
|
|
PCOPY 1, 0
|
|
btt = 0
|
|
DO
|
|
press$ = INKEY$
|
|
IF press$ = CHR$(27) THEN END
|
|
LOOP UNTIL press$ = " "
|
|
segm = 0: dr = 0
|
|
GOTO m6seg1
|
|
END
|
|
|
|
mcrash6: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed My Robot!"
|
|
PRINT
|
|
PRINT " Sorry, You are fired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: AMAZEME"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END
|
|
END SUB
|
|
|
|
SUB Missionb
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission-Bots>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>SCORPIAN>>": LOCATE 11, 15: COLOR 15: PRINT ">>CREEPER<<": LOCATE 13, 15: COLOR 15: PRINT ">>PAGE-2<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>SCORPIAN<<": LOCATE 11, 15: COLOR 9: PRINT ">>CREEPER>>": LOCATE 13, 15: COLOR 15: PRINT ">>PAGE-2<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>SCORPIAN<<": LOCATE 11, 15: COLOR 15: PRINT ">>CREEPER<<": LOCATE 13, 15: COLOR 14: PRINT ">>PAGE-2>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Scorp
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Creep
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Missionb2
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Missionb2
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Mission-Bots>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>DRILL-BOT>>": LOCATE 11, 15: COLOR 15: PRINT ">>DROP-BOT<<": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>DRILL-BOT<<": LOCATE 11, 15: COLOR 9: PRINT ">>DROP-BOT>>": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>DRILL-BOT<<": LOCATE 11, 15: COLOR 15: PRINT ">>DROP-BOT<<": LOCATE 13, 15: COLOR 14: PRINT ">>BONUS-MENU>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Dril
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Drop
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Bonus
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Robopic
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Robo-Pics>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>TRAINER-BOTS>>": LOCATE 11, 15: COLOR 15: PRINT ">>MISSION-BOTS<<": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TRAINER-BOTS<<": LOCATE 11, 15: COLOR 9: PRINT ">>MISSION-BOTS>>": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TRAINER-BOTS<<": LOCATE 11, 15: COLOR 15: PRINT ">>MISSION-BOTS<<": LOCATE 13, 15: COLOR 14: PRINT ">>BONUS-MENU>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Trainerb
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Missionb
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Bonus
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|
|
SUB Scorp
|
|
CLS
|
|
SCREEN 13
|
|
LINE (20, 30)-(160, 50), 14, BF
|
|
LINE (22, 36)-(158, 36), 8
|
|
LINE (22, 60)-(158, 60), 8
|
|
'*** ARM ***
|
|
LINE (150, 29)-(60, 5), 12
|
|
LINE (130, 29)-(60, 10), 12
|
|
LINE (60, 5)-(10, 20), 12
|
|
LINE (60, 10)-(14, 24), 12
|
|
LINE (150, 29)-(130, 29), 12
|
|
LINE (10, 20)-(14, 24), 12
|
|
PAINT (60, 7), 12
|
|
'*** GRIP ***
|
|
LINE (15, 18)-(0, 24), 7
|
|
LINE (19, 22)-(4, 28), 7
|
|
LINE (15, 18)-(19, 22), 7
|
|
LINE (0, 24)-(4, 28), 7
|
|
PAINT (4, 26), 7
|
|
'*** WHEELS ***
|
|
CIRCLE (22, 48), 15, 7
|
|
PAINT (22, 48), 7
|
|
PSET (22, 48), 0
|
|
CIRCLE (158, 48), 15, 7
|
|
PAINT (158, 48), 7
|
|
PSET (158, 48), 0
|
|
'**TEXT**
|
|
LOCATE 10, 1: PRINT " Scorpian: Mission 1-2 & 6:"
|
|
LOCATE 12, 1: PRINT " This robot has a grip mounted on a"
|
|
LOCATE 13, 1: PRINT " boom which gives it the appearance"
|
|
LOCATE 14, 1: PRINT " of a scorpian. Its design allows it"
|
|
LOCATE 15, 1: PRINT " to pick up larger items and move "
|
|
LOCATE 16, 1: PRINT " over rough terrain."
|
|
COLOR 10
|
|
LOCATE 20, 1: PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Missionb
|
|
|
|
END SUB
|
|
|
|
SUB Tbot1
|
|
CLS
|
|
SCREEN 13
|
|
LINE (20, 20)-(160, 50), 10, BF
|
|
LINE (22, 36)-(158, 36), 8
|
|
LINE (22, 60)-(158, 60), 8
|
|
CIRCLE (22, 48), 15, 7
|
|
PAINT (22, 48), 7
|
|
PSET (22, 48), 0
|
|
CIRCLE (158, 48), 15, 7
|
|
PAINT (158, 48), 7
|
|
PSET (158, 48), 0
|
|
LOCATE 10, 1: PRINT " Trainer-Bot: Test 1-2:"
|
|
LOCATE 12, 1: PRINT " A simple desinged robot for easy"
|
|
LOCATE 13, 1: PRINT " repairs. Used for the first two"
|
|
LOCATE 14, 1: PRINT " test in case of a crash."
|
|
COLOR 10
|
|
LOCATE 17, 1: PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Trainerb
|
|
END SUB
|
|
|
|
SUB Tbot2
|
|
CLS
|
|
SCREEN 13
|
|
LINE (10, 25)-(20, 45), 8, BF
|
|
LINE (20, 20)-(160, 50), 10, BF
|
|
LINE (22, 36)-(158, 36), 8
|
|
LINE (22, 60)-(158, 60), 8
|
|
CIRCLE (22, 48), 15, 7
|
|
PAINT (22, 48), 7
|
|
PSET (22, 48), 0
|
|
CIRCLE (158, 48), 15, 7
|
|
PAINT (158, 48), 7
|
|
PSET (158, 48), 0
|
|
LOCATE 10, 1: PRINT " Trainer-Bot: Test 3:"
|
|
LOCATE 12, 1: PRINT " A simple desinged robot for easy"
|
|
LOCATE 13, 1: PRINT " repairs. Has small grip on front"
|
|
LOCATE 14, 1: PRINT " for picking up small items."
|
|
COLOR 10
|
|
LOCATE 17, 1: PRINT " Press SPACEBAR to continue..."
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CALL Trainerb
|
|
|
|
END SUB
|
|
|
|
SUB Test001
|
|
DIM hor(100), vert(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
CLS
|
|
SCREEN 7, 0, 1, 0
|
|
COLOR 15
|
|
PRINT " Test Status:"
|
|
PRINT
|
|
PRINT " This test is for Navigation."
|
|
PRINT " My fine robots are powered by none"
|
|
PRINT " than very two powerful 550-Can R/C"
|
|
PRINT " car motors. This can leave a great"
|
|
PRINT " deal of damage to them or whatever"
|
|
PRINT " they hit. So to pass this test, "
|
|
PRINT " make it to the other side of the "
|
|
PRINT " maze unharmed."
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
|
|
test1: CLS
|
|
'############# ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 10, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), hor
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 10, BF
|
|
GET (1, 1)-(10, 10), vert
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
'############# LEVEL ##########
|
|
'vertseg1
|
|
LINE (150, 200)-(150, 150), 9
|
|
LINE (170, 200)-(170, 170), 9
|
|
'horseg1
|
|
LINE (170, 170)-(250, 170), 9
|
|
LINE (150, 150)-(230, 150), 9
|
|
'vertseg2
|
|
LINE (250, 170)-(250, 100), 9
|
|
LINE (230, 150)-(230, 120), 9
|
|
'horseg2
|
|
LINE (250, 100)-(100, 100), 9
|
|
LINE (230, 120)-(80, 120), 9
|
|
'vertseg3
|
|
LINE (100, 100)-(100, 80), 9
|
|
LINE (80, 120)-(80, 60), 9
|
|
'horseg3
|
|
LINE (100, 80)-(170, 80), 9
|
|
LINE (80, 60)-(150, 60), 9
|
|
'vertseg4
|
|
LINE (170, 80)-(170, 0), 9
|
|
LINE (150, 60)-(150, 0), 9
|
|
PCOPY 1, 0
|
|
'######## PROGRAM #######
|
|
d = 1
|
|
x = 155: y = 180
|
|
oldx = x: oldy = y
|
|
seg1:
|
|
DO
|
|
press$ = INKEY$
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), hor, PSET
|
|
IF d = 2 THEN PUT (x, y), vert, PSET
|
|
'####### Arrowkeys #########
|
|
IF d = 1 THEN IF press$ = CHR$(0) + "K" THEN d = 2
|
|
IF d = 2 THEN IF press$ = CHR$(0) + "H" THEN d = 1
|
|
IF d = 1 THEN IF press$ = CHR$(0) + "M" THEN d = 2
|
|
IF d = 2 THEN IF press$ = CHR$(0) + "P" THEN d = 1
|
|
IF press$ = CHR$(0) + "H" THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + "P" THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + "K" THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + "M" THEN x = x + 1: PLAY "A"
|
|
IF y > 160 AND x = 150 THEN GOTO tcrash1
|
|
IF y > 160 AND x = 161 THEN GOTO tcrash1
|
|
IF y > 160 AND y = 190 THEN GOTO tcrash1
|
|
IF x < 230 AND y < 160 AND y >= 150 AND y = 150 THEN GOTO tcrash1
|
|
IF x < 230 AND y < 160 AND y >= 150 AND x = 150 THEN GOTO tcrash1
|
|
IF x > 160 AND x < 230 AND y = 150 THEN GOTO tcrash1
|
|
IF x > 160 AND x < 230 AND y = 161 THEN GOTO tcrash1
|
|
IF x = 241 THEN GOTO tcrash1
|
|
IF x > 230 AND x < 240 AND y = 161 THEN GOTO tcrash1
|
|
IF y > 111 AND y < 150 AND x = 230 THEN GOTO tcrash1
|
|
IF x < 230 AND x > 81 AND y = 111 THEN GOTO tcrash1
|
|
IF x = 80 THEN GOTO tcrash1
|
|
IF x < 240 AND x > 91 AND y = 100 THEN GOTO tcrash1
|
|
IF y < 100 AND y > 71 AND x = 91 THEN GOTO tcrash1
|
|
IF x < 160 AND x > 91 AND y = 71 THEN GOTO tcrash1
|
|
IF x < 150 AND x > 81 AND y = 60 THEN GOTO tcrash1
|
|
IF y < 70 AND x = 161 THEN GOTO tcrash1
|
|
IF y < 60 AND x = 150 THEN GOTO tcrash1
|
|
IF y = 2 THEN GOTO tfinish1
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
tfinish1: CLS
|
|
COLOR 10
|
|
PRINT " You Passed!"
|
|
PRINT
|
|
PRINT " You can take Test2"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TEST001"
|
|
PRINT " Next level's code is: TEST002"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu2
|
|
|
|
tcrash1: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed!"
|
|
PRINT
|
|
PRINT " Sorry, You do not pass."
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TEST001"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
END SUB
|
|
|
|
SUB Test002
|
|
DIM hor(100), vert(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
CLS
|
|
SCREEN 7, 0, 1, 0
|
|
COLOR 15
|
|
PRINT " Test Status:"
|
|
PRINT
|
|
PRINT " This test is for Balance."
|
|
PRINT " In order to work your way though"
|
|
PRINT " the many dangers of a robot, you"
|
|
PRINT " must be well balanced and on gaurd."
|
|
PRINT " This level includes two water pools "
|
|
PRINT " that can destoy robots in a blink"
|
|
PRINT " of an eye. To pass, Don't hit the "
|
|
PRINT " walls, or water."
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
|
|
test2: CLS
|
|
'############# ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 10, BF
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), hor
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 10, BF
|
|
GET (1, 1)-(10, 10), vert
|
|
PCOPY 1, 0
|
|
CLS
|
|
GET (1, 1)-(10, 10), mask
|
|
'############# LEVEL ##########
|
|
'vertseg1
|
|
LINE (150, 200)-(150, 150), 9
|
|
LINE (170, 200)-(170, 170), 9
|
|
'horseg1
|
|
LINE (170, 170)-(250, 170), 9
|
|
LINE (150, 150)-(230, 150), 9
|
|
'vertseg2
|
|
LINE (250, 170)-(250, 100), 9
|
|
LINE (230, 150)-(230, 120), 9
|
|
'horseg2
|
|
LINE (250, 100)-(100, 100), 9
|
|
LINE (230, 120)-(80, 120), 9
|
|
'vertseg3
|
|
LINE (100, 100)-(100, 80), 9
|
|
LINE (80, 120)-(80, 60), 9
|
|
'horseg3
|
|
LINE (100, 80)-(170, 80), 9
|
|
LINE (80, 60)-(150, 60), 9
|
|
'vertseg4
|
|
LINE (170, 80)-(170, 0), 9
|
|
LINE (150, 60)-(150, 0), 9
|
|
'pools
|
|
LINE (150, 150)-(230, 120), 1, BF
|
|
LINE (170, 80)-(100, 100), 1, BF
|
|
PCOPY 1, 0
|
|
'######## PROGRAM #######
|
|
d = 1
|
|
x = 155: y = 180
|
|
oldx = x: oldy = y
|
|
DO
|
|
press$ = INKEY$
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), hor, PSET
|
|
IF d = 2 THEN PUT (x, y), vert, PSET
|
|
'######## ARROWKEYS ######
|
|
IF d = 1 THEN IF press$ = CHR$(0) + "K" THEN d = 2
|
|
IF d = 2 THEN IF press$ = CHR$(0) + "H" THEN d = 1
|
|
IF d = 1 THEN IF press$ = CHR$(0) + "M" THEN d = 2
|
|
IF d = 2 THEN IF press$ = CHR$(0) + "P" THEN d = 1
|
|
IF press$ = CHR$(0) + "H" THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + "P" THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + "K" THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + "M" THEN x = x + 1: PLAY "A"
|
|
IF y > 160 AND x = 150 THEN GOTO tcrash2
|
|
IF y > 160 AND x = 161 THEN GOTO tcrash2
|
|
IF y > 160 AND y = 190 THEN GOTO tcrash2
|
|
IF x < 230 AND y < 160 AND y >= 150 AND y = 150 THEN GOTO tcrash2
|
|
IF x < 230 AND y < 160 AND y >= 150 AND x = 150 THEN GOTO tcrash2
|
|
IF x > 160 AND x < 230 AND y = 150 THEN GOTO tcrash2
|
|
IF x > 160 AND x < 230 AND y = 161 THEN GOTO tcrash2
|
|
IF x = 241 THEN GOTO tcrash2
|
|
IF x > 230 AND x < 240 AND y = 161 THEN GOTO tcrash2
|
|
IF y > 111 AND y < 150 AND x = 230 THEN GOTO tcrash2
|
|
IF x < 230 AND x > 81 AND y = 111 THEN GOTO tcrash2
|
|
IF x = 80 THEN GOTO tcrash2
|
|
IF x < 240 AND x > 91 AND y = 100 THEN GOTO tcrash2
|
|
IF y < 100 AND y > 71 AND x = 91 THEN GOTO tcrash2
|
|
IF x < 160 AND x > 91 AND y = 71 THEN GOTO tcrash2
|
|
IF x < 150 AND x > 81 AND y = 60 THEN GOTO tcrash2
|
|
IF y < 70 AND x = 161 THEN GOTO tcrash2
|
|
IF y < 60 AND x = 150 THEN GOTO tcrash2
|
|
IF y = 2 THEN GOTO tfinish2
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
tfinish2: CLS
|
|
COLOR 10
|
|
PRINT " You Passed!"
|
|
PRINT
|
|
PRINT " You can take Test3"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TEST002"
|
|
PRINT " Next level's code is: TEST003"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu3
|
|
|
|
tcrash2: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed!"
|
|
PRINT
|
|
PRINT " Sorry, You do not pass."
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TEST002"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END SUB
|
|
|
|
SUB Test003
|
|
DIM hor1(100), hor2(100), vert1(100), vert2(100), mask(100)
|
|
PLAY "MB L64 <<<"
|
|
CLS
|
|
SCREEN 7, 0, 1, 0
|
|
COLOR 15
|
|
PRINT " Test Status:"
|
|
PRINT
|
|
PRINT " This test is for Collecting."
|
|
PRINT " One of the main jobs of a Robo-"
|
|
PRINT " Raider is collecting objects from"
|
|
PRINT " ruins. This is the same level you"
|
|
PRINT " last piloted, but with objets to"
|
|
PRINT " pick up.(this Robot picks up an"
|
|
PRINT " item automaticly, just by bump "
|
|
PRINT " into it) To pass, collect all "
|
|
PRINT " items (HINT: Get the items to"
|
|
PRINT " hit center of the grip)"
|
|
PRINT
|
|
PRINT
|
|
PRINT
|
|
COLOR 10
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
|
|
test3: CLS
|
|
'############# ROBOT ##########
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 10, BF
|
|
PSET (4, 1), 7: PSET (7, 1), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), hor1
|
|
CLS
|
|
LINE (1, 1)-(2, 10), 8, BF
|
|
LINE (10, 1)-(9, 10), 8, BF
|
|
LINE (3, 2)-(8, 9), 10, BF
|
|
PSET (4, 10), 7: PSET (7, 10), 7
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(10, 10), hor2
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 10, BF
|
|
PSET (1, 4), 7: PSET (1, 7), 7
|
|
GET (1, 1)-(10, 10), vert1
|
|
PCOPY 1, 0
|
|
CLS
|
|
LINE (1, 1)-(10, 2), 8, BF
|
|
LINE (1, 10)-(10, 9), 8, BF
|
|
LINE (2, 3)-(9, 8), 10, BF
|
|
PSET (10, 4), 7: PSET (10, 7), 7
|
|
GET (1, 1)-(10, 10), vert2
|
|
PCOPY 1, 0
|
|
CLS
|
|
|
|
GET (1, 1)-(10, 10), mask
|
|
'############# LEVEL ##########
|
|
'vertseg1
|
|
LINE (150, 200)-(150, 150), 9
|
|
LINE (170, 200)-(170, 170), 9
|
|
'horseg1
|
|
LINE (170, 170)-(250, 170), 9
|
|
LINE (150, 150)-(230, 150), 9
|
|
'vertseg2
|
|
LINE (250, 170)-(250, 100), 9
|
|
LINE (230, 150)-(230, 120), 9
|
|
'horseg2
|
|
LINE (250, 100)-(100, 100), 9
|
|
LINE (230, 120)-(80, 120), 9
|
|
'vertseg3
|
|
LINE (100, 100)-(100, 80), 9
|
|
LINE (80, 120)-(80, 60), 9
|
|
'horseg3
|
|
LINE (100, 80)-(170, 80), 9
|
|
LINE (80, 60)-(150, 60), 9
|
|
'vertseg4
|
|
LINE (170, 80)-(170, 0), 9
|
|
LINE (150, 60)-(150, 0), 9
|
|
'pools
|
|
LINE (150, 150)-(230, 120), 1, BF
|
|
LINE (170, 80)-(100, 100), 1, BF
|
|
PCOPY 1, 0
|
|
'######## PROGRAM #######
|
|
d = 1
|
|
x = 155: y = 180
|
|
oldx = x: oldy = y
|
|
DO
|
|
press$ = INKEY$
|
|
LOCATE 1, 1: PRINT "Items:"; i
|
|
'######## Items Code ######
|
|
IF i1 = 0 THEN CIRCLE (160, 153), 1, 12 ELSE CIRCLE (160, 153), 1, 0
|
|
IF i2 = 0 THEN CIRCLE (236, 165), 1, 12 ELSE CIRCLE (236, 165), 1, 0
|
|
IF i3 = 0 THEN CIRCLE (240, 120), 1, 12 ELSE CIRCLE (240, 120), 1, 0
|
|
IF i4 = 0 THEN CIRCLE (90, 100), 1, 12 ELSE CIRCLE (90, 100), 1, 0
|
|
IF i5 = 0 THEN CIRCLE (130, 69), 1, 12 ELSE CIRCLE (130, 69), 1, 0
|
|
IF i6 = 0 THEN CIRCLE (159, 50), 1, 12 ELSE CIRCLE (159, 50), 1, 0
|
|
|
|
IF i1 = 0 THEN IF x = 155 OR x = 156 THEN IF y = 154 THEN i1 = 1: i = i + 1
|
|
IF i2 = 0 THEN IF x = 225 OR x = 237 THEN IF y = 160 THEN i2 = 1: i = i + 1
|
|
IF i2 = 0 THEN IF x = 231 OR x = 232 THEN IF y = 155 THEN i2 = 1: i = i + 1
|
|
IF i3 = 0 THEN IF x = 235 OR x = 236 THEN IF y = 121 OR y = 110 THEN i3 = 1: i = i + 1
|
|
IF i4 = 0 THEN IF x = 85 OR x = 86 THEN IF y = 101 OR y = 90 THEN i4 = 1: i = i + 1
|
|
IF i5 = 0 THEN IF y = 65 OR y = 64 THEN IF x = 120 OR x = 131 THEN i5 = 1: i = i + 1
|
|
IF i6 = 0 THEN IF x = 154 OR x = 155 THEN IF y = 51 OR y = 40 THEN i6 = 1: i = i + 1
|
|
'######## Graphics Code #######
|
|
PUT (oldx, oldy), mask, PSET
|
|
oldx = x: oldy = y
|
|
IF d = 1 THEN PUT (x, y), hor1, PSET
|
|
IF d = 2 THEN PUT (x, y), vert1, PSET
|
|
IF d = 3 THEN PUT (x, y), hor2, PSET
|
|
IF d = 4 THEN PUT (x, y), vert2, PSET
|
|
IF press$ = CHR$(0) + CHR$(75) THEN d = 2
|
|
IF press$ = CHR$(0) + CHR$(72) THEN d = 1
|
|
IF press$ = CHR$(0) + CHR$(77) THEN d = 4
|
|
IF press$ = CHR$(0) + CHR$(80) THEN d = 3
|
|
IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A"
|
|
IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A"
|
|
IF press$ = "4" THEN d = 2
|
|
IF press$ = "8" THEN d = 1
|
|
IF press$ = "2" THEN d = 3
|
|
IF press$ = "6" THEN d = 4
|
|
IF press$ = "8" THEN y = y - 1: PLAY "A"
|
|
IF press$ = "2" THEN y = y + 1: PLAY "A"
|
|
IF press$ = "4" THEN x = x - 1: PLAY "A"
|
|
IF press$ = "6" THEN x = x + 1: PLAY "A"
|
|
'######## Barrier Code #######
|
|
IF y > 160 AND x = 150 THEN GOTO tcrash3
|
|
IF y > 160 AND x = 161 THEN GOTO tcrash3
|
|
IF y > 160 AND y = 190 THEN GOTO tcrash3
|
|
IF x < 230 AND y < 160 AND y >= 150 AND y = 150 THEN GOTO tcrash3
|
|
IF x < 230 AND y < 160 AND y >= 150 AND x = 150 THEN GOTO tcrash3
|
|
IF x > 160 AND x < 230 AND y = 150 THEN GOTO tcrash3
|
|
IF x > 160 AND x < 230 AND y = 161 THEN GOTO tcrash3
|
|
IF x = 241 THEN GOTO tcrash3
|
|
IF x > 230 AND x < 240 AND y = 161 THEN GOTO tcrash3
|
|
IF y > 111 AND y < 150 AND x = 230 THEN GOTO tcrash3
|
|
IF x < 230 AND x > 81 AND y = 111 THEN GOTO tcrash3
|
|
IF x = 80 THEN GOTO tcrash3
|
|
IF x < 240 AND x > 91 AND y = 100 THEN GOTO tcrash3
|
|
IF y < 100 AND y > 71 AND x = 91 THEN GOTO tcrash3
|
|
IF x < 160 AND x > 91 AND y = 71 THEN GOTO tcrash3
|
|
IF x < 150 AND x > 81 AND y = 60 THEN GOTO tcrash3
|
|
IF y < 70 AND x = 161 THEN GOTO tcrash3
|
|
IF y < 60 AND x = 150 THEN GOTO tcrash3
|
|
IF i < 6 AND y = 2 THEN GOTO tfail3
|
|
IF i = 6 AND y = 2 THEN GOTO tfinish3
|
|
PCOPY 1, 0
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
tfinish3: CLS
|
|
COLOR 10
|
|
PRINT " You Passed!"
|
|
PRINT
|
|
PRINT " You are hired!"
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TEST003"
|
|
PRINT " Next level's code is: POINTY"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu4
|
|
|
|
tcrash3: CLS
|
|
COLOR 12
|
|
PRINT " You Crashed!"
|
|
PRINT
|
|
PRINT " Sorry, You do not pass."
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TEST003"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
tfail3: CLS
|
|
COLOR 12
|
|
PRINT " You did not get all six items!"
|
|
PRINT
|
|
PRINT " Sorry, You do not pass."
|
|
PRINT
|
|
COLOR 9
|
|
PRINT
|
|
PRINT " This level's code is: TEST003"
|
|
PRINT " Next level's code is: >>did not pass<<"
|
|
PRINT
|
|
PRINT " Press SPACEBAR to continue..."
|
|
PCOPY 1, 0
|
|
DO
|
|
press$ = INKEY$
|
|
LOOP UNTIL press$ = " "
|
|
CLS
|
|
SCREEN 13
|
|
CALL Menu
|
|
|
|
END SUB
|
|
|
|
SUB Trailer
|
|
SCREEN 9
|
|
CLS
|
|
LOCATE 11, 20: PRINT "xtrGRAPHICS (TM)"
|
|
SLEEP (2)
|
|
CLS
|
|
LOCATE 11, 25: PRINT "xtrGRAPHICS Presents....."
|
|
SLEEP (4)
|
|
CLS
|
|
LOCATE 11, 30: PRINT "In a game where the need for speed is always great"
|
|
SLEEP (3)
|
|
SCREEN 7, 0, 1, 0
|
|
FOR i = 1 TO 100
|
|
x = INT(RND * 320) + 1
|
|
y = INT(RND * 200) + 1
|
|
PSET (x, y)
|
|
NEXT
|
|
CIRCLE (100, 100), 40, 14
|
|
PAINT (100, 100), 14
|
|
CIRCLE (130, 150), 30, 12
|
|
PAINT (130, 150), 12
|
|
CIRCLE (320, 200), 60, 9
|
|
PAINT (319, 198), 9
|
|
PCOPY 1, 0
|
|
FOR i = 1 TO 50000: NEXT
|
|
|
|
CLS
|
|
FOR i = 1 TO 100
|
|
x = INT(RND * 320) + 1
|
|
y = INT(RND * 200) + 1
|
|
PSET (x, y)
|
|
NEXT
|
|
CIRCLE (0, 100), 160, 12
|
|
PAINT (0, 100), 12
|
|
|
|
x1 = 160: y1 = 100
|
|
DO
|
|
press$ = INKEY$
|
|
CLS
|
|
FOR i = 1 TO 100
|
|
x = INT(RND * 320) + 1
|
|
y = INT(RND * 200) + 1
|
|
PSET (x, y)
|
|
NEXT
|
|
CIRCLE (0, 100), 160, 12
|
|
PAINT (0, 100), 12
|
|
PSET (x1, y1), 9
|
|
x1 = x1 + 1
|
|
PCOPY 1, 0
|
|
IF press$ <> "" THEN CALL Bonus
|
|
FOR i = 1 TO 1000: NEXT
|
|
LOOP UNTIL x1 >= 300
|
|
|
|
SCREEN 9
|
|
LOCATE 11, 20: PRINT "Where you travel faster than the speed of light."
|
|
SLEEP (3)
|
|
CLS
|
|
SCREEN 9
|
|
LOCATE 11, 20: PRINT "And planet travel is all you know."
|
|
SLEEP (3)
|
|
|
|
SCREEN 7, 0, 1, 0
|
|
x1 = 160: y1 = 190:
|
|
DO
|
|
press$ = INKEY$
|
|
CLS
|
|
FOR i = 1 TO 100
|
|
x = INT(RND * 320) + 1
|
|
y = INT(RND * 200) + 1
|
|
PSET (x, y)
|
|
NEXT
|
|
PSET (x1, y1), 9
|
|
y1 = y1 - 1
|
|
IF y1 <= 100 THEN GOTO iwarp
|
|
PCOPY 1, 0
|
|
IF press$ <> "" THEN CALL Bonus
|
|
FOR i = 1 TO 1000: NEXT
|
|
LOOP
|
|
iwarp: cr = 1:
|
|
DO
|
|
press$ = INKEY$
|
|
CLS
|
|
FOR i = 1 TO 100
|
|
x = INT(RND * 320) + 1
|
|
y = INT(RND * 200) + 1
|
|
PSET (x, y)
|
|
NEXT
|
|
CIRCLE (160, 100), cr, 10
|
|
LINE (160, 100)-(160, y1), 9
|
|
y1 = y1 - 5
|
|
cr = cr + 1
|
|
PCOPY 1, 0
|
|
IF press$ <> "" THEN CALL Bonus
|
|
FOR i = 1 TO 500: NEXT
|
|
LOOP UNTIL cr = 20
|
|
|
|
SCREEN 9
|
|
LOCATE 11, 20: PRINT "Hold on thight for this one...."
|
|
SLEEP (3)
|
|
|
|
SCREEN 7, 0, 1, 0
|
|
x1 = 1: y1 = 100
|
|
DO
|
|
press$ = INKEY$
|
|
CLS
|
|
FOR i = 1 TO 100
|
|
x = INT(RND * 320) + 1
|
|
y = INT(RND * 200) + 1
|
|
PSET (x, y)
|
|
NEXT
|
|
CIRCLE (320, 100), 160, 10
|
|
PAINT (300, 100), 10
|
|
PSET (x1, y1), 9
|
|
x1 = x1 + 1
|
|
PCOPY 1, 0
|
|
IF press$ <> "" THEN CALL Bonus
|
|
FOR i = 1 TO 1000: NEXT
|
|
LOOP UNTIL x1 >= 160
|
|
|
|
SCREEN 9
|
|
LOCATE 11, 20: PRINT "There are more planets than you think..."
|
|
SLEEP (3)
|
|
|
|
SCREEN 7, 0, 1, 0
|
|
x1 = 1: y1 = 30
|
|
DO
|
|
press$ = INKEY$
|
|
CLS
|
|
press$ = INKEY$
|
|
LINE (0, 0)-(320, 200), 1, BF
|
|
LINE (0, 175)-(320, 200), 8, BF
|
|
LINE (1, 100)-(40, 200), 7, BF
|
|
LINE (42, 50)-(90, 200), 7, BF
|
|
LINE (92, 70)-(140, 200), 7, BF
|
|
LINE (142, 90)-(190, 200), 7, BF
|
|
LINE (192, 110)-(260, 200), 7, BF
|
|
LINE (262, 20)-(320, 200), 7, BF
|
|
PSET (x1, y1), 9
|
|
x1 = x1 + 1
|
|
PCOPY 1, 0
|
|
IF press$ <> "" THEN CALL Bonus
|
|
FOR i = 1 TO 1000: NEXT
|
|
LOOP UNTIL x1 >= 262
|
|
|
|
CLS
|
|
DIM ship(1000)
|
|
LINE (1, 1)-(20, 35), 7, BF
|
|
LINE (10, 1)-(1, 10), 9
|
|
LINE (10, 1)-(20, 10), 9
|
|
LINE (1, 10)-(1, 30), 9
|
|
LINE (20, 10)-(20, 30), 9
|
|
LINE (1, 30)-(20, 30), 9
|
|
PAINT (10, 10), 9
|
|
LINE (10, 30)-(10, 35), 7
|
|
LINE (1, 30)-(1, 35), 7
|
|
LINE (20, 30)-(20, 35), 7
|
|
CIRCLE (10, 10), 5, 8
|
|
PAINT (10, 10), 8
|
|
PCOPY 1, 0
|
|
GET (1, 1)-(20, 35), ship
|
|
y1 = 160
|
|
DO
|
|
press$ = INKEY$
|
|
CLS
|
|
LINE (0, 0)-(320, 200), 7, BF
|
|
PUT (160, y1), ship, PSET
|
|
y1 = y1 - 1
|
|
PCOPY 1, 0
|
|
IF press$ <> "" THEN CALL Bonus
|
|
LOOP UNTIL y1 = 50
|
|
|
|
CLS
|
|
SCREEN 7, 0, 1, 0
|
|
|
|
FOR i = 1 TO 100
|
|
x = INT(RND * 320) + 1
|
|
y = INT(RND * 200) + 1
|
|
PSET (x, y)
|
|
NEXT
|
|
CIRCLE (100, 100), 40, 14
|
|
PAINT (100, 100), 14
|
|
CIRCLE (130, 150), 30, 12
|
|
PAINT (130, 150), 12
|
|
CIRCLE (320, 200), 60, 9
|
|
PAINT (319, 198), 9
|
|
|
|
|
|
LINE (60, 40)-(30, 60), 9
|
|
LINE (30, 60)-(60, 60), 9
|
|
LINE (60, 60)-(30, 80), 9
|
|
|
|
LINE (63, 50)-(63, 80), 9
|
|
LINE (63, 50)-(73, 55), 9
|
|
LINE (73, 55)-(63, 65), 9
|
|
|
|
CIRCLE (83, 50), 6, 9
|
|
LINE (88, 45)-(89, 55), 9
|
|
|
|
LINE (93, 48)-(100, 40), 9
|
|
LINE (93, 48)-(105, 50), 9
|
|
|
|
LINE (107, 45)-(117, 40), 9
|
|
LINE (107, 45)-(110, 35), 9
|
|
LINE (110, 35)-(117, 40), 9
|
|
LINE (107, 45)-(117, 45), 9
|
|
|
|
LINE (25, 85)-(147, 37), 9
|
|
|
|
'*************************
|
|
|
|
LINE (70, 90)-(75, 110), 9
|
|
LINE (75, 110)-(80, 88), 9
|
|
LINE (80, 88)-(85, 109), 9
|
|
LINE (85, 109)-(90, 86), 9
|
|
|
|
CIRCLE (100, 95), 6, 9
|
|
LINE (107, 98)-(102, 88), 9
|
|
|
|
LINE (109, 87)-(111, 98), 9
|
|
LINE (109, 87)-(116, 84), 9
|
|
|
|
LINE (119, 83)-(119, 101), 9
|
|
LINE (119, 83)-(129, 88), 9
|
|
LINE (129, 88)-(119, 92), 9
|
|
|
|
LINE (50, 121)-(140, 100), 9
|
|
|
|
PCOPY 1, 0
|
|
SLEEP (4)
|
|
CLS
|
|
SCREEN 13
|
|
CALL Bonus
|
|
END SUB
|
|
|
|
SUB Trainerb
|
|
CLS
|
|
SCREEN 13
|
|
COLOR 10
|
|
PRINT " RoboRaiders: >>Trainer-Bots>>"
|
|
LOCATE 20, 3: PRINT "Press 'Enter' to select"
|
|
LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit"
|
|
C = 1
|
|
DO
|
|
press$ = INKEY$
|
|
IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>TEST 1-2>>": LOCATE 11, 15: COLOR 15: PRINT ">>TEST 3<<": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<"
|
|
IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TEST 1-2<<": LOCATE 11, 15: COLOR 9: PRINT ">>TEST 3>>": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<"
|
|
IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TEST 1-2<<": LOCATE 11, 15: COLOR 15: PRINT ">>TEST 3<<": LOCATE 13, 15: COLOR 14: PRINT ">>BONUS-MENU>>"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16"
|
|
IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16"
|
|
IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16"
|
|
IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Tbot1
|
|
IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Tbot2
|
|
IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Bonus
|
|
IF press$ = CHR$(0) + ";" THEN CALL Help
|
|
LOOP UNTIL press$ = CHR$(27)
|
|
END
|
|
|
|
END SUB
|
|
|