/******************************/
/* High-Low Game */
/* This program will ask the */
/* user a to guess a random */
/* number and will tell them */
/* whether it is lower, higher*/
/* or is the number */
/******************************/
% The music that will play through the game
process music
loop
play ("4CDEFG5CDEFG6CCCDDDEEEFFFGGG2ACDE1CC2DEF1GGFDE8CCCDDDEEEFFF2ACED8GGGCCCDDDEEEFFF2ACED8GGGCCCDDDEEE")
end loop
end music
fork music
% Variables
var num, ans : int % the random number and the users answer
var font1 : int
var any : string (1) % for the getch command
var name : string % the users name
var count : int := 0 % to tally the users guesses
var aver : real
% Title Screen
% The intro screen to show that the game started
drawfillbox (0, 0, 700, 400, 2)
font1 := Font.New ("lithograph:30:italic")
assert font1 > 0
Font.Draw ("Highs and Lows", 130, 192, font1, red)
for y : 90 .. 120
drawarc (200, y, 120, 50, 0, 180, 7)
drawarc (440, y, 120, 50, 180, 0, 7)
delay (50)
end for
locate (23, 30)
colorback (2)
put "Press any key to continue"
locate (25, 43)
getch (any)
cls
% Instruction Screen
% Will inform the user of what to do and will get the users name
put "Lets start with your name. What is it?"
get name
put "Well ", name, " let me tell you the rules before we start."
getch (any)
put "This is a high low game, so you have to guess a random number between 1 and 100."
getch (any)
put "Please don't put any numbers over 100 or under 1."
delay (2500)
put "Ok, now that you have an idea of what to do, lets get started!"
put "Press Any Key"
getch (any)
cls
% High-Low Code
% will repeat if user wants to
loop
% To tally the amount of times it was played
var plays : real := 0
plays := plays + 1
% The random number that will be guessed
randomize
randint (num, 1, 100)
put "Guess a number between 1 and 100"
loop
get ans
% To see if the user gets the number right
% This will repeat if the user gets it wrong, will exit when the user guesses it right
if ans > 100
then
put "Please keep it below 100"
count := count + 1
elsif ans < 1
then
put "Please keep it above 1"
count := count + 1
elsif ans = num
then
put "You guessed right"
count := count + 1
elsif ans > num
then
put "Nope, your too high. Guess again"
count := count + 1
elsif ans < num
then
put "Nope, your too low. Guess again"
end if
exit when ans = num
end loop
delay (2000)
cls
% Info for the users to see their average and amount of tries
aver := count / plays
put "", name, " it took you ", count, " tries to guess the number."
put "Your average amount of guesses is:", aver
put "Would like to countinue?y/n"
getch (any)
cls
% If the user chooses to quit, the game will end
if any = "n"
then
cls
put "Thanks for playing!"
exit when any = "n"
end if
end loop |
Register
Wiki
Blog
Search
Turing
Chat Room
Members
