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

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

(message "\n\nWitamy w programie instalacji magazynu"
	" Zielone Brygady - pismo ekologów nr. 11'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 "ZB89"))

(makedir destpath (safe))

(set @Default-dest destpath)

;Kopiujė pliki

(copyfiles	(prompt "Kopiujė pliki")
		(help @copyfiles-help)
		(source "ZB89:")
		(dest @Default-dest)
		(pattern "(ZieloneBrygady|ZieloneBrygady.info|ZB.exe|p61.Wanna a buy trip)")
		(infos)
)

;Kopiujė katalogi

(copyfiles	(prompt "Kopiujė pliki")
		(help @copyfiles-help)
		(source "ZB89:")
		(dest @Default-dest)
		(pattern "(ARTICLES|DATA)")
		(infos)
)
;Kopiujė fonty

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

;Kopiujė biblioteki

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

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

(if (not (exists "SYS:libs/iff.library"))
	(copyfiles (prompt "Kopiujė bibliotekė")
		(help @copyfiles-help)
		(source "ZB89:libs/iff.library")
		(dest "SYS:libs")
	)
)

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

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

;kopiuje dodatkowe programy
(if (not (exists "SYS:c/assign"))
	(copyfiles (prompt "Kopiujė plik")
		(help @copyfiles-help)
		(source "ZB89:c/assign")
		(dest "SYS:c")
	)
)

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