var x, y, numb, button, score : int
var ch : string (1)
score := 0
put "You will see a random number...then a big box will appear..."
put "Remember that number you saw at the beginning, because that"
put "is how many times you will hit the big box...When the number"
put "of times you have hit the big box matches the number at the beginning"
put "then hit the smaller box. For example...If you see a 6 at the beginning"
put "then hit the big box 6 times, and then hit the smaller box!"
put ""
put "Hit a key to continue!"
getch (ch)
cls
randint (numb, 1, 15)
put "The number is ", numb
delay (1200)
cls
loop
mousewhere (x, y, button)
drawfillbox (100, 270, 300, 56, 7)
if x > 100 and x < 300 and y > 56 and y < 270 and button = 1 then
score := score + 1
delay (300)
View.Update
cls
put "You have hit the square ", score, " times"
end if
mousewhere (x, y, button)
drawfillbox (570, 340, 500, 410, 7)
if x > 500 and x < 570 and y > 340 and y < 410 and score = numb and button = 1 then
put "Good!"
delay (900)
exit
elsif x > 500 and x < 570 and y > 340 and y < 410 and button = 1 then
delay (300)
put "The number of times you have hit the square"
put "does not match the random number at the beginning!"
delay (2200)
cls
end if
end loop
put "You have won!"
delay (900)
cls
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
=S Add some interaction to it other wise it falls under this category:
