home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Clips / SelectSoftPublishing-StockClips-MultimediaClips-WinMac.bin / pc / CATALOG / DEMOS / 091 / C.DIR / Internal_56.ls < prev    next >
Encoding:
Text File  |  2006-01-01  |  469 b   |  24 lines
  1. on exitFrame
  2.   global gCurrentFrameLabel
  3.   if not soundBusy(1) then
  4.     puppetSound(0)
  5.     startTimer()
  6.     repeat while the timer < (1 * 60)
  7.     end repeat
  8.     set the mouseDownScript to EMPTY
  9.     set the mouseUpScript to EMPTY
  10.     hPlayReturn()
  11.   else
  12.     go(label(gCurrentFrameLabel) + 1)
  13.   end if
  14. end
  15.  
  16. on mouseUp
  17.   if the clickOn = 0 then
  18.     cursor(4)
  19.     puppetSound(0)
  20.     set the mouseDownScript to "nothing"
  21.     set the mouseUpScript to "nothing"
  22.   end if
  23. end
  24.