;$VER:Script d'installation d'AmiSearch

(complete 0)
(set @default-dest "Work:")

; Texts

(set #Warning-Txt
(cat "Attention !\n\n\n"
"AmiSearch a besoin de MUI 3.3+ pour fonctionner.\n\n"
"Sans MUI AmiSearch ne marchera pas...\n\n"
))(set #Path-Txt
(cat "Choisissez le répertoire cible. Un tiroir AmiSearch "
"y sera crée."
))(set #Path-Help
(cat "\nCette partie vous permet de choisir le répertoire où sera placé AmiSearch. \n\n"
"Un tiroir AmiSearch y est crée, afin de permettre une meilleure gestion de vos index.\n\n"
"Par défaut c'est Work:\n\n\n"
))


; Main

(message #Warning-Txt)
(set target
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
))
(set @default-dest (tackon target "AmiSearch"))
(makedir (tackon target "AmiSearch")(infos))
(makedir (tackon target "AmiSearch/Docs") (infos))
(makedir (tackon target "AmiSearch/Index") (infos))
(copyfiles
(prompt "Copie logiciel")
(help @copy-files-help)
(source "AmiSearch")
(dest (tackon target "AmiSearch"))
(infos))

(complete 20)
(copyfiles (prompt "Copie localisation") (source "Locale/AmiSearch.cd") (dest "LOCALE:"))
(copyfiles (prompt "Copie localisation") (source "Locale/Catalogs/Français/AmiSearch.catalog") (dest "LOCALE:Catalogs/Français"))

(complete 50)
(copyfiles
(prompt "Copie documentation")
(help @copy-files-help)
(source "Docs/Manuel_Français.guide")
(dest (tackon target "AmiSearch/Docs"))
(infos))

(complete 75)
(copyfiles
(prompt "Copie environnement")
(help @copy-files-help)
(source "ENVARC/AmiSearch.Paths")
(dest "ENVARC:")
)
(copyfiles
(prompt "Copie environnement")
(help @copy-files-help)
(source "ENVARC/AmiSearch.Paths")
(dest "ENV:")
)

(complete 100)