%%%%^^^^^^^%%%%%%%%%%%^^^^^^^^^^^^GUESSING GAME%%%%%%%%%%%^^^^^^^^^^^%%%%%%%%%%%%%%%%%%%%%
%%% By Codi
%%% DO not Copy
% Picking a color for the back ground
colorback (9)
Draw.FillBox (1, 1, maxx, maxy, 9)
var number : int
var guess : int
var numberOfGuesses : int := 0
var start : string
var lowscore : int := 100
var Smiley : int
var x, y : int
var theDateTime, theDate, theTime : string
var lvl : string
var name, fileName : string := "bestscore.t"
var score, fileNo : int
var timeRunning : int
var greeting : string
theDateTime := Time.Date
theDate := theDateTime (1 .. 9)
theTime := theDateTime (11 .. *)
put "Greetings Neigbour!! The date and time today is ", Time.Date
put "Hello, World!"
for i : 1 .. 10
delay (1)
Window.Hide (defWinID)
delay (1)
Window.Show (defWinID)
end for
put "How are you?"
get greeting
if greeting = "good" then
put "thats good i am fine too"
elsif greeting = "bad" then
cls
put " Aww I hope you are better soon"
end if
put "In this game you have to pick a number betwen 1,100 the program will then tell you to guess higher or lower until you get the number"
put "guessed. See how few of guesses it will take you."
loop
% Generating a Random Number
number := Rand.Int (1, 100)
numberOfGuesses := 0
%Asks if the user would like to play again or quit
put "Would you like to play a guessing game? i know you do so all you have to do is type Yes It is CaSe SeNsItIvE or Type No to Quit"
get start
if start = "No" then
quit
elsif start = "Yes" then
end if
cls
loop
locate (4, 1)
put "Please enter a number in the flashing space its about 1/2 a cm tall and 1/4 cm wide."
% Asks the user for a number to see if they get it or not
get guess
% This is the counter it adds one number everytime you make a guess
numberOfGuesses += 1
% this is when the guess is entered the program will tell you to guess higher or lower or you got it!
if guess > number then
put "GUESS LOWER THEN ", guess
elsif guess < number then
put "GUESS HIGHER THEN ", guess
elsif guess = number then
setscreen ("graphics")
for i : 1 .. 3
color (i)
put "Bravo"
end for
end if
exit when guess = number
end loop
% tells you how many guesses
colorback (black)
put "It took you ", numberOfGuesses, " guesses to guess the correct number."
if numberOfGuesses < 5 then
put "Excellent you spend way to much time on this! "
elsif numberOfGuesses > 5 and numberOfGuesses < 10 then
put "Great but there is still room for improvment!"
else
put "Mabye next time you wont suck so bad!"
end if
%getting the best score so far from file
open : fileNo, fileName, get
get : fileNo, name : * %the :*the :* is optional butreads the whole line for multiple names
get : fileNo, score
put " the best score so far is by ", name, " and its a score of ", score
close : fileNo
if numberOfGuesses < score then
put "Congrats you got a best score"
open : fileNo, fileName, put
put "enter your name"
get name
put : fileNo, name
put : fileNo, numberOfGuesses
close : fileNo
end if
timeRunning := Time.Elapsed div 1000
put "This program has ran ", timeRunning, " Seconds"
end loop
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
also i think someone else has done it before that... and before that
