(complete 0)

(set @default-dest
   (askdir
	   (prompt "Bitte wählen Sie das Verzeichnis, in dem der "
              "EuroÜbersetzer installiert werden soll\n"
      )
		(help
		   "Sie müssen für die Installation das Verzeichnis "
			"festlegen, in dem das Programm und die Daten des "
			"EuroÜbersetzers installiert werden\n\n"
         "Auf dem ausgewählten Laufwerk muß ausreichend "
         "Speicherplatz zur Verfügung stehen. Wenn sowohl "
         "das Programm, alle Wörterbücher und Beispieltexte "
         "installiert werden, wird ca. 2.3 MByte benötigt.\n\n"
      )
      (default "SYS:EuroÜbersetzer")
   )
)

(if
   (= (exists @default-dest) 0)
	   (makedir @default-dest)
)

(set osversion (/ (getversion) 65536))

(onerror
   (abort
	   "Die Installation kann nicht durchgeführt werden, "
      "da das Verzeichnis LEXDATA, in dem die Wörterbuchdaten "
      "installiert werden, nicht angelegt werden kann!\n"
	)
)

(set lexdatadir (tackon @default-dest "lexdata"))
(if
   (= (exists lexdatadir) 0)
	(makedir lexdatadir)
)

(onerror
   (abort
	   "Die Installation kann nicht durchgeführt werden, "
      "da die Verzeichnisse für die Textdaten, in denen die "
      "Beispieltexte installiert werden, nicht angelegt "
      "werden können!\n"
	)
)

(set germantextdir (tackon @default-dest "Texte Deutsch"))
(if
   (= (exists germantextdir) 0)
	(makedir germantextdir)
)

(set foreigntextdir (tackon @default-dest "Texte Englisch"))
(if
   (= (exists foreigntextdir) 0)
	(makedir foreigntextdir)
)

(onerror
)

