Number Guessing Game

by jaredzhao@live.com

This is a number guessing game where you get ten tries to guess the number that the computer randomly chooses. This project was programmed by a sixth grader using Logo at Challenger School. This project illustrates

• random numbers
• variables
• text-based project

GuessNumbers.lgo

;GUESSING GAME 9.3

;WARNING

;PLEASE DO NOT CHANGE ANY OF THE PROCEDURES
;UNLESS TOLD TO DO SO
;ONE LITTLE CHANGE CAN CHANGE THIS GAME ENTIRELY

;WARNING

TO Main
    cs ct
    make "counter 0
    make "times 0
    user
    Intro
END
TO user
    pr "|Please type in your first name:|
    make "title read
    pr "|Please type in your age:|
    make "age read
END
TO Hold
    pr "|To continue, press any key|ignore rc
END
TO Intro
    cs ct
    type se "|Welcome|:title pr "|, to Guessing Game 9.3 Created by Jared Zhao in March 4, 2011. |
    pr "|This game was created for Mrs. Godzich, one of my computer teachers.|
    pr "|In this game, the computer will make up a number from 1 to 1,000.|
    pr "|You will be given multiple tries to guess the number.|
    pr "|You will have ten turns (correct guesses).|
    Hold
    pr "|In the end, your total guesses will be compared with the correct guesses you had.|
    pr "|The lower guesses in your total, the better.|
    Hold
    Menu
END
TO Menu
    cs ct
    make "counter 0
    make "times 0
    pr "|Welcome to the Main Menu.|
    pr "|If you have not played this game before and would like a demo, press d|
    pr "|If you have played this game before and want to skip the demo and go straight to the game, press s|
    pr "|If you would like to know about previous guessing games, press p|
    make "control rc
    if :control = "d then demo1
    if :control = "s then start
    if :control = "p then previous
END
TO demo1
    cs ct
    pr "|Welcome to the Demo.|
    pr "|In the Demo, you will be taught the main concepts of this game.|
    Hold
    pr "|The computer will have a number from 1 to 1,000.|
    pr "|Your objective is to guess the computer's number.|
    pr "|You will be given multiple tries.|
    Hold
    ct
    pr "|.|
    wait 400 ct
    pr "|..|
    wait 400 ct
    pr "|...|
    wait 400 ct
    pr "|....|
    wait 400 ct
    pr "|.....|
    wait 600 ct
    pr "|Okay, I have a number. Guess away!!!|
    r.demo2
END
TO r.demo2
    make "r.set.number random 1000
    demo2
