Aminet 10/aminetcdnumber101996.iso/Aminet/util/moni/SSpeed12.lha/sysspeed/Install

Text File | 1995-11-26 | 7KB | 384 lines

;================================= ENGLISH ==================================

(set languages-default 1)

(set #bad-kick "You must be using Kickstart 2.04+ to install SysSpeed")

(set #copy-main "Copying SysSpeed...")

(set #copy-datas "Copying SysSpeed datafiles...")

(set #copy-doc "Copying Documentation...")

(set #copy-reqtools-library "Copying reqtools.library to Libs: ...")

(set #copy-powerpacker-library "Copying powerpacker.library to Libs: ...")

(set #copy-xpkmaster-library "Copying xkpmaster.library to Libs: ...")

(set #copy-shri-library "Copying xpkSHRI.library to Libs:Compressors/ ...")

(set #copy-fonts "Copying XEN Font to Fonts: ...")

(set #install-select
    (cat
        "Please select the different parts of SysSpeed that you"
        " would like to install:"
    )
)

(set #install-select-help
    (cat
        "SysSpeed: The Ultimate Speedtester...\n"
    )
)

(set #doc-select
    (cat
        "Please select your favourite documentation that you would"
        " like to install:"
    )
)

(set #doc-select-help
    (cat
        "Select you favourite documentation!"
    )
)

(set #item-main "SysSpeed Mainprogram")

(set #item-datas "SysSpeedDatas")

(set #item-doc "Documentation")

(set #item-libraries "Libraries")

(set #item-fonts "XEN Font")

(set #where-main "Where would you like to install the SysSpeed mainprogram?")

(set #where-main-help
    (cat
        "This is the destination directory for the SysSpeed mainprogram"
    )
)

(set #where-datas "Where would you like to install Datas for SysSpeed ?")

(set #where-datas-help
    (cat
        "This is the destination directory of Datas for SysSpeed!"
    )
)

(set #where-doc "Where would you like to install the Documentations?")

(set #install-exit
    (cat
        "Thank you for installing SysSpeed ..."
    )
)

(set #install-start
    (cat
        "\nWelcome to SysSpeed installation utility!\n\n"
        "Written and performed by cLYDE rADCLIFFE/AD!\n"
    )
)

;===[ German Documentation ]=================================================

(if (= @language "deutsch")
 (
(set languages-default 2)

(set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um SysSpeed benutzen zu können!")

(set #copy-main "Kopiere SysSpeed...")

(set #copy-doc "Kopiere Dokumentation...")

(set #copy-reqtools-library "Kopiere reqtools.library ins Libs: ...")

(set #copy-powerpacker-library "Kopiere powerpacker.library ins Libs: ...")

(set #copy-xpkmaster-library "Kopiere xkpmaster.library ins Libs: ...")

(set #copy-shri-library "Kopiere shri.library ins Libs:Compressors/ ...")

(set #copy-fonts "Kopiere XEN Zeichensatz ins Fonts: ...")

(set #install-select
    (cat
        "Bitte wähle die einzelnen Teile des SysSpeed's, aus die"
        " Du installieren möchtest:"
    )
)

(set #doc-select
    (cat
        "Bitte wähle die Dokumentationen aus die Du installieren"
        " möchtest:"
    )
)

(set #item-main "SysSpeed Hauptprogramm")

(set #item-datas "SysSpeed Datenfiles")

(set #item-doc "Anleitung")

(set #item-libraries "Libraries")

(set #item-fonts "XEN Zeichensatz")

(set #where-main "Wohin möchtest Du SysSpeed installieren?")

(set #where-main-help
    (cat
        "Dies ist das Zielverzeichnis von SysSpeed."
    )
)

(set #where-datas "Wohin möchtest Du die Daten von SysSpeed installieren?")

(set #where-datas-help
    (cat
        "Dies ist das Zielverzeichnis, von den daten die das"
        " SysSpeed benötigt!"
    )
)

(set #where-doc "Wohin möchtest Du die Dokumentation installieren?")

(set #install-exit
    (cat
        "Vielen Dank für die Installation von SysSpeed ..."
    )
)

(set #install-start
    (cat
        "\nWilkommen zur SysSpeed Installation!\n\n"
        "Geschrieben von cLYDE rADCLIFFE/AD!\n"
    )
)

 )
)


;============================== PROGRAM-START================================

(set @default-dest "")

; Check Kickstart (>= v2.0) Version.

(if (< (/ (getversion) 65536) 37)
    (abort #bad-kick)
)

(message #install-start)

(set install-default 15)

(if (NOT (exists "Fonts:XEN" (noreq)))
    (set install-default (BITOR install-default 16))
)

(welcome)

(set install-files
    (askoptions
        (prompt    #install-select)
        (help    #install-select-help "\n\n" @askoptions-help)
        (choices
            #item-main
            #item-datas
            #item-doc
            #item-libraries
            #item-fonts
        )
        (default install-default)
    )
)

(set startup-files 0)

(if (BITAND install-files 1)
    (
    (set main-dest
        (askdir
            (prompt    #where-main)
            (help    #where-main-help "\n\n" @askdir-help)
            (default "SYS:")
            )
        )
    )
)

(if (BITAND install-files 2)
    (set datas-dest
        (askdir
            (prompt    #where-datas)
            (help    #where-datas-help "\n\n" @askdir-help)
            (default "SYS:")
        )
    )
)

; Check + DefaultSet + Request Of Documentation(s)

(if (BITAND install-files 4)
    (
        (if (= @LANGUAGE "deutsch")
            (set doc-default 2)
            (set doc-default 1)
        )
        (set doc-files
            (askoptions
                (prompt    #doc-select)
                    (help    #doc-select-help "\n\n" @askoptions-help)
                    (choices
                        "SysSpeed... English"
                        "SysSpeed... Deutsch"
                    )
                (default doc-default)
            )
        )
        (set doc-dest
            (askdir
                (prompt    #where-doc)
                (help    @askdir-help)
                (default "SYS:")
            )
        )
    )
)


;========================== COPY STARTS HERE ===============================

; Copy SysSpeed MainProgram

(if (BITAND install-files 1)
    (
        (copyfiles
            (prompt #copy-main)
            (source "SysSpeed")
            (dest main-dest)
            (files)
            (infos)
        )
    (delete (tackon main-dest ".info"))
    )
)

(complete 14)

; Copy DataFiles

(if (BITAND install-files 2)
    (
        (copyfiles
            (prompt #copy-datas)
            (source "SysSpeedData")
            (dest (tackon datas-dest "SysSpeedData"))
            (all)
        )
    )
)

(complete 28)


;Copy selected Documentations

(if (BITAND install-files 4)
    (
        (set n 0)
        (while
            (set doc
                (select n
                    "SysSpeed.doc"
                    "SysSpeed.dok"
                    ""
                )
            )
            (
                (if (IN doc-files n)
                    (
                        (if (exists (tackon "" doc))
                            (copyfiles
                                (prompt #copy-doc)
                                (source (tackon "" doc))
                                (dest doc-dest)
                                (infos)
                            )
                        )
                    )
                )
                (set n (+ n 1))
            )
        )
    (delete (tackon doc-dest ".info"))
    )
)

(complete 42)

;Copy reqtools.library to libs:

(if (BITAND install-files 8)
    (
        (copylib
            (prompt #copy-reqtools-library)
            (source "Libs/reqtools.library")
            (dest "Libs:")
        )
        (complete 56)
        (copylib
            (prompt #copy-powerpacker-library)
            (source "Libs/powerpacker.library")
            (dest "Libs:")
        )
        (complete 70)
        (copylib
            (prompt #copy-xpkmaster-library)
            (source "Libs/xpkmaster.library")
            (dest "Libs:")
        )
        (if (< "68010" prozess)
            (set shri-source "Libs/compressors/xpkshri.library")
            (set shri-source "Libs/compressors.020/xpkshri.library")
        )
        (complete 84)
        (copylib
            (prompt #copy-shri-library)
            (source shri-source)
            (dest "Libs:compressors")
        )
    )
)

(complete 90)

(if (BITAND install-files 16)
    (
        (copyfiles
            (prompt #copy-fonts)
            (source "Fonts")
            (dest "Fonts:")
            (all)
            (fonts)
        )
    )
)

(complete 100)

(EXIT #install-exit)