; $VER: DXSF Install 4.5 (05.12.94)
;script to install Fast Deluxe Stripper

(complete 0)

    (set EVALDISK "DXSF:")
    (set keyfile FALSE)
;=============================================================================

(set #General
(cat "\n\nInstallation beendet!"
     ))

(run ("run DXSF:viewiff >NIL: DXSF:PIC"))

;Get directory to install DXSF in.
(set destdir
	(askdir
		(prompt "In welche Schublade soll DXSF installiert werden?")
		(help @askdir-help)
		(default (tackon @default-dest "DXSF"))
	)
)

(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )

(set #prp-sampleinstall
(cat	"\nSoll die alte Configdatei in S: gelöscht werden? ABSOLUT NOTWENDIG!\n"))
(set #yes-samples "Ja")
(set #no-samples "Nein")

(complete 10)

(copyfiles
	(source (cat EVALDISK "ANLEITUNG.GUIDE"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "ANLEITUNG.GUIDE.INFO"))
	(dest destdir)
)

(complete 20)

(copyfiles
	(source (cat EVALDISK "DXSF"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "DXSF.info"))
	(dest destdir)
)

(complete 40)

(copyfiles
	(source (cat EVALDISK "DXSFConfig"))
	(dest destdir)
)
(copyfiles
	(source (cat EVALDISK "DXSFConfig.info"))
	(dest destdir)
)

(complete 50)

(copyfiles
	(source (cat EVALDISK "LHAStrip.lst"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "FIDStrip.lst"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "textStrip.config"))
	(dest "S:")
)

(copyfiles
	(source (cat EVALDISK "textstrip.prefs"))
	(dest "S:")
)

(complete 54)

(copyfiles
	(source (cat EVALDISK "DXSFJoin"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "DXSFAdder"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "DXSFAdderFile"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "DXSFAdderFile.info"))
	(dest destdir)
)

(complete 60)

(copyfiles
	(source (cat EVALDISK "Assigntool"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "assigntool.info"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "AssigntoolTT"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "assigntoolTT.info"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "DXSFListTool"))
	(dest destdir)
)

(copyfiles
	(source (cat EVALDISK "DXSFListTool.info"))
	(dest destdir)
)

(complete 80)

(message ("\nDXSF ist installiert in \"%s\"" destdir))

(set destdir
	(askdir
		(prompt "In welche Schublade soll die Externen Programme installiert werden?")
		(help @askdir-help)
		(default (tackon @default-dest "DXSF"))
	)
)

(																;
	(set @Working "Entpacke Externals...")
	(set @Source "DXSF:C/EXTERNALS.LHA")
	(set @Dest destdir)
	(run ("DXSF:C/Lhx e DXSF:c/externals.lha %s/" @Dest))
)

(set samples 1)
(set samples
	(askchoice
		(prompt #prp-sampleinstall)
		(help #hlp-sampleinstall)
		(choices #no-samples #yes-samples)
		(default samples)
	)
)

(if (<> samples 0)
	(
		(run ("c:delete >NIL: s:DXL.cfg"))
	)
)

;Correct @default-dest so that final information is correct.
(set @default-dest destdir)

(message #General)

(complete 100)

(exit)