(complete 0)

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

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

(set osversion (/ (getversion) 65536))

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

(set libdir (tackon @default-dest "Daten"))
(if
   (= (exists libdir) 0)
	(makedir libdir)
)

(set macrodir (tackon @default-dest "Makro"))
(if
   (= (exists macrodir) 0)
	(makedir macrodir)
)

(set sounddir (tackon @default-dest "Sounds"))
(if
   (= (exists sounddir) 0)
	(makedir sounddir)
)

(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
               "Hier können Sie entscheiden, welche der mitgelieferten "
               "Wörterbücher auf Festplatte installiert werden sollen.\n\n"
               "Das Hauptwörterbuch Deutsch ist unbedingt nötig, desweiteren "
               "das leere Benutzer- und Makro-Wörterbuch.\n"
               "Wollen Sie auch englischsprachige Texte überprüfen, sollten "
               "Sie außerdem das Hauptwörterbuch Englisch installieren.\n"
               "Die Makrolexika 'Englisch->Deutsch' und 'Deutsch->Englisch' "
               "werden für die Echtzeit Sprachübersetzung benötigt."
            )
				(choices
					"Wörterbuch Deutsch"
               "Wörterbuch Englisch"
               "Wörterbuch Benutzer (neu)"
               "Makrolexikon Makro  (neu)"
               "Makro Englisch->Deutsch"
               "Makro Deutsch->Englisch"
				)
				(default 65535)
			)
		)

		(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 EURO-Korrekt 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 n 0)
(while (set thisfile (select n "EURO-Korrekt:OnlineCheck" "EURO-Korrekt:TextCheck" "EURO-Korrekt:LexTools" "EURO-Korrekt:Demo.txt" "EURO-Korrekt:Bitte lesen!" ""))
   (
      (copyfiles
         (prompt "Kopiere Programmdaten..." )
         (help "")
         (source thisfile)
         (dest @default-dest)
      )
      (set n (+ n 1))
   )
)

(complete 18)

(copyfiles
   (prompt "Kopiere Sounddaten..." )
   (help "")
   (source "EURO-Korrekt:Sounds/")
   (dest sounddir)
   (pattern "#?") (infos)
)

(complete 25)

(if (= kickflag 0)
   (set sourcedir "EURO-Korrekt:IconData/Icons1.3/")
)

(if (= kickflag 1)
   (set sourcedir "EURO-Korrekt:IconData/Icons2.0/")
)

(copyfiles
   (prompt "Kopiere Icon-Daten..." )
   (help "")
   (source sourcedir)
   (dest @default-dest)
   (pattern "#?") (infos)
)

(complete 30)

(if (IN lexflag 0)
   (
      (set sourcedir "EURO-Korrekt:Daten/")
      (copyfiles
         (prompt "" )
         (help "")
         (source sourcedir)
         (dest libdir)
         (pattern "Deutsch#?") (infos)
      )
   )
)

(complete 52)

(if (IN lexflag 1)
   (
      (set sourcedir "EURO-Korrekt:Daten/")
      (copyfiles
         (prompt "" )
         (help "")
         (source sourcedir)
         (dest libdir)
         (pattern "Englisch#?") (infos)
      )
   )
)

(complete 68)

(if (IN lexflag 2)
   (
      (set sourcedir "EURO-Korrekt:Daten/")
      (copyfiles
         (prompt "" )
         (help "")
         (source sourcedir)
         (dest libdir)
         (pattern "Benutzer#?") (infos)
      )
   )
)

(complete 69)

(if (IN lexflag 3)
   (
      (set sourcedir "EURO-Korrekt:Makro/")
      (copyfiles
         (prompt "" )
         (help "")
         (source sourcedir)
         (dest macrodir)
         (pattern "Makro#?") (infos)
      )
   )
)

(complete 70)

(if (IN lexflag 4)
   (
      (set sourcedir "EURO-Korrekt:Makro/")
      (copyfiles
         (prompt "" )
         (help "")
         (source sourcedir)
         (dest macrodir)
         (pattern "Deutsch#?") (infos)
      )
   )
)

(complete 85)

(if (IN lexflag 5)
   (
      (set sourcedir "EURO-Korrekt:Makro/")
      (copyfiles
         (prompt "" )
         (help "")
         (source sourcedir)
         (dest macrodir)
         (pattern "Englisch#?") (infos)
      )
   )
)

(complete 100)