home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / BOUNCE / BOUNCE1.PRG < prev    next >
Encoding:
Text File  |  1993-01-31  |  1.4 KB  |  41 lines
  1. ***************************************************************
  2. *     * 07/27/92           BOUNCE1.PRG                9:11:18 *
  3. ***************************************************************
  4. *     * Author's Name: Jeb Long                               *
  5. *     *                                                       *
  6. *     * Description:                                          *
  7. *     * This program illustrates MOVE and INKEY() to          *
  8. *     *  capture mouse strokes                                *
  9. ***************************************************************
  10. SET TALK OFF
  11. =RAND(-1)
  12. CLEAR
  13. DEFINE WINDOW BOUNCE FROM 10,10 TO 14,20 ;
  14.      COLOR W+/R FILL CHR(176) PANEL
  15. ACTIVATE WINDOW BOUNCE
  16. DO WHILE  .t.
  17.     Char = INKEY("HM")
  18.     IF (Char = 27 ) 
  19.         EXIT
  20.     ELSE
  21.         IF Char = 151   && Mouse entry
  22.             IF MWINDOW("BOUNCE")
  23.                 ?? CHR(7)   && Ding
  24.                 WAIT "Mouse is in the window" WINDOW
  25.             ELSE
  26.                 WAIT "You missed" WINDOW NOWAIT
  27.             ENDIF
  28.         ENDIF        
  29.     ENDIF 
  30.     mcol =    IIF(WLCOL() < 16 ,  10,  ;  
  31.             IIF(WLCOL() > 60 , -10,  ; 
  32.             IIF(rand()  > .5 , 10, -10 )))
  33.     mrow =    IIF(WLROW() <  5 ,  4,  ;  
  34.             IIF(WLROW() > 18 , -4,  ; 
  35.             IIF(rand()  > .5 , 4, -4 )))
  36.     MOVE WINDOW BOUNCE BY mrow,mcol
  37.     @ 0,0 FILL TO 13,19 COLOR SCHEME INT(23*rand())+1
  38. ENDDO
  39. RELEASE WINDOW BOUNCE
  40. RETURN 
  41.