; $VER: Steuer_Profi_96_Patch_1_Install_Script 1.1 (19.2.97)
;
; © Copyright 1997 by Franz-Josef Reichert
; All rights reserved
; No part of this software may be reproduced
; without the prior written consent of the author
;

(if (= @language "default")
(
	(set @language "deutsch")
))

; ***********************************************
; *** German Text Strings ***********************
; ***********************************************


(if (= @language "deutsch")
(

(set #infotext1 (cat		"\nWillkommen zum Korrekturpatch 1 für den\n"
								" Steuer Profi 1996!\n\nDieses Programm behebt einige"
								" Fehler in der Steuerberechnung, die nach der"
								" Auslieferung der CD-Version in Erscheinung"
								" getreten sind. Lesen Sie für weitere Informationen"
								" bitte den Text\n\n»BITTE LESEN!«\n\n auf dieser Diskette."))

(set #outdated (cat		"\n\nDieser Patch kann nur auf Amigas ausgeführt\n"
								" werden, die mindestens über AmigaOS 2.04 (V37)"
								" verfügen. Bitte wenden Sie sich für ein Diskettenupdate"
								" direkt an die Schatztruhe. Aus Sicherheitsgründen"
								" wird nun abgebrochen."))

(set #src_prompt (cat	"\nBitte wählen Sie das Laufwerk und Verzeichnis,"
								" in welchem sich die aktuelle CD-Version"
								" des Steuer Profi 1996 befindet:"))

(set #src_help (cat		"\nWählen Sie bitte ein Laufwerk aus der Liste"
								" der verfügbaren Laufwerke aus und arbeiten Sie"
								" sich mit Mausklicks zum Verzeichnis vor, in"
								" welchem sich das Programm »Steuer Profi 96«"
								" befindet."))

(set #dest_prompt (cat	"\nBitte wählen Sie das Laufwerk und Verzeichnis,"
								" wohin Sie die aktualisierte Version"
								" des Steuer Profi 1996 kopieren möchten:"))

(set #dest_help (cat		"\nWählen Sie bitte ein Laufwerk aus der Liste"
								" der verfügbaren Laufwerke aus und arbeiten Sie"
								" sich mit Mausklicks zum Verzeichnis vor, in"
								" welchem Sie das verbesserte Programm"
								" installieren möchten."))

(set #wrong_file (cat	"\nhandelt es"
								" sich garantiert nicht um die Version 6.0 des Steuer"
								" Profi 1996 von der Original-CD-ROM! Aus Sicherheitsgründen"
								" wird nun abgebrochen. Bitte starten Sie die Installation"
								" des Patches neu und wählen Sie die richtige Datei aus!"))

(set #success_text (cat	"\n\nDie Installation des Patches war erfolgreich!"))

))


; ******************************
; ***** Start Installation *****
; ******************************

(complete 0 )

(

; ***** Install Patch *****

	(set #def_src "CD0:Steuer Profi 96/Steuer Profi 96")
	(set @default-dest "Steuer Profi 96 P1")
	(set #patch_command "tools/spatch")
	(set #patch_file "Steuer Profi 96.pch")
	(set #orig_size 398576)

	(message #infotext1)

	(run "tools/romver >ENV:rv")

	(set #romver 0)

	(if (exists "ENV:rv" (noreq))
	(
		(set #romver (getenv "rv"))
	))

	(if (< #romver 37)
	(
		(message "\nBetriebssystemversion: "
					#romver
					#outdated
		)
		(exit (quiet))
	))

	(set #Source
		(askfile
			(prompt #src_prompt )
			(help #src_help )
			(default #def_src)
		)
	)
	
	(complete 25 )

	(set @default-dest
		(askfile
			(prompt #dest_prompt )
			(help #dest_help )
			(default @default-dest)
		)
	)

	(complete 50 )

	(set #f_size (getsize #Source))


	(if (= #orig_size #f_size)
	(
		(message "\nDas Installationsprogramm wird nun aus:\n\n\""
					#Source
					"\"\n\ndie fehlerbereinigte Version:\n\n\""
					@default-dest
					"\"\n\nerzeugen!"
					"\n\nBitte drücken Sie »Proceed« zum Fortfahren!")				

		(complete 75)

		(set #command_string (cat #patch_command
											" \"-o"
											@default-dest
											"\" \"-p"
											#patch_file
											"\" \""
											#Source
											"\"")) 
		(run #command_string)

		(set #icon_name (cat @default-dest ".info"))

		(copyfiles
			(source "Iconfile")
			(dest @default-dest)
			(newname #icon_name)
		)
	)
; *** else
	(
		(message "\n*** FEHLER ***\n\nBei der Datei: \""
					#Source
					"\"\nGröße: "
					#f_size
					" Bytes\n"
					#wrong_file)

		(exit (quiet))
	)) 
)

(complete 100 )
(exit #success_text)