home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / powerapp / animator.exe / ANIMATOR.DXR / 00013.ls < prev    next >
Encoding:
Text File  |  1996-05-07  |  380 b   |  19 lines

  1. global gbPaused
  2.  
  3. on mouseDown
  4.   buttonDown()
  5. end
  6.  
  7. on mouseUp
  8.   if word 1 of the name of cast the castNum of sprite the clickOn = "play" then
  9.     set the castNum of sprite the clickOn to cast "stop up"
  10.     updateStage()
  11.     set gbPaused to 0
  12.     resetPreview()
  13.   else
  14.     set the castNum of sprite the clickOn to cast "play up"
  15.     updateStage()
  16.     set gbPaused to 1
  17.   end if
  18. end
  19.