; Installationsskript für VideoBackupSystem

;Feststellen ob von der Diskette gebootet wurde
(if (= (expandpath("SYS:")) "VBS-Amiga:")
	(
		(message "Bitte booten Sie Ihren Rechner von der Festplatte, nur so kann das VBS korrekt installiert werden")
		(exit)
	)
)

; Device oder Verzeichnis für VBS auswählen
(set VBSDIR
   (askdir
      (prompt "Wählen Sie die Partition, oder den Ordner, in dem Sie das VBS installiert haben wollen, aus!")
      (help "\n    Das Installationsskript legt in dem von Ihnen\n"
				"  ausgewähltem Verzeichnis den Ordner \"VideoBackup\"\n"
				"   an und kopiert alle Programmteile dort hinein."
		)
      (default "Work:")
      (disk)
   )
)
	

;Pfad VideoBackupSystem festlegen
(if (= (substr VBSDIR (- (strlen(VBSDIR)) 1) 1) ":")
	(set VBSDIR (cat VBSDIR "VideoBS"))
	(set VBSDIR (cat VBSDIR "/VideoBS"))
)



; Meldung ausgeben letzte Chance zum Abbruch
(message "Das VideoBackupSystem wird jetzt im Ordner \"" VBSDIR "\" installiert. \"Abort Install\" für Abbruch der Installation, \"Proceed\" für Weitermachen!")

; Anlegen von VideoBackup
(makedir VBSDIR
  	(infos)
)

; Anlegen von Ordner BandVerz
(makedir (cat VBSDIR "/BandVerz")
   (infos)
)

; Anlegen von Ordner Report"
(makedir (cat VBSDIR "/Report")
   (infos)
)

; Kopieren des Hauptprogramms
(copyfiles
   (source "VBS-Amiga:")
   (dest VBSDIR)
   (choices "VBS" "VBS.info")
)

; Anpassen der Tooltype einträge
(if (exists "Work:")
	(set FSPATH "Work:")
	(set FSPATH "SYS:")
)
(tooltype
   (dest (cat VBSDIR "/VBS"))
   (settooltype "LOGDIR" (cat VBSDIR "/BandVerz"))
   (settooltype "REPORTDIR" (cat VBSDIR "/Report"))
	(settooltype "DEFAULTDIR" FSPATH)
)


; Fonts Kopieren
(if
	(askchoice
      (choices "Nein" "Ja")
	   (default 1)
      (prompt "Möchten Sie die Fonts \"Melba.29\" und \"Melba.61\"\n"
     	        "In Ihr FONTS:-Verzeichnis kopieren?"
     	)
     	(help "\n  Sie können nun die Zeichensätze von der Programm-\n"
        	   " diskette In Ihr standardmäßiges  FONTS: Verzeichnis\n"
           	"                     kopieren.\n\n"
           	"  Die Zeichensätze Melba.29 und Melba.61 werden zur\n"
           	" Darstellung des Visuellen Headers auf dem Videoband\n"
           	"                     benötigt.\n"
				"\n Sie können auch jeden anderen Zeichensatz verwenden\n"
				"  Lesen Sie hierzu bitte das Kapitel über Tooltypes\n"
				"                 in der Anleitung"
     	)
   )
 	(
      ; Kopieren der Fonts
     	(if (exists "SYS:Fonts")
        	(copyfiles
           	(source "VBS-Amiga:Fonts")
           	(dest "SYS:Fonts")
           	(pattern "Melba#?")
        	)
        	(message "Auf dieser Partition haben Sie kein \"FONTS\"-Verzeichnis. Die Zeichensätze konnten nicht kopiert werden!")
		)
		; Anpassen der Tooltype einträge
		(tooltype
   		(dest (cat VBSDIR "/VBS"))
   		(settooltype "SMALLFONT" "Melba.font,29")
   		(settooltype "BIGFONT" "Melba.font,61")
		)
	)
)

