; $VER: MT-Rechnung 2.25 (09/30/94)
; Script to install MT-RechnungII

(complete 0)

(set @default-dest "")
(set old_level @user-level)

;=============================================================================
; Deutsch strings

   (set #bad-kick
   (cat "Sie mssen AMIGA OS 2.0+ zum Installieren von"
        "MT-Rechnung benutzen"))

;=============================================================================
; make sure we are running under V37+

(if (< (/ (getversion) 65536) 37)
  (
   abort #bad-kick
  )
)

;=============================================================================
; Verzeichnis auswhlen:

(set target_dir (askdir (prompt "Wohin soll MT-Rechnung installiert werden?" @askdir)
         (help @askdir-help)
			(default "SYS:Tools")
      )
)

;=============================================================================
; Libraries installieren:
;
(copylib	(prompt "apig.library" @copylib)
			(help   @copylib-help)
			(source "//Libs/apig.library")
			(dest "Libs:")
			(confirm 2)
)

(complete 15)

(copylib	(prompt "reqtools.library" @copylib)
			(help   @copylib-help)
			(source "//Libs/reqtools.library")
			(dest "Libs:")
			(confirm 2)
)

(complete 20)

(copylib	(prompt "rexxreqtools.library" @copylib)
			(help   @copylib-help)
         (source "//Libs/rexxreqtools.library")
         (dest "Libs:")
			(confirm 2)
)

(complete 35)

;=============================================================================
; Programm installieren:
;

(copylib	(prompt "MT-RechnungII" @copylib)
			(help   @copylib-help)
			(source "/MT-RechnungII")
			(dest target_dir)
			(INFOS)
			(confirm 2)
)

(complete 80)

;=============================================================================
; Dokumentation installieren:
;

(copylib	(prompt "MT_Rechnung.guide" @copylib)
			(help   @copylib-help)
			(source "/MT_Rechnung.guide")
			(dest target_dir)
			(INFOS)
			(confirm 1)
)

(complete 90)

;=============================================================================
; Druckerdaten installieren:
;

(makedir		(TACKON target_dir "Drucker")
)

(copyfiles	(prompt ("Welche Druckertreiber sollen installiert werden?" @copyfiles))
				(help   @copyfiles-help)
				(source "/Drucker/")
				(dest (TACKON target_dir "Drucker/"))
				(all)
				(confirm 1)
)
;=============================================================================
; Demodaten installieren oder alte Daten Updaten:
;

(IF (EXISTS (TACKON target_dir "Artikel.dat"))
	(
		(IF (EXISTS (TACKON target_dir "MWSt.dat"))
			(delete	(TACKON target_dir "MWSt.dat")
						(prompt "Das File MWSt.dat wird nicht mehr bentigt!")
						(help "Die Daten sind nun in Prefs.dat gespeichert.")
						(confirm 2)
			)
		)
		(complete 100)
	)

	(
		(complete 97)

		(copyfiles	(prompt "Demo-Kundendatei:")
						(help   @copyfiles-help)
						(source "/Kunden.dat")
						(dest target_dir)
						(confirm 2)
		)

		(complete 98)

		(copyfiles	(prompt "Demo-Artikeldatei:")
						(help   @copyfiles-help)
						(source "/Artikel.dat")
						(dest target_dir)
						(confirm 2)
		)

		(complete 99)

		(copyfiles	(prompt "Demo-Rechnungsdatei:")
						(help   @copyfiles-help)
						(source "/Rechnung.dat")
						(dest target_dir)
						(confirm 2)
		)

		(complete 100)
	)
)

(MESSAGE ("Sie finden MT-Rechnung in Ihrem %s Verzeichnis" target_dir))
