;
;  $VER: AmiPC BiBack 68020+ 1.1 (17.11.96) Lejardinier Olivier
;

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

;
; Common Texts
;
;

(set #product-infos
(cat "\n"
     "AmiPC BiBack v1.1 (15.11.96) SHAREWARE, DEMO VERSION"
     "\n\n"
     "The Ultimate Multi-OS Backup System"
     "\n\n"
     "Copyright © 1996 Lejardinier Olivier"
     "\n"
     "All Rights Reserved"
     "\n\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 #update-infos
(cat "This script install a 68020 or higher version of the AmiPC BiBack main program."
))

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

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

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

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

;
; 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 #update-infos
(cat "Ce script installe une version pour processeur 68020 ou supérieur du programme principal d'AmiPC BiBack"
))

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

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

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

))

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

 (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
       #update-infos
  )
 )

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

 (complete 33)
 
 (if (exists (tackon #product-path "AmiPC"))
  (
   (set #main-program-path (tackon #product-path "AmiPC"))
   
   (working #updating-program)

   (run ("Copy FROM %s TO %s.68000 QUIET" #main-program-path #main-program-path))
   (run ("spatch -o%s -pAmiPC_68020+.pch %s" #main-program-path #main-program-path))
   
   (complete 66)
  )
  (abort #no-product)
 )

 (complete 100)

 (set @default-dest #product-path)

 (exit)