home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / bedroom.dxr / 00666_MomWake.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  766 b   |  37 lines
  1. on enterFrame
  2.   set MOM1 to the number of cast "MOMWK1.PICT"
  3.   set MOM2 to the number of cast "MOMWK7.PICT"
  4.   puppetSprite(7, 1)
  5.   puppetSound("HUHWhat")
  6.   repeat with CNum = MOM1 to MOM2
  7.     set the castNum of sprite 7 to CNum
  8.     updateStage()
  9.     startTimer()
  10.     repeat while the timer < 25
  11.       nothing()
  12.     end repeat
  13.   end repeat
  14.   repeat while soundBusy(1)
  15.     nothing()
  16.   end repeat
  17.   repeat with CNum = MOM2 to MOM1
  18.     set the castNum of sprite 7 to CNum
  19.     updateStage()
  20.     startTimer()
  21.     repeat while the timer < 25
  22.       nothing()
  23.     end repeat
  24.     updateStage()
  25.   end repeat
  26.   repeat while soundBusy(1)
  27.     nothing()
  28.   end repeat
  29.   set the castNum of sprite 7 to MOM1
  30.   puppetSound(0)
  31.   puppetSprite(7, 0)
  32. end
  33.  
  34. on exitFrame
  35.   go("FamRoom")
  36. end
  37.