; Installationsskript für AmigaKonto V2.0
; erstellt für Installer V1.24, 8.6.93, Autor: Andreas Regul

;   Copyright-Hinweise für Installer:

;     Installer and Installer project icon
;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
;     Reproduced and distributed under license from Commodore.

;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
;     NO WARRANTIES ARE MADE. ALL USE IS AT YOUR OWN RISK. NO LIABILITY
;     OR RESPONSIBILITY IS ASSUMED.

(set @default-dest "SYS:")
(set @user-level 2)

(set @error-msg (cat "AmigaKonto wurde nicht komplett installiert. Bitte wiederholen Sie die Installation, "
                     "um eine lauffähige Version auf Ihrer Festplatte zu erhalten."))

(complete 0)

(welcome "Willkommen zur Festplatten-Installation von AmigaKonto.\n")

(set mydir
	      (askdir
            (prompt "Bitte wählen Sie das Laufwerk für AmigaKonto")
            (help "Für AmigaKonto wird ein eigenes Verzeichnis "
                  "auf der Festplatte benötigt. Um dieses Verzeichnis "
                  "anlegen zu können, müssen Sie hier die Festplatte "
                  "angeben, auf der installiert werden soll (z.B. Work:, DH0:, etc).\n"
            )
            (newpath)
            (default @default-dest)
            (disk)
	      )
)

(set @default-dest (tackon mydir "AmigaKonto"))
(set icondir (tackon @default-dest "Icons"))

(if (NOT (exists @default-dest))
         (makedir @default-dest
            (prompt "Das Verzeichnis \'" @default-dest "\' wird erzeugt. Bitte \'Proceed\' anklicken.")
            (confirm)
            (help "Auf dem von Ihnen ausgewählten Laufwerk wird das Unterverzeichnis "
                  "für AmigaKonto angelegt. Sollten Sie doch einen anderen Pfad als "
                  "\'" @default-dest "\' verwenden wollen, können Sie das Installations- "
                  "programm an dieser Stelle abbrechen. Beim Neustart geben Sie dann den "
                  "von Ihnen gewünschten Pfad an.\n\n"
                  "Als Verzeichnisname wird jedoch in jedem Fall 'AmigaKonto' verwendet.\n")
            (infos)
         )
)

(complete 5)

(if (NOT (exists icondir))
         (makedir icondir
            (infos)
         )
)

(complete 10)

(message "Als nächstes werden die Programmdateien kopiert. Bitte \'Proceed\' anklicken, um fortzufahren.")

(set n 0)
(while (set thisfile (select n "AmigaKonto:AmigaKonto" "AmigaKonto:AmigaKonto.info" ""))
         ((set n (+ n 1))
            (copyfiles
               (prompt "Kopiere Datei \'"thisfile"\'")
               (help "")
               (source thisfile)
               (dest @default-dest)
               (optional force askuser)
            )
         )
)

(complete 70)

(set n 0)
(while (set thisfile (select n "AmigaKonto:Icons/def_drawer.info" "AmigaKonto:Icons/def_KontoProject.info"
                               "AmigaKonto:Icons/def_SpecProject.info" "AmigaKonto:Icons/def_KontoTool.info" ""))
         ((set n (+ n 1))
            (copyfiles
               (prompt "Kopiere Datei \'"thisfile"\'")
               (help "")
               (source thisfile)
               (dest icondir)
               (optional force askuser)
            )
         )
)

(complete 80)

(set osversion (/ (getversion) 65536))

(if (< osversion 36)
        (copyfiles
                (prompt "Kopiere Datei \'AmigaKonto.prefs\'")
                (help "")
                (source "AmigaKonto:AmigaKonto.prefs")
                (dest @default-dest)
        )
        (if (exists "ENVARC:")
                (copyfiles
                        (prompt "Kopiere Datei \'AmigaKonto.prefs\'")
                        (help "")
                        (source "AmigaKonto:AmigaKonto.prefs")
                        (dest "ENVARC:")
                )
                       (copyfiles
                               (prompt "Kopiere Datei \'AmigaKonto.prefs\'")
                               (help "")
                               (source "AmigaKonto:AmigaKonto.prefs")
                               (dest @default-dest)
                       )
        )
)

(complete 90)

(set assign (cat "Assign AmigaKonto: \"" @default-dest "\""))

(startup "AmigaKonto"
         (prompt "Es wird ein Assign in der user-startup benötigt. "
                 "Bitte \'Proceed\' anklicken, um hiermit fortzufahren.\n")
         (help "AmigaKonto wird über das logische Laufwerk \"AmigaKonto:\" "
               "angesprochen und benötigt deshalb einen Verweis auf "
               "das entsprechende Festplattenverzeichnis. Dieser Verweis "
               "wird beim Amiga in der Datei 'user-startup' durch einen "
               "Assign-Befehl hergestellt. Diese Installation fügt den "
               "benötigten Befehl selbständig ein.\n")
         (command assign)
)

(complete 100)