; **** Installscript written by Markus Mnig             ****

; **** Special version for MainActor Broadcast           ****
; **** by MainConcept, GbR Moenig/Zabel,  1994, 1995    ****

; **** This script requires the Installer from Commodore ****
; **** which is available for free.                      ****

; **** Version 1.0 of this script                        ****

(set ProductName		"MABroadcast Patch")	; product Name
(set VersionNum			"1.01")		; product version number
(set OldVersionNum	"1.00")		; product version number

(set MABName                    "MABroadcast")
(set DefaultMAB                 @default-dest)

(set OSVersion			(/ (getversion) 65536))
(set WBVersion			(/ (getversion "version.library" (resident)) 65536))
(set MVBNum			 		(getversion "MABroadcast:MVBroadcast"))
(set MVBVer			 		(/ MVBNum 65536))
(set MVBRev					(- MVBNum (* MABVer 65536)))

(set @default-dest "MABroadcast:")

(transcript "Installing %s Commodity..." ProductName)

(set WrongVersion
  ("%s%s%s"
	 "You dont have MainActor Broadcast v"
	 OldVersionNum
	 "\ninstalled !"
  )
)

; Here follow localized strings for the german and english texts
; used in the script. Adding a new language should be easy by copying
; the block and translating it.

(complete 10)

( if (AND (= MVBVer 0) (= MVBRev 20) )
		(
			(working "Patching FLI Saver")
		  (run ("patcher MABroadcast:Saver/FLI MABroadcast:Saver/FLI patch/FLI"))

			(working "Patching FLC Saver")
		  (run ("patcher MABroadcast:Saver/FLC MABroadcast:Saver/FLC patch/FLC"))

			(working "Patching MED Player")
		  (run ("patcher MABroadcast:Sound/MED MABroadcast:Sound/MED patch/MED"))

			(working "Patching OctaMED Player")
		  (run ("patcher MABroadcast:Sound/OctaMED MABroadcast:Sound/OctaMED patch/OctaMED"))

			(working "Patching IFF-8SVX Player")
		  (run ("patcher MABroadcast:Sound/IFF-8SVX MABroadcast:Sound/IFF-8SVX patch/IFF-8SVX"))

			(working "Patching RIFF-WAV Player")
		  (run ("patcher MABroadcast:Sound/RIFF-WAV MABroadcast:Sound/RIFF-WAV patch/RIFF-WAV"))

			(working "Creating AIFF Player")
		  (run ("patcher MABroadcast:Sound/RIFF-WAV MABroadcast:Sound/AIFF patch/AIFF"))

			(working "Patching General Support Module")
		  (run ("patcher MABroadcast:Support/General MABroadcast:Support/General patch/general"))

			(working "Patching IFF-Anim3 Loader")
		  (run ("patcher MABroadcast:Loader/IFF-Anim3 MABroadcast:Loader/IFF-Anim3 patch/IFF-Anim3"))

			(working "Patching IFF-Anim5 Loader")
		  (run ("patcher MABroadcast:Loader/IFF-Anim5 MABroadcast:Loader/IFF-Anim5 patch/IFF-Anim5"))

			(working "Patching IFF-Anim7_16 Loader")
		  (run ("patcher MABroadcast:Loader/IFF-Anim7_16 MABroadcast:Loader/IFF-Anim7_16 patch/IFF-Anim7_16"))

			(working "Patching IFF-Anim7_32 Loader")
		  (run ("patcher MABroadcast:Loader/IFF-Anim7_32 MABroadcast:Loader/IFF-Anim7_32 patch/IFF-Anim7_32"))

			(working "Patching IFF-Anim8_16 Loader")
		  (run ("patcher MABroadcast:Loader/IFF-Anim8_16 MABroadcast:Loader/IFF-Anim8_16 patch/IFF-Anim8_16"))

			(working "Patching IFF-Anim8_32 Loader")
		  (run ("patcher MABroadcast:Loader/IFF-Anim8_32 MABroadcast:Loader/IFF-Anim8_32 patch/IFF-Anim8_32"))

			(working "Patching IFF-AnimBrush Loader")
		  (run ("patcher MABroadcast:Loader/IFF-AnimBrush MABroadcast:Loader/IFF-AnimBrush patch/IFF-AnimBrush"))

			(working "Patching IFF-AnimJ Loader")
		  (run ("patcher MABroadcast:Loader/IFF-AnimJ MABroadcast:Loader/IFF-AnimJ patch/IFF-AnimJ"))

			(working "Patching MainView Broadcast")
		  (run ("patcher MABroadcast:MVBroadcast MABroadcast:MVBroadcast patch/MVBroadcast"))

			(working "Patching MainActor Broadcast")
		  (run ("patcher MABroadcast:MABroadcast MABroadcast:MABroadcast patch/MABroadcast"))
			(exit)
		)
    (
    	(abort WrongVersion)
		)
)

(complete 95)
