PC Direkt 1998 #11/PCDIREKT_1198.bin/SHOWDATA/STARTNEU.DXR/00001.ls

Text File | 1998-03-18 | 3.5 KB | 109 lines

global myversion, Xtrapath, dirpath, AOLpath, partyPath, sharedPath, Debugpath, ISDNpath, oldcolordepth, oldsoundlevel, OnlineConfigured, gQTVRok, QTPath, starterpath, myplatform

on startMovie
  global ms4path, external, NoEscape, NachISDN
  if the machineType <> 256 then
    if the shiftDown then
      set oldcolordepth to the colorDepth
      set the colorDepth to 8
    else
      set oldcolordepth to the colorDepth
      set the colorDepth to 16
    end if
  end if
  if the machineType <> 256 then
    set the itemDelimiter to ":"
  else
    set the itemDelimiter to "\"
  end if
  set mroot to item 1 to the number of items in the pathName - 2 of the pathName & the itemDelimiter
  set the itemDelimiter to ","
  if the platform contains "Macintosh" then
    set AOLpath to mroot & "AOL 3.0i installieren"
    set partyPath to mroot & "3rdparty:"
    set sharedPath to the pathName & "shared:"
    if the colorDepth >= 16 then
      set libpath to the pathName & "showdatx:lib16:"
    end if
    if the colorDepth <= 8 then
      set libpath to the pathName & "showdatx:lib8:"
    end if
    set dirpath to the pathName
    set QTPath to mroot & "Apple QuickTime:QuickTimeΓäó Install Disk 1:Installer"
    if voidp(external) then
      set Xtrapath to the pathName & "xtras:"
      set myplatform to "Mac"
    else
      set myplatform to "Mac"
    end if
  else
    set Xtrapath to the pathName & "xtras\"
    if (myplatform = "31") or (myplatform = "NT") then
      set AOLpath to mroot & "AOL\win31\setup.exe"
    else
      set AOLpath to mroot & "AOL\win95\setup.exe"
    end if
    set ISDNpath to mroot & "aolshow.exe showdata\qisdn2.ini"
    set partyPath to mroot & "3rdparty\"
    set sharedPath to the pathName & "shared\"
    set QTPath to the pathName & "Xtras\"
    set starterpath to mroot & "aolshow.exe"
    set dirpath to the pathName
    if the colorDepth >= 16 then
      set libpath to the pathName & "showdatx\lib16\"
    end if
    if (the colorDepth <= 8) or (the platform contains "16") then
      set libpath to the pathName & "showdatx\lib8\"
    end if
    set ms4path to mroot & "IE4\IE4SETUP.EXE"
    if voidp(external) then
      set Xtrapath to the pathName & "xtras\"
      set QTPath to the pathName & "Xtras\"
    else
      if the platform contains "32" then
        set myplatform to "95"
      else
        set myplatform to "31"
      end if
    end if
  end if
  set the searchPath to [libpath, Xtrapath, dirpath, partyPath, sharedPath]
  if (the colorDepth <= 8) or (the platform contains "16") then
    set the visible of sprite 4 to 0
  end if
  set oldsoundlevel to the soundLevel
  if the soundLevel < 4 then
    set the soundLevel to 4
  end if
  set OnlineConfigured to 0
  set the exitLock to 1
  set NoEscape to "if the keycode = 53 or the keycode = 19 or the keycode = 71 then dontpassevent" & RETURN & "else pass"
  set the keyDownScript to NoEscape
  if the platform contains "Win" then
    if not voidp(NachISDN) then
      go(1, "Install")
    end if
    exit
  end if
  if (the platform contains "Macintosh") and not (the quickTimePresent) then
    go(1, dirpath & "showeinf")
  else
    if external and (the platform contains "Mac") then
      go(1, dirpath & "showeinf")
    else
      if the platform contains "16" then
        go(1, dirpath & "showeinf")
      else
        if external and (the platform contains "32") then
          go(1, dirpath & "showeinf")
        end if
      end if
    end if
  end if
  cursor(4)
  if the optionDown then
    go(1, "main")
    beep()
  end if
end