home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / map2.dxr / 00231_rcarrot1.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  538 b   |  25 lines
  1. on mouseDown
  2.   puppetSprite(46, 1)
  3.   puppetSound("Carrot.aif")
  4.   set rcarrot1 to the number of cast "rcarrot1"
  5.   set rcarrot6 to rcarrot1 + 5
  6.   repeat with CNum = rcarrot1 to rcarrot6
  7.     set the castNum of sprite 46 to CNum
  8.     updateStage()
  9.     startTimer()
  10.     repeat while the timer < 2
  11.       nothing()
  12.     end repeat
  13.   end repeat
  14.   set the castNum of sprite 46 to rcarrot1
  15.   updateStage()
  16.   repeat while soundBusy(1)
  17.     nothing()
  18.   end repeat
  19.   puppetSprite(46, 0)
  20.   puppetSound(0)
  21.   unLoad()
  22.   unLoadCast()
  23.   go(1, "Grandmas")
  24. end
  25.