
;\------------------------------------------------------------/
;/              Program instalujcy dysk twardy               \
;= Tomasz /Thomas/ Omaowski  (02.11.1996)                   =
;\------------------------------------------------------------/

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

(set #PinDemo-install-part2
(cat "\n Instalacja Dema "
	"\n\nNajpierw musisz wybra urzdzenie "
	"docelowe instalacji. Domylnie wybrany "
	"zosta dysk twardy `DH0:` i katalog "
	"`PinDemo` , aby rozpocz poprawnie "
	"instalacj musisz stworzy ten katalog "
	"przyciskajc `MAKE DRAWER` i `PROCED`. "
	"W kadym momencie moesz przerwa "
	"instalacj przyciskajc `ABORT INSTALL`. "
	"Jeeli nie zrozumiesz czego wybierz `HELP`. "
	"\n\nChcesz rozpocz instalacj?"
))

(set #PinDemo-install-part2-help
(cat "\nJeeli chcesz przerwa to nacinij `NIE`."
))
;----------------------------------------------------------------------------
(set #install-PinDemoversion
(cat "\n\nCzy chcesz wprowadzi "
     "zmiany do pliku S:Startup-sequence? "
     "\n"
))
;----------------------------------------------------------------------------
(set #thatdirne
(cat "\nNie mog otworzy urzdzenia o tej nazwie."
     "\nPrawdopodobnie on nie istnieje, "
     "\nlub jeeli instalujesz program na dysk "
     "\nnie ma go w stacji."
     "\nJeeli wybierzesz `Yes`, to katalog zostanie stworzony."
     "Jeeli wybierzesz `No`, to bdziesz musia odwoa si do "
     "innego katalogu."
     "\n"
))

(set #thatdirne-help
(cat "\nWybrae inny katalog nie istniejcy."
     "\nJeeli wybierzesz `Yes`, to katalog zostanie stworzony."
     "Jeeli wybierzesz `No`, to bdziesz musia odwoa si do "
     "innego katalogu."
))
;----------------------------------------------------------------------------
(set #whereputPinDemo
(cat "Podaj nazw urzdzenia docelowego."
))

(set #whereputPinDemo-help
(cat "Musisz poda nazw urzdzenia docelowego, "
     "na ktrym zostanie zainstalowany program. "
     "Moe to by nazwa np. dysku. "
	"Jeeli instalujesz program na inny nonik ni "
	"dysk twardy "
	"(musisz mie co najmniej "
	"dwie stacje dyskw) i "
	"aby instalacja przebiegaa poprawnie musi by to "
	"dysk systemowy, czyli uruchomiony przed programem "
	"instalujcym.\n"
     "\n"
	"Przy ustawnieniu domylnym `DH0:PinDemo` "
	"najpierw stwrz odpowieni katalog `MAKE DRAWER`. "
	"\n\n"
     @askoptions-help
))
;----------------------------------------------------------------------------
(set #Sequence
(cat "\nWcinicie `PROCED` spowoduje zmian zawartosci "
     "sekwencji startowej dysku systemowego. "
	"Jeeli nie chcesz zmienia sekwencji startowej "
	"lub masz j zmienion wcinij `SKIP THIS PART`. "
     "\n"
))

(set #Sequence-help
(cat "\nFunkcja ta umoliwia umieszczenie w pliku "
     "S/STARTUP-SEQUENCE sekwencji automatycznie przygotowujcej "
     "program do startu (zapisuje rozkazy `ASSIGN PinDemo: DH0:`). "
     "Jeeli omin t funkcj wcinij `SKIP THIS PART`. "
     "\n"
	@startup-help
))
;----------------------------------------------------------------------------


(if (askbool (prompt #PinDemo-install-part2)
             (help #PinDemo-install-part2-help)
             (choices "TAK" "NIE")
             (default 1))
(
	(set PinDemodir (getassign "Work" "v"))

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

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

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

		(if (not (exists target))

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


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

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

   (working "Instalacja gwnych moduw...")

; Skopiuj Play

  (copyfiles
	(prompt "Kopiuj plik PinDemo...")
	(help @copyfiles-help)
	(source "PinDemo1:PinDemo")
	(dest (@default-dest))
   )
   (copyfiles
      (prompt "Kopiuj plik PinDemo.info")
      (help @copyfiles-help)
      (source "PinDemo1:PinDemo.info")
      (dest (@default-dest))
   )
   (copyfiles
      (prompt "Kopiuj modu muzyczny...")
      (help @copyfiles-help)
      (source "PinDemo1:P61.pinball.introtune")
      (dest (@default-dest))
   )
   (copyfiles
      (prompt "Kopiuj animacj...")
      (help @copyfiles-help)
      (source "PinDemo1:SunProd.CrM2")
      (dest (@default-dest))
   )
   (copyfiles
      (prompt "Kopiuj animacj...")
      (help @copyfiles-help)
      (source "PinDemo2:Wjazd2.CrM2")
      (dest (@default-dest))
   )
   (copyfiles
      (prompt "Kopiuj modu muzyczny...")
      (help @copyfiles-help)
      (source "PinDemo2:P61.pinball.introshock")
      (dest (@default-dest))
   )
   (copyfiles
      (prompt "Kopiuj animacj...")
      (help @copyfiles-help)
      (source "PinDemo3:Wjazd1.CrM2")
      (dest (@default-dest))
   )

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

   (working "Ustawienie startu...")

(if (<> (exists ("S:Startup-sequence")) 0)
 (
   (set modifystartup 1)
   (if (> @user-level 1)
      (set modifystartup
         (askbool
            (prompt "Czy chcesz doda sekwencj startow dysku PinDemo: ?")
            (help @startup-help)
            (default 1)
         )
      )
   )

   (if (<> modifystartup 0)
      (
         (onerror
            (message
		"\nNie mog otworzy pliku Startup-sequence. "
		"Aby program poprawnie pracowa musisz wykona "
		"za kadym razem: "
		"\n\n- Assign PinDemo: " @default-dest
         )

         (startup "S:startup-sequence"
            (prompt #Sequence)
            (help #Sequence-help)
            (command ";"
		     "\nAssign PinDemo: " @default-dest
		     "\n;")
         )
      )
   )
 )
)


;***************************************************************
   (working "Ustawienie wektorw systemowych...")
   (makeassign "PinDemo" (@default-dest))
;***************************************************************

)
)
)

(Exit)
(Welcome)