(if (= @user-level 2)
   (
	   (set lexflag
		   (askoptions
			   (prompt
				   "Bitte wählen Sie die Wörterbücher aus, die in dem gewählten "
               "Verzeichnis installiert werden sollen:"
				)
				(help
               "STANDARD enthält einen Großteil des Grundwortschatzes der "
               "jeweiligen Fremdsprache und wird für eine Übersetzung "
               "unbedingt benötigt.\n\n"
               " Umfang des Wörterbuchs:\n"
               "  ca. 10000 fremdsprachige Stichwörter\n"
               "  ca. 33000 deutschsprache Stichwörter\n\n"
               " benötigter Speicherplatz:\n"
               "  ca. 850 KByte Speicher im RAM-Modus\n"
               "  ca. 200 KByte Speicher im DISK-Modus\n\n"
               "COMPUTER ist ein Fachbegriffswörterbuch aus dem Bereich "
               "rund um Computer mit Schwerpunkt Amiga. Dieses Lexikon "
               "ist sehr nützlich bei PD Anleitungen.\n\n"
               " Umfang des Wörterbuchs:\n"
               "  ca. 1000 fremdsprachige Stichwörter\n"
               "  ca. 2700 deutschsprache Stichwörter\n\n"
               " benötigter Speicherplatz:\n"
               "  ca. 80 KByte Speicher im RAM-Modus\n"
               "  ca. 30 KByte Speicher im DISK-Modus\n\n"
               "WIRTSCHAFT enthält sehr viele Fachbegriffe aus dem Bereich "
               "Wirtschaft / Business. Dieses Wörterbuch ist "
               "eine Ergänzung zum Standard-Wörterbuch.\n\n"
               " Umfang des Wörterbuchs:\n"
               "  ca.  4800 fremdsprachige Stichwörter\n"
               "  ca. 14500 deutschsprache Stichwörter\n\n"
               " benötigter Speicherplatz:\n"
               "  ca. 400 KByte Speicher im RAM-Modus\n"
               "  ca. 100 KByte Speicher im DISK-Modus\n\n"
               "IMPORT ist ein kleines Beispielwörterbuch, "
               "dessen Daten aus Konkurrenzprodukten importiert "
               "wurden. Nur für Demonstrationszwecke geeignet!\n\n"
               " Umfang des Wörterbuchs:\n"
               "   64 fremdsprachige Stichwörter\n"
               "  131 deutschsprache Stichwörter\n\n"
               " benötigter Speicherplatz:\n"
               "      7325 Bytes Speicher im RAM-Modus\n"
               "  ca. 3000 Bytes Speicher im DISK-Modus\n\n"
               "MEGASTANDARD ist das umfangreichste der mitgelieferten "
               "Wörterbücher und enthält neben dem Grundwortschatz "
               "der Fremdsprache auch sehr viele Wörte, die aus "
               "anderen Sprachen abgeleitet wurden.\n\n"
               " Umfang des Wörterbuchs:\n"
               "  ca. 26000 fremdsprachige Stichwörter\n"
               "  ca. 83400 deutschsprache Stichwörter\n\n"
               " benötigter Speicherplatz:\n"
               "  ca. 2,2 MByte Speicher im RAM-Modus\n"
               "  ca. 500 KByte Speicher im DISK-Modus"
            )
				(choices
					"Standard"
               "Computer"
               "Wirtschaft"
               "MegaStandard"
               "Import"
				)
				(default 7)
			)
		)

		(if
			(askbool
				(prompt "\n\nSollen die Icons für das Programm und seine Daten "
                    "im Stil der Kickstart 2.0 installiert werden?")
				(help 
					"Bei der Einführung von Workbench 2.0 wurden die Grundfarben "
					"Schwarz und Weiß der Workbench aus systemtechnischen Gründen "
					"getauscht. Dadurch sehen Icons, die speziell für die Workbench 1.3 "
					"entwickelt wurden, unter Workbench 2.0 verunstaltet aus.\n\n"
               "Um diesen Effekt zu vermeiden, besitzt der EuroÜbersetzer für "
               "die beiden Versionen des Betriebssytems jeweils unterschiedliche Icons.\n\n"
               "Bitte installieren Sie den Icontyp, der grafisch zu ihrer Workbench "
               "paßt"
				)
			)
			(
            (set kickflag 1)
			)
			(
            (set kickflag 0)
			)
		)
   )
   (
	   (set lexflag 65535)
		(if (>= osversion 36)
			(
            (set kickflag 1)
			)
      )
		(if (<= osversion 35)
			(
            (set kickflag 0)
			)
      )
   )
)

(set totalfiles 9)
(set counter 0)

(if (IN lexflag 0)
   (
      (set totalfiles (+ totalfiles 27))
   )
)

(if (IN lexflag 1)
   (
      (set totalfiles (+ totalfiles 27))
   )
)

(if (IN lexflag 2)
   (
      (set totalfiles (+ totalfiles 27))
   )
)

(if (IN lexflag 3)
   (
      (set totalfiles (+ totalfiles 27))
   )
)

(if (IN lexflag 4)
   (
      (set totalfiles (+ totalfiles 5))
   )
)

(set percentage (/ (* counter 100) totalfiles))
(set counter (+ counter 1))
(complete percentage)

