; $VER: Install_France.guide 1.0 (29.11.94) écrit par Gérard Cornu ;-) pour Saint Jérôme le Gueux.
;  

(set MSG_README "Lise_&_Moi")

(set MSG_BAD_KICK "%s nécessite au minimum le système 2.0\n(3.x de préférence !)") 

(set MSG_NOT_3.0        (cat  "Il semblerait que votre machine n'utilise pas le"
                              " système 3.x. %s peut fonctionner sur"
                              " votre système, mais vous ne pourrez pas afficher les"
                              " cartes directement depuis %s.\n\n"
                              " Cliquez sur \"Aide...\" pour les modifications"
                              " à apporter de façon à voir les cartes comme sous"
                              " le système 3.x, (ou presque ;-)")) 

(set MSG_HELP_NOT_3.0   (cat  "Il suffit simplement de remplacer, dans le fichier"
                              " France.guide, les\n\n"
                              "    LINK Cartes/....iff/MAIN}\n\n"
                              "par des\n\n"
                              "    SYSTEM \"PPShow Cartes/....iff\"}\n\n"
                              "Vous pouvez évidemment remplacer PPShow par votre"
                              " Viewer d'images préféré. Notez que les guillemets ont leur importance.\n\n"
                              "Deux chercher/remplacer"
                              " dans votre éditeur de texte y parviendront:\n\n"
                              "Chercher:\n\n"
                              "LINK Cartes/\n\n"
                              "Remplacer par:\n\n"
                              "SYSTEM \"PPShow Cartes/\n\n"
                              "Puis, chercher:\n\n"
                              ".iff/MAIN}\n\n"
                              "et remplacer par:\n\n"
                              ".iff\"}\n\n"
                              "Encore une fois les \" ne sont pas là uniquement pour décorer ;-).\n\n"
                              "Le répertoire qui contient l'afficheur d'images,\n"
                              "PPShow dans notre exemple, doit bien sûr être\n"
                              "dans votre chemin de commandes (\"Path\")."))

(set MSG_DESTINATION    (cat  "Où désirez-vous installer l'ensemble %s ?\n"
                              "Un répertoire \"France\" y sera créé, et l'ensemble"
                              " des fichiers de %s sera copié dans ce répertoire \"France\".")) 

(set MSG_FONT           (cat  "\n\n\n%s est fournie avec une font, Helvetica en 9 points,"
                              " optimisée par mes soins. Voulez-vous la copier dans"
                              " votre répertoire \"Fonts:\"?"))

(set MSG_HELP_FONT      (cat  "Pour un confort optimal, votre écran doit être au"
                              " minimum en 640x512 4 Couleurs.\n\n"
                              "La police de caractère fournie (Helvetica 9) est parfaite"
                              " pour un écran 17 pouces ou supérieur."))

(set MSG_FIXFONTS "\"Sys:System/FixFonts\" est en train de mettre à jour votre répertoire \"Fonts:\"")

(set MSG_PATH           (cat  "Afin que %s fonctionne correctement (par exemple depuis ToolManager),"
                              " il est nécessaire que le chemin où vous venez d'installer %s soit"
                              " inclus dans la variable d'environnement système \"AmigaGuide/path\".\n\n"
                              "Voulez-vous que je modifie (ou crée, si nécessaire)"
                              " cette variable d'environnement ?"))

(set MSG_HELP_PATH      (cat  "Si vous choisissez de \"Passer cette partie\", il vous faudra le"
                              " faire manuellement. Pour plus d'infos sur cette variable"
                              " d'environnement, cliquez sur le bouton \"Aide\""
                              " lorsque vous êtes dans AmigaGuide (ou Multiview)."))

(set MSG_APPENDING_PATH (cat  "Mise à jour de votre variable d'environnement"
                              " \"ENV:AmigaGuide/Path\" et copie dans \"ENVARC:AmigaGuide/Path\"."))

(set MSG_THANKS "\n\n\nMerci d'avoir installé %s!")

;------------------------------------------------------------------------------

; Choose default tool for guide, depending on user's OS version
(set osversion  (/ (getversion) 65536))
(if (>= osversion 39)
   (set guide_reader "MultiView") 
   (set guide_reader "AmigaGuide")
)
(set installed "")

(if (< osversion 37)
   (abort (MSG_BAD_KICK @app-name))
)

(if (< osversion 39)
   (message (MSG_NOT_3.0 @app-name @app-name) (help MSG_HELP_NOT_3.0))
)   

(set dest_dir
   (askdir (prompt (MSG_DESTINATION @app-name @app-name))
           (help @askdir-help)
           (default "Help:")
           (newpath)
   )
)

(set @default-dest (tackon dest_dir "France"))

(copyfiles  (source "France")
            (dest @default-dest)
            (infos)
            (all)
)
(copyfiles (source MSG_README)
           (dest @default-dest)
           (infos)
           (files)
)           

(set installed "YES")

(set font
   (askbool (prompt (MSG_FONT @app-name))
            (help MSG_HELP_FONT)
            (choices "Copier la font" "Passer cette partie")
   )
)   

(if (= font 1)
   (
      (copyfiles (source "fonts")
                 (dest "Fonts:")
                 (all)
      )
      (if (exists "Sys:System/FixFonts" (noreq))
         (  
            (working MSG_FIXFONTS)
            (run "Sys:System/FixFonts")
         )
      )            
   )
)                 

(set dopath
   (askbool (prompt (MSG_PATH @app-name @app-name))
            (help MSG_HELP_PATH)
            (choices "Oui" "Passer cette partie")
   )
)               

(if (= 1 dopath)
   (
      (working MSG_APPENDING_PATH)

      (if (exists "ENV:AmigaGuide/Path" (noreq)) 
         (textfile (dest "ENV:AmigaGuide/Path")
                   (append (getenv "AmigaGuide/Path"))
                   (append (cat "\n" @default-dest))
         )
         (textfile (dest "ENV:AmigaGuide/Path")
                   (append @default-dest)
         )
      )
      (copyfiles (source "ENV:AmigaGuide/Path")
                 (dest "ENVARC:AmigaGuide")
                 (files)
                 (nogauge)
      )
   )
)         

(if (exists (tackon @default-dest "France.guide.info") (noreq))
   (
      (tooltype   (dest (tackon @default-dest "France.guide"))
                  (noposition) (setdefaulttool guide_reader))
      (set installed "YES")         
   )
)

(if (= installed "YES") 
   (exit (MSG_THANKS @app-name))
   (exit)
)