This is a funny game that is modelled after one found in a book called "Apple Pascal Games" that I borrowed from the library a long time ago. Sorry don't remember who were the authors of that book...
The book had a bunch of text-mode games. The original game was a bit lame taking something from the famous "Robotwar" causing the computer-controlled enemy to move toward the player always. The program presented here is a lot like the original from the book but has five levels. There is another difference: like "Robotwar", the playing board is surrounded by a fence. If the "bandit" runs into it the game is over.
The keys to move the player kind of suck but my laptop doesn't have a numeric keypad. They are [7][8][9] for the top, [U] and [O] for left and right, and [J][K][L] for the bottom. I changed it for this post, so the number keys except 0 and 5 could be used to move no matter where those keys are found. On the number pad of your keyboard, of course make sure Numlock is enabled. This program could be a lot more fun with a joystick and/or with two enemies instead of one. Press [ESC] to quit the program.
The book had a bunch of text-mode games. The original game was a bit lame taking something from the famous "Robotwar" causing the computer-controlled enemy to move toward the player always. The program presented here is a lot like the original from the book but has five levels. There is another difference: like "Robotwar", the playing board is surrounded by a fence. If the "bandit" runs into it the game is over.
The keys to move the player kind of suck but my laptop doesn't have a numeric keypad. They are [7][8][9] for the top, [U] and [O] for left and right, and [J][K][L] for the bottom. I changed it for this post, so the number keys except 0 and 5 could be used to move no matter where those keys are found. On the number pad of your keyboard, of course make sure Numlock is enabled. This program could be a lot more fun with a joystick and/or with two enemies instead of one. Press [ESC] to quit the program.
Code: (Select All)
'by mnrvovrfc 23-Mar-2023
OPTION _EXPLICIT
DIM AS INTEGER top, lef, bot, rig, lvl, chc, i, j, wid
DIM AS INTEGER px, py, bx, by, cx, cy, ox, oy, score
DIM AS _BYTE quit, die, goon, permission, finis
DIM a$, t$, treasure$, namlvl$(1 TO 5)
treasure$ = "@$" + CHR$(244) + CHR$(176) + CHR$(4)
namlvl$(1) = "honey bun"
namlvl$(2) = "lotta money"
namlvl$(3) = "candy cane"
namlvl$(4) = "graham cracker"
namlvl$(5) = "diamond"
top = 1: lef = 1
bot = 22: rig = 80
lvl = 1
_TITLE "You're a BANDIT!"
DO
COLOR 15, 0: CLS
wid = rig - lef + 1
a$ = STRING$(wid, 35)
LOCATE top, lef: PRINT a$;
LOCATE bot, lef: PRINT a$;
FOR j = top + 1 TO bot - 1
LOCATE j, lef: PRINT "#";
LOCATE j, rig: PRINT "#";
NEXT
px = Rand(lef + 1, 39)
py = Rand(top + 1, 11)
bx = Rand(40, rig - 1)
by = Rand(12, bot - 1)
cx = Rand(40, rig - 1)
cy = Rand(top + 1, 11)
t$ = MID$(treasure$, lvl, 1)
LOCATE py, px: PRINT "R";
LOCATE by, bx: PRINT t$;
LOCATE cy, cx: PRINT CHR$(206);
DO
_LIMIT 100
j = 0
FOR i = 49 TO 117
SELECT CASE i
CASE 49, 50, 51, 52, 54, 55, 56, 57, 106, 107, 108, 111, 117
IF _KEYDOWN(i) THEN j = j + 1
END SELECT
NEXT
LOOP UNTIL j = 0
LOCATE 23, 1: PRINT "Go get that "; namlvl$(lvl); "!"
chc = 10
quit = 0
die = 0
DO
_LIMIT 14
ox = -1: oy = -1
permission = 0
IF _KEYDOWN(27) THEN quit = 1
IF _KEYDOWN(55) THEN
ox = px: oy = py
px = px - 1: py = py - 1
ELSEIF _KEYDOWN(56) THEN
ox = px: oy = py
py = py - 1
ELSEIF _KEYDOWN(57) THEN
ox = px: oy = py
px = px + 1: py = py - 1
ELSEIF _KEYDOWN(49) OR _KEYDOWN(106) THEN
ox = px: oy = py
px = px - 1: py = py + 1
ELSEIF _KEYDOWN(50) OR _KEYDOWN(107) THEN
ox = px: oy = py
py = py + 1
ELSEIF _KEYDOWN(51) OR _KEYDOWN(108) THEN
ox = px: oy = py
px = px + 1: py = py + 1
ELSEIF _KEYDOWN(52) OR _KEYDOWN(117) THEN
ox = px: oy = py
px = px - 1
ELSEIF _KEYDOWN(54) OR _KEYDOWN(111) THEN
ox = px: oy = py
px = px + 1
END IF
DO
IF ox <> -1 AND oy <> -1 THEN
IF SCREEN(py, px) = 35 THEN
LOCATE oy, ox: PRINT " ";
LOCATE by, bx: PRINT t$;
LOCATE py, px: PRINT CHR$(15);
die = 2
EXIT DO
END IF
permission = 1
LOCATE oy, ox: PRINT " ";
LOCATE by, bx: PRINT t$;
LOCATE py, px: PRINT "R";
IF px = cx AND py = cy THEN die = 1
IF px = bx AND py = by THEN
score = score + 1
LOCATE 24, 1: PRINT "Score ="; score; "| Level ="; lvl;
chc = chc - 1
IF chc < 1 THEN finis = 1
bx = Rand(lef, 39)
by = Rand(top, 11)
IF px < 40 THEN bx = Rand(40, rig - 1) ELSE bx = Rand(lef + 1, 39)
IF py < 12 THEN by = Rand(12, bot - 1) ELSE by = Rand(top + 1, 11)
END IF
END IF
LOOP UNTIL 1
IF die OR finis THEN EXIT DO
IF permission THEN
'goon = (chc = 1)
'IF goon = 0 THEN goon = (INT(RND * chc + 1) = 1)
goon = (RND * chc + 1.25 < 2)
IF goon THEN
ox = cx: oy = cy
IF px < cx THEN cx = cx - 1 ELSE IF px > cx THEN cx = cx + 1
IF py < cy THEN cy = cy - 1 ELSE IF py > cy THEN cy = cy + 1
LOCATE oy, ox: PRINT " ";
LOCATE by, bx: PRINT t$;
LOCATE cy, cx: PRINT CHR$(206);
IF px = cx AND py = cy THEN die = 1
END IF
END IF
LOOP UNTIL quit OR die OR finis
LOCATE 23, 1: PRINT SPACE$(79);
IF die THEN
PLAY "T200L8"
LOCATE 23, 1
IF die = 1 THEN
PRINT "The bandit has been caught!";
FOR j = 8 TO 80 STEP 5
PLAY "N" + _TRIM$(STR$(j))
NEXT
ELSEIF die = 2 THEN
PRINT "Cheater! Stop trying to run out of bounds LOL.";
FOR j = 5 TO 11000 STEP 384
i = INT(SIN(_D2R(j)) * ABS(30 - 40 * (j > 2000)) + 6)
IF i < 6 THEN i = 6
IF i > 80 THEN i = 80
PLAY "N" + _TRIM$(STR$(i))
NEXT
END IF
ELSEIF finis THEN
lvl = lvl + 1
IF lvl > 5 THEN
LOCATE 23, 1: PRINT "Guess what? You have beaten the game!";
PLAY "T200L8"
FOR j = 10 TO 80 STEP 10
i = ((j ^ 2.5) MOD 70) + 6
PLAY "N" + _TRIM$(STR$(i))
PLAY "N" + _TRIM$(STR$(j))
NEXT
quit = 1
ELSE
top = top + 1
bot = bot - 1
SELECT CASE lvl
CASE 2
lef = lef + 5
rig = rig - 5
CASE 3
lef = lef + 9
rig = rig - 9
CASE 4
lef = lef + 6
rig = rig - 6
CASE 5
lef = lef + 3
rig = rig - 3
END SELECT
finis = 0
END IF
END IF
LOOP UNTIL die OR quit
SYSTEM
FUNCTION Rand& (fromval&, toval&)
DIM f&, t&, sg%
IF fromval& = toval& THEN
Rand& = fromval&
EXIT FUNCTION
END IF
f& = fromval&
t& = toval&
IF (f& < 0) AND (t& < 0) THEN
sg% = -1
f& = f& * -1
t& = t& * -1
ELSE
sg% = 1
END IF
IF f& > t& THEN SWAP f&, t&
Rand& = INT(RND * (t& - f& + 1) + f&) * sg%
END FUNCTION