home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / MARS.DXR / 00020.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  522 b   |  25 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.     go("Wait")
  14.   else
  15.     if the visible of sprite 46 = 0 then
  16.       door_Move()
  17.       puppetSprite(42, 1)
  18.       set the castNum of sprite 42 to 15
  19.       updateStage()
  20.       puppetSprite(42, 0)
  21.     end if
  22.     changeMovie("Close.dir", 1)
  23.   end if
  24. end
  25.