home *** CD-ROM | disk | FTP | other *** search
/ Toy Story Multimedia Press Kit (Mac) / ToyStorycdrom.img / MMK.DIR / 00896.ls < prev    next >
Encoding:
Text File  |  1995-10-27  |  4.8 KB  |  125 lines
  1. on mouseUp
  2.   cursor(4)
  3.   set the colorDepth to 8
  4.   put "importing" into field "importStatus"
  5.   if the hilite of cast "backgrounds" = 1 then
  6.     set thePath to the moviePath & "01 backgrounds:"
  7.     repeat with x = 1 to 9
  8.       importFileInto(cast x, thePath & getNthFileNameInFolder(thePath, x))
  9.       set the regPoint of cast x to point(320, 240)
  10.       saveIfNeeded()
  11.       if the width of cast x = 640 then
  12.         put x into field (the number of cast "backgrounds" + 11)
  13.       end if
  14.     end repeat
  15.   end if
  16.   if the hilite of cast "bio - flip pictures" = 1 then
  17.     set thePath to the moviePath & "02 bio - flip pictures:"
  18.     set x to 1
  19.     repeat while getNthFileNameInFolder(thePath, x) <> EMPTY
  20.       importFileInto(cast (x + 27), thePath & getNthFileNameInFolder(thePath, x))
  21.       set the regPoint of cast (x + 27) to point(the width of cast (x + 27) / 2, the height of cast (x + 27) / 2)
  22.       saveIfNeeded()
  23.       put x into field (the number of cast "bio - flip pictures" + 11)
  24.       set x to x + 1
  25.     end repeat
  26.   end if
  27.   if the hilite of cast "photo - thumbnail" = 1 then
  28.     set thePath to the moviePath & "03 photo - thumbnail:"
  29.     set x to 1
  30.     repeat while getNthFileNameInFolder(thePath, x) <> EMPTY
  31.       importFileInto(cast (x + 54), thePath & getNthFileNameInFolder(thePath, x))
  32.       set the regPoint of cast (x + 54) to point(the width of cast (x + 54) / 2, the height of cast (x + 54) / 2)
  33.       saveIfNeeded()
  34.       put x into field (the number of cast "photo - thumbnail" + 11)
  35.       set x to x + 1
  36.     end repeat
  37.   end if
  38.   if the hilite of cast "photo - full screen" = 1 then
  39.     set thePath to the moviePath & "04 photo - full screen:"
  40.     set x to 1
  41.     repeat while getNthFileNameInFolder(thePath, x) <> EMPTY
  42.       importFileInto(cast (x + 126), thePath & getNthFileNameInFolder(thePath, x))
  43.       set the regPoint of cast (x + 126) to point(the width of cast (x + 126) / 2, the height of cast (x + 126) / 2)
  44.       saveIfNeeded()
  45.       put x into field (the number of cast "photo - full screen" + 11)
  46.       set x to x + 1
  47.     end repeat
  48.   end if
  49.   if the hilite of cast "text - text" = 1 then
  50.     set thePath to the moviePath & "05 text - text:"
  51.     set theFile to FileIO(mnew, "read", thePath & getNthFileNameInFolder(thePath, 1))
  52.     set the text of cast 10 to theFile(mReadToken, EMPTY, EMPTY)
  53.     theFile(mdispose)
  54.     if the text of cast 10 <> EMPTY then
  55.       put 1 into field (the number of cast "text - text" + 11)
  56.     end if
  57.   end if
  58.   if the hilite of cast "bio - text" = 1 then
  59.     set thePath to the moviePath & "06 bio - text:"
  60.     set x to 1
  61.     repeat while getNthFileNameInFolder(thePath, x) <> EMPTY
  62.       set theFile to FileIO(mnew, "read", thePath & getNthFileNameInFolder(thePath, x))
  63.       set the text of cast (x + 10) to theFile(mReadToken, EMPTY, EMPTY)
  64.       theFile(mdispose)
  65.       put x into field (the number of cast "bio - text" + 11)
  66.       set x to x + 1
  67.     end repeat
  68.   end if
  69.   if the hilite of cast "photo - text" = 1 then
  70.     set thePath to the moviePath & "07 photo - text:"
  71.     set theFile to FileIO(mnew, "read", thePath & getNthFileNameInFolder(thePath, 1))
  72.     set the text of cast 26 to theFile(mReadToken, EMPTY, EMPTY)
  73.     theFile(mdispose)
  74.     if line the number of lines in field 26 of field 26 = EMPTY then
  75.       delete line the number of lines in field 26 of field 26
  76.     end if
  77.     put the number of lines in field 26 into field (the number of cast "photo - text" + 11)
  78.   end if
  79.   if the hilite of cast "film clips" = 1 then
  80.     set x to 10
  81.     repeat while char 1 of getNthFileNameInFolder(the moviePath, x) <> "c"
  82.       importFileInto(cast (x + 189), the moviePath & getNthFileNameInFolder(the moviePath, x))
  83.       saveIfNeeded()
  84.       put x - 10 into field (the number of cast "film clips" + 11)
  85.       set x to x + 1
  86.     end repeat
  87.   end if
  88.   if the hilite of cast "sound clips" = 1 then
  89.     set n to 212
  90.     repeat while char 1 of getNthFileNameInFolder(the moviePath, x) = "c"
  91.       importFileInto(cast n, the moviePath & getNthFileNameInFolder(the moviePath, x))
  92.       saveIfNeeded()
  93.       put n - 211 into field (the number of cast "sound clips" + 11)
  94.       set x to x + 1
  95.       set n to n + 1
  96.     end repeat
  97.   end if
  98.   if (the hilite of cast "film clips" = 1) or (the hilite of cast "sound clips" = 1) then
  99.     repeat with x = 199 to 223
  100.       if the castType of cast x <> #digitalVideo then
  101.         next repeat
  102.       end if
  103.       set the directToStage of cast x to 1
  104.       set the controller of cast x to 1
  105.       if the width of cast x = 0 then
  106.         set the video of cast x to 0
  107.       end if
  108.     end repeat
  109.   end if
  110.   put "saving" into field "importStatus"
  111.   saveMovie()
  112.   cursor(-1)
  113.   put "done" into field "importStatus"
  114. end
  115.  
  116. on saveIfNeeded
  117.   if (the freeBlock / 1024) < 1024 then
  118.     cursor(4)
  119.     put "saving" into field "importStatus"
  120.     saveMovie()
  121.     unLoadCast()
  122.     put "importing" into field "importStatus"
  123.   end if
  124. end
  125.