; $VER: MaxonMAGIC Install Version 1.1 (31.7.93)
; Script zum Installieren von MaxonMAGIC
; 
;============================
;=== Deutsche Erklrungen ===
;============================
(set #introduction
(cat "\nMit diesem Installationsprogramm knnen Sie\n\nMaxonMAGIC\n\n auf einer "
     "Festplatte installieren. Die komplette Installation luft nahezu vollstndig "
     "automatisch ab. "
     "Drcken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
     "Drcken Sie \"Abbruch\", um die Installation abzubrechen."))
(set #askdir-help
(cat "\nWhlen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
     "Sie gerne MaxonMAGIC installieren mchten. Danach klicken Sie "
     "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
     "Namen des Verzeichnisses an (z.B. WORK:MMAGIC). Dann drcken Sie "
     "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
     "Beschreibung der Schalter:\n\n"
     "Der groe \"Rollbereich\" in der Mitte des Fensters zeigt den "
     "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
     "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
     "deren Namen gekennzeichnet. Der Name der Diskette oder des "
     "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
     "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
     "befindete sich ein Schieber, mit dem man sich durch eine "
     "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht fr "
     "alle Eintrge ausreicht.\n\n"
     "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
     "einer Schublade geklickt wird.\n\n"
     "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
     "bergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
     "wurde.)\n\n"
     "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
     "Gerte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
     "auf einen Namen, um sich den Inhalt des betreffenden Gertes "
     "anzusehen.\n\n"
     "ber den Schalter \"Make New Drawer\" knnen Sie ein neues "
     "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
     "angelegt, das Sie soeben betrachten.\n\n"
     "Mit dem Schalter \"Proceed\" erklren Sie sich mit dem eingestellten "
     "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
     "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
     "an dieser Stelle ab. Es werden keine weiteren nderungen mehr "
     "vorgenommen.\n\n"
     "\"Help...\" zeigt diesen Text."))
(set #help-startup
(cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
     "In ihr befinden sich spezielle Kommandos, die einige Programme "
     "bereits beim Systemstart ausfhren.\n\n"
     "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
     "\"user-startup\" automatisch um die angezeigten Zeilen ergnzt. "
     "Wollen Sie jedoch diesen Teil berspringen, so klicken Sie auf "
     "den Schalter \"Skip This Part\"\n\n"
     "\"Abort\" bricht die Installation an dieser Stelle ab."))
(set #help-delete
(cat "Die Datei \"Assigns\" ist nur ntig, wenn Sie keine nderungen in der "
     "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
     "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
     "\"Assigns\" gelscht.\n\n"
     "Wollen Sie jedoch diesen Teil berspringen, so klicken Sie auf "
     "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
     "Installationsverzeichnis erhalten.\n\n"
     "\"Abort\" bricht die Installation an dieser Stelle ab."))
(set #startup-help
(cat "Erklrung der Schalter:\n\n"
     "\"Install for Real\"\n"
     "Dies veranlat den Installer, die Installation tatschlich vorzunehmen.\n\n"
     "\"Pretend to Install\"\n"
     "Hiermit fhrt der Installer alle Schritte der Installation durch. "
     "Allerdings werden keine nderungen an irgendwelchen Dateien vorgenommen. "
     "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
     "wird, bevor man die eigentliche Installation veranlat. In Verbindung "
     "mit dem Schalter \"Log File\" darunter erhlt man auerdem eine komplette "
     "Liste ber alle durchgefhrten Aktionen.\n\n"
     "\"Printer\"\n"
     "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
     "ausgegeben.\n\n"
     "\"Log File\"\n"
     "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
     "die Installation beendet ist, werden Sie ber den Ort dieser Datei informiert. "
     "Sie knnen diese Liste mit einem beliebigen Editor betrachten.\n\n"
     "\"None\"\n"
     "Ist dieser Schalter gedrckt, so wird keine Protokolldatei erzeugt.\n"))
