;
; Installer script for AmiSPICEed
; $VER: Install_AmiSPICEed 1.2
;

;*** set strings ***
(set #os-to-old "Your Amiga-OS is to old, sorry...")
(set #select-dir "Select a directory for AmiSPICEed.\nA new directory named >AmiSPICEed< will be created there!")
(set #prog-choice "Which program version?")
(set #language-choice "Choose your language")
(set #select-spice "Executable file of SPICE")

(if (= @language "deutsch")
  (
  (set #os-to-old "Dein Amiga-OS ist leider zu alt...")
  (set #select-dir "Wähle ein Verzeichnis für AmiSPICEed aus.\nDort wird ein neues Verzeichnis namens >AmiSPICEed< angelegt!")
  (set #prog-choice "Welche Programmversion?")
  (set #language-choice "Wähle Deine Sprache")
  (set #select-spice "Ausführbare SPICE-Datei")
  ))

(if (= @language "español")
  (
  (set #os-to-old "Tu Amiga es demasiado antiguo, lo siento pero...")
  (set #select-dir "Selecciona un directorio para AmiSPICEed.\nUn nuevo directorio llamado >AmiSPICEed< sera creado alli!")
  (set #prog-choice "Que versión del programa?")
  (set #language-choice "Elige tu idioma")
  (set #select-spice "Fichero ejecutable del SPICE")
  ))

;*** get some system info ***
(set vernum (getversion "libs:version.library"))
(set ver (/ vernum 65536))

;*** start ***
(complete 0)
(if (< ver 36) (abort #os-to-old))
(welcome)
(user 3)

;create directory
(set directory (askdir (prompt #select-dir) (help @askdir-help) (default "RAM:") (disk)))
(makedir (tackon directory "AmiSPICEed") (infos))
(set directory (tackon directory "AmiSPICEed"))
(complete 10)

;copy main prog
(set machine (askchoice (choices "AmiSPICEed 68000" "AmiSPICEed 68020+/FPU" "AmiSPICEed 68040/040") (prompt #prog-choice) (help @askchoice-help)))
(if (= machine 0)
  (copyfiles (prompt #copy-main) (source "AmiSPICEed") (dest directory) (infos) (noposition))
  (if (= machine 1)
   (copyfiles (prompt #copy-main-FPU) (source "AmiSPICEed_020FPU") (dest directory) (newname "AmiSPICEed") (infos) (noposition))
   (copyfiles (prompt #copy-main-040) (source "AmiSPICEed_040") (dest directory) (newname "AmiSPICEed") (infos) (noposition))))
(complete 20)

;copy prefs file
(copyfiles (prompt #copy-prefs) (source "AmiSPICEed.prefs") (dest directory))
(complete 30)

;ask for language
(set instlang (askchoice (choices "english" "deutsch" "español" "italiano" "français") (prompt #language-choice) (help @askchoice-help)))

;copy catalog
;english
(if (= instlang 0)
  (
  (copyfiles (prompt #copy-manual) (source "AmiSPICEed_english.guide") (dest directory) (newname "AmiSPICEed.guide") (infos))
  (complete 50)
  ))
;deutsch
(if (= instlang 1)
  (
  (copyfiles (prompt #copy-manual) (source "AmiSPICEed.guide") (dest directory) (newname "AmiSPICEed.guide") (infos))
  (complete 40)
  (makedir (tackon directory "Catalogs/deutsch"))
  (copyfiles (prompt #copy-locale) (source "Catalogs/deutsch/AmiSPICEed.catalog") (dest (tackon directory "Catalogs/deutsch")))
  (complete 50)
  ))
;español
(if (= instlang 2)
  (
  (copyfiles (prompt #copy-manual) (source "AmiSPICEed_spanish.guide") (dest directory) (newname "AmiSPICEed.guide") (infos))
  (complete 40)
  (makedir (tackon directory "Catalogs/español"))
  (copyfiles (prompt #copy-locale) (source "Catalogs/español/AmiSPICEed.catalog") (dest (tackon directory "Catalogs/español")))
  (complete 50)
  ))
;italiano
(if (= instlang 3)
  (
  (copyfiles (prompt #copy-manual) (source "AmiSPICEed_english.guide") (dest directory) (newname "AmiSPICEed.guide") (infos))
  (complete 40)
  (makedir (tackon directory "Catalogs/italiano"))
  (copyfiles (prompt #copy-locale) (source "Catalogs/italiano/AmiSPICEed.catalog") (dest (tackon directory "Catalogs/italiano")))
  (complete 50)
  ))
;français
(if (= instlang 4)
  (
  (copyfiles (prompt #copy-manual) (source "AmiSPICEed_english.guide") (dest directory) (newname "AmiSPICEed.guide") (infos))
  (complete 40)
  (makedir (tackon directory "Catalogs/français"))
  (copyfiles (prompt #copy-locale) (source "Catalogs/français/AmiSPICEed.catalog") (dest (tackon directory "Catalogs/français")))
  (complete 50)
  ))
;copy image and History
(copyfiles (prompt #copy-iff) (source "surfing.iff") (dest directory))
(copyfiles (prompt #copy-iff) (source "History") (dest directory) (infos))
;copy directories
(makedir (tackon directory "circs"))
(copyfiles (prompt #copy-circs) (source "circs") (dest (tackon directory "circs")) (all))
(complete 60)
(makedir (tackon directory "bibs"))
(copyfiles (prompt #copy-bibs) (source "bibs") (dest (tackon directory "bibs")) (all))
(complete 70)
(makedir (tackon directory "spice"))
(copyfiles (prompt #copy-spice) (source "spice") (dest (tackon directory "spice")) (all))
(complete 80)
(makedir (tackon directory "TeX"))
(copyfiles (prompt #copy-TeX) (source "TeX") (dest (tackon directory "TeX")) (all))
(complete 90)

;modify SPICEEXE tooltype
(set #spice (askfile (prompt #select-spice) (help @askfile-help) (default "spice3f5full")))
(tooltype (prompt #change-tooltype) (help @tooltype-help) (dest (tackon directory "AmiSPICEed")) (settooltype "SPICEEXE" #spice))
(complete 100)