END
TO demo2
    make "answer read
    If :answer > 1000 then sorry1
    If :answer < 1 then sorry2
    If :answer = :r.set.number then pr (se "|Congradulations. |word :answer char 32 "|You have passed the Demo. You will be directed back to the Main Menu once you press any key|)ignore rc menu
    If :answer < :r.set.number then pr (se "|Sorry,|:title "|, that was incorrect...|word :answer char 32 "|was smaller than the set number... please try again|)demo2
    If :answer > :r.set.number then pr (se "|Sorry,|:title "|, that was incorrect...|word :answer char 32 "|was bigger than the set number... please try again|)demo2
END
TO sorry1
    pr "|Sorry,|:title "|, your number MUST be between 1 and 1000 ... yeah I know... maybe in Guessing Game 9.3 I'll make it 1 to 1 trillion...|
    Hold
    demo2
END
TO sorry2
    pr "|Sorry,|:title "|, your number MUST be between 1 and 1,000 ... Please guess again.|
    Hold
    demo2
END
TO previous
    cs ct
    pr "|Guessing Game 1.0 and 2.0 are both games that have started the creator of these games mind.|
    pr "|He, from those games, begane to make Guessing Game 3.0 , 4.0 , 5.0 , and 6.0 . They have all been an epic fail...|
    pr "|But, he did not quit. He continued by making 7.0 , 7.1 , 7.2 , and 7.3 . They have been a Terrapin Logo Gussing Game Revolution.|
    pr "|Guessing Game 8.0 has evolved from 7.3 .|
    Hold
    pr "|8.0 has turned easily into 8.1 , 8.2 , and 8.3 . With the encouragement of Mrs. Godzich, Jared has made 9.0 .|
    pr "|He originally got the idea of Guessing Game 7.0 (the computer picks random numbers) from Abed Alsolamon, so give him credit.|
    pr "|Jared Zhao looks forward to expanding Guessing Game 9.0 and starting 10.0 .|
    pr "|He is already thinking about branching off from Guessing Games.|
    pr "|To go back to the Main Menu, press any key.|ignore rc
    menu
END
TO start
    cs ct
    make "total 0
    pr "|Welcome to Guessing Game 9.3 .|
    pr "|To go through the rules press r.|
    pr "|To continue to the game, press c.|
    pr "|To go back to the main menu, press m.|
    make "control rc
    if :control = "r then rules
    if :control = "c then game1 4 0
    if :control = "m then menu
END
TO rules
    cs ct
    pr "|The rules to this game is simple. When the computer asks you to guess a number, just type in the number and press enter.|
    pr "|You are alowed to guess numbers from 1 to 1,000 . If you don't guess from 1 to 1,000 , then your computer will receive a virus. No... I was kidding.|
    pr "|If you don't guess from 1 to 1,000 , the computer will count that as a guess but tell you that your bounderies are from 1 to 1,000 .|
    pr "|To go back to the game, press any key.|ignore rc
    start
END
TO game1 :counter :times
    make "tnt :total + :counter
    make "set.number random 1000
    cs ct
    if :counter = 5 then maybe :tnt; over
    ct
    pr "|.|
    wait 400 ct
    pr "|..|
    wait 400 ct
    pr "|...|
    wait 400 ct
    pr "|....|
    wait 400 ct
    pr "|.....|
    wait 500 ct
    pr "|Okay, I have a number. Guess away!!!|
    game2 :counter :times
END
TO game2 :counter :times
    make "guess read
    If :guess = :set.number then congratulation :guess :counter :times
    If :guess < :set.number then bigger :guess :times :counter
    If :guess > :set.number then smaller :guess :times :counter
END
TO congratulation :guess :counter :times
    type "|Congratulations!|type :guess type char 32 type "|was the correct answer.|
    Hold
    game1 :counter + 1 :times + 1
END
TO bigger :guess :times :counter
    type "|Sorry...|type char 32 type :guess type char 32 type "|was not the correct answer. The set number is bigger than|type char 32 type :guess type char 32 type ". pr "| please select another number.|
    game2 :counter :times + 1
END
TO smaller :guess :times :counter
    type "|Sorry...|type char 32 type :guess type char 32 type "|was not the correct answer. The set number is smaller than|type char 32 type :guess type char 32 type ". pr "| please select another number.|
    game2 :counter :times + 1
END
TO maybe :total
    type "|You have had |type :total pr "| turns. Do you want to keep on playing or do you want to quit?|
    pr "|To continue the game, press c.|
    pr "|To quit the game and see your profile, press p.|
    make "control rc
    If :control = "c then game1 0
    If :control = "p then profile
END
TO over
    cs ct
    type "|You have had 10 turns. Your final score is|type char 32 type word :times char 32 type "guesses type char 32 type "/ type char 32 type "10 type char 32 pr "totalguesses.
    pr "|The creator of Guessing Game 9.3 -AND- the computer are always welcoming you to play again.|
    pr "||
    pr "|GUESSING GAME 9.3|
    pr "|BY JARED ZHAO|
    pr "|MARCH 5, 2011|
    pr "||
    pr "||
    pr "||
    pr "||
    pr "|Press any key to see your profile.|
    ignore rc
    profile
END
TO profile
    pr :title
    type "|It took|type word :title char 32 type word char 32 :times pr "| tries to get 10 correct|
    type :title type "|is|type word char 32 :age type char 32 pr "|years old.|
END

main

;Guessing Game 9.3
;by Jared Zhao
;sixth grade
;Challenger School
;March 5, 2011

---

Procedure	MAIN
Description	A number guessing game
Level	Beginner
Tags	Guess, Numbers