;****************************************************************
;*   HighSpeed MathLibs Installer Version 1.6d  09 June 2000    *
;*                                                              *
;*          Copyright © 1998/2000 by CyberdyneSystems           *
;*                  written by Matthias Henze                   *
;*         english translation written by Thomas Blätte         *
;*         italian translation written by Massimo Gais          *
;*         catalan translation written by Llorenē Grau          *
;*                                                              *
;****************************************************************
;
; $VER: HD-Installer_script 1.6d (09.06.00)

(set HSMathLibs-Version "44.41")
(set HSMathLibs-Datum "09.Juni 2000")
(set HSMathLibs-Datum_e "09 June 2000")
(set HSMathLibs-Datum_i "09 June 2000")
(set HSMathLibs-Datum_c "09 June 2000")

;====================================================================
; Initialisierungen
;====================================================================

(set @default-dest "")

(if (= @language "deutsch")
  (
    (set #welcome (cat
    "\nWillkommen bei der Installation der \n"
    "D E M O V E R S I O N\n"
    "der\n"
    "\"HighSpeed MathLibs\"\n\n"
    "Version "HSMathLibs-Version" vom "HSMathLibs-Datum"\n\n"
    "Dieses Skript installiert die \"HighSpeed MathLibs\",\n"
    "entsprechend Ihrer Angaben, auf Ihre Festplatte.\n\n\n"
    "Kopierrecht © 1998/2000 bei CyberdyneSystems\n"
    "geschrieben von Matthias Henze"))
	
    (set #Anleitungen_Auswahl (cat
    "\nWählen Sie die Sprache für die AmigaGuide Dokumentation aus.\n"))

    (set #Anleitungen_Liste (cat
    "Installation der Anleitung.\n"
    "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
    "Es wird kein Verzeichnis erzeugt."))
  )
)
(if (= @language "italiano")
  (
    (set #welcome (cat
    "\nBenvenuti alla installazione della\n"
    "D E M O V E R S I O N\n"
    "di\n"
    "\"HighSpeed MathLibs\"\n\n"
    "versione "HSMathLibs-Version" del "HSMathLibs-Datum_i"\n\n"
    "Questo script installa le \"HighSpeed MathLibs\"\n"
    "secondo le tue indicazioni sul tuo harddisk.\n\n\n"
    "Copyright © 1998/2000 by CyberdyneSystems\n"
    "scritto da Matthias Henze"))

    (set #Anleitungen_Auswahl (cat
    "\nScegli la lingua per la documentazione AmigaGuide.\n"))

    (set #Anleitungen_Liste (cat
    "Installazione del manuale.\n"
    "Scegli un volume o una directory.\n"
    "Una nuova directory non sarą creata."))
  )
)
(if (= @language "english")
  (
    (set #welcome (cat
    "\nWelcome to the installation of the\n"
    "D E M O V E R S I O N\n"
    "of\n"
    "\"HighSpeed MathLibs\"\n\n"
    "version "HSMathLibs-Version" from "HSMathLibs-Datum_e"\n\n"
    "This script installs the \"HighSpeed MathLibs\"\n"
    "according to your specification to your harddisk.\n\n\n"
    "Copyright © 1998/2000 by CyberdyneSystems\n"
    "written by Matthias Henze"))

    (set #Anleitungen_Auswahl (cat
    "\nPlease choose the language for the AmigaGuide documentation.\n"))

    (set #Anleitungen_Liste (cat
    "Installation of the manual.\n"
    "Please choose a volume or a directory.\n"
    "A new directory will not be created."))
  )
)
(if (= @language "catalą")
  (
    (set #welcome (cat
    "\nBenvingut a la instal.lació de\n"
    "D E M O V E R S I O N\n"
    "de\n"
    "\"HighSpeed MathLibs\"\n\n"
    "versió "HSMathLibs-version" del "HSMathLibs-Datum_c"\n\n"
    "Aquest guió instal.la \"HighSpeed MathLibs\"\n"
    "segons les teves especificacions dins el teu HD.\n\n\n"
    "Copyright © 1998/2000 by CyberdyneSystems\n"
    "escrit per Matthias Henze"))

    (set #Anleitungen_Auswahl (cat
    "\nSi us plau, tria el llenguatge per la documentació AmigaGuide.\n"))

    (set #Anleitungen_Liste (cat
    "Instal.lació del manual.\n"
    "Si us plau, tria un volum o directori.\n"
    "No es crearą cap nou directori."))
  )
)

;=====================================================================================
; Beginn der Installation
;=====================================================================================

(message #welcome)
(welcome)


(set Math_ver (getversion "libs:mathieeedoubbas.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathieeedoubbas.library" "libs:mathieeedoubbas.library.bak")
  )
)
(set Math_ver (getversion "libs:mathieeedoubtrans.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathieeedoubtrans.library" "libs:mathieeedoubtrans.library.bak")
  )
)
(set Math_ver (getversion "libs:mathieeesingtrans.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathieeesingtrans.library" "libs:mathieeesingtrans.library.bak")
  )
)
(set Math_ver (getversion "libs:mathtrans.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathtrans.library" "libs:mathtrans.library.bak")
  )
)

(copyfiles
  (source "libs")
  (dest "libs:")
  (all)
)

(
  (set kopiere_Anleitungen
    (askchoice
      (prompt #Anleitungen_Auswahl)
      (help   @askchoice-help)
      (if (= @language "deutsch") ((default 0)))
      (if (= @language "english") ((default 1)))
      (if (= @language "italiano") ((default 2)))
      (if (= @language "catalą") ((default 3)))
      (choices
	"Deutsch"
	"English"
	"Italiano"
	"Catalan"
      )
    )
  )
  (if (= kopiere_Anleitungen 0) (set Quelle-D "HSMathLibs.guide"))
  (if (= kopiere_Anleitungen 1) (set Quelle-D "HSMathLibs_eng.guide"))
  (if (= kopiere_Anleitungen 2) (set Quelle-D "HSMathLibs_ita.guide"))
  (if (= kopiere_Anleitungen 3) (set Quelle-D "HSMathLibs_cat.guide"))
  (
    (set Dokverzeichnis
      (askdir
	(prompt #Anleitungen_Liste)
	(help @askdir-help)
	(default "")
	(disk)
      )
    )
    (makeassign "INSTDOK" Dokverzeichnis)
    (copyfiles
      (source Quelle-D)
      (dest "INSTDOK:")
      (infos)
    )
  )
)
(makeassign "INSTDOK")