home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / prim.dxr / 00599_LettuceHandler.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  560 b   |  24 lines
  1. on LettuceHandler
  2.   global whichLettuce
  3.   CursorOff()
  4.   puppetSprite(48, 1)
  5.   puppetSound("lettuce.aif")
  6.   set ThisLettuce to "let" & whichLettuce & "a.pict"
  7.   set lettuce1 to the number of cast ThisLettuce
  8.   repeat with CNum = lettuce1 to lettuce1 + 4
  9.     set the castNum of sprite 48 to CNum
  10.     updateStage()
  11.     startTimer()
  12.     repeat while the timer < 15
  13.       nothing()
  14.     end repeat
  15.   end repeat
  16.   set the castNum of sprite 48 to lettuce1
  17.   updateStage()
  18.   puppetSprite(48, 0)
  19.   puppetSound(0)
  20.   unLoad()
  21.   unLoadCast()
  22.   go("enterFrame", "main")
  23. end
  24.