Amiga ISO Collection/AmigaUtilCD2.iso/Scala/Scalecho.dms/Scalecho.adf/Install

Text File | 1993-12-13 | 5.4 KB | 187 lines

; $VER: Scala Echo Install Program Version 1.0 (13Dec93)

;----------------------------- Text Strings -------------------------------

(set msg_NoSelect    "You did not select anything. Please try again.")
(set msg_NoDrawer    ("You must select a drawer to install %s. Please try again." @app-name))
(set msg_ChooseWhat    ("Please select which parts of %s you would like to install:" @app-name))
(set msg_ChooseDest    "Please select the drawer where Scala Multimedia or InfoChannel is installed.")
(set msg_NoScala    "Scala Multimedia or InfoChannel was not found in this drawer. Please try again. If you have not installed Scala Multimedia or InfoChannel yet, please select \"Abort Install\" and install Scala Multimedia or InfoChannel first.")
(set msg_OldWorkbench    ("You need at least Worbench 2.04 to install %s" @app-name))
(set msg_Installing    "Installing %s...")
(set msg_LANC        "LANC EX")
(set msg_InfraRed    "InfraRed EX")
(set msg_Trainer    "InfraRed Trainer Utility")
(set msg_ClipArt    "Clip Art")
(set msg_Demo        "Demo Script")
(set msg_SelectDrawer    "In which drawer would you like to install the EXes? (Press \"Help\" for more information)\n")
(set msg_DrawerHelp    "If you choose \"Startup\", the EXes will be used the next time you start Scala Multimedia or InfoChannel.  If you choose \"EX\", you will have to move the EXes to the Startup drawer manually to activate them.")
(set msg_StartupDrawer    "Startup drawer  (use EXes immediately)")
(set msg_EXDrawer    "EX drawer (don't use EXes immediately)")
(set msg_MoveLingua    "Replacing path in %s...")

;------------------------------ Constants ---------------------------------

(set opt_LANC        %000000001)
(set opt_InfraRed    %000000010)
(set opt_Trainer    %000000100)
(set opt_ClipArt    %000001000)
(set opt_Demo        %000010000)



;-------------------------- Utility procedures ----------------------------

(Procedure CheckConfig
    (set OS_Version (/ (getversion) 65536))
    (if (< OS_Version 37)
    (abort msg_OldWorkbench)
    )
)



;-------------------------- Menu procedures -------------------------------

(Procedure InstallMenu
    (until (<> Selection 0)
        (
        (set Selection
            (askoptions
                (prompt msg_ChooseWhat)
                (help @askoptions-help)
                    (choices
                         msg_LANC
                         msg_InfraRed
                         msg_Trainer
                         msg_ClipArt
                         msg_Demo
                    )
        )
        )
    )
        (if (= Selection 0)
            (message msg_NoSelect)
        )
    )
)


(Procedure DestMenu
    (set @dest "")
    (while (or     (= @dest (pathonly @dest))
            (not (exists (tackon @dest "Startup")))
            (not (exists (tackon @dest "EX")))
            (not (exists (tackon @dest "Utilities")))
           )
        (set tmp
            (askdir
                (prompt msg_ChooseDest)
                (help @askdir-help)
                (newpath)
                (default @default-dest)
        )
        )
        (set @dest tmp)
        (if (= @dest (pathonly @dest))
        (message msg_NoDrawer)
        (if    (or (not (exists (tackon @dest "Startup")))
                (not (exists (tackon @dest "EX")))
                (not (exists (tackon @dest "Utilities")))
        )
        (message msg_NoScala)
        )
    )
    )
    (if (or (bitand Selection opt_LANC)
            (bitand Selection opt_InfraRed)
        )
        (set Drawer
            (select
                (askchoice
                (prompt msg_SelectDrawer)
                (choices msg_StartupDrawer msg_EXDrawer)
                    (help msg_DrawerHelp)
            )
            "Startup"
            "EX"
        )
        )
    )
    (set @default-dest @dest)
)



;------------------------- Installation procedures ------------------------
(Procedure InstallFiles
    (if (bitand Selection opt_LANC)
        (
        (working (msg_Installing msg_LANC))
        (copyfiles    (source "ScalaEcho:EX/LANC")
                (dest (tackon @dest drawer))
                (infos)
        )
    )
    )
    (if (bitand Selection opt_InfraRed)
        (
        (working (msg_Installing msg_InfraRed))
        (copyfiles    (source "ScalaEcho:EX/InfraRed")
                (dest (tackon @dest drawer))
                (infos)
        )
    )
    )
    (if (bitand Selection opt_Trainer)
        (
        (working (msg_Installing msg_Trainer))
        (copyfiles    (source "ScalaEcho:Utilities/ScalaEcho")
                (dest (tackon @dest "Utilities"))
                (infos)
        )
    )
    )
    (if (or (bitand Selection opt_InfraRed)
            (bitand Selection opt_Trainer)
        )
        (makedir (tackon @dest "Remotes") (infos))
    )
    (if (bitand Selection opt_ClipArt)
        (
        (working (msg_Installing msg_ClipArt))
        (copyfiles    (source "ScalaEcho:Tools/Lha")
                (dest "RAM:")
        )
        (working (msg_Installing msg_ClipArt))
        (run ("RAM:Lha -N x ScalaEcho:ClipArt.lha \"%s/\"" @dest))
        (delete "RAM:Lha")
        )
    )
    (if (bitand Selection opt_Demo)
        (
        (working (msg_Installing msg_Demo))
        (copyfiles    (source "ScalaEcho:Scripts/ScalaEcho.script")
                (dest (tackon @dest "Scripts"))
                (infos)
        )
        (copyfiles    (source "ScalaEcho:Tools/MoveLingua")
                (dest "RAM:")
        )
        (set ScriptName (tackon @dest "Scripts/ScalaEcho.script"))
        (working (msg_MoveLingua ScriptName))
        (run ("RAM:MoveLingua \"%s\" Work:Scala \"%s\" \"%s\"" ScriptName @dest (tackon @dest "Scripts")))
        (delete "RAM:MoveLingua")
    )
    )
)

;------------------------------- Main program -----------------------------

(CheckConfig)
(InstallMenu)
(DestMenu)
(InstallFiles)
(exit)
(welcome)