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

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

;
; Common Texts
;
;

(set #product-infos
(cat "\n"
     "AmiPC BiBack v1.26 DEMO (30.03.97)"
     "\n"
     "The Ultimate Multi-OS Backup System"
     "\n"
     "Copyright © 1996-97 Lejardinier Olivier"
     "\n"
     "All Rights Reserved"
     "\n"
))

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

;
; English Texts
;
;

(set #bad-amigados-version
(cat "\n"
     "Sorry, this program required AmigaDOS v2.0 or above (v37+)."
))

(set #bad-processor-version
(cat "\n"
     "Sorry, this program required a 68020 or higher."
))

(set #install-infos
(cat "This script install a 68020 or higher version of the AmiPC BiBack DEMO main program."
))

(set #ask-product-path
(cat "\n"
     "Where did you have installed 'AmiPC_DEMO' main program ?"
     "\n"
))

(set #no-product
(cat "The selected directory does not contained 'AmiPC_DEMO' main program !"
))

(set #diskspace-error
(cat "Not enought disk space on :\n\n%s"
))

(set #backup-error
(cat "An error occured during main program backup..."
))

(set #updating-program
(cat "Please wait, updating program..."
))

(set #updating-error
(cat "An error occured during program update..."
))

(set #program-renamed
(cat "\n"
     "The 68000 version has been renamed to 'AmiPC_DEMO.68000' (file without icon)"
     "\n\n"
     "Do tou want to KEEP or DELETE it ?"
))

(set #keep
(cat "Keep"
))

(set #delete
(cat "Delete"
))

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

;
; French Texts
;
;

(if (= @language "français")
(

(set #bad-amigados-version
(cat "\n"
     "Désolé, l'AmigaDOS 2.0 ou supérieur est nécessaire pour utiliser ce programme"
))

(set #bad-processor-version
(cat "\n"
     "Désolé, un processeur 68020 ou supérieur est nécessaire pour utiliser ce programme"
))

(set #install-infos
(cat "Ce script installe une version pour processeur 68020 ou supérieur du programme principal d'AmiPC BiBack DEMO"
))

(set #ask-product-path
(cat "\n"
     "Où avez-vous installé le programme principal 'AmiPC_DEMO' ?"
     "\n"
))

(set #no-product
(cat "Le répertoire sélectionné ne contient pas le programme principal 'AmiPC_DEMO' !"
))

(set #diskspace-error
(cat "Pas assez d'espace disque sur :\n\n%s"
))

(set #backup-error
(cat "Une erreur est survenue pendant le backup du programme principal..."
))

(set #updating-program
(cat "Patientez SVP, mise à jour du programme..."
))

(set #updating-error
(cat "Une erreur est survenue pendant la mise à jour du programme..."
))

(set #program-renamed
(cat "\n"
     "La version 68000 a été renommée en 'AmiPC_DEMO.68000' (fichier sans icône)"
     "\n\n"
     "Voulez-vous la CONSERVER ou l'EFFACER ?"
))

(set #keep
(cat "Conserver"
))

(set #delete
(cat "Effacer"
))

)
)

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

 (complete 0)

 (set #amigados-version (/ (getversion) 65536))

 (if (< #amigados-version 37)
  (abort #bad-amigados-version)
 )

 (set #cpu-version (database "cpu"))
   
 (if (<= #cpu-version 68010)
  (abort #bad-processeur-version)
 )
   
 (message
  (cat #product-infos
       "\n"
       #install-infos
  )
 )

 (set #product-path
  (if (exists "/AmiPC_DEMO")
   (expandpath "/")
   (askdir
    (prompt #ask-product-path)
    (help  @askdir-help)
    (default (expandpath "/"))
   )
  )
 )

 (complete 33)
 
 (if (exists (tackon #product-path "AmiPC_DEMO"))
  (
   (set #main-program-path (tackon #product-path "AmiPC_DEMO"))
   
   (if (>= (getdiskspace #product-path) (getsize #main-program-path))
    (
     (working #updating-program)

     (if (run ("Copy FROM %s TO %s.68000 QUIET" #main-program-path #main-program-path))
      (abort #backup-error)
      (if (run ("spatch -o%s -pAmiPC_DEMO_68020+.pch %s" #main-program-path #main-program-path))
       (
        (if (exists #main-program-path)
         (delete #main-program-path)
        )
        (rename ("%s.68000" #main-program-path) #main-program-path)
        (abort #updating-error)
       )
       (
        (complete 66)
        (if (not (askbool
                  (prompt #program-renamed)
                  (help @askbool-help)
                  (choices #keep #delete)
                  )
            )
         (delete ("%s.68000" #main-program-path))
        )
       )
      )
     )
    )
    (abort (#diskspace-error #product-path))
   )
  )
  (abort #no-product)
 )

 (complete 100)

 (set @default-dest #product-path)

 (exit)