home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / NEPTUNE.DXR / 00018.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  479 b   |  24 lines
  1. on mouseDown
  2.   puppetSound(0)
  3.   updateStage()
  4.   if the frame > 25 then
  5.     go("static")
  6.   end if
  7.   puppetSound("Button Click")
  8.   updateStage()
  9.   set the castNum of sprite 42 to 19
  10.   updateStage()
  11.   if the castNum of sprite 43 = 25 then
  12.     set the castNum of sprite 43 to 24
  13.   end if
  14.   updateStage()
  15.   repeat while soundBusy(1)
  16.     nothing()
  17.   end repeat
  18.   set the castNum of sprite 42 to 18
  19.   updateStage()
  20.   door_Move()
  21.   set the castNum of sprite 42 to 15
  22.   updateStage()
  23. end
  24.