home *** CD-ROM | disk | FTP | other *** search
/ Smart Steps: 2nd Grade / SSGRADE2.iso / pc / dkcode / intro.dxr / 00002_Scan.ls < prev    next >
Encoding:
Text File  |  1999-04-28  |  2.0 KB  |  42 lines
  1. on exitFrame
  2.   global gDataPathname, gCDPathname, gProfondeur
  3.   if the machineType = 256 then
  4.     set lecteur to ["C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"]
  5.     set gDataPathname to the pathName & "SUIVI\"
  6.     set CDRom to 0
  7.     repeat with i = 1 to count(lecteur)
  8.       set Fichier to getAt(lecteur, i) & ":\MEDIA\LLS3.TXT"
  9.       if ExistFichier(Fichier) then
  10.         set CDRom to 1
  11.         set gCDPathname to getAt(lecteur, i) & ":\MEDIA\"
  12.       end if
  13.     end repeat
  14.     if not CDRom then
  15.       alert("The application was unable to find the correct CD. Please insert the right CD and try again. ")
  16.       halt()
  17.     end if
  18.     if the quickTimePresent then
  19.     else
  20.       alert("QuickTime could not be initialized - the product will run but animations will not play.The probable cause is a bad QuickTime installation. Please re-run setup and re-install QuickTime.")
  21.     end if
  22.     if the colorDepth <> 8 then
  23.       alert("Please set your monitor to 256 colour (8-bit) display to get the best performance from this CD-ROM and to avoid printing problems.")
  24.     end if
  25.   else
  26.     set gProfondeur to the colorDepth
  27.     set the colorDepth to 8
  28.     if the pathName = "Smart Steps 2nd Grade:Smart Steps 3rd Grade Folder:" then
  29.       alert("The product will run better if it is installed to your Hard Disk. To do this, drag the product folder to the Hard Disk. Double click on the program icon in the folder just copied. ")
  30.     end if
  31.     set Fichier to "Smart Steps 2nd Grade:MEDIA:LLS3.TXT"
  32.     if ExistFichier(Fichier) then
  33.     else
  34.       alert("The DK CD-ROM has not been inserted. Please place the disc in the drive and click ΓÇÿOKΓÇÖ to continue. ")
  35.       halt()
  36.     end if
  37.     if QTVersion() < "2.1" then
  38.       alert("Smart Steps requires QuickTimeΓäó version 2.5. If QuickTimeΓäó is not installed then Smart Steps may not run correctly. Please quit and install the version provided on this CD-ROM. ")
  39.     end if
  40.   end if
  41. end
  42.