'                            BRIAN'S GUESS-A-ROO
'                                VERSION 1.80


'                           By Brian Q Programming
'                         To Start hit SHIFT and F5
'                                    or
'                       go up to RUN and select START
'
'

'                         For more great programs...
'                Check out my web page on the internet at
'                http://pages.prodigy.com/viperx/brian.htm



REM A Game of Guessing with hints
5 COLOR 15, 11
RANDOMIZE TIMER
CLS
REM OPEN "highscr.dat" FOR INPUT AS #1
REM INPUT #1, hscore%
REM INPUT #1, hname$
PLAY "MBT160O1L8CDEDCDL4ECC"
10 n% = INT(RND * 998 + 1)
c% = 1
LOCATE 1, 1
PRINT "******************************************************************************"
LOCATE 23, 1
PRINT "********************************************************************************"
FOR i = 2 TO 23
LOCATE i, 1
PRINT "*"
LOCATE i, 80
PRINT "*"
NEXT i
LOCATE 8, 24
PRINT "WELCOME TO BRIAN'S GUESS-A-ROO"
LOCATE 9, 34
PRINT "Version 1.80"
LOCATE 13, 19
PRINT "The lowest amount of guesses was"; hscore%; "by "; hname$
CLOSE #1
LOCATE 20, 24
PRINT "Press any key to continue..."
15 key$ = INKEY$: IF key$ = "" THEN GOTO 15
CLS
COLOR 4, 10
CLS
LOCATE 12, 29
INPUT "Enter your name!:", z$
3 CLS
COLOR 10, 9
CLS
LOCATE 16, 5
PRINT "Your number of guesses will be displayed here!"
LOCATE 1, 1
PRINT "I am thinking of a number between 1 and 999."
PRINT "Try to get it in a as few guesses as possible!"
PRINT "If you want to end at anytime just hit enter or type 0 & hit enter."
PLAY "MBO0L16EFGEFDC"
INPUT "What's your first guess:", x&
IF x& >= 9999 OR x& <= -9999 THEN GOTO 3
IF x& = 0 THEN GOTO 90
DO UNTIL x& = n%
LOCATE 5, 1
IF x& = n% THEN GOTO 20
IF x& < n% THEN PRINT x&; "is too low!                         "
IF x& > n% THEN PRINT x&; "is too high!                        "
LOCATE 16, 5
PRINT "So far, you've taken"; c%; "guess(es)!                  "
IF x& < 0 OR x& > 999 THEN GOTO 30
30 LOCATE 6, 1
IF x& < 0 OR x& > 999 THEN PRINT "Are you stupid?!?  I told you to pick a number between 1 and 999!"
IF ABS(n% - x&) < 11 AND ABS(n% - x&) < 101 THEN PRINT "Your within ten!                                           ": GOTO 25
IF ABS(n% - x&) < 11 THEN PRINT "Your within ten!                                                                 "
IF ABS(n% - x&) < 101 THEN PRINT "Your within one hundred                                                       "
IF ABS(n% - x&) > 11 THEN PRINT "                                                                            "
IF ABS(n% - x&) > 101 THEN PRINT "                                                                                   "
25 IF x& = 0 THEN GOTO 90
PLAY "L4N11"
LOCATE 4, 1
PRINT "                                                                            "
LOCATE 4, 1
INPUT "What's your next guess:", x&
20 c% = c% + 1
LOOP
PLAY "T160O1>L20CDEDCDL10ECC"
CLS
LOCATE 1, 1
CLS
COLOR 7, 6
CLS
PRINT ""; z$; ", You answered it in"; c%; " guess(es)."
IF c% >= 1 AND c% <= 5 THEN PRINT "Totally Awesome job, buddy!": GOTO 60
IF c% >= 6 AND c% <= 9 THEN PRINT "Great job, big guy!": GOTO 60
IF c% >= 10 AND c% <= 16 THEN PRINT "Good guess, pal!": GOTO 60
IF c% >= 17 AND c% <= 25 THEN PRINT "You may want to try again, my friend.": GOTO 60
IF c% >= 26 AND c% <= 35 THEN PRINT "Your don't like this game,huh, chief ": GOTO 60
IF c% >= 36 AND c% <= 46 THEN PRINT "Don't ever be a professional guesser, sport": GOTO 60
IF c% >= 47 AND c% <= 150 THEN PRINT "Dude, this game must be like college level or something!"
IF c% >= 151 AND c% <= 999 THEN PRINT "Man, you suck!": GOTO 60
IF c% < hscore% THEN LOCATE 12, 38: GOTO 60
60 IF c% <= hscore% THEN COLOR 30: GOTO 61
61 IF c% <= hscore% THEN GOTO 62
62 IF c% <= hscore% THEN COLOR 14: GOTO 63
63 IF c% <= hscore% THEN PRINT "Congradulations.  You did it in the least guesses!"
IF c% <= hscore% THEN PRINT "I will enter your name for being the best guesser!"
IF c% <= hscore% THEN OPEN "highscr.dat" FOR OUTPUT AS #1
IF c% <= hscore% THEN WRITE #1, c%, z$
IF c% <= hscore% THEN CLOSE #1: END
LOCATE 12, 38
COLOR 30
PRINT "WINNER!!!"
COLOR 14
LOCATE 3, 1
INPUT "Challenge Again? y/n:", t$
IF t$ = "y" THEN GOTO 5
IF t$ = "n" THEN GOTO 50
50 CLS
90 CLS
COLOR 11, 4
CLS
LOCATE 12, 22
PRINT "Thanks for playing Brian's Guess-A-Roo."
END