home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 107 / af107sub.adf / gui4cli.LZX / Gui4Cli / INSTALL < prev    next >
Text File  |  2003-05-13  |  8KB  |  308 lines
  1. G4C
  2.  
  3. ; This is a program for the installation of Gui4Cli to your system.
  4.  
  5. ; Click on it's icon to install.
  6.  
  7. ; Comodore's Installer, would do a better job, but since I don't
  8. ; know how to write scripts for it, and since this is an other
  9. ; excuse for making a gui, here it is.
  10.  
  11. ; If you have any problems (God forbid), just install it by hand.
  12. ; Instructions are in the ReadMe.now file 
  13.  
  14.  
  15. WINBIG 171 12 320 139 "Install Gui4Cli"
  16. WinType 11110001
  17. WinOut "con:0/12/400/80/Gui4Cli Installation/CLOSE/AUTO/WAIT"
  18. varpath ''
  19.  
  20. BOX 0 0 0 0 out button
  21. BOX 10 5 300 68 in button
  22. BOX 10 95 300 39 IN BUTTON
  23.  
  24. ;--------------------------------- Start up events --------------------
  25.  
  26. xOnLoad
  27. extract Install GUIPATH path
  28. cd $path
  29.  
  30. ; --------- Check to find gui4cli
  31.  
  32. joinfile $path Gui4Cli g4cname
  33. ifexists file $g4cname
  34.    ; ok
  35. else
  36.    ezreq "Gui4Cli not found.\nPlease read the ReadMe.now\nfile and try again" "OK" ''
  37.    Quit
  38. endif
  39.  
  40. ; --------- Set default variable values
  41.  
  42. dir     = SYS:Gui4Cli
  43. dirinfo = SYS:Gui4Cli.info
  44. assign  = ON
  45. dirmake = YES
  46.  
  47. ; --------- Warn user if Gui4Cli already exists
  48.  
  49. ifexists assign GUIs
  50.    if guis: F= $path
  51.       ; it's ok it's this dir
  52.    else
  53.       dirmake = NO
  54.       dir     = GUIs:
  55.       assign  = OFF
  56.       update Install 7 0
  57.       update Install 2 "Directory exists."
  58.    endif
  59. endif
  60. GuiOpen Install
  61. update Install 1 $dir
  62.  
  63. xOnClose
  64. Quit
  65.  
  66. ;------------------------------ Install Gui4Cli program -----------------
  67.  
  68. CTEXT 20 10 "Gui4Cli Installation" topaz.font 8 2 0 0001
  69.  
  70.  
  71. XBUTTON 210 10 89 14 "Browse.."
  72. gdir = ''
  73. ReqFile -1 -1 250 -60 "Choose path for Gui4Cli" DIR gdir $dir
  74. if $gdir != ""
  75.    joinfile $gdir Gui4Cli dir
  76.    joinfile $gdir Gui4Cli.info dirinfo
  77.    ifexists DIR $dir
  78.         dirmake = NO
  79.         assign  = OFF
  80.         update Install 7 0
  81.         update Install 2 "Directory Gui4Cli exists"
  82.    else
  83.         dirmake = YES
  84.         assign  = ON
  85.         update Install 7 1
  86.         update Install 2 "Will create Directory Gui4Cli"
  87.    endif
  88.    update Install 1 $dir
  89. endif
  90.  
  91.  
  92. TEXT 20 25 280 14 "sys:" 120 BOX
  93. GadID 1
  94.  
  95.  
  96. TEXT 20 40 280 14 "Creates Directory named Gui4Cli" 60 NOBOX
  97. GadID 2
  98.  
  99.  
  100. TEXT 20 55 280 14 "File Gui will be copied to c:" 50 NOBOX
  101. GadID 3
  102.  
  103.  
  104. ;====================> Assign GUIs:
  105.  
  106. TEXT 20 80 236 11 "Add commands to User-Startup?" 30 NOBOX
  107. GadID 4
  108.  
  109. XCHECKBOX 260 80 26 13 "" assign "ON" "OFF" ON
  110. gadID 7
  111.  
  112.  
  113. ;----------------------- Run Install -------------------------------
  114.  
  115. XBUTTON 25 115 100 14 Install!
  116.  
  117.     SetWinTitle Install "Installing..."
  118.     guiwindow install wait
  119.     FailAt 10
  120.  
  121.     ; copy Gui
  122.     copy gui c:
  123.     update Install 3 "File Gui copied."
  124.     update Install 10 5   ; gauge
  125.  
  126.     ; Make G4C dir & dir icon
  127.     if $dirmake = YES
  128.        makedir $dir
  129.        copy g4cdrawer $dirinfo
  130.        update Install 2 "Gui4Cli dir created."
  131.        Assign GUIs: $dir
  132.     endif
  133.     update Install 10 10   ; gauge
  134.  
  135.     ; add the assign to s:user-startup
  136.     if $assign = ON
  137.            update Install 4 "Assigning..."
  138.            Append s:user-startup "\n;START of Gui4Cli assign\n"
  139.            Append s:user-startup 'Assign GUIs: $dir \n'
  140.            Append s:user-startup 'Path GUIs:c add\n'
  141.            Append s:user-startup ";END of Gui4Cli assign\n"
  142.            update Install 4 "GUIs: Assign added."
  143.     endif
  144.     update Install 10 15   ; gauge
  145.  
  146.     ; copy the fonts
  147.     update Install 1 "Copying font..."
  148.     copy fonts/#? fonts:
  149.     update Install 10 20   ; gauge
  150.  
  151.     ; ----- copy the files
  152.  
  153.     ; tools
  154.     update Install 1 "Copying Tools..."
  155.     ; get & save new players
  156.     joinfile $dir "tools/prefs/players" playfile
  157.     ifexists file $playfile
  158.        guiload tools/prefs/players
  159.        guiload $playfile            ; overlay old prefs
  160.        flag = 1
  161.     endif
  162.     action copy tools $dir
  163.     if $flag = 1
  164.        gosub install saveprefs
  165.     endif
  166.     ; check favourites files
  167.     gosub install savefavs
  168.     update Install 10 40
  169.  
  170.     ; C
  171.     update Install 1 "Copying C..."
  172.     copy c $dir
  173.     update Install 10 45
  174.  
  175.     ; docs
  176.     update Install 1 "Copying Docs..."
  177.     action copy docs $dir
  178.     update Install 10 60
  179.  
  180.     ; dir.gc
  181.     update Install 1 "Copying Dir.gc..."
  182.     joinfile $dir dir/dir.user userfile
  183.     ifexists file $userfile
  184.         rename dir/dir.user dir/dir.user.empty
  185.     endif
  186.     copy Dir $dir
  187.     update Install 10 70
  188.  
  189.     ; G4C
  190.     update Install 1 "Copying G4C..."
  191.     copy G4C $dir
  192.     update Install 10 80
  193.  
  194.     ; ------- copy the files
  195.     ; icons
  196.     update Install 1 "Copying Files..."
  197.     rename Install.info ginfo        ; so that it's not copied
  198.     copy #?.info $dir
  199.     rename ginfo Install.info
  200.     update Install 10 85
  201.  
  202.     ifexists file c:Gui4Cli
  203.        delete c:Gui4Cli
  204.     endif
  205.     copy Gui4Cli $dir
  206.     update Install 10 95
  207.  
  208.     copy Gui4Cli.gc     $dir
  209.     copy Demo.gc        $dir
  210.     copy ReadMe.now     $dir
  211.     update Install 10 100
  212.  
  213.     update Install 1 "Gui4Cli Installed."
  214.  
  215.     cli 'c:path guis:c add'
  216.     SetWinTitle Install "Gui4Cli Installation"
  217.     guiwindow install resume
  218.     ezreq "Installation finished.\nGui4Cli can be found in\n$dir" "Yeah!" ""
  219.  
  220.     ; quit since this is another port
  221.     ifexists port Gui4Cli
  222.        else
  223.        run 'gui guis:Gui4Cli.gc'
  224.     endif
  225.     Quit
  226.  
  227. ;------------> On failing
  228.  
  229. xOnFail
  230. SetWinTitle Install "**** ERROR ****"
  231. guiwindow install resume
  232. EZREQ "ERROR in installation\nPlease read the ReadMe.Now file\nand install manually." "OK" ""
  233. Quit
  234.  
  235. ;----------------------- Cancel button ------------------------------
  236.  
  237. XBUTTON 200 115 100 14 CANCEL
  238. Quit
  239.  
  240.  
  241. GAUGE 22 99 281 13 IN RIDGE 3 0 0
  242. gadid 10
  243.  
  244.  
  245. ; --------------------------- ROUTINES -------------------------
  246. ; Same routine as in guis:tools/config.gc
  247.  
  248. xroutine saveprefs
  249. .dir.prefs = "G4C - Players\n\nxOnLoad\n"
  250. append env:.dir.prefs '*DEF.EDITOR    = \"$*DEF.EDITOR\"\n'
  251. append env:.dir.prefs '*DEF.ILBM      = \"$*DEF.ILBM\"\n'
  252. append env:.dir.prefs '*DEF.ANIM      = \"$*DEF.ANIM\"\n'
  253. append env:.dir.prefs '*DEF.GIF       = \"$*DEF.GIF\"\n'
  254. append env:.dir.prefs '*DEF.JPG       = \"$*DEF.JPG\"\n'
  255. append env:.dir.prefs '*DEF.GFX       = \"$*DEF.GFX\"\n'
  256. append env:.dir.prefs '*DEF.PAINT     = \"$*DEF.PAINT\"\n'
  257. append env:.dir.prefs '*DEF.GFXCON    = \"$*DEF.GFXCON\"\n'
  258. append env:.dir.prefs '*DEF.SMPL      = \"$*DEF.SMPL\"\n'
  259. append env:.dir.prefs '*DEF.MOD       = \"$*DEF.MOD\"\n'
  260. append env:.dir.prefs '*DEF.GUIDE     = \"$*DEF.GUIDE\"\n'
  261. append env:.dir.prefs '*DEF.LHA       = \"$*DEF.LHA\"\n'
  262. append env:.dir.prefs '*DEF.ZIP       = \"$*DEF.ZIP\"\n'
  263. append env:.dir.prefs '*DEF.UNZIP     = \"$*DEF.UNZIP\"\n'
  264. append env:.dir.prefs '*DEF.HEX       = \"$*DEF.HEX\"\n'
  265. append env:.dir.prefs '*DEF.PP        = \"$*DEF.PP\"\n'
  266. append env:.dir.prefs '*DEF.PPM       = \"$*DEF.PPM\"\n'
  267. append env:.dir.prefs '*DEF.TGA       = \"$*DEF.TGA\"\n'
  268. append env:.dir.prefs '*DEF.PNG       = \"$*DEF.PNG\"\n'
  269. append env:.dir.prefs '*DEF.FONT      = \"$*DEF.FONT\"\n'
  270. append env:.dir.prefs '*DEF.HTML      = \"$*DEF.HTML\"\n'
  271. append env:.dir.prefs '*DEF.GFXED     = \"$*DEF.GFXED\"\n'
  272. append env:.dir.prefs '*DEF.FLC       = \"$*DEF.FLC\"\n'
  273. append env:.dir.prefs '*DEF.AVI       = \"$*DEF.AVI\"\n'
  274. append env:.dir.prefs '*DEF.MPG       = \"$*DEF.MPG\"\n'
  275. append env:.dir.prefs '*DEF.QT        = \"$*DEF.QT\"\n'
  276. append env:.dir.prefs '*DEF.MPGA      = \"$*DEF.MPGA\"\n'
  277. append env:.dir.prefs '*DEF.DT        = \"$*DEF.DT\"\n'
  278. append env:.dir.prefs "GuiQuit Players\n" 
  279. copy env:.dir.prefs guis:tools/prefs/players
  280. delete env:.dir.prefs
  281.  
  282. xROUTINE savefavs
  283. .temp = "GUIs:"
  284. ; check if fav directory exists
  285. joinfile $dir "tools/fav" favdir
  286. ifexists directory $favdir
  287.    else
  288.    makedir $favdir
  289. endif
  290. ; check & create fav files
  291. joinfile $dir "tools/fav/dirdef" favfile
  292. ifexists file $favfile            ; dir favourites files
  293.    else
  294.    copy env:.temp $favfile
  295. endif
  296. joinfile $dir "tools/fav/cedfav" favfile
  297. ifexists file $favfile            ; ced
  298.    else
  299.    copy env:.temp $favfile
  300. endif
  301. joinfile $dir "tools/fav/default" favfile
  302. ifexists file $favfile            ; default
  303.    else
  304.    copy env:.temp $favfile
  305. endif
  306.  
  307.  
  308.