(set #no-inst
(cat "\nDer Platz in dem von Ihnen gewhlten Verzeichnis reicht nicht aus, um die "
     "MaxonMAGIC-Dateien zu kopieren\n\n"
     "!!! Die Installation wird abgebrochen !!!"))

(set #COPVERZ	(cat "\nIn welches Verzeichnis soll MaxonMAGIC\nkopiert werden?"))


(set #MAGICSIZE	1)
(set #MaxonMSIZE  1)

(set @abort-button "Abbruch")
(set @language "Deutsch")

(Procedure Inst_NormFiles
	(if (< (getdiskspace @Dest) @Size)
		(abort #no-inst))

	(set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
	(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)

(Procedure Inst_PatternFiles
	(if (< (getdiskspace @Dest) @Size)
		(abort #no-inst))

	(set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
	(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
)



(message #introduction)
(welcome)
(set old_level @user-level)

(complete 0)

(set @default-dest                       	; Verzeichnis aussuchen 
	(askdir
		(prompt #COPVERZ)
		(help	#askdir-help)
		(default "WORK:MMAGIC")
	)
)

(if                                      	; Verzeichnis erzeugen
	(= (exists @default-dest) 0)
	(makedir @default-dest)
)




(if
   (= (exists "C:MuchMore") 0)
	(copyfiles										; MuchMore kopieren
		(help @copyfiles-help)
		(source "C")
		(dest "C:")
   	(choices "MuchMore")
	)
)

(complete 10)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @Pattern "MM_Sounds")
	(set @Size #MaxonMSIZE)
	(Inst_PatternFiles)
)

(complete 20)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @Pattern "MM_SModule")
	(set @Size #MAGICSIZE)
	(Inst_PatternFiles)
)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @Pattern "MM_Effekte")
	(set @Size #MAGICSIZE)
	(Inst_PatternFiles)
)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @FName "Anleitung")
	(set @Size #MAGICSIZE)
	(Inst_NormFiles)

)


(complete 40)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @FName "MaxonMAGIC_Demo")
	(set @Size #MAGICSIZE)
	(Inst_NormFiles)
)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @FName "Inhalt")
	(set @Size #MAGICSIZE)
	(Inst_NormFiles)

)


(complete 60)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @FName "MM_Prefs")
	(set @Size #MAGICSIZE)
	(Inst_NormFiles)

)



(complete 70)

(copylib											; RCT-LIB kopieren
	(prompt "Die RCT-LIBRARY wird kopiert ...")
	(help
		"Die RCT-Library wird zum Erzeugen von Standard-Requestern "
      "bentigt. Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
      "installiert haben, dann ist hier eine neuere Version.\n\n"
		@copyfiles-help
	)
	(source "libs/rct.library")
	(dest "Libs:")
	(confirm)
)

(complete 90)



(set changechoice 1)

(set changechoice
	(askchoice
		(prompt "\nMchten Sie MaxonMagic automatisch\nbeim Starten aktivieren?\n\nDabei wird die User-Startup verndert!")
		(help @askchoice-help)
		(choices "Ja" "Nein")
		(default 0)
	)
)


(set command1 "MaxonMAGIC_Demo")
	
(if (not changechoice)
	(
	; ------- STARTUP NDERN
	
	
	(set command1 (tackon @default-dest "MaxonMAGIC_Demo"))
	
	(set command1.txt
		(cat 
		 	"\n\n\nDamit MaxonMAGIC nach jedem Neustart aktiv ist"
	      "mu eine nderung an der User-Startup vorgenommen werden.\n\n"
		 	command1
		)
	)
	
	(startup "MaxonMAGIC_Demo.app"
		(prompt command1.txt)
		(help #help-startup)
		(command command1)
	)))

(complete 100)

; ------- FERTIG

(message (cat 
	"Installation von MaxonMAGIC beendet.\n"
   "Falls die Zeile:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
   "User-Startup eingefgt wurde, dann holen Sie dies bitte nach.\n\n"
   "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
   "MaxonMAGIC.\n\nViel Erfolg!")
)

(exit)

;=============================================================================

