; **** 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.02")		; product version number
(set OldVersionNum	"1.01")		; product version number

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

(set OSVersion			(/ (getversion) 65536))
(set WBVersion			(/ (getversion "version.library" (resident)) 65536))
(set MABNum			 		(getversion "MABroadcast:MABroadcast"))
(set MABVer			 		(/ MABNum 65536))
(set MABRev					(- MABNum (* 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 (= MABVer 1) (= MABRev 01) )
		(
			(working "Patching RipAVISound")
		  (run ("patcher MABroadcast:Tools/RipAVISound MABroadcast:Tools/RipAVISound patch/RipAVISound"))
			(working "Patching Saver Module")
		  (run ("patcher MABroadcast:Support/Save MABroadcast:Support/Save patch/Save"))
			(working "Patching Export Module")
		  (run ("patcher MABroadcast:Support/Export MABroadcast:Support/Export patch/Export"))
			(working "Patching FLC Module")
		  (run ("patcher MABroadcast:Support/FLC MABroadcast:Support/FLC patch/flc"))
			(working "Patching MABroadcast")
		  (run ("patcher MABroadcast:MABroadcast MABroadcast:MABroadcast patch/MABroadcast"))

			(exit)
		)
    (
    	(abort WrongVersion)
		)
)

(complete 95)
