(set SourceDir "Schreibmaschine:")
(set smsize "550")

(set osversion (/ (getversion) 65536))
(if (>= osversion 36) (set kickflag 1) )
(if (<= osversion 35) (set kickflag 0) )

(complete 0)

(set default-dest
   (askdir
	   (prompt "In welchem Verzeichnis soll 'Schreibmaschine' "
              "installiert werden?\n" )
		(help
		   "Der Installer erstellt das Verzeichnis 'Schreibmaschine', "
			"in dem das Programm und die Daten installiert werden.\n\n"
         "Auf dem ausgewählten Laufwerk muß ausreichend "
         "Speicherplatz zur Verfügung stehen, d.h. ca. "
         smsize " KByte Freiraum." )
      (default "Work:")
   )
)

(set realdest (tackon default-dest "Schreibmaschine"))

(if
   (= (exists realdest) 0)
	   (makedir realdest (infos))
)

(complete 4)

(set libsdir (tackon SourceDir "libs"))

(complete 5)

(copylib
	(prompt "" )
   (help "")
	(source (tackon libsdir "medplayer.library"))
	(dest "libs:")
)

(complete 15)

(set n 0)
(while (set thisfile
 (select n 
  "Schreibmaschine" "Schreibmaschine.info" "daten2"
  "Icons.abk" "Klänge.abk" "Voreinstellungen" ""))
   (
      (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 realdest)
      )

		(set n (+ n 1))
	)
)

(complete 55)

(set GfxSrcDir (tackon SourceDir "Grafik"))
(set LekSrcDir (tackon SourceDir "Lektionen"))
(set TabSrcDir (tackon SourceDir "Tabellen"))

(set GfxDstDir (tackon RealDest "Grafik"))
(if (= (exists GfxDstDir) 0) (makedir GfxDstDir))
(set LekDstDir (tackon RealDest "Lektionen"))
(if (= (exists LekDstDir) 0) (makedir LekDstDir))
(set TabDstDir (tackon RealDest "Tabellen"))
(if (= (exists TabDstDir) 0) (makedir TabDstDir))

(complete 60)

(copyfiles
	(prompt "Kopiere Grafiken..." )
	(help "")
	(source GfxSrcDir)
	(dest GfxDstDir)
   (all)
)

(complete 75)

(copyfiles
	(prompt "Kopiere Lektionen..." )
	(help "")
	(source LekSrcDir)
	(dest LekDstDir)
   (all)
)

(complete 95)

(copyfiles
	(prompt "Kopiere Tabellen..." )
	(help "")
	(source TabSrcDir)
	(dest TabDstDir)
   (all)
)

(complete 98)

(set smassign ("Assign Schreibmaschine: \"%s\"\n" realdest))
(startup "Schreibmaschine"
	(prompt "Die Startup-Sequence wird um einen Assign-Befehl erweitert.")
	(help "")
	(command smassign)
)

(complete 100)