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

(set #introduction
(cat "\n\nBienvenue dans l'installation de LOTO"
"\n(rev 28.04.1998)"
"\n\nNous allons procéder à l'installation du programme sur votre Disque Dur"
"\n\nLOTO  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 LOTO-DEMO ")
(set #hd_help
(cat "    Vous devez choisir sur quelle partition de votre disque dur "
"le logiciel LOTO  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 ' LOTO-DEMO ' à 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 LOTO,"
" 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 "LOTO-DEMO"))
(makedir destination (prompt #cree_tiroir destination ".")
(infos)
)
;==========desarchivage des fichiers LHA en ram======================
 (working "Désarchivage archive.LHA en RAM")
 (run "LHEX -fwram:LOTO x archive.LHA")
 (copyfiles
     (source "ram:LOTO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:LOTO ALL")
 (complete 15)

 (working "Désarchivage grillejeu.LHA en RAM")
 (run "LHEX -fwram:LOTO x grillejeu.LHA")
 (copyfiles
     (source "ram:LOTO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:LOTO ALL")
 (complete 30)

 (working "Désarchivage autres.donnees.LHA en RAM")
 (run "LHEX -fwram:LOTO x autres.donnees.LHA")
 (copyfiles
     (source "ram:LOTO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:LOTO ALL")
 (complete 50)

 (working "Désarchivage gainjeu.LHA en RAM")
 (run "LHEX -fwram:LOTO x gainjeu.LHA")
 (copyfiles
     (source "ram:LOTO")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:LOTO ALL")
 (complete 60)


;============copie des autres fichiers=======================
(copyfiles
     (source "LOTOA1200(demo):LOTOV1.5-DEMO")
      (dest destination)
       ) 
(copyfiles
     (source "LOTOA1200(demo):LOTOV1.5-DEMO.info")
      (dest destination)
       ) 
(copyfiles
     (source "LOTOA1200(demo):LOTOV1.5-DEMO.DOC")
      (dest destination)
       ) 
(copyfiles
     (source "LOTOA1200(demo):LOTOV1.5-DEMO.DOC.info")
      (dest destination)
       ) 
(complete 75) 

(copyfiles
     (source "LOTOA1200(demo):FOND-LOTO")
      (dest destination)
       ) 
(copyfiles
     (source "LOTOA1200(demo):FOND-LOTO.info")
      (dest destination)
       ) 
(complete 75)
(copyfiles
     (source "LOTOA1200(demo):ppmore")
      (dest destination)
       ) 
(copyfiles
     (source "LOTOA1200(demo):READ-ME-FIRST.doc")
      (dest destination)
       ) 
(copyfiles
     (source "LOTOA1200(demo):READ-ME-FIRST.doc.info")
      (dest destination)
       )
(complete 85)

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