; Installationsskript fr AmiAtlas Pro Demo V2.0
; erstellt fr Installer V1.24, 24.8.95, Autor: Andreas Regul

; Zum Entpacken des lha-Archives

;   Copyright-Hinweise fr 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 @user-level 2)
(set @language "deutsch")
(set @abort-button "Installation abbrechen")
(set @special-msg "Ein fataler Fehler ist aufgetreten !\nBitte wiederholen Sie die Installation.")
(set @error-msg (cat "'AmiAtlas Pro' wurde nicht komplett installiert. Bitte wiederholen Sie die Installation, "
                     "um eine lauffhige Version auf Ihrer Festplatte zu erhalten."))

(set sysdir (expandpath "SYS:"))
(set owndevice (expandpath ":"))

(complete 0)

(message (cat "\n"
          "AmiAtlas Pro Demo V2.0 '95 Andreas Regul   \n"
          "                                            \n"
          "Diese Demoversion ist Public Domain und     \n"
          "darf/soll frei weitergegeben werden.        \n"
          "                                            \n"
          "Einige Programmfunktionen sind nicht aus-   \n"
          "fhrbar und andere besitzen eine beschrnkte\n"
          "Aufrufhufigkeit.                           \n"
          "                                            \n"
          "Bestellen Sie die Vollversion, um den       \n"
          "Funktionsumfang uneingeschrnkt zu nutzen.  \n")
)

(welcome)

(set mydir
      (askdir
            (prompt "Bitte whlen Sie das Laufwerk fr 'AmiAtlas Pro'")
            (help "\nHilfe zur Laufwerksauswahl\n\n"
                  "Fr 'AmiAtlas Pro' wird ein eigenes Verzeichnis auf der Festplatte bentigt. "
                  "Um dieses Verzeichnis anlegen zu knnen, mssen Sie hier die Festplatte "
                  "angeben, auf der es installiert werden soll (z.B. Work:, DH0:, etc)."
            )
            (default "Work:")
            (newpath)
            (disk)
      )
)

(set @default-dest (tackon mydir "AmiAtlas"))
(set lhatarget (cat @default-dest "/"))

(if (NOT (exists @default-dest))
      (makedir @default-dest
            (prompt "\nVerzeichnis fr 'AmiAtlas Pro' erzeugen\n\n"
                    "Bitte klicken Sie 'Proceed' an, um fr 'AmiAtlas Pro' das Verzeichnis '"
                    @default-dest "' zu erzeugen.")
            (confirm)
            (help "\nHilfe zu 'Verzeichnis erzeugen'\n\n"
                  "Auf dem von Ihnen ausgewhlten Laufwerk wird das Unterverzeichnis "
                  "fr 'AmiAtlas Pro' angelegt. Sollten Sie doch einen anderen Pfad als "
                  "'" @default-dest "' verwenden wollen, knnen Sie das Installationsprogramm "
                  "an dieser Stelle abbrechen. Beim Neustart geben Sie dann den von Ihnen "
                  "gewnschten Pfad an.\n\n"
                  "Als Verzeichnisname wird jedoch in jedem Fall 'AmiAtlas' verwendet.\n")
            (infos)
      )
      (message "\nHinweis...\n\n"
               "Es existiert schon eine Version von AmiAtlas auf Ihrem System. "
               "Die neue Installation wird alte Dateien von AmiAtlas berschreiben.\n\n"
               "Wenn Sie dies nicht wnschen, brechen Sie bitte an dieser Stelle die "
               "Installation ab. Beim erneuten Starten der Festplatteninstallation "
               "whlen Sie dann ein anderes Verzeichnis.\n")
)

(complete 4)

(message "\nProgrammdateien kopieren\n\n"
         "Bitte klicken Sie 'Proceed' an, um 'AmiAtlas Pro' zu entpacken.")

(working "Entpacke Archiv...")

(run (cat "lhx x AmiAtlasDemo2.0.lha \"" lhatarget "\""))

(complete 100)

(message "\nInstallation beendet\n\n"
         "'AmiAtlas Pro Demo' befindet sich nun im Verzeichnis:\n\n'" (expandpath @default-dest) "'\n\n"
         "Um die Vollversion zu bestellen, starten Sie 'Drucke Formular' "
         "und schicken den ausgefllten Bestellschein zurck.\n")

(exit (quiet))

