; Installerscript für das ScanCenter © Tim Pühmeier
(transcript "Installation vom ScanCenter")

(complete 0)
        (message "\n\n Scancenter Installerscript \n"
                 "Bitte lesen sie unbedingt \n"
                 "die Dokumentation\n\n"
                 "ScanCenter ©1995 Uwe Konrad\n"
                 "Alle Rechte vorbehalten.\n"
        )

(set #ZielOrdner
	(askdir
		(prompt "Pfad in dem das ScanCenter installiert\n werden soll Es wird kein Verzeichnis erstellt!" )
		(help	@askdir-help)
		(default @default-dest)
		(disk)
		(newpath)
	)
)

(set @default-dest #ZielOrdner)

(set Processor
        (askchoice
                (prompt "Bitte wählen Sie entsprechend\n"
                     "des installierten Prozessors eine\n"
                     "Programmversion aus\n")
                (help @askchoice-help)
                (choices "MC68040 FPU" "MC68020/030 FPU" "MC68020/030/040" "MC68000")
                (default 0)
        )
)

(if (= Processor 0)
    (copyfiles
        (prompt "Kopiere 68040 FPU Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.040FPU")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
    )
)
(if (= Processor 1)
    (copyfiles
        (prompt "Kopiere 68020/030 FPU Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.020030FPU")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
    )
)
(if (= Processor 2)
    (copyfiles
        (prompt "Kopiere 68020/030/040 Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.020030040")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
    )
)
(if (= Processor 3)
    (copyfiles
        (prompt "Kopiere 68000 Version ...")
        (help @copyfiles-help)
        (source "ScanCenter.000")
        (dest #ZielOrdner)
        (newname "ScanCenter")
        (confirm)
   )
)

(complete 25)

(set Icon
        (askchoice
                (prompt "Welche Farbtiefe hat Ihre Workbench\n")
                (help @askchoice-help)
                (choices "4 Farben" "8 Farben" "16 Farben" "256 Farben")
                (default 0)
        )
)

(if (= Icon 0)
    (copyfiles
        (prompt "Kopiere 4 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB4.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)
(if (= Icon 1)
    (copyfiles
        (prompt "Kopiere 8 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB8.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)
(if (= Icon 2)
    (copyfiles
        (prompt "Kopiere 16 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB16.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)
(if (= Icon 3)
    (copyfiles
        (prompt "Kopiere 256 Farben Icon ...")
        (help @copyfiles-help)
        (source "Piktogramme/WB256.info")
        (dest #ZielOrdner)
        (newname "ScanCenter.info")
        (confirm)
    )
)

(complete 50)

(set Scsi
        (askstring
                (prompt "Bitte geben Sie den Devicenamen \n"
                        "Ihres Hostadapters ein:\n")
                (help @askstring-help)
                (default "scsi.device")
        )
)


(set Unit
        (asknumber
                (prompt " Bitte geben Sie die Scsi-Unit Ihres HP-Scanners ein: ?\n")
                (help @string-help)
				(range 0 7)
                (default 6)
        )
)
(tooltype
    (prompt "Ändere Tooltypes des Icons")
    (help @tooltype-help)
    (dest (tackon #ZielOrdner "ScanCenter"))
    (settooltype "DEVICE" Scsi)
    (settooltype "UNIT" (cat Unit))
	(setdefaulttool (tackon #ZielOrdner "ScanCenter"))
    (confirm))

(complete 60)

(makedir (tackon #ZielOrdner "Catalogs")
	(prompt "Erstelle Catalag Order")
) 

(copyfiles
        (prompt "Kopiere Katalogfiles")
        (help @copyfiles-help)
        (source "Catalogs")
        (dest (tackon #ZielOrdner "Catalogs"))
        (confirm)
		(all)
)

(copyfiles
        (prompt "Kopiere ScanCenter.guide")
        (help @copyfiles-help)
        (source "")
        (dest #ZielOrdner)
		(pattern "#?.guide")
		(infos)
        (confirm)
)
;(copylib
;        (prompt "Kopiere mulitpic.library nach libs:")
;        (help @copylib-help)
;        (source "libs/multipic.library")
;        (dest "libs:")
;        (confirm))

(complete 95)

(message "ACHTUNG\n"
		"Vergessen Sie nicht den \"Scanbuffer\"\n"
		"auf ein Festplattenlaufwerk zu legen.\n"
		"Voreingestellt ist \"t:rawfile\".\n"
		"Näheres dazu im \"ScanCenter.guide\" unter\n"
		"\"Das Systemfenster\""
)

(complete 100)