# my number game! verry fun!

this is my number game that i made. the rules are already in the game just copy and paste into TBanything and run...
please comment on a scale of 1-10 on how much people like it i made it in like 3 days...

the instructions section may look messed up in the posting window but i just tried copying it and pasting it into TBBRONZE and it works it's not messed up.

PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT " NUMBER GAME"
PRINT
PRINT " Programmed by CHUNK"
PRINT " David Thompson"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT " Instructions:"
PRINT " In this game you will have to guess a number between 1 and 10. You have three chances to guess"
PRINT " the number. Each time a number is guessed a single hint will be given. Everytime a number is guessed"
PRINT " correctly the player will recieve a point. Everytime three guesses are given and the number is still"
PRINT " not guessed correctly the computer will gain a point. If a number less than 1 is guessed than the"
PRINT " computer will gain 2 points. Everytime a number greater than 10 is guesses the computer will gain"
PRINT " 2 points. The game will end whenever either the player's or the computer's score equals 10."
PRINT
PRINT " Have fun and Enjoy the NUMBER GAME"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PAUSE 7
PRINT " Press any key to continue."
GET KEY pse
CLear

Let a\$ = "y"
do while a\$ = "y" !loop 1 start
clear

LET SCORE1 = 0
LET SCORE2 = 0
DO WHILE SCORE1 <= 10 OR SCORE2 <= 10 !LOOP 2 stART

Randomize
let NUM=int(10*rnd)+1 !random number statement
LET NOGUESSES = 0
DO while NOGUESSES <= 3 !loop 3 start

PRINT
PRINT
PRINT "Player" ;SCORE1
PRINT
PRINT " CPU" ;SCORE2
PRINT
PRINT

INPUT prompt "What is your guess (1-10)" :GUESS

IF GUESS = NUM THEN
PRINT
PRINT
PRINT "CORRECT!"
PRINT "THE NUMBER WAS";NUM
LET SCORE1 = SCORE1 + 1
CLEAR
END IF

IF GUESS > NUM THEN
PRINT
PRINT
PRINT "TOO HI"
PRINT
LET NOGUESSES = NOGUESSES + 1
END IF

IF GUESS < NUM THEN
PRINT
PRINT "TOO LOW"
LET NOGUESSES = NOGUESSES + 1
END IF

IF GUESS > 10 THEN
PRINT
PRINT
PRINT "DON'T BE SMART WITH ME I SAID BETWEEN 1 AND 10. START OVER"
PRINT "YOU LOSE"
LET NOGUESSES = NOGUESSES + 2
LET SCORE2 = SCORE2 + 1
CLEAR
END IF

IF GUESS < 1 THEN
PRINT
PRINT
PRINT "DON'T BE SMART WITH ME, NO NEGATIVES! YOU LOSE"
LET NOGUESSES = NOGUESSES + 2
LET SCORE2 = SCORE2 + 1
CLEAR
END IF

IF NOGUESSES = 3 then
LET SCORE2 = SCORE2 + 1
CLEAR
END IF

LOOP until NOGUESSES = 3 OR GUESS = NUM

LOOP until SCORE1 = 10 or SCORE2 = 10

if SCORE1 = 10 then
print "YOU WIN"
END IF

IF SCORE2 = 10 THEN
PRINT "YOU LOSE"
END IF

INPUT prompt "Would you like to play again? (y/n)":a\$
LOOP

END