Psychic Thing

MystikShadows showed me this as a flash game, and i made a basic version of it. have fun:

'psychic thing

'public domain... insomuch as a total ripoff of someone's flash
'game is public domain of course...

'(the code is completely original.)

'2006 menno

'the following are random single-digit hex values
'they are hardcoded to be the same every time, but they're still random.
a$ = "D4C2F9929F3D4EBA5A827B4103A7F03AFAE8D27DE10DF2F425A"
a$ = a$ + "679A8F8884A351FA05458967BAE462C9105B4291A91010768CB"

CLS : COLOR 12: LOCATE 7: PRINT " think of any two digit number, for example, 23, 57,"
PRINT : PRINT " or 84. say you choose 28: you would add 2+8 to get 10, then"
PRINT : PRINT " subtract that 10 from your number to get your new number."

PRINT : PRINT
COLOR 14: PRINT " press any key to continue"

SLEEP

CLS

RANDOMIZE TIMER
nine = INT(RND * 16)

CLS : LOCATE 3: PRINT " now find the symbol next to your new number, and"
PRINT
PRINT " concentrate on it for 10 seconds..."
PRINT : PRINT

FOR n = 1 TO 100
COLOR 12 + 2 * ABS((n / 2) = INT(n / 2))
IF (n / 9) = INT(n / 9) THEN
PRINT n; SPACE$(2); CHR$(nine + 224); SPACE$(4 + INT(RND * 2) * 3);
ELSE
PRINT n; SPACE$(2); CHR$(VAL("&h" + MID$(a$, n, 1)) + 224); SPACE$(2);
END IF
NEXT

FOR n = 1 TO 15
t$ = TIME$: DO: LOOP UNTIL TIME$ <> t$: NEXT n

CLS : COLOR 12: LOCATE 10, 30: PRINT "your symbol is: ";
COLOR 14: PRINT CHR$(224 + nine)

COLOR 7

SLEEP
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.