Toy Story Multimedia Press Kit (Mac)/ToyStorycdrom.img/shared.dxr/00950.ls

Text File | 1995-07-30 | 5.8 KB | 233 lines

on startMovie
  global downloadList, textList, multi, numPhotos
  set downloadList to EMPTY
  set textList to "0000000000000"
  if multi <> 1 then
    set the colorDepth to 8
  end if
  if multi <> 1 then
    set the colorDepth to 16
  end if
  if (multi <> 1) and (the colorDepth < 16) then
    set the colorDepth to 32
  end if
  if the machineType = 256 then
    puppetSprite(9, 1)
  end if
end

on goTo theSection
  cursor(4)
  puppetSprite(10, 0)
  if the castNum of sprite 11 > 0 then
    if the castType of cast the castNum of sprite 11 = #text then
      put " " into field the castNum of sprite 11
    end if
  end if
  if the castNum of sprite 10 > 0 then
    if the castType of cast the castNum of sprite 10 = #digitalVideo then
      set the movieRate of sprite 10 to 0
    end if
  end if
  updateStage()
  go(theSection)
  cursor(-1)
end

on checkHelp
  set x to 0
  set n to the mouseCast
  if (n >= 2) and (n <= 7) then
    set x to 1
  end if
  if n = 5 then
    set x to 18
  end if
  if n = 8 then
    set x to 20
  end if
  if n = 10 then
    set x to 2
  end if
  if n = 24 then
    set x to 3
  end if
  if n = 25 then
    set x to 4
  end if
  if n = 27 then
    set x to 2
  end if
  if (n >= 28) and (n <= 39) then
    set x to 5
  end if
  if (n >= 55) and (n <= 126) then
    set x to 6
  end if
  if (n >= 127) and (n <= 198) then
    set x to 7
  end if
  if (n >= 199) and (n <= 211) then
    set x to 8
  end if
  if (n >= 212) and (n <= 223) then
    set x to 9
  end if
  if (n >= 289) and (n <= 293) then
    set x to 10
  end if
  if n = 294 then
    set x to 11
  end if
  if n = 295 then
    set x to 19
  end if
  if (n >= 298) and (n <= 309) then
    set x to 12
  end if
  if (n >= 310) and (n <= 321) then
    set x to 13
  end if
  if (n >= 322) and (n <= 333) then
    set x to 14
  end if
  if n = 334 then
    set x to 15
  end if
  if n = 335 then
    set x to 16
  end if
  if n = 336 then
    set x to 17
  end if
  if x > 0 then
    put line x of field 23 into field 25
  end if
end

on setBio
  set the castNum of sprite 10 to the clickOn + 16
  set the text of cast 27 to the text of cast (the clickOn - 1)
  updateStage()
end

on setDownloadMarkers thePage
  global downloadList, numPhotos
  puppetSprite(48, 1)
  repeat with x = 1 to the number of items in downloadList
    set n to integer(item x of downloadList) - (numPhotos * thePage)
    if (n < 1) or (n > numPhotos) then
      next repeat
    end if
    set the locH of sprite 48 to the locH of sprite (n + 11) - (the width of sprite 48 / 2)
    set the locV of sprite 48 to the locV of sprite (n + 11) - (the width of sprite 48 / 2)
    updateStage()
  end repeat
  puppetSprite(48, 0)
end

on checkPhoto
  set theMouseCast to the mouseCast
  if (theMouseCast > 54) and (theMouseCast < 127) then
    set Q to line theMouseCast - 54 of field 26
    repeat with x = 1 to the number of items in Q
      put item x of Q into line x of field 24
    end repeat
  else
    put EMPTY into field 24
  end if
end

on addDownload
  global downloadList
  set n to the castNum of sprite 1 - 126
  repeat with x = 1 to the number of items in downloadList
    if integer(item x of downloadList) = n then
      beep()
      exit
    end if
  end repeat
  if downloadList <> EMPTY then
    put "," & the castNum of sprite 1 - 126 after downloadList
  else
    put n after downloadList
  end if
end

on setPhoto
  go(the frame + the clickOn - 11)
end

on setFilm
  cursor(4)
  set the castNum of sprite 10 to the clickOn + 188
  updateStage()
  set the movieTime of sprite 10 to 0
  set the movieRate of sprite 10 to 1
  cursor(-1)
end

on setSound
  cursor(4)
  set the castNum of sprite 10 to the clickOn + 200
  updateStage()
  set the movieTime of sprite 10 to 0
  set the movieRate of sprite 10 to 1
  cursor(-1)
end

on startDownload
  global downloadList, textList
  put "Folow the directons to begin downloading files to your hard drive" into field "helpText"
  updateStage()
  if (downloadList <> EMPTY) or (textList <> "0000000000000") then
    set theTime to the time
    repeat with x = 1 to the number of chars in theTime
      if char x of theTime = ":" then
        put ";" into char x of theTime
      end if
    end repeat
    set theFile to FileIO(mnew, "?write", the date && theTime && "text")
    if theFile = -43 then
      exit
    end if
    go(the frame + 1)
    updateStage()
    if downloadList <> EMPTY then
      theFile(mWriteString, "the folowing is a list of ImagePack files and asociated information" & RETURN)
      set theSavePath to theFile(mFileName)
      set the itemDelimiter to ":"
      delete item the number of items in theSavePath of theSavePath
      set the itemDelimiter to ","
      set theCopyPath to the moviePath & "HI_RES:"
      repeat with x = 1 to the number of items in downloadList
        cursor(4)
        set n to integer(item x of downloadList)
        set theCopyFile to getNthFileNameInFolder(theCopyPath, n)
        set photoInfo to line n of field 26
        theFile(mWriteString, theCopyFile & " -- " && photoInfo & RETURN)
        put "  DOWNLOADING please wait -" & x & " of " & the number of items in downloadList into field "helpInfo"
        FileCopy(theCopyPath & theCopyFile, theSavePath, "dontShowProgress")
      end repeat
    end if
    theFile(mWriteString, "---------------------------------------" & RETURN & RETURN)
    if textList contains "1" then
      repeat with x = 1 to 13
        if char x of textList = "1" then
          theFile(mWriteString, field integer(x + 9) & RETURN & "---------------------------------------" & RETURN & RETURN)
        end if
      end repeat
    end if
    theFile(mdispose)
  end if
end

on keyDown
  if (the key = "p") and (the commandDown = 1) and (the optionDown = 0) then
    printFrom(the frame, the frame)
  end if
  if (the key = "p") and (the commandDown = 1) and (the optionDown = 1) then
    printFrom(the frame, the frame, 50)
  end if
end