home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 2 #3 / Blender_2_3.iso / BLENDER / BLENDME.EXE / BLENDME.DXR / 00005.ls < prev    next >
Encoding:
Text File  |  1996-04-01  |  1.3 KB  |  51 lines
  1. on CheckDriveW theFileName
  2.   global n
  3.   repeat with n = 66 to 90
  4.     set drive to numToChar(n)
  5.     set thisPath to string(drive & ":\" & theFileName)
  6.     set myFile to FileIO(mnew, "read", thisPath)
  7.     if objectp(myFile) then
  8.       myFile(mdispose)
  9.       return drive & ":" & theFileName
  10.       exit
  11.     end if
  12.   end repeat
  13.   alert("Please put Blender in CD-ROM drive and try again!")
  14. end
  15.  
  16. on CheckDriveM theFileName
  17.   global TEST
  18.   set TEST to 0
  19.   set TEST to getNthFileNameInFolder("BLENDER:" & theFileName, 1)
  20.   if TEST <> 0 then
  21.     return "BLENDER:" & theFileName
  22.     exit
  23.   end if
  24.   set TEST to getNthFileNameInFolder("BLENDER5:" & theFileName, 1)
  25.   if TEST <> 0 then
  26.     return "BLENDER5:" & theFileName
  27.     exit
  28.   end if
  29.   set TEST to getNthFileNameInFolder("BLENDER4:" & theFileName, 1)
  30.   if TEST <> 0 then
  31.     return "BLENDER4:" & theFileName
  32.     exit
  33.   end if
  34.   set TEST to getNthFileNameInFolder("BLENDER3:" & theFileName, 1)
  35.   if TEST <> 0 then
  36.     return "BLENDER3:" & theFileName
  37.     exit
  38.   end if
  39.   set TEST to getNthFileNameInFolder("BLENDER2:" & theFileName, 1)
  40.   if TEST <> 0 then
  41.     return "BLENDER2:" & theFileName
  42.     exit
  43.   end if
  44.   set TEST to getNthFileNameInFolder("BLENDER1:" & theFileName, 1)
  45.   if TEST <> 0 then
  46.     return "BLENDER1:" & theFileName
  47.     exit
  48.   end if
  49.   return 0
  50. end
  51.