home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / invest.dir / 00698_Script_698 < prev    next >
Text File  |  1997-05-26  |  606b  |  27 lines
  1. on getrects startsprite, endsprite
  2.   
  3.   global cirrects
  4.   set startcast = the number of cast "LABEL -BATTERY"
  5.   
  6.   set cirrects = [:]
  7.   repeat with counter = startsprite to endsprite
  8.     
  9.     set castindex = the number of cast (the castnum of sprite counter) - startcast
  10.     addprop(cirrects,castindex,the rect of sprite counter)
  11.     
  12.   end repeat
  13.   
  14.   
  15. end getrects
  16.  
  17. on loopme 
  18.   
  19.   repeat with counter = 275 to 320
  20.     set the loop of cast counter = TRUE
  21.     set the directtostage of cast counter = TRUE
  22.     set the sound of cast counter = FALSE
  23.     
  24.   end repeat
  25.   
  26. end loopme
  27.