;
; Skript fr die Installation der libraries und Skripten
;

;===========================================================================
; deutsche strings
(if (= @language "deutsch")
	(
		(set default_mask 15)
		
		(set #bad-kick "Es wird Kickstart 37.175 (OS 2.04) oder hher bentigt.")
		(set #old-lib "Sie besitzen eine ltere")
		(set #old-lib2"Ich installiere jetzt eine neuere Version nach LIBS:")
		(set rexxtrickslib "libs/rexxtricks.library")
		(set rexxtrickslib "libs/tritonrexx.library")
		(welcome "Wilkommen bei der Skripten installation.")
		(set #install-msg
			(cat "\nInstallation Skript fr Triton ARexx-Skripten\n"
			     "Dieses Skript installiert PGP2GUI, Exchange,\n"
                             "Break und ChangeStartPRI auf Ihren Amiga.\n\n"
			     " 1995 von Nils Grs"
			)
		)
		
		(set #dir "In welches Verzeichnis sollen die Skripten kopiert werden?")

	)
)
;===========================================================================
; Welche Betriebssystemversion steht zur verfgung ?

(if (< (/ (getversion) 65536) 37)
	(
		(message #bad-kick)
		(exit (quiet))
	)
)
;===========================================================================

(message #install-msg)

;===========================================================================
; Libraries installieren

(if (> (/ (getversion ("Libs:rexxtricks.library")) 65536)38)
	(
		(message #old-lib " rexxtricks.library\n" #old-lib2)
		(copylib
		 (help @copylib-help)
		 (source rexxtrickslib)
		 (dest "Libs:")
		 (confirm)
)
	)
)

(if (> (/ (getversion ("Libs:tritonrexx.library")) 65536)37)
	(
		(message #old-lib " tritonrexx.library\n" #old-lib2)
		(copylib
		 (help @copylib-help)
		 (source tritonrexxlib)
		 (dest "Libs:")
		 (confirm)
)
	)
)

;===========================================================================
; Zielverzeichnis erfragen.

(set @default-dest
	(askdir
		(prompt #dir)
		(help @askdir-help)
		(default "REXX:")
	)
)

;===========================================================================
; Skripten installieren.

(set mask
	(askoptions
	   (prompt #test)
	   (help #langage-help)
	   (default default_mask)
	   (choices
		"Break"
		"ChangeStartPRI"
		"Exchange"
		"PGP2GUI"
	   )
	)
)

		(set n 0)
		(while
			(set select_script
				(select n
					"Break"
					"ChangeStartPRI"
					"Exchange"
					"PGP2GUI"
					""
				)
			)
			(
				(if (AND (IN mask n) )
					(
						(copyfiles
							(prompt "")
							(source select_script)
							(dest @default-dest)
							(pattern "#?.rexx")
							(confirm)
						)
					)
				)
				(set n (+ n 1))
			)
		)

;===========================================================================
; und jetzt noch Zusatzdaten kopieren.

(message "\nDas Programm 'HandleCX' wird von 'Exchange.rexx'\n"
         "bentigt, 'HandleCX' wird deshalb jetzt nach C: kopiert.\n")
(copyfiles
   (help @copyfiles-help)
   (source "HandleCX")
   (dest "C:")
   (pattern "HandleCX")
   (files)
   (confirm)
)

(message "\nDas Programm 'FlushTRX' wird jetzt nach C: kopiert")

(copyfiles
   (help @copyfiles-help)
   (source "FlushTRX")
   (dest "C:")
   (files)
   (confirm)
)
