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

Dylan-182

Sat May 21, 2005 12:11 am


RANDOM NUMBER GAME

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

thi sis my random number game, im going to update it later and add a music selection screen aswell as music  :lol:  but until then here is my random number game :D 


% AUTHOR : DYLAN CAUME
var randomNumber : int
var guess1 : int
var guess2 : int
var guess3 : int
var guess4 : int
var choice : int 

colourback (black)
colour (brightred)
cls
locate (11, 32)
put "NUMBER GUESS"

delay (3000)
cls
locate (11, 25)
put "PLEASE CHOOSE A NUMBER RANGE"
put "1) 1 - 25"
put "2) 1 - 50"
put "3) 1 - 75"
put "4) 1 - 100"

% FIRST CHOICE
locate (13, 25)
get choice
if choice = 1 then

    delay (2000)
    cls
    locate (11, 25)
    put "PLEASE GUESS A NUMBER BETWEEN 1 & 25"

    randomNumber := Rand.Int (1, 25)

    loop
        locate (13, 25)
        get guess1
        if guess1 > randomNumber then
            locate (14, 25)
            put "TOO HIGH GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 25"
        elsif guess1 < randomNumber then
            locate (14, 25)
            put "TOO LOW GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 25"
        elsif guess1 = randomNumber then
            locate (14, 25)
            put "YOU GOT IT!!"
            exit

        end if

    end loop
end if

%SECOND CHOICE
locate (13, 25)
if choice = 2 then

    delay (2000)
    cls
    locate (11, 25)
    put "PLEASE GUESS A NUMBER BETWEEN 1 & 50"

    randomNumber := Rand.Int (1, 50)

    loop
        locate (13, 25)
        get guess2
        if guess2 > randomNumber then
            locate (14, 25)
            put "TOO HIGH GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 50"
        elsif guess2 < randomNumber then
            locate (14, 25)
            put "TOO LOW GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 50"
        elsif guess2 = randomNumber then
            locate (14, 25)
            put "YOU GOT IT!!"
            exit

        end if

    end loop
end if

%THIRD CHOICE
locate (13, 25)
if choice = 3 then

    delay (2000)
    cls
    locate (11, 25)
    put "PLEASE GUESS A NUMBER BETWEEN 1 & 75"

    randomNumber := Rand.Int (1, 75)

    loop
        locate (13, 25)
        get guess3
        if guess3 > randomNumber then
            locate (14, 25)
            put "TOO HIGH GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 75"
        elsif guess3 < randomNumber then
            locate (14, 25)
            put "TOO LOW GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 75"
        elsif guess3 = randomNumber then
            locate (14, 25)
            put "YOU GOT IT!!"
            exit

        end if

    end loop
end if

% FOURTH CHOICE
locate (13, 25)
if choice = 4 then

    delay (2000)
    cls
    locate (11, 25)
    put "PLEASE GUESS A NUMBER BETWEEN 1 & 100"

    randomNumber := Rand.Int (1, 100)

    loop
        locate (13, 25)
        get guess4
        if guess4 > randomNumber then
            locate (14, 25)
            put "TOO HIGH GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 100"
        elsif guess4 < randomNumber then
            locate (14, 25)
            put "TOO LOW GUESS AGAIN"
            delay (2000)
            cls
            locate (11, 25)
            put "PLEASE GUESS A NUMBER BETWEEN 1 & 100"
        elsif guess4 = randomNumber then
            locate (14, 25)
            put "YOU GOT IT!!"
            exit

        end if

    end loop
end if



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

Dylan-182

Sat May 21, 2005 12:13 am



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

so there it is tell me what u think of it and any improvements you can think of for it :D ty and have fun :P  :lol:  :P


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

Cervantes

Sat May 21, 2005 8:18 am



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

I thought you said you knew how to use loops and for loops and heck, even arrays.  If so, why are you making this program?  And why is it so many lines.  And why is it not error-proofed?

Here's my version of your program, with the exact same output (except I reduced some of the long delays) only it's error proofed and comes in a bit more than 1/4 of the lines.


colourback (black)
colour (brightred)
cls

var theNum, guess, input_int, numberRange : int
var input_string : string

proc inputInteger (low, high : int)
    loop
        locate (13, 25)
        get input_string
        if strintok (input_string) then
            input_int := strint (input_string)
            exit when input_int >= low and input_int