home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 59 / PCR59.iso / install / nimoy2d.ex_ / nimoy2d.DXR / 00001.ls next >
Encoding:
Text File  |  1995-06-25  |  3.0 KB  |  65 lines

  1. on enterFrame
  2.   global gStartPath, gExit, cd, gFatal, gDepth, gCD_ROM
  3.   set fb to the freeBytes
  4.   set kb to fb / 1024
  5.   set the text of cast "warning" to EMPTY
  6.   if the quickTimePresent = 1 then
  7.     nothing()
  8.     set the text of cast "Qtime" to "Detected"
  9.     set gExit to 0
  10.   else
  11.     set the text of cast "Qtime" to "Not Detected"
  12.     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."
  13.     set gExit to 1
  14.     set gFatal to 1
  15.   end if
  16.   set gStartPath to the pathName
  17.   set save to the itemDelimiter
  18.   set the itemDelimiter to ":"
  19.   set f to gStartPath
  20.   set the itemDelimiter to save
  21.   if f = (gCD_ROM & "SCIFI_2D\MODERN\") then
  22.     set gExit to 1
  23.     set gFatal to 1
  24.     if the text of cast "warning" = EMPTY then
  25.       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."
  26.     else
  27.       set buffer to the text of cast "Warning"
  28.       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."
  29.     end if
  30.   end if
  31.   set gDepth to the colorDepth
  32.   set cd to string(gDepth)
  33.   getColorDepth()
  34.   if the colorDepth <> 8 then
  35.     set gExit to 1
  36.     set gFatal to 1
  37.     if the text of cast "warning" = EMPTY then
  38.       set the text of cast "warning" to "Program must be run in 256 color mode."
  39.     else
  40.       set buffer to the text of cast "Warning"
  41.       set the text of cast "warning" to buffer & RETURN & RETURN & "Program must be run in 256 color mode."
  42.     end if
  43.   end if
  44.   if kb < 4096 then
  45.     if the text of cast "warning" = EMPTY then
  46.       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."
  47.     else
  48.       set buffer to the text of cast "Warning"
  49.       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."
  50.     end if
  51.   end if
  52.   set the text of cast "kBytes" to string(kb) & " kb"
  53.   set the text of cast "CDepth" to cd
  54.   set the text of cast "FMem" to string(fb)
  55. end
  56.  
  57. on exitFrame
  58.   global gExit
  59.   if gExit = 1 then
  60.     go("war")
  61.   else
  62.     go("exit")
  63.   end if
  64. end
  65.