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