Media Gallery 1995 June/MG6.ISO/mg.exe/mg.DXR/00012.ls

Text File | 1995-04-19 | 1.6 KB | 69 lines

on startMovie
  set the searchPath to list()
  append(the searchPath, the pathName & "data\")
  append(the searchPath, the pathName & "data\mgdvid\")
  append(the searchPath, the pathName & "data\mgmod\")
  append(the searchPath, the pathName & "data\mgtmod\")
  append(the searchPath, the pathName & "data\mgzmod\")
  openXLib(the pathName & "data\f.dll")
  openXLib(the pathName & "data\w.dll")
  checksystem()
end

on checksystem
  if the shiftDown then
    set ramtext to "RAM Check" & RETURN & RETURN & "Total: " & the memorysize / 1024 && "Kb" & RETURN & "Frei: " & the freeBytes / 1024 && "Kb"
    alert(ramtext)
  end if
  if the colorDepth < 8 then
    go("col")
  else
    if isQT() = 0 then
      go("qt")
    else
      goMovie()
    end if
  end if
end

on isQT
  mci("open qtwvideo alias testvideo")
  set r to the result
  if r contains "error" then
    return 0
    exit
  else
    mci("info testvideo version")
    set rr to the result
    mci("close testvideo")
    if (rr contains "1.") and not (rr contains "2.") then
      return 0
      exit
    end if
    return 1
  end if
end

on goMovie
  cursor(4)
  set theFile to FileIO(mnew, "read", the pathName & "mg.dir")
  if objectp(theFile) then
    theFile(mdispose)
    go(1, "mg.dir")
    exit
  end if
  set theFile to FileIO(mnew, "read", the pathName & "mg.dxr")
  if objectp(theFile) then
    theFile(mdispose)
    go(1, "mg.dxr")
    exit
  end if
  set theFile to FileIO(mnew, "read", the pathName & "mg.dig")
  if objectp(theFile) then
    theFile(mdispose)
    go(1, "mg.dig")
    exit
  end if
  cursor(4)
end