home *** CD-ROM | disk | FTP | other *** search
/ Cani & Cani / CANI.ISO / pc / program / start.dxr / 00005.ls < prev    next >
Encoding:
Text File  |  1997-10-30  |  916 b   |  39 lines
  1. on startMovie
  2.   global PathHD, PathCD
  3.   set PathHD to the pathName
  4.   set PathCD to PathCDROM()
  5.   set PathProgram to PathCD & "Program"
  6.   add(the searchPath, PathProgram)
  7.   if the machineType = 256 then
  8.     set Sep to "\"
  9.   else
  10.     set Sep to ":"
  11.   end if
  12.   set PathProgram to PathProgram & Sep
  13. end
  14.  
  15. on PathCDROM
  16.   if the machineType = 256 then
  17.     repeat with i = 67 to 90
  18.       set lecteur to numToChar(i) & ":\"
  19.       set gPathCDROM to lecteur & "PROGRAM\MEDIA"
  20.       if getNthFileNameInFolder(gPathCDROM, 1) <> EMPTY then
  21.         exit repeat
  22.       end if
  23.     end repeat
  24.     if i > 90 then
  25.       alert("Inserire il Cd nel lettore")
  26.       quit()
  27.     end if
  28.   else
  29.     set gPathCDROM to "Cani & Cani:PROGRAM:MEDIA:"
  30.     if getNthFileNameInFolder(gPathCDROM, 1) = EMPTY then
  31.       alert("Inserire il Cd nel lettore")
  32.       quit()
  33.     else
  34.       set lecteur to "Cani & Cani:"
  35.     end if
  36.   end if
  37.   return lecteur
  38. end
  39.