(complete 0)

(set harddisk 0)

(if
   (askbool
      (prompt "Wo möchten Sie das Programm Bundesliga 3000 installieren?")
      (help @askbool-help)
      (choices "Auf Festplatte" "Auf Diskette")
   )
   (
   ; hard drive part
      (set harddisk 1)
      (set @default-dest
         (askdir
	    (prompt "Bitte wählen Sie das Verzeichnis, in dem "
                    "Bundesliga 3000 installiert werden soll\n"
            )
            (help
                    "Sie müssen für die Installation das Verzeichnis "
		    "festlegen, in dem das Programm "
	            "Bundesliga 3000 installiert wird\n\n"
	            "Auf dem ausgewählten Laufwerk muß ausreichend "
	            "Speicherplatz zur Verfügung stehen, d.h. ca. 1.3 MByte.\n\n"
            )
            (default "SYS:Bundesliga_3000")
         )
      )

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

   )
)

(set @default-fontdir
   (askdir
      (prompt "Bitte wählen Sie das Verzeichnis, in dem "
              "die Zeichensätze installiert werden sollen\n"
      )
      (help
	      "Sie müssen für die Installation das Verzeichnis "
	      "festlegen, in dem das Programm Bundesliga 3000 "
	      "später seine Zeichensätze finden kann.\n\n"
      )
      (default "FONTS:")
   )
)

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

(onerror
)

(if (= harddisk 1)
  (
   (set sourcefile "Bundesliga 3000:Bundesliga 3000")

      (if
   	   (= (exists sourcefile) 0)
	   	(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
      )

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

   (complete 30)

   (set sourcefile "Bundesliga 3000:Bundesliga 3000.info")

      (if
   	   (= (exists sourcefile) 0)
	   	(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
      )

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

   (complete 35)

   (copyfiles (prompt "" ) (help "") (source "Bundesliga 3000:2. Bundesliga 91 Nord") (dest @default-dest))
   (complete 45)
   (copyfiles (prompt "" ) (help "") (source "Bundesliga 3000:1. Bundesliga 92") (dest @default-dest))
   (complete 55)
   (copyfiles (prompt "" ) (help "") (source "BL3000 - Datendiskette: 2. Bundesliga 91 Süd") (dest @default-dest))
   (complete 65)
   (copyfiles (prompt "" ) (help "") (source "BL3000 - Datendiskette:1. Bundesliga 89") (dest @default-dest))
   (complete 75)
   (copyfiles (prompt "" ) (help "") (source "BL3000 - Datendiskette:1. Bundesliga 90") (dest @default-dest))
   (complete 85)
   (copyfiles (prompt "" ) (help "") (source "BL3000 - Datendiskette:1. Bundesliga 91") (dest @default-dest))
   (complete 95)
  )
)

      (if
   	   (= 0 (exists "Bundesliga 3000:fonts/topaz1.font"))
	   	(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
      )
      (if
   	   (= 0 (exists "Bundesliga 3000:fonts/topaz1/8"))
	   	(abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
      )

      (copyfiles
         (prompt "" )
         (help "")
         (source "Bundesliga 3000:fonts/topaz1.font")
         (dest @default-fontdir)
      )

      (set steuerfontdir (tackon @default-fontdir "topaz1"))
	(if
	   (= (exists steuerfontdir) 0)
	   (makedir steuerfontdir)
	)
      (copyfiles
         (prompt "" )
         (help "")
         (source "Bundesliga 3000:fonts/topaz1/8")
         (dest steuerfontdir)
      )

(complete 100)