;PAGESTREAM 3.1b10 TO 3.1 ONLINE UPDATE PATCH INSTALLATION SCRIPT
;COPYRIGHT ©1996 SOFTLOGIK PUBLISHING CORPORATION


;QUIT PROGRAMS
(message "\n\nStop now if you haven't read the Read.1st! file for important instructions.\n\nIf PageStream, BME or PageLiner are running now, quit them before continuing.")
(run "avail flush" (safe))

;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
(run "CD PageStream3:" (safe))
(run "CD SoftLogik:" (safe))
(run "assign fonts: softlogik:fonts add" (safe))

;CONFIRM CORRECT VERSION IS INSTALLED, SET DESTINATION
(message ("\n\nThis patch will update your PageStream 3.1 beta 10 hard drive installation to the final version of 3.1.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.1 beta 10 installed to use this patch."))
(if (<> (exists "PageStream3:PageStream3") 1)
	(abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.1 beta 10 before applying this update patch.")
)
;get destination
(set PGSdest (getassign "PageStream3" "a"))
(set SLdest (getassign "SoftLogik" "a"))
(if (OR (= PGSdest "") (= SLdest ""))
	(abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream 3.1 beta 10 before applying this update patch.")
)
(set PGSsize (getsize "PageStream3:PageStream3"))
(if (<> PGSsize 1426544)
	(abort "You have the wrong version of PageStream installed. Please read the Read.1st! file for instructions.")
)
(set @default-dest PGSdest)

;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST
(if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
(if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
(if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
(if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
(if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
(if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
(if (<> (exists "PageStream3:Scripts") 2) (makedir "PageStream3:Scripts" (infos)))
(if (<> (exists "PageStream3:Scripts/TextClips") 2) (makedir "PageStream3:Scripts/TextClips" (infos)))
(if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
(if (= (exists "PageStream3:PageStream3.rsrc") 1) (delete "PageStream3:PageStream3.rsrc" (safe)))


;COPY THE LHEX PROGRAM TO RAM:
(copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))

;UPDATE LIBS
(working "Installing Updated Libraries...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
(delete "Libs.LHA" (safe))

;UPDATE PRINTERS
(working "Installing Updated Printer Drivers...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.lha")
(delete "Printers.LHA" (safe))

;UPDATE FILTERS AND EFFECTS AND SPECIAL
(working "Installing Updated Filters...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
(delete "Filters.LHA" (safe))
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x Effects.lha")
(delete "Effects.LHA" (safe))
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x Special.lha")
(delete "Special.LHA" (safe))

;UPDATE ENGINES
(working "Installing Updated Engines...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Languages.lha")
(delete "Engines.LHA" (safe))
(delete "Languages.LHA" (safe))

;UPDATE HELP
(working "Installing Updated Help Files...")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.lha")
(delete "Help.LHA" (safe))

;UPDATE SCRIPTS
(working "Installing Updated Scripts...")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts x Scripts.lha")
(delete "Scripts.LHA" (safe))

;PATCH EXTRAS TO LATEST VERSION IF APPLICABLE

(run "ram:lhex >NIL: <NIL: -qfw=ram: x Patch.LHA")

;TRUETYPE FONT ENGINE
(if (= (exists "SoftLogik:Engines/TTF.font") 1)
	(
		; PATCH TTF.KEY TO LATEST VERSION
		(if (= (exists "SoftLogik:Special/Keys/TTF.key") 1)
			(
				(run "spatch -oram:TTF.font -pram:TTF.pch SoftLogik:Special/Keys/TTF.key")
				(if (= 37284 (getsize "ram:TTF.font"))
					(copyfiles (source "ram:TTF.font") (dest "SoftLogik:Engines"))
					(message "\n\nYour TrueType font engine could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem TTKEY2NEW.")
				)
				(delete "ram:TTF.font" (safe))
			)
		)
	)
)
(delete "ram:TTF.pch" (safe))

;WORDWORTH DOC FILTER
(if (= (exists "SoftLogik:Filters/Wordworth.dfilter") 1)
	(
		; PATCH WWDOC.KEY TO LATEST VERSION
		(if (= (exists "SoftLogik:Special/Keys/WWdoc.key") 1)
			(
				(run "spatch -oram:Wordworth.dfilter -pram:WW.pch SoftLogik:Special/Keys/WWdoc.key")
				(if (= 35388 (getsize "ram:Wordworth.dfilter"))
					(copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
					(message "\n\nYour Wordworth document filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem WWKEY2NEW.")
				)
				(delete "ram:Wordworth.dfilter" (safe))
			)
		)
	)
)
(delete "ram:WW.pch" (safe))

;TEXT FX EXTENSION

;GET RID OF TEXTFX1 KEY IF V2 EXISTS
(if (AND (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1) (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1))
	(delete "SoftLogik:Special/Keys/TextFX1.key" (safe))
)

; PATCH TEXTFX1.KEY TO LATEST VERSION
(if (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1)
	(
		(run "spatch -oram:TextFX.extension -pram:TextFX1.pch SoftLogik:Special/Keys/TextFX1.key")
		(if (= 39508 (getsize "ram:TextFX.extension"))
			(copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
			(message "\n\nYour TextFX1 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
		)
		(delete "ram:TextFX.extension" (safe))
	)
)
(delete "ram:TextFX1.pch" (safe))

; PATCH TEXTFX2.KEY TO LATEST VERSION
(if (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1)
	(
		(run "spatch -oram:TextFX.extension -pram:TextFX2.pch SoftLogik:Special/Keys/TextFX2.key")
		(if (= 46768 (getsize "ram:TextFX.extension"))
			(copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
			(message "\n\nYour TextFX2 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
		)
		(delete "ram:TextFX.extension" (safe))
	)
)
(delete "ram:TextFX2.pch" (safe))

;JPEG FILTER
(if (= (exists "SoftLogik:Filters/JPEG.gfilter") 1)
	(
		; PATCH JPEG.KEY TO LATEST VERSION
		(if (= (exists "SoftLogik:Special/Keys/JPEG.key") 1)
			(
				(run "spatch -oram:JPEG.gfilter -pram:JPEG.pch SoftLogik:Special/Keys/JPEG.key")
				(if (= 95320 (getsize "ram:JPEG.gfilter"))
					(copyfiles (source "ram:JPEG.gfilter") (dest "SoftLogik:Filters"))
					(message "\n\nYour JPEG filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem JPKEY2NEW.")
				)
				(delete "ram:JPEG.gfilter" (safe))
			)
		)
	)
)
(delete "ram:JPEG.pch" (safe))

;GARY'S EFFECTS
(if (= (exists "SoftLogik:Effects/HSB.effect") 1)
	(
		; PATCH GARY.KEY TO LATEST VERSION
		(if (= (exists "SoftLogik:Special/Keys/Gary.key") 1)
			(
				(run "spatch -oram:Convolve.effect -pram:convolve.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 11228 (getsize "ram:Convolve.effect"))
					(copyfiles (source "ram:Convolve.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Convolve effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
				)
				(run "spatch -oram:Histogram.effect -pram:histogram.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 5676 (getsize "ram:Histogram.effect"))
					(copyfiles (source "ram:Histogram.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Histogram effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHT.")
				)
				(run "spatch -oram:HSB.effect -pram:HSB.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 6452 (getsize "ram:HSB.effect"))
					(copyfiles (source "ram:HSB.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour HSB effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
				(run "spatch -oram:Average.effect -pram:Average.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 5728 (getsize "ram:Average.effect"))
					(copyfiles (source "ram:Average.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Average effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
				(run "spatch -oram:Gamma.effect -pram:Gamma.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 14360 (getsize "ram:Gamma.effect"))
					(copyfiles (source "ram:Gamma.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Gamma effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
				(run "spatch -oram:Maximum.effect -pram:Maximum.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 6256 (getsize "ram:Maximum.effect"))
					(copyfiles (source "ram:Maximum.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Maximum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
				(run "spatch -oram:Minimum.effect -pram:Minimum.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 6244 (getsize "ram:Minimum.effect"))
					(copyfiles (source "ram:Minimum.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Minimum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
				(run "spatch -oram:Median.effect -pram:Median.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 6252 (getsize "ram:Median.effect"))
					(copyfiles (source "ram:Median.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Median effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
				(run "spatch -oram:Solarize.effect -pram:Solarize.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 4628 (getsize "ram:Solarize.effect"))
					(copyfiles (source "ram:Solarize.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Solarize effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
				(run "spatch -oram:Threshold.effect -pram:Threshold.pch SoftLogik:Special/Keys/Gary.key")
				(if (= 5032 (getsize "ram:Threshold.effect"))
					(copyfiles (source "ram:Threshold.effect") (dest "SoftLogik:Effects"))
					(message "\n\nYour Threshold effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
				)
			)
		)
		(delete "ram:Convolve.effect" (safe))
		(delete "ram:Histogram.effect" (safe))
		(delete "ram:HSB.effect" (safe))
		(delete "ram:Average.effect" (safe))
		(delete "ram:Gamma.effect" (safe))
		(delete "ram:Maximum.effect" (safe))
		(delete "ram:Minimum.effect" (safe))
		(delete "ram:Median.effect" (safe))
		(delete "ram:Solarize.effect" (safe))
		(delete "ram:Threshold.effect" (safe))
	)
)
(delete "ram:Convolve.pch" (safe))
(delete "ram:Histogram.pch" (safe))
(delete "ram:HSB.pch" (safe))
(delete "ram:Average.pch" (safe))
(delete "ram:Gamma.pch" (safe))
(delete "ram:Maximum.pch" (safe))
(delete "ram:Minimum.pch" (safe))
(delete "ram:Median.pch" (safe))
(delete "ram:Solarize.pch" (safe))
(delete "ram:Threshold.pch" (safe))

(delete "Patch.LHA" (safe))


;UPDATE BME
(if (exists "PageStream3:BME")
	(
		(working "Patching BME to new version...")
		(run "ram:lhex >NIL: <NIL: -qfw=ram: x BMEpatch.LHA")
		(delete "BMEpatch.LHA" (safe))
		(run "spatch >NIL: <NIL: -oPageStream3:BMEnew -pram:BME.pch PageStream3:BME")
		(if (exists "PageStream3:BMEnew")
			(
				(delete "PageStream3:BME")
				(rename "PageStream3:BMEnew" "PageStream3:BME")
			)
			(message "\nThe patch to BME was not successful. Refer to the Read.1st! file for further instructions.")
		)
		(delete "ram:BME.pch" (safe))
	)
)

;UPDATE PAGESTREAM3
(working "Patching PageStream to new version...\n\nThis will take a while...")
(run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
(delete "PGSpatch.LHA" (safe))
(run "spatch >NIL: <NIL: -oPageStream3:PageStreamNew -pram:PageStream.pch PageStream3:PageStream3")
(if (exists "PageStream3:PageStreamNew")
		(
				(delete "PageStream3:PageStream3")
				(rename "PageStream3:PageStreamNew" "PageStream3:PageStream3")
		)
		(abort "The patch to PageStream was not successful. Refer to the Read.1st! file for instructions.")
)
(delete "ram:PageStream.pch" (safe))

;DISPLAY README (Try 3 different ways!)
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
(delete "Read.LHA" (safe))
(IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
		(IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
				(run "More PageStream3:ReadMe.Now")
		)
)

;REMOVE THE LHEX PROGRAM
(delete "ram:lhex" (safe))
(delete "spatch" (safe))

(delete "Install-3.1.info" (safe))

;DONE
(exit "Finished updating PageStream to version 3.1.")