;
; Script d'intallation pour Flexy 1.1+  ©2000 Seahorse Production 21
;
; $VER : 1.0 (08-02-2000) ©1999 seahorse@free.fr
;
;===========================================================================

; Variables par défaut :
(SET @user-level 2)
(SET @default-dest "sys:Tools")

(SET #L_English    0 )
(SET #L_Français   1 )
(SET #L_Italiano   2 )
(SET #L_Deutsch    3 )
(SET #L_Swedish    4 )
(SET #L_Slovensko  5 )
(SET #L_Català     6 )
(SET #L_Russian    7 )
(SET #L_Polski     8 )

(SET #NomProg Flexy)

;//+ **** -> Anglais   (0 - Défaut)

(SET #Def_lang #L_English #Def_doc #L_English)

(set #Msg_dir "\nChoose your Flexy directory\n(A drawer called \"Flexy\" will be created!)")
(set #Msg_cat "\nWhich catalog file do you want to install?\n(English language is built-in)")
(set #Msg_doc "\nSelect language for documentation in AmigaGuide format")

(SET #Cre_dir "\nCreating \"%s\" directory...")
(SET #Help_dir (CAT "\nChoose where you wish to install Flexy.\n"
		    "Again a \"Flexy\" drawer will be created."))
(SET #Pour "For ")
(SET #Help_Nil "")
(SET #Prt_awn "Installing AWNPipe handler...")
(SET #Prt_awn_hlp (CAT "Installation of AWNPipe handler."
		       "\nmust be copied to L: and to Devs:DosDrivers." ))
;+//
; -------------------------------------------------------------------
; //+ **** -> Français  (1)

(IF (= @language "français")
(
(SET #Def_lang #L_Français  #Def_doc #L_Français)

(SET #wrongCPU "Il vous faut au moins un 68020 !\n")
(SET #wrongOS  "Il vous faut au moins le système 3.0 !\n")
(SET #wrongMUI "Il vous faut au moins MUI 3.3 !\n")

(SET #Msg_dir "\nOù voulez-vous installer Flexy ?\n(Un répertoire « Flexy » sera crée.)\n")
(SET #Msg_cat "\nQuel langage voulez-vous installer ?\nL'Anglais est en interne.\n")
(SET #Msg_doc "\nQuelle documentation voulez-vous installer ?\n")

(SET #Cre_dir "Création du répertoire \"%s\"...")

(SET #Help_dir (CAT "\nChoisissez l'endroit où vous souhaitez installer Flexy.\n"
		    "Je vous rappel qu'un répertoire « Flexy » sera crée."))
(SET #Pour "Pour ")
(SET #Prt_awn "Installation du gestionnaire AWNPipe.")
(SET #Prt_awn_hlp (CAT "Installation du gestionnaire AWNPipe."
		       "\nSe place dans L: et Devs:DosDrivers." ))

)) ; +// Fin IF
; -------------------------------------------------------------------
; //+ **** -> Italien   (2)

(if (= @language "italiano")
(
 ;(SET #Def_lang #L_Italiano  #Def_doc #L_Italiano) ; Normal way
 (SET #Def_lang #L_English  #Def_doc #L_English) ; Current way

(set #Msg_dir "\nScegli la directory dove risiede Flexy\n(Un cassetto chiamato \"Flexy\" sarà creato!)")
(set #Msg_cat "\nQuale catalogo vuoi installare?\n(L'inglese è interno al programma)")
(set #Msg_doc "\nSeleziona la lingua per l'aiuto in linea")

(SET #Cre_dir "\nSto creando la directory \"%s\"...")
(SET #Help_dir (CAT "\nScegli dove vuoi installare Flexy.\n"
		    "Di nuovo un cassetto \"Flexy\" sarà creato."))
(SET #Pour "Per ")
(SET #Prt_awn "Installing AWNPipe handler...")
(SET #Prt_awn_hlp (CAT "Installation of AWNPipe handler."
		       "\nmust be copied to L: and to Devs:DosDrivers." ))
))   ; +//
; -------------------------------------------------------------------
; //+ **** -> Allemand  (3)
				   
(if (= @language "deutsch")
(
; (SET #Def_lang #L_Deutsch  #Def_doc #L_Deutsch) ; Normal way
(SET #Def_lang #L_English  #Def_doc #L_English) ; Current way

(set #Msg_dir "\nIn welchem Verzeichnis soll Flexy installiert werden?\n(Ein Verzeichnis namens \"Flexy\" wird automatisch erstellt!)")
(set #Msg_cat "\nWelche Katalogdateien sollen installiert werden?\n(Für Englisch wird keine Datei benötigt.)")
(set #Msg_doc "\nIn welcher Sprache soll die AmigaGuide Dokumentation installiert werden?")

(SET #Cre_dir "\nErzeuge Verzeichnis \"%s\"...")
(SET #Help_dir (CAT "\nWähle wo Flexy installiert werden soll.\n"
		    "Das Verzeichnis \"Flexy\" wird automatisch erzeugt."))
(SET #Pour "Für ")
(SET #Prt_awn "Installing AWNPipe handler...")
(SET #Prt_awn_hlp (CAT "Installation of AWNPipe handler."
		       "\nmust be copied to L: and to Devs:DosDrivers." ))
))  ; +//
; -------------------------------------------------------------------
; //+ **** -> Swedish   (4)     (not implemented)

(IF (= @language "swedish")
(
;(SET #Def_lang #L_Swedish  #Def_doc #L_Swedish)
 (SET #Def_lang #L_English  #Def_doc #L_English) ; Current way

(SET #Msg_dir "\nOù voulez-vous installer Flexy ?\n(Un répertoire « Flexy » sera crée.)\n")
(SET #Msg_cat "\nQuel langage voulez-vous installer ?\nL'Anglais est en interne.\n")
(SET #Msg_doc "\nQuelle documentation voulez-vous installer ?\n")

(SET #Cre_dir "Création du répertoire \"%s\"...")

(SET #Help_dir (CAT "\nChoisissez l'endroit où vous souhaitez installer Flexy.\n"
		    "Je vous rappel qu'un répertoire « Flexy » sera crée."))
(SET #Pour "Pour ")
(SET #Prt_awn "Installation du gestionnaire AWNPipe.")
(SET #Prt_awn_hlp (CAT "Installation du gestionnaire AWNPipe."
		       "\nSe place dans L: et Devs:DosDrivers." ))

)) ; +// Fin IF
; -------------------------------------------------------------------
; //+ **** -> Slovensko (5)

(IF (= @language "Slovensko")
(
(SET #Def_lang #L_Slovensko  #Def_doc #L_Slovensko)

(set #Msg_dir "\nIzberite ciljni predal!\n(Tam bo ustvarjen predal z imenom \"Flexy\"!)")
(set #Msg_cat "\nKateri katalog ¾elite namestiti?\n(Angle¹ki jezik je vgrajen.)")
(set #Msg_doc "\nIzberite jezik dokumentacije v formatu AmigaGuide!")

(SET #Cre_dir "\nUstvarjam predal \"%s\"...")
(SET #Help_dir (CAT "\nIzberite, kam ¾elite namestiti Flexy.\n"
		    "Tam bo ustvarjen predal z imenom \"Flexy\"."))
(SET #Pour "Za ")
(SET #Help_Nil "")
(SET #Prt_awn "Name¹èam rokovalnik AWNPipe...")
(SET #Prt_awn_hlp (CAT "Namestitev rokovalnika AWNPipe."
		       "\nDatoteke bodo prekopirane v L: in Devs:DosDrivers." ))
)) ; +// Fin IF
; -------------------------------------------------------------------
;=======================  <*  SCRIPT  *> ============================
; -------------------------------------------------------------------

;****  Vérifier l'environnement

; ****  Questionnaires  /  Choix...

(SET #Path_dir
	(askdir
	      (default @default-dest)
	      (prompt  #Msg_dir)
	      (help    #Help_dir) )
)
(SET #Path_dir (TACKON #Path_dir "Flexy"))
(SET @default-dest #Path_dir)

; ****  Choix du catalogue puis du guide

(SET #H_Langage (askchoice
    (PROMPT  #Msg_cat)
    (HELP    @askchoice-help)
    (CHOICES
	     "English"
	     "Français"
"";             "Italiano"
"";             "Deutsch"
"";             "Svenska"
	     "Slovensko"
	     "Català"
	     "Russian"
	     "Polski"
    )
    (DEFAULT #Def_lang)
	       )
)
(COMPLETE 10)

(SET #H_Guide (askchoice
    (PROMPT #Msg_doc)
    (HELP   @askchoice-help)
    (CHOICES
	     "AmigaGuide (English)"
	     "AmigaGuide (Français)"
"";             "AmigaGuide (Italiano)"
"";             "AmigaGuide (Deutsch)"
"";             "AmigaGuide (Swedish)"
	     "AmigaGuide (Slovensko)"
"";             "AmigaGuide (Català)"
"";             "AmigaGuide (Russian)"
	     "AmigaGuide (Polski)"
    )
    (DEFAULT #Def_doc)
	     )
)
(COMPLETE 20)

; **** Installation (dir)

(MAKEDIR #Path_dir (PROMPT (#Cre_dir #NomProg)) (INFOS))

(SET #Cat_dir (tackon #Path_dir "Catalogs"))
(IF (NOT (EXISTS #Cat_dir)) (MAKEDIR #Cat_dir (PROMPT (#Cre_dir "Catalogs"))) )

(COMPLETE 30)
(IF (> #H_Langage 0)
(
   (if (= #H_langage #L_Français)
     ( (copyfiles (source (tackon "Catalogs" "français")) (ALL) (dest (tackon #Cat_dir "français")))
       ;(copyfiles (source (tackon "Catalogs" "français")) (ALL) (dest "Locale:catalogs/français"))
     ))
   (if (= #H_langage #L_Italiano)
     ( (copyfiles (source (tackon "Catalogs" "italiano")) (ALL) (dest (tackon #Cat_dir "italiano")))
     ))
   (if (= #H_langage #L_Deutsch )
     ( (copyfiles (source (tackon "Catalogs" "deutsch"))  (ALL) (dest (tackon #Cat_dir "deutsch")))
     ))
    (if (= #H_langage #L_Swedish )
     ( (copyfiles (source (tackon "Catalogs" "Swedish"))  (ALL) (dest (tackon #Cat_dir "Swedish")))
    ))
    (if (= #H_langage #L_Slovensko )
     ( (copyfiles (source (tackon "Catalogs" "Slovensko"))  (ALL) (dest (tackon #Cat_dir "Slovensko")))
    ))
     (if (= #H_langage #L_Català )
     ( (copyfiles (source (tackon "Catalogs" "Català"))  (ALL) (dest (tackon #Cat_dir "Català")))
     ))
     (if (= #H_langage #L_Russian )
     ( (copyfiles (source (tackon "Catalogs" "Russian"))  (ALL) (dest (tackon #Cat_dir "Russian")))
     ))
     (if (= #H_langage #L_Polski )
     ( (copyfiles (source (tackon "Catalogs" "polski"))  (ALL) (dest (tackon #Cat_dir "polski")))
     ))
       
))
(COMPLETE 40)
(IF (= #H_Guide #L_English)  (copyfiles (source "Docs/Flexy_En.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Français) (copyfiles (source "Docs/Flexy_Fr.guide") (dest #Path_dir) (infos)))
;(IF (= #H_Guide #L_Italiano) (copyfiles (source "Docs/Flexy_It.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Italiano) (copyfiles (source "Docs/Flexy_En.guide") (dest #Path_dir) (infos)))
;(IF (= #H_Guide #L_Deutsch)  (copyfiles (source "Docs/Flexy_De.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Deutsch)  (copyfiles (source "Docs/Flexy_En.guide") (dest #Path_dir) (infos)))
;(IF (= #H_Guide #L_Swedish)  (copyfiles (source "Docs/Flexy_Se.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Swedish)  (copyfiles (source "Docs/Flexy_En.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Slovensko) (copyfiles (source "Docs/Flexy_Si.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Català)   (copyfiles (source "Docs/Flexy_En.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Russian)  (copyfiles (source "Docs/Flexy_En.guide") (dest #Path_dir) (infos)))
(IF (= #H_Guide #L_Polski)   (copyfiles (source "Docs/Flexy_Pl.guide") (dest #Path_dir) (infos)))
(COMPLETE 60)

(copyfiles (source "Flexy") (dest #Path_Dir) (infos))
(copyfiles (source "Flexy.sig") (dest #Path_Dir))
(copyfiles (source "Flexy_App.icone") (dest #Path_Dir) (newname "Flexy_App.info"))
(copyfiles (source "ATO.readme") (dest #Path_Dir) (optional "nofail"))

(copylib (source "awnpipe/AWNPIPE") (dest "DEVS:DosDrivers")
	 (confirm) (prompt #prt_awn) (HELP #prt_awn_hlp)
	 (optional "askuser") (infos))
(copylib (source "awnpipe/awnpipe-handler") (dest "L:")
	 (confirm) (prompt #prt_awn) (HELP #prt_awn_hlp)
	 (optional "askuser"))

(COMPLETE 100)              

; -------------------------------------------------------------------
; -------------------------- FIN DE SCRIPT --------------------------
; -------------------------------------------------------------------