(set #Sasiedzi-install
(cat "\n»» Instalacja gry Sâsiedzi-Demo ««"
     "\n(1995) Sun Productins"
     "\n\n\nProgram instalujâcy kopiuje dane potrzebne "
     "do poprawnego dziaîania "
     "na inny noônik. Program musi byê uruchomiony "
     "po uruchomienu sekwencji startowej dysku twardego."
     "\n\n\nCzy chcesz przejôê dalej ?"
))

(set #Sasiedzi-install-help
(cat
	"Jeûeli chcesz zasiëgnâê wiëcej informacji "
	"na temat instalacji i samej gry "
	"skontaktuj sië z autorami. "
))

(set #Sasiedzi-install-part2
(cat "\n»» Instalacja gry Sâsiedzi-Demo ««"
	"\n\nNajpierw musisz wybraê urzâdzenie "
	"docelowe instalacji. Domyôlnie wybrany "
	"zostaî dysk twardy `DH0:` i katalog "
	"`Sasiedzi` , aby rozpoczâê poprawnie "
	"instalacjë musisz stworzyê ten katalog "
	"przyciskajâc `MAKE DRAWER` i `PROCED`. "
	"W kaûdym momencie moûesz przerwaê "
	"instalacjë przyciskajâc `ABORT INSTALL`. "
	"Jeûeli nie zrozumiesz czegoô wybierz `HELP`. "
	"\n\nChcesz rozpoczâê instalacjë?"
))

(set #Sasiedzi-install-part2-help
(cat "\nJeûeli chcesz przerwaê to naciônij `NIE`."
	"\nPodczas instalacji program przekopiuje "
        "potrzebne pliki do odpowiedniego katalogu."
))
;----------------------------------------------------------------------------
(set #thatdirne
(cat "\nNie mogë otworzyê urzâdzenia o tej nazwie."
     "\nPrawdopobnie on nie istnieje, "
     "lub jeûeli instalujesz program na dysk "
     "nie ma go w stacji."
     "\nJeûeli wybierzesz `Yes`, to katalog zostanie stworzony."
     "Jeûeli wybierzesz `No`, to bedziesz musiaî odwoîaê sië do "
     "innego katalogu."
     "\n"
))

(set #thatdirne-help
(cat "\nWybraîeô inny katalog nie istniejâcy."
     "\nJeûeli wybierzesz `Yes`, to katalog zostanie stworzony."
     "Jeûeli wybierzesz `No`, to bedziesz musiaî odwoîaê sië do "
     "innego katalogu."
))
;----------------------------------------------------------------------------
(set #whereputSasiedzi
(cat "Podaj nazwë urzâdzenia docelowego."
))

(set #whereputSasiedzi-help
(cat "Musisz podaê nazwë urzâdzenia docelowego, "
     "na którym zostanie zainstalowany program. "
     "Moûe to byê nazwa np. dysku. "
	"Jeûeli instalujesz program na inny noônik niû "
	"dysk twardy "
	"(musisz mieê co najmniej "
	"dwie stacje dysków) i "
	"aby instalacja przebiegaîa poprawnie musi byê to "
	"dysk systemowy, czyli uruchomiony przed programem "
	"instalujâcym."
     "\n"
	"Przy ustawnieniu domyôlnym `DH0:Sasiedzi` "
	"najpierw stwórz odpowieni katalog `MAKE DRAWER`. "
	"\n\n"
     @askoptions-help
))

; -----------------------------------------------------

(if (askbool (prompt #Sasiedzi-install)
             (help #Sasiedzi-install-help)
             (choices "Tak" "Zakoïcz")
             (default 0))
(

(if (askbool (prompt #Sasiedzi-install-part2)
             (help #Sasiedzi-install-part2-help)
             (choices "Tak" "Nie")
             (default 1))
(

	(set Sasiedzidir (getassign "Work" "v"))

	; *****************************************************
	; * Did we get anything ? If not, set default to sys: *
	; *****************************************************

	( if (= Sasiedzidir "") (set Sasiedzidir "sys:") )
	(set goodresp FALSE)

	(while (= goodresp FALSE)
	(
		(set target (askdir (prompt #whereputSasiedzi)
			    (help #whereputSasiedzi-help)
			    (newpath)
			    (default "DH0:Sasiedzi")))

		(if (not (exists target))

		(
				(if (askbool (prompt (#thatdirne))
					     (help (#thatdirne-help))
					     (default 0) )
				(
					(makedir target (infos) )
					(set goodresp TRUE)
				))
		)
		(
			(set goodresp TRUE)
		)
		)
	)
	)


	(set Sasiedzidir target)
	(set @default-dest target)

;----------------------------------------------------------------------------

   (working "Instalacja gîównych moduîów...")

; Skopiuj Sasiedzi

  (copyfiles
	(prompt "Kopiujë plik startowy.")
	(help @copyfiles-help)
	(source "Sasiedzi:Sasiedzi")
	(dest (@default-dest))
   )

   (copyfiles
      (prompt "Kopiujë ikonë pliku startowego.")
      (help @copyfiles-help)
      (source "Sasiedzi:Sasiedzi.info")
      (dest (@default-dest))
   )

; Skopiuj Sasiedzi.data

   (copyfiles
      (prompt "Kopiujë plik pomocniczy")
      (help @copyfiles-help)
      (source "Sasiedzi:Sasiedzi.data")
      (dest (@default-dest))
  )

; Skopiuj Sasiedzi

  (copyfiles
	(prompt "Kopiujë instrukcjë gry.")
	(help @copyfiles-help)
	(source "Sasiedzi:Sasiedzi.doc")
	(dest (@default-dest))
   )

   (copyfiles
      (prompt "Kopiujë ikonë instrukcji gry.")
      (help @copyfiles-help)
      (source "Sasiedzi:Sasiedzi.doc.info")
      (dest (@default-dest))
   )

)
)
)
)

(Exit)
(Welcome)