var number, guess : int
var count : int := 1
var my_money : real := 10.00
randint (number, 1, 10) %Picks a random number from 1 to 10
%Can make it pick from any set of numbers by changing the number '10' to any numver you want


put repeat (" ", 20), "Welcome to Randy's Guessing Game"
put "You are guessing three numbers between 1 and 10.Every guess cost you one dollar.Guess all three numbers before you run out of money and you. You start with $10."
put " You have $10 left in your account. One turn costs 1 dollar."
put "Can You Guess What It Is?"

loop %repeat code until stoped
    put "Enter Your Guess"

    get guess %user puts in his/her guess

    if guess = number then %If user guesses the correct number
        put "CORRECT"
        if count >= 1 then %number of tries are counted

            put "It took you ", count, " tries to get the number" %tells user how many tries it took them
        end if

        put "The number was ", number %puts what the secert number was
    end if

    if guess > number then %if the user inputs a number higher then the secrect number
        put "TO HIGH"
        var my_money : real := -1
    elsif guess < number then %if the user inputs a number lower then the secrect number
        put "TO LOW"
    end if

    count := count + 1 %each time the loop re-runs, count is added by one

    exit when guess = number %exit out of repeating loop when user gets the correct number

end loop %end the reapetative loop

var number, guess : int
var count : int := 0
var WhichRandomNumber : int := 1
var TotalRandomNumberCount : int :=3
var my_money : real := 10.00
randint (number, 1, 10) %Picks a random number from 1 to 10
%Can make it pick from any set of numbers by changing the number '10' to any numver you want


put repeat (" ", 20), "Welcome to Randy's Guessing Game"
put "You are guessing three numbers between 1 and 10.Every guess cost you one dollar.Guess all three numbers before you run out of money and you. You start with $10."
put " You have $10 left in your account. One turn costs 1 dollar."
put "Can You Guess What It Is?"

loop %repeat code until stoped
    put "Enter Your Guess"

    get guess %user puts in his/her guess
    my_money := my_money - 1
    count := count + 1

    % This gets changed to reflect the combinations possible.
    if guess = number then %If user guesses the correct number
        put "CORRECT"
        if count >= 1 then %number of tries are counted

            put "It took you ", count, " tries to get the number" %tells user how many tries it took them
        end if

        put "The number was ", number %puts what the secert number was
        WhichRandomNumber := WhichRandomNumber + 1
        if WhichRandomNumber = TotalRandomNumber
            put "Congratulations, you are a winner"
            exit
        else
             randint (number, 1, 10) %Picks a random number from 1 to 10
            count := 1
        end if
   elsif guess > number then %if the user inputs a number higher then the secrect number
        put "TOO HIGH"
    elsif guess < number then %if the user inputs a number lower then the secrect number
        put "TOO LOW"
    end if
    if (my_money=0.00)
       put "You are broke, sorry"
    end if

end loop %end the reapetative loop

         put "It took you ", count, " tries to get the number"

    put "You have $",money," remaining."