home *** CD-ROM | disk | FTP | other *** search
/ Computer Life: SuperPac / SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO / pc / demos / usoft / 16 / xpldmo6.exe / xpldmo6.DXR / 00213_movie scripts.ls < prev    next >
Encoding:
Text File  |  1994-09-24  |  1.2 KB  |  55 lines
  1. on startMovie
  2.   global mainPath
  3.   set the centerStage to 1
  4.   set the exitLock to 0
  5.   set the stageColor to 255
  6.   set mainPath to pathName()
  7. end
  8.  
  9. on pressOn
  10.   global lastClickOn
  11.   puppetSound(0)
  12.   set whichSprite to the clickOn
  13.   puppetSprite(whichSprite, 1)
  14.   puppetTransition(0)
  15.   set lastClickOn to whichSprite
  16.   set the locV of sprite whichSprite to the locV of sprite whichSprite + 4
  17.   puppetSound("clickSound")
  18.   updateStage()
  19.   repeat while the stillDown
  20.     if rollOver(whichSprite) then
  21.       next repeat
  22.     end if
  23.     set the locV of sprite whichSprite to the locV of sprite whichSprite - 4
  24.     puppetSound("clickSound")
  25.     updateStage()
  26.     puppetSprite(whichSprite, 0)
  27.     updateStage()
  28.     exit
  29.   end repeat
  30.   set the locV of sprite whichSprite to the locV of sprite whichSprite - 4
  31.   puppetSound("clickSound")
  32.   puppetSprite(whichSprite, 0)
  33.   updateStage()
  34.   updateStage()
  35.   puppetSound(0)
  36. end
  37.  
  38. on waitFor seconds
  39.   set now to the timer
  40.   repeat while the timer < (now + (seconds * 60))
  41.     if the mouseDown then
  42.       exit
  43.     end if
  44.   end repeat
  45. end
  46.  
  47. on waitSound thisone
  48.   updateStage()
  49.   if soundBusy(1) = 0 then
  50.     go(the frame + 1)
  51.   else
  52.     go(the frame)
  53.   end if
  54. end
  55.