Amiga ISO Collection/AmigaDemoCD2.iso/DEMOS/PZL_ELEM.lzx/Install_Elements

Text File | 1992-09-02 | 2.8 KB | 165 lines

(set @user-level 2)
(user 2)
(welcome
        "\nWelcome to the \"ELEMENTS\" installer!")

(set instdir
    (askdir
        (prompt "Select destination path for ELEMENTS"
                        " - a directory called 'Elements' will be made there!")
        (help @askdir-help)
        (default "SYS:")
        (newpath)
        (disk)
    )
)
    (
        (if ( = (exists instdir (noreq)) 0)   ;if selected path doesn't exist...
            ;then create dir
            (makedir instdir
                (prompt ("creating directory \"%s\"" instdir))
                (help @makedir-help)
                (infos)
                (confirm)
            )
            ;else directory is already there - use it.
            ;()
        )
    )
(
    (askdisk sourcedisk
        (prompt "\nPlease insert disk \"Elements 1\".")
        (help @askdisk-help)
        (dest "Elements1")
        (assigns)
    )
    (copyfiles
    (source "Elements1:c/Lharc")
    (dest instdir)
    )
)
(set DeArcher (tackon instdir "lharc"))
(complete 0)
(
    (
        (set @execute-dir instdir)
            (
                        (working "Installing Elements...")
                    (run
                                ("%s\ -f x \Elements1:pzl_ele1.lha \ >nil:" DeArcher)
                )

            )
        )
    )

(
    (askdisk sourcedisk
        (prompt "\nPlease insert disk \"Elements 2\".")
        (help @askdisk-help)
        (dest "Elements2")
        (assigns)
    )
)

(
(complete 17)
    (
        (set @execute-dir instdir)
            (
                        (working "Music by MeloManiac...")
                    (run
                                ("%s\ -f x \Elements2:pzl_ele2.lha \ >nil:" DeArcher)
                )
            )
        )
    )

(
    (askdisk sourcedisk
        (prompt "\nPlease insert disk \"Elements 3\".")
        (help @askdisk-help)
        (dest "Elements3")
        (assigns)
    )
)
(
(complete 33)
    (
        (set @execute-dir instdir)
            (
                        (working "Graphics by Tactica...")
                    (run
                                ("%s\ -f x \Elements3:pzl_ele3.lha \ >nil:" DeArcher)
                )
            )
        )
    )

(
    (askdisk sourcedisk
        (prompt "\nPlease insert disk \"Elements 4\".")
        (help @askdisk-help)
        (dest "Elements4")
        (assigns)
    )
)
(
(complete 50)
    (
        (set @execute-dir instdir)

            (
                        (working "A Puzzle production...")
                    (run
                                ("%s\ -f x \Elements4:pzl_ele4.lha \ >nil:" DeArcher)
                )
            )
        )
    )

(
    (askdisk sourcedisk
        (prompt "\nPlease insert disk \"Elements 5\".")
        (help @askdisk-help)
        (dest "Elements5")
        (assigns)
    )
)
(
(complete 67)
    (
        (set @execute-dir instdir)
            (
                        (working "Released at The Party 6...")
                    (run
                                ("%s\ -f x \Elements5:pzl_ele5.lha \ >nil:" DeArcher)
                )
            )
        )
    )
(
    (askdisk sourcedisk
        (prompt "\nPlease insert disk \"Elements 6\" (last one).")
        (help @askdisk-help)
        (dest "Elements6")
        (assigns)
    )
)
(
(complete 84)
    (
        (set @execute-dir instdir)
            (
                        (working "Installing last bytes...")
                    (run
                                ("%s\ -f x \Elements6:pzl_ele6.lha \ >nil:" DeArcher)
                )
            )
        )
    )
(complete 100)

(delete DeArcher)

(exit)