home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / LAUNCH.DIR / 00002_Script_2 < prev    next >
Text File  |  1997-03-20  |  901b  |  44 lines
  1. on startmovie
  2.   global gQTVRpath
  3.   
  4.   
  5.   if (the machinetype = 256) then
  6.     openxlib "fileio.dll"
  7.     set gQTVRpath = the pathname
  8.   else set gQTVRpath = the pathname & "INVENT:"
  9.   
  10.   
  11. end startmovie
  12.  
  13. on findCD
  14.   global gPathtoTest
  15.   
  16.   if (the machinetype = 256) then 
  17.     
  18.     set startchar = "C"
  19.     set endpath = ":\INVENT\GALLERY.DIR"
  20.     set Done = FALSE
  21.     repeat while not done
  22.       
  23.       set gPathtoTest = startchar & endpath
  24.       set file = fileio( mnew,"read",gPathtoTest)
  25.       if objectp( file ) then set done = TRUE
  26.       else set startchar = numtochar( chartonum( startchar ) + 1 )
  27.       
  28.       if chartonum( startchar ) > chartonum( "Z" ) then
  29.         alert("Not able to locate CD")
  30.         go "Gallery.dir"
  31.         exit
  32.       end if
  33.       
  34.     end repeat
  35.     closexlib
  36.     
  37.   else go movie "INVENT:INVENT:GALLERY.DIR"
  38.   
  39. end findCD
  40.  
  41.  
  42.  
  43.  
  44.