home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / util / boot / StartupPlus.lha / StartupPlusv1.4 / InstallSUP < prev    next >
Encoding:
Text File  |  1997-01-26  |  3.7 KB  |  149 lines
  1. ; Script to install StartupPlus version 1.4
  2. ;
  3. ; StartupPlus Install Version $VER: Install-SUP 1.4 20.01.97
  4. ; COPYRIGHT ©1995-97 Side Effects, ENGLAND
  5. ;
  6. ; e-mail: l.j.morrison@herts.ac.uk
  7. ;
  8.  
  9. (complete 0)
  10.  
  11. ;check user has Dos 2
  12.         (set DOSTYPE (/ (getversion) 65536))
  13.            (if (NOT (>= DOSTYPE 37))
  14.               (abort "StartupPlus 1.4 requires AmigaDOS 2.04 or higher."
  15.                      " If you have an earlier version of AmigaDOS you must purchase an upgrade before using StartupPlus 1.4."
  16.               )
  17.            )
  18.  
  19.         (message "\nStartupPlus \n\nis Shareware.\n\nIf you use either of these programs, please pay the requested amount to:\n\nLionel Morrison\n60 Furzefield Road.\nWelwyn Garden City\nHertfordshire, AL7 3RJ\n\nE-Mail: L.J.Morrison@herts.ac.uk")
  20.  
  21.         (if (exists "SYS:WBStartup/StartupPlus")
  22.            ( ; UPGRADE PREVIOUS VERSION
  23.               (message "\n\nA previous version of StartupPlus has been found.\nClick on Proceed to upgrade!")
  24.            )
  25.         )
  26.  
  27. (set wbisgo 0)
  28.  
  29.         (set default-dest SUP_Dest)
  30.  
  31.         (working "Reading the Install disk for StartupPlusMUI files.")
  32.  
  33.         (if (exists "SYS:WBStartup/StartupPlusMUI")
  34.            (
  35.               (delete "SYS:WBStartup/StartupPlusMUI")
  36.               (delete "SYS:WBStartup/StartupPlusMUI.info")
  37.            )
  38.         )
  39.  
  40.         (copyfiles
  41.            (source "StartupPlus")
  42.            (dest "SYS:WBStartup/")
  43.         )
  44.  
  45.         (if (NOT (exists "SYS:WBStartup/StartupPlus.info"))
  46.            (copyfiles
  47.               (source "StartupPlus.info")
  48.               (dest "SYS:WBStartup/")
  49.            )
  50.         )
  51.  
  52. (complete 25)
  53.  
  54.         (if (exists "SYS:Prefs/StartupPlusPrefsv1.1")
  55.            (
  56.               (delete "SYS:Prefs/StartupPlusPrefsv1.1")
  57.            )
  58.         )
  59.  
  60.         (if (exists "SYS:Prefs/StartupPlusPrefsv1.1.info")
  61.            (
  62.               (delete "SYS:Prefs/StartupPlusPrefsv1.1.info")
  63.            )
  64.         )
  65.  
  66.  
  67.         (if (exists "SYS:Prefs/StartupPlusPrefsv1.11")
  68.            (
  69.               (delete "SYS:Prefs/StartupPlusPrefsv1.11")
  70.            )
  71.         )
  72.  
  73.         (if (exists "SYS:Prefs/StartupPlusPrefsv1.11.info")
  74.            (
  75.               (delete "SYS:Prefs/StartupPlusPrefsv1.11.info")
  76.            )
  77.         )
  78.  
  79.         (if (exists "SYS:Prefs/SUPPrefsv1.2")
  80.            (
  81.               (delete "SYS:Prefs/SUPPrefsv1.2")
  82.            )
  83.         )
  84.  
  85.         (if (exists "SYS:Prefs/SUPPrefsv1.2.info")
  86.            (
  87.               (delete "SYS:Prefs/SUPPrefsv1..info")
  88.            )
  89.         )
  90.  
  91.         (copyfiles
  92.            (source "SUPPrefs")
  93.            (dest "SYS:Prefs/")
  94.         )
  95.  
  96.         (if (NOT (exists "SYS:Prefs/SUPPrefs.info"))
  97.            (copyfiles
  98.               (source "SUPPrefs.info")
  99.               (dest "SYS:Prefs/")
  100.            )
  101.         )
  102.  
  103. (complete 50)
  104.  
  105.         (if (exists "SYS:Prefs/StartupPlusMUI.guide")
  106.            (
  107.               (delete "SYS:Prefs/StartupPlusMUI.guide")
  108.               (delete "SYS:Prefs/StartupPlusMUI.guide.info")
  109.            )
  110.         )
  111.  
  112.         (copyfiles
  113.            (source "StartupPlus.guide")
  114.            (dest "SYS:Prefs")
  115.         )
  116.  
  117.         (if (NOT (exists "SYS:Prefs/StartupPlus.guide.info"))
  118.            (copyfiles
  119.               (source "StartupPlus.guide.info")
  120.               (dest "SYS:Prefs")
  121.            )
  122.         )
  123.  
  124. (complete 75)
  125.  
  126.         (if (NOT (exists "ENVARC:SUPKeyFile"))
  127.            (copyfiles
  128.              (source "SUPKeyFile")
  129.              (dest "ENVARC:")
  130.            )
  131.         )
  132.  
  133.         (if (NOT (exists  "ENV:SUPKeyFile"))
  134.            (copyfiles
  135.              (source "SUPKeyFile")
  136.              (dest "ENV:")
  137.            )
  138.         )
  139.  
  140.         (if (NOT (exists  "L:WBStart-Handler"))
  141.            (copyfiles
  142.              (source "WBStart-Handler")
  143.              (dest "L:")
  144.            )
  145.         )
  146.  
  147. (complete 100)
  148.  
  149. (exit text)