; $VER: MaxonWORD Install Version 1.10 (18.08.93)
; Script zum Installieren von MaxonWORD auf Diskette
; 
;============================
;=== Deutsche Erklärungen ===
;============================
(set #entpacken
(cat "\n\nDie Fontdaten werden entpackt!\n\nWeiter mit \"Proceed\"\n"))
(set #introduction
(cat "\nMit diesem Installationsprogramm können Sie\n MaxonWORD\n auf "
     "zwei Disketten installieren\nDie komplette Installation läuft nahezu vollständig "
     "automatisch ab.\nBitte halten Sie zwei formatierte Leerdiskette bereit!\n"
		 "Nennen Sie eine \"MaxonWORD\" und die andere \"PS-Fonts\"\n"
     "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
     "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
(set #askdir-help
(cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
     "Sie gerne MaxonWORD installieren möchten. Danach klicken Sie "
     "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
     "Namen des Verzeichnisses an (z.B. WORK:MWORD). Dann drücken Sie "
     "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
     "Beschreibung der Schalter:\n\n"
     "Der große \"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 für "
     "alle Einträge 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 "
     "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
     "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
     "anzusehen.\n\n"
     "Über den Schalter \"Make New Drawer\" können Sie ein neues "
     "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
     "angelegt, das Sie soeben betrachten.\n\n"
     "Mit dem Schalter \"Proceed\" erklären 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 ausführen.\n\n"
     "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
     "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
     "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 nötig, 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\" gelöscht.\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 "Erklärung der Schalter:\n\n"
     "\"Install for Real\"\n"
     "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
     "\"Pretend to Install\"\n"
     "Hiermit führt 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 veranlaßt. In Verbindung "
     "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
     "Liste über alle durchgeführten 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 können diese Liste mit einem beliebigen Editor betrachten.\n\n"
     "\"None\"\n"
     "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
(set #no-inst
(cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
     "nötigsten MaxonWORD-Dateien zu kopieren\n\n"
     "!!! Die Installation wird abgebrochen !!!"))

(set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren.\n"))

(set #COPVERZ	(cat "\nIn welches Verzeichnis soll MaxonWORD\nkopiert werden?\n\n"))
(set #WORDFONTS	(cat "Die Fontdaten werden entpackt!\n\n"))
(set #WORDDOKU	(cat "\nKopiere die Demo-Dokumente!\n\n"))
(set #WORDDEKOMP (cat "\nDekomprimiere das Hauptprogramm!\n"))

(set @WORDSIZE	500000)
(set @FONTSIZE	700000)
(set @CONFSIZE 20000)

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

(Procedure Inst_NormFiles
	(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
	(set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
	(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
)

(Procedure Inst_LhaFiles
	(set @TMP (tackon "RAM:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))
	(if                                      	; Verzeichnis erzeugen
		(= (exists @Dest_File) 0)
		(makedir (@Dest_File)(infos))
	)

	(copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
	(working @Working @Dest)
	(run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
	(delete @TMP)
)

(Procedure Dekomp_WORD
	(set @TMP (tackon "RAM:" @FName.lha))

	(copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
	(working @Working @Dest)
	(askdisk
		(prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD:\" ein!")
		(help #askdir-help)
		(dest "MaxonWORD")
	)
	(run ("RAM:Lhx x %s RAM:MWORD.Lha MaxonWORD:"))
	(delete @TMP)
)

(complete 0)

(message #introduction)
(welcome)

(set verchoice 1)

(set @default-dest "MaxonWORD:")

(askdisk
	(prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk1\" ein!")
	(help #askdir-help)
	(dest "MaxonWORD_Disk1")
)

(copyfiles											; LHX kopieren
	(prompt #COPYRAM)
	(help @copyfiles-help)
	(source "MaxonWORD_Disk1:C")
	(dest "RAM:")
   (choices "Lhx")
)

(if(= 0 (exists "RAM:Lhx"))
	(abort #ERRORRAM))

(complete 5)

(set @CONF-Dir "S:MWord.SES")
	
(if (= (exists @CONF-Dir) 1)
	(
		(delete @CONF-Dir)
	)
)

(if (< (/ (getversion) 65536) 35)	; die ganzen Systemgeschichten zuerst
	(
		(
			(set @Source "MaxonWORD_Disk1:S")
			(set @Dest "S:")
		   (set @Pattern "MW#?")
			(set @Size @CONFSIZE)
			(Inst_PatternFiles)
		)

		(copylib											; die MW-Support.Library nur unter Kickstart 1.3 kopieren
			(prompt "Die MWSUPPORT-LIBRARY wird kopiert ...")
			(help
				"Die MWSUPPORT-Library beinhaltet den Standard-Filerequester "
		      "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
		      "installiert haben, dann ist hier eine neuere Version.\n\n"
				@copyfiles-help
			)
			(source "MaxonWORD_Disk1:libs/mwsupport.library")
			(dest "Libs:")
			(confirm)
		)
	
		(copylib											; IFFPARSE-LIB - schauen ob die aktuelle 2.0 Version genutzt wird
			(prompt "Die IFFParse-LIBRARY wird kopiert ...")
			(help
				"Die IFF-Library wird von MaxonWORD benötigt."
		      "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
		      "installiert haben, dann ist hier eine neuere Version.\n\n"
				@copyfiles-help
			)
			(source "MaxonWORD_Disk1:Libs/iffparse.library")
			(dest "Libs:")
			(confirm)
		)
	)
	(

		(set @CONF-Dir "S:MWord.DEF")
			
		(if (= (exists @CONF-Dir) 1)
			(
				(delete @CONF-Dir)
			)
		)

		(set @CONF-Dir "S:MWord.CFG")
			
		(if (= (exists @CONF-Dir) 1)
			(
				(delete @CONF-Dir)
			)
		)


		(if                                      	;Verzeichnis erzeugen
			(= (exists "ENVARC:MWORD") 0)
			(makedir ("ENVARC:MWORD"))
		)

		(if                                      	;Verzeichnis erzeugen
			(= (exists "ENV:MWORD") 0)
			(makedir ("ENV:MWORD"))
		)

		(
			(set @Source "MaxonWORD_Disk1:S")
			(set @Dest "ENV:MWORD")
		   (set @Pattern "MW#?")
			(set @Size @CONFSIZE)
			(Inst_PatternFiles)
		)
		(
			(set @Source "MaxonWORD_Disk1:S")
			(set @Dest "ENVARC:MWORD")
		   (set @Pattern "MW#?")
			(set @Size @CONFSIZE)
			(Inst_PatternFiles)
		)

	)
)

(complete 10)

; Jetzt wird die erste Diskette geschrieben!

(
	(set @Working #WORDDEKOMP)
	(set @Dest "MaxonWORD:")
	(set @Source "MaxonWORD_Disk1:")
	(set @FName.lha "MWORD.LHA")
	(set @Size @WORDSIZE)
	(Dekomp_WORD)
)

(complete 30)


(	(set @Working #WORDDEKOMP)
	(set @Dest "MaxonWORD:")
	(set @Source "MaxonWORD_Disk1:")
	(set @FName  "MWord.info")
	(set @Size 0)
	(Inst_NormFiles)
)

(complete 50)

(set @Dokument-Dir "MaxonWORD:Dokumente")
(set @Grafik-Dir "MaxonWORD:Grafiken")
	
(if                                      	; Verzeichnis erzeugen
	(= (exists @Dokument-Dir) 0)
	(makedir (@Dokument-Dir)(infos))
)
	
(if                                      	; Verzeichnis erzeugen
	(= (exists @Grafik-Dir) 0)
	(makedir (@Grafik-Dir)(infos))
)

(	(set @Working #WORDDOKU)
	(set @Dest @Dokument-Dir)
	(set @Source "MaxonWORD_Disk1:Dokumente/")
	(set @FName  "TextDemo.Dok")
	(set @Size 0)
	(Inst_NormFiles)
)

(complete 60)
		
(	(set @Working #WORDDOKU)
	(set @Dest @Dokument-Dir)
	(set @Source "MaxonWORD_Disk1:Dokumente/")
	(set @FName  "FontDemo.Dok")
	(set @Size 0)
	(Inst_NormFiles)
)

(	(set @Working #WORDDOKU)
	(set @Dest @Grafik-Dir)
	(set @Source "MaxonWORD_Disk1:Grafiken/")
	(set @FName  "Demo.Iff")
	(set @Size 0)
	(Inst_NormFiles)
)

(complete 70)

(askdisk
	(prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk2\" ein!")
	(help "Diese Diskette enthält die Postscript-Fonts.")
	(dest "MaxonWORD_Disk2")
)

(	(set @Working #WORDFONTS)
	(set @Dest "Ram:")
	(set @Source "MaxonWORD_Disk2:")
	(set @FName  "PSFONTS.LHA")
	(set @Size 0)
	(Inst_NormFiles)
)

(complete 80)

(askdisk
	(prompt "\n\n\nBitte legen Sie die Diskette \"PS-FONTS:\" ein!")
	(help "Diese Diskette enthält die Postscript-Fonts.")
	(dest "PS-Fonts")
)

(run ("RAM:Lhx -E -N x RAM:PSFONTS.LHA PS-FONTS: #?.PFB"))

(delete "RAM:PSFONTS.LHA")
(delete "RAM:LhX")

(complete 100)

; ------- FERTIG

(message (cat 
	"Installation der Textverarbeitung MaxonWORD beendet.\n"
   "\n\nViel Erfolg!")
)