;
; $VER: Klondike ADPTools Installation Script v2.0 (16.06.97)
;

 (complete 0)

 (if (< (/ (getversion) 65536) 39)
  (abort "\nDésolé, ce programme nécessite l'OS 3.0 ou supérieur !")
 )

 (if (not (exists "ADPRO:" (quiet)))
  (abort "\nAssign ADPRO: non trouvé !\n"
         "ADPro n'est pas présent dans votre système ou est mal installé."
  )
 )

 (welcome)

 (message "\nKlondike ADPTools v2.0\n"
          "- The ADPro tool kit for Klondike -\n"
          "Copyright © (16.06.97) Lejardinier Olivier\n"
          "All rights reserved.\n\n"
          "Cet ensemble de programmes ARexx pour ADPro vous "
          "permet de créer *FACILEMENT* vos propres jeux de "
          "cartes pour le fabuleux jeu KLONDIKE AGA.\n\n"
          "Pour plus de détails, lisez la documentation."
 )

 (set choice
  (askchoice
   (prompt "\nQuelle version voulez-vous utiliser ?\n")
   (help (cat "\nVous devez sélectionner la langue dans laquelle seront "
              "les programmes de Klondike ADPTools.\n\n"
              @askchoice-help
         )
   )
   (choices "Française"
            "Anglaise"
   )
   (default 0)
  )
 )
 
 (if (not (exists "ADPRO:Commands2"))
  (makedir "ADPRO:Commands2")
 )
 
 (set @default-dest "ADPRO:Commands2")
 (makedir "T:Klondike_ADPTools")

 (working "Désarchivage des programmes ARexx...")
 (if (= choice 0)
  (run "C/LHEX -fwT:Klondike_ADPTools x Datas/French.LHA")
  (run "C/LHEX -fwT:Klondike_ADPTools x Datas/English.LHA")
 )
 (copyfiles
  (source "T:Klondike_ADPTools")
  (pattern "#?.adpro")
  (dest @default-dest)
  (files)
 )
 
 (run "C:Delete T:Klondike_ADPTools/#?.adpro")

 (copyfiles
  (source "Datas/Reko")
  (dest "C:")
  (files)
 )
 
 (complete 30)
 
 (set @default-dest "ADPRO:")
 
 (set destination
  (askdir
   (prompt (cat "\nOu voulez-vous installer le répertoire 'Klondike_ADPTools' ?\n"
                "(Le répertoire 'Klondike_ADPTools' sera créé)\n"
           )
   )
   (help (cat "\nVous devez sélectionner l'emplacement où seront copiées "
              "la (ou les) documentation(s) ainsi que les données nécessaires "
              "au bon fonctionnement des programmes.\n\n"
              "Note : Le répertoire 'Klondike_ADPTools' sera créé automatiquement.\n\n"
              @askdir-help
         )
   )
   (default @default-dest)
  )
 )

 (set destination (tackon destination "Klondike_ADPTools"))

 (makedir destination (infos))
 
 (complete 60)

 (copyfiles
  (source "")
  (choices "Klondike_ADPTools.Guide" "Description" "Bugs_Report" "Print.info")
  (dest destination)
  (files)
  (infos)
  (noposition)
 )
 
 (complete 90)

 (working "Désarchivage des fichiers 'Templates'...")
 (run "C/LHEX -fwT:Klondike_ADPTools x Datas/Templates.LHA")
 (copyfiles
  (source "T:Klondike_ADPTools")
  (pattern "#?")
  (dest (tackon destination "Templates"))
  (files)
  (infos)
 )
 (run "C:Delete T:Klondike_ADPTools/#?")

 (working "Désarchivage des fichiers 'Symbols'...")
 (run "C/LHEX -fwT:Klondike_ADPTools x Datas/Symbols.LHA")
 (copyfiles
  (source "T:Klondike_ADPTools")
  (dest (tackon destination "Symbols"))
  (all)
  (infos)
 )
 (run "C:Delete T:Klondike_ADPTools ALL")

 (complete 100)
 
 (message "\nVous pouvez maintenant lancer ADPro pour utiliser Klondike ADPTools.")
 
 (exit)