(complete 0)

(
 set VAR_LANGUAGE
 (
  askchoice
   (prompt  "Select your preferred language:\nWählen Sie Ihre bevorzugte Sprache:\n")
   (help    "Here you can choose the language of the documentation and further installation.\n\nHier können sie die Sprache der Anleitung und der weiteren Installation wählen.")
   (choices "English"
            "Deutsch"
   (default 0)
  )
 )
)

(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")

(
 if (= VAR_LANGUAGE 1) (
  (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")
 )
)


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

(complete 10)

(message TXT_INTRO)

(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)

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

(complete 80)

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

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


(complete 100)