(complete 0)

(set VAR_LANGUAGE (getenv "Language"))

; English strings, used as standard

(set TXT_INTRO        "\nMainPrefs will now be installed.\n\nIf you do not like this program, just remove its drawer to deinstall.\n")
(set TXT_WRONGOS      "Sorry, this program needs OS 3.5 because it uses the reaction GUI.\n")
(set TXT_PATH         "In which directory shall the program directory be created?")
(set TXT_PATH_HELP    "\nAn own directory named "MainPrefs" will be created in the given directory.\nYou can remove this directory later to deinstall MainPrefs.\n")
(set TXT_MAIN         "Copying Program files ...")
(set TXT_MAIN_HELP    "\nAll the files that are needed are copied.\n")
(set TXT_FILE_DOC     "Docs/MainPrefsE.guide")

; Supported languages

(
 if (= VAR_LANGUAGE "deutsch") (
  (set TXT_INTRO        "\nMainPrefs wird nun installiert.\n\nWenn Ihnen dieses Programm nicht gefällt, löschen sie zur Deinstallation einfach das Verzeichnis.\n")
  (set TXT_WRONGOS      "Leider benötigt dieses Programm OS 3.5, da es das Reaction GUI nutzt.\n")
  (set TXT_PATH         "In welchem Verzeichnis  soll das Programmverzeichnis angelegt werden?")
  (set TXT_PATH_HELP    "\nEin eigenes Verzeichnis mit dem Namen "MainPrefs" wird im angegebenen Verzeichnis erzeugt.\nSie können dieses Verzeichnis später zur Deinstallation von MainPrefs löschen.\n")
  (set TXT_MAIN         "Kopiere Programmdateien ...")
  (set TXT_MAIN_HELP    "\nAlle nötigen Dateien werden kopiert.\n")
  (set TXT_FILE_DOC     "Docs/MainPrefsD.guide")
 )
)
(
 if (= VAR_LANGUAGE "español") (
)
(
 if (= VAR_LANGUAGE "français") (
)
(
 if (= VAR_LANGUAGE "italiano") (
  (set TXT_INTRO        "\nMainPrefs ora sta per essere installato.\n\nSe non ti piace questo programma, rimuovi il suo cassetto per deinstallarlo.\n")
  (set TXT_WRONGOS      "Mi dispiace, questo programma ha bisogno dell' OS 3.5 perchè usa la GUI Reaction.\n")
  (set TXT_PATH         "In quale directory deve essere creata la directory del programma?")
  (set TXT_PATH_HELP    "\nUna directory chiamata "MainPrefs" sarà creata.\nTu puoi rimuovere questa directory più tardi per deinstallare MainPrefs.\n")
  (set TXT_MAIN         "Sto copiando i file ...")
  (set TXT_MAIN_HELP    "\nTutti i file che erano necessari sono stati copiati.\n")
  (set TXT_FILE_DOC     "Docs/MainPrefsI.guide")
 )
)
(
 if (= VAR_LANGUAGE "türkçe") (
)

; Get the OS-version to see if it is at least OS 3.5

(set VAR_OS (/ (getversion) 65536))
(if (< VAR_OS 40) (message TXT_WRONGOS))

(complete 10)

(message TXT_INTRO)

; Get the directory to install to

(complete 20)

(
 set VAR_DEST(
   askdir (prompt  TXT_PATH)
          (help    TXT_PATH_HELP)
          (default @default-dest)
  )
)
(set VAR_DEST_MP (tackon VAR_DEST "MainPrefs"))
(set @default-dest VAR_DEST_MP)

(complete 40)

; And now copy all the files

(
 copyfiles (prompt TXT_MAIN)
           (source @execute-dir)
           (dest   VAR_DEST_MP)
           (all)
)

(complete 80)

; Don't forget the correct documentation

(
 copyfiles (source TXT_FILE_DOC)
           (dest   VAR_DEST_MP)
           (newname "MainPrefs.guide")
           (infos)
)

; And copy the icon for the drawer

(
 copyfiles (source "/MainPrefs.info")
           (dest   VAR_DEST)
)


(complete 100)