01-19-2004, 11:16 PM
it's off by one or something so it dosnt cover up all the movement. what i dont get is that it works for moving a pixle around but it wont work for this.
Code:
SCREEN 12
FOR y = 1 TO 5
FOR x = 1 TO 7
READ map
IF map = 1 THEN LOCATE y, x: PRINT "#"
IF map = 0 THEN LOCATE y, x: PRINT "."
NEXT
NEXT
yy = 4: xx = 6
oldyy = yy: oldxx = xx
DO
press$ = INKEY$
IF LCASE$(press$) = "a" THEN
xx = xx - 1
LOCATE yy, xx + 1: PRINT "."
END IF
IF LCASE$(press$) = "d" THEN
xx = xx + 1
LOCATE y, x - 1: PRINT "."
END IF
IF LCASE$(press$) = "w" THEN
yy = yy - 1
LOCATE yy + 1, xx: PRINT "."
END IF
IF LCASE$(press$) = "s" THEN
yy = yy + 1
LOCATE yy - 1, xx: PRINT "."
END IF
LOCATE yy, xx: PRINT "@"
LOOP UNTIL press$ = CHR$(27)
DATA 1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,1
DATA 1,0,0,0,0,0,0
DATA 1,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1