Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/powerapp/animator.exe/ANIMATOR.DXR/00013.ls

Text File | 1996-05-07 | 380 b | 19 lines

global gbPaused

on mouseDown
  buttonDown()
end

on mouseUp
  if word 1 of the name of cast the castNum of sprite the clickOn = "play" then
    set the castNum of sprite the clickOn to cast "stop up"
    updateStage()
    set gbPaused to 0
    resetPreview()
  else
    set the castNum of sprite the clickOn to cast "play up"
    updateStage()
    set gbPaused to 1
  end if
end