;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-beginner-reader.ss" "lang")((modname entry16) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp")))))
(start 600 400)
;; sky
(draw-solid-rect (make-posn 0 0) 600 400 'white)
;; ground
(draw-solid-disk (make-posn 300 2250) 2000 'darkgreen)
;; head
(draw-circle (make-posn 50 210) 7 'black)
;; torso
(draw-solid-line (make-posn 50 217) (make-posn 50 242) 'black)
;; legs
(draw-solid-line (make-posn 50 242) (make-posn 45 270) 'black)
(draw-solid-line (make-posn 50 242) (make-posn 55 270) 'black)
;; arms
(draw-solid-line (make-posn 50 230) (make-posn 65 225) 'black)
(draw-solid-line (make-posn 50 230) (make-posn 35 225) 'black)
;; text
(sleep-for-a-while 1)
(draw-solid-string (make-posn 70 210) "Hello!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Hello!")
(draw-solid-string (make-posn 70 210) "Let's play a game!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Let's play a game!")
(draw-solid-string (make-posn 70 210) "Are you ready?")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Are you ready?")
(sleep-for-a-while 2)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'blue)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'red)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'orange)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'green)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'blue)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'blue)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'red)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'orange)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'orange)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'green)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'green)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'red)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'yellow)
(sleep-for-a-while .25)
;; sky
(draw-solid-rect (make-posn 0 0) 600 400 'white)
;; ground
(draw-solid-disk (make-posn 300 2250) 2000 'darkgreen)
;; head
(draw-circle (make-posn 50 210) 7 'black)
;; torso
(draw-solid-line (make-posn 50 217) (make-posn 50 242) 'black)
;; legs
(draw-solid-line (make-posn 50 242) (make-posn 45 270) 'black)
(draw-solid-line (make-posn 50 242) (make-posn 55 270) 'black)
;; arms
(draw-solid-line (make-posn 50 230) (make-posn 65 225) 'black)
(draw-solid-line (make-posn 50 230) (make-posn 35 225) 'black)
;; text
(sleep-for-a-while 3)
(draw-solid-string (make-posn 70 210) "Okay!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Okay!")
(draw-solid-string (make-posn 70 210) "How many BLUE circles were there?")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "How many BLUE circles were there?")
(draw-solid-string (make-posn 70 210) "Did you guess '3'?")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Did you guess '3'?")
(draw-solid-string (make-posn 70 210) "You're right!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "You're right!")
(draw-solid-string (make-posn 70 210) "Good job!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Good job!")
(draw-solid-string (make-posn 70 210) "Want to try again?")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Want to try again?")
(draw-solid-string (make-posn 70 210) "Get ready!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Get ready!")
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'blue)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'red)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'orange)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'green)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'blue)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'blue)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'red)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'orange)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'orange)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'green)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'green)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'red)
(sleep-for-a-while .25)
(draw-solid-disk (make-posn (random 600) (random 250)) 15 'yellow)
(sleep-for-a-while .25)
;; sky
(draw-solid-rect (make-posn 0 0) 600 400 'white)
;; ground
(draw-solid-disk (make-posn 300 2250) 2000 'darkgreen)
;; head
(draw-circle (make-posn 50 210) 7 'black)
;; torso
(draw-solid-line (make-posn 50 217) (make-posn 50 242) 'black)
;; legs
(draw-solid-line (make-posn 50 242) (make-posn 45 270) 'black)
(draw-solid-line (make-posn 50 242) (make-posn 55 270) 'black)
;; arms
(draw-solid-line (make-posn 50 230) (make-posn 65 225) 'black)
(draw-solid-line (make-posn 50 230) (make-posn 35 225) 'black)
;; text
(sleep-for-a-while 3)
(draw-solid-string (make-posn 70 210) "Okay!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "Okay!")
(draw-solid-string (make-posn 70 210) "How many YELLOW circles were there?")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "How many YELLOW circles were there?")
(draw-solid-string (make-posn 70 210) "If you guessed '1', you're right!")
(sleep-for-a-while 2)
(clear-solid-string (make-posn 70 210) "If you guessed '1', you're right!")
(draw-solid-string (make-posn 70 210) "Thanks for playing! Goodbye!")
(sleep-for-a-while 2)
(draw-solid-rect (make-posn 0 0) 600 400 'black)