home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / SATURN.DXR / 00020.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  582 b   |  27 lines
  1. on mouseDown
  2.   puppetSprite(45, 1)
  3.   puppetSound("stop button")
  4.   set the castNum of sprite 45 to 21
  5.   updateStage()
  6.   repeat while soundBusy(1)
  7.     nothing()
  8.   end repeat
  9.   set the castNum of sprite 45 to 20
  10.   updateStage()
  11.   puppetSprite(45, 0)
  12.   if the frame > 10 then
  13.     puppetSound("Transport " & random(9))
  14.     updateStage()
  15.     go("wait")
  16.   else
  17.     if the visible of sprite 46 = 0 then
  18.       door_Move()
  19.       puppetSprite(42, 1)
  20.       set the castNum of sprite 42 to 15
  21.       updateStage()
  22.       puppetSprite(42, 0)
  23.     end if
  24.     changeMovie("Close.dir", 1)
  25.   end if
  26. end
  27.