home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / win3_1 / appfiles / launch.dir / 00001_Script_1 next >
Text File  |  1997-07-24  |  1KB  |  44 lines
  1. --mv Setup
  2.  
  3.  
  4.  
  5. global gPathDeliminator
  6. global gQTVRpath
  7. global gAvailbleInv
  8.  
  9. on Setup
  10.   
  11.   if the machinetype = 256 then set gPathDeliminator = "\"
  12.   else set gPathDeliminator = ":"
  13.   
  14.   if the platform = "Windows,32" then openXlib(the pathname & "AppFiles\FILEIO.X32")
  15.   else openXlib(the pathname & "AppFiles\FILEIO.X16")
  16.   
  17.   set gQTVRpath = the pathname  & "AppFiles" & gPathDeliminator
  18.   set gAvailbleInv = #All
  19.   
  20. end Setup
  21.  
  22.  
  23. on GoGallery
  24.   
  25.   if the machinetype = 256 then 
  26.     
  27.     set DataFile = new(xtra "fileio")
  28.     if objectp( DataFile ) then
  29.       set prefpathname = the pathname & "AppFiles\Prefs.txt"
  30.       openFile(DataFile, prefpathname, 0)
  31.       set dataString = readFile(DataFile)
  32.       closeFile(DataFile)
  33.       set pDataFile = 0
  34.       set CdDrive = dataString & gPathDeliminator
  35.     else alert( "Problem locating Inventor Labs Files. Please reinstall from the CD-ROM.")
  36.     
  37.   else set CdDrive = "Invent:"
  38.   
  39.   set GalleryPath = CdDrive & "Files" & gPathDeliminator & "Gallery.dir"
  40.   go movie GalleryPath
  41.   
  42.   
  43. end GoGallery
  44.