home *** CD-ROM | disk | FTP | other *** search
/ Fun Online 1997 April / FOL0497.iso / tvmlsa / apps / maze / MAZE.$$$ < prev    next >
Text File  |  1997-06-18  |  2KB  |  61 lines
  1. local
  2.     var
  3. //        string MazeRemoteRoot = "http://194.80.180.23/web/tvml/apps/maze/"
  4. //        string MazeRemoteRoot = "http://www.tvml.co.uk/tvml/apps/maze/"
  5. //        string MazeRemoteRoot = "http://tvml.simplenet.com/tvml/apps/maze/"
  6.         string MazeRemoteRoot = "http://www.fol.de/tvml/apps/maze/"
  7.         string MazeLocalCDRoot = ""
  8.         filename MazeDir = `tvml\apps\maze\`
  9.  
  10.         filename TvmlDir
  11.         filename InstallDir
  12.  
  13.         string cddrives
  14.  
  15.     function GetFile( f as filename ) as boolean
  16.         print "FileCopy ", f, '\n'
  17.         if MazeRemoteRoot == "no remote root" then
  18.             return false
  19.         else
  20.             return FileCopy ( filename(MazeRemoteRoot) + f, InstallDir + f ) = 0
  21.         endif
  22.     end function
  23. endlocal
  24.  
  25. BrowserSetCursorBusy true
  26. wait 100
  27. ShowBrowserWindow FULLSCREEN
  28.  
  29. //TvmlDir = filename( GetInfo(InstallDir) )
  30. //TvmlDir = cddrives+`tvml\`
  31. //InstallDir = TvmlDir + MazeDir
  32.  
  33. //mkdir( InstallDir )
  34.  
  35. //check for cd-rom drive
  36.  
  37. cddrives = GetInfo( CDROMS )
  38. if len(cddrives) > 0 then
  39.     //check for more than 1 cd-rom drive
  40.     if len(cddrives) > 3 then
  41.         cddrives = left$(cddrives, 3)
  42.     endif
  43.  
  44. //    SetReadOnlyCache enabled, filename(cddrives+MazeLocalCDRoot), `/web/`
  45. //    SetReadOnlyCache enabled, filename(cddrives+MazeLocalCDRoot), `/`
  46.     SetReadOnlyCache disabled, ``, ``
  47. else
  48.     SetReadOnlyCache disabled, ``, ``
  49. end if
  50.  
  51. //TvmlDir = filename( GetInfo(InstallDir) )
  52. //TvmlDir = cddrives + `tvml\`
  53. InstallDir = filename(cddrives) + MazeDir
  54.  
  55.  
  56. if not checkfile( InstallDir + `frontend.tvm`, exists ) then
  57.     GetFile( `frontend.tvm` )
  58. endif
  59.  
  60. script InstallDir + `frontend.tvm`
  61.