home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / acacia / start.dxr / 00077.ls < prev    next >
Encoding:
Text File  |  1996-11-13  |  366 b   |  21 lines
  1. on mouseDown
  2.   global gQuitDown
  3.   set gQuitDown to 1
  4.   set the memberNum of sprite 7 to 24
  5.   updateStage()
  6. end
  7.  
  8. on mouseUp
  9.   global gQuitDown
  10.   if gQuitDown then
  11.     set gQuitDown to 0
  12.     set the memberNum of sprite 7 to 25
  13.     updateStage()
  14.     repeat with i = 1 to 7
  15.       set the visible of sprite i to 0
  16.     end repeat
  17.     updateStage()
  18.     quit()
  19.   end if
  20. end
  21.