home *** CD-ROM | disk | FTP | other *** search
/ Toy Story Multimedia Press Kit (Mac) / ToyStorycdrom.img / MMK.DIR / 00897.ls < prev    next >
Encoding:
Text File  |  1995-10-27  |  748 b   |  27 lines
  1. on mouseUp
  2.   cursor(4)
  3.   put "cleaning" into field "importStatus"
  4.   set n to integer(field (the number of cast "bio - flip pictures" + 11))
  5.   if n <> 12 then
  6.     repeat with x = n + 1 to 12
  7.       importFileInto(cast (x + 297), "¬ê blank")
  8.     end repeat
  9.   end if
  10.   set n to integer(field (the number of cast "film clips" + 11))
  11.   if n <> 12 then
  12.     repeat with x = n + 1 to 12
  13.       importFileInto(cast (x + 309), "¬ê blank")
  14.     end repeat
  15.   end if
  16.   set n to integer(field (the number of cast "sound clips" + 11))
  17.   if n <> 12 then
  18.     repeat with x = n + 1 to 12
  19.       importFileInto(cast (x + 321), "¬ê blank")
  20.     end repeat
  21.   end if
  22.   put "saving" into field "importStatus"
  23.   saveMovie()
  24.   put "-" into field "importStatus"
  25.   cursor(-1)
  26. end
  27.