;script installation de de-archiveur 
;$VER: install de-archiveur 1.3 (15-May-98)
(set programme "De-Archiveur")
(set progver "1.3")
(SET @default-dest "sys:")

;** English strings *********************************

(set #bad-kick (cat "\n"
"You must have Kickstart 3.0 or higher installed to use De-Archiveur \n")
)

(set #install (cat "\n"
"        " programme " installation      \n\n"
"This script installs "programme" "progver"\n"
"             on your Amiga.               \n"
"" programme " © 1997-98 NightLight Team    \n\n"
"          All rights reserved             \n")
)

(set #install2 (cat
" A drawer nammed "programme" was created. \n\n"
"All the necessary files were copied here "
"(AppIcon...) \n\n"
"Your language was copied in the drawer "
"locale: of your system. \n\n"
"A drawer nammed docs was created in "
""programme" and the Manual was copied here.\n\n")
)

(set #where (cat
"In wich drawer should " programme " be installed "
"with this manual.\n"
"A drawer called De-Archiveur should be created.")
)

(set #where-help (cat "\n"
"A drawer called De-Archiveur should be created.\n"
"Principal files and datas should be copied in their own "
"drawer with the manual of your language.")
)

(set #which-language (cat
"Choose the language you want to use with De-Archiveur.")
)

(set #which-language-help (cat
" You have the possibility to not use your native "
" language with De-Archiveur.")
)

;** French strings ************************************

(if (= @language "français")

(
(set #bad-kick (cat "\n"
"Vous devez posseder le Kickstart 3.0 ou supérieur pour utiliser " programme "!\n")
)

(set #install (cat "\n"
"       Installation de "programme"    \n\n"
"Ce script installe "programme" "progver"\n"
"         sur votre Amiga.               \n"
""programme" © 1997-98 NightLight Team    \n\n"
"         Tous droits réservés.            ")
)

(set #install2 (cat
" Un tiroir nomme "programme" sera crée. \n\n"
"Le programme principal et autres fichiers "
"y seront copiés. (AppIcon...) \n\n"
"Votre langage sera copié dans votre tiroir "
"locale: \n\n"
"Un tiroir nomme docs sera crée dans "
""programme" et la doc y sera copié.\n\n")
)

(set #where (cat
" S.V.P, sélectionnez le chemin d'accés ou installer "
""programme" avec sa documentation.\n"
" Un tiroir appelé De-Archiveur sera créé.")
)

(set #where-help (cat "\n"
"Un tiroir appelé "programme" va ètre crée.\n\n"
"Le fichier principal et ses datas vont ètre copiés dans "
"leurs tiroirs respectifs ainsi que la documentation "
"suivant votre langague.")
)

(set #which-language (cat
" S.V.P, sélectionnez le langage que vous desirez "
" utiliser avec Dé-Archiveur.")
)

(set #which-language-help (cat
" Suivant vos habitudes, vous pouvez choisir de ne pas "
" utiliser votre langage natif avec Dé-Archiveur."))
))

;** programme principal ********************************

(if (< (/ (getversion) 65536) 39)
    (abort #bad-kick)
)

(message #install)
(message #install2)

;** copie des fichiers necessaires **********************

(set @default-dest
     (askdir (prompt (cat #where))
	     (help #where-help)
             (default @default-dest )))

(set destdir (tackon @default-dest "De-Archiveur"))
(makedir destdir (infos))
(copyfiles (source "De-Archiveur")
	   (dest destdir)
           (infos)
)

(if (exists "De-Archiveur_APPICON")
  (copyfiles (source "De-Archiveur/De-Archiveur_APPICON")
             (dest destdir)
  )
)

;** copie du catalogue desire *******************************

(SET language (ASKOPTIONS (PROMPT (#which-language))
                          (HELP #which-language-help)
                          (CHOICES "english"
                                   "français"
				   ""
                          )
                          (DEFAULT 1)
              )
)

(if (IN language 1)
    (COPYFILES (SOURCE "Catalogs/Français/De-Archiveur.catalog")
               (DEST "Locale:Catalogs/français") )
)

;** copie des docs suivant langage avec tiroir****************

(if (= @language "english")
    (set Sdocsdir "docs/English")
)

(if (= @language "français")
    (set Sdocsdir "docs/Français")
)

(set docsdir (tackon destdir "Docs"))
(makedir Docsdir (infos))
(copyfiles (source Sdocsdir)
           (dest docsdir)
           (all)
)

;** end *************************************

(set @default-dest destdir)
(EXIT)