home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00369.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  1.0 KB  |  48 lines
  1. on startMovie
  2.   global prevMovie
  3.   repeat with i = 18 to 21
  4.     puppetSprite(i, 1)
  5.   end repeat
  6.   set prevMovie to "body"
  7.   if the machineType <> 256 then
  8.     openXLib("FIXPAL.OBJ")
  9.     set obj to FixPalette(mnew, 0, 0, 640, 480)
  10.     obj(mPatchIt)
  11.     obj(mdispose)
  12.     closeXLib("FIXPAL.OBJ")
  13.     openXLib("COLOURM.OBJ")
  14.   end if
  15.   SetVolume()
  16. end
  17.  
  18. on stopMovie
  19.   if the machineType <> 256 then
  20.     closeXLib("COLOURM.OBJ")
  21.   end if
  22. end
  23.  
  24. on dolist
  25.   set tmp to the text of field "qtlist"
  26.   set num to the number of lines in tmp
  27.   repeat with i = 1 to num
  28.     set name to item 1 of line i of tmp
  29.     go(name)
  30.     set a to the frame
  31.     set b to (the frame - 10) * 4
  32.     set c to (marker(1) - 11) * 4
  33.     put name into item 1 of line i of tmp
  34.     put a into item 2 of line i of tmp
  35.     put b into item 3 of line i of tmp
  36.     put c into item 4 of line i of tmp
  37.   end repeat
  38.   set the text of field "qtlist" to tmp
  39. end
  40.  
  41. on xxx
  42.   global castNumber
  43.   set castNumber to []
  44.   repeat with i = 4 to 13
  45.     append(castNumber, the castNum of sprite i)
  46.   end repeat
  47. end
  48.