# MUST I OPTIMIZE EVERYTHING YOU DO?

'REVISED RND GAME
DEFINT A-Z
RANDOMIZE TIMER
CLS
DIM pa AS STRING, na AS STRING
DIM dnum AS STRING, g AS INTEGER, difficulty(4) AS INTEGER
difficulty(1) = 50
difficulty(2) = 150
difficulty(3) = 300
difficulty(4) = 500

FOR i = 1 TO 11
READ c1, y, x, q\$, slp
GOSUB display
SELECT CASE i
CASE 3: CLS
CASE 7: IF VAL(inpt\$(2)) < 1 OR VAL(inpt\$(2)) > 4 THEN GOSUB redo
CASE 8: IF rndnum% = 0 THEN rndnum% = INT(RND * difficulty(VAL(inpt\$(2)))) + 1
CASE 9
CLS
SELECT CASE VAL(inpt\$(3))
CASE IS > rndnum%
LOCATE 14, 20
PRINT "SORRY " + inpt\$(1) + " TOO HIGH!!": SLEEP 2: CLS : GOSUB redo
CASE IS < rndnum%
LOCATE 14, 20
PRINT "SORRY " + inpt\$(1) + " TOO LOW!!": SLEEP 2: CLS : GOSUB redo
END SELECT
CASE 11: IF UCASE\$(inpt\$(4)) = "Y" THEN RUN
END SELECT
NEXT
CLS
END
'end of program

display:
COLOR c1
LOCATE y, x
SELECT CASE q\$
CASE "x-60": q\$ = SPACE\$(60)
CASE "x-p": q\$ = " Okay " + inpt\$(1) + " I'm thinking of a number between 1 and " + LTRIM\$(STR\$(difficulty(VAL(inpt\$(2))))) + ".."
CASE "x-win": q\$ = " YOOOU WIIIN " + inpt\$(j) + "!!!"
END SELECT
PRINT q\$;
SELECT CASE slp
CASE 0: j = j + 1: INPUT inpt\$(j)
CASE ELSE: PRINT : SLEEP slp: key\$ = INKEY\$
END SELECT
RETURN

redo:
i = i - 2
j = j - 1
RESTORE datax
FOR h = 1 TO i
READ c1, y, x, q\$, slp
NEXT h
RETURN

datax:
DATA 7,12,30,Welcome toooo the..,1
DATA 7,13,30,..........,1
DATA 4,14,30,GUESS THE NUMBER GAAAME!!!,2
DATA 9,14,20,x-60,1
DATA 9,14,20,What game level would you like (1-4),0
DATA 9,14,20,x-60,1
DATA 4,14,20,x-p,2
DATA 9,16,20,What is my number??,0
DATA 14,13,30,x-win,3
DATA 9,13,25,"Would you like to play again (Y/N)",0

-----------------------------------------

Posted just for fun, yours works fine, although you should remember that you don't need a space in front of a variable, the program automatically ads a space in front of a number. It does so in case there is a minus sign.

Also if the num > 0 and num < 5 works for numbers 1, 2, 3, and 4 instead of
<br>
lev > 0 OR lev >= 1 OR lev <= 4. Also IF num < 0 OR num > 4 works for the numbers 1, 2, 3, and 4, also.

My example isn't very straight forward. Mostly it shows what can be done with arrays and DATA statements to shorten repeated statements in a program.

I didn't take the time to comment the code. I've been short on time lately and I'm actually getting behind on things by coding again. Anyway, I thought it might be fun for you to see how programs can be coded differently and still achieve the same results.

Nice job on finishing your project,

Pete

 This message has been edited by The-Universe on Nov 23, 2009 12:01 AM

Posted on Nov 22, 2009, 11:36 PM