; $VER: ArtEffect V1.x Install Version 1.3 (13.5.97)
; Installatiert ArtEffect auf der Festplatte
;
; (c) 1997 HAAGE & PARTNER Computer GmbH

(complete 0)

; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.

(set ae-version "2.0")
(set ae-date "(08 Mai 97)")

;====================================================================
; Initialisierungen

(set @default-dest "")

(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))

(set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges

; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.

; Die Pfadnamen der einzelnen Quell-Dateien.

(set #libfile (tackon (pathonly @icon) "Wizard/Wizard.library")) ; Hier stehen die Bibliothek

(set #prp-copy-lib
    "Copying Wizard-Library...\n")

(set #hlp-copy-lib
    "Program will not run without Wizard-Library!")

(if (= @language "deutsch") (

    (set #prp-copy-lib
        "Kopiere die Wizard-LIBRARY\n")

    (set #hlp-copy-lib
        "Ohne die Wizard-Library funktioniert nichts!")
))
;=====================================================================================
; Beginn der Installation
;=====================================================================================

; Eine kleine Einleitung, gefolgt vom Startbild des Installers.

(set act-user-level @user-level)
(user 1)


(if (<> @language "deutsch") (

(message (cat "\nWelcome at installation of \n\nArtEffect Demo "
    ae-version " of "ae-date "\!\n\n"
    "This script copies Wizard-Library to your hard disk "
    "and adds an Assign to your user-startup.\n\n"
    "© Copyright 1997 HAAGE & PARTNER Computer GmbH"))
))


(if (= @language "deutsch") (

    (message (cat   "\nWillkommen bei der Installation der \n\n\"ArtEffect-Demoversion "
                     ae-version " vom "ae-date "\"!\n\n"
                    "Dieses Skript kopiert die Wizard-Library für ArtEffect "
                    "auf Ihre Festplatte und erzeugt einen Assign.\n\n\n"
                    "© Copyright 1997 HAAGE & PARTNER Computer GmbH"))
))

(user act-user-level)
(welcome)


(complete 5)

; BGUI.Library in die Libs-Schublade kopieren!

(copylib
        (prompt #prp-copy-lib)
        (help #hlp-copy-lib)
        (source #libfile)
        (dest "LIBS:")
        (confirm)
)

(complete 95)

; ------- STARTUP ÄNDERN

(set command1 (cat  "ASSIGN ARTEFFECT: " (pathonly @icon) ""))

(set command1.txt
        (cat

        "\n\n\nThere must be a change in your user-startup "
        "to get ArtEffect to run!\n\n"
        command1
        )
)

(if (= @language "deutsch") (

   (set command1.txt
        (cat 
        "\n\n\nUm mit ArtEffect richtig arbeiten zu "
        "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
        command1
        )
   )

))

(startup "ArtEffect"
        (prompt command1.txt)
        (help #help-startup)
        (command command1)
)

(makeassign "ARTEFFECT")
(makeassign "ARTEFFECT" (pathonly @icon))

(complete 100)

; ------- FERTIG

(if (= @language "deutsch")
    (

        (message (cat
        "\nInstallation von ArtEffect beendet.\n\n"
        "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
        "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
        "\n\nWir wünschen ihnen viel Spaß mit ArtEffect !"))
    )
    (
        (message (cat
        "\nInstallation of ArtEffect completet!\n\n"
        "If the line:\n" command1 "\ndoes not appear in your user-startup "
        "you should do this by hand.\n\n\n"
        "Best wishes..."))
    )
)