by teh way controls:
"w" = up
"s" = down
"a" = left
"d" = right
"q" = quit
Code: Select all
CLS
DIM field$(15)
field$(1) = " __________________________________________________"
field$(2) = "| |"
field$(3) = "| |"
field$(4) = "| |"
field$(5) = "| |"
field$(6) = "| |"
field$(7) = "| |"
field$(8) = "| |"
field$(9) = "| |"
field$(10) = "| |"
field$(11) = "| |"
field$(12) = "| |"
field$(13) = "| |"
field$(14) = "| |"
field$(15) = "|__________________________________________________|"
x = 7
y = 7
enemyx = 2
enemyy = 2
FOR mz = 1 TO 15
PRINT field$(mz)
NEXT mz
DO
kp$ = INKEY$
oldx = x
oldy = y
LOCATE y, x
PRINT ".0."
LOCATE y, x
PRINT " "
IF kp$ = "q" THEN END
IF kp$ = "w" THEN y = y - 1
IF kp$ = "s" THEN y = y + 1
IF kp$ = "a" THEN x = x - 1
IF kp$ = "d" THEN x = x + 1
LOCATE y, x
PRINT ".0."
IF MID$(field$(x), y, 1) = "|" THEN
LOCATE y, x
PRINT "___"
x = oldx
y = oldy
END IF
IF MID$(field$(x), y, 1) = "_" THEN
LOCATE y, x
PRINT "|"
x = oldx
y = oldy
END IF
LOOP