Thanks...but..no joyby 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 |
| Response Title | Author 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 answer | unseenmachine on Dec 30 |