home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / w / wbstartup+v2.7.lha / WBStartup+V2.7 / Install next >
Text File  |  1996-03-03  |  4KB  |  129 lines
  1. ;
  2. ; $PROJECT: WBStartup+
  3. ;
  4. ; (C) Copyright 1996 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 "Which languages do want installed?")
  89.         (help "Checkmark the languages you want installed, and click Proceed.")
  90.           (choices "Dansk" "Deutsch" "Français" "Italiano" "Norsk" "Suomi" "Svenska")
  91.           (default def-lang)
  92.       ))
  93.  
  94.       (set n 0)
  95.  
  96.       (while (set language (select n "dansk" "deutsch" "français" "italiano" "norsk" "suomi" "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 Launcher.Library to Libs:
  111.       (copylib
  112.         (prompt "Copying Launcher.library")
  113.         (help @copylib-help)
  114.         (source "libs/launcher.library")
  115.         (dest "libs:")
  116.       )
  117.  
  118.       ; install AmigaGuide file
  119.       (copyfiles
  120.         (prompt "Copying AmigaGuide file")
  121.         (help @copyfiles-help)
  122.         (source "WBStartup+.guide")
  123.         (dest "AmigaGuide:")
  124.         (confirm)
  125.       )
  126.  
  127.     (set @default-dest "SYS:WBStartup")
  128. )
  129.