Thanks...but..no joy

by unseenmachine (no login)

SLEEP ! seems to be the only thing that makes this work, but i dont want it to sleep....arghhh!!!!

My code is...

'COUNTDOWN VERSION V.01
DIM RNDVWL(3) AS INTEGER, RNDCON(5) AS INTEGER, USRSCR AS INTEGER
DIM LTR(9) AS STRING, ltrcnt AS INTEGER
DIM LTRX AS INTEGER, LTX AS INTEGER, USRNME AS STRING

RANDOMIZE TIMER
SCREEN 12
CLS

'MOUSE
DIM m(8) AS LONG, MB AS INTEGER, MX AS INTEGER, MY AS INTEGER
m(0) = &H8BE58955
m(1) = &H78B0C5E
m(2) = &HD88933CD
m(3) = &H890A5E8B
m(4) = &H85E8B07
m(5) = &H5E8B0F89
m(6) = &H5D178906
m(7) = &H8CA
DEF SEG = VARSEG(m(0))
'CALL absolute(1, MB, MX, MY, VARPTR(m(0)))
'CALL absolute(2, mb, MX, MY, VARPTR(m(0)))
'CALL absolute(3, MB, MX, MY, VARPTR(m(0)))

'initial values
LTRX = 10: USRSCR = 0: LTX = 180
TILE$ = "L11H3U22E3R22F3D22G3L11"
BTN$ = "L40H3U20E3R80F3D20G3L40"
TPBTN$ = "L100H3U20E3R200F3D20G3L100"

COLOR 11: LOCATE 2, 32: PRINT "Countdown v.01"
COLOR 3: LOCATE 3, 32: PRINT "--------------"
DO
COLOR 15: LOCATE 5, 1: INPUT "Enter your name : ", USRNME$
LOOP UNTIL USRNME$ > ""
LOCATE 5, 1: PRINT SPACE$(78)

LOCATE 5, 2: PRINT "Welcome "; USRNME$; " to CountDown"
LOCATE 7, 2: PRINT "To play choose 9 letters. 3 vowels and 5 consonants."
LOCATE 9, 2: PRINT "Use the letters to make as big a word as possible."
LOCATE 11, 2: PRINT "You have 30 seconds to type in your words...Enjoy."
SLEEP 20
CLS

'SHOW MOUSE, DRAW BUTTONS, DRAW BANNER
CALL absolute(1, MB, MX, MY, VARPTR(m(0)))
COLOR 5: PSET (163, 403): DRAW BTN$
COLOR 5: LOCATE 25, 19: PRINT "VOWEL"
COLOR 3: PSET (443, 403): DRAW BTN$
COLOR 3: LOCATE 25, 52: PRINT "CONSONANT"
COLOR 15: PSET (303, 52): DRAW TPBTN$
LOCATE 3, 30: PRINT "*** COUNTDOWN ***"


COLOR 15
DO
DO
CALL absolute(3, MB, MX, MY, VARPTR(m(0)))
LOCATE 2, 1: PRINT MX, MY
LOOP UNTIL MB = 1
IF MY > 377 AND MY < 403 THEN
IF MX > 119 AND MX < 205 THEN
RNDLTR(ltrcnt) = INT(RND * 25) + 65
LTR(ltrcnt) = CHR$(RNDLTR(ltrcnt))
ltrcnt = ltrcnt + 1
LOCATE LTRX, 23: PRINT LTR(ltrcnt)
END IF
IF MX > 399 AND MX < 487 THEN
END IF
END IF
PSET (LTX, 165): DRAW TILE$
LTX = LTX + 40
IF MB <> 0 THEN MB = 0
LOOP UNTIL ltrcnt = 9





Posted on Dec 29, 2009, 6:26 PM

Respond to this message   

Return to Index


Response TitleAuthor and Date
* PRINT your variables! You get an overflow too. on Dec 29
 Huh???Warp 10 on Dec 29
  It does nothing but take my name. A keypress kills SLEEP 20(or is it 30?).... on Dec 29
   I dont want it written..i just need an answerunseenmachine on Dec 30