;skrypt instalacji Zielonych Brygad na dysku twardym
;Autor: Sherwood/Agressiva Due 27.10.1996

(askdisk	(prompt "Proszė wloūyź do stacji dysk ZB#88")
		(help  " ")
		(dest "ZB#88")
)
;***  Wybierz katalog docelowy	***

(message "\n\nWitamy w programie instalacji magazynu"
	" Zielone Brygady - pismo ekologów nr. 10'96"
	" na twardym dysku."
)

(set destpath (askdir (prompt "Gdzie zainstalowaź Katalog Zielonych Brygad ?\n\n"
			"Proszė podaź nazwė katalogu."
			)
			(default @Default-dest)
			(help @askdir-help)
			)
)
(set destpath (tackon destpath "ZB#88"))

(makedir destpath (safe))

(set @Default-dest destpath)

;Kopiujė pliki

(copyfiles	(prompt "Kopiujė pliki")
		(help @copyfiles-help)
		(source "ZB#88:")
		(dest @Default-dest)
		(pattern "(ZieloneBrygady|ZieloneBrygady.exe|ZB#10.exe|p61.Brass-Connection)")
		(infos)
)

;Kopiujė katalogi

(copyfiles	(prompt "Kopiujė pliki")
		(help @copyfiles-help)
		(source "ZB#88:")
		(dest @Default-dest)
		(pattern "(ARTICLES|data)")
		(infos)
)
;Kopiujė fonty

(if (not (exists "FONTS:virex.font"))
	(copyfiles (prompt "Kopiujė plik")
		(help @copyfiles-help)
		(source "ZB#88:Fonts")
		(pattern "(virex.font|VIREX)")
		(dest "FONTS:")
	)
)

;Kopiujė biblioteki

(if (not (exists "SYS:libs/reqtools.library"))
	(copyfiles (prompt "Kopiujė bibliotekė")
		(help @copyfiles-help)
		(source "ZB#88:libs/reqtools.library")
		(dest "SYS:libs")
	)
)


(if (not (exists "SYS:libs/diskfont.library"))
	(copyfiles (prompt "Kopiujė bibliotekė")
		(help @copyfiles-help)
		(source "ZB#88:libs/diskfont.library")
		(dest "SYS:libs")
	)
)

(if (not (exists "SYS:libs/icon.library"))
	(copyfiles (prompt "Kopiujė bibliotekė")
		(help @copyfiles-help)
		(source "ZB#88:libs/icon.library")
		(dest "SYS:libs")
	)
)

(if (not (exists "SYS:libs/powerpacker.library"))
	(copyfiles (prompt "Kopiujė bibliotekė")
		(help @copyfiles-help)
		(source "ZB#88:libs/powerpacker.library")
		(dest "SYS:libs")
	)
)

(if (not (exists "SYS:c/assign"))
	(copyfiles (prompt "Kopiujė plik")
		(help @copyfiles-help)
		(source "ZB#88:c/assign")
		(dest "SYS:c")
	)
)

(message "\n\nZielone Brygady nr.10'96 sā zainstalowane w katalogu:"
	@Default-Dest
	"\nPrzyjemnego czytania !"
)