home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / rca.exe / rca.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1996-07-18  |  1.1 KB  |  34 lines
  1. on exitFrame
  2.   global gCPU, gFileSep, gCDpath, gXobjPath
  3.   set the searchCurrentFolder to 0
  4.   clearGlobals()
  5.   if the machineType <> 256 then
  6.     set gCPU to #Mac
  7.     set gFileSep to ":"
  8.   else
  9.     set gCPU to #Windows
  10.     set gFileSep to "\"
  11.   end if
  12.   set gCDpath to createCDpath("RCA", "MEDIA" & gFileSep & "XOBJ" & gFileSep & "MEGOGIGO")
  13.   if gCDpath = 0 then
  14.     alert("Please check that the Road Construction Ahead CD is in your CD-ROM drive.")
  15.     quit()
  16.   end if
  17.   set gCDpath to gCDpath & "\MEDIA" & gFileSep
  18.   if not (the quickTimePresent) then
  19.     alert("This presentation requires that QuickTime be installed on your system. The QuickTime folder on this CD contains everything needed for installation.")
  20.     quit()
  21.   end if
  22.   if gCPU = #Windows then
  23.     if the colorDepth <> 8 then
  24.       alert("Road Construction Ahead requires that your monitor be set to 256 colors. Please change the setting and restart Windows.")
  25.       quit()
  26.     end if
  27.   end if
  28.   cursor(200)
  29.   set gXobjPath to gCDpath & "XOBJ" & gFileSep
  30.   setAt(the searchPath, 1, gCDpath & "VIDEO")
  31.   setAt(the searchPath, 2, gCDpath & "ROTATORS")
  32.   go(1, the pathName & "road.dxr")
  33. end
  34.