; Program instalacyjny do gry Tyran 
; Pentagram 7 - Vector'96 ver.1.5

(complete 0)

(set #gdzie
	(cat
		"Gdzie ma byê stworzony katalog \"Tyran\" "
		"do, którego bëdâ skopiowane wszystkie pliki?"
	)
)


(set #gdzie-help
	(cat
		"Tu musisz podaê, gdzie chcesz zainstalowaê grë.      "
		"W tym miejscu zostanie stworzony katalog \"Tyran\"      "
		"i wszystkie pliki zostanâ tam skopiowane.           "
	)
)

(set #dysk-help
 (cat
  "Teraz komputer czeka na dyskietkë o, którâ Cië "
  "poprosiî. Wîoûenie jej do napëdu jest konieczne "
  "do dokoïczenia instalacji.                          "
 )
)


(set cel
	(tackon
		(askdir
			(prompt #gdzie)
			(help
				#gdzie-help
				@askdir-help
			)
			(default "SYS:")
		)
		"Tyran"
	)
)

(set @default-dest cel)


(makedir cel
	(infos)
)

(complete 10)

(copyfiles
  (prompt "Kopiujë pliki z dysku .")
  (help @copyfiles-help)
  (source "Tyran1:")
  (dest cel)
  (pattern "~((Instal)#?)")
	 (infos)
)

(complete 20)


(askdisk
 (prompt "Wîóû do stacji dysk drugi")
 (help 
  #dysk-help
  @askdisk-help
  )
 (dest "Tyran2")
)

(complete 30)

(copyfiles
  (prompt "Kopiujë pliki z dysku drugiego.")
  (help @copyfiles-help)
  (source "Tyran2:")
  (dest cel)
  (pattern "~((Instal)#?)")
	 (infos)
)

(complete 40)

(askdisk
 (prompt "Wîóû do stacji dysk trzeci")
 (help 
  #dysk-help
  @askdisk-help
  )
 (dest "Tyran3")
)

(complete 50)

(copyfiles
  (prompt "Kopiujë pliki z dysku trzeciego.")
  (help @copyfiles-help)
  (source "Tyran3:")
  (dest cel)
  (pattern "~((Instal)#?)")
	 (infos)
)

(complete 60)

(askdisk
 (prompt "Wîóû do stacji dysk czwarty")
 (help 
  #dysk-help
  @askdisk-help
  )
 (dest "Tyran4")
)

(complete 70)

(copyfiles
  (prompt "Kopiujë pliki z dysku czwartego.")
  (help @copyfiles-help)
  (source "Tyran4:")
  (dest cel)
  (pattern "~((Instal)#?)")
	 (infos)  
)

(complete 80)

(askdisk
 (prompt "Wîóû do stacji dysk piâty")
 (help 
  #dysk-help
  @askdisk-help
  )
 (dest "Tyran5")
)

(complete 90)

(copyfiles
  (prompt "Kopiujë pliki z dysku piâtego.")
  (help @copyfiles-help)
  (source "Tyran5:")
  (dest cel)
  (pattern "~((Instal)#?)")
	 (infos)  
)

(complete 100)

(exit "Instalacja zakoïczona pomyôlnie.")