%Terry Whitlow
%October 19, 2006
process DoMusic
    loop
        Music.PlayFile ("M:/My Music/Mario.mp3")
    end loop
end DoMusic
fork DoMusic
for i : 1 .. 200
    locate (20, 20)
    drawoval (i, i, i, i, i)
    delay (10)
    put "WELCOME TO TERRY'S HIGH AND LOW GAME, ENJOY YOURSELF"
end for
delay (5)
drawfillbox (0, 0, 640, 400, 175)
put "LOADING...PLEASE WAIT FOR THE GAME TO LOAD"
delay (1000)
drawfillbox (0, 0, 640, 400, 0)
var playAgain, difficulty, userName : string
var numGuess, timeRunning, userGuess, randNum, n1, n2 : int
put "What is your name?"
get userName
put "Welcome ", userName, "."
loop
    put "Please enter the difficulty you want, (e)asy, (m)edium, (h)ard, or (c)ustom."
    get difficulty
    if difficulty = "e" then
        randint (randNum, 1, 10)
        put "EASY DIFFICULTY--Please guess the number I am thinking between 1 and 10."
    elsif difficulty = "m" then
        randint (randNum, 1, 100)
        put "MEDIUM DIFFICULTY--Please guess the number I am thinking between 1 and 100."
    elsif difficulty = "h" then
        randint (randNum, 1, 1000)
        put "HARD DIFFICULTY--Please guess the number I am thinking between 1 and 1000."
    elsif difficulty = "c" then
        put "Type the number you want as the lowest"
        get n1
        put "Type the number you want as the highest"
        get n2
        randint (randNum, n1, n2)
        put "CUSTOM DIFFICULTY--Please guess the number I am thinking between the 2 numbers you chose, which are ", n1, " and ", n2, "."
    end if
    numGuess := 0
    loop
        get userGuess
        if userGuess = randNum then
            put "Congratulations, ", userName, ", you have outsmarted me"
            numGuess := numGuess + 1
        elsif userGuess < randNum then
            put "Too low, try again"
            numGuess := numGuess + 1
        elsif userGuess > randNum then
            put "Too high, try again"
            numGuess := numGuess + 1
        end if
        exit when userGuess = randNum
    end loop
    timeRunning := Time.Elapsed
    put "This has taken you ", numGuess, " guess('s)"
    put "This has taken you ", timeRunning / 1000, " seconds"
    put "Thanks for playing"
    put "Would you like to play again?(y)es , (n)o."
    get playAgain
    exit when playAgain = "n"
end loop
loop
    drawfillbox (0, 0, 640, 400, 175)
    put "THANK YOU FOR PLAYING, PLEASE PLAY AGAIN"
    delay (2500)
end loop