home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00058.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  698 b   |  27 lines
  1. on exitFrame
  2.   preLoadCast(the number of cast "bodysound1")
  3.   preLoadCast(the number of cast "bodysound2")
  4.   updateStage()
  5.   repeat with i = 18 to 21
  6.     puppetSprite(i, 1)
  7.   end repeat
  8.   preLoadCast(the number of cast "medicine.down")
  9.   updateStage()
  10.   repeat with i = 18 to 21
  11.     repeat with j = 1 to 2
  12.       set temp to the castNum of sprite i
  13.       set the castNum of sprite i to temp + 1
  14.       updateStage()
  15.       set STIcks to the ticks
  16.       repeat while (the ticks - STIcks) < 10
  17.         nothing()
  18.       end repeat
  19.       set the castNum of sprite i to temp
  20.       updateStage()
  21.       repeat while (the ticks - STIcks) < 20
  22.         nothing()
  23.       end repeat
  24.     end repeat
  25.   end repeat
  26. end
  27.