;Installer script for WarpWB 1.2 and higher

;WarpWB by Marcus Tobias

(transcript "Install WarpWB")

(set #dir
        (askdir
                (prompt "Éòãa îïíçìðñaêêçïíáañû WarpWB?")
                (help @askdir-help)
                (default "SYS:WBStartup")
        )
)

(set #docs
        (askdir
                (prompt "Éòãa îíëäðñçñû ãíéòëäìñaõçý?")
                (help @askdir-help)
                (default "HELP:")
        )
)

(set #htmldocs
        (askdir
                (prompt "Éòãa îíëäðñçñû ãíéòëäìñaõçý? (HTML)")
                (help @askdir-help)
                (default "HELP:")
        )
)

(set #loc
        (askdir
                (prompt "Éòãa îíëäðñçñû éañaêíâ?")
                (help @askdir-help)
                (default "LOCALE:")
        )
)

(copyfiles
        (prompt "Éíîçïòý WarpWB")
        (help @copyfiles-help)
        (source "/")
        (dest #dir )
        (choices "WarpWB")
)

(copyfiles
        (prompt "Éíîçïòý WarpWB.info")
        (help @copyfiles-help)
        (source "/")
        (dest #dir )
        (choices "WarpWB.info")
)


(copyfiles
        (prompt "Éíîçïòý WarpWB_RUS.guide")
        (help @copyfiles-help)
        (source "/Documents/AmigaGuide")
        (dest #docs )
        (choices "WarpWB_RUS.guide")
)

(copyfiles
        (prompt "Éíîçïòý WarpWB_RUS.guide.info")
        (help @copyfiles-help)
        (source "/Documents/AmigaGuide")
        (dest #docs )
        (choices "WarpWB_RUS.guide.info")
)

(copyfiles
        (prompt "Éíîçïòý HTML-Guide")
        (help @copyfiles-help)
        (source "/Documents")
        (dest #htmldocs )
        (choices "HTML")
)

(copyfiles
        (prompt "Éíîçïòý HTML.info")
        (help @copyfiles-help)
        (source "/Documents")
        (dest #htmldocs )
        (choices "HTML.info")
)

(copyfiles
        (prompt "Éíîçïòý éañaêíâç")
        (help @copyfiles-help)
        (source "/")
        (dest #loc )
        (choices "Catalogs")
)


(copylib
        (prompt "Éíîçïòý lowlevel.library á LIBS:")
        (help @copylib-help)
        (source "/libs/lowlevel.library")
        (dest "LIBS:")
        (confirm)
)
(message "Îïäéïaðìí! Ìaãäýðû Áaë îíìïaáçñðþ WarpWB!")