; Installer-script for Magic-Exchange V1.18
; 01.03.1997 by Michael Einemann

(set #introduction
(cat "\n\nThis program lets you install the utility Magic-Exchange V1.18.\n"
     "You must have Installed MUI V3.0 or Higher"
))

(set #installmsg
(cat "Installing the Magic-Exchange main program..."
))

(set #askdir-exchange
(cat "Select a place to put Magic-Exchange."
))

(set #install-lang
(cat "Installing language-catalogs..."
))

(set #install-docs
(cat "Installing the Magic-Exchange Dokumentation"
))

(set #install-rexx
(cat "Installing the Magic-Exchange Arexx scripts"
))

(set @default-dest "Sys:Wbstartup")

(transcript "Installing Magic-Exchange V1.18...")

(message #introduction)

(copylib
         (help @copylib-help)
         (prompt #installmsg)
         (confirm)
         (source "Install/Exchange")
         (dest
                 (askdir
                        (prompt #askdir-exchange)
                        (help @askdir-help)
                        (default "Sys:wbstartup")
                 )
         )
)

(complete 50)

(copyfiles
        (help @copyfiles-help)
        (prompt #install-lang)
        (confirm)
        (source "Install/catalogs")
        (all)
        (dest "Sys:locale/catalogs/")
)

(complete 80)

(copyfiles
        (help @copyfiles-help)
        (prompt #install-lang)
        (confirm)
        (source "Install/Docs/")
        (all)
        (dest "Work:Documentation/")
)

(complete 90)

(copyfiles
        (help @copyfiles-help)
        (prompt #install-lang)
        (confirm)
        (source "Install/Exchange")
        (dest "work:WbStartup/")
)

(complete 95)

(copyfiles
        (help @copyfiles-help)
        (prompt #install-lang)
        (confirm)
        (source "Install/Exchange.info")
        (dest "Work:wbstartup/")
)

(complete 99)

(copyfiles
        (help @copyfiles-help)
        (prompt #install-lang)
        (confirm)
        (source "Install/ARexx")
        (all)
        (dest "Rexx:")
)

(complete 100)