global gStartPath, gExit, cd, gFatal, gDepth, gCD_ROM
set fb to the freeBytes
set kb to fb / 1024
set the text of cast "warning" to EMPTY
if the quickTimePresent = 1 then
nothing()
set the text of cast "Qtime" to "Detected"
set gExit to 0
else
set the text of cast "Qtime" to "Not Detected"
set the text of cast "warning" to "The Quicktime Extension was not detected in your system. Quicktime 2.0.1 is included on the Sci Fi CD-Rom. This system extension is required for Quicktime video playback. Please review the Quicktime documents to install it."
set gExit to 1
set gFatal to 1
end if
set gStartPath to the pathName
set save to the itemDelimiter
set the itemDelimiter to ":"
set f to gStartPath
set the itemDelimiter to save
if f = (gCD_ROM & "SCIFI_2D\MODERN\") then
set gExit to 1
set gFatal to 1
if the text of cast "warning" = EMPTY then
set the text of cast "warning" to "Program MUST be run from your hard disk drive. Please refer to the installation instructions to install and run program from your hard disk drive."
else
set buffer to the text of cast "Warning"
set the text of cast "warning" to buffer & RETURN & RETURN & "Program MUST be run from your hard disk drive. Please refer to the installation instructions to install and run program from your hard disk drive."
end if
end if
set gDepth to the colorDepth
set cd to string(gDepth)
getColorDepth()
if the colorDepth <> 8 then
set gExit to 1
set gFatal to 1
if the text of cast "warning" = EMPTY then
set the text of cast "warning" to "Program must be run in 256 color mode."
else
set buffer to the text of cast "Warning"
set the text of cast "warning" to buffer & RETURN & RETURN & "Program must be run in 256 color mode."
end if
end if
if kb < 4096 then
if the text of cast "warning" = EMPTY then
set the text of cast "warning" to "The SCI FI Anthology requires 4,096 KB of free system memory. You currently have " & kb & "KB free system resources. Unload any unnecessary extensions and close other applications to free memory. For additional ways to free up memory, please refer to your system documentation."
else
set buffer to the text of cast "Warning"
set the text of cast "warning" to buffer & RETURN & RETURN & "The SCI FI Anthology requires 4,096 KB of free system memory. You currently have " & kb & "KB free system resources. Verify that the program has a memory allocation of 4,096. This can be checked by choosing GET INFO from the FILE menu. Unload any unnecessary extensions and close other applications to free memory. For additional ways to free up memory, please refer to your system documentation."
end if
end if
set the text of cast "kBytes" to string(kb) & " kb"