random numbers.bb 694 B

1234567891011121314151617181920212223242526
  1. ; Very simple random number game by George Bray
  2. ; [email protected]
  3. ; http://users.breathemail.net/georgebray
  4. Print "Escape from the furry animals of Ancipital"
  5. SeedRnd(MilliSecs())
  6. f=Rnd(20)
  7. For g=1 To 5
  8. guess = Input ("Guess the frequency of the menagerie? (0 - 20) ")
  9. If guess=f Then Goto goat
  10. If guess<f Then Gosub cow
  11. If guess>f Then Gosub head
  12. .g Next
  13. Print"*******BooooooooooooooM******* The menagerie exploded. The correct frequency was: ": Print f
  14. MouseWait
  15. End
  16. .cow Print "Frequency too low - Careful":Return
  17. .goat Print "WELL DONE DUDE - YOU ESCAPED FROM THE FURRY ANIMALS OF ANCIPITAL"
  18. MouseWait
  19. End
  20. .head Print"Frequency too high - try again":Return
  21. MouseWait
  22. End