(set #TESTY         "Kopiuje testy... ")
(set #BIBLIOTEKI    "Kopiuje biblioteke ")
(set #ORTO          "Kopiuje Ortotrisa... ")
(set #PPOMOCNICZE   "Kopiuje programy pomocnicze... ")
(set #BIBALERT
		(cat "Jezeli instalowana wersja danej biblioteki jest "
		"nizsza niz wersja biblioteki znajdujacej sie na HD, to "
		"nie instaluj tej biblioteki. ")
)
(set #AGUIDE_INFO
		(cat "Jest to wersja przeznaczona na system 1.3 wzwyz. "
		"Jezeli masz system 3.x, to posiadasz nowsza "
		"wersje AmigaGuide, tak wiec nie musisz tego instalowac.")
)
(set #FONTY			  "Kopiuje czcionki...")
(set #DOC  			  "Kopiuje instrukcje...")
(set #DODATKI       "Kopiuje dodatki...")


(message
(cat  "\n\n * UWAGA *"
		"\n\n Jezeli instalujesz Ortotrisa, to uruchamiaj komputer z"
		" twardego dysku!!!\n"
      " Program wymaga okolo 1 Mb wolnego mijesca na twardym dysku.")
)

(set @GDZIE_NAGRAC
    (askdir
    	(prompt "Wybierz dysk i katalog, w ktorym chcesz zainstalowac Ortotrisa. ")
    	(help "\n Musisz wybrac katalog, w ktorym zainstalowac chcesz Ortotrisa. "
    	"\n\n Ortotris wymaga okoîo 1MB wolnego miejsca na twardym dysku.  "
    	"Jezeli nie wybierzesz zadnego katalogu, to Otrtotris zostanie "
    	"zainstalowany na dysku systemowym. \n\n\n\n\n\n"
    	@askdir-help
    	)
    	(default "SYS:")
    )
)

(set @GDZIE_NAGRAC_ORTOTRISA
(tackon @GDZIE_NAGRAC "Ortoris")
)

(set @GDZIE_NAGRAC_TESTY
(tackon @GDZIE_NAGRAC_ORTOTRISA "Banki")
)

(complete 1)

(copyfiles                                    ; Ortotris (gra) -> HD
		(prompt "\n" #ORTO)
		(help "")
		(source "Ortotris:Ortotris")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
      (infos)
)

(complete 5)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data0")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 10)

(copyfiles
		(prompt "\n Kopiuje zbior AmigaGuide V34 - zobacz HELP...")
		(help "\n" #AGUIDE_INFO)
		(source "Ortotris:AmigaGuide")
		(dest "SYS:c")
		(confirm)
)

(complete 15)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data1")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 20)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data1.1")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 25)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data13.1")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data13.3")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 30)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data13.2")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data13.4")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 35)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data14")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 40)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data2")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 45)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data6")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 50)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data7")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 55)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data8")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 60)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data9")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 65)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data10")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 70)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data11")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 75)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data12.0")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 80)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data12.1")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 85)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data16")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 86)

(copyfiles
		(prompt "\n" #PPOMOCNICZE)
		(help "")
		(source "Ortotris:data17")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 87)

(copylib
		(prompt "\n" #BIBLIOTEKI "AmigaGuide.library")
		(help "\n" #BIBALERT)
		(source "Ortotris:libs/AmigaGuide.library")
		(dest "SYS:libs")
		(confirm)
)

(complete 88)

(copylib
		(prompt "\n" #BIBLIOTEKI "Icon.library")
		(help "\n" #BIBALERT)
		(source "Ortotris:libs/Icon.library")
		(dest "SYS:libs")
		(confirm)
)

(complete 89)

(copylib
		(prompt "\n" #BIBLIOTEKI "Diskfont.library")
		(help "\n" #BIBALERT)
		(source "Ortotris:libs/Diskfont.library")
		(dest "SYS:libs")
		(confirm)
)

(complete 90)

(copylib
		(prompt "\n" #BIBLIOTEKI "Explode.library")
		(help "\n" #BIBALERT)
		(source "Ortotris:libs/explode.library")
		(dest "SYS:libs")
		(confirm)
)

(complete 91)

(copylib
		(prompt "\n" #BIBLIOTEKI "Mathtrans.library")
		(help "\n" #BIBALERT)
		(source "Ortotris:libs/mathtrans.library")
		(dest "SYS:libs")
		(confirm)
)

(copylib
		(prompt "\n" #BIBLIOTEKI "AMOS.library")
		(help "\n" #BIBALERT)
		(source "Ortotris:libs/AMOS.library")
		(dest "SYS:libs")
		(confirm)
)

(complete 92)

(copylib
		(prompt "\n" #BIBLIOTEKI "Version.library")
		(help "\n" #BIBALERT)
		(source "Ortotris:libs/version.library")
		(dest "SYS:libs")
		(confirm)
)

(complete 93)

(copyfiles
		(prompt "\n" #TESTY)
		(help "")
		(source "Ortotris:Banki/")
		(dest @GDZIE_NAGRAC_TESTY)
		(all)
)

(complete 93)

(copyfiles
		(prompt "\n" #FONTY)
		(help "")
		(source "Ortotris:Fonts/")
		(dest "SYS:fonts")
		(all)
)

(complete 94)

(copyfiles
		(prompt "\n" #DOC)
		(help "")
		(source "Ortotris:Instrukcja")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 95)

(copyfiles
		(prompt "\n" #DOC)
		(help "")
		(source "Ortotris:HD_Icon/Instrukcja.info")
		(dest @GDZIE_NAGRAC_ORTOTRISA)
)

(complete 96)

(copyfiles
		(prompt "\n" #DODATKI)
		(help "")
		(source "Ortotris:LIBS/prgcodeortotris.library")
		(dest "SYS:libs")
)

(complete 97)

(copyfiles
		(prompt "\n" #DODATKI)
		(help "")
		(source "Ortotris:c/setmap")
		(dest "SYS:c")
)

(complete 98)

(copyfiles
		(prompt "\n" #DODATKI)
		(help "")
		(source "Ortotris:c/ff")
		(dest "SYS:c")
)

(copyfiles
		(prompt "\n" #DODATKI)
		(help "")
		(source "Ortotris:c/IconX")
		(dest "SYS:c")
)

(complete 99)

(makedir "SYS:devs")

(copyfiles
		(prompt "\n" #DODATKI)
		(help "")
		(source "Ortotris:devs/keymaps/usa-pol3")
		(dest "SYS:devs/keymaps")
)

(message
(cat     "* Uwaga! *\n\n"
         "ORTOTRIS wspolpracuje z polska mapa klawiatury "
         "o nazwie 'usa-pol3', ktora znajduje sie na dysku "
         "systemowym w katalogu devs/keymaps/. Aby ORTOTRIS "
         "pracowal poprawnie nalezy zainicjowac mape klawiatury przed jego "
         "uruchomieniem (w systemie 1.x dopisac nalezy 'setmap usa-pol3' "
         "do pliku 'startup-sequence' w katalogu 's', w systemie 2.x i 3.x "
         "nalezy wybrac mape klawiatury w preferencjach 'Prefs/Input').")
)

(message
(cat     "\n\n\nInstalacja zakonczona...\n\n"
         "Aby poprawnie uruchomic Ortotrisa zresetuj komputer!"
         "\n\n* HOWGH! *")
)

(complete 100)