Guess It in SmallBasic
REM Guess what number for SmallBasic
REM E.K.virtanen. 2007, public domain
REM Made for http:: REMwww.ascii-world.com/guess-it

REM const variables
const Lowest = 1
const Highest = 99

REM main loop of program
CanExit = false
while (CanExit = false)
    cls
    randomize timer
    Randomed = int(Highest * rnd) + Lowest        : REM number to guess
    Rounds = 0
    print " # Guess the number im thinking?"
    print " # E.K.Virtanen 2007, public domain."
    print " # www.ascii-world.com"
    print ""
    print "Ok, i think random number between "; Lowest; " to "; Highest + Lowest; "."
    print "Your job is to guess what it is in as minimal tries as possible."
    print ""
    print "After your every guess, ill give you hint is my number higher or lower than your guess."
    print "You can exit by 'guessing' 0."
    print "Press any key to start game.";
    pause

    REM loop of game
    Rounds = 0
    ExitGame = false
    cls
    repeat
        Rounds = (Rounds + 1)
        print ""
        print ""
        print "This is round number: "; Rounds; "."
        input "Give your guess: "; PlrGuess

        REM now we check the user input
        REM if player wants to quit we change falses to trues
        if PlrGuess = 0 then
            CanExit = true
            exit
        end if

        REM if it's higher...
        if PlrGuess > Randomed THEN
            Print "My number is smaller..."
        end if

        REM if it's lower
        if PlrGuess < Randomed THEN
            Print "My number is higher..."
        end if

        REM and finally, if it was correct guess we end loop
        if PlrGuess = Randomed then 
            ExitGame = true
        end if
    until(ExitGame = true)

    REM if only correct answer and no full exit we print out result of rounds.
    if CanExit = false then
            print "You got it!!!"
            print "It took "; Rounds; " rounds to guess right number."
            print ""
            input "Press 'y' to play again. Any other key to quit."; YesNo$
            if upper(YesNo$) <> "Y" then 
                CanExit = true
            end if
    end if

wend
print "Thank you for playing."
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.