; $VER: rEAL-uPLOAD-Install.script V1.1 (14.9.1996)
; copyright © 1996 Olaf Gramkow (hIGH-SPEEd/rEAL)
; all rights reserved

(set @abort-button "Abbruch")
(set @app-name "rEAL-uPLOAD V1.1")
(set @language "deutsch")

(set progname "rEAL-uPLOAD")
(set version "V1.1")

(set directory "DOORS:")
(set TEXToolsDir "SYS:");

(set vers (/ (getversion) 65536))
(set cpu (database "CPU"))

(if (< vers 37)
	(message
		"rEAL-uPLOAD\n"
   	"benötigt mindestens OS2.04!"
	)
)

(complete 0)

(welcome
	("Willkommen zur Installation von %s %s!\n\n" progname version)
	"geschrieben von Olaf Gramkow (hIGH-SPEEd/rEAL)"
)

(if	(= (exists directory (noreq)) 0)
	(set directory
		(askdir
			(prompt "Gehen Sie in das DOORS: Verzeichnis!")
			(help @askdir-help)
			(disk)
		)
	)
)

(set directory
	(tackon
		directory
		"rEAL"
	)
)
(makedir
	directory
	(infos)
)

(set directory
	(tackon
		directory
		"rEAL-uPLOAD"
	)
)
(makedir
	directory
	(infos)
)

(complete 2)

; copy old EXAMINE and FILECHECK icons to olddir
(makedir "BBS:Commands/SysCMD/old")

(copyfiles
	(source "BBS:Commands/SysCMD/")
	(pattern "(EXAMINE#?|FILECHECK#?).info")
	(dest "BBS:Commands/SysCMD/old")
)

(complete 10)

(copyfiles
	(prompt
		("Kopiere %s %s und Dateien nach %s" progname version directory)
	)
	(help @copyfiles-help)
	(source "real/")
	(dest directory)
	(all)
)

(complete 20)

(copyfiles
	(prompt
		("Kopiere %s.guide nach %s" progname directory)
	)
	(help @copyfiles-help)
	(source "Deutsch/rEAL-uPLOAD.guide")
	(dest directory)
	(infos)
)

(complete 30)

(copyfiles
	(prompt "Kopiere Info-Dateien nach BBS:Commands/")
	(help @copyfiles-help)
	(source "Commands/")
	(dest "BBS:Commands")
	(all)
)

(complete 40)

(copyfiles
	(prompt "Kopiere benötigte Dateien nach C:")
	(help @copyfiles-help)
	(source "c")
	(dest "C:")
	(all)
)

(complete 50)

(copyfiles
	(prompt "Kopiere benötigte Dateien nach SYS:WBStartup")
	(help @copyfiles-help)
	(source "WBStartup/rEAL-uPLOAD.info")
	(dest "SYS:WBStartup")
)

(complete 60)

(if (>= cpu 68020)
	(set Name "libs/68020/TEXTools.library")
	(set Name "libs/68000/TEXTools.library")
)

(copylib
	(prompt "kopiere TEXTools.library")
	(source Name)
	(dest "Libs:")
	(help @copylib-help)
	(confirm)
)

(complete 70)

; TEXTools kopieren
(if	(= (exists "TEXTools:" (noreq)) 0)
	(set TEXToolsDir
		(askdir
			(prompt
				"Wo sollen die TEXTools Data-Dateien installiert werden?\n"
				"Ein eigenes Verzeichnis wird erzeugt!"
			)
			(help @askdir-help)
			(disk)
		)
	)

	(set TEXTOOLS
		(tackon
			TEXToolsDir
			"TEXTools"
		)
	)
	(makedir TEXTOOLS)

	(set TEXTOOLSTTC
		(tackon
			TEXTOOLS
			"TTC"
		)
	)
	(makedir TEXTOOLSTTC)

	(copyfiles
		(prompt "Kopiere TEXTools Dateien...")
		(help @copyfiles-help)
		(source "TEXTools")
		(dest TEXTOOLSTTC)
		(all)
	)

	(startup
		"Assigns für TEXTools"
		(prompt "Assign für TEXTools")
   	(command "Assign TEXTools: " TEXTOOLS)
	)
)

(complete 80)

(message
	"Wenn Sie das PseudoDir benutzen wollen, dann müssen Sie alle Ihre Conf-Icons ändern.\n"
	"Der letzte ULPATH muß BBS:PseudoDir/ sein.\n"
	"Ein Merkmal in jedem Conf-Icon muß ULPATH.x=BBS:PseudoDir/ sein."
)

(complete 90)

(message
	"Jetzt können Sie einige\n"
	"Merkmale\n"
	"in den U.info, RZ.info, D.info, CONFTOP.info, WEEKTOP.info und ALLTIMETOP.info im BBS:Commands/BBSCMD Verzeichnis ändern!"
)

(complete 99)

(if (= (exists "rEAL-uPLOAD.keyfile" (noreq)) 1)
	(makedir "s:rEAL")
	(copyfiles
		(source "rEAL-uPLOAD.keyfile")
		(dest "s:rEAL")
	)
)

(complete 100)

(exit
	"Viel Spaß mit dem neuen\n"
	("%s %s!!!\n\n" progname version)
	"geschrieben von Olaf Gramkow (hIGH-SPEEd/rEAL)"
)