Differences

This shows you the differences between two versions of the page.

--- sdb:robots [2026/04/14 06:09] – created appledog
+++ sdb:robots [2026/04/19 20:32] (current) – appledog
@@ Line 1: / Line 1: @@
+= ROBOTS.BAS
+This game is featured in the [[sd:sd-8516_user_s_guide#chapter_4how_to_write_games_in_stellar_basic|SD-8516 User's Guide, chapter four]].
+<codify BASIC>
+LET PX = 19
+LET PY = 11
+LET RX = 1
+LET RY = 1
+REM DRAW MAP
+GOSUB 1000
+REM GET PLAYER INPUT
+GOSUB 2000
+REM MAKE ROBOTS MOVE
+GOSUB 7000
+REM CHECK FOR COLLISION
+IF PX = RX THEN IF PY = RY THEN GOTO 4000
+REM LOOP UNTIL QUIT
+GOTO 100
+REM DRAW MAP
+VSTOP
+CLS
+LET A = ASC("*")
+FOR X = 0 TO 39
+CHARXY X, 0, A
+CHARXY X, 24, A
+NEXT X
+FOR Y = 0 TO 24
+CHARXY 0, Y, A
+CHARXY 39, Y, A
+NEXT Y
+LET PC = ASC("@")
+LET RC = ASC("r")
+CHARXY PX, PY, PC
+CHARXY RX, RY, RC
+VSTART
+RETURN
+REM *** SECTION B) INPUT LOOP
+LET K = GETKEY()
+IF K >= 97 THEN LET K = K - 32
+LET L = ASC("H")
+LET D = ASC("J")
+LET U = ASC("K")
+LET R = ASC("L")
+LET Q = ASC("Q")
+IF K = L THEN GOSUB 5000 : REM MOVE LEFT
+IF K = D THEN GOSUB 5100 : REM MOVE DOWN
+IF K = U THEN GOSUB 5200 : REM MOVE UP
+IF K = R THEN GOSUB 5300 : REM MOVE RIGHT
+IF K = Q THEN GOSUB 5400 : REM QUIT
+RETURN
+REM ROBOT CATCHES YOU
+CLS
+? "OH NO! THE ROBOT CATCHES YOU."
+? "GAME OVER."
+END
+REM MOVE PLAYER LEFT
+LET PX = PX - 1
+IF PX < 1 THEN LET PX = 1
+RETURN
+REM MOVE PLAYER DOWN
+LET PY = PY + 1
+IF PY > 22 THEN LET PY = 22
+RETURN
+REM MOVE PLAYER UP
+LET PY = PY - 1
+IF PY < 1 THEN LET PY = 1
+RETURN
+REM MOVE PLAYER RIGHT
+LET PX = PX + 1
+IF PX > 38 THEN LET PX = 38
+RETURN
+REM QUIT
+CLS
+PRINT "QUIT GAME"
+PRINT "THANK YOU FOR PLAYING!"
+END
+REM MAKE ROBOT MOVE TOWARDS PLAYER
+IF RX < PX THEN LET RX = RX + 1
+IF RX > PX THEN LET RX = RX - 1
+IF RY < PY THEN LET RY = RY + 1
+IF RY > PY THEN LET RY = RY - 1
+PLAY "T120 W1 V5 O2 L24 B"
+RETURN
+</codify>