Enigma Amiga Life 106/EnigmaAmiga106CD.iso/software/grafica/visionfx/visionfx_install

Text File | 1999-08-18 | 5.1 KB | 306 lines

; VisionFX installer script
;
; Written by Sebastian Jedruszkiewicz
; Copyright © 1999 Total Vision.

(
    (set bytes "1.0MB")
    (set installdir "ImageFX3:")
    (set action "Install")

    (procedure _AskDir
        (
            (set installdrawer
            (askdir
            (prompt "Select the directory where you have ImageFX(tm) installed.\n"
            "(Note:  About " bytes " of free space is required for installation)")
            (help @askdir-help)
            (default installdir)
            ))
        (set dir installdrawer)
        )
    )


    (if
        (exists "ImageFX3:" (noreq))
        (set installdir "ImageFX3:")
    )

    (if
        (exists "ImageFX4:" (noreq))
        (set installdir "ImageFX4:")
    )

(complete 0)

    (set action
        (select
            (askchoice
                (prompt    "Select action:")
                (help    @askchoice-help)
                (choices
                    "Install"
                    "UnInstall"
                )
                (default "Install")
            )
            "Install"
            "UnInstall"
        )
    )

(complete 10)

   (_AskDir)

(complete 20)

;Installation

(if (= action "Install")
(
    (copyfiles
       (prompt "")
       (help "")
       (source "Modules/Savers/JPEG.PPC")
       (dest (tackon installdir "Modules/Savers"))
    )

(complete 30)

    (copyfiles
       (prompt "")
       (help "")
       (source "Modules/Savers/PNG.PPC")
       (dest (tackon installdir "Modules/Savers"))
    )

(complete 40)

    (copyfiles
       (prompt "")
       (help "")
       (source "Modules/Savers/ASCII.PPC")
       (dest (tackon installdir "Modules/Savers"))
    )

(complete 50)

    (copyfiles
       (prompt "")
       (help "")
       (source "Modules/Loaders/JPEG.PPC")
       (dest (tackon installdir "Modules/Loaders"))
    )

(complete 60)

    (copyfiles
       (prompt "")
       (help "")
       (source "Modules/Loaders/PNG.PPC")
       (dest (tackon installdir "Modules/Loaders"))
    )

(complete 70)

    (copyfiles
       (prompt "")
       (help "")
       (source "Hooks/FXForge.PPC")
       (dest (tackon installdir "Hooks/"))
    )

(complete 75)

    (copyfiles
       (prompt "")
       (help "")
       (source "Hooks/Antique.PPC")
       (dest (tackon installdir "Hooks/"))
    )

    (copyfiles
       (prompt "")
       (help "")
       (source "Hooks/VolumeLight.PPC")
       (dest (tackon installdir "Hooks/"))
    )

(complete 80)

    (working "Setting Icon Tool Types...\n"
                 "  updating ImageFX.info"
    )

    (tooltype
        (prompt "")
        (help "")
        (dest (tackon installdir "ImageFX"))
        (settooltype "POWERUP" (""))
    )

    (working "Setting Icon Tool Types...\n"
             "  updating Cinemorph.info"
    )
    (tooltype
        (prompt "")
        (help "")
        (dest (tackon installdir "Cinemorph"))
        (settooltype "POWERUP" (""))
    )

    (working "Setting Icon Tool Types...\n"
             "updating ImageFX_Classic.info"
    )
    (tooltype
        (prompt "")
        (help "")
        (dest (tackon installdir "ImageFX_Classic"))
        (settooltype "POWERUP" (""))
    )

    (working "Setting Icon Tool Types...\n"
              "updating ImageFX_Toaster.info"
    )
    (tooltype
        (prompt "")
        (help "")
        (dest (tackon installdir "ImageFX_Toaster"))
        (settooltype "POWERUP" (""))
    )

    (working "Setting Icon Tool Types...\n"
             "    updating IMP.info"
    )
    (tooltype
        (prompt "")
        (help "")
        (dest (tackon installdir "IMP"))
        (settooltype "POWERUP" (""))
    )

    (working "Setting Icon Tool Types...\n"
             "   updating AutoFX.info"
    )
    (tooltype
        (prompt "")
        (help "")
        (dest (tackon installdir "AutoFX"))
        (settooltype "POWERUP" (""))
    )

    (working "Setting Icon Tool Types...\n"
             " updating Sample_Proj.info"
    )
    (tooltype
        (prompt "")
        (help "")
        (dest (tackon installdir "Sample_Proj"))
        (settooltype "POWERUP" (""))
    )

(complete 85)

    (copyfiles
       (prompt "")
       (help "")
       (source "s/vfx.key1")
       (dest "s:")
    )


(complete 90)

    (copyfiles
        (prompt "")
        (help "")
        (source "VisionFX.guide")
        (dest (tackon installdir "Help/"))
    )

(message "\n\n\nPlease read "installdir"Help/VisionFX.guide before running ImageFX")

))

;deinstallation

(if (= action "UnInstall")
(

(complete 10)

    (working"     Removing file:\n"
                "Modules/Loaders/JPEG.PPC"
    )
    (delete (tackon installdir "Modules/Loaders/JPEG.PPC"))

    (working"     Removing file:\n"
                "Modules/Loaders/PNG.PPC"
    )
    (delete (tackon installdir "Modules/Loaders/PNG.PPC"))

    (working"     Removing file:\n"
                "Modules/Savers/JPEG.PPC"
    )
    (delete (tackon installdir "Modules/Savers/JPEG.PPC"))

    (working"     Removing file:\n"
                "Modules/Savers/PNG.PPC"
    )
    (delete (tackon installdir "Modules/Savers/PNG.PPC"))

    (working"     Removing file:\n"
                "   Hooks/FXForge.PPC"
    )
    (delete (tackon installdir "Hooks/FXForge.PPC"))

    (working"     Removing file:\n"
                "   Hooks/Antique.PPC"
    )
    (delete (tackon installdir "Hooks/Antique.PPC"))

    (working"     Removing file:\n"
                "   Hooks/VolumeLight.PPC"
    )
    (delete (tackon installdir "Hooks/VolumeLight.PPC"))

    (working"     Removing file:\n"
                "   Help/VisionFX.guide"
    )
    (delete (tackon installdir "Help/VisionFX.guide"))
    (delete (tackon installdir "Help/VisionFX.info"))

    (set keys
        (select
            (askchoice
                (prompt    "Remove Key files?")
                (help    @askchoice-help)
                (choices
                    "Yes"
                    "No"
                )
                (default "No")
            )
            "Yes"
            "No"
        )
    )

    (if (= keys "Yes")
    (
        (working"  Removing key files\n"
        )
        (delete "s:vfx.key1")
        (delete "s:vfx.key2")
    ))

(message "VisionFX modules has been removed")

))

(complete 100)

)