;
;  $VER: AmiPC BiBack DEMO PC Install 1.26 (30.03.97) Lejardinier Olivier
;

;***************************************************************************;

;
; Common Texts
;
;

(set #product-infos
(cat "\n"
     "AmiPC BiBack DEMO 1.26 (30.03.97)"
     "\n"
     "The Ultimate Multi-OS Backup System"
     "\n"
     "Copyright © 1996-97 Maymat Philippe"
     "\n"
     "All Rights Reserved"
     "\n"
))

;***************************************************************************;

;
; English Texts
;
;

(set #install-infos
(cat "This script install the PC version of AmiPC BiBack DEMO on a PC disk"
     "\n\n"
     "*WARNING* : You must disabled the 'Text filtering & translation' features of 'CrossDOS' "
     "program before installing the PC version on a PC disk. You can simply quit 'CrossDOS'."
))

(set #ask-format-type
(cat "\nSelect format type :\n"
))

(set #format-type-FULL
(cat "FULL : Any kind of disk."
))

(set #format-type-QUICK
(cat "QUICK  : Pre-formated MS-DOS PC disk."
))

(set #insert-disk
(cat "\n"
     "Please insert any disk in drive 'PC0:'"
))

(set #Format-Install
(cat "Format & Install"
))

(set #abort
(cat "Abort"
))
 
(set #formating-disk
(cat "Please wait, formating disk..."
))

(set #format-error
(cat "An error occured during disk formating..."
))

(set #unarchiving
(cat "Please wait, unarching program to PC disk..."
))

(set #unarchiving-error
(cat "An error occured during program unarchiving to PC disk..."
))

;***************************************************************************;

;
; French Texts
;
;

(if (= @language "français")
(
 (set #install-infos
 (cat "Ce script installe la version PC d'AmiPC BiBack DEMO sur une disquette PC"
      "\n\n"
      "*ATTENTION* : Vous devez désactiver le 'filtrage et conversion de texte' du programme "
      "'CrossDOS' avant d'installer la version PC sur une disquette PC. Le plus simple "
      "est de quitter le programme 'CrossDOS'."
 ))

 (set #ask-format-type
 (cat "\nSélectionnez un type de formatage :\n"
 ))
 
 (set #format-type-FULL
 (cat "COMPLET : N'importe quel type de disquette."
 ))
 
 (set #format-type-QUICK
 (cat "RAPIDE  : Disquette PC pré-formatée MS-DOS."
 ))

 (set #format-install
 (cat "Formater & Installer"
 ))
 
 (set #abort
 (cat "Abandonner"
 ))
 
 (set #insert-disk
 (cat "\n"
      "Insérez SVP une disquette dans le lecteur 'PC0:'"
 ))

 (set #formating-disk
 (cat "Patientez SVP, formatage de la disquette..."
 ))

 (set #format-error
 (cat "Une erreur est survenue pendant le formatage de la disquette..."
 ))

 (set #unarchiving
 (cat "Patientez SVP, désarchivage du programme sur la disquette PC..."
 ))

 (set #unarching-error
 (cat "Une erreur est survenue pendant le désarchivage du programme sur la disquette PC..."
 ))

)
)

;***************************************************************************;

 (complete 0)
 
 (message
  (cat #product-infos
       "\n"
       #install-infos
  )
 )
 
 (set #format-type (select (askchoice
                            (prompt #ask-format-type)
                            (help @askchoice-help)
                            (choices #format-type-FULL #format-type-QUICK)
                            (default 0)
                           ) "" "QUICK"
                   )
 )

 (if (askbool
      (prompt #insert-disk)
      (help #askbool-help)
      (choices #format-install
               #abort
      )
     )
  (
   (working #formating-disk )
   
   (if (run ("SYS:System/Format DRIVE PC0: NAME AmiPC NOICONS %s" #format-type))
    (abort #format-error)
    (
     (complete 33)

     (if (copyfiles
          (source "")
          (choices "LhEx" "AMIPC_DEMO.LHA")
          (dest "RAM:")
         )
      (
       (complete 66)

       (working #unarchiving)
      
       (set #error (run "RAM:LhEx -fqwPC0: x RAM:AMIPC_DEMO.LHA"))
       
       (delete "RAM:AMIPC_DEMO.LHA")
       (delete "RAM:LhEx")

       (if #error
        (abort #unarchiving-error)
        (
         (complete 100)
         (set @default-dest "AmiPC:")
        )
       )
      )
     )
    )
   )
  )
 )
 
 (exit)