home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / WBSTPL25.LHA / WBStartup+V2.5 / Install < prev    next >
Encoding:
Text File  |  1995-11-01  |  3.5 KB  |  129 lines
  1. ;
  2. ; $PROJECT: WBStartup+
  3. ;
  4. ; (C) Copyright 1995 John Hughes.  All Rights Reserved.
  5. ;
  6.  
  7.  
  8. (
  9.   (working "Installing WBStartup+")
  10.  
  11.   (message "\n\nWBStartup+ and WBStartup+Prefs\n\nare Postcardware.\n\nIf you use either of these programs, please send a postcard of your city or country to:\n\nJohn Hughes\n901 Highview Rd.\nEast Peoria, IL 61611 USA")
  12.  
  13.   (if (exists "SYS:WBStartup/WBStartup+")
  14.     ( ; UPGRADE PREVIOUS VERSION
  15.       (message "\n\nA previous version of WBStartup+ has been found.  I will upgrade your version.")
  16.     )
  17.     ( ; INSTALL FOR THE FIRST TIME
  18.       ; Moving the WBStartup files safely
  19.       (
  20.         (rename "SYS:WBStartup" "SYS:WBStartup.temp")
  21.         (makedir "SYS:WBStartup")
  22.         (rename "SYS:WBStartup.temp" "SYS:WBStartup/WBStartup (Enabled)")
  23.       )
  24.  
  25.       ; Creating Disabled Directory
  26.       (makedir "SYS:WBStartup/WBStartup (Disabled)")
  27.     )
  28.   )
  29.  
  30.       ; Copying icon
  31.       (copyfiles
  32.         (prompt "Copying the Enabled icon")
  33.         (source "icons/Enabled_Icon.info")
  34.         (dest "SYS:WBStartup")
  35.         (newname "WBStartup (Enabled).info")
  36.       )
  37.  
  38.       ; Copying icon
  39.       (copyfiles
  40.         (prompt "Copying the Disabled icon")
  41.         (source "icons/Disabled_Icon.info")
  42.         (dest "SYS:WBStartup")
  43.         (newname "WBStartup (Disabled).info")
  44.       )
  45.  
  46.       ; Copy WBStartup+
  47.       (if (< (/ (getversion) 65536) 39)  ;if this is OS2.x
  48.         ; Copy WBStartup+ for OS2.x
  49.         (copyfiles
  50.           (prompt "Copying the WBStartup+ Executable for OS2.x")
  51.           (help @copyfiles-help)
  52.           (source "OS2.x/WBStartup+")
  53.           (dest "SYS:WBStartup")
  54.           (infos)
  55.         )
  56.         (
  57.           ; else, copy WBStartup+ and WBStartup+Prefs for OS3.x users
  58.  
  59.           ; Copy WBStartup+ for OS3.x
  60.           (copyfiles
  61.             (prompt "Copying the WBStartup+ Executable for OS3.x")
  62.             (help @copyfiles-help)
  63.             (source "OS3.x/WBStartup+")
  64.             (dest "SYS:WBStartup")
  65.             (infos)
  66.           )
  67.           ; Copy WBStartup+Prefs for OS3.x users
  68.           (copyfiles
  69.             (prompt "Copying the WBStartup+Prefs Executable for OS3.x")
  70.             (help @copyfiles-help)
  71.             (source "OS3.x/WBStartup+Prefs")
  72.             (dest "SYS:Prefs")
  73.             (confirm)
  74.             (infos)
  75.           )
  76.         )
  77.       )
  78.  
  79.       ;****************************************************************
  80.       ;Install language Catalogs
  81.  
  82.       (set def-lang 0)
  83.  
  84.       (complete 60) (working #lang-install-text)
  85.  
  86.       (set lang
  87.         (askoptions
  88.           (prompt #lang-which-text)
  89.           (help #lang-which-help)
  90.           (choices "Deutsch" "Français" "Italiano" "Norsk" "Svenska")
  91.           (default def-lang)
  92.       ))
  93.  
  94.       (set n 0)
  95.  
  96.       (while (set language (select n "deutsch" "français" "italiano" "norsk" "svenska" "") )
  97.       (
  98.           (if (IN lang n)
  99.               (copyfiles
  100.             (source (cat "Locale/" language ".catalog" ))
  101.                   (dest (cat "LOCALE:catalogs/" language ))
  102.                   (newname "WBStartup+Prefs.catalog")
  103.               )
  104.           )
  105.           (set n (+ n 1))
  106.       ))
  107.  
  108.       ;****************************************************************
  109.  
  110.       ; install AmigaGuide file
  111.       (copyfiles
  112.         (prompt "Copying AmigaGuide file")
  113.         (help @copyfiles-help)
  114.         (source "WBStartup+.guide")
  115.         (dest "AmigaGuide:")
  116.         (confirm)
  117.       )
  118.  
  119.       ; install WBStart-Handler to L:
  120.       (copylib
  121.         (prompt "Copying AmigaGuide file")
  122.         (help @copylib-help)
  123.         (source "L/WBStart-Handler")
  124.         (dest "L:")
  125.       )
  126.  
  127.     (set @default-dest "SYS:WBStartup")
  128. )
  129.