; Installations-Script für ASTROVISION
; Written by C-COM · Dübel & Nemmert
; Copyright by Wolf Software GmbH

(complete 0)

(set Hires (= (askchoice 
           (prompt "Ist Ihre Workbench auf Hires-Interlace eingestellt?")
           (help " Wenn Sie 'ja' anklicken, wird das Lores-Icon\n"
                 " durch ein für den Interlace-Screen passendes\n"
                 " Icon ersetzt.")
           (choices "JA" "NEIN")
           (default 1)
) 0))

(makedir "work:ASTROVISION"
	(prompt "Lege ein Verzeichnis 'Work:ASTROVISION' an.")
	(help @makedir-help)
        (infos)
	(confirm)
)

(copyfiles
	(prompt "Kopiere 'ASTROVISION' nach 'work:ASTROVISION'.")
	(help @copyfiles-help)
	(source "ASTROVISION:ASTROVISION")
	(dest "work:ASTROVISION/")
	(files)
        (infos)
)

(complete 40)

(if hires
 (copyfiles (prompt "Kopiere Hires-Icon.")
            (help @copyfiles-help)
            (source "astrovision:icons/ASTROVISION_hr.info")
            (dest "work:astrovision/")
            (newname "work:astrovision/ASTROVISION.info")
 ))

(copyfiles
	(prompt "Kopiere die Libraries in 'sys:libs'")
	(help @copylib-help)
	(source "ASTROVISION:libs20/reqtools.library")
	(dest "sys:libs/")
;	(pattern "#?.library")
        (confirm)
)

(complete 60)

(copyfiles
	(prompt "Kopiere die Fonts in 'sys:fonts'")
	(help @copylib-help)
	(source "ASTROVISION:fonts/")
	(dest "sys:fonts/")
	(all)
        (confirm)
)

(complete 100)

(exit "Booten Sie ihren Rechner neu, um die\n"
      "Fonts und Libraries korrekt einzubinden!\n\n"
)