; Installer installation script for ADM
; $VER: Install ADM 1.43 (22.11.94)

(set @default-dest "")

(set default_lang 1)
(set #msg-doserror-msg  "DOS Fehler %ld aufgetreten.")
(set #msg-dest-prompt   "Bitte wählen Sie einen Platz für das ADM-Verzeichnis")
(set #msg-dest-help     "Hier kann das Verzeichnis ausgewählt werden,\nwo ein ADM-Verzeichnis angelegt werden soll\n")
(set #msg-mkadmdir-prompt
        (cat    "\n\n\nSie haben ein Verzeichnis mit dem Namen 'ADM' ausgewählt!\n"
                        "Heißt das, daß ADM in DIESES Verzeichnis "
                        "installiert werden soll?\n\n"
                        "(eventuelle Adreßdaten werden nicht überschrieben)"
        )
)
(set #msg-mkadmdir-help
        (cat    "'Yes' installiert ADM direkt in dieses Verzeichnis, "
                "'No' erstellt ein neues Verzeichnis namens 'ADM'"
        )
)
(set #msg-installto-msg "\n\n\nADM wird installiert ins Verzeichnis: \n\n" )
(set #msg-setdirtree-working "Setze das aktuelle Verzeichnis...")
(set #msg-defexe-prompt "Kopiere Dateien...")
(set #msg-keyfile-prompt
     (cat "Vielen Dank für die Registrierung von ADM!\n\n"
          "Jetzt wird Dein PERSÖNLICHES Key-File in DEVS: "
          "installiert. Da es Deinen Namen und Deine Adresse "
          "enthält, darf es *KEINESFALLS WEITERGEGEBEN* werden!"
     )
)
(set #msg-keyfile-help
     (cat "\nDas PERSÖNLICHE Key-File kann nun ins entsprechende "
          "Verzeichnis kopiert werden.\n"
          "Da es Deinen Namen und Deine Adresse enthält, darf es "
          " *KEINESFALLS WEITERGEGEBEN* werden bzw. in "
          "falsche Hände geraten!"
     )
)


(user 2)

(if (< (/ (getversion) 65536) 37)
  (
    (abort "ADM benötigt mindestens OS 2.04!")
  )
)

(complete 0)

(message "\nAddressMaster Installation\n\n\n"
         "Hiermit kann ADM\n\n"
         "installiert werden.\n\n"
         "AddressMaster (ADM) © 1993-1994 Jan Geissler\n"
         "All rights reserved."
)

(set ADMdir
        (askdir
                (prompt #msg-dest-prompt )
                (default "Work:")
                (help   #msg-dest-help)
        )
)

(if (= (fileonly ADMDir) "ADM")
        (
                (set MakeADMDir
                        (askbool
                        (prompt #msg-mkadmdir-prompt)
                                (help   #msg-mkadmdir-help )

                                (default 1)
                        )
                )

                (if (= MakeADMDir 1)
                        (
                                (set ADMDir (pathonly ADMDir))

                                (message #msg-installto-msg (tackon ADMDir "ADM"))

                        )
                        (
                                (message #msg-installto-msg (tackon ADMDir "ADM"))

                                (makedir (tackon ADMdir "ADM")
                                        (infos)
                                )
                        )
                )


        )
        (
                (makedir (tackon ADMdir "ADM")
                        (infos)
                )
        )

)

(working #msg-setdirtree-working)

(makeassign "ADM" (tackon ADMdir "ADM"))

(copyfiles
        (prompt #msg-defexe-prompt)
        (source "")
        (dest (tackon ADMDir "ADM") )
        (infos)
        (all)
)

(complete 70)

(run "delete " (tackon "ADM:" "Installieren"))
(run "delete " (tackon "ADM:" "Installieren.info"))

(complete 75)

(if (exists "/Key-File/ADM.key")

    (copyfiles
            (prompt #msg-keyfile-prompt)
            (source "/Key-File/ADM.key")
            (dest "devs:" )
            (help #msg-keyfile-help)
            (infos)
            (confirm)
    )
)

(complete 80)

(copylib
  (prompt "\nInstalliere ReqTools.library nach LIBS:...\n\n(HELP für Hilfe)\n\n")
  (help "ReqTools.library wird, falls installiert, von ADM "
        "von ADM dazu verwendet, die Anwählfunktion"
        "tastenbedienbar zu machen.\n\n"
        @copylib-help)
  (source "libs/ReqTools.library")
  (dest "LIBS:")
  (confirm)
)

(complete 90)

(copylib
  (prompt "\nInstalliere RexxReqtools.library nach LIBS:...\n\n('HELP' für Hinweise)")
  (help "RexxReqTools.library wird von diversen "
        "ADM-ARexx-Makros verwendet\n\n"
        @copylib-help)
  (source "libs/rexxreqtools.library")
  (dest "LIBS:")
  (confirm)
)

(complete 100)

(message "\n\nFertig.\n\n"
         "AddressMaster (ADM) ist nun komplett installiert.\n\n"
         "Um alte Adreßdaten (z.B. von Addresser, DFA oder "
         "MasterAddress) weiterzuverwenden, können sie mit dem "
         "dem Paket beiliegenden Datenumwandler komfortabel "
         "in ADM-Dateien umgewandelt werden."

)

(message "\n\n\n"
         "ADM enthält eine einfache Online-Hilfsfunktion.\n\n"
         "Diese wird mit der Help-Taste (im Hauptfenster oder in "
         "einem Eingabefeld) bzw. bei Anklicken eines Funktionsknopfs (Gadgets) "
         "bei gehaltener Control(Ctrl)-Taste aktiviert.\n\n"
         "So kann man ADM einfach kennenlernen!"
)

(message "\nBitte nicht vergessen:\n\nAddressMaster (ADM) ist\n--- SHAREWARE---\n\n"
         "Wenn Du ADM kennengelernt hast und es öfters benutzt "
         "willst, solltest Du Dich für nur DM 25,- registrieren lassen!\n\n"
         "Nur so ist sichergestellt, daß ADM auch in Zukunft "
         "weiterentwickelt wird und weitere Shareware-Produkte "
         "für den Amiga entstehen!"
)

(message "\n\nIch freue mich auch über Vorschläge\nund jede Art von 'Feed-Back'!\n\n\nViel Spaß mit ADM\n\nwünscht\n\nJan Geißler")

(exit)

; that'll keep him happy