home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / SATURN.DXR / 00029.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  582 b   |  27 lines
  1. on mouseDown
  2.   puppetSprite(41, 1)
  3.   puppetSound("attic button")
  4.   set the castNum of sprite 41 to 30
  5.   updateStage()
  6.   repeat while soundBusy(1)
  7.     nothing()
  8.   end repeat
  9.   set the castNum of sprite 41 to 29
  10.   updateStage()
  11.   puppetSprite(41, 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("Mars.dir", 1)
  25.   end if
  26. end
  27.