!Mike Marantis
!10/5/01
!Nick Yee sucks!!!!
!CPR1
! Hot cold proggie
Do while q$<>"n"
CLEAR
RANDOMIZE
PRINT " Welcome the the super duper advanced number generator/guessing"
PRINT " scientific program of science!"
PRINT ""
PRINT "I am the great swami of salami! I will pick a number from 1 to 100."
PRINT "If you are good enough you will be able to guess the number in 8 tries or less."
PRINT "I will tell you if you are hot, warm, cold."
PRINT "If you do good....you get a cookie!"
PAUSE 3
SET COLOR "Red"
PRINT "Ready?"
PAUSE 1
SET COLOR "Brown"
PRINT "Set?"
PAUSE 1
SET COLOR "Blue"
PRINT "Are you sure your ready?"
PAUSE 1
SET COLOR "Blue"
PRINT "I don't think your ready for Mellis' jelly!"
PAUSE .5
SET COLOR "Green"
PRINT "Go!"
LET answer=int((rnd*100)+1)
LET counter=1
SET COLOR "black"
PRINT answer
DO While counter<=8
set back "white"
set color "black"
let num=0
DO while num<=0 or num>101
PRINT "What is your number for guess ", counter
INPUT num
LET num= int(num)
LOOP
LET counter=counter+1
IF num=answer then
PRINT" Congratulations young salami swami!"
PRINT "You deserve a cookie!"
pause 2
open #1: screen 0,1,0,1
window #1
set window 0,319,0,199
set color 6
box circle 100,220,40,160
box circle 120,160,60,100
flood 210,100
set color "69"
flood 100,130
let counter=5000
ELSE
LET difference=abs(answer-num)
IF difference<=3 then
SET BACK 12
SET COLOR 4
PRINT " "
PRINT " You are hotter than squirrel. "
PRINT " "
ELSE IF difference<=5 then
SET BACK 13
SET COLOR 11
PRINT " "
PRINT " You are a luke-warm monkey. "
PRINT " "
ELSE IF difference <=8 then
SET BACK 9
SET COLOR 11
PRINT " "
PRINT " You are cool, unlike Nick Yee and his pop tarts of doom. "
PRINT " "
ELSE
SET BACK 1
SET COLOR 11
PRINT " "
PRINT " You are colder than a toad's butt in December! "
PRINT " "
END IF
END IF
LOOP
input prompt "Would you like to play again? (y or n)": q$
END
