;
; Script d'installation de KENO DEMO BELGE.
;
;=============================================================================
(if (= @language "français")
(
(set def_language 16)

(set #introduction
(cat "\n\nBienvenue dans l'installation de KENO"
"\n(rev 28.04.1998)"
"\n\nNous allons procéder à l'installation du programme sur votre Disque Dur"
"\n\nKENO  est Copyright 1993-1998 MATUSZAK ERIC"
"\nVeuillez lire le fichier ReadMe et la documentation pour de plus amples renseignements"
"\n\n  E-Mail : ematuszak@nordnet.fr " 
)
)
(set @default-dest "sys:T")
(set #hd_prompt"Où voulez-vous installer le TIROIR KENO-DEMO-BELGE ")
(set #hd_help
(cat "    Vous devez choisir sur quelle partition de votre disque dur "
"le logiciel KENO  s'installera. Par défaut il s'agit de la partition qui porte "
"le nom de " @default-dest "\n"
"    Le programme d'installation créera un "
"répertoire du nom de 'KENO-DEMO-BELGE' à l'endroit que vous avez choisi, "
)
)

(set #assign_prompt "\n\nNous allons assigner le programme dans le fichier user-startup.")
(set #assign_help "\n Cette fonction permet au programme de retrouver ses fichiers.")
(set #fin_install_hd
(cat "\n\n Voilà.. l'installation est   terminée  .."
" cliquez la cellule  CONTINUER, puis retirer le disk KENO,"
" pour REBOOTER .Le programme est dans le répertoire \n"
)
)
)
)
(complete 5) 

;-----------------------------------------------------
(message #introduction)
;******************************************************************************** 
; installation sur le disque Dur
;********************************************************************************       
;======================== choix et assignement tiroir
(set dest1 (askdir
           (prompt #hd_prompt)
           (default @default-dest)
           (help #hd_help )
           (disk)
           )
)
;======================== création tiroir
(set destination (tackon dest1 "KENO-DEMO-BELGE"))
(makedir destination (prompt #cree_tiroir destination ".")
(infos)
)
;==========desarchivage des fichiers LHA en ram======================
 (working "Désarchivage archive.LHA en RAM")
 (run "LHEX -fwram:KENO x archive.LHA")
 (copyfiles
     (source "ram:KENO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:KENO ALL") 
 (complete 10)
 (working "Désarchivage bulletin.LHA en RAM")
 (run "LHEX -fwram:KENO x bulletin.LHA")
 (copyfiles
     (source "ram:KENO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:KENO ALL") 
 (complete 20)
 (working "Désarchivage config.LHA en RAM")
 (run "LHEX -fwram:KENO x config.LHA")
 (copyfiles
     (source "ram:KENO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:KENO ALL")
 (complete 30)
 (working "Désarchivage documentation.LHA en RAM")
 (run "LHEX -fwram:KENO x documentation.LHA")
 (copyfiles
     (source "ram:KENO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:KENO ALL") 
 (complete 40)
 (working "Désarchivage donnees.LHA en RAM")
 (run "LHEX -fwram:KENO x donnees.LHA")
 (copyfiles
     (source "ram:KENO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:KENO ALL") 
 (complete 50)
 (working "Désarchivage gain.LHA en RAM")
 (run "LHEX -fwram:KENO x gain.LHA")
 (copyfiles
     (source "ram:KENO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:KENO ALL")
 (complete 60)
 (working "Désarchivage PROGA.lha en RAM")
 (run "LHEX -fwram:KENO x PROGA.lha")
 (copyfiles
     (source "ram:KENO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:KENO ALL") 
 (complete 70)
;============copie des autres fichiers=======================
(copyfiles
     (source "KENO-DEMO-BELGE:font_inc.t")
      (dest destination)
       ) 
(copyfiles
     (source "KENO-DEMO-BELGE:font_inc.t.info")
      (dest destination)
       ) 
(complete 75)
(copyfiles
     (source "KENO-DEMO-BELGE:more")
      (dest destination)
       ) 
(copyfiles
     (source "KENO-DEMO-BELGE:READ-ME-FIRST.doc")
      (dest destination)
       ) 
(copyfiles
     (source "KENO-DEMO-BELGE:READ-ME-FIRST.doc.info")
      (dest destination)
       )
(complete 85)

;============transfert des librairies et des fontes====================
(working "TRANSFERT DES FONTES")
(copyfiles
    (all)
    (optional "force")
      (source "KENO-DEMO-BELGE:Fonts")
      (dest "Fonts:")
)

(working "TRANSFERT DES LIBRAIRIES")
(copylib
    (optional "force")
     (source "KENO-DEMO-BELGE:libs/HBasic2.library")
      (dest "Libs:")
)
(complete 90)
;============================== assign ================================
(startup "KENO"
        (command "assign KENO: " destination)
        (prompt #assign_prompt )
        (help #assign_help )
)
;================================ fin =================================
(complete 100)
(message #fin_install_hd  destination "\n")
(run "reboot")