Computer Shopper 108/gp2demo.iso/multimed/simpdemo/SIMPSONS/SIMPDEMO.EXE/SIMPDEMO.DXR/00001.ls

Text File | 1980-01-01 | 4.0 KB | 155 lines

global PCflag, simpdataPath, simpsonsPath, dlogdataPath, toondataPath, exportPath, MSfileObj, usersColorDepth, playBackMode, runningOffCDflag

on startMovie
  initSimpsons()
end

on initSimpsons
  set PCflag to the machineType = 256
  checkColorDepth()
  if not PCflag then
    initFinderHider()
  end if
  setUpDirectoryPaths()
  set playBackMode to #BEGIN
  set the keyDownScript to "setVolume()"
end

on initFinderHider
  global bg
  if objectp(bg) = 0 then
    set bg to backdrop(mnew)
    bg(mRegister, "20184752-943")
  end if
  if objectp(bg) then
    bg(mHideInBack, 0)
    bg(mShow)
  end if
end

on setItemDelimiter
  if PCflag then
    set the itemDelimiter to "\"
  else
    set the itemDelimiter to ":"
  end if
end

on unSetItemDelimiter
  set the itemDelimiter to ","
end

on checkColorDepth
  if PCflag then
    if the colorDepth < 8 then
      alert("Sorry, The Simpsons Cartoon Studio requires 256 colors to run properly.")
      quit()
    else
      if the colorDepth > 8 then
        alert("The Simpsons Cartoon Studio is optimized for a system set to a resolution of 256 colors (8 bit). If you choose to continue the program may run slower and may require more RAM.")
      end if
    end if
  else
    if the colorDepth <> 8 then
      set usersColorDepth to the colorDepth
      set the colorDepth to 8
      if the colorDepth <> 8 then
        alert("Sorry, The Simpsons Cartoon Studio requires 256 colors to run properly.")
        quit()
      end if
    end if
  end if
end

on setUpDirectoryPaths
  set simpsonsPath to the moviePath
  if PCflag then
    set theDirDelimiter to "\"
  else
    set theDirDelimiter to ":"
  end if
  set dlogdataPath to simpsonsPath & "support" & theDirDelimiter & "dlogdata" & theDirDelimiter
  set toondataPath to simpsonsPath & "support" & theDirDelimiter & "toondata" & theDirDelimiter
  set exportPath to simpsonsPath & "export" & theDirDelimiter
  if PCflag then
    setupDLLs()
  end if
  setItemDelimiter()
  set simpdataPath to simpsonsPath
  set theItemNumber to the number of items in simpsonsPath - 1
  put "simpdata" into item theItemNumber of simpdataPath
  unSetItemDelimiter()
end

on setupDLLs
  set checkNameList to []
  repeat with count = 1 to the maxinteger
    set theFileName to getNthFileNameInFolder(dlogdataPath, count)
    if theFileName = EMPTY then
      exit repeat
    end if
    append(checkNameList, theFileName)
  end repeat
  set DLLsAreAvailable to 0
  set fileioIsAvailable to 0
  set msFileIsAvailable to 0
  repeat with theFileName in checkNameList
    if theFileName = "fileio.dll" then
      set fileioIsAvailable to 1
    end if
    if theFileName = "msFile.dll" then
      set msFileIsAvailable to 1
    end if
  end repeat
  if fileioIsAvailable and msFileIsAvailable then
    set DLLsAreAvailable to 1
  end if
  if DLLsAreAvailable then
    if not objectp(factory("fileIO")) then
      openXLib(dlogdataPath & "fileIO")
    end if
    if not objectp(factory("msFile")) then
      openXLib(dlogdataPath & "msFile")
      set MSfileObj to msfile(mnew)
    end if
  else
    set theMessage to "Please make sure that FILEIO.DLL and MSFILE.DLL are in the Simpdata directory."
    alert(theMessage)
    quit()
  end if
end

on turnOffMusic
  puppetSound(1, 0)
end

on setVolume
  if (the keyCode = 18) or (the keyCode = 83) then
    set the soundLevel to 1
  else
    if (the keyCode = 19) or (the keyCode = 84) then
      set the soundLevel to 2
    else
      if (the keyCode = 20) or (the keyCode = 85) then
        set the soundLevel to 3
      else
        if (the keyCode = 21) or (the keyCode = 86) then
          set the soundLevel to 4
        else
          if (the keyCode = 23) or (the keyCode = 87) then
            set the soundLevel to 5
          else
            if (the keyCode = 22) or (the keyCode = 88) then
              set the soundLevel to 6
            else
              if (the keyCode = 26) or (the keyCode = 89) then
                set the soundLevel to 7
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end