Posts: 2,765
Threads: 138
Joined: Nov 2002
[syntax="QBASIC"]CLS
RANDOMIZE TIMER
DIM SHARED stringvar AS STRING
DIM integervar AS INTEGER
DIM longvar AS LONG
DIM singlevar AS SINGLE
DIM doublevar AS DOUBLE
OPEN "vars.dat" FOR RANDOM AS #1
stringvar = "pineapple"
'1 = x
'2 = y
'3 = xv
'4 = yv
SCREEN 13
stringvar = "50"
PUT #1, 1, stringvar
stringvar = "50"
PUT #1, 2, stringvar
stringvar = "0"
PUT #1, 3, stringvar
stringvar = "1"
PUT #1, 4, stringvar
PSET (INT(RND * 320) + 1, INT(RND * 200) + 1), 1
DO
GET #1, 1, stringvar
integervar = VAL(stringvar)
GET #1, 2, stringvar
singlevar = VAL(stringvar)
IF POINT(integervar - 2, singlevar) = 1 THEN END
IF POINT(integervar, singlevar - 2) = 1 THEN END
IF POINT(integervar + 2, singlevar) = 1 THEN END
IF POINT(integervar, singlevar + 2) = 1 THEN END
PSET (integervar - 1, singlevar), 0
PSET (integervar, singlevar - 1), 0
PSET (integervar + 1, singlevar), 0
PSET (integervar, singlevar + 1), 0
PSET (integervar, singlevar), 4
GET #1, 3, stringvar
integervar = integervar + VAL(stringvar)
stringvar = STR$(integervar)
PUT #1, 1, stringvar
GET #1, 4, stringvar
singlevar = singlevar + VAL(stringvar)
stringvar = STR$(singlevar)
PUT #1, 2, stringvar
SELECT CASE INKEY$
CASE "q": END
CASE "s"
stringvar = "0"
PUT #1, 3, stringvar
stringvar = "1"
PUT #1, 4, stringvar
CASE "w"
stringvar = "0"
PUT #1, 3, stringvar
stringvar = "-1"
PUT #1, 4, stringvar
CASE "a"
stringvar = "-1"
PUT #1, 3, stringvar
stringvar = "0"
PUT #1, 4, stringvar
CASE "d"
stringvar = "1"
PUT #1, 3, stringvar
stringvar = "0"
PUT #1, 4, stringvar
END SELECT
doublevar = TIMER
DO: LOOP UNTIL TIMER - doublevar > .01
LOOP[/syntax]
the object is to run into the blue dot. i think....
Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.