(set n 0)
(while (set thisfile (select n "EuroDisk1:EuroÜbersetzer" "EuroDisk1:EuroBkGrData" "EuroDisk1:Bitte lesen!" ""))
   (
      (if
   	   (= 0 (exists thisfile))
	   	(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
      )

      (copyfiles
         (prompt "" )
         (help "")
         (source thisfile)
         (dest @default-dest)
      )

		(set n (+ n 1))
      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
   )
)

(set n 0)
(while (set thisfile (select n "EuroDisk1:Texte Englisch/ErrorCodes.txt" "EuroDisk1:Texte Englisch/FirstStep.txt" ""))
   (
      (if
   	   (= 0 (exists thisfile))
	   	(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
      )

      (copyfiles
         (prompt "" )
         (help "")
         (source thisfile)
         (dest foreigntextdir)
      )

		(set n (+ n 1))
      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
   )
)

(if (= kickflag 0)
   (set sourcedir "EuroDisk1:IconData/Icons1.3")
)

(if (= kickflag 1)
   (set sourcedir "EuroDisk1:IconData/Icons2.0")
)

(set n 0)
(while (set thisfile (select n "EuroÜbersetzer.info" "Bitte lesen!.info" "Texte Englisch.info" "Texte Deutsch.info" ""))
   (
      (if
   	   (= 0 (exists (tackon sourcedir thisfile)))
	   	(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
      )

      (copyfiles
         (prompt "" )
         (help "")
         (source (tackon sourcedir thisfile))
         (dest @default-dest)
      )

		(set n (+ n 1))
      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
	)
)

(if (IN lexflag 0)
   (
      (onerror
         (abort
      	   "Die Installation kann nicht durchgeführt werden, "
            "da die Daten des Standard Wörterbuchs nicht angelegt "
            "werden können!\n\n"
            "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
            "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
      	)
      )

		(set n 0)
      (set sourcedir "EuroDisk2:lexdata")
		(while (set thisfile (select n "standard.data" "standard.datb" "standard.datc" "standard.datd" "standard.date" "standard.datf" "standard.datg" "standard.dath" "standard.dati" "standard.datj" "standard.datk" "standard.datl" "standard.datm" "standard.datn" "standard.dato" "standard.datp" "standard.datq" "standard.datr" "standard.dats" "standard.datt" "standard.datu" "standard.datv" "standard.datw" "standard.datx" "standard.daty" "standard.datz" ""))
			(
            (if
   				(= 0 (exists (tackon sourcedir thisfile)))
	   			(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
            )

            (copyfiles
            	(prompt "" )
            	(help "")
               (source (tackon sourcedir thisfile))
               (dest lexdatadir)
            )

				(set n (+ n 1))
            (set percentage (/ (* counter 100) totalfiles))
            (set counter (+ counter 1))
            (complete percentage)
			)
		)

      (copyfiles
      	(prompt "" )
      	(help "")
         (source "EuroDisk1:InstallData/standard.lex")
         (dest @default-dest)
      )

      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
   )
)

(if (IN lexflag 1)
   (
      (onerror
         (abort
      	   "Die Installation kann nicht durchgeführt werden, "
            "da die Daten des Computer Wörterbuchs nicht angelegt "
            "werden können!\n\n"
            "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
            "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
      	)
      )

		(set n 0)
      (set sourcedir "EuroDisk2:lexdata")
		(while (set thisfile (select n "computer.data" "computer.datb" "computer.datc" "computer.datd" "computer.date" "computer.datf" "computer.datg" "computer.dath" "computer.dati" "computer.datj" "computer.datk" "computer.datl" "computer.datm" "computer.datn" "computer.dato" "computer.datp" "computer.datq" "computer.datr" "computer.dats" "computer.datt" "computer.datu" "computer.datv" "computer.datw" "computer.datx" "computer.daty" "computer.datz" ""))
			(
            (if
   				(= 0 (exists (tackon sourcedir thisfile)))
	   			(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
            )

            (copyfiles
            	(prompt "" )
            	(help "")
               (source (tackon sourcedir thisfile))
               (dest lexdatadir)
            )

				(set n (+ n 1))
            (set percentage (/ (* counter 100) totalfiles))
            (set counter (+ counter 1))
            (complete percentage)
			)
		)

      (copyfiles
      	(prompt "" )
      	(help "")
         (source "EuroDisk1:InstallData/computer.lex")
         (dest @default-dest)
      )

      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
   )
)

(if (IN lexflag 2)
   (
      (onerror
         (abort
      	   "Die Installation kann nicht durchgeführt werden, "
            "da die Daten des Wirtschaft Wörterbuchs nicht angelegt "
            "werden können!\n\n"
            "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
            "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
      	)
      )

		(set n 0)
      (set sourcedir "EuroDisk1:lexdata")
		(while (set thisfile (select n "wirtschaft.data" "wirtschaft.datb" "wirtschaft.datc" "wirtschaft.datd" "wirtschaft.date" "wirtschaft.datf" "wirtschaft.datg" "wirtschaft.dath" "wirtschaft.dati" "wirtschaft.datj" "wirtschaft.datk" "wirtschaft.datl" "wirtschaft.datm" "wirtschaft.datn" "wirtschaft.dato" "wirtschaft.datp" "wirtschaft.datq" "wirtschaft.datr" "wirtschaft.dats" "wirtschaft.datt" "wirtschaft.datu" "wirtschaft.datv" "wirtschaft.datw" "wirtschaft.datx" "wirtschaft.daty" "wirtschaft.datz" ""))
			(
            (if
   				(= 0 (exists (tackon sourcedir thisfile)))
	   			(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
            )

            (copyfiles
            	(prompt "" )
            	(help "")
               (source (tackon sourcedir thisfile))
               (dest lexdatadir)
            )

				(set n (+ n 1))
            (set percentage (/ (* counter 100) totalfiles))
            (set counter (+ counter 1))
            (complete percentage)
			)
		)

      (copyfiles
      	(prompt "" )
      	(help "")
         (source "EuroDisk1:InstallData/wirtschaft.lex")
         (dest @default-dest)
      )

      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
   )
)

(if (IN lexflag 3)
   (
      (onerror
         (abort
      	   "Die Installation kann nicht durchgeführt werden, "
            "da die Daten des MegaStandard Wörterbuchs nicht angelegt "
            "werden können!\n\n"
            "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
            "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
      	)
      )

		(set n 0)
      (set sourcedir "EuroDisk2:lexdata")
		(while (set thisfile (select n "megastandard.data" "megastandard.datc" "megastandard.datl" ""))
			(
            (if
   				(= 0 (exists (tackon sourcedir thisfile)))
	   			(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
            )

            (copyfiles
            	(prompt "" )
            	(help "")
               (source (tackon sourcedir thisfile))
               (dest lexdatadir)
            )

				(set n (+ n 1))
            (set percentage (/ (* counter 100) totalfiles))
            (set counter (+ counter 1))
            (complete percentage)
			)
		)

		(set n 0)
      (set sourcedir "EuroDisk3:lexdata")
		(while (set thisfile (select n "megastandard.datb" "megastandard.datd" "megastandard.date" "megastandard.datf" "megastandard.datg" "megastandard.dath" "megastandard.dati" "megastandard.datj" "megastandard.datk" "megastandard.datm" "megastandard.datn" "megastandard.dato" "megastandard.datp" "megastandard.datq" "megastandard.datr" "megastandard.dats" "megastandard.datt" "megastandard.datu" "megastandard.datv" "megastandard.datw" "megastandard.datx" "megastandard.daty" "megastandard.datz" ""))
			(
            (if
   				(= 0 (exists (tackon sourcedir thisfile)))
	   			(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
            )

            (copyfiles
            	(prompt "" )
            	(help "")
               (source (tackon sourcedir thisfile))
               (dest lexdatadir)
            )

				(set n (+ n 1))
            (set percentage (/ (* counter 100) totalfiles))
            (set counter (+ counter 1))
            (complete percentage)
			)
		)

      (copyfiles
      	(prompt "" )
      	(help "")
         (source "EuroDisk1:InstallData/megastandard.lex")
         (dest @default-dest)
      )

      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
   )
)

(if (IN lexflag 4)
   (
      (onerror
         (abort
      	   "Die Installation kann nicht durchgeführt werden, "
            "da die Daten des Import Wörterbuchs nicht angelegt "
            "werden können!\n\n"
            "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
            "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
      	)
      )

		(set n 0)
      (set sourcedir "EuroDisk3:lexdata")
		(while (set thisfile (select n "import.data" "import.datp" "import.datr" "import.dats" ""))
			(
            (if
   				(= 0 (exists (tackon sourcedir thisfile)))
	   			(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
            )

            (copyfiles
            	(prompt "" )
            	(help "")
               (source (tackon sourcedir thisfile))
               (dest lexdatadir)
            )

				(set n (+ n 1))
            (set percentage (/ (* counter 100) totalfiles))
            (set counter (+ counter 1))
            (complete percentage)
			)
		)

      (copyfiles
      	(prompt "" )
      	(help "")
         (source "EuroDisk1:InstallData/import.lex")
         (dest @default-dest)
      )

      (set percentage (/ (* counter 100) totalfiles))
      (set counter (+ counter 1))
      (complete percentage)
   )
)

(complete 100)