home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / timeln.dir / 00001_Script_1 next >
Text File  |  1997-05-26  |  1KB  |  38 lines
  1. -- Compile Rects
  2.  
  3.  
  4.  
  5. global finalrectdb
  6. on getrects
  7.   
  8.   --/ Inventor Specific
  9.   set endsprites = [31,22,20,24,20]
  10.   set TextField = the number of cast "EdisonTimeLineRectsDB"
  11.   --/ Inventor Specific
  12.   
  13.   set areatypes = [#Daily,#Politics,#Arts,#Science,#Edison]
  14.   set the text of cast TextField = empty
  15.   set startframe = the frame
  16.   set counter = 1
  17.   set finalrectdb = "["
  18.   repeat with Whatframe = startframe to startframe + 4
  19.     
  20.     set rectdb = []
  21.     
  22.     go frame Whatframe
  23.     repeat with spritenum = 3 to getat(endsprites,counter)
  24.       append(rectdb,the rect of sprite spritenum)
  25.     end repeat
  26.     
  27.     set sectionrect = "#" & string(getat(areatypes,counter)) & ":" & string(rectdb)  & ","
  28.     set finalrectdb = finalrectdb & sectionrect
  29.     set counter = counter + 1
  30.     
  31.   end repeat
  32.   
  33.   set finalrectdb = chars(finalrectdb, 1,length(finalrectdb) - 1)
  34.   set finalrectdb = finalrectdb & "]"
  35.   set the text of cast TextField = finalrectdb
  36.   
  37. end getrects
  38.