; Script to install StartupPlus version 1.4
;
; StartupPlus Install Version $VER: Install-SUP 1.4 20.01.97
; COPYRIGHT 1995-97 Side Effects, ENGLAND
;
; e-mail: l.j.morrison@herts.ac.uk
;

(complete 0)

;check user has Dos 2
        (set DOSTYPE (/ (getversion) 65536))
           (if (NOT (>= DOSTYPE 37))
              (abort "StartupPlus 1.4 requires AmigaDOS 2.04 or higher."
                     " If you have an earlier version of AmigaDOS you must purchase an upgrade before using StartupPlus 1.4."
              )
           )

        (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")

        (if (exists "SYS:WBStartup/StartupPlus")
           ( ; UPGRADE PREVIOUS VERSION
              (message "\n\nA previous version of StartupPlus has been found.\nClick on Proceed to upgrade!")
           )
        )

(set wbisgo 0)

        (set default-dest SUP_Dest)

        (working "Reading the Install disk for StartupPlusMUIfiles.")

        (if (exists "SYS:WBStartup/StartupPlusMUI")
           (
              (delete "SYS:WBStartup/StartupPlusMUI")
              (delete "SYS:WBStartup/StartupPlusMUI.info")
           )
        )

        (copyfiles
           (source "StartupPlus")
           (dest "SYS:WBStartup/")
        )

        (if (NOT (exists "SYS:WBStartup/StartupPlus.info"))
           (copyfiles
              (source "StartupPlus.info")
              (dest "SYS:WBStartup/")
           )
        )

(complete 25)

        (if (exists "SYS:Prefs/StartupPlusPrefsv1.1")
           (
              (delete "SYS:Prefs/StartupPlusPrefsv1.1")
           )
        )

        (if (exists "SYS:Prefs/StartupPlusPrefsv1.1.info")
           (
              (delete "SYS:Prefs/StartupPlusPrefsv1.1.info")
           )
        )


        (if (exists "SYS:Prefs/StartupPlusPrefsv1.11")
           (
              (delete "SYS:Prefs/StartupPlusPrefsv1.11")
           )
        )

        (if (exists "SYS:Prefs/StartupPlusPrefsv1.11.info")
           (
              (delete "SYS:Prefs/StartupPlusPrefsv1.11.info")
           )
        )

        (if (exists "SYS:Prefs/SUPPrefsv1.2")
           (
              (delete "SYS:Prefs/SUPPrefsv1.2")
           )
        )

        (if (exists "SYS:Prefs/SUPPrefsv1.2.info")
           (
              (delete "SYS:Prefs/SUPPrefsv1..info")
           )
        )

        (copyfiles
           (source "SUPPrefs")
           (dest "SYS:Prefs/")
        )

        (if (NOT (exists "SYS:Prefs/SUPPrefs.info"))
           (copyfiles
              (source "SUPPrefs.info")
              (dest "SYS:Prefs/")
           )
        )

(complete 50)

        (if (exists "SYS:Prefs/StartupPlusMUI.guide")
           (
              (delete "SYS:Prefs/StartupPlusMUI.guide")
              (delete "SYS:Prefs/StartupPlusMUI.guide.info")
           )
        )

        (copyfiles
           (source "StartupPlus.guide")
           (dest "SYS:Prefs")
        )

        (if (NOT (exists "SYS:Prefs/StartupPlus.guide.info"))
           (copyfiles
              (source "StartupPlus.guide.info")
              (dest "SYS:Prefs")
           )
        )

(complete 75)

        (if (NOT (exists "ENVARC:SUPKeyFile"))
           (copyfiles
             (source "SUPKeyFile")
             (dest "ENVARC:")
           )
        )

        (if (NOT (exists  "ENV:SUPKeyFile"))
           (copyfiles
             (source "SUPKeyFile")
             (dest "ENV:")
           )
        )

        (if (NOT (exists  "L:WBStart-Handler"))
           (copyfiles
             (source "WBStart-Handler")
             (dest "L:")
           )
        )

(complete 100)

(exit text)