; Bildschirmbreite und Höhe
(if
	(askchoice
		(choices "Nein" "Ja")
		(default 1)
		(prompt "Soll das VideoBackupSystem einen eigenen Screen benutzen?")
		(help "\n    Das VideoBackupSystem kann wahlweise auf einem\n"
				"     eigenen Screen oder auf der Workbench laufen.\n"
				"\n    Bei Verwendung eines eigenen Screens haben Sie\n"
				"      die Möglichkeit die Workbench auszuschalten,\n"
				"             was Speicherplatz sparen kann"
		)
	)
	(
		(if
			(askchoice
				(choices "PAL-HiRes" "PAL-Hires Interlace")
				(default 1)
				(prompt "Welche Auflösung soll der Screen haben?")
				(help "\n Die angegebenen Möglichkeiten sind nur eine Auswahl.\n"
						" Das VideoBackupSystem kann jeden beliebigen Screen\n"
						"         In jeder beliebige Auflösung öffnen.\n"
						"\n     Lesen Sie hierzu das Kapitel über Tooltypes\n"
						"                 in der Anleitung."
				)
			)
			(tooltype
   			(dest (cat VBSDIR "/VBS"))
   			(settooltype "SCREEN" "CUSTOM,0x00008004,2")
			)
			(tooltype
   			(dest (cat VBSDIR "/VBS"))
   			(settooltype "SCREEN" "CUSTOM,0x00008000,2")
			)
		)
		(if
			(askchoice
				(choices "Nein" "Ja")
				(default 1)
				(prompt "Soll die Workbench abgeschaltet werden?")
				(help "\n   Wenn die Workbench während des Betriebs des VBS\n"
						"   abgeschaltet wird,  wird der Speicherbedarf der\n"
						"                Workbench freigegeben\n"
						"\n   Sollten Sie maximal nur 512 kByte zur Verfügung\n"
						" haben, schalten Sie die Workbench auf jeden Fall ab.")
			)
			(tooltype
   			(dest (cat VBSDIR "/VBS"))
   			(settooltype "WORKBENCH" "OFF")
			)
			(tooltype
   			(dest (cat VBSDIR "/VBS"))
   			(settooltype "WORKBENCH" "ON")
			)
		)
	)
	(
	 	(tooltype
   		(dest (cat VBSDIR "/VBS"))
   		(settooltype "SCREEN" "Workbench")
		)
		; Links 
		(tooltype
			(dest (cat VBSDIR "/VBS"))
			(settooltype "LEFTEDGE"
				(cat
					(asknumber 
						(prompt "Geben Sie die gewünschte Position des VBS-Fensters links ein")
						(help "\n    Sie können nun Breite, Höhe und Position des\n"
								"             Programmfensters bestimmen\n"
								"\n  Wenn Sie Werte größer als die Bildschirmvorgaben\n"
								"        eingeben, startet das Programm nicht.\n"
								"\n     Überprüfen Sie in diesem Falle die, in den\n"
								"           Tooltypes eingetragenen Werte.\n"
								"\n Linke Position + Fensterbreite <= Bildschirmbreite\n"
								"   Obere Position + Fensterhöhe <= Bildschirmhöhe\n"
						)
						(range 0 9999)
						(default 0)
					)
				)
			)
		)
		; Oben
		(tooltype
			(dest (cat VBSDIR "/VBS"))
			(settooltype "TOPEDGE"
				(cat
					(asknumber 
						(prompt "Geben Sie die gewünschte Position des VBS-Fensters oben ein")
						(help "\n    Sie können nun Breite, Höhe und Position des\n"
								"             Programmfensters bestimmen\n"
								"\n  Wenn Sie Werte größer als die Bildschirmvorgaben\n"
								"        eingeben, startet das Programm nicht.\n"
								"\n     Überprüfen Sie in diesem Falle die, in den\n"
								"           Tooltypes eingetragenen Werte.\n"
								"\n Linke Position + Fensterbreite <= Bildschirmbreite\n"
								"   Obere Position + Fensterhöhe <= Bildschirmhöhe\n"
						)

						(range 0 9999)
						(default 0)
					)
				)
			)
		)
		; Fensterbreite
		(tooltype
			(dest (cat VBSDIR "/VBS"))
			(settooltype "WIDTH"
				(cat
					(asknumber 
						(prompt "Geben Sie die gewünschte Breite des VBS-Fensters ein")
						(help "\n    Sie können nun Breite, Höhe und Position des\n"
								"             Programmfensters bestimmen\n"
								"\n  Wenn Sie Werte größer als die Bildschirmvorgaben\n"
								"        eingeben, startet das Programm nicht.\n"
								"\n     Überprüfen Sie in diesem Falle die, in den\n"
								"           Tooltypes eingetragenen Werte.\n"
								"\n Linke Position + Fensterbreite <= Bildschirmbreite\n"
								"   Obere Position + Fensterhöhe <= Bildschirmhöhe\n"
						)
						(range 100 9999)
						(default 100)
					)
				)
			)
		)
		; Fensterhöhe
		(tooltype
			(dest (cat VBSDIR "/VBS"))
			(settooltype "HEIGHT"
				(cat
					(asknumber 
						(prompt "Geben Sie die gewünschte Höhe des VBS-Fensters ein")
						(help "\n    Sie können nun Breite, Höhe und Position des\n"
								"             Programmfensters bestimmen\n"
								"\n  Wenn Sie Werte größer als die Bildschirmvorgaben\n"
								"        eingeben, startet das Programm nicht.\n"
								"\n     Überprüfen Sie in diesem Falle die, in den\n"
								"           Tooltypes eingetragenen Werte.\n"
								"\n Linke Position + Fensterbreite <= Bildschirmbreite\n"
								"   Obere Position + Fensterhöhe <= Bildschirmhöhe\n"
						)
						(range 100 9999)
						(default 100)
					)
				)
			)
		)
	)
)
; VideoCheck ON OFF
(if
	(askchoice
		(choices "Nein" "Ja")
		(default 0)
		(prompt "Soll das VideoBackupSystem eine Verbindungsüberprüfung durchführen?")
		(help "\n   Das VideoBackupSystem kann eine Überprüfung der\n"
				"            Kabelverbindungen durchführen.\n"
				"\n   Da die Verbindungsüberprüfung, aufgrund mancher\n"
				" Rechnerkonfigurationen, nicht korrekt funktioniert,\n"
				"   sollte sie im Zweifelsfalle abgeschaltet werden\n"
		)
	)
	(tooltype
		(dest (cat VBSDIR "/VBS"))
		(settooltype "VIDEOCHECK" "ON")
	)
	(tooltype
		(dest (cat VBSDIR "/VBS"))
		(settooltype "VIDEOCHECK" "OFF")
	)
)