home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00372.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  981 b   |  49 lines
  1. on GoMovie mov, frm
  2.   repeat with i = 18 to 22
  3.     puppetSprite(i, 0)
  4.   end repeat
  5.   repeat with i = 35 to 47
  6.     puppetSprite(i, 0)
  7.   end repeat
  8.   unLoad()
  9.   unLoadCast()
  10.   go("black")
  11.   sound stop 1
  12.   sound stop 2
  13.   if the paramCount = 2 then
  14.     go(frm, mov)
  15.   else
  16.     go(1, mov)
  17.   end if
  18. end
  19.  
  20. on SetInk
  21.   puppetSound(2, the number of cast "click")
  22.   updateStage()
  23.   set temp to the clickOn
  24.   puppetSprite(temp, 1)
  25.   set the castNum of sprite temp to 1000
  26.   updateStage()
  27.   if the frame < label("medicin") then
  28.     set the movieRate of sprite 15 to 0
  29.   end if
  30. end
  31.  
  32. on SetCast var
  33.   puppetSound(2, the number of cast "click")
  34.   updateStage()
  35.   if the paramCount = 0 then
  36.     set temp to the clickOn
  37.   else
  38.     set temp to var
  39.   end if
  40.   puppetSprite(temp, 1)
  41.   if label("medicin") > marker(0) then
  42.     set newCast to the castNum of sprite temp + 1
  43.   else
  44.     set newCast to the castNum of sprite temp + 2
  45.   end if
  46.   set the castNum of sprite temp to newCast
  47.   updateStage()
  48. end
  49.