; Installerscript fr das ScanCenter  Tim Phmeier
(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 whlen 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"
		"Nheres dazu im \"ScanCenter.guide\" unter\n"
		"\"Das Systemfenster\""
)

(complete 100)
