; ******************************************************************
; * HFRemove - Installationsscript für C= Standard Installer 1.24+ *
; * Copyright (c)1996-97 by Jens Weyer                             *
; * $VER: Version 1.1  (27.05.1997)                                *
; ******************************************************************

; * Globale Definitionen *
(set os-version (/ (getversion) 65536))
(set os-20 (>= os-version 36))
(set os-30 (>= os-version 39))
(set #Welcome
(cat	"Willkommen zum HFRemove-Installationsscript !\n\n"
	"Hier kann HFRemove mit zugehörigen Programmen\n"
	"bequem und schnell installiert werden !\n"
	"Bitte folgen Sie genau den Anweisungen\n"
	"des Scripts, und lesen Sie notfalls in\n"
	"der Hilfe-Sektion des Installers nach."))
(set #Abort1
(cat	"Sorry, aber dieses Programm benötigt\n"
	"OS 3.x (V39+) !\n"
	"Nebenbei bemerkt, OS1.x ist längst nicht\n"
	"mehr Stand der Dinge. Ich rate Ihnen daher\n"
	"etwas Geld für OS2.x bzw. OS3.x zu\n"
	"investieren - Es kann sich nur für Sie\n"
	"lohnen !"))
(set #wrk-inst-main "HFRemove v1.1 wird installiert...")
(set #help-main
(cat	"Hier wird HFRemove auf Ihrer Festplatte\ninstalliert.\n"
	"Ein Verzeichnis namens \"HFRemove\" muss ggfs. selbst\n"
	"angelegt werden !"))
(set #inst-drawer
(cat	"Bitte wählen Sie das LW aus,\n"
	"auf dem \"HFRemove\" installiert\n"
	"werden soll.\n"
	"Ein Verzeichnis muss ggfs. selbst angelegt werden !"))
(set #help-inst-drawer
(cat	"Hier sollen Sie das Laufwerk festlegen,\n"
	"auf dem Sie mit \"HFRemove\" arbeiten wollen."))
(set #Ciao
(cat	"Hiermit wären wir am Ende der HFRemove-Installation.\n"
	"HFRemove ist nun auf Ihrer Festplatte installiert.\n\n"
	"Der Autor wünscht Ihnen viel Spaß mit HFRemove.\n"))

; * MAIN *

(if (= 0 os-30) ((abort #Abort1)))

(message #Welcome)

(complete 0)

(set @default-dest
	(askdir
		(prompt #inst-drawer)
		(help #help-inst-drawer)
		(default "WORK:")
		(disk)
	)
)

(if
	(= (exists @default-dest) 0)
	(makedir @default-dest)
)

(set #HFR (tackon @default-dest "HFRemove"))
(makedir (#HFR)(infos))

(copyfiles
	(prompt #wrk-inst-main)
	(help #help-main)
        (source "HFRemove#?")
	(dest #HFR)
	(pattern "HFRemove#?")
	(files)
	(infos)
)

(complete 100)

(message #Ciao)