home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MBOUNCE / MBOUNCE.APP (.txt) next >
Encoding:
MS Visual FoxPro App  |  1993-02-03  |  3.0 KB  |  48 lines
  1. MBOUNCE.MEM2
  2. MBOUNCE
  3. DontStop=.F.
  4. SAFETYz
  5. MBOUNCE
  6. TOPSCORE
  7. SET SAFETY &Safety  
  8. MBOUNCE
  9. TOPSCORE
  10. WINDOWS
  11. WINDEX
  12. DONTSTOP
  13. SCORE
  14. STOPTIME
  15. MAKEWINDOWBOUNCE
  16. ENDGAME
  17. SAFETY
  18. WINDEX
  19. PICKWINDOWWINDOWS
  20. Mouse is in the window
  21. You missed
  22. WININDEX
  23. DONTSTOP
  24. WINWINDOW
  25. SCORE
  26. WINDOWS
  27. WINDEX
  28. INDOWXROW
  29. WNAME
  30. RETURN INT(RAND()*19))+1
  31. GAME OVER!!!!
  32. Your score is: 
  33. The top score is:
  34. Congratulations, You have the new TOP SCORE
  35. ENDGAME
  36. SCORE
  37. TOPSCORE
  38. WMAKEWINDOW
  39. BOUNCE
  40. PICKWINDOW
  41. ENDGAME
  42. The MBOUNCE.PRG is a simple example used to illustrate how the INKEY() function can be used to trap mouse clicks. The example (Listing 8.1) has up to 20 randomly chosen bouncing windows that bounce in a random direction. This is a simple game. The object is to click on as many bouncing boxes in 60 seconds as you can. You get a point if you successfully click on one of the little windows and lose a point if you miss. The INKEY() function is used to trap mouse clicks.
  43. e:\jebwin\mbounce\mbounce.prg
  44. h:\foxprow\
  45. MBOUNCE.FXP
  46. c:\foxprodg\vol2num0\mbounce\
  47. MBOUNCE.ART
  48.