home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / MERCURY.DXR / 00016.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  594 b   |  27 lines
  1. on mouseDown
  2.   puppetSprite(44, 1)
  3.   puppetSound("attic button")
  4.   set the castNum of sprite 44 to 17
  5.   updateStage()
  6.   repeat while soundBusy(1)
  7.     nothing()
  8.   end repeat
  9.   set the castNum of sprite 44 to 16
  10.   updateStage()
  11.   puppetSprite(44, 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 9
  21.       updateStage()
  22.       puppetSprite(42, 0)
  23.     end if
  24.     changeMovie("Attic.dir", "Please Wait")
  25.   end if
  26. end
  27.