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