;
; Script di installazione per ExtMan 1.15 (25.07.97)
;

; Stringhe

(set @default-dest  "")
(set @default-message "")
(set lib-def-dest   "LIBS:")
(set extman-dest    "SYS:Tools")

; E' un Amiga 3.0?
(if (= @language "italiano")
(
        (if (< (/ (getversion) 65536) 39) (abort "Devi avere il Kickstart 3.0 (o superiore) per usare\nEasyPrint."))

        (message
                (cat      "\n\n\nExtMan, script di installazione.\n"
                          "Questa procedura installa ExtMan sul vostro Amiga.\n\n"
                          "(C) Copyright 1995-1997 Alain Martini.\n Tutti i diritti sono riservati"
                ))

        (set lib-dest
                (askdir
                        (prompt  "Dove desideri venga copiata la libreria 'wizard.library' (sarą copiata solo se pił recente di quella gią installata)?")
                        (help    "    Se usi una directory per le librerie create da terzi, adesso puoi specificarla.")
                        (default lib-def-dest)
                )
        )

        (copylib
                (prompt (cat "Copio la wizard.library in " (tackon lib-dest "wizard.library")))
                (help   @copylib-help)
                (source "libs/wizard.library")
                (dest   lib-dest)
                (confirm)
        )

        (set extman-dest
                (askdir
                        (prompt  "Dove desideri installare ExtMan (sarą creato un nuovo cassetto chiamato 'ExtMan')?")
                        (help    "    Seleziona il cassetto in cui installare ExtMan.")
                        (default extman-dest)
                        (disk)
                )
        )

        (if (NOT (exists (tackon extman-dest "ExtMan")))
            (makedir (tackon extman-dest "ExtMan")
                     (infos)))

        (copyfiles
            (prompt "Copio 'Extman' in " extman-dest "ExtMan/...")
            (source "ExtMan/")
            (dest   (tackon extman-dest "ExtMan"))
            (all)
        )

        (copyfiles
            (prompt "Copio 'ExtMan.guide' in " extman-dest "Extman/...")
            (source "ExtMan_1.15")
            (dest   (tackon extman-dest "ExtMan"))
        )

        (copyfiles
            (prompt "Copio 'ExtMan_eng.guide' in " extman-dest "ExtMan/...")
            (source "Credits")
            (dest   (tackon extman-dest "ExtMan"))
        )
)
(
        (if (< (/ (getversion) 65536) 39) (abort "ExtMan need at least OS 3.0"))

        (message
                (cat      "\n\n\nEasyPrint, installation script.\n\n"
                          "This script installs ExtMan on your Amiga.\n\n"
                          "(C) Copyright 1996-1997 by Alain Martini\nAll rights reserved."
                )
        )

        ; Ask where to copy the library.

        (set lib-dest
                (askdir
                        (prompt  "Select directory where to install the library 'wizard.library' (copy the library using version checking).")
                        (help    "    Copy the library using version checking; i.e., it only overwrites an existing library if the new library has a higher version/revision number.")
                        (default lib-def-dest)
                )
        )

        ; Copy the library.

        (copylib
                (prompt (cat "Copying wizard.library to " lib-dest))
                (help   @copylib-help)
                (source "libs/wizard.library")
                (dest   lib-dest)
                (confirm)
        )

        (set extman-dest
                (askdir
                        (prompt  "Select directory where to install ExtMan (a directory called `ExtMan` will be created here).")
                        (help    "    If you specify a path, a new directory called `ExtMan` will be created in it. The program will be copied in this directory.")
                        (default extman-dest)
                        (disk)
                )
        )

        (if (NOT (exists (tackon extman-dest "ExtMan")))
            (makedir (tackon extman-dest "ExtMan")
                     (infos)))

        (copyfiles
            (prompt "Copying 'ExtMan' to " extman-dest "ExtMan/...")
            (source "ExtMan/")
            (dest   (tackon extman-dest "ExtMan"))
            (all)
        )

        (copyfiles
            (prompt "Copying 'ExtMan.guide' to " extman-dest "ExtMan/...")
            (source "ExtMan.guide")
            (dest   (tackon extman-dest "ExtMan"))
        )

        (copyfiles
            (prompt "Copying 'ExtMan_eng.guide' to " extman-dest "ExtMan/...")
            (source "ExtMan_eng.guide")
            (dest   (tackon extman-dest "ExtMan"))
        )
)
) ; if