commit a05f1331d6e860d822f561b09e952fa2545bdab3
Author: Bartek 'ftpd' Stalewski <ftpd@insomniac.pl>
Date:   Mon May 7 18:54:48 2012 +0200

    Initial commit.

diff --git a/_tfrc b/_tfrc
new file mode 100644
index 0000000..b9295b9
--- /dev/null
+++ b/_tfrc
@@ -0,0 +1,11 @@
+/addworld -T"lp" arkadia 188.165.23.180 23
+/addworld -T"lp" nightal 87.98.235.60 2300
+
+/def -ag -h'Load'  hide_load
+/def -ag -h'Redef' hide_redef
+
+/set main_dir ~/tf
+/set priv_dir ~/.tf
+
+/eval /cd %{main_dir}
+/load start.tf
diff --git a/arkadia/calendar.tf b/arkadia/calendar.tf
new file mode 100644
index 0000000..f8a458b
--- /dev/null
+++ b/arkadia/calendar.tf
@@ -0,0 +1,20 @@
+/def -mglob -Fp2 -t'* Nachhexen *'  wim1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesna wiosna.
+/def -mglob -Fp2 -t'* Jahrdrung *'  wim2 = /echo -p #@{BC%kolor_info}#@{n}# Wiosna.
+/def -mglob -Fp2 -t'* Pflugzeit *'  wim3 = /echo -p #@{BC%kolor_info}#@{n}# Pozna wiosna.
+/def -mglob -Fp2 -t'* Sigmarszeit *' lim1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesne lato.
+/def -mglob -Fp2 -t'* Sommerzeit *' lim2 = /echo -p #@{BC%kolor_info}#@{n}# Lato.
+/def -mglob -Fp2 -t'* Vorgeheim *'  lim3 = /echo -p #@{BC%kolor_info}#@{n}# Pozne lato.
+/def -mglob -Fp2 -t'* Nachgeheim *' jim1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesna jesien.
+/def -mglob -Fp2 -t'* Erntezeit *'  jim2 = /echo -p #@{BC%kolor_info}#@{n}# Jesien.
+/def -mglob -Fp2 -t'* Brauzeit *'   jim3 = /echo -p #@{BC%kolor_info}#@{n}# Pozna jesien.
+/def -mglob -Fp2 -t'* Kaltezeit *'  zim1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesna zima.
+/def -mglob -Fp2 -t'* Ulrichszeit *' zim2 = /echo -p #@{BC%kolor_info}#@{n}# Zima.
+/def -mglob -Fp2 -t'* Vorhexen *'   zim3 = /echo -p #@{BC%kolor_info}#@{n}# Pozna zima.
+/def -mglob -Fp2 -t'* Yule *'       zis1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesna zima.
+/def -mglob -Fp2 -t'* Imbaelk *'    zis2 = /echo -p #@{BC%kolor_info}#@{n}# Pozna zima.
+/def -mglob -Fp2 -t'* Birke *'      wis1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesna wiosna.
+/def -mglob -Fp2 -t'* Blathe *'     wis2 = /echo -p #@{BC%kolor_info}#@{n}# Pozna wiosna.
+/def -mglob -Fp2 -t'* Feainn *'     lis1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesne lato.
+/def -mglob -Fp2 -t'* Lammas *'     lis2 = /echo -p #@{BC%kolor_info}#@{n}# Pozne lato.
+/def -mglob -Fp2 -t'* Velen *'      jis1 = /echo -p #@{BC%kolor_info}#@{n}# Wczesna jesien.
+/def -mglob -Fp2 -t'* Saovine *'    jis2 = /echo -p #@{BC%kolor_info}#@{n}# Pozna jesien.
diff --git a/arkadia/colors.tf b/arkadia/colors.tf
new file mode 100644
index 0000000..90db630
--- /dev/null
+++ b/arkadia/colors.tf
@@ -0,0 +1,483 @@
+; ogólne
+/eval /def -PBC%kolor_main     -Fp5 -t'^Ok\\.'
+/eval /def -PBC%kolor_main     -Fp5 -t'Slucham.'
+/eval /def -PBC%kolor_main     -Fp5 -t'zaprasza cie do swojej druzyny'
+/eval /def -PBCwhite;Cbggreen -Fp5 -t' przybywa(ja|)'
+/eval /def -PBCbggreen;Cwhite -Fp5 -t' podaza(ja|sz|) '
+/eval /def -ar -mglob          -Fp5 -t'*przekazuje ci prowadzenie druzyny*'
+
+; walka
+/eval /def -ar -mglob       -Fp5 -t'* zaslania * przed twoimi ciosami.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* atakuje cie[!.]'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* ale zagradzasz .* droge'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* przebijajac sie przez twoja .*'
+
+/eval /def -PBC%kolor_atak  -Fp5 -t'^Atakujesz .*'
+/eval /def -PBC%kolor_atak  -Fp5 -t'Wspierasz '
+/eval /def -PBC%kolor_atak  -Fp5 -t' wspiera cie '
+/eval /def -PC%kolor_atak   -Fp5 -t'.* atakuje .*'
+/eval /def -PBC%kolor_atak  -Fp5 -t'.* probuje zaatakowac ciebie.*'
+/eval /def -PC%kolor_atak  -Fp5 -t'.* probuje zaatakowac .*(mu|jej) droge.'
+/eval /def -PC%kolor_atak   -Fp5 -t'.* przebijajac sie przez (jej|jego) .*'
+/eval /def -PBC%kolor_atak  -Fp5 -t'Rzucasz sie na .* przebijajac sie przez .* ochrone.'
+/eval /def -PBC%kolor_atak  -Fp5 -t'Bezskutecznie rzucasz sie na .* probujac przebic sie przez .* ochrone.'
+/eval /def -PBC%kolor_atak  -Fp5 -t'Na rozkaz .* rzucasz sie .*'
+/eval /def -PC%kolor_atak  -Fp5 -t'na .*rozkaz .* rzuca sie .*'
+/eval /def -PBC%kolor_atak  -Fp5 -t'Walczysz '
+/eval /def -PC%kolor_atak   -Fp5 -t' walczy '
+/eval /def -PCred           -Fp5 -t'.* (umarl|polegl)(a|o|)\\.'
+/eval /def -PCred			-Fp5 -t'.* zabil(a|o|) .*'
+/eval /def -PBCred          -Fp5 -t'^Zabil.s (.*)'
+/eval /def -PCbgwhite;BCred -Fp5 -t'zaslaniasz '
+/eval /def -PCbgwhite;BCred -Fp5 -t'zaslania cie '
+/eval /def -PCbgwhite;Cred  -Fp5 -t'zaslania '
+/eval /def -PCbgwhite;BCblue -Fp5 -t'probujesz zaslonic'
+/eval /def -PCbgwhite;BCblue -Fp5 -t'probuje zaslonic cie '
+/eval /def -PCbgwhite;Cblue  -Fp5 -t'probuje zaslonic '
+/eval /def -PBC%kolor_alarm -Fp5 -t'Czujesz sie ekstremalnie zmeczon.\\.'
+
+; ataki KS
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* miotajac najciezsze przeklenstwa naciera na ciebie!'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* z dzika furia rzuca sie na ciebie.*'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* opluwa cie i krzywiac twarz w .*'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* ostroznie obchodzi cie, jakby .* atakujac cie!'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* zaczyna walke z toba!'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.*zaczepny cios, atakujac cie!'
+
+; ataki SC
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* wykrzywiajac twarz w okrutnym grymasie rzuca sie na ciebie.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* wbija wzrok w ciebie i raptownie zrywajac sie z miejsca atakuje cie.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* sprezystym skokiem dopada ciebie i atakuje cie.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* przyczaja sie chwile i z szybkiego doskoku atakuje cie.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* mruzac drapieznie oczy rusza do ataku na ciebie.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* w mgnieniu oka wykonuje drapiezny skok, dopadajac cie.'
+
+; ataki ZH
+/eval /def -PC%kolor_atak -Fp5 -t'.* z determinacja rzuca .* za wszelka cene powstrzymac .*'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* z determinacja rzuca sie do walki.* cie powstrzymac.*'
+
+; ciosy
+/eval /def -mregexp -PBC%kolor_fight_me -Fp5 -t'(Ledwo muskasz|Lekko ranisz|Ranisz|Powaznie ranisz|Bardzo ciezko ranisz|Masakrujesz) '
+/eval /def -mregexp -PBC%kolor_fight -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) cie '
+/eval /def -mregexp -PC%kolor_fight  -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) (?!cie )'
+
+; kondycja
+/eval /def -PBC%kolor_main  -Fp5 -t'w swietnej kondycji'
+/eval /def -PBC%kolor_main  -Fp5 -t'w dobrym stanie'
+/eval /def -PBC%kolor_main  -Fp5 -t'lekko rann.'
+/eval /def -PBC%kolor_alarm -Fp5 -t' rann.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'w zlej kondycji'
+/eval /def -PBC%kolor_crit  -Fp4 -t'(ciezko rann.)'
+/eval /def -PBC%kolor_crit  -Fp1 -t'ledwo zyw.'
+
+; mana
+/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie w pelni sil'
+/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie lekko oslabion.'
+/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie oslabion.'
+/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie zmeczon.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie bardzo zmeczon.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie w zlej kondycji'
+/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie wyczerpan.'
+/eval /def -PBC%kolor_crit  -Fp5 -t'mentalnie wykonczon.'
+/eval /def -PBC%kolor_crit  -Fp5 -t'mentalnie u kresu sil'
+
+; zmeczenie
+/eval /def -PBC%kolor_main  -Fp5 -t'jestes w pelni wypoczet(y|a)\\.'
+/eval /def -PBC%kolor_main  -Fp5 -t'jestes wypoczet(y|a)\\.'
+/eval /def -PBC%kolor_main  -Fp5 -t'jestes troche zmeczon(y|a)\\.'
+/eval /def -PBC%kolor_main  -Fp5 -t'jestes zmeczon(y|a)\\.'
+/eval /def -PBC%kolor_main  -Fp5 -t'jestes bardzo zmeczon(y|a)\\.'
+/eval /def -PBC%kolor_main  -Fp5 -t'jestes nieco wyczerpan(y|a)\\.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'jestes wyczerpan(y|a)\\.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'jestes bardzo wyczerpan(y|a)\\.'
+/eval /def -PBC%kolor_crit  -Fp5 -t'jestes wycienczon(y|a)\\.'
+/eval /def -PBC%kolor_crit  -Fp5 -t'jestes calkowicie wycienczon(y|a)\\.'
+
+/eval /def -PBC%kolor_crit  -Fp5 -t'Jestes tak zmeczon., ze nie mozesz dalej .* w tym kierunku\\.'
+
+; postepy
+/eval /def -mregexp -Fp5 -PBC%kolor_main -t'(Nie poczynil[ea]s|Poczynil[ea]s .* postepy)'
+
+; poczta
+/eval /def -PBC%kolor_main  -Fp5 -t'^Nagle, tuz przed toba, z chmury dymu (.*)'
+/eval /def -PBC%kolor_main  -Fp5 -t'^Masz now(a|y) .*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Czeka na ciebie .* poczta.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'^Na twoje ramie .* szczur.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'^Bialy golab pocztowy laduje na twoim.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'^Na twoim ramieniu niespodziewanie wyladowal .*'
+
+; sprzet
+/eval /def -PBC%kolor_main  -Fp5 -t'Trzyma(sz|) (.*)'
+/eval /def -PC%kolor_main   -Fp5 -t'Ma(sz| on| ona|) na sobie '
+/eval /def -PC%kolor_main   -Fp5 -t'Masz przy sobie ' 
+/eval /def -PBC%kolor_main  -Fp5 -t'ze jest w znakomitym stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w (dobrym|zlym|bardzo zlym) stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze liczne walki wyryly na .* swoje pietno'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze wymaga natychmiastowej konswerwacji'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze moze peknac w kazdej chwili'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest lekko podniszczon.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w kiepskim stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w oplakanym stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest gotow. rozpasc sie w kazdej chwili'
+/eval /def -PBC%kolor_alarm -Fp5 -t'nie nadaje sie do (ostrzenia|naprawy).'
+
+; poziomy
+/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na kompletnego zoltodzioba\\.'
+/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na kogos niedoswiadczonego\\.'
+/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na osobe owiana legenda\\.'
+/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na kogos.*'
+
+; mowienie
+/eval /def -mregexp -PBC%kolor_speak -Fp6 -t'(Mowisz|Krzyczysz|Szepczesz)(.*)'
+/eval /def -mregexp -PBC%kolor_speak -Fp6 -t'(.*) (mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|bulgocze)((.*)| )do ciebie: (.*)'
+/eval /def -mregexp -PC%kolor_speak  -Fp6 -t'(.*) ((?-i)mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|bulgocze)(| z (.*)|(.*)|( z (.*) do (?!ciebie))|(.*) do (?!ciebie)): (.*)'
+
+; magiki
+/eval /def -PBC%kolor_spec -Fp2 -t'(kunsztown[a-z]* mithrylow[a-z]* topor[a-z]* bojow[a-z]*|poszczerbion[a-z]* obureczn[a-z]* miecz[a-z]*|polyskliw[a-z]* smukl[a-z]* espadon[a-z]*|kruczoczarn[a-z]* mistern[a-z]* miecz[a-z]*|srebrzyst[a-z]* kos[a-z]* bojow[a-z]*|opalizujac[a-z]* runiczn[a-z]* topor[a-z]* obosieczn[a-z]*|skorodowan[a-z]* wiekow[a-z]* topor[a-z]*|gwiezdn[a-z]* topor[a-z]*|snieznobial[a-z]* lsniac[a-z]* sztylet[a-z]*|gigantyczn[a-z]* granitow[a-z]* mlot[a-z]*|krysztalow[a-z]* dwureczn[a-z]* korbacz[a-z]*|waski[a-z]* kunsztown[a-z]* sihill[a-z]*|mistern[a-z]* obosieczn[a-z]* topor[a-z]*|dwureczn[a-z]* adamantytow[a-z]* mlot[a-z]* bojow[a-z]*|wielki[a-z]* runiczn[a-z]* mlot[a-z]* wojenn[a-z]*|jasniejac[a-z]* zdobion[a-z]* mlot[a-z]* bojow[a-z]*|zdobion[a-z]* jasniejac[a-z]* mlot[a-z]* bojow[a-z]*|ciemn[a-z]* upiorn[a-z]* mlot[a-z]* bojow[a-z]*|koscian[a-z]* kilof[a-z]*|czarnoblekitn[a-z]* pulsujac[a-z]* morgenstern[a-z]*|zdobion[a-z]* dlug[a-z]* lewak[a-z]*|niebieskaw[a-z]* zdobiona[a-z]* bulaw[a-z]*|adamantytow[a-z]* szpiczast[a-z]* partyzan[a-z]*|ogromn[a-z]* ognist[a-z]* trojz[a-z]*|antyczn[a-z]* zdobion[a-z]* sztylet[a-z]*|lodow[a-z]* lsniac[a-z]* sztylet[a-z]*|masywn[a-z]* wyszczerbion[a-z]* tasak[a-z]*)'
+/eval /def -PBC%kolor_spec -Fp2 -t'(szmaragdowozielon[a-z]* mistern[a-z]* plaszcz[a-z]*|wygodn[a-z]* szar[a-z]* par[a-z]* butow|czarn[a-z]* zdobion[a-z]* amule[a-z]*|lsniac[a-z]* plomienist[a-z]* tarcz[a-z]*|lsniac[a-z]* krysztalow[a-z]* wisior[a-z]*|kunsztown[a-z]* lekk[a-z]* pancerz[a-z]*|ciezk[a-z]* krwist[a-z]* amulet[a-z]*|azurow[a-z]* koscistobial[a-z]* amulet[a-z]*|snieznobial[a-z]* luskow[a-z]* kolczu[a-z]*|ozdobn[a-z]* skorzan[a-z]* plecak[a-z]*|czerwon[a-z]* skrzydlat[a-z]* par[a-z]* nareczak[a-z]*)'
+/eval /def -PBC%kolor_spec -Fp2 -t'(zdobiony[a-z]* zlot[a-z]* pierscien[a-z]*|snieznobial[a-z]* lsniac[a-z]* pancerz[a-z]*|strzelist[a-z]* zlocist[a-z]* helm[a-z]*)'
+
+; gildie
+/eval /def -aBC%kolor_guild -p2 -t'*zloty pierscien*Cechu*'
+/eval /def -PBC%kolor_guild -p2 -t'(Jego|Jej) nieustepliwe niczym skelliganskie sztormy spojrzenie i twarz wysmagana lodowatymi wichrami swiadcza o tym, ze masz przed soba czlonka zalogi jednego z plywajacych po morzach i oceanach okretow wojennych.'
+/eval /def -aBC%kolor_guild -p2 -t'*Klamre * pasa zdobi *'
+/eval /def -aBC%kolor_guild -p2 -t'*noszony przez zaciezna piechote z Ochotniczego Hufca Mahakamu.*'
+/eval /def -aBC%kolor_guild -p2 -t'*na ktorym wyryto otoczony czerwonymi rautami emblemat*'
+/eval /def -aBC%kolor_guild -p2 -t'*z herbem Rodziny Alderazzi*'
+/eval /def -aBC%kolor_guild -p2 -t'*charakterystyczna dla Stowarzyszenia*'
+/eval /def -aBC%kolor_guild -p2 -t'*ze znakiem czarnego gryfa*'
+/eval /def -aBC%kolor_guild -p2 -t'Nosi wiewiorczy ogon*'
+/eval /def -aBC%kolor_guild -p2 -t'*biala tunika zakonna symbolizuje*'
+
+/def glow = \
+	/def -PBC%kolor_glow -Fp5 -t'%{*}' _glow_%{1}
+
+/def unglow = \
+	/purge -i _glow_%{*}
+		
+; by Ingwar
+
+/set ogolne_skrzynia_dluga=1
+
+/def _skrzynia = \
+	/purge _skrzynia_trig_* %;\
+	/if ({ogolne_skrzynia_dluga}==1) \
+		/def -ag -p2 -mregexp -t'( zawiera(?:|ja)|powieszono|w srodku dostrzegasz) (.+, .+ i .+)\\\\.$$' _skrzynia_trig_1 = /test _skrzynia_pokaz(strcat({PL}, {P1}, ":"), {P2}) %;\
+	/endif
+
+/_skrzynia
+
+/purge -i _skrzynia_pokaz
+
+/def -i _skrzynia_pokaz = \
+	/let _tmp=$[replace(", ", "|", {2})] %;\
+	/let _tmp=$[strcat(replace(" i ", "|", {_tmp}), "|")] %;\
+	/let _tmp=$[replace("||", "|", {_tmp})] %;\
+	/while /let i=$[strstr({_tmp},"|")] %; /@test i > -1 %; /do \
+		/let _name=$[substr({_tmp},0,i)] %;\
+		/let _tmp=$[substr({_tmp},i+1)] %;\
+		/let _ile=$(/_zam_licz %{_name}) %;\
+		/if ({_ile} != 1) \
+			/let _name=$[substr({_name}, strchr({_name}, " ") + 1)] %;\
+		/endif %;\
+		/if (regmatch("\
+			gwiezdny.* topor|\
+			", {_name})) \
+			/let _name=$[strcat(decode_attr(""), {_name})] %;\
+		/elseif (regmatch("\
+			prost. smukl. rapier|\
+			", {_name})) \
+			/let _name=$[strcat(decode_attr(""), {_name})] %;\
+		/endif %;\
+		/if (regmatch({ogolne_skrzynia_podswietl-NICO}, {_name})) \
+			/let _name=$[strcat(decode_attr(strcat("[", {_ile}, "] ")), substr({_name}, 0, strstr({_name}, "]") + 1), decode_attr(strcat(substr({_name}, strstr({_name}, "]") + 1))))] %;\
+		/else \
+			/let _name=$[strcat("[", {_ile}, "] ", {_name})] %;\
+		/endif %;\
+		/if (regmatch("\
+			topor|\
+			berdysz|\
+			siekier|\
+			czekan|\
+			oskard|\
+			kilof|\
+			tasak|\
+			tabar|\
+			nadziak|\
+			miecz|\
+			sihill|\
+			drannach|\
+			szabl|\
+			szabel|\
+			rapier|\
+			scimitar|\
+			katzbalger|\
+			stilett|\
+			pal|\
+			sztylet|\
+			halabard|\
+			falchion|\
+			mlot|\
+			obusz|\
+			wloczni|\
+			pik[ei]|\
+			noz|\
+			maczug|\
+			morgenstern|\
+			kordelas|\
+			mizerykordi|\
+			buzdygan|\
+			korbacz|\
+			gal[ae]z|\
+			bulaw|\
+			drag|\
+			kiscien|\
+			nog[ai] stolow|\
+			dag[ai]|\
+			wloczni[aei]|\
+			floret|\
+			wekier|\
+			walek|\
+			lamia|\
+			kostur|\
+			kos[aye]|\
+			szponton|\
+			partyzan|\
+			glewi|\
+			gizarm|\
+			dzid|\
+			naginat|\
+			rohatyn|\
+			korsek |\
+			cep|\
+			trojz[ea]b|\
+			ronkon|\
+			runk|\
+			flamberg|\
+			poltorak|\
+			bulat|\
+			nimsz|\
+			szamszir|\
+			lami|\
+			spis[ay]|\
+			schiavon|\
+			lewak|\
+			sierp|\
+			lask|\
+			wid(e|)l|\
+			saif|\
+			koncerz|\
+			kij|\
+			espadon|\
+			claymor|\
+			cinquend|\
+			szpad|\
+			karabel|\
+			jatagan|\
+			baselard|\
+			daga\
+			", {_name})) \
+			/let _tmp_zb_1=$[strcat(_tmp_zb_1, _name, "|")] %;\
+		/elseif (regmatch("tarcz|puklerz|pawez", {_name})) \
+			/let _tmp_zb_2=$[strcat(_tmp_zb_2, _name, "|")] %;\
+		/elseif (regmatch("napiersnik|kirys|kolczug|karacen|kaftan|koszul|tunik|zbroj|bajdan[ay]|anim[eay]|kozus|kurt|kamizel|becht|pancerz", {_name})) \
+			/let _tmp_zb_3=$[strcat(_tmp_zb_3, _name, "|")] %;\
+		/elseif (regmatch("nareczak|naramiennik|rekawic|karwasz", {_name})) \
+			/let _tmp_zb_4=$[strcat(_tmp_zb_4, _name, "|")] %;\
+		/elseif (regmatch("nagolennik|spoden|nogawic|but(y|ow)|trzewik|spodni|spodnic|naudziak|sandal|nakolannik", {_name})) \
+			/let _tmp_zb_5=$[strcat(_tmp_zb_5, _name, "|")] %;\
+		/elseif (regmatch("helm|burgonet|misiurk|kaptur|morion|basinet|salad|przylbic|diadem|szyszak|narbut[ay]| armet|casquett| czapk|beret|turban|gigantyczn. wzmacnian. czaszk| barbut|kapalin", {_name})) \
+			/let _tmp_zb_6=$[strcat(_tmp_zb_6, _name, "|")] %;\
+		/elseif (regmatch("plaszcz|peleryn| tog| szat|bloniaste skrzydl", {_name})) \
+			/let _tmp_zb_7=$[strcat(_tmp_zb_7, _name, "|")] %;\
+		/else \
+			/let _tmp_zb_8=$[strcat(_tmp_zb_8, _name, "|")] %;\
+		/endif %;\
+	/done %;\
+	/let _szer=$[wrapsize / 2 - 4] %;\
+	/test echo(strcat("+", strrep("-", {_szer} * 2 - 44 - %{wrapspace}), "+")) %;\
+	/let i=0 %;\
+	/while (i < 4) \
+		/let i1=$[{i} * 2 + 1] %;\
+		/let i2=$[{i} * 2 + 2] %;\
+		/eval /set _zb=%%_tmp_zb_%{i1} %;\
+		/eval /set _zb2=%%_tmp_zb_%{i2} %;\
+		/if ({_zb} !~ NULL | {_zb2} !~ NULL) \
+		    /while (_zb !~ "" | _zb2 !~ "") \
+				/let _k=$[strstr({_zb},"|")] %;\
+				/let _name=$[substr({_zb},0,_k)] %;\
+				/let _name=$[substr(_name, 0, {_szer})] %;\
+				/set _zb=$[substr({_zb},_k+1)] %;\
+				/let _k2=$[strstr({_zb2},"|")] %;\
+				/let _name2=$[substr({_zb2},0,_k2)] %;\
+				/let _name2=$[substr(_name2, 0, {_szer})] %;\
+				/set _zb2=$[substr({_zb2},_k2+1)] %;\
+				/test echo(strcat("| ", pad({_name}, - {_szer} + 25 + %{wrapspace}), " | ", pad({_name2}, - {_szer} + 24 + %{wrapspace}), " |")) %;\
+			/done %;\
+			/test echo(strcat("+", strrep("-", {_szer} * 2 - 44 - %{wrapspace}), "+")) %;\
+		/endif %;\
+		/test ++i %;\
+	/done %;\
+	/unset _zb %;\
+	/unset _zb2 %;\
+	/unset _na %;\
+	/unset _na2
+
+/purge -i _zam_licz
+
+/def -i _zam_licz = \
+	/if ({1} =~ "dwa" | {1} =~ "dwie" | {1} =~ "dwoch") \
+		/test echo(2) %;\
+	/elseif ({1} =~ "trzy" | {1} =~ "trzech") \
+		/test echo(3) %;\
+	/elseif ({1} =~ "cztery" | {1} =~ "czterej") \
+		/test echo(4) %;\
+	/elseif ({1} =~ "piec" | {1} =~ "pieciu") \
+		/test echo(5) %;\
+	/elseif ({1} =~ "szesc" | {1} =~ "szeciu") \
+		/test echo(6) %;\
+	/elseif ({1} =~ "siedem" | {1} =~ "siedmiu") \
+		/test echo(7) %;\
+	/elseif ({1} =~ "osiem" | {1} =~ "osmiu") \
+		/test echo(8) %;\
+	/elseif ({1} =~ "dziewiec" | {1} =~ "dziewieciu") \
+		/test echo(9) %;\
+	/elseif ({1} =~ "dziesiec" | {1} =~ "dziesieciu") \
+		/test echo(10) %;\
+	/elseif ({1} =~ "jedenascie" | {1} =~ "jedynastu") \
+		/test echo(11) %;\
+	/elseif ({1} =~ "dwanascie" | {1} =~ "dwunastu") \
+		/test echo(12) %;\
+	/elseif ({1} =~ "trzynascie" | {1} =~ "trzynastu") \
+		/test echo(13) %;\
+	/elseif ({1} =~ "czternascie" | {1} =~ "czternastu") \
+		/test echo(14) %;\
+	/elseif ({1} =~ "pietnascie" | {1} =~ "pietnastu") \
+		/test echo(15) %;\
+	/elseif ({1} =~ "szesnascie" | {1} =~ "szesnastu") \
+		/test echo(16) %;\
+	/elseif ({1} =~ "siedemnascie" | {1} =~ "siedemnastu") \
+		/test echo(17) %;\
+	/elseif ({1} =~ "osiemnascie" | {1} =~ "osiemnastu") \
+		/test echo(18) %;\
+	/elseif ({1} =~ "dziewietnascie" | {1} =~ "dziewietnastu") \
+		/test echo(19) %;\
+	/elseif ({1} =~ "dwadziescia" | {1} =~ "dwudziestu") \
+		/test echo(20) %;\
+	/elseif (regmatch("(\\d+)", {1})) \
+		/test echo(decode_attr(strcat("@{nBCwhite}", {1}))) %;\
+	/elseif ({1} =~ "wiele" | {1} =~ "wielu") \
+		/test echo("X") %;\
+	/else \
+		/test echo(1) %;\
+	/endif
+
+/def um = \
+	/if ({*}=~NULL) \
+		/send umiejetnosci bojowe %;\
+		/send umiejetnosci ogolne %;\
+		/send umiejetnosci zlodziejskie %;\
+		/send umiejetnosci paraktyczne %;\
+		/set _umiejetnosci_i=6 %;\
+		/let _um_ktore=bojowe ogolne zlodziejskie praktyczne %;\
+	/else \
+		/if ({*}=~"wszystkie") \
+			umiejetnosci %;\
+			/let _um_ktore=wszystkie %;\
+		/else \
+			umiejetnosci %{*} %;\
+			/let _um_ktore=%{*} %;\
+		/endif %;\
+		/set _umiejetnosci_i=2 %;\
+	/endif %;\
+	/set umiejetnosci=%;\
+	/def -p6 -ag -mregexp -t':( )*([^ ]*)( )*(.*):( )*([^ ]*)' _um_trig_1= \
+		/set umiejetnosci=%%{umiejetnosci}%%{PL}|%%{P2}#%%{P4}|%%{P6}#%;\
+	/def -p5 -ag -mregexp -t':( )*([^ ]*)( )*$$' _um_trig_2= \
+		/set umiejetnosci=%%{umiejetnosci}%%{PL}|%%{P2}#@%%;\
+		/test --_umiejetnosci_i %%;\
+		/if ({_umiejetnosci_i}==1) \
+			/purge _um_trig_* %%;\
+			/_um_wyswietl %{_um_ktore} %%;\
+		/endif %;\
+	/def -p5 -ag -mregexp -t'^($$|ieznana kategoria. Masz do wyboru:)' _um_trig_3= \
+		/set umiejetnosci=%%{umiejetnosci}@%%;\
+		/test --_umiejetnosci_i %%;\
+		/if ({_umiejetnosci_i}==1) \
+			/purge _um_trig_* %%;\
+			/_um_wyswietl %{_um_ktore} %%;\
+		/endif
+
+/purge -i _um_wyswietl  
+
+/def -i _um_wyswietl = \
+	/let i=%;\
+	/let linia=%;\
+	/let cc=1%; \
+	/while /let i=$[strstr(umiejetnosci,"@")]%; /@test i > 0%; /do \
+		/test echo(strcat("+", strrep("-", 79) , "+")) %;\
+		/shift %;\
+		/let um_type=$[substr(umiejetnosci,0,i)]%; \
+		/set umiejetnosci=$[substr(umiejetnosci,i+1)]%;\
+		/let um_type2=9876543210 %;\
+		/while /let i=$[strstr(um_type,"#")]%; /@test i > 0%; /do \
+			/let um_name=$[substr(um_type, 0, i)]%;\
+			/let um_type=$[substr(um_type, i + 1)]%;\
+			/let j=$[strstr(um_name,"|")]%;\
+			/let um_ile=$[substr(um_name, j + 1)]%;\
+			/let um_name_real=$[substr(um_name, 0, j)]%;\
+			/if ({um_ile}=~"ledwo") \
+				/let ile_num=0 %;\
+			/elseif ({um_ile}=~"troche") \
+				/let ile_num=1 %;\
+			/elseif ({um_ile}=~"pobieznie") \
+				/let ile_num=2 %;\
+			/elseif ({um_ile}=~"zadowalajaco") \
+				/let ile_num=3 %;\
+			/elseif ({um_ile}=~"niezle") \
+				/let ile_num=4 %;\
+			/elseif ({um_ile}=~"dobrze") \
+				/let ile_num=5 %;\
+			/elseif ({um_ile}=~"znakomicie") \
+				/let ile_num=6 %;\
+			/elseif ({um_ile}=~"doskonale") \
+				/let ile_num=7 %;\
+			/elseif ({um_ile}=~"perfekcyjnie") \
+				/let ile_num=8 %;\
+			/elseif ({um_ile}=~"mistrzowsko") \
+				/let ile_num=9 %;\
+			/endif %;\
+			/let um_set_name=$[replace(" ", "_", um_name_real)]%;\
+			/let j=$[strstr({um_type2},ile_num)] %;\
+			/let um_type2=$[strcat(substr({um_type2},0,j+1),{um_name},"#",substr({um_type2},j+1))]%;\
+		/done %;\
+		/let i=0 %;\
+		/while /@test i < 10 %; /do \
+			/let j=$[strstr({um_type2},{i})]%;\
+			/let um_type2=$[strcat(substr({um_type2},0,{j}),substr({um_type2},{j}+1))] %;\
+			/test ++i %;\
+		/done %;\
+		/while /let i=$[strstr(um_type2,"#")]%; /@test i > 0%; /do \
+			/let um_name=$[substr(um_type2,0,i)]%;\
+			/let um_type2=$[substr(um_type2,i+1)]%;\
+			/let j=$[strstr(um_name,"|")]%;\
+			/let um_ile=$[substr(um_name,j+1)]%;\
+			/let um_name=$[substr(um_name,0,j)]%;\
+			/let um_set_name=$[replace(" ", "_", um_name)]%;\
+			/let linia=$[strcat(linia,"|",pad(um_name, 22),": ",pad(um_ile,14), " ")]%; \
+			/if (cc==1) \
+				/let cc=2%; \
+			/else \
+				/test echo(strcat({linia}, "|")) %; \
+				/let cc=1%; \
+				/let linia=%;\
+			/endif%; \
+		/done %;\
+		/if (linia!~NULL)\
+			/test echo(strcat({linia}, "|", strrep(" ", 24), "               |"))%;\
+		/endif %;\
+		/let cc=1%; \
+		/let linia=%;\
+	/done %;\
+	/unset umiejetnosci %;\
+	/unset _umiejetnosci_i
diff --git a/arkadia/combat.tf b/arkadia/combat.tf
new file mode 100644
index 0000000..e32eab7
--- /dev/null
+++ b/arkadia/combat.tf
@@ -0,0 +1,36 @@
+/def _atak = \
+	/if ( {attackmode} =~ "1" ) \
+		zabij %{*} %;\
+	/elseif ( {attackmode} =~ "2" ) \
+		zabij %{*} %; wskaz %{*} %;\
+	/elseif ( {attackmode} =~ "3" ) \
+		zabij %{*} %; wskaz %{*} %; rozkaz druzynie zaatakowac %{*} %;\
+	/elseif ( {attackmode} =~ "4" ) \
+		przestan kryc sie za zaslona%; przelam obrone %{*} %; zabij %{*} %; wskaz %{*} %; rozkaz druzynie zaatakowac %{*} %;\
+	/elseif ( {attackmode} =~ "5" ) \
+		zabij %{*} %; przedstaw %{*} %; wskaz %{*} %; rozkaz druzynie zaatakowac %{*} %;\
+	/elseif ( {attackmode} =~ "6" ) \
+		przestan kryc sie za zaslona%; przelam obrone %{*} %; zabij %{*} %; przedstaw %{*} %; wskaz %{*} %; rozkaz druzynie zaatakowac %{*} %;\
+	/else \
+		zabij %{*} %;\
+	/endif
+
+/def -mregexp -Fp2 -t'.* miotajac najciezsze przeklenstwa naciera na ciebie!' ks_atak_mnie0 = /beep 2 %; /sneak off
+/def -mregexp -Fp2 -t'.* z dzika furia rzuca sie na ciebie.*' ks_atak_mnie1 = /beep 2 %; /sneak off
+/def -mregexp -Fp2 -t'.* opluwa cie .* wyprowadza .* atakujac.*' ks_atak_mnie2 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'.* ostroznie obchodzi cie, jakby .* atakujac cie!' ks_atak_mnie3 = /beep 2 %; /sneak off
+/def -mregexp -Fp2 -t'.* podstepnym i nieczystym .* zaczyna walke z toba.*' ks_atak_mnie4 = /beep 2 %; /sneak off
+
+/def -mregexp -Fp2 -t'.* zaczepny cios, atakujac cie!' ks_atak_mnie5 = /beep 2 %; /sneak off
+/def -mregexp -Fp2 -t'.* wykrzywiajac twarz w okrutnym grymasie rzuca sie na ciebie.' sc_atak_mnie0 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'.* wbija wzrok w ciebie i raptownie zrywajac sie z miejsca atakuje cie.' sc_atak_mnie1 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'.* sprezystym skokiem dopada ciebie i atakuje cie.' sc_atak_mnie2 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'.* przyczaja sie chwile i z szybkiego doskoku atakuje cie.' sc_atak_mnie3 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'.* mruzac drapieznie oczy rusza do ataku na ciebie.' sc_atak_mnie4 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'.* w mgnieniu oka wykonuje drapiezny skok, dopadajac cie.' sc_atak_mnie5 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'.* z determinacja rzuca sie do walki.* cie powstrzymac.' zh_atak_mnie = /beep 1 %; /sneak off
+
+/def -mregexp -Fp2 -t'Nagle widok przeslania ci feeria wirujacych barw. Rzucasz sie przed siebie by je rozerwac, przegonic... zniszczyc!' klatwa0 = \
+	/tbind przestan atakowac druzyne
+/def -mregexp -Fp2 -t'Nagle .* z obledem w oczach rzuca sie w twoim kierunku rozpoczynajac szalenczy atak!' klatwa1 = \
+	/tbind przestan atakowac druzyne
diff --git a/arkadia/equipment.tf b/arkadia/equipment.tf
new file mode 100644
index 0000000..8dda20f
--- /dev/null
+++ b/arkadia/equipment.tf
@@ -0,0 +1,78 @@
+/alias lampa_on_cmd napelnij lampe olejem
+/alias lampa_off_cmd odloz butelke%; /zp butelke%; napelnij lampe olejem
+/set lampatick=270
+
+/def op = zajrzyj do %packitem1
+
+/def -mglob -p2 -t'*nerwowym ruchem gasi*' light_on_special0 = \
+	/tbind zapal lampe
+
+/def bz = \
+	/if ( {pochwa} =~ "on" ) \
+		/send powyjmij %bron z %pochwa1 %;\
+		%dobadzcmd broni %;\
+		/if ( {dual} =~ "on" ) \
+			/send powyjmij %bron2 z %pochwa2 %;\
+			%dobadzcmd broni %;\
+		/endif %;\
+	/elseif ( {pack} =~ "on" )\
+		/send wez %bron z %packitem1 %;\
+		%dobadzcmd broni %;\
+		/if ( {dual} =~ "on" ) \
+			/send wez %bron2 z %packitem1 %;\
+			%dobadzcmd broni %;\
+		/endif %;\
+	/else \
+		/send %dobadzcmd %broni %;\
+		/if ( {dual} =~ "on" ) \
+			/send %dobadzcmd %broni2 %;\
+		/endif %;\
+	/endif %;\
+	/set alarm=$[decode_attr("none", "BCgreen")]
+
+/def bd = \
+	/send opusc wszystkie bronie %;\
+	/if ( {pochwa} =~ "on" )\
+		/send powsun %bron do %pochwa1 %;\
+		/if ( {dual} =~ "on" ) \
+			/send powsun %bron2 do %pochwa2 %;\
+		/endif %;\
+	/elseif ( {pack} =~ "on" ) \
+		/send wloz %bron do %packitem1 %;\
+		/if ( {dual} =~ "on" ) \
+			/send wloz %bron2 do %packitem1 %;\
+		/endif %;\
+	/endif
+
+/def -mglob -p2 -t'*Zakladasz*otwarty*plecak*' pon_pl0 = \
+	/set pack=on %;\
+	/set packitem0=swoj plecak %;\
+	/set packitem1=swojego plecaka
+
+/def -mglob -p2 -t'*Zakladasz*zamkniety*plecak*' pon_pl1 = \
+	/set pack=on %;\
+	/set packitem0=swoj plecak %;\
+	/set packitem1=swojego plecaka %;\
+	/tbind otworz %packitem0
+
+/def -mglob -p2 -t'*Zakladasz*otwarty*worek*' pon_wrk0 = \
+	/set pack=on %;\
+	/set packitem0=swoj worek %;\
+	/set packitem1=swojego worka
+
+/def -mglob -p2 -t'*Zakladasz*zamkniety*worek*' pon_wrk1 = \
+	/set pack=on %;\
+	/set packitem0=swoj worek %;\
+	/set packitem1=swojego worka %;\
+	/tbind otworz %packitem0
+
+/def -mglob -p2 -t'*Przewieszasz*otwarta*torbe*' pon_trb0 = \
+	/set pack=on %;\
+	/set packitem0=swoja torbe %;\
+	/set packitem1=swojej torby
+
+/def -mglob -p2 -t'*Przewieszasz*zamknieta*torbe*' pon_trb1 = \
+	/set pack=on %;\
+	/set packitem0=swoja torbe %;\
+	/set packitem1=swojej torby %;\
+	/tbind otworz %packitem0
diff --git a/arkadia/fishing.tf b/arkadia/fishing.tf
new file mode 100644
index 0000000..fff8011
--- /dev/null
+++ b/arkadia/fishing.tf
@@ -0,0 +1,7 @@
+/def -mregexp -p2 -t'Sprawnie wyciagasz z wody siec rybacka' ryba0 = /tbind zarzuc siec
+/def -mregexp -p2 -t'Zawieszasz kotwiczke na ' ryba1 = /tbind zawies rybke na wedce
+/def -mregexp -p2 -t'A na czym chcesz zawiesic przynete?' ryba2 = /tbind zawies kotwiczke na wedce
+/def -mregexp -p2 -t'Zawieszasz niewielka rybke na kotwiczce*' ryba3 = /tbind zarzuc wedke
+/def -mregexp -p2 -t'Nagle dostrzegasz, ze zanurzony w wodzie' ryba4 = /tbind zatnij rybe na wedce
+/def -mregexp -p2 -t'Wyciagasz zlapana rybe na powierzchnie' ryba5 = /tbind zawies rybke na wedce %%; ocen rybe %%; /dp ryby
+/def -mregexp -p2 -t'Sznurek .* opada swobodnie' ryba6 = /tbind zawies rybke na wedce
diff --git a/arkadia/food.tf b/arkadia/food.tf
new file mode 100644
index 0000000..4a07347
--- /dev/null
+++ b/arkadia/food.tf
@@ -0,0 +1,39 @@
+/def -mglob -p2 -t'*moze*gdzies usiadziesz*' sit0 = \
+	/tbind usiadz
+
+/alias zamow /zamow %{*}
+
+/def zamow = \
+	/set zamawiane %{*} %;\
+	/send zamow %{zamawiane} %;\
+	/alias jedz_dalej /send zamow %zamawiane %;\
+	/def -mregexp -p2 -t'Po chwili otrzymujesz i zjadasz' _zamow_next = /tbind jedz_dalej %;\
+	/def -mregexp -p2 -t'Nie sadzisz, zebys byl.*w stanie zjesc' _zamow_off = /tbind koniec_jedzenia
+
+/alias koniec_jedzenia \
+	/if ( {pack} =~ "on" )\
+		/dp monety %;\
+	/endif %;\
+	/send wstan %;\
+	/unset zamawianex%;\
+	/unalias jedz_dalej %;\
+	/purge _zamow_*
+
+/def -mglob -p2 -t'Nie masz wystarczajacej ilosci pieniedzy, zeby zaplacic.*' no_money = \
+	/if ( {pack} =~ "on" )\
+		/zp monety %;\
+	/endif %;\
+	/if ( {zamawiane} !~ "" ) \
+		/tbind zamow %{zamawiane} %;\
+	/endif
+
+/def -mregexp -p2 -t'Gdzie chcesz usiasc\? (.* lub|.* czy|)(.*)\?' sit1 = \
+	/set place=$[tolower({P2})] %;\
+	/if ( {zamawiane} !~ "" ) \
+		/tbind usiadz %{place} %%; zamow %{zamawiane} %;\
+	/else \
+		/tbind usiadz %%{place} %;\
+	/endif
+
+/def -mregexp -p2 -t'Nie (.*) siedzisz(.*)' sit2 = \
+	/tbind wstan
diff --git a/arkadia/herbs.tf b/arkadia/herbs.tf
new file mode 100644
index 0000000..f43e147
--- /dev/null
+++ b/arkadia/herbs.tf
@@ -0,0 +1,565 @@
+; by Evin, Ingwar
+
+/def -Fp2 -mregexp -t'(zolt[a-z]* jasn[a-z]* kwiat[a-z]*)' _ziolo_Deliona = /substitute -p %{PL}%{P1} @{BCwhite}(Deliona zm-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(okraglaw[a-z]* aromatyczn[a-z]* lisc[a-z]*)' _ziolo_mieta = /substitute -p %{PL}%{P1} @{BCwhite}(Mieta kd+ zm- kac)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(rozetkowat[a-z]* lancetowat[a-z]* lisc[a-z]*)' _ziolo_babka = /substitute -p %{PL}%{P1} @{BCwhite}(Babka kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zlocistozolt[a-z]* kwiat[a-z]*)' _ziolo_Mniszek = /substitute -p %{PL}%{P1} @{BCwhite}(Mniszek kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(jasnofioletow[a-z]* delikatn[a-z]* kwiat[a-z]*)' _ziolo_Szafran = /substitute -p %{PL}%{P1} @{BCwhite}(Szafran kd+ wt+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(grub[a-z]* szaraw[a-z]* grzyb[a-z]*)' _ziolo_BorowikSzatanski = /substitute -p %{PL}%{P1} @{BCwhite}(Szatan T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(bial[a-z]* mal[a-z]* kwiat[a-z]*)' _ziolo_Glog = /substitute -p %{PL}%{P1} @{BCwhite}(Glog kd+ zm-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(szarozielon[a-z]* gabczast[a-z]* porost[a-z]*)' _ziolo_plucnica = /substitute -p %{PL}%{P1} @{BCwhite}(Plucnica o)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(delikatn[a-z]* czerwon[a-z]* grzyb[a-z]*)' _ziolo_Muchomor_Czerwony = /substitute -p %{PL}%{P1} @{BCwhite}(Muchomor T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(kolczast[a-z]* wysuszon[a-z]* roslin[a-z]*)' _ziolo_Oset = /substitute -p %{PL}%{P1} @{BCwhite}(Oset T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(fioletow[a-z]* lejkowat[a-z]* kwiat[a-z]*)' _ziolo_Bariwnek = /substitute -p %{PL}%{P1} @{BCwhite}(Barwinek kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(jasnopomaranczow[a-z]* kwiat[a-z]*)' _ziolo_Nagietek = /substitute -p %{PL}%{P1} @{BCwhite}(Nagietek kd+)@{n}%{P4}%{PR}
+/def -Fp2 -mregexp -t'(strzalkowat[a-z]* aromatyczn[a-z]* lisc[a-z]*)' _ziolo_Szczaw = /substitute -p %{PL}%{P1} @{BCwhite}(Szczaw kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(fioletow[a-z]* zwart[a-z]* kwiatostan[a-z]*)' _ziolo_Lawenda = /substitute -p %{PL}%{P1} @{BCwhite}(Lawenda kd+ o)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zaostrzon[a-z]* podlozn[a-z]* lisc[a-z]*)' _ziolo_SzalwiaLekarska = /substitute -p %{PL}%{P1} @{BCwhite}(Szalwia kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(mal[a-z]* czerwon[a-z]* kwiat[a-z]*)' _ziolo_SerceKapitana = /substitute -p %{PL}%{P1} @{BCwhite}(Serce Kapitana kd+ int- wt-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(owlosion[a-z]* aromatyczn[a-z]* lisc[a-z]*)' _ziolo_MelisaLekarska = /substitute -p %{PL}%{P1} @{BCwhite}(Melisa kd+ o)@{n}%{P6}%{PR}
+/def -Fp2 -mregexp -t'(zlocistopomaranczow[a-z]* duz[a-z]* kwiat[a-z]*)' _ziolo_Arnika = /substitute -p %{PL}%{P1} @{BCwhite}(Arnika kd+ zm-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zoltoszar[a-z]* niepozorn[a-z]* korzen[a-z]*)' _ziolo_Ranog = /substitute -p %{PL}%{P1} @{BCwhite}(Ranog kd+ o)@{n}%{P7}%{PR}
+/def -Fp2 -mregexp -t'(duz[a-z]* granatow[a-z]* jagod[a-z]*)' _ziolo_Siezygron = /substitute -p %{PL}%{P1} @{BCwhite}(Siezygron o)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(brudnobrazow[a-z]* cuchnac[a-z]* galaz[a-z]*)' _ziolo_Bagiennik = /substitute -p %{PL}%{P1} @{BCwhite}(Bagiennik wt-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(brazowaw[a-z]* fosforyzujac[a-z]* m[a-z]*)' _ziolo_Grabiorog = /substitute -p %{PL}%{P1} @{BCwhite}(Grabiorog int- zr-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zielon[a-z]* sluzowat[a-z]* grzyb[a-z]*)' _ziolo_Pierscieniak1 = /substitute -p %{PL}%{P1} @{BCwhite}(Pierscieniak T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(ciemnoniebiesk[a-z]* sluzowat[a-z]* grzyb[a-z]*)' _ziolo_Pierscieniak3 = /substitute -p %{PL}%{P1} @{BCwhite}(Pierscieniak T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(niebieski[a-z]* sluzowat[a-z]* grzyb[a-z]*)' _ziolo_Pierscieniak4 = /substitute -p %{PL}%{P1} @{BCwhite}(Pierscieniak T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(miedzian[a-z]* sluzowat[a-z]* grzyb[a-z]*)' _ziolo_Pierscieniak5 = /substitute -p %{PL}%{P1} @{BCwhite}(Pierscieniak kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(brudnozolt[a-z]* fioletowo-zylkowan[a-z]* kwiat[a-z]*)' _ziolo_Lulek_Czarny = /substitute -p %{PL}%{P1} @{BCwhite}(Lulek T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(delikatn[a-z]* jasn[a-z]* grzyb[a-z]*)' _ziolo_Muchomor_Sromotnikowy = /substitute -p %{PL}%{P1} @{BCwhite}(Sromotnik T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(jaskrawozolt[a-z]* drobn[a-z]* kwiat[a-z]*)' _ziolo_Stulicha = /substitute -p %{PL}%{P1} @{BCwhite}(Stulicha T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(bial[a-z]* zmutowan[a-z]* grzyb[a-z]*)' _ziolo_Stroczek = /substitute -p %{PL}%{P1} @{BCwhite}(Stroczek T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(pomaranczow[a-z]* mal[a-z]* korzen[a-z]*)' _ziolo_Szalej = /substitute -p %{PL}%{P1} @{BCwhite}(Szalej T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(mazist[a-z]* bulwiast[a-z]* grzyb[a-z]*)' _ziolo_Casur = /substitute -p %{PL}%{P1} @{BCwhite}(Casur s+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(soczyst[a-z]* karminow[a-z]* m[a-z]*)' _ziolo_Drath = /substitute -p %{PL}%{P1} @{BCwhite}(Drath wt+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(dlug[a-z]* lodyg[a-z]*)' _ziolo_Konopie = /substitute -p %{PL}%{P1} @{BCwhite}(Konopie magia)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(eliptyczn[a-z]* zaostrzon[a-z]* lisc[a-z]*)' _ziolo_Ogorecznik = /substitute -p %{PL}%{P1} @{BCwhite}(Ogorecznik odw+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(rozow[a-z]* pachnac[a-z]* kwiat[a-z]*)' _ziolo_Roza = /substitute -p %{PL}%{P1} @{BCwhite}(Roza)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(tward[a-z]* czerwon[a-z]* owoc[a-z]*)' _ziolo_Borowka = /substitute -p %{PL}%{P1} @{BCwhite}(Borowka)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(mal[a-z]* fioletow[a-z]* owoc[a-z]*)' _ziolo_Jagoda = /substitute -p %{PL}%{P1} @{BCwhite}(Jagoda)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(mal[a-z]* czarn[a-z]* owoc[a-z]*)' _ziolo_Jerzyna = /substitute -p %{PL}%{P1} @{BCwhite}(Jezyna)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(mal[a-z]* czerwon[a-z]* owoc[a-z]*)' _ziolo_Malina = /substitute -p %{PL}%{P1} @{BCwhite}(Malina)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(niewielk[a-z]* czerwon[a-z]* owoc[a-z]*)' _ziolo_Poziomka = /substitute -p %{PL}%{P1} @{BCwhite}(Poziomka)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(nieduz[a-z]* brazow[a-z]* grzyb[a-z]*)' _ziolo_Maslak = /substitute -p %{PL}%{P1} @{BCwhite}(Maslak)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(grzyb[a-z]* such[a-z]* kapelusz[a-z]*)' _ziolo_Hubka = /substitute -p %{PL}%{P1} @{BCwhite}(Hubka)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(sredni[a-z]* kasztanowobrazow[a-z]* grzyb[a-z]*)' _ziolo_Podgrzybek_Brunatny = /substitute -p %{PL}%{P1} @{BCwhite}(Podgrzybek)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(miedzianozielon[a-z]* fosforyzujac[a-z]* grzyb[a-z]*)' _ziolo_Muchomor_Cesarski = /substitute -p %{PL}%{P1} @{BCwhite}(Muchomor Cesarski T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(grub[a-z]* brazow[a-z]* grzyb[a-z]*)' _ziolo_Borowik_Krolewski = /substitute -p %{PL}%{P1} @{BCwhite}(Borowik Krolewski)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wysok[a-z]* jasnobrazow[a-z]* grzyb[a-z]*)' _ziolo_Borowik_Szlachetny = /substitute -p %{PL}%{P1} @{BCwhite}(Borowik)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zielon[a-z]* postrzepion[a-z]* galaz[a-z]*)' _ziolo_Drabik_Drzewikowaty = /substitute -p %{PL}%{P1} @{BCwhite}(Drabik)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wysok[a-z]* czerwonaw[a-z]* grzyb[a-z]*)' _ziolo_Kozlarz_Czerwony = /substitute -p %{PL}%{P1} @{BCwhite}(Kozlarz)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zielon[a-z]* lancetowat[a-z]* lisci[a-z]*)' _ziolo_Trawa = /substitute -p %{PL}%{P1} @{BCwhite}(Trawa)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(czerwonaw[a-z]* duz[a-z]* lisc[a-z]*)' _ziolo_Rabarbar = /substitute -p %{PL}%{P1} @{BCwhite}(Rabarbar)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(smukl[a-z]* jasnozielon[a-z]* lodyg[a-z]*)' _ziolo_Centuria = /substitute -p %{PL}%{P1} @{BCwhite}(Centuria o)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zielon[a-z]* galezist[a-z]* ped[a-z]*)' _ziolo_Rdest = /substitute -p %{PL}%{P1} @{BCwhite}(Rdest kd+ T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(okazal[a-z]* pachnac[a-z]* kwiat[a-z]*)' _ziolo_Mak = /substitute -p %{PL}%{P1} @{BCwhite}(Mak Polny kd+ zm+ zr-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zdrewnial[a-z]* rozgalezion[a-z]* krzewin[a-z]*)' _ziolo_Macznica = /substitute -p %{PL}%{P1} @{BCwhite}(Macznica kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(ciemn[a-z]* poskrecan[a-z]* klacz[a-z]*)' _ziolo_Pieciornik = /substitute -p %{PL}%{P1} @{BCwhite}(Pieciornik kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(czterokanciast[a-z]* rozgalezion[a-z]* lodyg[a-z]*)' _ziolo_Dziurawiec = /substitute -p %{PL}%{P1} @{BCwhite}(Dziurawiec kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(srebrzystoszar[a-z]* owlosion[a-z]* lisc[a-z]*)' _ziolo_Naparstnica = /substitute -p %{PL}%{P1} @{BCwhite}(Naparstnica zm-)@{n}%{P6}%{PR}
+/def -Fp2 -mregexp -t'(smukl[a-z]* zielon[a-z]* lodyg[a-z]*)' _ziolo_Nostrzyk = /substitute -p %{PL}%{P1} @{BCwhite}(Nostrzyk zm- glod- T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'( kanciast[a-z]* rozgalezion[a-z]* lodyg[a-z]*)' _ziolo_Bylica = /substitute -p %{PL}%{P1} @{BCwhite}(Bylica zm- glod-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(kosmatoowlosion[a-z]* kwiatostan[a-z]*)' _ziolo_Kasztanowiec = /substitute -p %{PL}%{P1} @{BCwhite}(Kasztanowiec zm-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(kremow[a-z]* owlosion[a-z]* kwiat[a-z]*)' _ziolo_Przelot = /substitute -p %{PL}%{P1} @{BCwhite}(Przelot. zm- mana-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(duz[a-z]* bial[a-z]* kwiat[a-z]*)' _ziolo_Bielun = /substitute -p %{PL}%{P1} @{BCwhite}(Bielun wt+ T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(lsniac[a-z]* czerwon[a-z]* owoc[a-z]*)' _ziolo_Deren = /substitute -p %{PL}%{P1} @{BCwhite}(Deren wt+ pragnienie+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(macznistoowlosion[a-z]* szaraw[a-z]* roslin[a-z]*)' _ziolo_Komosa = /substitute -p %{PL}%{P1} @{BCwhite}(Komosa zm- wt+ s+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zolt[a-z]* rurkowat[a-z]* kwiat[a-z]*)' _ziolo_Wrotycz = /substitute -p %{PL}%{P1} @{BCwhite}(Wrotycz o)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(bial[a-z]* rozgalezion[a-z]* korzen[a-z]*)' _ziolo_Mandragora = /substitute -p %{PL}%{P1} @{BCwhite}(Mandragora mana+ o)@{n}%{P6}%{PR}
+/def -Fp2 -mregexp -t'(szar[a-z]* kolczast[a-z]* korzen[a-z]*)' _ziolo_Aralia = /substitute -p %{PL}%{P1} @{BCwhite}(Aralia o)@{n}%{P6}%{PR}
+/def -Fp2 -mregexp -t'(brazow[a-z]* okragl[a-z]* nasion[a-z]*)' _ziolo_Kola = /substitute -p %{PL}%{P1} @{BCwhite}(Kola wt+ zm- glod- zr-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(rozgowat[a-z]* zoltozielon[a-z]* galaz[a-z]*)' _ziolo_Przesl = /substitute -p %{PL}%{P1} @{BCwhite}(Przesl wt+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(jasnozielon[a-z]* nieowlosion[a-z]* lodyg[a-z]*)' _ziolo_Lulecznica = /substitute -p %{PL}%{P1} @{BCwhite}(Lulecznica zm-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wonn[a-z]* dzwonkowat[a-z]* kwiat[a-z]*)' _ziolo_Konwalia = /substitute -p %{PL}%{P1} @{BCwhite}(Konwalia zm- T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(sztywn[a-z]* smukl[a-z]* lodyg[a-z]*)' _ziolo_Lak = /substitute -p %{PL}%{P1} @{BCwhite}(Lak zm- wt+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(drobn[a-z]* bial[a-z]* kwiat[a-z]*)' _ziolo_Rumianek = /substitute -p %{PL}%{P1} @{BCwhite}(Rumianek o glod-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wysok[a-z]* blekitn[a-z]* kwiat[a-z]*)' _ziolo_Chaber = /substitute -p %{PL}%{P1} @{BCwhite}(Chaber o glod+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(jasnobrunatn[a-z]* popekan[a-z]* galaz[a-z]*)' _ziolo_Bez = /substitute -p %{PL}%{P1} @{BCwhite}(Bez o)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zoltaw[a-z]* powyginan[a-z]* korzen[a-z]*)' _ziolo_Krzyzownica = /substitute -p %{PL}%{P1} @{BCwhite}(Krzyzownica o)@{n}%{P6}%{PR}
+/def -Fp2 -mregexp -t'(jasnobrazow[a-z]* ulistnion[a-z]* lodyg[a-z]*)' _ziolo_Nawloc = /substitute -p %{PL}%{P1} @{BCwhite}(Nawloc o glod+ pragnienie+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(dziwn[a-z]* zoltoszar[a-z]* nasion[a-z]*)' _ziolo_Kulczyba = /substitute -p %{PL}%{P1} @{BCwhite}(Kulczyba T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(rozdet[a-z]* aromatyczn[a-z]* lodyg[a-z]*)' _ziolo_Szczwol = /substitute -p %{PL}%{P1} @{BCwhite}(Szczwol T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(oliwkowozielon[a-z]* gietk[a-z]* galaz[a-z]*)' _ziolo_Jemiola = /substitute -p %{PL}%{P1} @{BCwhite}(Jemiola s- wt-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(ciemn[a-z]* splatan[a-z]* korzen[a-z]*)' _ziolo_Ciemiernik = /substitute -p %{PL}%{P1} @{BCwhite}(Ciemiernik T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(czarn[a-z]* blyszczac[a-z]* fasolk[a-z]*)' _ziolo_Bobotrutka = /substitute -p %{PL}%{P1} @{BCwhite}(Bobotrutka T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(ciemnozielon[a-z]* rozwart[a-z]* rozyczk[a-z]*)' _ziolo_Rojnik = /substitute -p %{PL}%{P1} @{BCwhite}(Rojnik mana-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(pierzast[a-z]* ogonk[a-z]* lisc[a-z]*)' _ziolo_Potoslin = /substitute -p %{PL}%{P1} @{BCwhite}(Potoslin T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(grub[a-z]* walcowat[a-z]* klacz[a-z]*)' _ziolo_Pokrzyk = /substitute -p %{PL}%{P1} @{BCwhite}(Pokrzyk T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(szaraw[a-z]* pogiet[a-z]* klacz[a-z]*)' _ziolo_Rauwolfia = /substitute -p %{PL}%{P1} @{BCwhite}(Rauwolfia kd+ T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wiotk[a-z]* drobn[a-z]* lodyz[a-z]*)' _ziolo_Kurzyslad = /substitute -p %{PL}%{P1} @{BCwhite}(Kurzyslad spost-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wzniesion[a-z]* ukwiecon[a-z]* lodyg[a-z]*)' _ziolo_Tojad = /substitute -p %{PL}%{P1} @{BCwhite}(Tojad kd+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(duz[a-z]* fioletow[a-z]* kwiat[a-z]*)' _ziolo_Ostrozeczka = /substitute -p %{PL}%{P1} @{BCwhite}(Ostrozeczka T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(rozgalezion[a-z]* owlosion[a-z]* lodyg[a-z]*)' _ziolo_Stroiczka = /substitute -p %{PL}%{P1} @{BCwhite}(Stroiczka T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zielon miesist[a-z]* kwiat[a-z]*)' _ziolo_Ciemiezyca = /substitute -p %{PL}%{P1} @{BCwhite}(Ciemiezyca zr- spost-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wysok[a-z]* zolt[a-z]* kwiat[a-z]*)' _ziolo_Starzec = /substitute -p %{PL}%{P1} @{BCwhite}(Starzec kd+ T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(rozgalezion[a-z]* wzniesion[a-z]* lodyg[a-z]*)' _ziolo_Jaskier = /substitute -p %{PL}%{P1} @{BCwhite}(Jaskier T)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(niepozorn[a-z]* sinozielon[a-z]* roslin[a-z]*)' _ziolo_Urzet = /substitute -p %{PL}%{P1} @{BCwhite}(Urzet glod-)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(szarozielon[a-z]* szorstk[a-z]* lisc[a-z]*)' _ziolo_Boldoa = /substitute -p %{PL}%{P1} @{BCwhite}(Boldoa)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(rozwiniet[a-z]* korzen[a-z]*)' _ziolo_Marzanna = /substitute -p %{PL}%{P1} @{BCwhite}(Marzanna )@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zolt[a-z]* jaskraw[a-z]* kwiat[a-z]*)' _ziolo_Podbial = /substitute -p %{PL}%{P1} @{BCwhite}(Podbial)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(galezist[a-z]* sinozielon[a-z]* lodyg[a-z]*)' _ziolo_Ostrozen = /substitute -p %{PL}%{P1} @{BCwhite}(Ostrozen)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(szorstk[a-z]* ciemnozielon[a-z]* galaz[a-z]*)' _ziolo_Poziewnik = /substitute -p %{PL}%{P1} @{BCwhite}(Poziewnik)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(czarn[a-z]* niewielk[a-z]* owoc[a-z]*)' _ziolo_Sliwa = /substitute -p %{PL}%{P1} @{BCwhite}(Sliwa)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(czarn[a-z]* aromatyczn[a-z]* ziaren[a-z]*)' _ziolo_Bulawinka = /substitute -p %{PL}%{P1} @{BCwhite}(Bulawinka)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wzniesion[a-z]* owlosion[a-z]* lodyg[a-z]*)' _ziolo_Kociomietka = /substitute -p %{PL}%{P1} @{BCwhite}(Kociomietka)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zielon[a-z]* trzeszczac[a-z]* galaz[a-z]*)' _ziolo_Skrzyp = /substitute -p %{PL}%{P1} @{BCwhite}(Skrzyp)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zlocist[a-z]* spor[a-z]* ziol[a-z]*)' _ziolo_Cebula = /substitute -p %{PL}%{P1} @{BCwhite}(Cebula)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zdretwial[a-z]* zwiniet[a-z]* rur[a-z]*)' _ziolo_Kruszyna = /substitute -p %{PL}%{P1} @{BCwhite}(Kruszyna glod+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(zielon[a-z]* kwitnac[a-z]* lodyg[a-z]*)' _ziolo_Hyzop = /substitute -p %{PL}%{P1} @{BCwhite}(Hyzop glod+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(sztywn[a-z]* rozgalezion[a-z]* korzen[a-z]*)' _ziolo_Lukrecja = /substitute -p %{PL}%{P1} @{BCwhite}(Lukrecja pragnienie+)@{n}%{P6}%{PR}
+/def -Fp2 -mregexp -t'(kanciast[a-z]* parzac[a-z]* lodyg[a-z]*)' _ziolo_Pokrzywa = /substitute -p %{PL}%{P1} @{BCwhite}(Pokrzywa glod+ pragnienie+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(wiotk[a-z]* kwitnac[a-z]* galaz[a-z]*)' _ziolo_Janowiec = /substitute -p %{PL}%{P1} @{BCwhite}(Janowiec pragnienie+)@{n}%{P5}%{PR}
+/def -Fp2 -mregexp -t'(czarn[a-z]* aromatyczn[a-z]* korzen[a-z]*)' _ziolo_Lubczyk = /substitute -p %{PL}%{P1} @{BCwhite}(Lubczyk glod+)@{n}%{P6}%{PR}
+
+/def ziola = \
+	/if ({*} =~ "lecznicze" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# Ziola %{*}:@{n} babka, mniszek, szafran, barwinek, nagietek, szczaw, lawenda, pierscieniak, szalwia, sercekapitana, rdest, mak, macznica, pieciornik, dziurawiec. %;\
+	/elseif ({*} =~ "odtrutki") \
+		/echo -p #@{BC%kolor_info}#@{n}# Ziola %{*}:@{n} ranog, plucnica, siezygron, centuria, rumianek, chaber, bez, krzyzownica, nawloc. %;\
+	/elseif ({*} =~ "regenerujace" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# Ziola %{*}:@{n} melisa, naparstnica, nostrzyk, bylica, kasztanowiec, przelot, tojad. %;\
+	/elseif ({*} =~ "uniwersalne" )\
+		/echo -p #@{BC%kolor_info}#@{n}# Ziola %{*}:@{n} arnika, glog, mieta. %;\
+	/elseif ({*} =~ "trujace" )\
+		/echo -p #@{BC%kolor_info}#@{n}#Ziola %{*}:@{n} oset, bagiennik, grabiorog, pierscieniak, lulek, muchomor, sromotnik, szatan, stulicha, stroczek, szalej, kulczyba, szczwol, jemiola, ciemiernik, bobotrutka, rojnik, potoslin, pokrzyk, rauwolfia, kurzyslad, ostrozeczka, stroiczka, ciemiezyca, starzec, jaskier. %;\
+	/elseif ({*} =~ "obojetne" )\
+		/echo -p #@{BC%kolor_info}#@{n}#Ziola %{*}:@{n} roza, pierscieniak, borowka, jagoda, jezyna, malina, maslak, hubka, podgrzybek, poziomka, muchomorcesarski, borowikkroleski, borowik, drabik, kozlarz, trawa, urzet, blodoa, marzanna, podbial, ostrozen, %;\
+		/echo -p #@{BC%kolor_info}#@{n}#            poziewnik, sliwa, bulawinka, kociomietka, skrzyp, cebula, kruszyna, hyzop, lukrecja, pokrzywa, janowiec, lubczyk. %;\
+	 /elseif ({*} =~ "nietypowe" )\
+		/echo -p #@{BC%kolor_info}#@{n}#Ziola %{*}:@{n} casur, drath, deliona, konopie, ogorecznik, bielun, deren, komosa, wrotycz, mandragora, aralia, kola, przesl, lulecznica, konwalia, lak. %;\
+	/else \
+		/echo -p #@{BC%kolor_info}#@{n}# Dostepne typy:@{n} lecznicze, odtrutki, regenerujace, uniwersalne, trujace, obojetne, nietypowe. %;\
+	/endif
+
+/def deliona = \
+	/echo -p #@{BC%kolor_info}#@{n}# Deliona - @{BC%kolor_info}zolty jasny kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zmeczenie
+
+/def mieta = \
+	/echo -p #@{BC%kolor_info}#@{n}# Mieta  - @{BC%kolor_info}okraglawy aromatyczny lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozetrzec - @{BC%kolor_info}kondycja, powachac - @{BC%kolor_info}zmeczenie, wetrzec - @{BC%kolor_info}kac
+
+/def babka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Babka - @{BC%kolor_info}rozetkowaty lancetowaty lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}kondycja
+
+/def mniszek = \
+	/echo -p #@{BC%kolor_info}#@{n}# Mniszek - @{BC%kolor_info}zlocistozolty kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc/zjesc - @{BC%kolor_info}kondycja
+
+/def szafran = \
+	/echo -p #@{BC%kolor_info}#@{n}# Szafran - @{BC%kolor_info}jasnofioletowy delikatny kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}kondycja (ususzony), wytrzymalosc
+
+/def szatan = \
+	/echo -p #@{BC%kolor_info}#@{n}# Borowik Szatanski - @{BC%kolor_info}gruby szarawy grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def glog = \
+	/echo -p #@{BC%kolor_info}#@{n}# Glog - @{BC%kolor_info}bialy maly kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przerzuc - @{BC%kolor_info}kondycja, zjesc - @{BC%kolor_info}zmeczenie
+
+/def plucnica = \
+	/echo -p #@{BC%kolor_info}#@{n}# Plucnica - @{BC%kolor_info}szarozielony gabczasty porost%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozetrzec - @{BC%kolor_info}odtrutka
+
+/def muchomor = \
+	/echo -p #@{BC%kolor_info}#@{n}# Muchomor Czerwony - @{BC%kolor_info}delikatny czerwony grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def oset = \
+	/echo -p #@{BC%kolor_info}#@{n}# Oset - @{BC%kolor_info}kolczasta wysuszona roslina%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc/przerzuc - @{BC%kolor_info}oslabia kondycje
+
+/def barwinek = \
+	/echo -p #@{BC%kolor_info}#@{n}# Barwinek - @{BC%kolor_info}fioletowy lejkowaty kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}kondycja
+
+/def nagietek = \
+	/echo -p #@{BC%kolor_info}#@{n}# Nagietek - @{BC%kolor_info}jasnopomaranczowy kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}kondycja
+
+/def szczaw = \
+	/echo -p #@{BC%kolor_info}#@{n}# Szczaw - @{BC%kolor_info}strzalkowaty aromatyczny lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}kondycja
+
+/def lawenda = \
+	/echo -p #@{BC%kolor_info}#@{n}# Lawenda - @{BC%kolor_info}fioletowy zwarty kwiatostan%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}kondycjaZjesc - @{BC%kolor_info}odtrutka
+
+/def szalwia = \
+	/echo -p #@{BC%kolor_info}#@{n}# Szalwia Lekarska - @{BC%kolor_info}zaostrzony podluzny lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}kondycja
+
+/def sercekapitana = \
+	/echo -p #@{BC%kolor_info}#@{n}# Serce Kapitana - @{BC%kolor_info}maly czerwony kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}kondycja (UWAGA: oslabia inteligencje i zrecznosc)
+
+/def melisa = \
+	/echo -p #@{BC%kolor_info}#@{n}# Melisa Lekarska - @{BC%kolor_info}owlosiony aromatyczny lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc/przezuc - @{BC%kolor_info}kondycja, ususzona - @{BC%kolor_info}odtrutka
+
+/def arnika = \
+	/echo -p #@{BC%kolor_info}#@{n}# Arnika - @{BC%kolor_info}zlocistopomaranczowy duzy kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}kondycja, zjesc - @{BC%kolor_info}zmeczenie
+
+/def ranog = \
+	/echo -p #@{BC%kolor_info}#@{n}# Ranog - @{BC%kolor_info}zoltoszary niepozorny korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}odtrutka, kondycja
+
+/def siezygron = \
+	/echo -p #@{BC%kolor_info}#@{n}# Siezygron - @{BC%kolor_info}duza granatowa jagoda%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozgryzc - @{BC%kolor_info}odtrutka
+
+/def bagiennik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Bagiennik - @{BC%kolor_info}brudnobrazowa cuchnaca galazka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}oslabia wytrzymalosc
+
+/def grabiorog = \
+	/echo -p #@{BC%kolor_info}#@{n}# Grabiorog - @{BC%kolor_info}brazowy fosforyzujacy mech%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}oslabia inteligencje i zrecznosc
+
+/def pierscieniak = \
+	/echo -p #@{BC%kolor_info}#@{n}# Pierscieniak - @{BC%kolor_info}jasnozielony, zielony, niebieski lub miedziany sluzowaty grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zielone i niebieskie @{nBC%kolor_alarm}TRUJA@{nC%kolor_info}Miedziany - @{BC%kolor_info}kondycja
+
+/def lulek = \
+	/echo -p #@{BC%kolor_info}#@{n}# Lulek Czarny - @{BC%kolor_info}brudnozolty fioletowo-zylkowany kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def sromotnik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Muchomor Sromotnikowy - @{BC%kolor_info}delikatny jasny grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def stulicha = \
+	/echo -p #@{BC%kolor_info}#@{n}# Stulicha - @{BC%kolor_info}jaskrawozolty drobny kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def stroczek = \
+	/echo -p #@{BC%kolor_info}#@{n}# Stroczek - @{BC%kolor_info}bialy zmutowany grzybek%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def szalej = \
+	/echo -p #@{BC%kolor_info}#@{n}# Szalej - @{BC%kolor_info}pomaranczowy maly korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def casur = \
+	/echo -p #@{BC%kolor_info}#@{n}# Casur - @{BC%kolor_info}mazisty bulwiasty grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}sila
+
+/def drath = \
+	/echo -p #@{BC%kolor_info}#@{n}# Drath - @{BC%kolor_info}soczysty karminowy mech%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}wytrzymalosc
+
+/def konopie = \
+	/echo -p #@{BC%kolor_info}#@{n}# Konopie - @{BC%kolor_info}dluga lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Ususzyc+spalic - @{BC%kolor_info}ochrona przed magia
+
+/def ogorecznik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Ogorecznik - @{BC%kolor_info}eliptyczny zaostrzony lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}odwaga
+
+/def roza = \
+	/echo -p #@{BC%kolor_info}#@{n}# Roza - @{BC%kolor_info}rozwy pachnacy kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def borowka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Borowka - @{BC%kolor_info}twardy czerwony owoc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def jagoda = \
+	/echo -p #@{BC%kolor_info}#@{n}# Jagoda - @{BC%kolor_info}maly fioletowy owoc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def jerzyna = \
+	/echo -p #@{BC%kolor_info}#@{n}# Jerzyna - @{BC%kolor_info}maly czarny owoc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def malina = \
+	/echo -p #@{BC%kolor_info}#@{n}# Malina - @{BC%kolor_info}maly czerwony owoc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def poziomka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Poziomka - @{BC%kolor_info}niewielki czerwony owoc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def maslak = \
+	/echo -p #@{BC%kolor_info}#@{n}# Maslak Zwyczajny - @{BC%kolor_info}nieduzy brazowy grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def hubka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Hubka - @{BC%kolor_info}grzybi suchy kapelusz%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozpalka (+krzesiwo)
+
+/def podgrzybek = \
+	/echo -p #@{BC%kolor_info}#@{n}# Podgrzybek Brunatny - @{BC%kolor_info}sredni kasztanowobrazowy grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def muchomorcesarski = \
+	/echo -p #@{BC%kolor_info}#@{n}# Muchomor Cesarski - @{BC%kolor_info}miedzianozielony fosforyzujacy grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def borowikkrolewski = \
+	/echo -p #@{BC%kolor_info}#@{n}# Borowik Krolewski - @{BC%kolor_info}gruby brazowy grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def borowik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Borowik Szlachetny - @{BC%kolor_info}wysoki jasnobrazowy grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def drabik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Drabik Drzewikowaty - @{BC%kolor_info}zielone postrzepione galazki%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def kozlarz = \
+	/echo -p #@{BC%kolor_info}#@{n}# Kozlarz Czerwony - @{BC%kolor_info}wysoki czerwonawy grzyb%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def trawa = \
+	/echo -p #@{BC%kolor_info}#@{n}# Trawa - @{BC%kolor_info}zielone lancetowate liscie%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def rabarbar = \
+	/echo -p #@{BC%kolor_info}#@{n}# Rabarbar - @{BC%kolor_info}czerwonawy duzy lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def centuria = \
+	/echo -p #@{BC%kolor_info}#@{n}# Centuria - @{BC%kolor_info}smukla jasnozielona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Odtrutka
+
+/def rdest = \
+	/echo -p #@{BC%kolor_info}#@{n}# Rdest Ptasi - @{BC%kolor_info}zielony galezisty ped%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}kondycja, zjesc - @{BC%kolor_info}@{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def mak = \
+	/echo -p #@{BC%kolor_info}#@{n}# Mak Polny - @{BC%kolor_info}okazaly pachnacy kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}kondycja, (meczy, oslabia zrecznosc)
+
+/def macznica = \
+	/echo -p #@{BC%kolor_info}#@{n}# Macznica - @{BC%kolor_info}zdrewniala rozgaleziona krzewinka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozgryzc (ususzona) - @{BC%kolor_info}kondycja
+
+/def pieciornik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Pieciornik - @{BC%kolor_info}ciemne poskrecane klacze%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozgryzc - @{BC%kolor_info}kondycja
+
+/def dziurawiec = \
+	/echo -p #@{BC%kolor_info}#@{n}# Dziurawiec - @{BC%kolor_info}czterokanciasta rozgaleziona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozgryzc - @{BC%kolor_info}kondycja
+
+/def naparstnica = \
+	/echo -p #@{BC%kolor_info}#@{n}# Naparstnica - @{BC%kolor_info}srebrzystoszary owlosiony lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zmeczenie
+
+/def nostrzyk = \
+	/echo -p #@{BC%kolor_info}#@{n}# Nostrzyk - @{BC%kolor_info}smukla zielona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}zmeczenie, zjesc - @{BC%kolor_info}glod, rozgryzc - @{BC%kolor_info}@{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def bylica = \
+	/echo -p #@{BC%kolor_info}#@{n}# Bylica - @{BC%kolor_info}kanciasta rozgaleziona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}zmeczenie, zjesc - @{BC%kolor_info}glod
+
+/def kasztanowiec = \
+	/echo -p #@{BC%kolor_info}#@{n}# Kasztanowiec - @{BC%kolor_info}kosmatoowlosiony kwiatostan%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zmeczenie
+
+/def przelot = \
+	/echo -p #@{BC%kolor_info}#@{n}# Przelot - @{BC%kolor_info}kremowy owlosiony kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Ususzyc/sproszkowac - @{BC%kolor_info}zmeczenie (meczy mentalnie)
+
+/def bielun = \
+	/echo -p #@{BC%kolor_info}#@{n}# Bielun - @{BC%kolor_info}duzy bialy kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Powachac - @{BC%kolor_info}wytrzymalosc, zjesc - @{BC%kolor_info}@{nBC%kolor_alarm}TRUJE@{nC%kolor_info}(anty: plucnica)
+
+/def deren = \
+	/echo -p #@{BC%kolor_info}#@{n}# Deren - @{BC%kolor_info}lsniacy czerwony owoc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}wytrzymalosc (wzmaga pragnienie)
+
+/def komosa = \
+	/echo -p #@{BC%kolor_info}#@{n}# Komosa  - @{BC%kolor_info}macznistoowlosiona szarawa roslina%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}zmeczenie, wytrzymalosc, zjesc - @{BC%kolor_info}sila
+
+/def wrotycz = \
+	/echo -p #@{BC%kolor_info}#@{n}# Wrotycz - @{BC%kolor_info}zolty rurkowaty kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Powachac - @{BC%kolor_info}odtrutka
+
+/def mandragora = \
+	/echo -p #@{BC%kolor_info}#@{n}# Mandragora - @{BC%kolor_info}bialy rozgaleziony korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}mana, rozgryzc - @{BC%kolor_info}odtrutka
+
+/def aralia = \
+	/echo -p #@{BC%kolor_info}#@{n}# Aralia  - @{BC%kolor_info}szary kolczasty korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zmeczenie, odtrutka
+
+/def kola = \
+	/echo -p #@{BC%kolor_info}#@{n}# Kola - @{BC%kolor_info}brazowe okragle nasinko%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozgryzc - @{BC%kolor_info}wytrzymalosc, zmeczenie, glod, zjesc - @{BC%kolor_info}oslabia zrecznosc
+
+/def przesl = \
+	/echo -p #@{BC%kolor_info}#@{n}# Przesl - @{BC%kolor_info}rozgowata zoltozielona galazka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}wytrzymalosc
+
+/def lulecznica = \
+	/echo -p #@{BC%kolor_info}#@{n}# Lulecznica - @{BC%kolor_info}jasnozielona nieowlosiona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przylozyc - @{BC%kolor_info}zmeczenie
+
+/def konwalia = \
+	/echo -p #@{BC%kolor_info}#@{n}# Konwalia - @{BC%kolor_info}wonny dzwonkowaty kwiatek%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Powachac - @{BC%kolor_info}zmeczenie, zjesc - @{BC%kolor_info}@{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def lak = \
+	/echo -p #@{BC%kolor_info}#@{n}# Lak - @{BC%kolor_info}sztywna smukla lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}zmeczenie, Rozgryzc - @{BC%kolor_info}wytrzymalosc
+
+/def rumianek = \
+	/echo -p #@{BC%kolor_info}#@{n}# Rumianek - @{BC%kolor_info}drobny bialy kwiatek%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Powachac - @{BC%kolor_info}odtrutka, zjesc - @{BC%kolor_info}glod
+
+/def chaber = \
+	/echo -p #@{BC%kolor_info}#@{n}# Chaber - @{BC%kolor_info}wysoki blekitny kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przerzuc/powachac - @{BC%kolor_info}odtrutka, zjesc - @{BC%kolor_info}zwieksza glod
+
+/def bez = \
+	/echo -p #@{BC%kolor_info}#@{n}# Bez Czarny - @{BC%kolor_info}jasnobrunatna popekana galazka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}odtrutka
+
+/def krzyzownica= \
+	/echo -p #@{BC%kolor_info}#@{n}# Krzyzownica - @{BC%kolor_info}zoltawy powyginany korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}odtrutka
+
+/def nawloc = \
+	/echo -p #@{BC%kolor_info}#@{n}# Nawloc, - @{BC%kolor_info}jasnobrazowa ulistniona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Rozgryzc - @{BC%kolor_info}odtrutka (zwieksza glod i pragnienie)
+
+/def kulczyba = \
+	/echo -p #@{BC%kolor_info}#@{n}# Kulczyba - @{BC%kolor_info}dziwne zoltoszare nasinko%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info} (?)
+
+/def szczwol = \
+	/echo -p #@{BC%kolor_info}#@{n}# Szczwol - @{BC%kolor_info}rozdeta aromatyczna lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info} (?)
+
+/def jemiola = \
+	/echo -p #@{BC%kolor_info}#@{n}# Jemiola - @{BC%kolor_info}oliwkowozielona gietka galazka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}oslabia sile i wytrzymalosc
+
+/def ciemiernik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Ciemiernik - @{BC%kolor_info}ciemny splatany korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info} (?)
+
+/def bobotrutka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Bobotrutka - @{BC%kolor_info}czarna blyszczaca fasolka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info} (?)
+
+/def rojnik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Rojnik - @{BC%kolor_info}ciemnozielona rozwarta rozyczka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Oslabia mane
+
+/def potoslin = \
+	/echo -p #@{BC%kolor_info}#@{n}# Potoslin - @{BC%kolor_info}pierzasty ogonkowy lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def pokrzyk = \
+	/echo -p #@{BC%kolor_info}#@{n}# Pokrzyk - @{BC%kolor_info}grube walcowate klacze%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def Rauwolfia = \
+	/echo -p #@{BC%kolor_info}#@{n}# Rauwolfia - @{BC%kolor_info}szarawe pogiete klacze%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}kondycja, zjesc - @{BC%kolor_info}@{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def kurzyslad = \
+	/echo -p #@{BC%kolor_info}#@{n}# Kurzyslad - @{BC%kolor_info}wiotka drobna lodyzka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zmiejsza spostrzegawczosc
+
+/def tojad = \
+	/echo -p #@{BC%kolor_info}#@{n}# Tojad - @{BC%kolor_info}wzniesiona ukwiecona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}kondycja
+
+/def ostrozeczka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Ostrozeczka - @{BC%kolor_info}duzy fioletowy kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info} (?)
+
+/def stroiczka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Stroiczka - @{BC%kolor_info}rozgaleziona owlosiona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# @{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def ciemiezyca = \
+	/echo -p #@{BC%kolor_info}#@{n}# Ciemiezyca - @{BC%kolor_info}zielony miesisty kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zmiejsza spostrzegawczosc, oslabia zrecznosc
+
+/def starzec = \
+	/echo -p #@{BC%kolor_info}#@{n}# Starzec - @{BC%kolor_info}wysoki zolty kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Sproszkowac - @{BC%kolor_info}kondycja, zjesc - @{BC%kolor_info}@{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def jaskier  = \
+	/echo -p #@{BC%kolor_info}#@{n}# Jaskier - @{BC%kolor_info}rozgaleziona wzniesiona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}@{nBC%kolor_alarm}TRUJE@{nC%kolor_info}
+
+/def urzet = \
+	/echo -p #@{BC%kolor_info}#@{n}# Urzet - @{BC%kolor_info}niepozorna sinozielona roslinka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}glod
+
+/def boldoa = \
+	/echo -p #@{BC%kolor_info}#@{n}# Boldoa - @{BC%kolor_info}szarozielony szorstki lisc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efetku
+
+/def marzanna = \
+	/echo -p #@{BC%kolor_info}#@{n}# Marzanna  - @{BC%kolor_info}rozwiniete klacze%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def podbial = \
+	/echo -p #@{BC%kolor_info}#@{n}# Podbial - @{BC%kolor_info}zolty jaskrawy kwiat%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def ostrozen = \
+	/echo -p #@{BC%kolor_info}#@{n}# Ostrozen - @{BC%kolor_info}galezista sinozielona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def poziewnik = \
+	/echo -p #@{BC%kolor_info}#@{n}# Poziewnik - @{BC%kolor_info}szorstka ciemnozielona galazka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def sliwa = \
+	/echo -p #@{BC%kolor_info}#@{n}# Sliwa - @{BC%kolor_info}czarny niewielki owoc%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def bulawinka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Bulawinka - @{BC%kolor_info}czarne aromatyczne ziarenko%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def kociomietka = \
+	/echo -p #@{BC%kolor_info}#@{n}# Kociomietka - @{BC%kolor_info}wzniesiona owlosiona lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def skrzyp = \
+	/echo -p #@{BC%kolor_info}#@{n}# Skrzyp - @{BC%kolor_info}zielona trzeszczaca galazka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def cebula = \
+	/echo -p #@{BC%kolor_info}#@{n}# Cebula - @{BC%kolor_info}zlociste spore ziolo%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Bez efektu
+
+/def kruszyna = \
+	/echo -p #@{BC%kolor_info}#@{n}# Kruszyna - @{BC%kolor_info}zdrewniala zwinieta rurka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}wzmaga glod
+
+/def hyzop = \
+	/echo -p #@{BC%kolor_info}#@{n}# Hyzop - @{BC%kolor_info}zielona kwitnaca lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}wzmaga glod
+
+/def lukrecja = \
+	/echo -p #@{BC%kolor_info}#@{n}# Lukrecja - @{BC%kolor_info}sztywny rozgaleziony korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Przezuc - @{BC%kolor_info}zwieksza pragnienie
+
+/def pokrzywa = \
+	/echo -p #@{BC%kolor_info}#@{n}# Pokrzywa - @{BC%kolor_info}kanciasta parzaca lodyga%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zwieksza glod i pragnienie
+
+/def janowiec = \
+	/echo -p #@{BC%kolor_info}#@{n}# Janowiec - @{BC%kolor_info}wiotka kwitnaca galazka%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zwieksza pragnienie
+
+/def lubczyk = \
+	/echo -p #@{BC%kolor_info}#@{n}# Lubczyk - @{BC%kolor_info}czarny aromatyczny korzen%;\
+	/echo -p #@{BC%kolor_info}#@{n}# Zjesc - @{BC%kolor_info}zwieksza glod
diff --git a/arkadia/mail.tf b/arkadia/mail.tf
new file mode 100644
index 0000000..a7c05fa
--- /dev/null
+++ b/arkadia/mail.tf
@@ -0,0 +1,29 @@
+/def -mregexp -p2 -t'Na two.* ramie.* niespodziewanie.* szczur' _poczta_szczur = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"szczur","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Bialy golab pocztowy laduje na twoim ramieniu.' _poczta_golab = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"golab","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Na twoim ramieniu niespodziewanie wyladowal ' _poczta_golab2= \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"golab","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
diff --git a/arkadia/money.tf b/arkadia/money.tf
new file mode 100644
index 0000000..623d479
--- /dev/null
+++ b/arkadia/money.tf
@@ -0,0 +1,101 @@
+/alias dp_monety /dp monety
+/alias sad_monety /sad monety
+
+/def -mglob -p2 -t'*Bierzesz*monet*ciala*' _monety0 = \
+	/if ( {pack} =~ "on" )\
+		/tbind dp_monety %;\
+	/endif
+
+/def -mregexp -Fp2 -t'okolo (.*) miedziak(i|ow).' wartosc_trig_1 = /substitute -p %{PL}okolo @{BC%kolor_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} czyli jakies %{P1} miedzi.%{PR}
+/def -mregexp -Fp2 -t'wartych (.*) miedziakow.' wartosc_trig_2 = /substitute -p %{PL}wartych okolo @{BC%kolor_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} czyli jakies %{P1} miedzi.%{PR}
+/def -mregexp -Fp2 -t'warte (.*) miedziakow.' wartosc_trig_3 = /substitute -p %{PL}warte okolo @{BC%kolor_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} czyli jakies %{P1} miedzi.%{PR}
+
+; by Reen
+
+/def -mregexp -p2 -t'(co najwyzej|dac( az| tylko| co najwyzej|)|dam ci wiecej niz|dostal(a|)bys) (.*) monet' zbieramy_dane = \
+	/set ceny=%{P4} %;\
+	/set ceny2=$[replace(" i ", "|", {ceny})] %;\
+	/set ceny2=$[replace(" ", "|", {ceny2})] %;\
+	/set ceny2=$[replace("zlot", "", {ceny2})] %;\
+	/set ceny2=$[replace("miedzian", "", {ceny2})] %;\
+	/set ceny2=$[replace("srebrn", "", {ceny2})] %;\
+	/set ceny2=$[replace("mithrylow", "", {ceny2})] %;\
+	/set ceny2=$[replace("|a", "", {ceny2})] %;\
+	/set ceny2=$[replace("|e", "", {ceny2})] %;\
+	/set ceny2=$[replace("|ych", "", {ceny2})] %;\
+	/set ceny2=$[replace(",", "", {ceny2})] %;\
+	/set ceny2=____%{ceny2}| %;\
+	/licz %{ceny2}
+
+/def licz = \
+	/if (regmatch("____([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|",{1})) \
+		/set _mithryl=$[expr({_mithryl}+{P1})] %;\
+		/set _zloto=$[expr({_zloto}+{P2})] %;\
+		/set _srebro=$[expr({_srebro}+{P3})] %;\
+		/set _miedz=$[expr({_miedz}+{P4})] %;\
+	/elseif (regmatch("____([^|]*)\|([^|]*)\|([^|]*)\|",{1})) \
+		/set _mithryl=%{_mithryl} %;\
+		/set _zloto=$[expr({_zloto}+{P1})] %;\
+		/set _srebro=$[expr({_srebro}+{P2})] %;\
+		/set _miedz=$[expr({_miedz}+{P3})] %;\
+	/elseif (regmatch("____([^|]*)\|([^|]*)\|",{1})) \
+		/set _mithryl=%{_mithryl} %;\
+		/set _zloto=%{_zloto} %;\
+		/set _srebro=$[expr({_srebro}+{P1})] %;\
+		/set _miedz=$[expr({_miedz}+{P2})] %;\
+	/elseif (regmatch("____([^|]*)\|",{1})) \
+		/set _mithryl=%{_mithryl} %;\
+		/set _zloto=%{_zloto} %;\
+		/set _srebro=%{_srebro} %;\
+		/set _miedz=$[expr({_miedz}+{P1})] %;\
+	/else \
+		/set _mithryl=%{_mithryl} %;\
+		/set _zloto=%{_zloto} %;\
+		/set _srebro=%{_srebro} %;\
+		/set _miedz=%{_miedz} %;\
+	/endif
+
+/def wycen = \
+	/czysc_statystyke %;\
+	/repeat -1 1 /pokaz_cene %{*} %;\
+	/eval wycen %{*} %;\
+
+/def pokaz_cene = \
+	/set _srebro_na_zloto=$[expr({_srebro}/20)] %;\
+	/set _zloto_zysk=$[expr({_zloto}+{_srebro_na_zloto})] %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Sprzedawane: @{BC%kolor_info}%{*}@{n} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Cena sklepu: %{_zloto} zl, %{_srebro} sr, czyli @{BC%kolor_info}%{_zloto_zysk}@{n} zl. %; \
+	/if ( {kupiec} =~ "on" )\
+		/set _licz_prowizje=$[trunc(expr({_zloto_zysk}*0.10))] %;\
+		/set _klient=$[expr({_zloto_zysk}-{_licz_prowizje})] %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Dla klienta: @{BC%kolor_info}%{_klient} zl, zysk: @{BC%kolor_info}%{_licz_prowizje}@{n} zl (prowizja: %prowizja\%). %;\
+	/endif %;\
+	/czysc_statystyke
+
+/def czysc_statystyke = \
+	/set _mithryl=0 %;\
+	/set _zloto=0 %;\
+	/set _srebro=0 %;\
+	/set _miedz=0 %;\
+	/set _srebro_strata=0 %;\
+	/set _srebro_po_stracie=0 %;\
+	/set _srebro_na_zloto=0 %;\
+	/set _zloto_zysk=0 %;\
+	/set _licz_prowizje=0 %;\
+	/unset _klient=0
+
+; by Siro
+/def ocenkamienie = \
+    /def -mregexp -F -t'^(?:> |)(?:Jest tu|Wydaje ci sie|Sa tu).*czyli jakies (.*) miedz.*.' sumujemy_kamurki = \
+        /eval /set suma_kamieni=$$[{suma_kamieni} + %%{P1}] %;\
+    /def -mregexp -F -t'^(?:> |)Oceniasz.*waz[ay] (.*) gram.*' waga_kamurkow = \
+        /eval /set waga_kamieni=$$[{waga_kamieni} + %%{P1}] %;\
+    /set suma_kamieni=;; %;\
+    /set waga_kamieni=;; %;\
+    /send ocen kamienie %;\
+    /repeat -1 1 /sumujemy_kamurki_wynik
+
+/def sumujemy_kamurki_wynik = \
+	/echo %;\
+    /echo -p #@{BC%kolor_info}#@{n}# Wartosc %{suma_kamieni} miedzi czyli okolo @{BC%kolor_info}$[{suma_kamieni}/24000] mithryli, $[mod({suma_kamieni},24000)/240] zlota, $[mod({suma_kamieni},240)/12] srebra i $[mod({suma_kamieni},12)] miedzi@{n}%;\
+    /repeat -4 1 /undef sumujemy_kamurki%%;/unset suma_kamieni%%;/unset waga_kamieni
diff --git a/arkadia/movement.tf b/arkadia/movement.tf
new file mode 100644
index 0000000..8a44fea
--- /dev/null
+++ b/arkadia/movement.tf
@@ -0,0 +1,315 @@
+/def lw5=\
+	/set lw1=$[substr(lw,0,strchr(lw,'., '))] %;\
+	/set lw=$[substr(lw,strchr(lw,'., ')+1,strlen(lw)-strchr(lw,'., ')-1) ]%;\
+	/if (lw1=/"zachod")                /set _lw0=w,%; /test ++lwcount %;\
+	/elseif (lw1=/"polnocny-zachod")   /set _lw1=nw,%; /test ++lwcount %;\
+	/elseif (lw1=/"polnoc")            /set _lw2=n,%; /test ++lwcount %;\
+	/elseif (lw1=/"polnocny-wschod")   /set _lw3=ne,%; /test ++lwcount %;\
+	/elseif (lw1=/"wschod")            /set _lw4=e,%; /test ++lwcount %;\
+	/elseif (lw1=/"poludniowy-wschod") /set _lw5=se,%; /test ++lwcount %;\
+	/elseif (lw1=/"poludnie")          /set _lw6=s,%; /test ++lwcount %;\
+	/elseif (lw1=/"poludniowy-zachod") /set _lw7=sw,%; /test ++lwcount %;\
+	/elseif (lw1=/"gora")              /set _lw8=u,%; /test ++lwcount %;\
+	/elseif (lw1=/"dol")               /set _lw9=d,%; /test ++lwcount %;\
+	/elseif (lw1=/"wyjscie")           /set _lw10=wyjscie,%; /test ++lwcount%; /unnormalset wyjscie %;\
+	/elseif (lw1=/"drzwi")             /set _lw11=drzwi,%; /test ++lwcount%; /unnormalset drzwi %;\
+	/elseif (lw1=/"schody")            /set _lw12=schody,%; /test ++lwcount%; /unnormalset schody %;\
+	/elseif (lw1=/"furta")            /set _lw12=furta,%; /test ++lwcount%; /unnormalset furta %;\
+	/elseif (lw1=/"ulica")            /set _lw12=ulica,%; /test ++lwcount%; /unnormalset ulica %;\
+	/elseif (lw1=/"sklep")            /set _lw12=sklep,%; /test ++lwcount%; /unnormalset sklep %;\
+	/elseif (lw1=/"prom")            /set _lw12=prom,%; /test ++lwcount%; /unnormalset prom %;\
+	/elseif (lw1=/"kaplica")            /set _lw12=kaplica,%; /test ++lwcount%; /unnormalset kaplica %;\
+	/elseif (lw1=/"karczma")            /set _lw12=karczma,%; /test ++lwcount%; /unnormalset karczma %;\
+	/elseif (lw1=/"schodki")            /set _lw12=schodki,%; /test ++lwcount%; /unnormalset schodki %;\
+	/elseif (lw1=/"mlyn")            /set _lw12=mlyn,%; /test ++lwcount%; /unnormalset mlyn %;\
+	/elseif (lw1=/"piekarnia")            /set _lw12=piekarnia,%; /test ++lwcount%; /unnormalset piekarnia %;\
+	/elseif (lw1=/"trakt")            /set _lw12=trakt,%; /test ++lwcount%; /unnormalset trakt %;\
+	/elseif (lw1=/"jaskinia")            /set _lw12=jaskinia,%; /test ++lwcount%; /unnormalset jaskinia %;\
+	/elseif (lw1=/"szopa")            /set _lw12=szopa,%; /test ++lwcount%; /unnormalset szopa %;\
+	/elseif (lw1=/"barak")            /set _lw12=barak,%; /test ++lwcount%; /unnormalset barak %;\
+	/elseif (lw1=/"wrota")            /set _lw12=wrota,%; /test ++lwcount%; /unnormalset wrota %;\
+	/elseif (lw1=/"brama")            /set _lw12=brama,%; /test ++lwcount%; /unnormalset brama %;\
+	/elseif (lw1=/"wejscie")            /set _lw12=wejscie,%; /test ++lwcount%; /unnormalset wejscie %;\
+	/endif
+
+/def -PCgreen -Fp2 -t'Jest tutaj (.*) widoczne wyjscie: (.*)\\.$' olw0 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Jest tutaj (.*) widocznych wyjsc: (.*)\\.$' olw1 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Sa tutaj (.*) widoczne wyjscia: (.*)\\.$' olw2 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Trakt wiedzie na (.*)\\.$' olw3 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Trakt rozgalezia sie na (.*)\\.$' olwr4 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'W gestych ciemnosciach dostrzegasz trakt wiodacy na (.*)\\.$' olw5 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'W gestych ciemnosciach dostrzegasz, ze trakt rozgalezia sie na (.*)\\.$' olw6 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Sciezka prowadzi tutaj w (.*) kierunkach: (.*)\\.$' olw7 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Sciezka prowadzi tutaj w (.*) kierunku: (.*)\\.$' olw8 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'W mroku nocy dostrzegasz (.*) widoczn.* wyjsc.*: (.*)\\.$' olw9 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Wyjscia prowadza tutaj w (.*) kierunkach: (.*)\\.$' olw10 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Dostrzegasz tu jedno wyjscie: (.*)\\.$' olw11 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Wydeptane w kukurydzy sciezki prowadza na (.*)\\.$' olw12 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Szlak prowadzi tutaj w (.*) kierunkach: (.*)\\.$' olw13 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Tunel.* ciagn.* sie na (.*)\\.$' olw14 = /set lw %P1 %; /lw4
+
+/def -mregexp -p2 -t'Wszyscy na poklad!' ship0_0 = \
+	/tbind wns
+/def -mregexp -p2 -t'Doplynelismy.*(Mozna|w calej swej)' ship0_1 = \
+	/tbind zsiadz ze statku
+/def -mregexp -p2 -t'Do przystani przybija wielki trojmasztowy galeon.' ship2_0 = \
+	/tbind wns
+/def -mglob -p2 -t'*Marynarze sprawnie cumuja go i wysuwaja na brzeg trap.*' ship2_1 = \
+	/tbind zsiadz ze statku
+/def -mregexp -p2 -t'Niewielki prom rzeczny przybija do brzegu.' ship3_0 = \
+	/tbind wsiadz na statek
+/def -mregexp -p2 -t' przybija do brzegu\\.' ship3_1 = \
+	/tbind wsiadz na statek
+/def -mregexp -p2 -t'Prom przybija do przystani na polnocnym brzegu rzeki.' ship_6 = \
+	/tbind zsiadz ze statku
+/def -mregexp -p2 -t'.*dylizans powoli zatrzymuje sie' dyl0_0 = \
+	/tbind wdyl
+/def -mregexp -p2 -t'Powoli pojazd zaczyna tracic predkosc' dyl0_1 = \
+	/tbind wyjscie
+/def -mregexp -p2 -t'i wsiada do .* dylizansu' dyl0_2 = \
+	/tbind wdyl
+
+/def -mregexp -p2 -t'Stalowa klatka nadjezdza' winda0 = /beep 1
+/def -mregexp -p2 -t'Otworzyly sie drzwi klatki' winda1 = /beep 1
+
+/def -mregexp -p2 -t'Probujesz otworzyc .*(?<!drzwi), ale nie udaje ci sie to.' bind_go00 = \
+	/tbind zapukaj w brame
+/def -mregexp -p2 -t'Nie jestes zbyt pewny swojej umiejetnosci latania...' bind_go01 = \
+	/tbind pociagnij linke %%; uderz w dzwon
+/def -mregexp -p2 -t'Niewielka furtka otwiera sie.' bind_go02 = \
+	/tbind furtka
+/def -mregexp -p2 -t'otwiera niewielka furtke\.' bind_go03 = \
+	/tbind furtka
+/def -mregexp -p2 -t'WOLNE' bind_go04 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go05 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go05 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go06 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go07 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go08 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go09 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go10 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go11 = \
+	/tbind kto
+/def -mregexp -p2 -t'WOLNE' bind_go12 = \
+	/tbind kto
+/def -mregexp -p2 -t'korzystajac ze skrzypiacych schodow wchodzi na pietro wiezy.' bind_go13 = \
+	/tbind wejdz po schodkach
+/def -mregexp -p2 -t'znika w ciemnym otworze, schodzac po schodach na parter.' bind_go14 = \
+	/tbind zejdz po schodkach
+/def -mregexp -p2 -t'wchodzi ostroznie na luk skalny' bind_go15 = \
+	/tbind wejdz na luk
+/def -mregexp -p2 -t'zeskakuje na plaskie podloze jaskini.' bind_go16 = \
+	/tbind zeskocz na placyk
+/def -mregexp -p2 -t'przeskakuje przez krawedz studni i znika z twych oczu.' bind_go17 = \
+	/tbind wejdz do studni
+/def -mregexp -p2 -t'pochyla sie i czolgajac probuje przecisnac sie przez otwor w murze... po chwili znika ci z oczu.' bind_go18 = \
+	/tbind przecisnij sie przez otwor
+/def -mregexp -p2 -t'znika w szczelinie.' bind_go19 = \
+	/tbind przecisnij sie przez szczeline
+/def -mregexp -p2 -t'przeciska sie przez szczeline' bind_go2 = \
+	/tbind przecisnij sie przez szczeline
+/def -mregexp -p2 -t'majstruje cos przy sciane.' bind_go21 = \
+	/tbind przekrec czaszke
+/def -mregexp -p2 -t'poklonil sie statui.' bind_go22 = \
+	/tbind poklon sie statui
+/def -mregexp -p2 -t'podaza przeskakujac przez mur.' bind_go23 = \
+	/tbind wespnij sie na mur
+/def -mregexp -p2 -t'wsiada do stojacego .* dylizansu.' bind_go24 = \
+	/tbind wsiadz do dylizansu
+/def -mregexp -p2 -t'podaza w kierunku wodospadu.' bind_go25 = \
+	/tbind pij%%; wejdz do wody %%; przejdz przez wodospad
+/def -mregexp -p2 -t'kieruje sie w strone krzakow i po chwili daje w nie nura, niknac ci z oczu.*' bind_go26 = \
+	/tbind wejdz w krzaki
+/def -mregexp -p2 -t'podaza do kurhanu.' bind_go27 = \
+	/tbind wejdz do kurhanu
+/def -mregexp -p2 -t'wspina sie na gore.' bind_go28 = \
+	/tbind wespnij sie na gore
+/def -mregexp -p2 -t'rusza w strone kurhanu, przedzierajac sie przez lapiace'  bind_go29 = \
+	/tbind wejdz w krzaki
+/def -mregexp -p2 -t'kleka przy wale(,|) i odgarniajac reka suche trawy(,|) odnajduje otwor prowadzacy w dol' bind_go30 = \
+	/tbind wejdz w otwor
+/def -mregexp -p2 -t'staje niepewnie na kamiennej plycie, i nagle zapada sie w dol! Po chwili' bind_go31 = \
+	/tbind wejdz na plyte
+/def -mregexp -p2 -t'podaza przeciskajac sie pomiedzy beczkami do otworu' bind_go32 = \
+	/tbind przeslizgnij sie miedzy beczkami
+/def -mregexp -p2 -t'wchodzi na drzewo.' bind_go33 = \
+	/tbind wejdz na drzewo
+/def -mregexp -p2 -t'podaza przez lustro wodospadu na zewnatrz.' bind_go34 = \
+	/tbind przejdz przez wodospad
+/def -mregexp -p2 -t'podaza do pieczary szefa' bind_go35 = \
+	/tbind wejdz do pieczary
+/def -mregexp -p2 -t'przywiera plasko do posadzki i ryjac nosem w pokrywajacym ja piachu, posuwa sie na poludnie' bind_go36 = \
+	/tbind przeczolgaj sie na poludnie
+/def -mregexp -p2 -t'przywiera plasko do posadzki i ryjac nosem w pokrywajacym ja piachu, posuwa sie na polnoc' bind_go37 = \
+	/tbind przeczolgaj sie na polnoc
+/def -mregexp -p2 -t'podchodzi do szczeliny w skale i znika w jej wnetrzu.' bind_go38 = \
+	/tbind zsun sie na dol
+/def -mregexp -p2 -t'napina sie i probuje podwazyc jeden z glazow, ktory po chwili ustepuje ujawniajac spora' bind_go39 = \
+	/tbind podwaz czarny glaz
+/def -mregexp -p2 -t'pewnie lapie za zwisajace liny i zaczyna wspinac sie do gory. Po chwili' bind_go40 = \
+	/tbind wespnij sie po linach
+/def -mregexp -p2 -t'podchodzi do szybu i pewnie lapie za zwisajace liny, by po chwili zsunac sie' bind_go41 = \
+	/tbind zsun sie po linie
+/def -mregexp -p2 -t'zaczyna szybko wdrapywac sie po scianie. Po chwili znika za zalomem' bind_go42 = \
+	/tbind wdrap sie na sciezke
+/def -mregexp -p2 -t'wchodzi do szczeliny miedzy glazami i znika w jej mroku' bind_go43 = \
+	/tbind przecisnij sie przez szczeline
+/def -mregexp -p2 -t'stuka w skale' bind_go44 = \
+	/tbind zapukaj w skale
+/def -mregexp -p2 -t'znika w kepie krzakow.' bind_go45 = \
+	/tbind wejdz w krzaki
+/def -mregexp -p2 -t'wspina sie po scianie jaru' bind_go46 = \
+	/tbind wespnij sie po scianie
+/def -mregexp -p2 -t'lapie za korzen i szybko wspina sie po skale. Po chwili wciaga sie na' bind_go47 = \
+	/tbind wdrap sie po korzeniu
+/def -mregexp -p2 -t'wchodzi po schodach na gore i niknie ci z oczu.' bind_go48 = \
+	/tbind wejdz po schodach
+/def -mregexp -p2 -t'zatyka nos i skacze do stawu machajac nogami.' bind_go49 = \
+	/tbind skocz do stawu
+/def -mregexp -p2 -t'podaza przez otwor.' bind_go50 = \
+	/tbind zejdz na dol
+/def -mregexp -p2 -t' ostroznie wchodzi na most i powoli podaza w kierunku jego srodka.' bind_go51 = \
+	/tbind wejdz na most
+/def -mregexp -p2 -t'nurkuje i przeplywa na polnoc.' bind_go52 = \
+	/tbind przeplyn na polnoc
+/def -mregexp -p2 -t'nurkuje i przeplywa na poludnie.' bind_go53 = \
+	/tbind przeplyn na poludnie
+/def -mregexp -p2 -t'wskakuje na poklad promu.' bind_go54 = \
+	/tbind wejdz na prom
+/def -mregexp -p2 -t'schodzi na brzeg.' bind_go55 = \
+	/tbind zejdz
+/def -mregexp -p2 -t'wskakuje na poklad tratwy.' bind_go56 = \
+	/tbind wejdz na tratwe
+/def -mregexp -p2 -t'wspina sie na dach baraku.' bind_go57 = \
+	/tbind wespnij sie na barak
+/def -mregexp -p2 -t'przeskakuje palisade.' bind_go58 = \
+	/tbind przeskocz palisade
+/def -mregexp -p2 -t'otwiera klape i wydostaje sie przez otwor w suficie na gore.' bind_go59 = \
+	/tbind otworz klape
+/def -mregexp -p2 -t'chwyta za jeden z konarow i zaczyna przesuwac pien' bind_go60 = \
+	/tbind przesun pien
+/def -mregexp -p2 -t'zeskakuje do pobliskiej jamy, niknac calkowicie w jej wnetrzu.' bind_go61 = \
+	/tbind wskocz do jamy
+/def -mregexp -p2 -t'calkiem sprawnie radzac sobie ze wspinaczka po korzeniach, podaza w kierunku powierzchni ziemi.' bind_go62 = \
+	/tbind wdrap sie na gore
+/def -mregexp -p2 -t'naciska cos na scianie i po chwili znika' bind_go63 = \
+	/tbind nacisnij kamien
+/def -mregexp -p2 -t'ostroznie schodzi po zboczu pod most' bind_go64 = \
+	/tbind zejdz pod most
+/def -mregexp -p2 -t'wspina sie po najblizszym zboczu docierajac w koncu na trakt' bind_go65 = \
+	/tbind wespnij sie na most
+/def -mregexp -p2 -t'zablokowane jest przez kamienna plyte' bind_go66 = \
+	/tbind odsun kamienna plyte
+/def -mregexp -p2 -t'Kamienna plyta z przerazliwym zgrzytem zamyka wejscie do grobowca!' bind_go67 = \
+	/tbind odsun kamienna plyte
+/def -mregexp -p2 -t'Fantazyjne wrota sa zamkniete' bind_go68 = \
+	/tbind otworz wrota
+/def -mregexp -p2 -t'zsuwa sie po skarpie' bind_go69 = \
+	/tbind zejdz na dol
+/def -mregexp -p2 -t'znika w porastajacych krawedz traktu krzakach.' bind_go70 = \
+	/tbind wejdz w krzaki
+/def -mregexp -p2 -t'zaczyna schodzic na dol' bind_go71 = \
+	/tbind zejdz na dol
+/def -mregexp -p2 -t'zaczyna wspinac sie.*na gore' bind_go72 = \
+	/tbind wespnij sie na gore
+/def -mregexp -p2 -t'przeciska sie obok drzewa' bind_go73 = \
+	/tbind przecisnij sie obok drzewa
+/def -mregexp -p2 -t'znika w glebinach komina, pomagajac sobie przy tym wolna reka' bind_go74 = \
+	/tbind wejdz do komina
+/def -mregexp -p2 -t'mocno odbija sie stopami od podloza i zaczyna wspinaczke wglab tunelu' bind_go75 = \
+	/tbind wejdz do komina
+/def -mregexp -p2 -t'zaczyna wspinac sie po drabinie' bind_go76 = \
+	/tbind wespnij sie na gore
+/def -mregexp -p2 -t'chwyta koncowe szczeble drabiny i zaczyna' bind_go77 = \
+	/tbind zejdz na dol po drabinie
+/def -mregexp -p2 -t'przeciska sie przez otwor' bind_go78 = \
+	/tbind przecisnij sie przez otwor
+/def -mregexp -p2 -t'bierze rozbieg i przeskakuje wyrwe' bind_go79 = \
+	/tbind przeskocz wyrwe
+/def -mregexp -p2 -t'schyla sie niezgrabnie i wchodzi' bind_go80 = \
+	/tbind wejdz do otworu
+/def -mregexp -p2 -t'przechodzi szybko przez strumien' bind_go81 = \
+	/tbind przejdz przez strumien
+/def -mregexp -p2 -t'rusza w kierunku przegradzajacych droge glazow' bind_go82 = \
+	/tbind przejdz za glaz
+/def -mregexp -p2 -t'schodzi z mostu nad strumien.' bind_go83 = \
+	/tbind zejdz nad strumien
+/def -mregexp -p2 -t'bez trudu wchodzi na podest... traci rownowage' bind_go84 = \
+	/tbind wejdz na podest
+/def -mregexp -p2 -t'wsuwa sie do grobowca' bind_go85 = \
+	/tbind wejdz do grobowca
+/def -mregexp -p2 -t'pochyla sie i probuje wpelznac' bind_go86 = \
+	/tbind przecisnij sie przez otwor
+/def -mregexp -p2 -t'znika nagle w jednej ze scian' bind_go87 = \
+	/tbind wejdz w sciane
+/def -mregexp -p2 -t'rzucajac niepewne spojrzenie na czarna wode' bind_go88 = \
+	/echo -p #@{BC%kolor_info}#@{n}# Komendy: @{BC%kolor_info}zeskocz na glaz, wskocz do wody, zanurkuj pod wode@{n} %;\
+	/tbind zeskocz na glaz
+/def -mregexp -p2 -t'zagryzajac wargi wskakuje do ciemnej wody' bind_go89 = \
+	/tbind wskocz do wody
+/def -mregexp -p2 -t'z posepna mina spoglada na metna wode. Po chwili wachania nurkuje' bind_go90 = \
+	/tbind zanurkuj pod wode
+/def -mregexp -p2 -t'zaczyna wspinac sie ku gorze' bind_go91 = \
+	/tbind wespnij sie na gore%%; wespnij sie do gory
+/def -mregexp -p2 -t'Znika za nim i ku twemu' bind_go92 = \
+	/tbind obroc rzezbe
+/def -mregexp -p2 -t'znika w porastajacych krawedz traktu' bind_go93 = \
+	/tbind wejdz w krzaki
+/def -mregexp -p2 -t'wchodzi na .*(tratwe|prom)' bind_go94 = \
+	/tbind wsiadz na statek
+/def -mregexp -p2 -t'ostroznie schodzi na dol lapiac sie kolejnych szczebli drabiny.' bind_go95 = \
+	/tbind zejdz po drabinie
+/def -mregexp -p2 -t'ostroznie wchodzi do gory lapiac' bind_go96 = \
+	/tbind wejdz po drabinie
+/def -mregexp -p2 -t'przechodzi przez iluzje sciany.' bind_go97 = \
+	/tbind przejdz przez wneke
+/def -mregexp -p2 -t'przechodzi przez wneke' bind_go98 = \
+	/tbind przejdz przez wneke
+/def -mregexp -p2 -t'wchodzi do baszty' bind_go99 = \
+	/tbind wejdz do baszty
+/def -mregexp -p2 -t'wchodzi do czerwonego wozu' bind_go100 = \
+	/tbind wejdz do czerwonego wozu
+/def -mregexp -p2 -t'schodzi po drabince na dol' bind_go101 = \
+	/tbind zejdz po drabince
+/def -mregexp -p2 -t'wdrapuje sie na duzy glaz' bind_go102 = \
+	/tbind wdrap sie na glaz
+/def -mregexp -p2 -t'zrecznie wspina sie na znajdujaca sie powyzej polke skalna.' bind_go103 = \
+	/tbind wdrap sie na glaz%%; wespnij sie na polke
+/def -mregexp -p2 -t'wchodzi do wody i przeplywa na przeciwlegly brzegi' bind_go104 = \
+	/tbind przeplyn rzeke
+/def -mregexp -p2 -t'Kierujesz sie .* kotliny, lecz bezradnie'  bind_go104 = \
+	/tbind wejdz w krzaki
+/def -mregexp -p2 -t'podaza do mauzoleum' bind_go105 = \
+	/tbind wejdz do grobowca
+/def -mregexp -p2 -t'podaza do grobowca' bind_go106 = \
+	/tbind wejdz do grobowca
+/def -mregexp -p2 -t'podaza przez iluzoryczna sciane' bind_go107 = \
+	/tbind wejdz w sciane
+/def -mregexp -p2 -t'podaza w szczeline' bind_go108 = \
+	/tbind wejdz w szczeline
+/def -mregexp -p2 -t'wdrapuje sie na skalna polke' bind_go109 = \
+	/tbind wdrap sie na polke
+/def -mregexp -p2 -t'zeskakuje na dol' bind_go_110 = \
+	/tbind zeskocz na dol
+/def -mregexp -p2 -t'podaza do krypty' bind_go_111 = \
+	/tbind wejdz do krypty
+/def -mregexp -p2 -t'wslizguje sie do lodowej dziury' bind_go_112 = \
+	/tbind wzlizgnij sie do otworu
+/def -mregexp -p2 -t'schodzi do rozpadliny' bind_go_113 = \
+	/tbind zejdz do rozpadliny
+/def -mregexp -p2 -t'przeslizguje sie przez szczeline' bind_go_114 = \
+	/tbind przecisnij sie przez szczeline
+/def -mregexp -p2 -t'pokonujac zarastajace droge zarosla wchodzi do wnetrza spalonej chaty' bind_go_115 = \
+	/tbind wejdz do chaty
+/def -mregexp -Fp2 -t'^(W gestych ciemnosciach dostrzegasz trakt wiodacy|Trakt wiedzie) na zachod i polnoc.$' stop0 = \
+	/beep 1 %;\
+	/set lwgo=0 %;\
+	/set auto off
diff --git a/arkadia/sets.tf b/arkadia/sets.tf
new file mode 100644
index 0000000..e69de29
diff --git a/arkadia/specs.tf b/arkadia/specs.tf
new file mode 100644
index 0000000..fbccabc
--- /dev/null
+++ b/arkadia/specs.tf
@@ -0,0 +1,200 @@
+/def show_spec = \
+	/return substitute(strcat(decode_attr(strcat("@{Ccyan}[", {1}, "@{nB} ", {2}, "@{nCcyan}/", {3}, "] ")), {PL}, {P0}, {PR}))
+
+; gp
+/eval /def -PBC%kolor_fight -Fp5 -t'Wykorzystujac dogodny moment .* (muskajac|raniac|masakrujac) cie .*' spec_gp_kolor_0
+/eval /def -PC%kolor_spec -Fp5 -t'Wykorzystujac dogodny moment .* (muskajac|raniac|masakrujac) (?<!cie) .*' spec_gp_kolor_1
+
+/def -mregexp -Fp2 -t'Wykorzystujac dogodny .* lecz' spec_gp0 = /show_spec GP 0 6
+/def -mregexp -Fp2 -t'Wykorzystujac dogodny .*, ledwo muskajac' spec_gp1 = /show_spec GP 1 6
+/def -mregexp -Fp2 -t'Wykorzystujac dogodny .*, lekko raniac' spec_gp2 = /show_spec GP 2 6
+/def -mregexp -Fp2 -t'Wykorzystujac dogodny .*, raniac' spec_gp3 = /show_spec GP 3 6
+/def -mregexp -Fp2 -t'Wykorzystujac dogodny .*, powaznie raniac' spec_gp4 = /show_spec GP 4 6
+/def -mregexp -Fp2 -t'Wykorzystujac dogodny .*, bardzo ciezko raniac' spec_gp5 = /show_spec GP 5 6
+/def -mregexp -Fp2 -t'Wykorzystujac dogodny .*, masakrujac' spec_gp6= /show_spec GP 6 6
+
+; korsarz
+/eval /def -PBC%kolor_fight -Fp5 -t'.* unika twego ciosu.*' spec_ks_kolor_0
+/eval /def -PC%kolor_spec  -Fp5 -t'.* unika ciosu .*' spec_ks_kolor1
+
+/def -mregexp -Fp2 -t'przecina tylko powietrze\\.$$' spec_ks_0 = /show_spec KOR 0 5
+/def -mregexp -Fp2 -t'zadaje.* (ci |)tylko nieznaczne obrazenia\\.$$' spec_ks_1 = /show_spec KOR 1 5
+/def -mregexp -Fp2 -t'otwiera szeroka rane na .*\\.$$' spec_ks_2 = /show_spec KOR 2 5
+/def -mregexp -Fp2 -t'gleboko rozrywajac .* cialo\\.$$' spec_ks_3 = /show_spec KOR 3 5
+/def -mregexp -Fp2 -t'powodujac ogromne obrazenia\\.$$' spec_ks_4 = /show_spec KOR 4 5
+/def -mregexp -Fp2 -t'ciagnac za soba krwawy warkocz smierci\\.$$' spec_ks_5 = /show_spec KOR 5 5
+
+; strażnik
+/eval /def -PBC%kolor_fight -Fp5 -t'.* wytraca ci .*' spec_wks_kolor_0
+/eval /def -PC%kolor_spec  -Fp5 -t'.* wytraca .*' spec_wks_kolor_1
+
+/eval /def -PBC%kolor_fight -Fp5 -t'.* wykorzystujac twoj brak broni .*' spec_wks_kolor_0_1
+/eval /def -PC%kolor_spec  -Fp5 -t'.* wykorzystujac (brak broni|oslabienie) .* trafia .*' spec_wks_kolor_1_1
+
+/def -mregexp -Fp2 -t'probuje.* wytracic ' spec_wks_wyt0 = /show_spec STR WYT
+/def -mregexp -Fp2 -t'.* wytraca(sz|) .* z r' spec_wks_wyt1 = /show_spec STR WYT
+
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .* rownowage' _spec_wks_0_1 = /show_spec STR 0 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, ledwie zahaczajac' _spec_wks_1 = /show_spec STR 1 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, pozostawiajac ledwie sinca' _spec_wks_1_1 = /show_spec STR 1 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, lekko raniac' _spec_wks_2 = /show_spec STR 2 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, pozostawiajac krwawiace zadrapanie' _spec_wks_2_1 = /show_spec STR 2 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, mocno raniac' _spec_wks_3 = /show_spec STR 3 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, pozostawiajac dluga, poszarpana rane' _spec_wks_3_1 = /show_spec STR 3 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, bardzo mocno raniac' _spec_wks_4 = /show_spec STR 4 5
+/def -mregexp -Fp2 -t'wykorzystujac.* brak .*, pozostawiajac gleboka rane z wystajacymi na wierzchu tkankami' _spec_wks_4_1 = /show_spec STR 4 5
+/def -mregexp -Fp2 -t'wykorzystujac .* (smiertelne obrazenia)' spec_wks_5 = /show_spec STR 5 5
+
+; legionista
+/eval /def -PBC%kolor_fight  -Fp5 -t'.* ciebie.* wyprowadzic .* (powodujac|konczac walke).*' spec_ohm_kolor_0
+/eval /def -PC%kolor_spec  -Fp5 -t'.* wyprowadzic .* (powodujac|konczac walke).*' spec_ohm_kolor_1
+
+/def -mregexp -Fp2 -t'wyprowadzic .* (przecinajac tylko powietrze|nie czyniac najmniejszej krzywdy)' spec_ohm_0 = /show_spec LEG 0 7
+/def -mregexp -Fp2 -t'wyprowadzic .* (powodujac tylko ledwo zauwazalne obrazenia)' spec_ohm_1 = /show_spec LEG 1 7
+/def -mregexp -Fp2 -t'wyprowadzic .* (powodujac tylko nieznaczne obrazenia)' spec_ohm_2 = /show_spec LEG 2 7
+/def -mregexp -Fp2 -t'wyprowadzic .* (powodujac niemale obrazenia)' spec_ohm_3 = /show_spec LEG 3 7
+/def -mregexp -Fp2 -t'wyprowadzic .* (powodujac liczne i glebokie obrazenia)' spec_ohm_4 = /show_spec LEG 4 7
+/def -mregexp -Fp2 -t'wyprowadzic .* (powodujac rozlegle obrazenia)' spec_ohm_5 = /show_spec LEG 5 7
+/def -mregexp -Fp2 -t'wyprowadzic .* (powodujac prawieze smiertelne obrazenia)' spec_ohm_6 = /show_spec LEG 6 7
+/def -mregexp -Fp2 -t'wyprowadzic .* (w jednym momencie konczac walke)' spec_ohm_7 = /show_spec LEG 7 7
+
+; partyzant
+/eval /def -PBC%kolor_fight -Fp5 -t'.* (uderza|doskakuje) .* (raniac cie |cie masakrujac).*' spec_sc_kolor_0
+/eval /def -PC%kolor_spec  -Fp5 -t'.* (uderza|doskakuje) .* (raniac|masakrujac) .*' spec_sc_kolor_1
+
+/eval /def -PC%kolor_spec  -Fp5 -t'.* (ubiegajac reakcje .* probuje |uprzedzajac reakcje|blyskawicznym susem dopada |doskakuje .* w biegu skladajac sie|ulamku sekundy zabiega |z furia drapieznika rusza |natychmiast rzuca sie |krzykiem wpada na ).*' spec_sc_kolor_3
+
+/def -mregexp -Fp2 -t'probuje.* dosiegnac .* jednak .* bron nieznacznie (chybia celu)' spec_sc_0 = /show_spec PAR 0 7
+/def -mregexp -Fp2 -t'uderza.* .* (nieznacznie raniac)' spec_sc_1 = /show_spec PAR 1 7
+/def -mregexp -Fp2 -t'uderza.* .* (lekko raniac)' spec_sc_2 = /show_spec PAR 2 7
+/def -mregexp -Fp2 -t'uderza.* .* (bolesnie raniac)' spec_sc_3 = /show_spec PAR 3 7
+/def -mregexp -Fp2 -t'uderza.* .* (powaznie raniac)' spec_sc_4 = /show_spec PAR 4 7
+/def -mregexp -Fp2 -t'uderza.* .* (bardzo ciezko raniac)' spec_sc_6 = /show_spec PAR 5 7
+/def -mregexp -Fp2 -t'uderza.* .* (potwornie raniac)' spec_sc_7 = /show_spec PAR 6 7
+/def -mregexp -Fp2 -t'blyskawicznie doskakuje.* do .* (bezlitosnie masakrujac)' spec_sc_8 = /show_spec PAR 7 7
+/def -mregexp -Fp2 -t'doskakuje.* do .* mordercze uderzenie' spec_sc_9 = /show_spec PAR 7 7
+ 
+/def -mregexp -Fp2 -t'ubiegajac reakcje .* probuje zaskoczyc' spec_scatak_0 = /show_spec SCATAK 0 5
+/def -mregexp -Fp2 -t'uprzedzajac reakcje .* (blyskawicznym ciosem|z wielkim pospiechem stara sie|bez namyslu uderza)' spec_scatak_1 = /show_spec SCATAK 1 5
+/def -mregexp -Fp2 -t'blyskawicznym susem dopada .* ledwie zahaczajac' spec_scatak2 = /show_spec SCATAK 1 5
+/def -mregexp -Fp2 -t'momentalnie doskakuje .* w biegu skladajac sie' spec_scatak_3 = /show_spec SCATAK 2 5
+/def -mregexp -Fp2 -t'dziko hallakujac w ulamku sekundy zabiega od tylu' spec_scatak_4 = /show_spec SCATAK 3 5
+/def -mregexp -Fp2 -t'z furia drapieznika rusza do ataku na' spec_scatak_5 = /show_spec SCATAK 4 5
+/def -mregexp -Fp2 -t'wyprzedzajac nieudolny atak natychmiast rzuca sie w kierunku ' spec_scatak_6 = /show_spec SCATAK 5 5
+/def -mregexp -Fp2 -t'z dzikim krzykiem wpada na' spec_scatak_7 = /show_spec SCATAK 5 5
+
+; rycerz
+/eval /def -PC%kolor_spec -Fp5 -t'.* bierze (potezny|mocny) zamach .*' spec_zs_kolor_1
+
+/def -mregexp -Fp2 -t'bierze.* zamach .* (cios przeszywa powietrze)\\.$$' spec_zs_0 = /show_spec RYC 0 5
+/def -mregexp -Fp2 -t'bierze.* zamach .* (pozostawiajac .* nieznaczne zadrapani.*)\\.$$' spec_zs_1 = /show_spec RYC 1 5
+/def -mregexp -Fp2 -t'bierze.* zamach .* (pozostawiajac krwawiaca rane)\\.$$' spec_zs_2 = /show_spec RYC 2 5
+/def -mregexp -Fp2 -t'bierze.* zamach .* (pozostawiajac duza krwawiaca rane)\\.$$' spec_zs_3 = /show_spec RYC 2 5
+/def -mregexp -Fp2 -t'bierze.* zamach .* (twarz .* zalewa strumien krwi)\\.$$' spec_zs_4 = /show_spec RYC 4 5
+/def -mregexp -Fp2 -t'bierze.* zamach .* (rozlegle obrazenia)\\.$$' spec_zs_5 = /show_spec RYC 4 5
+/def -mregexp -Fp2 -t'bierze.* zamach .* (pada martw. na ziemie)\\.$$' spec_zs_6 = /show_spec RYC 5 5
+
+; zboj
+/eval /def -PBC%kolor_spec -Fp5 -t'.* uderzeniem .* trafia cie .*' spec_zb_kolor_0
+/eval /def -PC%kolor_spec -Fp5 -t'.* uderzeniem .* trafia (?<!cie) .*' spec_zb_kolor_1
+
+/def -mregexp -Fp2 -t'uderzeniem .* trafia.* (muskajac nieznacznie)' spec_zb_0 = /show_spec ZBOJ 1 8
+/def -mregexp -Fp2 -t'uderzeniem .* trafia.* (trafiajac lekko)' spec_zb_1 = /show_spec ZBOJ 2 8
+/def -mregexp -Fp2 -t'uderzeniem .* trafia.* (otwierajac spora rane)' spec_zb_2 = /show_spec ZBOJ 3 8
+/def -mregexp -Fp2 -t'uderzeniem .* trafia.* (duze krwistoczerwone)' spec_zb_3 = /show_spec ZBOJ 4 8
+/def -mregexp -Fp2 -t'uderzeniem .* trafia.* (pojawia sie duza rana)' spec_zb_4 = /show_spec ZBOJ 5 8
+/def -mregexp -Fp2 -t'uderzeniem .* trafia.* (pojawia sie ogromna rana)' spec_zb_5 = /show_spec ZBOJ 6 8
+/def -mregexp -Fp2 -t'szeroki zamach .* wali.* (Ten cios przeciwnik)' spec_zb_6 = /show_spec ZBOJ 7 8
+/def -mregexp -Fp2 -t'uderza.* mocno w glowe .* bez zycia' spec_zb_7 = /show_spec ZBOJ 8 8
+
+; fanatyk
+/eval /def -PC%kolor_spec -Fp5 -t'.*(przeciwnika rzuca sie do ataku|Bezlitosny,).*' spec_mc_kolor_1
+
+/def -mregexp -Fp2 -t'bierze.* potezny zamach i wyprowadza.* .* ktory ma (?:cie |)zmasakrowac' spec_mc_0 = /show_spec FAN 0 7
+/def -mregexp -Fp2 -t'rzuca.* sie do ataku\\. .* trafia.* .* (ledwo muskajac)' spec_mc_1 = /show_spec FAN 1 7
+/def -mregexp -Fp2 -t'rzuca.* sie do ataku\\. .* trafia.* .* (lekko raniac)' spec_mc_2 = /show_spec FAN 2 7
+/def -mregexp -Fp2 -t'rzuca.* sie do ataku\\. .* trafia.* .* ((?<!lekko |powaznie |bardzo ciezko )raniac)' spec_mc_3 = /show_spec FAN 3 7
+/def -mregexp -Fp2 -t'rzuca.* sie do ataku\\. .* trafia.* .* (powaznie raniac)' spec_mc_4 = /show_spec FAN 4 7
+/def -mregexp -Fp2 -t'rzuca.* sie do ataku\\. .* trafia.* .* (bardzo ciezko raniac)' spec_mc_5 = /show_spec FAN 5 7
+/def -mregexp -Fp2 -t'rzuca.* sie do ataku\\. .* trafia.* .* (masakrujac)' spec_mc_6 = /show_spec FAN 6 7
+/def -mregexp -Fp2 -t'(osuwa(?:sz|) sie (?:powoli |)na ziemie), ostatnimi silami' spec_mc_7 = /show_spec FAN 7 7
+
+; miecznik
+/eval /def -PBC%kolor_fight -Fp5 -t'.*(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* (zacina|tnie|rozcina) (cie|ci) .*' spec_miecznik_kolor_0 = /echo dupa
+/eval /def -PC%kolor_spec -Fp5 -t'.*(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* (zacina|tnie|rozcina) (?<!cie |ci ).*' spec_miecznik_kolor_1
+
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* (cudem|ktore jednak)' spec_miecz_0 = /show_spec MIECZ 0 7
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* ledwo zacina' spec_miecz_1 = /show_spec MIECZ 1 7
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* bolesnie zacina' spec_miecz_2 = /show_spec MIECZ 2 7
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* plytko tnie' spec_miecz_3 = /show_spec MIECZ 3 7
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* (?<!plytko |gleboko |potworna moca )tnie' spec_miecz_4 = /show_spec MIECZ 4 7
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* gleboko tnie' spec_miecz_5 = /show_spec MIECZ 5 7
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* niemalze rozcina' spec_miecz_6 = /show_spec MIECZ 6 7
+/def -mregexp -Fp2 -t'(potezny mlyniec|rusza do przodu|poprawia chwyt na|niespodziewanie skreca|wyrzuca do przodu) .* z potworna moca tnie' spec_miecz_7 = /show_spec MIECZ 7 7
+
+; nozownik
+/eval /def -PC%kolor_spec -Fp5 -t'.*(ciele nieznaczne|odskakuje.*zadajac|obracajac w |dekoncentracje .* wbija|doskakuje do .* a|z nieuwagi .* kluj|wyk.* zmeczyc |poziomym.* godzi|by trafiajac |krwawa bruzda|blyskawicznie .* i trafiajac|zaciska mocniej.* i paskudnie|mruzac oczy uwaznie|uwaznie sledzi|wyprowadz.* celujac|dopada do .* trafiajac|zwinnym, kocim|zwinnie uchyla sie przed|zrecznym.* cios|Unikajac .* blyskawi|Wykorz.* oslabienie).*' spec_ra_kolor_1
+
+/def -mregexp -Fp2 -t"spreza sie do skoku (probujac ugodzic).* sw.* o wlos" spec_ra_0_1 = /show_spec NOZ 0 8
+/def -mregexp -Fp2 -t"^Wykorzystujac dogodna sytuacje, .* rzuca sie na .* jednak .* zaskoczyc" spec_ra_0_2 = /show_spec NOZ 0 8
+/def -mregexp -Fp2 -t"zamierza sie na .* jednak .* (unika ciosu)" spec_ra_03 = /show_spec NOZ 0 8
+/def -mregexp -Fp2 -t"wyko.* by trafic .* i pozos.* ciele (nieznaczne drasniecie)" spec_ra_1_1 = /show_spec NOZ 1 8
+/def -mregexp -Fp2 -t"odskakuje .* zadajac.* (nieznaczne obrazenia)" spec_ra_1_2 = /show_spec NOZ 1 8
+/def -mregexp -Fp2 -t"obracajac w .* zwod i trafia .* pozost.* (nieznaczne obrazenia)" spec_ra_1_3 = /show_spec NOZ 1 8
+/def -mregexp -Fp2 -t"wyk.* dekoncentracje .* wbija .* (lekkie drasniecie)" spec_ra_2_1 = /show_spec NOZ 2 8
+/def -mregexp -Fp2 -t"^Wykorzys.* chwile .* doskakuje do .* (lekkie drasniecie)" spec_ra_2_2 = /show_spec NOZ 2 8
+/def -mregexp -Fp2 -t"korzyst.* z nieuwagi .* kluj.* (lekkie drasniecie)" spec_ra_2_3 = /show_spec NOZ 2 8
+/def -mregexp -Fp2 -t"wyk.* zmeczyc .* i gdy .* (wbija).*" spec_ra_3_1 = /show_spec NOZ 3 8
+/def -mregexp -Fp2 -t"poziomym.* godzi w .* trafiajac .* (bolesny grymas).*" spec_ra_3_2 = /show_spec NOZ 3 8
+/def -mregexp -Fp2 -t"uwazn.* ruchy .* by trafiajac .* (bolesna rane).*" spec_ra_4_1 = /show_spec NOZ 4 8
+/def -mregexp -Fp2 -t"blyskaw.* od .* znacz.* (krwawa bruzda).*" spec_ra_4_2 = /show_spec NOZ 4 8
+/def -mregexp -Fp2 -t"blyskawicznie .* i trafiajac .* w .*(krwawiaca rane).*" spec_ra_5_1 = /show_spec NOZ 5 8
+/def -mregexp -Fp2 -t"zaciska mocniej.* i (paskudnie rani) .* trafiajac .*" spec_ra_5_2 = /show_spec NOZ 5 8
+/def -mregexp -Fp2 -t"mruzac oczy uwaznie obserwuje .* a gdy .* (rozlegle obrazenia)" spec_ra_5_3 = /show_spec NOZ 5 8
+/def -mregexp -Fp2 -t"uwaznie sledzi .* aby .* (znaczne obrazenia)" spec_ra_5_4 = /show_spec NOZ 5 8
+/def -mregexp -Fp2 -t"wyprowadz.* celujac w .* Bron .* (az po rekojesc).*" spec_ra_6_1 = /show_spec NOZ 6 8
+/def -mregexp -Fp2 -t"zaciska mocniej palce na .* dopada do .* trafiajac .* (powazne obrazenia)" spec_ra_6_2 = /show_spec NOZ 6 8
+/def -mregexp -Fp2 -t"zwinnym, kocim .* doskoczyc do .* i wyrzuc.* a z (potwornej rany).*" spec_ra_7_1 = /show_spec NOZ 7 8
+/def -mregexp -Fp2 -t"zwinnie uchyla sie przed .* i wykorzystujac .* (bardzo powazne obrazenia)" = /show_spec NOZ 7 8
+/def -mregexp -Fp2 -t"zrecznym.* cios .* rownoczes.* (koniec walki).*" spec_ra_8_1 = /show_spec NOZ 8 8
+/def -mregexp -Fp2 -t"^Unikajac .* blyskaw.* ofiary (uchodzi zycie).*" spec_ra_8_2 = /show_spec NOZ 8 8
+/def -mregexp -Fp2 -t"^Wykorz.* i oslabienie .* siln.* (ostatnie sily).*" spec_ra_8_3 = /show_spec NOZ 8 8
+/def -mregexp -Fp2 -t"^Unikajac uderzenia .* blyskawicznie .* (zakonczenia zywotu).*" spec_ra_8_4 = /show_spec NOZ 8 8
+
+
+; NPCE
+; ----
+
+; Mekan
+
+/eval /def -PBC%kolor_fight -Fp5 -t'.* robi szybki, wyuczony wypad, .*raniac cie .*' speckan_kolor_0
+/eval /def -PC%kolor_spec  -Fp5 -t'.* robi szybki, wyuczony wypad, .*raniac (?!cie ).*' speckan_kolor_1	
+ 
+/def -mregexp -Fp2 -t'robi szybki, wyuczony wypad, (nieznacznie raniac)' speckan_0 = /show_spec MEKAN 1 6
+/def -mregexp -Fp2 -t'robi szybki, wyuczony wypad, (lekko raniac)' speckan_1 = /show_spec MEKAN 2 6
+/def -mregexp -Fp2 -t'robi szybki, wyuczony wypad, (raniac)' speckan_2 = /show_spec MEKAN 3 6
+/def -mregexp -Fp2 -t'robi szybki, wyuczony wypad, (powaznie raniac)' speckan_3 = /show_spec MEKAN 4 6
+/def -mregexp -Fp2 -t'robi szybki, wyuczony wypad, (bardzo ciezko raniac)' speckan_4 = /show_spec MEKAN 5 6
+
+; Ryboludzie
+
+/eval /def -PBC%kolor_fight -Fp5 -t'W ostatniej chwili (wykonujesz szybki uskok|zauwazasz pedzaca).*' spec_ryba_kolor_0
+/eval /def -PC%kolor_spec  -Fp5 -t'.* w ostatniej chwili (wykonuje szybki uskok|zauwaza pedzaca).*' spec_ryba_kolor_1
+
+/def -mregexp -Fp2 -t'ostatniej chwili szczesliwie uskakuje' spec_ryba_0 = /show_spec RYBA 0 4
+/def -mregexp -Fp2 -t'ostatniej chwili wykonuje.* szybki' spec_ryba_1 = /show_spec RYBA 1 4
+/def -mregexp -Fp2 -t'ostatniej chwili zauwaza.* (bolesne obrazenia)' spec_ryba_2 = /show_spec RYBA 2 4
+/def -mregexp -Fp2 -t'ostatniej chwili zauwaza.* (rozlegle obrazenia)' spec_ryba_3 = /show_spec RYBA 3 4
+
+; Imperium
+
+;;/eval /def -PBC%kolor_fight -Fp5 -t'Nagle .* zamaszysty cios .* cie w .*' spec_imp_kolor0
+/eval /def -PC%kolor_spec -Fp5 -t'Nagle .* zamaszysty cios .* (?<!cie )w .*' spec_imp_kolor1
+
+/def -mregexp -Fp2 -t'Nagle .* zamaszysty cios .* lecz' spec_imp_0 = /show_spec IMP 0 6
+/def -mregexp -Fp2 -t'Nagle .* zamaszysty cios .* ktory ledwo muska' spec_imp_1 = /show_spec IMP 1 6
+/def -mregexp -Fp2 -t'Nagle .* zamaszysty cios .* ktory lekko rani' spec_imp_2 = /show_spec IMP 2 6
+/def -mregexp -Fp2 -t'Nagle .* zamaszysty cios .* ktory rani ' spec_imp_3 = /show_spec IMP 3 6
+/def -mregexp -Fp2 -t'Nagle .* zamaszysty cios .* ktory powaznie rani' spec_imp_4 = /show_spec IMP 4 6
+/def -mregexp -Fp2 -t'Nagle .* zamaszysty cios .* ktory bardzo ciezko rani' spec_imp_5 = /show_spec IMP 5 6
+/def -mregexp -Fp2 -t'Nagle .* zamaszysty cios .* ktory prawie smiertelnie rani' spec_imp_6 = /show_spec IMP 6 6
diff --git a/arkadia/start.tf b/arkadia/start.tf
new file mode 100644
index 0000000..3a08c0b
--- /dev/null
+++ b/arkadia/start.tf
@@ -0,0 +1,14 @@
+/load calendar.tf
+/load colors.tf
+/load combat.tf
+/load equipment.tf
+/load fishing.tf
+/load food.tf
+/load herbs.tf
+/load mail.tf
+/load money.tf
+/load movement.tf
+/load specs.tf
+/load statusbar.tf
+/load substitute.tf
+/load warn.tf
diff --git a/arkadia/statusbar.tf b/arkadia/statusbar.tf
new file mode 100644
index 0000000..c282722
--- /dev/null
+++ b/arkadia/statusbar.tf
@@ -0,0 +1,230 @@
+/visual on
+
+/eval /set statusline=$[strrep(decode_attr("-", "BCwhite"),columns())]
+/eval /set spacebreak=$[strrep(' ',columns()-141)]
+
+/def ack = \
+	/set alarm=$[decode_attr("none", "BCgreen")] %;\
+	/set bindings= %;\
+	/undef tempbind 
+
+/def -Fp2 -mregexp -t'tes( fizycznie|) w swietnej kondycji' kon1 = /set kondycja=$[strcat("[", decode_attr("                     ", "Cbggreen"), "] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) w dobrym stanie' kon2 = /set kondycja=$[strcat("[", decode_attr("                  ", "Cbggreen"), "   ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) lekko rann.' kon3 = /set kondycja=$[strcat("[", decode_attr("               ", "Cbggreen"), "      ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) rann.' kon4 = /set kondycja=$[strcat("[", decode_attr("            ", "Cbgyellow"), "         ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) w zlej kondycji' kon5 = /set kondycja=$[strcat("[", decode_attr("         ", "Cbgyellow"), "            ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) ciezko rann.' kon6 = /set kondycja=$[strcat("[", decode_attr("      ", "Cbgred"), "               ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) ledwo zyw.' kon7 = /set kondycja=$[strcat("[", decode_attr("      L E D W O      ", "BCbgred"),"]")]
+
+/def -Fp2 -mregexp -t'i jestes w pelni wypoczet.' zmecz0 = /eval /set zmeczenie=$[strcat("[", decode_attr("                    ", "Cbggreen"), "] ")]
+/def -Fp2 -mregexp -t'i jestes wypoczet.' zmecz1 = /set zmeczenie=$[strcat("[", decode_attr("                  ", "Cbggreen"), "  ] ")]
+/def -Fp2 -mregexp -t'i jestes troche zmeczon.' zmecz2 = /set zmeczenie=$[strcat("[", decode_attr("                ", "Cbggreen"), "    ] ")]
+/def -Fp2 -mregexp -t'i jestes zmeczon.' zmecz3 = /set zmeczenie=$[strcat("[", decode_attr("              ", "Cbggreen"), "      ] ")]
+/def -Fp2 -mregexp -t'i jestes bardzo zmeczon.' zmecz4 = /set zmeczenie=$[strcat("[", decode_attr("            ", "Cbggreen"), "        ] ")]
+/def -Fp2 -mregexp -t'i jestes nieco wyczerpan.' zmecz5 = /set zmeczenie=$[strcat("[", decode_attr("          ", "Cbggreen"), "          ] ")]
+/def -Fp2 -mregexp -t'i jestes wyczerpan.' zmecz6 = /set zmeczenie=$[strcat("[", decode_attr("        ", "Cbgyellow"), "            ] ")]
+/def -Fp2 -mregexp -t'i jestes bardzo wyczerpan.' zmecz7 = /set zmeczenie=$[strcat("[", decode_attr("      ", "Cbgyellow"), "              ] ")]
+/def -Fp2 -mregexp -t'i jestes wycienczon.' zmecz8 = /set zmeczenie=$[strcat("[", decode_attr("    ", "Cbgred"), "                ] ")]
+/def -Fp2 -mregexp -t'i jestes calkowicie wycienczon.' zmecz9 = /set zmeczenie=$[strcat("[", decode_attr("C A L K O W I C I E ", "BCbgred"), "]")]
+
+/def -Fp2 -mregexp -t'nie mozesz dalej podazac' zmecz10 = /set zmeczenie=$[decode_attr("[C A L K O W I C I E ]", "BCbgred")]
+/def -Fp2 -mregexp -t'Czujesz sie smiertelnie zmeczony' zmecz11 = /set zmeczenie=$[decode_attr("[C A L K O W I C I E ]", "BCbgred")]
+
+/def -Fp2 -mregexp -t'((Jest|Sa) tutaj ([^ ]*) (widoczne|widocznych) (wyjsc|wyjscia|wyjscie): |Trakt wiedzie na |W mroku nocy dostrzegasz .* widoczn(e|ych) wyjsc(|ia|ie): |Trakt rozgalezia sie na |W gestych ciemnosciach dostrzegasz trakt wiodacy na |W gestych ciemnosciach dostrzegasz, ze trakt rozgalezia sie na |Sciezka prowadzi tutaj w .* (kierunkach|kierunku): |Szlak.* tutaj w .* kierunk.*: |Wyjsc.* prowadz.* tutaj w .* (kierunkach|kierunku): |Tunel.* ciagn.* na |Wedrowke przez rozlegle laki mozesz kontynuowac udajac sie na )' widoczne_wyjscia = /_wyjscia_z_lokacji %{PR}
+
+/def _first = /result {1}
+/def _all_but_first = /result {-1}
+/def _wyjscia_z_lokacji = \
+	/quote -S /unset `/listvar -s czy_kierunek_jest* %;\
+	/let w_z_l=%{*}%; \
+	/let pnum=%{#}%; \
+	/let i=0%; \
+	/let w_zn_t=%; \
+	/let wyjscia_z_lokacji_t=%; \
+	/set idzna_ile_wyjsc=-1%; \
+	/if (strstr({w_z_l},".")>=0) \
+		/let w_z_l=$[strcat(substr({w_z_l},0,strlen({w_z_l})-1))]%; \
+	/endif%; \
+	/while /let i=$[i+1]%; /@test i<=pnum%; /do \
+		/let w_zn=$(/_first %{w_z_l})%; \
+		/if (strstr({w_zn},",")>=0) \
+			/let w_zn=$[strcat(substr({w_zn},0,strlen({w_zn})-1))]%; \
+		/endif%;\
+		/if ({w_zn}=~"polnoc")\
+			/if ({lwlast}=~"s")\
+				/set czy_kierunek_jest_n=$[decode_attr("|", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_n=$[decode_attr("|", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"poludnie")\
+			/if ({lwlast}=~"n")\
+				/set czy_kierunek_jest_s=$[decode_attr("|", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_s=$[decode_attr("|", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"wschod")\
+			/if ({lwlast}=~"w")\
+				/set czy_kierunek_jest_e=$[decode_attr("-", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_e=$[decode_attr("-", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"zachod")\
+			/if ({lwlast}=~"e")\
+				/set czy_kierunek_jest_w=$[decode_attr("-", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_w=$[decode_attr("-", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"polnocny-wschod")\
+			/if ({lwlast}=~"sw")\
+				/set czy_kierunek_jest_ne=$[decode_attr("/", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_ne=$[decode_attr("/", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"polnocny-zachod")\
+			/if ({lwlast}=~"se")\
+				/set czy_kierunek_jest_nw=$[decode_attr("\\", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_nw=$[decode_attr("\\", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"poludniowy-wschod")\
+			/if ({lwlast}=~"nw")\
+				/set czy_kierunek_jest_se=$[decode_attr("\\", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_se=$[decode_attr("\\", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"poludniowy-zachod")\
+			/if ({lwlast}=~"ne")\
+				/set czy_kierunek_jest_sw=$[decode_attr("/", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_sw=$[decode_attr("/", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"gora")\
+			/if ({lwlast}=~"d")\
+				/set czy_kierunek_jest_u=$[decode_attr("U", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_u=$[decode_attr("U", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"dol")\
+			/if ({lwlast}=~"u")\
+				/set czy_kierunek_jest_d=$[decode_attr("D", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_d=$[decode_attr("D", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"wyjscie") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"most") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"drzwi") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"schody") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"furta") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"ulica") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"sklep") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"prom") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"kaplica") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"karczma") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"schodki") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"mlyn") /set czy_kierunek_jest_inne=X%;\
+		/elseif ({w_zn}=~"piekarnia") /set czy_kierunek_jest_inne=X%;\
+		/else \
+			/let w_zn_t=?%; \
+		/endif%; \
+		/let wyjscia_z_lokacji_t=%{wyjscia_z_lokacji_t} %{w_zn_t} %; \
+		/let w_z_l=$(/_all_but_first %{w_z_l})%; \
+		/set idzna_ile_wyjsc=$[{idzna_ile_wyjsc} + 1]%; \
+	/done%; \
+	/set wyjscia_z_lokacji=%{wyjscia_z_lokacji_t}
+
+/def -mregexp -Fp2 -t'(Zrecznie zaslaniasz|Nie udaje ci sie zaslonic|Probujesz zaslonic|Na rozkaz .* (zaslaniasz|probujesz zaslonic)|Rzucasz sie na|Bezskutecznie rzucasz sie na)' = \
+	/_odliczaj_zaslone
+
+/def -mregexp -Fp2 -t'(Wydajesz rozkaz|Niestety, nikt nie|Glosno wypowiadasz rozkaz)' = \
+	/_odliczaj_rozkaz
+
+/def -mregexp -Fp2 -t'przymierza sie do odciecia ci drogi ucieczki' = \
+	/_odliczaj_blok
+
+/def -mregexp -Fp2 -t'Przymierzasz sie do odciecia' = \
+	/_odliczaj_blok_self
+
+/def -mregexp -Fp2 -t'zajmuje pozycje umozliwiajaca odciecie ci drogi ucieczki.' _blok = /set blokowanko=$[strcat("[", decode_attr("Z A B L O K O W A N O", "BCbgred"), "] ")]
+/def -mregexp -Fp2 -t'Zajmujesz pozycje umozliwiajaca odciecie' _blok_self = /set blokowanko=$[strcat("[", decode_attr("! B L O K U J E S Z !", "BCgreen"), "] ")]
+/def -mregexp -Fp2 -t'(Udaje ci sie ominac | omija twoj nieskuteczny )' _blok_off0 = /set blokowanko=$[strcat("[", decode_attr("                     ", "Cgreen"), "] ")]
+/def -mregexp -Fp2 -t'Uciekl.s .+' _blok_off1 = /set blokowanko=$[strcat("[", decode_attr("                     ", "Cgreen"), "] ")]
+/def -mregexp -Fp2 -t'przestaje.* odcinac .*ucieczki' _blok_off2 = /set blokowanko=$[strcat("[", decode_attr("                     ", "Cgreen"), "] ")]
+
+/def -mregexp -Fp2 -t'(probujesz|muskasz|ranisz|masakrujesz) .* (noga|stopa|lokciem|piescia|kolanem)' _bez_broni = \
+	/set alarm=$[decode_attr("WALKA BEZ BRONI","BCyellow")]
+
+/def -mregexp -Fp2 -t'(Powoli osuwasz sie na ziemie|Potem robi sie ciemno|Sila uderzania zamroczyla cie|czujesz, ze tracisz przytomnosc|Nagle czujesz jak na glowe spada ci ciezki sznur|Nagle czujesz, ze tracisz kontrole nad swym cialem)' _stun = \
+	/set warningstat=$[strcat("[", decode_attr(" --* OGLUSZENIE *-- ", "BCbgblue"), "] ")]
+
+/def -mregexp -p2 -t'(Powoli dochodzisz do siebie|Czujesz jak slabosc po zadanym ciosie w glowe mija|Udaje ci sie uwolnic z sieci|Powoli odzyskujesz swobode ruchow)' _nostun = \
+	/set warningstat=$[strcat("[", decode_attr("                    ", "Cgreen"), "] ")]
+
+/def -mregexp -Fp2 -t'.* wytraca ci (.*) z (rak|reki)' _wytracenie = \
+	/set warningstat=$[strcat("[", decode_attr(" --* WYTRACENIE *-- ", "BCbgred"), "] ")]
+
+/def -mregexp -Fp2 -t'Uderzenie jest tak silne, ze bezwiednie puszczasz' _wytracenie_parowanie = \
+	/set warningstat=$[strcat("[", decode_attr(" --* WYTRACENIE *-- ", "BCbgred"), "] ")]
+
+/def -mregexp -Fp2 -t'zakleszczajac lewakiem twoj .* Czujesz potezne szarpniecie' _wytracenie_lewak = \
+	/set warningstat=$[strcat("[", decode_attr(" --* WYTRACENIE *-- ", "BCbgred"), "] ")]
+
+/def -mregexp -p2 -t'lecac lagodnym lukiem, laduje na ziemi obok ciebie' _wytracenie_ozywek = \
+	/set warningstat=$[strcat("[", decode_attr(" DOBADZ BRONI -- F2 ", "BCbgblue"), "] ")] %;\
+	/def key_f2 = dobadz broni %%; /set warningstat=$[strcat("[", decode_attr("                    ", "Cgreen"), "] ")]
+
+/def -mregexp -p2 -t'Bol .* staje sie mniej odczuwalny.' _wytracenie_off = \
+	/set warningstat=$[strcat("[", decode_attr(" DOBADZ BRONI -- F2 ", "BCbgblue"), "] ")] %;\
+	/def key_f2 = dobadz broni %%; /set warningstat=$[strcat("[", decode_attr("                    ", "Cgreen"), "] ")]
+
+/def -mregexp -p2 -t'Na rozkaz .* rzucasz sie.*' _no_atak = \
+	/set rozkaz_ataku=
+
+/def _odliczaj_zaslone = \
+	/set nxt_zaslona=$[strcat(decode_attr("4", "BCred"))]%;\
+	/repeat -00:00:01.25 1 /set nxt_zaslona=$$[strcat(decode_attr("3", "BCred"))]%;\
+	/repeat -00:00:02.35 1 /set nxt_zaslona=$$[strcat(decode_attr("2", "BCyellow"))]%;\
+	/repeat -00:00:03.45 1 /set nxt_zaslona=$$[strcat(decode_attr("1", "BCyellow"))]%;\
+	/repeat -00:00:04.58 1 /set nxt_zaslona=$$[strcat(decode_attr("rdy", "BCgreen"))]
+
+/def _odliczaj_rozkaz = \
+	/set nxt_order=$[strcat(decode_attr("4", "BCred"))]%;\
+	/repeat -00:00:01 1 /set nxt_order=$$[strcat(decode_attr("3", "BCred"))]%;\
+	/repeat -00:00:02.40 1 /set nxt_order=$$[strcat(decode_attr("2", "BCyellow"))]%;\
+	/repeat -00:00:03.50 1 /set nxt_order=$$[strcat(decode_attr("1", "BCred"))]%;\
+	/repeat -00:00:04.60 1 /set nxt_order=$$[strcat(decode_attr("rdy", "BCgreen"))]
+
+/def _odliczaj_blok = \
+	/set blokowanko=$[strcat("[", decode_attr("                     ", "Cbgred"), "] ")]%;\
+	/repeat -00:00:01 1 /set blokowanko=$$[strcat("[", decode_attr("                ", "Cbgred"), "     ] ")]%;\
+	/repeat -00:00:02.40 1 /set blokowanko=$$[strcat("[", decode_attr("           ", "Cbgred"), "          ] ")]%;\
+	/repeat -00:00:03.50 1 /set blokowanko=$$[strcat("[", decode_attr("      ", "Cbgred"), "               ] ")]%;\
+	/repeat -00:00:04.60 1 /set blokowanko=$$[strcat("[", decode_attr(" ", "Cbgred"), "                    ] ")]
+
+/def _odliczaj_blok_self = \
+	/repeat -00:00:01 1 /set blokowanko=$$[strcat("[", decode_attr("      ", "Cbggreen"), "               ] ")]%;\
+	/repeat -00:00:02.40 1 /set blokowanko=$$[strcat("[", decode_attr("          ", "Cbggreen"), "           ] ")]%;\
+	/repeat -00:00:03.50 1 /set blokowanko=$$[strcat("[", decode_attr("               ", "Cbggreen"), "      ] ")]%;\
+	/repeat -00:00:04.60 1 /set blokowanko=$$[strcat("[", decode_attr("                    ", "Cbggreen"), " ] ")]
+
+/eval /status_add -c -r0 statusline::
+
+/eval /status_add -c -r1 "[  " czy_kierunek_jest_nw:1 czy_kierunek_jest_n:1 czy_kierunek_jest_ne:2 czy_kierunek_jest_u:1 " ] "::
+/eval /status_add -r1 "K: ":: kondycja:24
+/eval /status_add -r1 "Z: ":: zmeczenie:23
+/eval /status_add -r1 "Hide: ":: hide:3:BC%kolor_main
+/eval /status_add -r1 " Sneak: ":: sneak:4:BC%kolor_main
+/eval /status_add -r1 "Mail: ":: poczta_show:5:BC%kolor_main
+
+/eval /status_add -c -r2 "[  ":: czy_kierunek_jest_w:1  "#":1:BC%kolor_alarm czy_kierunek_jest_e:2 czy_kierunek_jest_d:1 " ] "::
+/eval /status_add -r2 "B: ":: blokowanko:24
+/eval /status_add -r2 "W: ":: warningstat:23
+/eval /status_add -r2 "Zasl: ":: nxt_zaslona:4
+/eval /status_add -r2 "Order: ":: nxt_order:4
+/eval /status_add -r2 "Warn: ":: alarm:20
+
+/eval /status_add -c -r3 "[  ":: czy_kierunek_jest_sw:1 czy_kierunek_jest_s:1 czy_kierunek_jest_se:2 czy_kierunek_jest_inne:1 " ] "::
+/eval /status_add -r3 "R: [ ":: rozkaz_ataku:46:BC%kolor_alarm
+/eval /status_add -r3 "]  Bind: ":: bindings:35:BC%kolor_info
+/eval /status_add -r3 spacebreak::
+/eval /status_add -r3 ownkills:3:BC%kolor_main
+/eval /status_add -r3 "/ ":: allkills:3:BC%kolor_main
diff --git a/arkadia/substitute.tf b/arkadia/substitute.tf
new file mode 100644
index 0000000..0a037c2
--- /dev/null
+++ b/arkadia/substitute.tf
@@ -0,0 +1,231 @@
+/def -mregexp -p2 -t'^Wyglada(|sz) na kompletnego zoltodzioba\.'                      _poziomy_doswiadczenia_1 = /_sub 1/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto stawia pierwsze kroki\.'             _poziomy_doswiadczenia_2 = /_sub 2/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto jeszcze niewiele widzial\.'          _poziomy_doswiadczenia_3 = /_sub 3/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto niewiele wie o swiecie\.'            _poziomy_doswiadczenia_4 = /_sub 4/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos niedoswiadczonego\.'                      _poziomy_doswiadczenia_5 = /_sub 5/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto widzial juz to i owo\.'              _poziomy_doswiadczenia_6 = /_sub 6/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto pewnie stapa po swiecie\.'           _poziomy_doswiadczenia_7 = /_sub 7/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto niejedno widzial\.'                  _poziomy_doswiadczenia_8 = /_sub 8/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto swoje przezyl\.'                     _poziomy_doswiadczenia_9 = /_sub 9/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos (?!bardzo |wielce )doswiadczonego\.'      _poziomy_doswiadczenia_10= /_sub 10/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto wiele przeszedl\.'                   _poziomy_doswiadczenia_11= /_sub 11/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto widzial kawal swiata\.'              _poziomy_doswiadczenia_12= /_sub 12/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos bardzo doswiadczonego\.'                  _poziomy_doswiadczenia_13= /_sub 13/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto zwiedzil caly swiat\.'               _poziomy_doswiadczenia_14= /_sub 14/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos wielce doswiadczonego\.'                  _poziomy_doswiadczenia_15= /_sub 15/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto widzial i doswiadczyl wszystkiego\.' _poziomy_doswiadczenia_16= /_sub 16/17@{n}
+/def -mregexp -p2 -t'^Wyglada(|sz) na osobe owiana legenda\.'                         _poziomy_doswiadczenia_17= /_sub 17/17@{n}
+
+/def -mregexp -PB -Fp2 -t'kompletnie nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro1 = /_sub_inside (1/14)
+/def -mregexp -PB -Fp2 -t'strasznie nieskuteczn[aye](?: w parowaniu ciosow|).$$'    _skutecznosc_bro2 = /_sub_inside (2/14)
+/def -mregexp -PB -Fp2 -t'bardzo nieskuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro3 = /_sub_inside (3/14)
+/def -mregexp -PB -Fp2 -t'raczej nieskuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro4 = /_sub_inside (4/14)
+/def -mregexp -PB -Fp2 -t'malo skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro5 = /_sub_inside (5/14)
+/def -mregexp -PB -Fp2 -t'niezbyt skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro6 = /_sub_inside (6/14)
+/def -mregexp -PB -Fp2 -t'raczej skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro7 = /_sub_inside (7/14)
+/def -mregexp -PB -Fp2 -t'dosyc skuteczn[aye](?: w parowaniu ciosow|).$$'      _skutecznosc_bro8 = /_sub_inside (8/14)
+/def -mregexp -PB -Fp2 -t'calkiem skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro9 = /_sub_inside (9/14)
+/def -mregexp -PB -Fp2 -t'bardzo skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro10 = /_sub_inside (10/14)
+/def -mregexp -PB -Fp2 -t'niezwykle skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro11 = /_sub_inside (11/14)
+/def -mregexp -PB -Fp2 -t'wyjatkowo skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro12 = /_sub_inside (12/14)
+/def -mregexp -PB -Fp2 -t'zabojczo skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro13 = /_sub_inside (13/14)
+/def -mregexp -PB -Fp2 -t'fantastycznie skuteczn[aye](?: w parowaniu ciosow|).$$'            _skutecznosc_bro14 = /_sub_inside (14/14)
+/def -mregexp -PB -Fp2 -t'wyjatkowo zle wywazon[aye]'            _wywazenie_bro1 = /_sub_inside (1/14)
+/def -mregexp -PB -Fp2 -t'bardzo zle wywazon[aye]'            _wywazenie_bro2 = /_sub_inside (2/14)
+/def -mregexp -PB -Fp2 -t'(?<!nie|bardzo )zle wywazon[aye]'            _wywazenie_bro3 = /_sub_inside (3/14)
+/def -mregexp -PB -Fp2 -t'bardzo kiepsko wywazon[aye]'            _wywazenie_bro4 = /_sub_inside (4/14)
+/def -mregexp -PB -Fp2 -t'(?<!bardzo) kiepsko wywazon[aye]'            _wywazenie_bro5 = /_sub_inside (5/14)
+/def -mregexp -PB -Fp2 -t'przyzwoicie wywazon[aye]'            _wywazenie_bro6 = /_sub_inside (6/14)
+/def -mregexp -PB -Fp2 -t'srednio wywazon[aye]'            _wywazenie_bro7 = /_sub_inside (7/14)
+/def -mregexp -PB -Fp2 -t'niezle wywazon[aye]'            _wywazenie_bro8 = /_sub_inside (8/14)
+/def -mregexp -PB -Fp2 -t'dosc dobrze wywazon[aye]'            _wywazenie_bro9 = /_sub_inside (9/14)
+/def -mregexp -PB -Fp2 -t'(?<!bardzo |dosc )dobrze wywazon[aye]'   _wywazenie_bro10 = /_sub_inside (10/14)
+/def -mregexp -PB -Fp2 -t'bardzo dobrze wywazon[aye]'            _wywazenie_bro11 = /_sub_inside (11/14)
+/def -mregexp -PB -Fp2 -t'doskonale wywazon[aye]'            _wywazenie_bro12 = /_sub_inside (12/14)
+/def -mregexp -PB -Fp2 -t'perfekcyjnie wywazon[aye]'            _wywazenie_bro13 = /_sub_inside (13/14)
+/def -mregexp -PB -Fp2 -t'genialnie wywazon[aye]'            _wywazenie_bro14 = /_sub_inside (14/14)
+/def -mregexp -PB -Fp2 -t'wyjatkowo zle przed(?: obrazeniami|)'    _skutecznosc_zbro1 = /_sub_inside (1/12)
+/def -mregexp -PB -Fp2 -t'bardzo zle przed(?: obrazeniami|)'       _skutecznosc_zbro2 = /_sub_inside (2/12)
+/def -mregexp -PB -Fp2 -t'(?<!nie)zle przed(?: obrazeniami|)'      _skutecznosc_zbro3 = /_sub_inside (3/12)
+/def -mregexp -PB -Fp2 -t'bardzo kiepsko przed(?: obrazeniami|)'   _skutecznosc_zbro4 = /_sub_inside (4/12)
+/def -mregexp -PB -Fp2 -t'(?<!bardzo )kiepsko przed(?: obrazeniami|)'  _skutecznosc_zbro5 = /_sub_inside (5/12)
+/def -mregexp -PB -Fp2 -t'przyzwoicie przed(?: obrazeniami|)'      _skutecznosc_zbro6 = /_sub_inside (6/12)
+/def -mregexp -PB -Fp2 -t'niezle przed(?: obrazeniami|)'           _skutecznosc_zbro7 = /_sub_inside (7/12)
+/def -mregexp -PB -Fp2 -t'dosc dobrze przed(?: obrazeniami|)'      _skutecznosc_zbro8 = /_sub_inside (8/12)
+/def -mregexp -PB -Fp2 -t'(?<!bardzo |dosc )dobrze przed(?: obrazeniami|)' _skutecznosc_zbro9 = /_sub_inside (9/12)
+/def -mregexp -PB -Fp2 -t'bardzo dobrze przed(?: obrazeniami|)'     _skutecznosc_zbro10 = /_sub_inside (10/12)
+/def -mregexp -PB -Fp2 -t'doskonale przed(?: obrazeniami|)'         _skutecznosc_zbro11 = /_sub_inside (11/12)
+/def -mregexp -PB -Fp2 -t'perfekcyjnie przed(?: obrazeniami|)'      _skutecznosc_zbro12 = /_sub_inside (12/12)
+
+/def odpornosci_stany = \
+	/if ({1} =~ "minimalna") \
+	/return 1 %;\
+	/elseif ({1} =~"znikoma") \
+	/return 2 %;\
+	/elseif ({1} =~"niewielka") \
+	/return 3 %;\
+	/elseif ({1} =~"czesciowa") \
+	/return 4 %;\
+	/elseif ({1} =~"polowiczna") \
+	/return 5 %;\
+	/elseif ({1} =~"znaczna") \
+	/return 6 %;\
+	/elseif ({1} =~"duza") \
+	/return 7 %;\
+	/elseif ({1} =~"bardzo duza") \
+	/return 8 %;\
+	/elseif ({1} =~"prawie pelna") \
+	/return 9 %;\
+	/elseif ({1} =~"calkowita") \
+	/return 10 %;\
+	/elseif ({1} =~"brak") \
+	/return 0 %;\
+	/endif
+
+/def odpornosci = \
+	/repeat -1 1 /purge __odpornosci_*  %;\
+	/repeat -1 1 /unset __odpornosci_* %;\
+	/purge __odpornosci_* %;\
+	/unset __odpornosci_* %;\
+	/def -ag -Fp2 -mregexp -t'^$$' __odpornosci_gag_empty %;\
+	/def -ag -Fp2 -mregexp -t'^Obrazenia fizyczne:$$' __odpornosci_gag_fizyczne %;\
+	/def -ag -Fp2 -mregexp -t'^Obrazenia od zywiolow:$$' __odpornosci_gag_elemental %;\
+	/def -ag -Fp2 -mregexp -t'^Obrazenia magiczne:$$' __odpornosci_gag_magic %;\
+	/def -ag -Fp2 -mregexp -t'^Inne:$$' __odpornosci_gag_misc %;\
+	/def -ag -Fp2 -mregexp -t'^ +ciete - (.*)' __odpornosci_ciete = \
+		/set __odpornosci_ciete_string=%%{P1}%%;\
+		/set __odpornosci_ciete_value=$[odpornosci_stany(__odpornosci_ciete_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +klute - (.*)' __odpornosci_klute = \
+		/set __odpornosci_klute_string=%%{P1}%%;\
+		/set __odpornosci_klute_value=$[odpornosci_stany(__odpornosci_klute_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +obuchowe - (.*)' __odpornosci_obuchowe = \
+		/set __odpornosci_obuchowe_string=%%{P1}%%;\
+		/set __odpornosci_obuchowe_value=$[odpornosci_stany(__odpornosci_obuchowe_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +bronie niemagiczne - (.*)' __odpornosci_bronieniemagiczne = \
+		/set __odpornosci_bronieniemagiczne_string=%%{P1}%%;\
+		/set __odpornosci_bronieniemagiczne_value=$[odpornosci_stany(__odpornosci_bronieniemagiczne_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +ogien - (.*)' __odpornosci_ogien = \
+		/set __odpornosci_ogien_string=%%{P1}%%;\
+		/set __odpornosci_ogien_value=$[odpornosci_stany(__odpornosci_ogien_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +powietrze - (.*)' __odpornosci_powietrze = \
+		/set __odpornosci_powietrze_string=%%{P1}%%;\
+		/set __odpornosci_powietrze_value=$[odpornosci_stany(__odpornosci_powietrze_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +woda - (.*)' __odpornosci_woda = \
+		/set __odpornosci_woda_string=%%{P1}%%;\
+		/set __odpornosci_woda_value=$[odpornosci_stany(__odpornosci_woda_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +ziemia - (.*)' __odpornosci_ziemia = \
+		/set __odpornosci_ziemia_string=%%{P1}%%;\
+		/set __odpornosci_ziemia_value=$[odpornosci_stany(__odpornosci_ziemia_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +czysta magia - (.*)' __odpornosci_puremagic = \
+		/set __odpornosci_puremagic_string=%%{P1}%%;\
+		/set __odpornosci_puremagic_value=$[odpornosci_stany(__odpornosci_puremagic_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +magia umyslu - (.*)' __odpornosci_mindmagic = \
+		/set __odpornosci_mindmagic_string=%%{P1}%%;\
+		/set __odpornosci_mindmagic_value=$[odpornosci_stany(__odpornosci_mindmagic_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +magia zycia - (.*)' __odpornosci_lifemagic = \
+		/set __odpornosci_lifemagic_string=%%{P1}%%;\
+		/set __odpornosci_lifemagic_value=$[odpornosci_stany(__odpornosci_lifemagic_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +magia smierci - (.*)' __odpornosci_deathmagic = \
+		/set __odpornosci_deathmagic_string=%%{P1}%%;\
+		/set __odpornosci_deathmagic_value=$[odpornosci_stany(__odpornosci_deathmagic_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +elektrycznosc - (.*)' __odpornosci_elektrycznosc = \
+		/set __odpornosci_elektrycznosc_string=%%{P1}%%;\
+		/set __odpornosci_elektrycznosc_value=$[odpornosci_stany(__odpornosci_elektrycznosc_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +kwas - (.*)' __odpornosci_kwas = \
+		/set __odpornosci_kwas_string=%%{P1}%%;\
+		/set __odpornosci_kwas_value=$[odpornosci_stany(__odpornosci_kwas_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +spaczen - (.*)' __odpornosci_spaczen = \
+		/set __odpornosci_spaczen_string=%%{P1}%%;\
+		/set __odpornosci_spaczen_value=$[odpornosci_stany(__odpornosci_spaczen_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +trucizna - (.*)' __odpornosci_trucizna = \
+		/set __odpornosci_trucizna_string=%%{P1}%%;\
+		/set __odpornosci_trucizna_value=$[odpornosci_stany(__odpornosci_trucizna_string)] %;\
+	/def -ag -Fp2 -mregexp -t'^ +zimno - (.*)' __odpornosci_zimno = \
+		/set __odpornosci_zimno_string=%%{P1}%%;\
+		/set __odpornosci_zimno_value=$[odpornosci_stany(__odpornosci_zimno_string)] %;\
+	/send odpornosci %;\
+	/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}%;\
+	/echo -p |			Fizyczne			|			Zywioly			 |			  Magia			  |			   Inne			   |%;\
+	/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}%;\
+	/echo -p |								|								|								 |								  |@{n}%;\
+	/let linia=$[strcat("| ","Ciete ",pad(__odpornosci_ciete_string,16)," [",pad(__odpornosci_ciete_value,2),"/10] | Ogien ",pad(__odpornosci_ogien_string,16)," [",pad(__odpornosci_ogien_value,2),"/10] | Czysta ",pad(__odpornosci_puremagic_string,16)," [",pad(__odpornosci_puremagic_value,2),"/10] | Elektrycznosc ",pad(__odpornosci_elektrycznosc_string,10)," [",pad(__odpornosci_elektrycznosc_value,2),"/10] |")] %;\
+	/echo -p %{linia} %;\
+	/let linia=$[strcat("| ","Klute ",pad(__odpornosci_klute_string,16)," [",pad(__odpornosci_klute_value,2),"/10] | Powietrze ",pad(__odpornosci_powietrze_string,12)," [",pad(__odpornosci_powietrze_value,2),"/10] | Umyslu ",pad(__odpornosci_mindmagic_string,16)," [",pad(__odpornosci_mindmagic_value,2),"/10] | Kwas ",pad(__odpornosci_kwas_string,19)," [",pad(__odpornosci_kwas_value,2),"/10] |")] %;\
+	/echo -p %{linia} %;\
+	/let linia=$[strcat("| ","Obuchy ",pad(__odpornosci_obuchowe_string,15)," [",pad(__odpornosci_obuchowe_value,2),"/10] | Woda ",pad(__odpornosci_woda_string,17)," [",pad(__odpornosci_woda_value,2),"/10] | Zycia ",pad(__odpornosci_lifemagic_string,17)," [",pad(__odpornosci_lifemagic_value,2),"/10] | Spaczen ",pad(__odpornosci_spaczen_string,16)," [",pad(__odpornosci_spaczen_value,2),"/10] |")] %;\
+	/echo -p %{linia} %;\
+	/let linia=$[strcat("| ","Niemagiczne ",pad(__odpornosci_bronieniemagiczne_string,10)," [",pad(__odpornosci_bronieniemagiczne_value,2),"/10] | Ziemia ",pad(__odpornosci_ziemia_string,15)," [",pad(__odpornosci_ziemia_value,2),"/10] | Smierci ",pad(__odpornosci_deathmagic_string,15)," [",pad(__odpornosci_deathmagic_value,2),"/10] | Trucizna ",pad(__odpornosci_trucizna_string,15)," [",pad(__odpornosci_trucizna_value,2),"/10] |")] %;\
+	/echo -p %{linia} %;\
+	/let linia=$[strcat("|                                |                                |                                 | Zimno ",pad(__odpornosci_zimno_string,18)," [",pad(__odpornosci_zimno_value,2),"/10] |")] %;\
+	/echo -p %{linia} %;\
+	/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}
+
+/def -mregexp -Fp2 -t' ledwo muska ' ldwmsk = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/if (regmatch("Nagle", {klew})) \
+	/else \
+		/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+		/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
+	/endif
+
+/def -mregexp -Fp2 -t' lekko rani ' lkrn = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/if (regmatch("Nagle", {klew})) \
+	/else \
+		/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+		/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
+	/endif
+
+/def -mregexp -Fp2 -t'(?<!lekko|powaznie|bardzo ciezko) rani ' rni = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/if (regmatch("Nagle", {klew})) \
+	/else \
+		/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+		/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
+	/endif
+
+/def -mregexp -Fp2 -t'( powaznie rani | bardzo ciezko rani | masakruje )' reszta = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/if (regmatch("Nagle", {klew})) \
+	/else \
+		/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+		/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
+	/endif
+
+/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz .+ zbija go .+' zbitka_czyms = \
+	/set ktobijelewa=$[toupper({P1},1)] %;\
+	/set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
+	/if (strlen({P2}) > 15) \
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
+	/else \
+		/eval /set %{ktobijelewa}_kogo_bije=%P2%;\
+	/endif
+
+/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz .+ udaje sie go uniknac.' unik_czyjs = \
+	/set ktobijelewa=$[toupper({P1},1)] %;\
+	/set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
+	/if (strlen({P2}) > 15) \
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
+	/else \
+		/eval /set %{ktobijelewa}_kogo_bije=%P2%;\
+	/endif
+
+/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz uderzenie zatrzymuje sie na je.+.' zbroja_czyjas = \
+	/set ktobijelewa=$[toupper({P1},1)] %;\
+	/set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
+	/if (strlen({P2}) > 15) \
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
+	/else \
+		/eval /set %{ktobijelewa}_kogo_bije=%P2%;\
+	/endif
diff --git a/arkadia/warn.tf b/arkadia/warn.tf
new file mode 100644
index 0000000..79e1b49
--- /dev/null
+++ b/arkadia/warn.tf
@@ -0,0 +1,55 @@
+/def -mregexp -Fp2 -t'przekazuje ci prowadzenie' warn_lead = \
+	/beep 1 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
+
+/def -mregexp -Fp2 -t'( wytraca ci | zakleszczajac lewakiem twoj.*)' warn_disarm = \
+	/beep 1 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- WYTRACENIE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- WYTRACENIE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- WYTRACENIE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
+
+/def -mregexp -Fp2 -t'Zakrztusiles sie' warn_poison = \
+	/beep 1 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- TRUJE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- TRUJE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- TRUJE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
+
+/def -mregexp -Fp2 -t'przymierza sie do odciecia ci drogi ucieczki' warn_blok_attempt = \
+	/beep 3 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PRZYMIERZA SIE DO BLOKU ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PRZYMIERZA SIE DO BLOKU ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PRZYMIERZA SIE DO BLOKU ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXX %;\
+	/echo
+
+/def -mregexp -Fp2 -t'zajmuje pozycje umozliwiajaca odciecie ci drogi ucieczki' warn_blok_done = \
+	/beep 3 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- ZABLOKOWANY ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- ZABLOKOWANY ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- ZABLOKOWANY ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
+
+/def -mregexp -Fp2 -t'(Powoli osuwasz sie na ziemie|Potem robi sie ciemno|Sila uderzania zamroczyla cie)' warn_stun = \
+	/beep 1 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- OGLUSZENIE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- OGLUSZENIE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- OGLUSZENIE ---@{n}@{BC%kolor_crit}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
+
+/def -mregexp -Fp2 -t'Nadchodzi Czas Apokalipsy' warn_apsa = \
+	/beep 3 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- APOKA ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- APOKA ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- APOKA ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
diff --git a/common/array.tf b/common/array.tf
new file mode 100644
index 0000000..9c06c51
--- /dev/null
+++ b/common/array.tf
@@ -0,0 +1,209 @@
+/def ustaw_indeksy = \
+	/for i 1 $$[{rozmiar_tablicy_druzyna}] /use_index druzyna $$[{i}]%;\
+	/for i 1 $$[{rozmiar_tablicy_druzyna_bie}] /use_index druzyna_bie $$[{i}]
+
+/def rozmiar_tablicy = \
+	/if ({#} < 1) \
+		/echo Musisz podac nazwe zmiennej!%; \
+		/echo Na przyklad : /rozmiar_tablicy druzyna%; \
+		/return %; \
+	/endif %; \
+	/if (if_array_exists({1})) \
+		/let PomocniczaZmienna=$(/eval /echo %%_array_%{1})%; \
+		/let tab=$[replace("|", " ", {PomocniczaZmienna})]%; \
+		/set rozmiar_tablicy_%{1}=$(/policz_tablice %{tab})%;\
+	/else \
+		/echo Nie ma takiej zmiennej '%{1}'. %; \
+	/endif
+
+/def use_index = \
+	/if ({#} != 2) \
+		/echo You must specify the name of an array, and number of index, which you want to check. %; \
+		/return %; \
+	/endif %; \
+	/if (if_array_exists({1})) \
+		/let rozmiar_tablicy=$(/policz_tablice $[replace("|", " ", $(/eval /echo %%_array_%{1}))])%; \
+			/uzyj_indeksu %{2} %{1} $[replace("|", " ", $(/eval /echo %%_array_%{1}))]%; \
+	/else \
+		/echo There is no array with name '%{1}'!%; \
+	/endif
+
+/def uzyj_indeksu = \
+	/let _nr=%{1}%; \
+	/let _ta=%{2}%; \
+	/shift %{1}%; \
+	/shift %; \
+	/set __%{_ta}_pozycja_%{_nr}=%{1}
+/if ($(/list mesg) =~ NULL) \
+	/def mesg = \
+		/if (!getopts("iw", "")) /return 0%%; /endif %%; \
+		/if ({opt_i}) \
+			/test echo(strcat("@{BCgreen}####@{n}", " @{Cyellow}", {*}), "", 1) %%; \
+		/elseif ({opt_w}) \
+			/test echo(strcat("@{BCgreen}####@{n}", " @{BCred}", {*}), "", 1) %%; \
+		/else \
+			/test echo(strcat("@{BCgreen}####@{n}", " ", {*}), "", 1) %%; \
+		/endif %; \
+/endif
+
+/set biblioteka_tablic_wersja=1.1
+/set last_update_tablicy=2005-10-04
+
+/def podziel_linie = \
+	/let string=%{1}%;\
+	/let dlugosc=%{2}%;\
+	/if (strlen(str) > {dlugosc}) \
+		/mesg -w String ma wiecej znakow niz okreslona ich dlugosc. %; \
+		/return %; \
+	/endif %; \
+	/let dlugosc_bez=$[{dlugosc} - strlen(string)]%; \
+	/let dlugosc_bez_podzial=$[expr({dlugosc_bez} / 2)]%; \
+	/let string_koncowy=|$[strrep(" ", {dlugosc_bez_podzial})]%{string}$[strrep(" ", {dlugosc_bez_podzial})]|%; \
+	/echo -p @{Cgreen}%{string_koncowy}
+
+/def ?array = /array_help
+
+/def array_help = \
+	/echo -p @{Cgreen}+$[strrep("-", 78)]+ %; \
+	/test podziel_linie("Biblioteka tablic do TF'a,  by volus", 78)%; \
+	/test podziel_linie(strcat("Version  ", biblioteka_tablic_wersja), 78)%; \
+	/test podziel_linie(strcat("Ostatnia aktualizacja biblioteki: ", last_update_tablicy), 78)%; \
+	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
+	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
+	/echo -p @{Cgreen}|  * /add_array nazwa elem1 elem2 elem3 elem4 ...							  |%; \
+	/echo -p @{Cgreen}|		 Tworzy tablice nazwana 'nazwa' z elementow 'elem1 elem2' itp.		|%; \
+	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
+	/echo -p @{Cgreen}|  * /add_index nazwa elem1 elem2 elem4 elem4 ...							  |%; \
+	/echo -p @{Cgreen}|		 Dodaje element(y) do tablicy 'nazwa'								 |%; \
+	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
+	/echo -p @{Cgreen}|  * /sizeof_array nazwa													   |%; \
+	/echo -p @{Cgreen}|		 Zwraca ilosc elementow tablicy 'nazwa'							   |%; \
+	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
+	/echo -p @{Cgreen}|  * /check_index nazwa nr_indeksu											 |%; \
+	/echo -p @{Cgreen}|		 Zwraca wartosc 'nr_indeksu' z tablicy 'nazwa'						|%; \
+	/echo -p @{Cgreen}|$[strrep(" ", 78)]| %; \
+	/echo -p @{Cgreen}|  * /member_array elem tablica												|%; \
+	/echo -p @{Cgreen}|		 Sprawdza, czy 'elem' jest elementem tablicy 'tablica'				|%; \
+	/echo -p @{Cgreen}+$[strrep("-", 78)]+
+
+/def if_array_exists = \
+	/if ($(/listvar -s ogolne_%{*})) \
+		/result 1%; \
+	/endif
+
+/def add_array = \
+	/if ({#} < 2) \
+		/mesg -i Musisz podac nazwe tablicy i przynajmniej jeden jej element %; \
+		/mesg -i Np: /add_array druzyna jarek marek franek%; \
+		/return %; \
+	/endif %; \
+	/if (regmatch("[()|]", {*})) \
+		/mesg -i Nazwa tablicy oraz elementy nie moga miec w sobie znakow '(', ')', oraz '|'.%; \
+		/mesg -w Uwaga! 1 element liczony jest jako 1 wyraz, liczba badz litera!%; \
+		/mesg -w Wiec spacja liczona jest jako koniec elementu tablicy.%; \
+		/return %; \
+	/endif %; \
+	/set _array_%{1}=$[replace(" ", "|", {-1})]|
+
+/def add_index = \
+	/if ({#} < 2) \
+		/mesg -i Musisz podac nazwe tablicy i przynajmniej jeden jej element do dodania.%; \
+		/mesg -i Np: /add_index druzyna krzysztof%; \
+		/mesg -i Doda 'krzysztof' do tablicy 'druzyna'%; \
+		/return %; \
+	/endif %; \
+	/if (regmatch("[()|]", {*})) \
+		/mesg -i Nazwa tablicy oraz elementy nie moga miec w sobie znakow '(', ')', oraz '|'.%; \
+		/return %; \
+	/endif %; \
+	/if (if_array_exists({1})) \
+		/set _array_%{1}=$(/eval /echo %%_array_%{1})$[replace(" ", "|", {-1})]|%;\
+	/else \
+		/mesg -w Tablica '%{1}' nie istnieje!%; \
+	/endif
+
+/def sizeof_array = \
+	/if ({#} < 1) \
+		/mesg -i Musisz podac nazwe tablicy.%; \
+		/mesg -i Np: /sizeof_array druzyna%; \
+		/return %; \
+	/endif %; \
+	/if (if_array_exists({1})) \
+		/let PomocniczaZmienna=$(/eval /echo %%_array_%{1})%; \
+		/let tab=$[replace("|", " ", {PomocniczaZmienna})]%; \
+		/let wynik=$(/policz_tablice %{tab})%; \
+		/mesg -i Tablica '%{1}' ma %{wynik} elementow. %; \
+	/else \
+		/mesg -w Nie ma tablicy nazwanej '%{1}'. %; \
+	/endif
+
+/def policz_tablice = \
+	/let k_z=0%; \
+	/while ({#}) \
+		/test ++k_z%; \
+		/shift %; \
+	/done %; \
+	/result %{k_z}
+
+/def check_index = \
+	/if ({#} != 2) \
+		/mesg -i Musisz podac nazwe tablicy oraz numer indeksu, jaki mam sprawic. %; \
+		/mesg -i Jesli podasz indeks '0', Wyswietle wszystkie elementy. %; \
+		/return %; \
+	/endif %; \
+	/if (if_array_exists({1})) \
+		/let rozmiar_tablicy=$(/policz_tablice $[replace("|", " ", $(/eval /echo %%_array_%{1}))])%; \
+		/if ({2} < 0) \
+			/mesg -w Indeks musi byc wiekszy od 0. Jesli chcesz abym wyswietlil wszystkie elementy %; \
+			/mesg -w Podaj 0 jaki drugi argument%; \
+			/return %; \
+		/elseif ({2} != 0 & {2} > {rozmiar_tablicy}) \
+			/mesg -w Indeks wykracza poza tablice! Ta tablica ma %{rozmiar_tablicy} elementow!%; \
+			/return %; \
+		/endif%; \
+		/if ({2} == 0) \
+			/pokaz_wszystkie_indeksy_tablicy $[replace("|", " ", $(/eval /echo %%_array_%{1}))]%; \
+		/else \
+			/pokaz_indeks %{2} %{1} $[replace("|", " ", $(/eval /echo %%_array_%{1}))]%; \
+		/endif %; \
+	/else \
+		/mesg -w Nie ma takiej tablicy '%{1}'!%; \
+	/endif
+
+/def pokaz_wszystkie_indeksy_tablicy = \
+	/let i_t=0%; \
+	/while ({#}) \
+		/test ++i_t%; \
+		/echo %{i_t}: %{1}%; \
+		/shift %; \
+	/done
+
+/def pokaz_indeks = \
+	/let _nr=%{1}%; \
+	/let _ta=%{2}%; \
+	/shift %{1}%; \
+	/shift %; \
+	/echo %{1} %;\
+	/echo Index %{_nr} of an array '%{_ta}' is '%{1}'
+
+
+/def member_array = \
+	/let _ind=%{1}%; \
+	/let _arr=%{2}%; \
+	/if (if_array_exists(_arr)) \
+		/if (regmatch(substr(_ind, "\|"), _arr)) \
+			/mesg -i %_ind jest elementem tablicy '%_arr'. %; \
+		/else \
+			/mesg -w %_ind nie jest elementem tablicy '%_arr'! %; \
+		/endif %; \
+	/else \
+		/mesg -w Tablica '%_arr' nie istnieje!%; \
+	/endif
+
+;/def remove_index = \
+;	/let _arr=%{1}%; \
+;	/let _ind=%{2}%; \
+;	/if (if_array_exists(_arr)) \
+;		/let _inx=$(/check_index %_arr %_ind)%; \
+; /remove_index name nr_of_index
+; Not impleted yet :)
diff --git a/common/binds.tf b/common/binds.tf
new file mode 100644
index 0000000..20891f7
--- /dev/null
+++ b/common/binds.tf
@@ -0,0 +1,120 @@
+/def key_nkpEnt = kondycja wszystkich
+/def key_nkp0 = stan
+
+/def dobind = \
+	%{*} %;\
+	/unset bindings %;\
+	/set bindings= %;\
+	/undef tempbind
+
+/def tbind = \
+	/if ( {bindings} =~ {*} ) \
+		/true %;\
+	/else \
+		/set bindings %{*} %;\
+		/def -b'`' tempbind = /dobind %{*} %;\
+		/if ( {ktype} =~ "mac" ) \
+			/def key_nkp- = /dobind %{*} %;\
+		/endif %;\
+		/echo -p @{BC%kolor_info}>>>@{n} %;\
+		/beep 1 %;\
+	/endif
+
+/def f1 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f1  -  @{BC%kolor_info}%{f1} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f1 = /echo -p #@{BC%kolor_info}#@{n}# Not set. %;\
+		/set f1 empty %;\
+	/else \
+		/def key_f1 = %{*} %;\
+		/set f1 %{*} %;\
+	/endif
+
+/def f2 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f2  -  @{BC%kolor_info}%{f2} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f2 = /echo -p #@{BC%kolor_info}#@{n}# Not set. %;\
+		/set f2 empty %;\
+	/else \
+		/def key_f2 = %{*} %;\
+		/set f2 %{*} %;\
+	/endif
+
+/def f3 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f3  -  @{BC%kolor_info}%{f3} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f3 = /echo -p #@{BC%kolor_info}#@{n}# Not set. %;\
+		/set f3 empty %;\
+	/else \
+		/def key_f3 = %{*} %;\
+		/set f3 %{*} %;\
+	/endif
+
+/def f4 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f4  -  @{BC%kolor_info}%{f4} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f4 = /echo -p #@{BC%kolor_info}#@{n}# Not hunting anyone. %;\
+		/set f4 empty %;\
+	/else \
+		/def key_f4 = %{*} %;\
+		/set f4 %{*} %;\
+	/endif
+
+/def f5 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f5  -  @{BC%kolor_info}%{f5} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f5 = /echo -p #@{BC%kolor_info}#@{n}# Not set. %;\
+		/set f5 empty %;\
+	/else \
+		/def key_f5 = %{*} %;\
+		/set f5 %{*} %;\
+	/endif
+
+/def f6 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f6  -  @{BC%kolor_info}%{f6} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f6 = /echo -p #@{BC%kolor_info}#@{n}# Not set. %;\
+		/set f6 empty %;\
+	/else \
+		/def key_f6 = %{*} %;\
+		/set f6 %{*} %;\
+	/endif
+
+/def f7 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f7  -  @{BC%kolor_info}%{f7} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f7 = /echo -p #@{BC%kolor_info}#@{n}# Not set. %;\
+		/set f7 empty %;\
+	/else \
+		/def key_f7 = %{*} %;\
+		/set f7 %{*} %;\
+	/endif
+
+/def f8 = \
+	/if ( {1} =~ "" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# f8  -  @{BC%kolor_info}%{f8} %;\
+	/elseif ( {1} =~ "empty" ) \
+		/def key_f8 = /echo -p #@{BC%kolor_info}#@{n}# Not set. %;\
+		/set f8 empty %;\
+	/else \
+		/def key_f8 = %{*} %;\
+		/set f8 %{*} %;\
+	/endif
+
+/def bs = \
+	/echo -p #@{BC%kolor_info}#@{n}# ------------ %;\
+	/echo -p #@{BC%kolor_info}#@{n}# f2  -  @{BC%kolor_info}%{f2}@{n} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# f3  -  @{BC%kolor_info}%{f3}@{n} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# f4  -  @{BC%kolor_info}%{f4}@{n} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# ------------ %;\
+	/echo -p #@{BC%kolor_info}#@{n}# f5  -  @{BC%kolor_info}%{f5} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# f6  -  @{BC%kolor_info}%{f6} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# f7  -  @{BC%kolor_info}%{f7} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# f8  -  @{BC%kolor_info}%{f8}
diff --git a/common/combat.tf b/common/combat.tf
new file mode 100644
index 0000000..e65ec4c
--- /dev/null
+++ b/common/combat.tf
@@ -0,0 +1,112 @@
+/def comp = \
+	/send porownaj sile z %{*}%;\
+	/send porownaj zrecznosc z %{*} %;\
+	/send porownaj wytrzymalosc z %{*}
+
+/def cel = \
+	/if ( {*} !~  NULL )\
+		/set cel %{*} %;\
+	/endif %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Atak na: @{BC%kolor_info}%cel@{n}, mode: @{BC%kolor_info}%opis_ataku@{n} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Drugi atak na: @{BC%kolor_info}%cel2@{n}, mode: @{BC%kolor_info}%opis_ataku@{n}
+
+/def cel2 = \
+	/if ( {*} !~  NULL )\
+		/set cel2 %{*} %;\
+	/endif %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Atak na: @{BC%kolor_info}%cel@{n}, mode: @{BC%kolor_info}%opis_ataku@{n} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Drugi atak na: @{BC%kolor_info}%cel2@{n}, mode: @{BC%kolor_info}%opis_ataku@{n}
+
+/def am = \
+	/if ( {1} =~ "1" ) \
+		/set attackmode=1 %;\
+		/set opis_ataku atak %;\
+	/elseif ( {1} =~ "2") \
+		/set attackmode=2 %;\
+		/set opis_ataku wskazanie - atak %;\
+	/elseif ( {1} =~ "3") \
+		/set attackmode=3 %;\
+		/set opis_ataku atak - wskazanie - rozkaz %;\
+	/elseif ( {1} =~ "4") \
+		/set attackmode=4 %;\
+		/set opis_ataku lamanie - atak - wskazanie - rozkaz %;\
+	/elseif ( {1} =~ "5") \
+		/set attackmode=5 %;\
+		/set opis_ataku atak - przedstawienie - wskazanie - rozkaz %;\
+	/elseif ( {1} =~ "6") \
+		/set attackmode=6 %;\
+		/set opis_ataku lamanie - atak - przedstawienie - wskazanie - rozkaz %;\
+	/elseif ( {1} =~ "help" )\
+		/echo -p #@{BC%kolor_info}#@{n}# --------------------------------------------------------@{n} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# 1:                         atak                         @{n} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# 2:                   wskazanie - atak                   @{n} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# 3:              atak - wskazanie - rozkaz               @{n} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# 4:          lamanie - atak - wskazanie - rozkaz         @{n} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# 5:       atak - przedstawienie - wskazanie - rozkaz     @{n} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# 6:  lamanie - atak - przedstawienie - wskazanie - rozkaz@{n} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# --------------------------------------------------------@{n} %;\
+	/else \
+		/echo -p #@{BC%kolor_info}#@{n}# Typ ataku: @{BC%kolor_info}%opis_ataku@{n} %;\
+	/endif
+
+/alias x /_atak %{*}
+/alias x1 /_atak %{cel}
+/alias x2 /_atak drugiego %{cel}
+/alias x3 /_atak trzeciego %{cel}
+/alias x4 /_atak czwartego %{cel}
+/alias x5 /_atak piatego %{cel}
+/alias x6 /_atak szostego %{cel}
+/alias c1 /_atak %{cel2}
+/alias c2 /_atak drugiego %{cel2}
+/alias c3 /_atak trzeciego %{cel2}
+/alias c4 /_atak czwartego %{cel2}
+/alias c5 /_atak piatego %{cel2}
+/alias c6 /_atak szostego %{cel2}
+/alias v1 przelam obrone %{cel}
+/alias v2 przelam obrone drugiego %{cel}
+/alias v3 przelam obrone trzeciego %{cel}
+/alias v4 przelam obrone czwartego %{cel}
+/alias v5 przelam obrone piatego %{cel}
+/alias v6 przelam obrone szostego %{cel}
+
+/def _war_binds = \
+	/def key_f9 = /_atak %%{cel} %;\
+	/def key_f10 = /_atak %%{cel2} %;\
+	/def key_esc_f9 = /send przelam obrone %%{cel} %;\
+	/def key_esc_f10 = /send przelam obrone %%{cel2} %;\
+	/def key_f11 = /send przestan walczyc %;\
+	/if ( {ktype} =~ "mac" ) \
+		/def key_f16 = /_atak %%{cel} %;\
+		/def key_f17 = /_atak %%{cel2} %;\
+		/def key_esc_f16 = /send przelam obrone %%{cel} %;\
+		/def key_esc_f17 = /send przelam obrone %%{cel2} %;\
+		/def key_f18 = /send przestan walczyc %;\
+	/endif	
+/_war_binds
+
+/def -mregexp -Fp2 -t'.* wydaje ci rozkaz ataku na (.*).' _order_atak = \
+	/set atakowany=$[tolower({P1})] %;\
+	/echo %;\
+	/echo -p @{BC%kolor_atak}>>> ROZKAZ ATAKU NA @{n}%atakowany@{BC%kolor_atak} <<<@{n} %;\
+	/echo %;\
+	/set rozkaz_ataku=%{atakowany} %;\
+	/def -b'[' _atakporozkazie = zabij %atakowany %%; /set rozkaz_ataku= %;\
+	/def -b']' =  przelam obrone %atakowany
+
+/def -mregexp -Fp2 -t'(.*) wydaje .*rozkaz zasloniecia (.*).' _order_zaslona = \
+	/echo %;\
+	/echo -p @{BC%kolor_atak}>>> @{n}%P1@{BC%kolor_atak} chce zasloniecia @{n}%P2@{BC%kolor_atak} <<< %;\
+	/echo
+
+/def -mregexp -Fp2 -t'Atakujesz' atakujesz = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t' atakuje ' atakuje_ktos = /beep 1
+/def -mregexp -Fp2 -t' probuje zaatakowac .* droge' atakuje_ktos_z_zaslona = /beep 1
+/def -mregexp -Fp2 -t' przebijajac sie przez (jego|jej) ' atakuje_przebicie = /beep 1
+
+/def -mregexp -Fp2 -t'.* atakuj(e|a) cie(!|bie!)' mnie_atakuja0 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'stajesz na.*drodze' mnie_atakuja1 = /beep 1 %; /sneak off
+/def -mregexp -Fp2 -t'przebijajac sie przez twoja' mnie_atakuja2 = /beep 1 %; /sneak off
+
+/def -mregexp -Fp2 -t'powaznie [a-z]+ cie ' cios_warn0 = /beep 1
+/def -mregexp -Fp2 -t'bardzo ciezko rani.* cie ' cios_warn1 = /beep 1
+/def -mregexp -Fp2 -t'masakruj.* cie ' cios_warn2 = /beep 1
diff --git a/common/counter.tf b/common/counter.tf
new file mode 100644
index 0000000..9bccc2b
--- /dev/null
+++ b/common/counter.tf
@@ -0,0 +1,114 @@
+; by Ingwar
+
+/def -Fp2 -mregexp -t'Zabil.s ' _zabiles_cosik_licz = %;\
+ 	/_dodaj_do_zabitych %{PR}%;\
+	/substitute -p @{BC%kolor_crit}%{PL}%{P0}%{PR} (%{ownkills}/%{allkills})@{n}
+
+/def -Fp2 -mregexp -t'( | \\(.*\\) )zabil.' _ktos_zabil_cosik_licz = \
+	/_dodaj_do_kto_zabil %{PL} %;\
+	/_dodaj_do_poleglych %{PR}
+
+/def _dodaj_do_zabitych = \
+	/if (strstr({L1},".")>=0) \
+		/let zabity=$[substr({L1},0,strlen({L1})-1)] %;\
+	/else \
+		/let zabity=%{L1} %;\
+	/endif %;\
+	/let zabity=$[substr({zabity},0,13)] %;\
+	/if ($(/listvar -s allkilled_%{zabity})=~NULL) \
+		/set ownkilled_%{zabity}=0 %;\
+		/set allkilled_%{zabity}=0 %;\
+	/endif %;\
+	/test ++ownkilled_%{zabity} %;\
+	/test ++allkilled_%{zabity} %;\
+	/test ++ownkills%;\
+	/test ++allkills
+
+/def _dodaj_do_poleglych = \
+	/if (strstr({L1},".")>=0) \
+		/let zabity=$[substr({L1},0,strlen({L1})-1)] %;\
+	/else \
+		/let zabity=%{L1} %;\
+	/endif %;\
+	/let zabity=$[substr({zabity},0,13)] %;\
+	/if ($(/listvar -s allkilled_%{zabity})=~NULL) \
+		/set ownkilled_%{zabity}=0 %;\
+		/set allkilled_%{zabity}=0 %;\
+	/endif %;\
+	/test ++allkilled_%{zabity} %;\
+	/test ++allkills
+
+/def _dodaj_do_kto_zabil = \
+	/if (strstr({L1},".")>=0) \
+		/let zabity=$[substr({L1},0,strlen({L1})-1)] %;\
+	/else \
+		/let zabity=%{L1} %;\
+	/endif %;\
+	/let zabity=$[substr({zabity},0,13)] %;\
+	/if ($(/listvar -s killer_%{zabity})=~NULL) \
+		/set killer_%{zabity}=0 %;\
+	/endif %;\
+	/test ++killer_%{zabity}
+
+/def zabici = \
+	/let po_ile=%{1} %;\
+	/if ({po_ile} < 1) \
+		/let po_ile=2%;\
+	/endif  %;\
+	/let linia1=$[strrep("-------------------------+",po_ile-1)] %;\
+	/let linia= %;\
+	/let cc=0 %;\
+	/echo -p #@{BC%kolor_info}#@{n}# +%{linia1}-------------------------+%;\
+	/let zabici_lista=$(/listvar -s -mglob allkilled_*) %;\
+	/let zabici_lista=$[strcat(zabici_lista," end")] %;\
+	/while /let i=$[strstr(zabici_lista," ")]%; /@test i > 0%; /do \
+		/let ktory_var=$[substr(zabici_lista,0,i)] %;\
+		/let ktory_ile=$(/eval /listvar -v %{ktory_var}) %;\
+		/let ktory_nazwa=$[substr(ktory_var,strrchr(ktory_var,"_")+1)] %;\
+		/let ktory_ile2=$(/eval /listvar -v ownkilled_%{ktory_nazwa}) %;\
+		/if (cc<{po_ile}) \
+			/let linia=$[strcat(linia,"|",pad(ktory_nazwa,13),": (",pad(ktory_ile2,3),"/",pad(ktory_ile,4),")")] %;\
+			/test ++cc %;\
+			/let zabici_lista=$[substr(zabici_lista,i+1)] %;\
+		/else \
+			/echo -p #@{BC%kolor_info}#@{n}# %{linia}| @{n}%;\
+			/let cc=0 %;\
+			/let linia= %;\
+		/endif %;\
+	/done %;\
+	/if (cc>0) \
+		/echo -p #@{BC%kolor_info}#@{n}# $[strcat(linia,strrep("|             : (        )",po_ile-cc),"|")] @{n}%;\
+	/endif %;\
+	/let linia=$[strcat("(@{BCmagenta}  ",pad(ownkills,6),"@{n} |")] %;\
+	/if (wrapsize > {po_ile}*27+6) \
+		/let linia=$[strcat(linia,"@{n}")] %;\
+	/endif %;\
+	/echo -p #@{BC%kolor_info}#@{n}# +%{linia1}----- W sumie: %{linia}  %;\
+	/echo -p #@{BC%kolor_info}#@{n}# +%{linia1}-------------------------+%;\
+	/let linia= %;\
+	/let cc=0 %;\
+	/let zabici_lista=$(/listvar -s -mglob killer_*) %;\
+	/let zabici_lista=$[strcat(zabici_lista," end")] %;\
+	/while /let i=$[strstr(zabici_lista," ")]%; /@test i > 0%; /do \
+		/let ktory_var=$[substr(zabici_lista,0,i)] %;\
+		/let ktory_ile=$(/eval /listvar -v %{ktory_var}) %;\
+		/let ktory_nazwa=$[substr(ktory_var,strrchr(ktory_var,"_")+1)] %;\
+		/if (cc<{po_ile}) \
+			/let linia=$[strcat(linia,"|",pad(ktory_nazwa,13),": (     ",pad(ktory_ile,3),")")] %;\
+			/test ++cc %;\
+			/let zabici_lista=$[substr(zabici_lista,i+1)] %;\
+		/else \
+			/echo -p #@{BC%kolor_info}#@{n}# %{linia}| @{n}%;\
+			/let cc=0 %;\
+			/let linia= %;\
+		/endif %;\
+	/done %;\
+	/if (cc>0) \
+		/echo -p #@{BC%kolor_info}#@{n}# $[strcat(linia,strrep("|             : (        )",po_ile-cc),"|")] @{n}%;\
+	/endif %;\
+	/let linia=$[strcat("(@{BCmagenta}  ",pad(allkills,6),"@{n} |")] %;\
+	/if (wrapsize > {po_ile}*27+6) \
+		/let linia=$[strcat(linia," @{n}")] %;\
+	/endif %;\
+	/echo -p #@{BC%kolor_info}#@{n}# +%{linia1}----- W sumie: %{linia}  %;\
+	/echo -p #@{BC%kolor_info}#@{n}# +%{linia1}-------------------------+@{n}
diff --git a/common/equipment.tf b/common/equipment.tf
new file mode 100644
index 0000000..fc67ca5
--- /dev/null
+++ b/common/equipment.tf
@@ -0,0 +1,172 @@
+/def get = \
+	/send wez %{*} %;\
+	/send wez %{*} z ciala %;\
+	/send wez %{*} z drugiego ciala %;\
+	/send wez %{*} z trzeciego ciala %;\
+	/send wez %{*} z czwartego ciala %;\
+	/send wez %{*} z piatego ciala %;\
+	/send wez %{*} z szostego ciala %;\
+	/send wez %{*} z siodmego ciala %;\
+	/send wez %{*} z osmego ciala
+
+/def -Fp2 -ar -t'* rozpada sie!*' = /beep 1
+/def -Fp2 -ar -t'* peka!*' = /beep 1
+
+/def -mregexp -p2 -t'bierze twoj.' = /set moje on
+/def -mregexp -p2 -t'konczy prace.$' = \
+	/if ( {moje} =~ "on" )\
+		/tbind do_kowal %;\
+	/endif	
+
+/def kowal = \
+	/if ( {pack} =~ "on" )\
+		/zp monety %;\
+	/endif%;\
+	/do_kowal
+
+/def do_kowal = \
+	/def -ag -p2 -t'*jest pochloniety*nie wypada*' _kowal_gag_0 %;\
+	/def -ag -p2 -t'*Nie masz niczego takiego*' _kowal_gag_1 %;\
+	/def -ag -p2 -t'*Juz dzierzysz*' _kowal_gag2 %;\
+	/def -ag -p2 -t'*masz*na plecach*' _kowal_gag3 %;\
+	/set moje off %;\
+	/send naostrz bron %;\
+	/if ( {dual} =~ "on" ) \
+		/send naostrz druga bron %;\
+	/endif %;\
+	/send napraw zbroje %;\
+	/send napraw druga zbroje %;\
+	/send napraw trzecia zbroje %;\
+	/send napraw czwarta zbroje %;\
+	/send napraw piata zbroje %;\
+	/send napraw szosta zbroje %;\
+	/send napraw siodma zbroje %;\
+	/send napraw osma zbroje %;\
+	/send napraw dziewiata zbroje %;\
+	/send napraw dziesiata zbroje %;\
+	/purge _kowal_gag_* %;\
+	/repeat -1 1 /_kowal_finish
+
+/def _kowal_finish = \
+	/if ({moje} =~ "off" ) \
+		/send dobadz wszystkich broni %;\
+		/send zaloz wszystkie zbroje %;\
+		/if ( {sakiewka} =~ "on" )\
+			/sad monety %;\
+		/elseif ( {pack} =~ "on" )\
+			/dp monety %;\
+		/endif%;\
+	/endif
+		
+/alias do_kowal /do_kowal
+
+/def -mregexp -p2 -t'.* (pochodnia|luczywo) wypala sie i gasnie\.' light_off0 = \
+	/tbind odloz wypalona pochodnie %%; zapal pochodnie
+/def -mglob -p2 -t'*lampa wypala sie i gasnie*' light_off1 = \
+	/tickoff %;\
+	/tbind lampa_on_cmd
+/def -mglob -p2 -t'*Probujesz zapalic* lampe, ale ci sie*' light_on0 = \
+	/tickoff %;\
+	/tbind lampa_on_cmd
+/def -mglob -p2 -t'pelniasz .*lampe\\\.' light_on1_0 = \
+	/tickoff %;\
+	/def -i tick_warn = %;\
+	/def -i tick_action = /_lampa_warn %;\
+	/ticksize %lampatick %;\
+	/tickon %;\
+	/tbind zapal lampe
+/def -mglob -p2 -t'*lampe, oprozniajac *' light_on1_1 = \
+	/tickoff %;\
+	/def -i tick_warn = %;\
+	/def -i tick_action = /_lampa_warn %;\
+	/ticksize %lampatick %;\
+	/tickon %;\
+	/tbind lampa_off_cmd
+/def -mglob -p2 -t'*Zapalasz*lampe*' light_on2 = \
+	/tickoff %;\
+	/def -i tick_warn = %;\
+	/def -i tick_action = /_lampa_warn %;\
+	/ticksize %lampatick %;\
+	/tickon
+/def -mglob -p2 -t'*Gasisz*' light_off01 = \
+	/tickoff
+/def -mglob -p2 -t'*nie jest zapalona*' light_off02 = \
+	/tickoff
+
+/def manipuluj_plecakiem = \
+	/if ( {pack} =~ "on" )\
+		/send %{*} %;\
+	/endif
+
+/def dp = /manipuluj_plecakiem wloz %{*} do %packitem1
+/def zp = /manipuluj_plecakiem wez %{*} z %packitem1
+/def np = /manipuluj_plecakiem napelnij %packitem0
+
+/def sd = \
+	/dp wszystkie zbroje
+
+/def sz = \
+	/zp wszystkie zbroje %;\
+	/send zaloz wszystkie zbroje
+
+/def -mglob -p2 -t'*Nie jestes w stanie * zamknietego pojemnika*' open_pack = \
+	/tbind otworz %packitem0
+
+/def -mregexp -p2 -t'Zdejmujesz .* (plecak|worek|torbe|sakwe)' pof0 = \
+	/set pack=off
+
+/def zw = \
+	otworz woreczek %;\
+	wez %{*} z woreczka %;\
+	zamknij woreczek
+
+/def dw = \
+	otworz woreczek %;\
+	wloz %{*} do woreczka %;\
+	zamknij woreczek
+
+/def ow = otworz woreczek%; ob woreczek%; zamknij woreczek
+/def o2w = zajrzyj do drugiego woreczka
+/def o3w = zajrzyj do trzeciego woreczka
+/def o4w = zajrzyj do czwartego woreczka
+/def o5w = zajrzyj do piatego woreczka
+
+/def z2w = \
+	otworz drugi woreczek %;\
+	wez %{*} z drugiego woreczka %;\
+	zamknij drugi woreczek
+
+/def d2w = \
+	otworz drugi woreczek %;\
+	wloz %{*} do drugiego woreczka %;\
+	zamknij drugi woreczek
+
+/def z3w = \
+	otworz trzeci woreczek %;\
+	wez %{*} z trzeciego woreczka %;\
+	zamknij trzeci woreczek
+
+/def d3w = \
+	otworz trzeci woreczek %;\
+	wloz %{*} do trzeciego woreczka %;\
+	zamknij trzeci woreczek
+
+/def z4w = \
+	otworz czwarty woreczek %;\
+	wez %{*} z czwartego woreczka %;\
+	zamknij czwarty woreczek
+
+/def d4w = \
+	otworz czwarty woreczek %;\
+	wloz %{*} do czwartego woreczka %;\
+	zamknij czwarty woreczek
+
+/def z5w = \
+	otworz piaty woreczek %;\
+	wez %{*} z piatego woreczka %;\
+	zamknij piaty woreczek
+
+/def d5w = \
+	otworz piaty woreczek %;\
+	wloz %{*} do piatego woreczka %;\
+	zamknij piaty woreczek
diff --git a/common/hunt.tf b/common/hunt.tf
new file mode 100644
index 0000000..f7df2d7
--- /dev/null
+++ b/common/hunt.tf
@@ -0,0 +1,145 @@
+/def -mregexp -Fp2 -t'(.*) uciekl(|a) ci.' ktos_mi_uciekl = \
+	/set kto_uciekl=%{P1} %;\
+	/_pokaz_ucieczke %P1 %;\
+	/return substitute(decode_attr("@{BCbg%kolor_main}UCIECZKA ---> %P1 <--- UCIECZKA"))
+
+/def _pokaz_ucieczke = \
+	/runne %{*} %;\
+	/runnw %{*} %;\
+	/runse %{*} %;\
+	/runsw %{*} %;\
+	/rune  %{*} %;\
+	/runw  %{*} %;\
+	/runn  %{*} %;\
+	/runs  %{*} %;\
+	/runu  %{*} %;\
+	/rund  %{*} %;\
+	/runx  %{*}
+
+/def dobind_war = \
+	%{*} %;\
+	/f4 empty
+
+/def runne = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na polnocny-wschod." runne2 = \
+	/echo %%;\
+	/test echo(decode_attr("        # # #  "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("          # #  @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("        #   #  "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("      #        "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("    #          "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war ne
+
+/def runnw = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na polnocny-zachod." runnw2 = \
+	/echo %%;\
+	/test echo(decode_attr("   # # #          "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("   # #       @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("   #   #          "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("         #        "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("           #      "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war nw
+
+/def runse = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na poludniowy-wschod." runse2 = \
+	/echo %%;\
+	/test echo(decode_attr("   #           "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #         @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("       #   #   "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("         # #   "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("       # # #   "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war se
+
+/def runsw = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na poludniowy-zachod." runsw2 = \
+	/echo %%;\
+	/test echo(decode_attr("           #   "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("         #     @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("   #   #       "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("   # #         "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("   # # #       "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war sw
+
+/def rune = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na wschod." rune2 = \
+	/echo %%;\
+	/test echo(decode_attr("          #    "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("           #   @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("    #########  "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("           #   "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("          #    "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war e
+
+/def runw = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na zachod." runw2 = \
+	/echo %%;\
+	/test echo(decode_attr("     #         "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("    #          @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("   ##########  "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("    #          "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #         "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war w
+
+/def runn = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na polnoc." runn2 = \
+	/echo %%;\
+	/test echo(decode_attr("       #       "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("      ###      @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     # # #     "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("       #       "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("       #       "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war n
+
+/def runs = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na poludnie." runs2 = \
+	/echo %%;\
+	/test echo(decode_attr("       #       "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("       #       @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     # # #     "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("      ###      "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("       #       "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war s
+
+/def runu = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na gore." runu2 = \
+	/echo %%;\
+	/test echo(decode_attr("     #    #    "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #    #    @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #    #    "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #    #    "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("      ####     "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war u
+
+/def rund = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * na dol." rund2 = \
+	/echo %%;\
+	/test echo(decode_attr("     #####     "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #    #    "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #     #   @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #     #   "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #    #    "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     #####     "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war d
+
+/def runx = /def -mglob -aBC%kolor_alarm -Fp2 -t"*%{kto_uciekl} * do wyjscia." runx2 = \
+	/echo %%;\
+	/test echo(decode_attr("    #   #      "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     # #       @{BCwhite}%{kto_uciekl} F4"), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("      #        "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("     # #       "), "BC%kolor_alarm") %%;\
+	/test echo(decode_attr("    #   #      "), "BC%kolor_alarm") %%;\
+	/echo %%;\
+	/beep 1 %%;\
+	/f4 /dobind_war wyjscie
+
+/def nohunt = /purge -i run*2
diff --git a/common/init.tf b/common/init.tf
new file mode 100644
index 0000000..85d2449
--- /dev/null
+++ b/common/init.tf
@@ -0,0 +1,8 @@
+/f1 empty
+/f2 empty
+/f3 empty
+/f4 empty
+/f5 empty
+/f6 empty
+/f7 empty
+/f8 empty
diff --git a/common/lists.tf b/common/lists.tf
new file mode 100644
index 0000000..3a8014d
--- /dev/null
+++ b/common/lists.tf
@@ -0,0 +1,480 @@
+; originally by Kalreg, szydell
+
+/eval /set rebinder_plik_wejscia %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/lista.tf
+/eval /set rebinder_plik_wyjscia %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/lista.tmp
+
+/require textutil.tf
+/require lisp.tf
+/eval /require %rebinder_plik_wejscia
+
+/set REBINDER_PRIORYTET_STD 0
+
+/def rebinder_def_pomocniczy = \
+	/let tmp $[strcat("REBINDER_LISTA_",{*})]%;\
+	/result $[{tmp}]
+
+/def pobierz_kolor_z_listy = \
+		/let REBINDER_KOLOR $[substr(REBINDER_LISTA_LISTY,strstr(REBINDER_LISTA_LISTY,{1}))]%;\
+		/let REBINDER_KOLOR $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR,"@"))]%;\
+		/let REBINDER_KOLOR $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR,"#") + 1)]%;\
+		/if ( strstr(REBINDER_KOLOR,"#") == -1 ) \
+			/result REBINDER_KOLOR%;\
+		/else \
+			/result strcat(substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR,"#"))," ",substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR,"#") + 1))%;\
+		/endif
+
+/def rebinder_zapisz_liste = \
+		/quote -S -dexec !grep -v _%{1} %rebinder_plik_wejscia > %rebinder_plik_wyjscia %;\
+		/quote -S -dexec !mv %rebinder_plik_wyjscia %rebinder_plik_wejscia%;\
+		/if ( {2} !~ "0" ) \
+			/echo -p /set REBINDER_LISTA_%{1} $[rebinder_def_pomocniczy({1})] %| /writefile -a %rebinder_plik_wejscia%;\
+		/endif
+
+/def lists = \
+	/if ( {1} =~ "help" | {1} =~ "pomoc" ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ---------- [ DODAWANIE ] ----------------------------------------------- %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# /dodaj liste <nazwa listy> <kolor> [kolor tla]                           %;\
+		/echo -p #@{BC%kolor_info}#@{n}# /dodaj <nazwa listy> <opis mianownik> [priorytet]                        %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ---------- [ USUWANIE ] ------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# /usun liste <nazwa listy>                                                %;\
+		/echo -p #@{BC%kolor_info}#@{n}# /usun <nazwa listy> <wpis>                                               %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ---------- [ ZMIANA KOLOROW LISTY ] ------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# /zmien <nazwa listy> <kolor> [kolor tla]                                 %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ---------- [ WYSWIETLANIE ] -------------------------------------------- %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# /wyswietl listy                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# /wyswietl <nazwa_listy>                                                  %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+  	/else \
+		/let REBINDER_AKTUALNY_Z_LISTY_LIST $[strcat(substr(rebinder_def_pomocniczy("LISTY"),1),":")]%;\
+		/let i=1%;\
+		/let k=1%;\
+		/let m=1%;\
+		/if ( {1} =~ "silent" ) \
+			\
+		/elseif ( {2} =~ "silent") \
+			\
+		/else \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/endif%;\
+		/while ( strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,":") != 0 ) \
+			/let REBINDER_AKTUALNA_LISTA_LIST $[substr({REBINDER_AKTUALNY_Z_LISTY_LIST},0,strstr({REBINDER_AKTUALNY_Z_LISTY_LIST},"#"))]%;\
+			/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_AKTUALNA_LISTA_LIST})]%;\
+			/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
+				/if (regmatch("b(.*)",REBINDER_KOLOR)) \
+					/if ( {P1} =~ "lue" ) \
+						/let REBINDER_KOLOR_DEF -PCblue%;\
+					/else \
+						/let REBINDER_KOLOR_DEF -PBC%P1%;\
+					/endif %;\
+				/else \
+					/let REBINDER_KOLOR_DEF -PC%REBINDER_KOLOR%;\
+				/endif %;\
+			/else \
+				/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
+				/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
+				/if (regmatch("b(.*)",REBINDER_KOLOR_1)) \
+					/if ({P1} =~ "lue" ) \
+						/let REBINDER_KOLOR_DEF -PCblue,Cbg%REBINDER_KOLOR_2%;\
+					/else \
+						/let REBINDER_KOLOR_DEF -PBC%P1,Cbg%REBINDER_KOLOR_2%;\
+					/endif %;\
+				/else \
+					/let REBINDER_KOLOR_DEF -PC%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2%;\
+				/endif %;\
+			/endif%;\
+			/let REBINDER_AKTUALNY_Z_LISTY $[strcat(substr(rebinder_def_pomocniczy({REBINDER_AKTUALNA_LISTA_LIST}),1),"@")]%;\
+			/let j=1%;\
+			/while ( strstr(REBINDER_AKTUALNY_Z_LISTY,"@") != 0 ) \
+				/let REBINDER_AKTUALNA_LISTA $[substr({REBINDER_AKTUALNY_Z_LISTY},0,strstr({REBINDER_AKTUALNY_Z_LISTY},"@"))]%;\
+				/let NAME $[replace("[a-z]*","",{REBINDER_AKTUALNA_LISTA})] %;\
+				/let NAME $[replace(" ","",{NAME})] %;\
+				/def -mregexp -Fp3 %REBINDER_KOLOR_DEF -t'(%REBINDER_AKTUALNA_LISTA)' REBINDER_%{REBINDER_AKTUALNA_LISTA_LIST}_%{NAME} %;\
+				/let REBINDER_AKTUALNY_Z_LISTY $[substr(REBINDER_AKTUALNY_Z_LISTY,strstr(REBINDER_AKTUALNY_Z_LISTY,"@") +1)]%;\
+				/let j=$[++j]%;\
+				/let m=$[++m]%;\
+			/done%;\
+			/if ( {*} =~ NULL | {*} =~ {REBINDER_AKTUALNA_LISTA_LIST} ) \
+				/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_AKTUALNA_LISTA_LIST})] %;\
+				/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
+					/if (regmatch("b(.*)",REBINDER_KOLOR)) \
+						/if ( {P1} =~ "lue" ) \
+							/echo -p #@{BC%kolor_info}#@{n}# Lista "@{Cblue}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
+						/else \
+							/echo -p #@{BC%kolor_info}#@{n}# Lista "@{BC%P1}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
+						/endif %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{C%REBINDER_KOLOR}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
+					/endif %;\
+				/else \
+					/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
+					/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
+					/if (regmatch("b(.*)",REBINDER_KOLOR_1)) \
+						/if ({P1} =~ "lue" ) \
+							/echo -p #@{BC%kolor_info}#@{n}# Lista "@{Cblue,Cbg%REBINDER_KOLOR_2}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
+						/else \
+							/echo -p #@{BC%kolor_info}#@{n}# Lista "@{BC%P1,Cbg%REBINDER_KOLOR_2}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
+						/endif %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{C%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
+					/endif %;\
+				/endif%;\
+			/endif%;\
+			/let j=0%;\
+			/let REBINDER_AKTUALNY_Z_LISTY_LIST $[substr(REBINDER_AKTUALNY_Z_LISTY_LIST,strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,"@") +1)]%;\
+			/let i=$[++i]%;\
+		/done%;\
+		/if ( {*} =~ NULL ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Ilosc list: @{B}$[--i]@{n}, rekordow: @{B}$[--m]@{n} %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/endif%;\
+	/endif
+
+/def dodaj = \
+	/if	( %{*} =~ NULL ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Jaka liste badz osobe dodac?                                             %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif	( %{1} =~ "liste" & %{2} =~ NULL ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Podaj nazwe listy, ktora chcesz dodac.                                   %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif ( {1} =~ "liste" & %{2} !~ NULL ) \
+		/if	( strstr({REBINDER_LISTA_LISTY},{2}) > -1 ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Taka lista juz istnieje.                                                 %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/elseif	( strstr({REBINDER_LISTA_LISTY},{2}) == -1 & {3} =~ NULL ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Nie podano koloru dla tej listy.                                         %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/elseif	( strstr({REBINDER_LISTA_LISTY},{2}) == -1 & {3} !~ NULL ) \
+			/if ( {3} !~ "white" & {3} !~ "yellow" & {3} !~ "red" & {3} !~ "magenta" & {3} !~ "blue" & {3} !~ "cyan" & {3} !~ "green" & {3} !~ "black" & {3} !~ "bwhite" & {3} !~ "byellow" & {3} !~ "bred" & {3} !~ "bmagenta" & {3} !~ "bblue" & {3} !~ "bcyan" & {3} !~ "bgreen") \
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/echo -p #@{BC%kolor_info}#@{n}# Podany kolor jest niewlasciwy.                                           %;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/else \
+				/if ( {4} =~ NULL ) \
+					/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+					/if (regmatch("b(.*)",{3})) \
+						/if ({P1} =~ "lue" ) \
+	  						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{Cblue}$[toupper({2})]@{n}" zostala dodana. %;\
+						/else \
+							/echo -p #@{BC%kolor_info}#@{n}# Lista "@{BC%P1}$[toupper({2})]@{n}" zostala dodana. %;\
+						/endif %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{C%{3}}$[toupper({2})]@{n}" zostala dodana. %;\
+					/endif %;\
+					/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+					/if ( strstr({REBINDER_LISTA_LISTY},"@") == -1 ) \
+						/set REBINDER_LISTA_LISTY $[strcat("@",{REBINDER_LISTA_LISTY})]%;\
+					/endif%;\
+					/set REBINDER_LISTA_LISTY $[strcat({REBINDER_LISTA_LISTY},{2},"#",{3},"@")]%;\
+					/rebinder_zapisz_liste LISTY%;\
+				/else \
+					/if ( {4} !~ "white" & {4} !~ "yellow" & {4} !~ "red" & {4} !~ "magenta" & {4} !~ "blue" & {4} !~ "cyan" & {4} !~ "green" & {4} !~ "black" & {4} !~ "bwhite")\
+						/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+						/echo -p #@{BC%kolor_info}#@{n}# Podany kolor tla jest niewlasciwy.                                       %;\
+						/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+						/if (regmatch("b(.*)",{3})) \
+							/if ({P1} =~ "lue" ) \
+								/echo -p #@{BC%kolor_info}#@{n}# Lista "@{Cblue}@{Cbg%{4}}$[toupper({2})]@{n}" zostala dodana. %;\
+							/else \
+  								/echo -p #@{BC%kolor_info}#@{n}# Lista "@{BC%P1,Cbg%{4}}$[toupper({2})]@{n}" zostala dodana. %;\
+							/endif %;\
+						/else \
+  							/echo -p #@{BC%kolor_info}#@{n}# Lista "@{C%{3},Cbg%{4}}$[toupper({2})]@{n}" zostala dodana. %;\
+						/endif %;\
+						/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+						/if ( strstr({REBINDER_LISTA_LISTY},"@") == -1 ) \
+							/set REBINDER_LISTA_LISTY $[strcat("@",{REBINDER_LISTA_LISTY})]%;\
+						/endif%;\
+						/set REBINDER_LISTA_LISTY $[strcat({REBINDER_LISTA_LISTY},{2},"#",{3},"#",{4},"@")]%;\
+						/rebinder_zapisz_liste LISTY%;\
+					/endif%;\
+				/endif%;\
+			/endif%;\
+		/endif%;\
+	/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Taka lista nie istnieje.                                                 %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) > -1 ) \
+		/if ( strstr(rebinder_def_pomocniczy({1}),{-1}) > -1 ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Ta osoba jest juz w tej liscie.                                          %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/else \
+			/if ( strstr(rebinder_def_pomocniczy({1}),"@") == -1 ) \
+				/set REBINDER_LISTA_%1 $[strcat("@",rebinder_def_pomocniczy({1}))]%;\
+			/endif%;\
+			/set REBINDER_LISTA_%1 $[strcat(rebinder_def_pomocniczy({1}),{-1},"@")]%;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Dodaje $[toupper({-1})] do listy "$[toupper({1})]".                      %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/rebinder_zapisz_liste $[tolower({1})]%;\
+			/lists $[tolower({1})] silent%;\
+		/endif %;\
+	/endif
+
+/def zmien = \
+	/if	( %{*} =~ NULL ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Podaj liste, ktorej kolor chcesz zmienic.                                %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif	( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Taka lista nie istnieje.                                                 %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif ( {2} =~ NULL ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Podaj przynajmniej jeden kolor, ktory chcesz zmienic w liscie.           %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif ( $(/length %{*}) > 2 & {L1} > 0 ) \
+		/if ( strstr(rebinder_def_pomocniczy({1}),substr({-L1},strchr({-L1},char(32)) + 1)) == -1 ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Nie ma takiej osoby na tej liscie.                                       %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/else \
+			/let REBINDER_LEWO $[substr(rebinder_def_pomocniczy({1}),0,strstr(rebinder_def_pomocniczy({1}),substr({-L1},strchr({-L1},char(32)) + 1)))]%;\
+			/let REBINDER_PRAWO $[substr(rebinder_def_pomocniczy({1}),strstr(rebinder_def_pomocniczy({1}),substr({-L1},strchr({-L1},char(32)) + 1)))]%;\
+			/let REBINDER_SRODEK $[substr(REBINDER_PRAWO,0,strstr(REBINDER_PRAWO,"@"))]%;\
+			/let REBINDER_PRAWO $[substr(REBINDER_PRAWO,strstr(REBINDER_PRAWO,"@"))]%;\
+			/let REBINDER_SRODEK_1 $[substr(REBINDER_SRODEK,0,strstr(REBINDER_SRODEK,"!"))]%;\
+			/set REBINDER_LISTA_%1 $[strcat(REBINDER_LEWO,REBINDER_SRODEK_1,"!",{L1},REBINDER_PRAWO)]%;\
+			/rebinder_zapisz_liste $[tolower({1})]%;\
+			/lists $[tolower({1})] silent%;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Ok, $[toupper(substr({-L1},strchr({-L1},char(32)) + 1))] z listy "$[toupper({1})]" ma od teraz priorytet %{L1}. $[pad("(*)",38 - strlen({*}))]%;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/endif%;\
+	/else \
+		/let REBINDER_LEWO=$[substr(REBINDER_LISTA_LISTY,0,strstr(REBINDER_LISTA_LISTY,{1}))]%;\
+		/let REBINDER_SRODEK=$[substr(REBINDER_LISTA_LISTY,strstr(REBINDER_LISTA_LISTY,{1}))]%;\
+		/let REBINDER_PRAWO=$[substr(REBINDER_SRODEK,strstr(REBINDER_SRODEK,"@"))]%;\
+		/let REBINDER_SRODEK_1=$[substr(REBINDER_SRODEK,0,strstr(REBINDER_SRODEK,"#") + 1)]%;\
+		/let REBINDER_SRODEK_2=$[substr(REBINDER_SRODEK,strstr(REBINDER_SRODEK,"#") + 1)]%;\
+		/if ( {3} =~ NULL ) \
+			/if ( {2} !~ "white" & {2} !~ "yellow" & {2} !~ "red" & {2} !~ "magenta" & {2} !~ "blue" & {2} !~ "cyan" & {2} !~ "green" & {2} !~ "black" & {2} !~ "bwhite" & {2} !~ "byellow" & {2} !~ "bred" & {2} !~ "bmagenta" & {2} !~ "bblue" & {2} !~ "bcyan" & {2} !~ "bgreen" & {2} < 0 ) \
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/echo -p #@{BC%kolor_info}#@{n}# Podany kolor jest niewlasciwy.                                           %;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/else \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/if (regmatch("b(.*)",{2})) \
+					/if ({P1} =~ "lue" ) \
+						/echo -p #@{BC%kolor_info}#@{n}# Zmieniono kolor listy "@{Cblue}$[toupper({1})]@{n}" %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}# Zmieniono kolor listy "@{BC%P1}$[toupper({1})]@{n}" %;\
+					/endif %;\
+				/else \
+					/echo -p #@{BC%kolor_info}#@{n}# Zmieniono kolor listy "@{C%{2}}$[toupper({1})]@{n}" %;\
+				/endif %;\
+				/let REBINDER_KOLOR %{2}%;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/set REBINDER_LISTA_LISTY $[strcat(REBINDER_LEWO,REBINDER_SRODEK_1,REBINDER_KOLOR,REBINDER_PRAWO)]%;\
+				/rebinder_zapisz_liste LISTY%;\
+				/lists $[tolower({1})] silent%;\
+			/endif %;\
+		/else \
+			/if ( {3} !~ "white" & {3} !~ "yellow" & {3} !~ "red" & {3} !~ "magenta" & {3} !~ "blue" & {3} !~ "cyan" & {3} !~ "green" & {3} !~ "black" ) \
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/echo -p #@{BC%kolor_info}#@{n}# Podany kolor tla jest niewlasciwy.                                       %;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/else \
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/if (regmatch("b(.*)",{2})) \
+					/if ({P1} =~ "lue" ) \
+						/echo -p #@{BC%kolor_info}#@{n}# Zmieniono kolor listy "@{Cblue,Cbg%{3}}$[toupper({1})]@{n}" %;\
+					/else \
+					/echo %{P1} %;\
+						/echo -p #@{BC%kolor_info}#@{n}# Zmieniono kolor listy "@{BC%P1,Cbg%{3}}$[toupper({1})]@{n}" %;\
+					/endif %;\
+				/else \
+					/echo -p #@{BC%kolor_info}#@{n}# Zmieniono kolor listy "@{C%{2},Cbg%{3}}$[toupper({1})]@{n}" %;\
+				/endif %;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/let REBINDER_KOLOR %{2}#%{3}%;\
+				/set REBINDER_LISTA_LISTY $[strcat(REBINDER_LEWO,REBINDER_SRODEK_1,REBINDER_KOLOR,REBINDER_PRAWO)]%;\
+				/rebinder_zapisz_liste LISTY%;\
+				/lists $[tolower({1})] silent%;\
+			/endif%;\
+		/endif%;\
+	/endif 
+
+/def wyswietl = \
+	/if	( {*} =~ NULL ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Podaj liste, ktora chcesz przejrzec.                                     %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif ( {1} =~ "listy" ) \
+		/let REBINDER_AKTUALNY_Z_LISTY_LIST $[strcat(substr(rebinder_def_pomocniczy("LISTY"),1),":")]%;\
+		/echo -p #@{BC%kolor_info}#@{n}# -- [ ZALOZONE LISTY ] -------------------------------------------------- %;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/let i=1%;\
+		/while ( strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,":") != 0 ) \
+			/let REBINDER_AKTUALNA_LISTA_LIST $[substr({REBINDER_AKTUALNY_Z_LISTY_LIST},0,strstr({REBINDER_AKTUALNY_Z_LISTY_LIST},"#"))]%;\
+			/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_AKTUALNA_LISTA_LIST})]%;\
+			/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
+				/if (regmatch("b(.*)",REBINDER_KOLOR)) \
+					/if ( {P1} =~ "lue" ) \
+						/echo -p #@{BC%kolor_info}#@{n}#    [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{Cblue}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n} %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}#    [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{BC%P1}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n} %;\
+					/endif %;\
+				/else \
+	  				/echo -p #@{BC%kolor_info}#@{n}#    [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{C%{REBINDER_KOLOR}}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n}%;\
+				/endif %;\
+			/else \
+				/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
+				/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
+				/if (regmatch("b(.*)",REBINDER_KOLOR_1)) \
+					/if ( {P1} =~ "lue" ) \
+						/echo -p #@{BC%kolor_info}#@{n}#    [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{Cblue,Cbg%{REBINDER_KOLOR_2}}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n}%;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}#    [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{BC%P1,Cbg%{REBINDER_KOLOR_2}}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n}%;\
+					/endif %;\
+				/else \
+	  				/echo -p #@{BC%kolor_info}#@{n}#    [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{C%{REBINDER_KOLOR_1}}@{Cbg%{REBINDER_KOLOR_2}}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n}%;\
+				/endif %;\
+			/endif%;\
+			/let REBINDER_AKTUALNY_Z_LISTY $[strcat(substr(rebinder_def_pomocniczy({REBINDER_AKTUALNA_LISTA_LIST}),1),":")]%;\
+			/let REBINDER_AKTUALNY_Z_LISTY_LIST $[substr(REBINDER_AKTUALNY_Z_LISTY_LIST,strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,"@") +1)]%;\
+			/let i=$[++i]%;\
+		/done%;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# $[strrep("-",50 - strlen({i}))] [ Lacznie list: @{BC%kolor_info}$[--i]@{n} ] -- %;\
+	/elseif	( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Taka lista nie istnieje.                                                 %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/else \
+		/let REBINDER_KOLOR $[pobierz_kolor_z_listy({1})]%;\
+		/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
+			/if (regmatch("b(.*)",REBINDER_KOLOR)) \
+				/if ( {P1} =~ "lue" ) \
+					/echo -p #@{BC%kolor_info}#@{n}# -- [ OSOBY Z LISTY @{Cblue}$[toupper({1})]@{n} @{n}] $[strrep("-",50 - strlen({1}))] %;\
+				/else \
+					/echo -p #@{BC%kolor_info}#@{n}# -- [ OSOBY Z LISTY @{BC%P1}$[toupper({1})]@{n} @{n}] $[strrep("-",50 - strlen({1}))] %;\
+				/endif %;\
+			/else \
+	  			/echo -p #@{BC%kolor_info}#@{n}# -- [ OSOBY Z LISTY @{C%REBINDER_KOLOR}$[toupper({1})]@{n}] $[strrep("-",50 - strlen({1}))] %;\
+			/endif %;\
+		/else \
+			/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
+			/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
+			/if (regmatch("b(.*)",REBINDER_KOLOR_1)) \
+				/if ( {P1} =~ "lue" ) \
+					/echo -p #@{BC%kolor_info}#@{n}# -- [ OSOBY Z LISTY @{Cblue,Cbg%{REBINDER_KOLOR_2}}$[toupper({1})]@{n}] $[strrep("-",50 - strlen({1}))] %;\
+				/else \
+					/echo -p #@{BC%kolor_info}#@{n}# -- [ OSOBY Z LISTY @{BC%P1,Cbg%{REBINDER_KOLOR_2}}$[toupper({1})]@{n}] $[strrep("-",50 - strlen({1}))] %;\
+				/endif %;\
+			/else \
+				/echo -p #@{BC%kolor_info}#@{n}# -- [ OSOBY Z LISTY @{C%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2}$[toupper({1})]@{n}] $[strrep("-",50 - strlen({1}))] %;\
+			/endif %;\
+		/endif%;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/let REBINDER_WYSWIETLANI $[strcat(substr(rebinder_def_pomocniczy({1}),1),"@")]%;\
+		/let i=1%;\
+		/while ( strstr(REBINDER_WYSWIETLANI,"@") != 0 ) \
+			/let REBINDER_AKTUALNIE_WYSWIETLANY $[substr(REBINDER_WYSWIETLANI,0,strstr(REBINDER_WYSWIETLANI,"@"))]%;\
+			/echo -p #@{BC%kolor_info}#@{n}#    [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNIE_WYSWIETLANY))] $[strcat(toupper(substr({REBINDER_AKTUALNIE_WYSWIETLANY},0,1)),substr({REBINDER_AKTUALNIE_WYSWIETLANY},1))] ]    %;\
+			/let REBINDER_WYSWIETLANI $[substr(REBINDER_WYSWIETLANI,strstr(REBINDER_WYSWIETLANI,"@") +1)]%;\
+			/let i=$[++i]%;\
+		/done%;\
+		/echo -p #@{BC%kolor_info}#@{n}#                                                                          %;\
+		/echo -p #@{BC%kolor_info}#@{n}# $[strrep("-",41 - strlen({i}))] [ Lacznie na tej liscie: @{BC%kolor_info}$[--i]@{n} ] -- %;\
+	/endif
+
+/def usun = \
+	/if	( %{*} =~ NULL ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Jaka liste badz osobe usunac?                                            %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif	( %{1} =~ "liste" & %{2} =~ NULL ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Podaj nazwe listy, ktora chcesz usunac.                                  %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif ( {1} =~ "liste" & %{2} !~ NULL ) \
+		/if	( strstr({REBINDER_LISTA_LISTY},{2}) == -1 ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Taka lista nie istnieje.                                                 %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/elseif	( strstr({REBINDER_LISTA_LISTY},{2}) > -1) \
+			/let REBINDER_NOW %REBINDER_LISTA_%{2} %;\
+			/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_NOW})]%;\
+			/let REBINDER_LISTA_LEWO=$[substr({REBINDER_LISTA_LISTY},0,strstr({REBINDER_LISTA_LISTY},{2})-1)]%;\
+			/let REBINDER_LISTA_TEMP=$[substr({REBINDER_LISTA_LISTY},strstr({REBINDER_LISTA_LISTY},{2}))]%;\
+			/let REBINDER_LISTA_PRAWO=$[substr({REBINDER_LISTA_TEMP},strstr({REBINDER_LISTA_TEMP},"@"))]%;\
+			/set REBINDER_LISTA_LISTY=$[strcat({REBINDER_LISTA_LEWO}, {REBINDER_LISTA_PRAWO})]%;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
+				/if (regmatch("b(.*)",REBINDER_KOLOR)) \
+					/if ( {P1} =~ "lue" ) \
+						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{Cblue}$[toupper({2})]@{n}" zostala usunieta. %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{BC%P1}$[toupper({2})]@{n}" zostala usunieta. %;\
+					/endif %;\
+				/else \
+					/echo -p #@{BC%kolor_info}#@{n}# Lista "@{C%REBINDER_KOLOR}$[toupper({2})]@{n}" zostala usunieta. %;\
+				/endif %;\
+			/else \
+				/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
+				/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
+				/if (regmatch("b(.*)",REBINDER_KOLOR_1)) \
+					/if ({P1} =~ "lue" ) \
+						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{Cblue,Cbg%REBINDER_KOLOR_2}$[toupper({2})]@{n}" zostala usunieta. %;\
+					/else \
+						/echo -p #@{BC%kolor_info}#@{n}# Lista "@{BC%P1,Cbg%REBINDER_KOLOR_2}$[toupper({2})]@{n}" zostala usunieta. %;\
+					/endif %;\
+				/else \
+					/echo -p #@{BC%kolor_info}#@{n}# Lista "@{C%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2}$[toupper({2})]@{n}" zostala usunieta. %;\
+				/endif %;\
+			/endif%;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/rebinder_zapisz_liste LISTY%;\
+			/rebinder_zapisz_liste $[tolower({2})] 0%;\
+			/unset REBINDER_LISTA_%{2}%;\
+			/purge REBINDER_%2*%;\
+		/endif%;\
+	/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Nie ma takiej listy.                                                     %;\
+		/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+	/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) > -1) \
+		/if	( {2} =~ NULL ) \
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Podaj jakies imie badz opis w mianowniku.                                %;\
+			/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+		/elseif	( {2} !~ NULL ) \
+			/if ( strstr(rebinder_def_pomocniczy({1}),{-1}) == -1 ) \
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/echo -p #@{BC%kolor_info}#@{n}# Podanej osoby nie ma na tej liscie.                                      %;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+			/else \
+				/let REBINDER_LISTA_LEWO=$[substr(rebinder_def_pomocniczy({1}),0,strstr(rebinder_def_pomocniczy({1}),{-1})-1)]%;\
+				/let REBINDER_LISTA_TEMP=$[substr(rebinder_def_pomocniczy({1}),strstr(rebinder_def_pomocniczy({1}),{-1}))]%;\
+				/let REBINDER_LISTA_PRAWO=$[substr({REBINDER_LISTA_TEMP},strstr({REBINDER_LISTA_TEMP},"@"))]%;\
+				/let NAME $[replace("[a-z]*","",{-1})] %;\
+				/let NAME $[replace(" ","",{NAME})] %;\
+				/purge REBINDER_%{1}_%{NAME} %;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/echo -p #@{BC%kolor_info}#@{n}# Wpis $[toupper({-1})] zostal usuniety z listy "$[toupper({1})]".         %;\
+				/echo -p #@{BC%kolor_info}#@{n}# ------------------------------------------------------------------------ %;\
+				/set REBINDER_LISTA_%1 $[strcat({REBINDER_LISTA_LEWO}, {REBINDER_LISTA_PRAWO})]%;\
+				/rebinder_zapisz_liste $[tolower({1})]%;\
+			/endif%;\
+		/endif%;\
+	/endif
+
+/lists silent
diff --git a/common/mail.tf b/common/mail.tf
new file mode 100644
index 0000000..3136958
--- /dev/null
+++ b/common/mail.tf
@@ -0,0 +1,53 @@
+/def poczta = \
+	/if ({*}=~NULL | {*}=~'check') \
+		/if ({ogolne_poczta}=~NULL ) \
+			/echo -p #@{BC%kolor_info}#@{n}# Brak poczty. %;\
+		/else \
+			/let _poczta=%{ogolne_poczta} %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Listy: %;\
+			/while /let i=$[strstr({_poczta},"|")] %; /@test i>-1 %; /do \
+				/echo -p #@{BC%kolor_info}#@{n}# Od: @{BC%kolor_info}$[substr({_poczta},5,i-5)] @{n}($[substr({_poczta},0,5)]). %;\
+				/let _poczta=$[substr({_poczta},i+1)] %;\
+			/done %;\
+		/endif %;\
+	/elseif ({*} =~ 'clear') \
+		/unset ogolne_poczta %;\
+		/status_edit -r1 poczta_show:5:BC%{kolor_main} %;\
+		/set poczta_show=none %;\
+	/endif
+
+/def -mglob -p2 -t'*Nie otrzymales zadnych nowych listow*' poczta_off0 = /poczta clear
+/def -mglob -p2 -t'*Kasuje listy*' poczta_off1 = /poczta clear
+/def -mglob -p2 -t'*Wszystkie listy w twej skrzynce*' poczta_off2 = /poczta clear
+/def -mglob -p2 -t'*Zjadasz*wiadomosc*' poczta_off3 = /poczta clear
+/def -mglob -p2 -t'*Odkladasz*wiadomosc*' poczta_off4 = /poczta clear
+
+/def  -mregexp -Fp2 -t'^Czeka na ciebie (.*) poczta' _poczta_0 = \
+	/set ogolne_poczta=$[strcat(ftime("%H:%M",time()),"Kogos lub Czegos (", {P1}, ")|")] %;\
+	/beep 1 %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MAIL%;\
+	/endif %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm}
+
+/def -mregexp -Fp2 -t'^Masz nowa poczte od (.*).' _poczta_1 = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),{P1},"|")] %;\
+	/beep 1 %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MAIL%;\
+	/endif %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm}
+
+/def -mregexp -Fp2 -t'^Masz nowy list.*od ([^ ]*), zatytulowany \'(.*)(\'|[^.]$)' _poczta_2 = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),{P1}," zatytulowany '",{P2},"'|")] %;\
+	/beep 1 %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MAIL%;\
+	/endif %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm}
diff --git a/common/misc.tf b/common/misc.tf
new file mode 100644
index 0000000..68be4d3
--- /dev/null
+++ b/common/misc.tf
@@ -0,0 +1,10 @@
+/def exp = \
+	usiadz %;\
+	medytuj %;\
+	ocen sile %;\
+	ocen zrecznosc %;\
+	ocen wytrzymalosc %;\
+	ocen inteligencje %;\
+	ocen madrosc %;\
+	ocen odwage %;\
+	powstan
diff --git a/common/movement.tf b/common/movement.tf
new file mode 100644
index 0000000..b19ea12
--- /dev/null
+++ b/common/movement.tf
@@ -0,0 +1,238 @@
+/def _walk_binds = \
+	/def key_nkp/ = /sneak off %;\
+	/def key_nkp* = /sneak ON %;\
+	/def key_nkp- = /sneak TEAM %;\
+	/def key_f12 = /toggleauto %;\
+	/if ( {ktype} =~ "mac" ) \
+		/def key_f13 = /sneak off %;\
+		/def key_f14 = /sneak ON %;\
+		/def key_f15 = /sneak TEAM %;\
+		/def key_f19 = /toggleauto %;\
+	/endif
+/_walk_binds
+
+/def toggleauto = \
+	/if ( {auto} =~ "off" ) \
+		/set auto on %;\
+		/repeat -%{delay} 1 /testujwyjscia %;\
+	/else \
+		/set lwgo=0 %;\
+		/set auto off %;\
+	/endif
+
+/def delay = \
+	/if ( {1} =~ "" )\
+		/echo -p #@{BC%kolor_info}#@{n}# Delay: @{BC%kolor_info}%delay@{n}%;\
+	/else \
+		/set delay %{*} %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Delay: @{BC%kolor_info}%delay@{n}%;\
+	/endif
+
+/def wns = \
+	/if ( {hide} =~ "on" )\
+		/send ujawnij sie %;\
+	/endif%;\
+	/if ( {pack} =~ "on" )\
+		/zp monety %;\
+	/endif%;\
+	/send kup bilet%;\
+	/send wejdz na statek%;\
+	/if ( {pack} =~ "on" )\
+		/dp monety %;\
+	/endif
+/alias wns /wns
+
+/def wdyl = \
+	/if ( {hide} =~ "on" )\
+		/send ujawnij sie %;\
+	/endif%;\
+	/if ( {pack} =~ "on" )\
+		/zp monety %;\
+	/endif%;\
+	/send wsiadz do dylizansu %;\
+	/if ( {pack} =~ "on" )\
+		/dp monety %;\
+	/endif
+/alias wdyl /wdyl
+
+/def skroc_kierunek =\
+	/eval /set v=%dlugi_kierunek%;\
+	/set v=$[replace("polnocny-","n",v)]%;\
+	/set v=$[replace("poludniowy-","s",v)]%;\
+	/set v=$[replace("polnoc","n",v)]%;\
+	/set v=$[replace("poludnie","s",v)]%;\
+	/set v=$[replace("wschod","e",v)]%;\
+	/set v=$[replace("zachod","w",v)]%;\
+	/set v=$[replace("gore","u",v)]%;\
+	/set v=$[replace("gora","u",v)]%;\
+	/set v=$[replace("dol","d",v)]%;\
+	/eval /set krotki_kierunek=%{v}%;\
+	/set lwgo=0
+
+/def -i statusvar2
+/def -i statusvar3
+/def -i status
+
+/set autostop=0
+
+/def idz = \
+	/set lwgo=1 %;\
+	/set lwlast=%{1} %;\
+	/if ( {sneak} =~ "off" )\
+		/send %{1} %;\
+		/hide off %;\
+	/elseif ( {sneak} =~ "ON" )\
+		/send przemknij %{1} %;\
+		/hide ON %;\
+	/elseif ( {sneak} =~ "TEAM" )\
+		/send przemknij z druzyna %{1} %;\
+		/hide ON %;\
+	/endif %;\
+	/def key_nkp5
+/alias idz /idz %{*}
+
+/def lw4=\
+	/for a 0 12 /eval /unset _lw%%a %;\
+	/set lwcount=0%;\
+	/set lw=%lw,%;\
+	/set lw2=%;\
+	/while (lw!~"") /lw5%; /done%;\
+	/set lw2=$[strcat(_lw0,_lw1,_lw2,_lw3,_lw4,_lw5,_lw6,_lw7,_lw8,_lw9,_lw10,_lw11,_lw12)]%;\
+	/set exits=$[substr(lw2,0,strlen(lw2)-1)]%;\
+	/status%;\
+	/checkgo
+
+/def -mregexp -Fp2 -t'podazasz .*za .* na (.*)\\.' ide_za_kims = \
+	/if ({P1} =~ "polnoc" )				/set lwlast=n%;\
+	/elseif ({P1} =~ "poludnie" )			/set lwlast=s%;\
+	/elseif ({P1} =~ "zachod" )				/set lwlast=w%;\
+	/elseif ({P1} =~ "wschod" )				/set lwlast=e%;\
+	/elseif ({P1} =~ "polnocny-zachod" )	/set lwlast=nw%;\
+	/elseif ({P1} =~ "polnocny-wschod" )	/set lwlast=ne%;\
+	/elseif ({P1} =~ "poludniowy-zachod" )	/set lwlast=sw%;\
+	/elseif ({P1} =~ "poludniowy-wschod" )	/set lwlast=se%;\
+	/elseif ({P1} =~ "gore" )				/set lwlast=u%;\
+	/elseif ({P1} =~ "dol" )				/set lwlast=d%;\
+	/else									/set lwlast=X%;\
+	/endif
+
+/def unnormalset = \
+	/alias ww /dounnormal %{*} %%; /set lwlast=dziwne %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Dziwne wyjscie - @{BC%kolor_info}%{*}@{n}. %;\
+
+/def dounnormal = \
+	/if ( {sneak} =~ "ON" ) \
+		/send przemknij %{*} %;\
+	/elseif ( {sneak} =~ "TEAM" ) \
+		/send przemknij z druzyna %{*} %;\
+	/else \
+		/send %{*} %;\
+	/endif
+
+/def checkgo=\
+	/if (lwgo==1) \
+		/if (lwcount==2) \
+			/if ( {auto} =~ "on" )\
+				/repeat -%{delay} 1 /testujwyjscia%;\
+			/else \
+				/def key_nkp5 = /testujwyjscia%;\
+			/endif%;\
+		/else \
+			/set lwgo=0%;\
+			/set auto off %;\
+		/endif %;\
+	 /endif
+
+/def -p2 -t'*nie mozesz dalej podazac w tym kierunku*' lwstop0 = \
+	/beep 1 %;\
+	/set lwgo=0 %;\
+	/set auto off
+
+/def -p2 -t'*nie dasz rady isc w tym kierunku*' lwstop1 = \
+	/beep 1 %;\
+	/set lwgo=0 %;\
+	/set auto off
+
+/def -Fp2 -t'*atakuje cie*' lwstop2 = \
+	/set lwgo=0 %;\
+	/set auto off
+
+/def testujwyjscia=\
+	/if ((_lw0!~"") & (lwlast!~"e"))      /set lwlast=w%; w%;\
+	/elseif ((_lw1!~"") & (lwlast!~"se")) /set lwlast=nw%; nw%;\
+	/elseif ((_lw2!~"") & (lwlast!~"s"))  /set lwlast=n%; n%;\
+	/elseif ((_lw3!~"") & (lwlast!~"sw")) /set lwlast=ne%; ne%;\
+	/elseif ((_lw4!~"") & (lwlast!~"w"))  /set lwlast=e%; e%;\
+	/elseif ((_lw5!~"") & (lwlast!~"nw")) /set lwlast=se%; se%;\
+	/elseif ((_lw6!~"") & (lwlast!~"n"))  /set lwlast=s%; s%;\
+	/elseif ((_lw7!~"") & (lwlast!~"ne")) /set lwlast=sw%; sw%;\
+	/elseif ((_lw8!~"") & (lwlast!~"d"))  /set lwlast=u%; u%;\
+	/elseif ((_lw9!~"") & (lwlast!~"u"))  /set lwlast=d%; d%;\
+	/else \
+		/beep 1 %;\
+		/set lwgo=0%;\
+		/set auto off %;\
+	/endif%;\
+	/def key_nkp5
+
+/def -i -b'Ol' = /key_nkp+
+/def key_nkp8 = /idz n
+/def key_nkp2 = /idz s
+/def key_nkp4 = /idz w
+/def key_nkp6 = /idz e
+/def key_nkp7 = /idz nw
+/def key_nkp9 = /idz ne
+/def key_nkp1 = /idz sw
+/def key_nkp3 = /idz se
+/def key_nkp+ = /idz u
+/def key_nkp. = /idz d
+
+/def -mregexp -p2 -h'SEND ^n$' = /idz n
+/def -mregexp -p2 -h'SEND ^s$' = /idz s
+/def -mregexp -p2 -h'SEND ^w$' = /idz w
+/def -mregexp -p2 -h'SEND ^e$' = /idz e
+/def -mregexp -p2 -h'SEND ^nw$' = /idz nw
+/def -mregexp -p2 -h'SEND ^ne$' = /idz ne
+/def -mregexp -p2 -h'SEND ^sw$' = /idz sw
+/def -mregexp -p2 -h'SEND ^se$' = /idz se
+/def -mregexp -p2 -h'SEND ^d$' = /idz d
+/def -mregexp -p2 -h'SEND ^u$' = /idz u
+
+/def sneak = \
+	/if ( {1} =~ NULL )\
+		/echo -p #@{BC%kolor_info}#@{n}# Przemykanie: @{BC%kolor_info}%sneak@{n}%;\
+	/elseif ( {1} =~ "off" ) \
+		/set sneak %{1} %;\
+		/status_edit -r1 sneak:4:BC%{kolor_main} %;\
+	/elseif ( {1} =~ "ON" ) \
+		/set sneak %{1} %;\
+		/status_edit -r1 sneak:4:BC%{kolor_alarm} %;\
+	/elseif ( {1} =~ "TEAM" ) \
+		/set sneak %{1} %;\
+		/status_edit -r1 sneak:4:BC%{kolor_alarm} %;\
+	/endif
+
+/def hide = \
+	/if ( {1} =~ NULL )\
+		/echo -p #@{BC%kolor_info}#@{n}# Ukrycie: @{BC%kolor_info}%hide@{n}%;\
+	/elseif ( {1} =~ "off" ) \
+		/set hide %{1} %;\
+		/status_edit -r1 hide:3:BC%{kolor_main} %;\
+	/elseif ( {1} =~ "ON" ) \
+		/set hide %{1} %;\
+		/status_edit -r1 hide:3:BC%{kolor_alarm} %;\
+	/endif
+
+/def -mregexp -Fp2 -t'Chowasz sie .* potrafisz' hideon0 = /hide ON
+/def -mregexp -Fp2 -t'Nie potrafisz ukryc sie jeszcze bardziej' hideon1 = /hide ON
+/def -E(hide=~"off") -mregexp -Fp2 -t'Podazasz skradajac sie za ' hideon2 = /hide ON
+/def -mregexp -Fp2 -t'.* ujawnia cie.*' hideoff0 = /hide off
+/def -mregexp -Fp2 -t'Nie jestes juz schowan.' hideoff1 = /hide off
+/def -mregexp -Fp2 -t'Nie jestes w stanie sie tu dobrze schowac' hideoff2 = /hide off
+/def -mregexp -Fp2 -t'Wychodzisz z ukrycia' hideoff3 = /hide off
+/def -mregexp -Fp2 -t'Przeciez nie jestes ukryt' hideoff4 = /hide off
+/def -mregexp -Fp2 -t'Jest tu zbyt ciezko sie schowac' hideoff5 = /hide off
+/def -E(hide=~'ON') -mregexp -Fp2 -t'Podazasz za ' hideoff6 = /hide off
+/def -mregexp -Fp2 -t'Nie jestes w stanie wymknac' sneakoff0 = /sneak off
+/def -mregexp -Fp2 -t'Nie jestes dowodca zadnej druzyny.' sneakoff1 = /sneak ON
+
diff --git a/common/odmiana.tf b/common/odmiana.tf
new file mode 100644
index 0000000..b19e01a
--- /dev/null
+++ b/common/odmiana.tf
@@ -0,0 +1,102 @@
+; by Siro
+
+/def odmien = \
+	/purge _rodmien_* %;\
+	/repeat -5 1 /purge _rodmien_* %;\
+	odmien %{1} %;\
+	/def -p20 -agLG -t'Odmien <kto/co>?' _rodmien_blad = \
+		/purge _rodmien_* %;\
+	/def -p20 -agLG -mregexp -t'odmienia sie nastepujaco:' _rodmien_pocz %;\
+	/def -p20 -agLG -mregexp -t'  Mianownik: (.*),' _rodmien_mia %;\
+	/def -p20 -agLG -mregexp -t' Dopelniacz: (.*),' _rodmien_dop = \
+		/eval /set ogolne_odmiana_d_%{1}=$$[tolower({P1})] %;\
+	/def -p20 -agLG -mregexp -t'   Celownik: (.*),' _rodmien_cel %;\
+	/def -p20 -agLG -mregexp -t'    Biernik: (.*),' _rodmien_bie = \
+		/eval /set ogolne_odmiana_b_%{1}=$$[tolower({P1})] %;\
+	/def -p20 -agLG -mregexp -t'  Narzednik: (.*),' _rodmien_nar = \
+		/eval /set ogolne_odmiana_n_%{1}=$$[tolower({P1})] %;\
+	/def -p20 -agLG -mregexp -t'Miejscownik: (.*).' _rodmien_mie = \
+		/purge _rodmien_* %%;\
+		/eval /echo -p #@{BC%kolor_info}#@{n}# Odmiana @{BC%kolor_info}%{1}@{n}: %%ogolne_odmiana_d_%{1}/%%ogolne_odmiana_b_%{1}/%%ogolne_odmiana_n_%{1}
+
+/def _l_odmien = \
+	/let _tmp=$[strcat({-1}, "|")] %;\
+	/while /let i=$[strstr({_tmp},"|")] %;/@test i >- 1 %;/do \
+		/let _name=$[substr({_tmp},0,i)] %;\
+		/let _tmp=$[substr({_tmp},i+1)] %;\
+		/let _name=$[substr(strcat({_name}, "\\"), 0, strchr({_name}, "\\"))] %;\
+		/let _name=$(/_odmien_M_%{1} %{_name}) %;\
+		/let _ret_str=$[strcat({_ret_str}, {_name}, "|")] %;\
+	/done %;\
+	/echo $[substr({_ret_str}, 0, -1)]
+
+/def _odmien_M_D = \
+	/while ({#}) \
+		/let dpE=$[substr({1}, -1, 1)] %;\
+		/let dpEE=$[substr({1}, -2, 2)] %;\
+		/if (dpEE=~"ta" | dpEE =~ "pa" | dpEE =~ "na" | dpEE =~ "ma") \
+			/let op_B1=$[strcat(substr({1}, 0, -1),'y')] %;\
+		/elseif (dpE=~"a") \
+			/let op_B1=$[strcat(substr({1}, 0, -2),'i')] %;\
+		/elseif (dpE =~ "i") \
+			/let op_B1=$[strcat({1}, 'ego')] %;\
+		/elseif (dpE =~ "y") \
+			/let op_B1=$[strcat(substr({1}, 0, -1), 'ego')] %;\
+		/elseif (dpE =~ "u" | dpE =~ "o") \
+			/let op_B1=$[strcat(substr({1}, 0, -1), 'a')] %;\
+		/else \
+			/let op_B1=$[strcat({1},'a')] %;\
+		/endif %;\
+		/let op_B=$[strcat(op_B, op_B1, ' ')] %;\
+		/shift %;\
+	/done %;\
+	/echo $[tolower({op_B})]
+
+/def _odmien_M_B = \
+	/while ({#}) \
+		/let dpE=$[substr({1}, -1, 1)] %;\
+		/let dpEE=$[substr({1}, -2, 2)] %;\
+		/if (dpEE=~"ta" | dpEE =~ "pa" | dpEE =~ "na" | dpEE =~ "ma" | dpEE =~ "ka") \
+			/let op_B1=$[strcat(substr({1}, 0, -1),'e')] %;\
+		/elseif (dpE=~"a") \
+			/let op_B1=%{1} %;\
+		/elseif (dpE =~ "i") \
+			/let op_B1=$[strcat({1}, 'ego')] %;\
+		/elseif (dpE =~ "y") \
+			/let op_B1=$[strcat(substr({1}, 0, -1), 'ego')] %;\
+		/elseif (dpE =~ "u" | dpE =~ "o") \
+			/let op_B1=$[strcat(substr({1}, 0, -1), 'a')] %;\
+		/else \
+			/let op_B1=$[strcat({1},'a')] %;\
+		/endif %;\
+		/let op_B=$[strcat(op_B, op_B1, ' ')] %;\
+		/shift %;\
+	/done %;\
+	/echo $[tolower({op_B})]
+
+/def _odmien_M_N = \
+	/while ({#}) \
+		/let dpE=$[substr({1}, -1, 1)] %;\
+		/let dpEE=$[substr({1}, -2, 2)] %;\
+		/let dpEEE=$[substr({1}, -3, 3)] %;\
+		/if (dpEEE=~"tac") \
+			/let op_B1=$[strcat({1},'ia')] %;\
+		/elseif (dpEEE=~"iec") \
+			/let op_B1=$[strcat(substr({1}, 0, -3),'cem')] %;\
+		/elseif (opEEE=~"ies") \
+			/let op_B1=$[strcat(substr({1}, 0, -3),'sem')] %;\
+		/elseif (dpE=~"a") \
+			/let op_B1=%{1} %;\
+		/elseif (dpE=~"i" | dpE=~"y") \
+			/let op_B1=$[strcat({1},'m')] %;\
+		/elseif (dpE=~"g" | dpE=~"k") \
+			/let op_B1=$[strcat({1},'iem')] %;\
+		/elseif (dpE =~ "u" | dpE =~ "o") \
+			/let op_B1=$[strcat(substr({1}, 0, -1), 'em')] %;\
+		/else \
+			/let op_B1=$[strcat({1},'em')] %;\
+		/endif %;\
+		/let op_B=$[strcat(op_B, op_B1, ' ')] %;\
+		/shift %;\
+	/done %;\
+	/echo $[tolower({op_B})]
diff --git a/common/people.tf b/common/people.tf
new file mode 100644
index 0000000..1aaffcf
--- /dev/null
+++ b/common/people.tf
@@ -0,0 +1,54 @@
+; by Ingwar
+
+/def -p20 -mregexp -t'^([^:\\(\\)]*) ([^ \\(\\)]*) (\\(.*\\) |)(czarodziej |)przedstawia sie jako:' _przedstawia_sie = \
+	/def -n1 -mregexp -t'^(Praktykant(|ka) |Ojciec |Sir |Don |Szlachetn(y|a|e) |Czcigodn(y|a|e) |Senior(|ita|ito) |L(ord|ady) |Mistrz(|yni|unio) |)([^ ,]*)( |,)' imie_trig = \
+		/test _zapamietaj_imie("%%{P8}","%{P1} %{P2}")
+
+/def _zapamietaj_imie = \
+	/let imiex=%{1} %;\
+	/let imie_opis=$[strcat("[",substr({2},0,1),tolower(substr({2},0,1)),"]",substr({2},1))]%;\
+	/let imie_def=/def -Fp5 -mregexp -t'(%{imie_opis})(( \\\\([^,.]*\\\\))|([ .,]))' _imie_%{imiex} = /substitute -p %%{PL}%%{P1} @{BCwhite}_%{imiex}_%%{P3}@{n}%%{P4}%%{PR}%;\
+	/if ($(/list -s _imie_%{imiex})=~NULL) \
+		/echo -p #@{BC%kolor_info}#@{n}# Zapamietany: @{BC%kolor_info}%{imiex}@{n} %;\
+		/eval -s0 %{imie_def} %;\
+		/echo %{imie_def}%|/writefile -a %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/imiona.tf %;\
+	/elseif /test (strstr("($(/list -s _imie_%{imiex}))","(%{imie_opis})((")==-1) %;/then \
+		/echo -p #@{BC%kolor_info}#@{n}# Zmienil sie opis dla wpisu: @{BC%kolor_info}%{imiex}@{n} %;\
+		/undef _imie_%{imiex} %;\
+		/eval -s0 %{imie_def} %;\
+		/echo /undef _imie_%{imiex}%|/writefile -a %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/imiona.tf %;\
+		/echo %{imie_def}%|/writefile -a %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/imiona.tf %;\
+	/endif
+
+/def czysc_imiona = \
+	/def -ag -h'REDEF' _redef_gag %;\
+	/load -q %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/imiona.tf %;\
+	/save %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/imiona.tf _imie_* %;\
+	/purge _redef_gag %;\
+	/ktoto licz
+
+/def ktoto = \
+	/if ({*}!~NULL) \
+		/if ({*} =~ "licz" ) \
+			/set _ilu_ludzi=0 %;\
+			/quote -S /_ktoto_licz `/list -s _imie_* %;\
+			/echo -p #@{BC%kolor_info}#@{n}# Zapamietanych @{BC%kolor_info}%{_ilu_ludzi} @{n}opisow.%;\
+			/unset _ilu_ludzi %;\
+		/else \
+			/set _ilu_ludzi=0 %;\
+			/quote -S /_ktoto `/list -s _imie_%{*} %;\
+			/quote -S /_ktoto `/list -s -mregexp -t'$[strcat(tolower(substr({*},0,1)),"(]|)",tolower(substr({*},1)))]' _imie_* %;\
+			/echo -p #@{BC%kolor_info}#@{n}# W bazie @{BC%kolor_info}%{_ilu_ludzi} @{n}pasujacych rekordow.%;\
+			/unset _ilu_ludzi %;\
+		/endif %;\
+	/endif
+
+/def _ktoto = \
+	/test ++_ilu_ludzi %;\
+	/let pocz_opisu=$[strstr({*},"'([")] %;\
+	/let koni_opisu=$[strstr({*},")(")] %;\
+	/let pocz_imienia=$[strstr({*},"_imie_")+6] %;\
+	/echo -p #@{BC%kolor_info}#@{n}# $[pad(substr({*},{pocz_imienia}),-15,substr({*},{pocz_opisu}+3,1),1,substr({*},{pocz_opisu}+6,{koni_opisu}-{pocz_opisu}-6))]
+
+/def _ktoto_licz = \
+	/test ++_ilu_ludzi
diff --git a/common/sets.tf b/common/sets.tf
new file mode 100644
index 0000000..79bfb4d
--- /dev/null
+++ b/common/sets.tf
@@ -0,0 +1,90 @@
+; ------------------------------------
+; Ustawienia do edycji według potrzeb:
+; (mogą być nadpisane w pliku postaci)
+; ------------------------------------
+
+; typ klawiatury (standard/mac):
+/set ktype=standard
+
+; ścieżka do katalogu z logami:
+/set logpath=~/log/mud
+
+; domyślny czas zmiany lokacji przez autołazika:
+/set delay=0
+
+; prefix przed wpisywanymi komendami (przy włączonym ich pokazywaniu - /set kecho on):
+/set kprefix=> 
+
+; kolor komend wpisywanych przez gracza (edytować nazwę koloru _po_ znaku 'C'):
+/set kecho_attr=Cgreen
+
+; kolory:
+
+; kolor główny:
+/set kolor_main green
+
+; kolor różnych warningów:
+/set kolor_alarm yellow
+
+; kolor sytuacji krytycznych:
+/set kolor_crit red
+
+; kolor ataków:
+/set kolor_atak red
+
+; kolor informacji wyświetlanych przez skrypty:
+/set kolor_info magenta
+
+; kolor walki
+/set kolor_fight red
+
+; kolor ciosów własnych
+/set kolor_fight_me yellow
+
+; kolor speców:
+/set kolor_spec magenta
+
+; kolor znaków gildiowych:
+/set kolor_guild white
+
+; kolor podświetleń chwilowych (/glow):
+/set kolor_glow green
+
+; kolor mówienia:
+/set kolor_speak cyan
+
+; defaultowy tryb ataku:
+/set attackmode=1
+
+; ------------------------------------------------------------------------------------------
+; Poniższych opcji radzę nie edytować. Może to prowadzić do problemów z działaniem skryptów.
+; ------------------------------------------------------------------------------------------
+/set ingame=0
+
+/set hiliteattr=BCmagenta
+/set wrapspace=2
+/set isize=1
+/set warn_status=off
+/set status_pad= 
+/set status_height=4
+
+/set pack=off
+/set sneak=off
+/set hide=off
+/set auto=off
+/set unnormal=none
+
+/set zar_godzina=?
+/set am_czy_pm=?
+/set ownkills=0
+/set allkills=0
+/set poczta_show=none
+/set dobadzcmd=dobadz
+/eval /set tank=$[decode_attr("nie", "BCgreen")]
+/eval /set alarm=$[decode_attr("none", "BCgreen")]
+/eval /set nxt_zaslona=$[decode_attr("rdy", "BCgreen")]
+/eval /set nxt_order=$[decode_attr("rdy", "BCgreen")]
+/eval /set kondycja=$[strcat("[", decode_attr("                     ", "Cbggreen"), "] ")]
+/eval /set zmeczenie=$[strcat("[", decode_attr("                    ", "Cbggreen"), "] ")]
+/eval /set blokowanko=$[strcat("[", decode_attr("                     ", "Cgreen"), "] ")]
+/eval /set warningstat=$[strcat("[", decode_attr("                    ", "Cgreen"), "] ")]
diff --git a/common/start.tf b/common/start.tf
new file mode 100644
index 0000000..5a42332
--- /dev/null
+++ b/common/start.tf
@@ -0,0 +1,84 @@
+/def -ag -h'Redef' hide_redef
+/def -ag -h'Load' hide_load
+/def -ag -h'Log' hide_log
+/def key_tab = /complete
+
+/def -Fp2 -mregexp -t"^(> )+" _unprompty = /substitute %{PR}
+
+/def log_on = \
+	/eval /log -w%{obecnie_swiat} %{logpath}/%{obecnie_swiat}/%{obecnie_expujacy}_$[ftime("%Y-%b-%d", time())].log
+
+/def -mglob -Fp2 -t'* z hosta:*' _logged = \
+	/repeat -3 1 /start %;\
+	/repeat -5 1 /set ingame=1
+
+/sub on
+/def c = /for i 1 100 /_echo
+/def fk = /test $[fake_recv({*})]
+
+/require tick.tf
+/require textutil.tf
+/require alias.tf
+/set alias new
+
+/load array.tf
+/load binds.tf
+/load combat.tf
+/load counter.tf
+/load equipment.tf
+/load hunt.tf
+/load lists.tf
+/load mail.tf
+/load misc.tf
+/load movement.tf
+/load odmiana.tf
+/load people.tf
+/load substitute.tf
+/load team.tf
+/load testuj.tf
+/load warn.tf
+
+/def reload = \
+	/purge %;\
+	/purge -i alias_body_* %;\
+	/purge -i alias_call_* %;\
+	/def -ag -h'Load' hide_load %;\
+	/eval /cd %{main_dir}/common %;\
+	/load start.tf %;\
+	/eval /cd %{main_dir}/%{obecnie_swiat} %;\
+	/load start.tf %;\
+	/load %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/%{obecnie_expujacy}.tf %;\
+	/load %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/imiona.tf %;\
+	/if ( {poczta_show} =~ "NOWA" )\
+		/status_edit -r1 poczta_show:4:BC%{kolor_alarm} %;\
+	/endif %;\
+	/if ( {sneak} =~ "off" ) \
+		/set sneak %sneak %;\
+		/status_edit -r1 sneak:4:BC%{kolor_main} %;\
+	/elseif ( {sneak} =~ "ON" ) \
+		/set sneak %sneak %;\
+		/status_edit -r1 sneak:4:BC%{kolor_alarm} %;\
+	/elseif ( {sneak} =~ "TEAM" ) \
+		/set sneak %sneak %;\
+		/status_edit -r1 sneak:4:BC%{kolor_alarm} %;\
+	/endif %;\
+	/if ( {bindings} !~ NULL ) \
+		/def -b'`' tempbind = /dobind %{bindings} %;\
+		/if ( {ktype} =~ "mac" ) \
+			/def key_nkp- = /dobind %{*} %;\
+		/endif %;\
+	/endif %;\
+	/hide %hide %;\
+	/f1 %f1 %;\
+	/f2 %f2 %;\
+	/f3 %f3 %;\
+	/f4 %f4 %;\
+	/f5 %f5 %;\
+	/f6 %f6 %;\
+	/f7 %f7 %;\
+	/f8 %f8 %;\
+	/am %attackmode %;\
+	/if ( {ingame} =~ "1" )\
+		/druzyna -q %;\
+	/endif%;\
+	/echo Reloaded.
diff --git a/common/stdplayer.tf b/common/stdplayer.tf
new file mode 100644
index 0000000..de30319
--- /dev/null
+++ b/common/stdplayer.tf
@@ -0,0 +1,59 @@
+;;  Linie zaczynające się od znaków ';;' stanowią komentarz i nie są przetwarzane przez TF-a.
+;;
+
+;;  Włącza logowanie; należy usunąć tę linię, żeby je wyłączyć:
+;;
+/log_on
+
+;; Komenda do dobywania broni. W standardzie jest do zwykłe 'dobadz', ale można użyć komendy
+;; gildiowej albo z zawodu
+
+/set dobadzcmd=dobadz
+
+;;  Tutaj należy ustawić główną broń, którą posługuje się postać:
+;;
+/set bron=bron
+
+;; ... oraz jej nazwę w dopełniaczu
+;;
+/set broni=broni
+
+
+;;  Jeśli postać nosi broń w pochwie, należy ustawić na 'on':
+;;
+/set pochwa=off
+
+;;  .. oraz ustawić jej nazwę, w dopełniaczu:
+;;
+/set pochwa1=bardzo ladnej pochwy
+
+;;  Jeśli postać walczy dwiema brońmi, należy ustawić przestawić na 'on':
+;;
+/set dual=off
+
+;;  ...oraz analogicznie do pierwszej broni ustawić poniższe zmienne:
+;;
+/set bron2=drugi paskudny miecz
+/set broni2=drugiego paskudnego miecza
+/set pochwa2=jeszcze ladniejszej pochwy
+
+/def start = \
+;;
+;;  Poniżej należy ustawić wszystkie komendy, które mają się wykonać po zalogowaniu usuwając
+;;  znaki komentarza (';;') i wpisując je pomiędzy komendą /send a ciągiem '%;\', wg. przykładu:
+;;
+;;  /send zaloz ubrania %;\
+;;  /send zaloz plecak %;\
+;;  /send wloz monety do plecaka %;\
+;;  /send kto %;\
+;;
+;;  Poniższe linie powinny zostać:
+;;
+	/echo -p #@{BC%kolor_info}#@{n}# Loaded settings for: @{BC%kolor_info}%{obecnie_expujacy}@{n}.
+
+;;  Tworzenie własnych aliasów:
+;;  /alias <skrot> <komenda> [%; <komenda2> %; <komenda3>]
+;;
+;;  Przykłady:
+;;  /alias pod podskocz
+;;  /alias ojej powiedz Ojej! %; rozejrzyj sie strachliwie
diff --git a/common/substitute.tf b/common/substitute.tf
new file mode 100644
index 0000000..5a6388d
--- /dev/null
+++ b/common/substitute.tf
@@ -0,0 +1,113 @@
+/def -mregexp -Fp3 -t'ledwo zyw.' _sub_ledwo = /substitute -p %{PL}@{BC%kolor_crit}$[toupper({P0})]@{n}%{PR}
+
+/def _sub = \
+	/return substitute(strcat(decode_attr(strcat({PL}, {P0}, {PR}, " [", {1}, "] "))))
+
+/def _sub_inside = \
+	/return substitute(strcat({PL}, {P0}, " ", {*}, {PR})) %;\
+
+/def -mregexp -Fp2 -t'(przybywaja|podazaja) (z(e|)|na) [wzpgd]' _liczenie_teamow = \
+	/let _ile=%{PL} %; \
+	/let _ile=$[replace("##", " ", replace(" ", "_",replace(", ", "##", replace(" i ", "##", {_ile}))))]%; \
+	/podlicz_team %{_ile}%; \
+	/substitute -p [@{BC%kolor_info}%{_il_wr}@{n}] %{PL}%{P0}%{PR}%;\
+	/unset _il_wr
+
+/def podlicz_team = \
+	/while ({#}) \
+		/test ++_il_wr%; \
+		/shift%; \
+	/done
+
+/def -mregexp -Fp2 -t' atakuje (.*)[!.]' ktos_atakuje = \
+	/if ({P1} =~ "cie") \
+		/eval /set kpra=cie %;\
+	/elseif ({P1} =~ "ciebie") \
+		/eval /set kpra=cie %;\
+	/else \
+		/set kpra=%P1%;\
+	/endif %;\
+	/set klew=%PL %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=%{kpra}
+
+/def -ag -mregexp -Fp2 -t' (?<!ze )jest (w swietnej kondycji|w dobrym stanie|lekko rann.|rann.|w zlej kondycji|ciezko rann.|ledwo zyw.)\\.' kondycja_ktos = \
+	/if ({PL} =/ "\[*\]*") \
+		/set lalala=$[substr({PL}, 7)]%;\
+		/set ktokondycjalewa=$[replace(" ", "_", {lalala})] %;\
+		/set ktokondycjalewa_check=$(/eval /eval /echo $$[%{ktokondycjalewa}_kto_bije]) %;\
+		/if ({lalala} =~ {ktokondycjalewa_check}) \
+			/set kogonaparza=$(/eval /eval /echo $$[%{ktokondycjalewa}_kogo_bije]) %;\
+			/if ({kogonaparza} =~ "cie" ) \
+				/echo -p $[strcat({PL}, {P0}, "@{BCwhite} >>>@{nBCred}>>> CIEBIE!@{n}")] %;\
+			/elseif ({kogonaparza} =~ "ciebie" ) \
+				/echo -p $[strcat({PL}, {P0}, "@{BCwhite} >>>@{nBCred}>>> CIEBIE!@{n}")] %;\
+			/else \
+				/echo -p $[strcat({PL}, {P0}, "@{BCwhite} >>>>>> @{n}", {kogonaparza})] %;\
+			/endif %;\
+		/else \
+			/echo -p $[strcat({PL}, {P0})] %;\
+		/endif %;\
+	/else \
+		/set ktokondycjalewa=$[replace(" ", "_", {PL})] %;\
+		/set ktokondycjalewa_check=$(/eval /eval /echo $$[%{ktokondycjalewa}_kto_bije]) %;\
+		/if ({PL} =~ {ktokondycjalewa_check}) \
+			/set kogonaparza=$(/eval /eval /echo $$[%{ktokondycjalewa}_kogo_bije]) %;\
+			/if ({kogonaparza} =~ "cie" ) \
+				/echo -p $[strcat({PL}, {P0}, "@{BCwhite} >>>@{nBCred}>>> CIEBIE!@{n}")] %;\
+			/elseif ({kogonaparza} =~ "ciebie" ) \
+				/echo -p $[strcat({PL}, {P0}, "@{BCwhite} >>>@{nBCred}>>> CIEBIE!@{n}")] %;\
+			/else \
+				/echo -p $[strcat({PL}, {P0}, "@{BCwhite} >>>>>> @{n}", {kogonaparza})] %;\
+			/endif %;\
+		/else \
+			/echo -p $[strcat({PL}, {P0})] %;\
+		/endif %;\
+	/endif
+
+/def -mregexp -Fp2 -t' probuje trafic ' prbtrf = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t' probuje cie trafic ' prbtrf1 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=cie
+
+/def -mregexp -Fp2 -t' wykonuje .+ mierzac w (.*), lecz ' oslona = \
+	/set ktobijelewa=$[replace(" ", "_", {PL})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%PL %;\
+	/if (strlen({P1}) > 15) \
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P1}, 0, strstr({P1}, " ")))] %;\
+	/else \
+		/eval /set %{ktobijelewa}_kogo_bije=%P1%;\
+	/endif
+
+/def  -mregexp -Fp2 -t' wyprowadza szybkie pchniecie .+ w (.*), lecz .*je z linii ataku .+' zbitka_czyms2 = \
+	/set ktobijelewa=$[replace(" ", "_", {PL})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%PL %;\
+	/if (strlen({P1}) > 15) \
+		/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P1}, 0, strstr({P1}, " ")))] %;\
+	/else \
+		/eval /set %{ktobijelewa}_kogo_bije=%P1%;\
+	/endif
+
+/def -mregexp -p2 -t'(Podazasz za|Wraz z .* podazasz za| przybywa.* za toba) ' czysc_tank = \
+	/quote -S /unset `/listvar -s *_kto_bije%;\
+	/quote -S /unset `/listvar -s *_kogo_bije%;\
+	/nf
+
+/def -mregexp -Fp2 -t' (polegl(a|o|)|umarl(a|o|))\\.' ktos_zdedzil_unset = \
+	/echo -p @{BC%kolor_alarm}>>>>>>****** ZGON ******<<<<<<@{n} %;\
+	/set ktoumarllewa=$[replace(" ", "_", {PL})] %;\
+	/quote -S /unset `/listvar -s %{ktoumarllewa}_kto_bije%;\
+	/quote -S /unset `/listvar -s %{ktoumarllewa}_kogo_bije
+;;	/lc
+
+/def nf = /quote -S /unset `/listvar -s *_k*_bije
diff --git a/common/team.tf b/common/team.tf
new file mode 100644
index 0000000..9a7cf3f
--- /dev/null
+++ b/common/team.tf
@@ -0,0 +1,195 @@
+/def -mglob -Fp2 -t' zaprasza cie do swojej druzyny' team0 = \
+	/beep 1
+
+/def -mregexp -Fp2 -t'przekazuje ci prowadzenie druzyny' team1 = \
+	/beep 1
+
+/def -mregexp -Fp2 -t'dolacza(sz|) * do ' _druzyna_trig_0 = \
+	/echo -p @{BC%kolor_info}>>> @{n}Team has changed (@{BC%kolor_info}ctrl+d@{n}).
+
+/def -mregexp -Fp2 -t'porzuca.* druzyne' _druzyna_trig_2 = \
+	/echo -p @{BC%kolor_info}>>> @{n}Team has changed (@{BC%kolor_info}ctrl+d@{n}).
+
+/def -mregexp -Fp2 -t'rozwiazuje druzyne' _druzyna_trig_3 = \
+	/echo -p @{BC%kolor_info}>>> @{n}Team has changed (@{BC%kolor_info}ctrl+d@{n}).
+
+/def -mregexp -Fp2 -t'zmusza.* do opuszczenia druzyny' _druzyna_trig_4 = \
+	/echo -p @{BC%kolor_info}>>> @{n}Team has changed (@{BC%kolor_info}ctrl+d@{n}).
+
+/def -mregexp -Fp2 -t'przekazuje.* druzyn' _druzyna_trig_5 = \
+	/echo -p @{BC%kolor_info}>>> @{n}Team has changed (@{BC%kolor_info}ctrl+d@{n}).
+
+/def tablica_druzyny = \
+	/quote -S /unset `/listvar -s __druzyna_pozycja_*%;\
+	/quote -S /unset `/listvar -s __druzyna_bie_pozycja_*%;\
+	/let _tmp_druzyna=%{ogolne_druzyna}%;\
+	/let _tmp_druzyna=$[replace("|", " ", {_tmp_druzyna})]%;\
+	/let _tmp_druzyna_bie=%{ogolne_druzyna_bie}%;\
+	/let _tmp_druzyna_bie=$[replace("|", " ", {_tmp_druzyna_bie})]%;\
+;;	/let _tmp_druzyna_bie=$[replace("elikea", "elike", {_tmp_druzyna_bie})]%;\
+	/add_array druzyna %{_tmp_druzyna}%;\
+	/add_array druzyna_bie %{_tmp_druzyna_bie}%;\
+	/rozmiar_tablicy druzyna %;\
+	/rozmiar_tablicy druzyna_bie %;\
+	/ustaw_indeksy
+
+/def -b'^D' ustaw_druzynke_bind = /druzyna
+
+/def druzyna = \
+	/purge key_esc_f1 %;\
+	/purge key_esc_f2 %;\
+	/purge key_esc_f3 %;\
+	/purge key_esc_f4 %;\
+	/purge key_esc_f5 %;\
+	/purge key_esc_f6 %;\
+	/purge key_esc_f7 %;\
+	/purge key_esc_f8 %;\
+	druzyna %;\
+	/set ogolne_druzyna=DRUZYNA %;\
+	/set ogolne_leader=LEADER %;\
+	/purge __druzyna_tmp_* %;\
+	/def -ag -t'*Nie jestes w zadnej druzynie.*' __druzyna_tmp_1= \
+		/am 1 %%;\
+		/_ustaw_druzyne %%;\
+		/quote -S /unset `/listvar -s __druzyna_pozycja_*%%;\
+		/quote -S /unset `/listvar -s __druzyna_bie_pozycja_*%;\
+	/def -ag -mregexp -t'Przewodzisz druzynie, w ktorej oprocz ciebie jest jeszcze ([^.]*)\\\\.$$' __druzyna_tmp_2a= \
+		/am 3 %%;\
+		/set ogolne_druzyna=%%{P1} %%;\
+		/_ustaw_druzyne %%;\
+		/repeat -1 1 /tablica_druzyny %;\
+	/def -ag -mregexp -t'Druzyne prowadzi (.*)( i oprocz ciebie (sa|jest) w niej jeszcze(: | )([^.]*)\\\\.$$|, zas ty jestes jej jedynym czlonkiem.)' __druzyna_tmp_3a= \
+		/am 1 %%;\
+		/set ogolne_leader=$$[{P1}] %%;\
+		/set ogolne_leader=$$[escape("\\\\",escape("()",{ogolne_leader}))] %%;\
+		/set ogolne_leader_dop=$$(/_l_odmien D %%{ogolne_leader}) %%;\
+		/set ogolne_leader_bie=$$(/_l_odmien B %%{ogolne_leader}) %%;\
+		/set ogolne_leader_nar=$$(/_l_odmien N %%{ogolne_leader}) %%;\
+;; nightal
+    	/set ogolne_leader_bie=$$[replace("arda", "arde", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("rydharde", "rydharda", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("larella", "larelle", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("enta", "entu", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("tyrania", "tyranie", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("naraka", "naraku", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("isobella", "isobell", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("perla", "perle", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("ayrena", "ayren", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("szassa", "szass", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("venisa", "venise", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("maevea", "maeve", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("rteca", "rtec", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("myrela", "myrale", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("squibiea", "squibiego", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("rhera", "rhere", {ogolne_leader_bie})]%%;\
+;; arkadia
+	    /set ogolne_leader_bie=$$[replace("myra", "myre", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("elikea", "elike", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("bara", "bare", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("necra", "necre", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("ayletta", "aylett", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("deliego", "deli", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("ilanea", "ilane", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("aida", "aide", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("ineza", "inez", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("nastilla", "nastille", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("lidia", "lidie", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("gerdia", "gerdie", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("arroniego", "arronie", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("istrida","istrid", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("vaea","vae", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("jinesha","jinesh", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("ursa", "urse", {ogolne_leader_bie})]%%;\
+	    /set ogolne_leader_bie=$$[replace("aenya", "aenye", {ogolne_leader_bie})]%%;\
+		/set ogolne_druzyna=%%{P5-DRUZYNA} %%;\
+		/_ustaw_druzyne%;\
+	/if ( {1} !~ "-q" )\
+		/repeat -1 1 /echo -p #@{BC%kolor_info}#@{n}# Team set, attack mode: @{BC%kolor_info}%opis_ataku@{n}.%;\
+	/endif
+
+/def _ustaw_druzyne = \
+	/purge __druzyna_tmp_* %;\
+	/set ogolne_druzyna=$[replace(" kleczac. na ziemi", "", ogolne_druzyna)] %;\
+	/set ogolne_druzyna=$[replace(" piszac. list", "", ogolne_druzyna)] %;\
+	/set ogolne_druzyna=$[replace(" i ", "|", ogolne_druzyna)] %;\
+	/set ogolne_druzyna=$[replace(", ", "|", ogolne_druzyna)] %;\
+	/set ogolne_druzyna=$[escape("\\",escape("()[]",{ogolne_druzyna}))] %;\
+	/set ogolne_druzyna_dop=$(/_l_odmien D %{ogolne_druzyna}) %;\
+	/set ogolne_druzyna_bie=$(/_l_odmien B %{ogolne_druzyna}) %;\
+	/set ogolne_druzyna_nar=$(/_l_odmien N %{ogolne_druzyna}) %;\
+; --- Wyjatki imion zle odmienialnych (biernik) ---
+;; nightal
+    /set ogolne_druzyna_bie=$[replace("arda", "arde", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("rydharde", "rydharda", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("larella", "larelle", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("enta", "entu", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("tyrania", "tyranie", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("naraka", "naraku", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("isobella", "isobell", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("perla", "perle", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("ayrena", "ayren", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("venisa", "venise", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("maevea", "maeve", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("rteca", "rtec", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("myrela", "myrale", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("squibiea", "squibiego", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("rhera", "rhere", {ogolne_druzyna_bie})]%;\
+;; arkadia
+    /set ogolne_druzyna_bie=$[replace("myra", "myre", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("elikea", "elike", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("bara", "bare", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("necra", "necre", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("ayletta", "aylett", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("deliego", "deli", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("ilanea", "ilane", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("aida", "aide", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("ineza", "inez", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("nastilla", "nastille", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("lidia", "lidie", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("gerdia", "gerdie", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("arroniego", "arronie", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("istrida", "istrid", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("vaea", "vae", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("jinesha", "jinesh", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("ursa", "urse", {ogolne_druzyna_bie})]%;\
+    /set ogolne_druzyna_bie=$[replace("aenya", "aenye", {ogolne_druzyna_bie})]%;\
+	/_zaslona_binds
+
+/def _zaslona_binds = \
+	/let _tmp=$[strcat({ogolne_leader_bie}, "|", {ogolne_druzyna_bie}, "|")] %;\
+	/while /let i=$[strstr({_tmp},"|")] %;/@test i >- 1 %;/do \
+		/let _name=$[substr({_tmp},0,i)] %;\
+		/let _tmp=$[substr({_tmp},i+1)] %;\
+		/test _zaslona_bind_one({_name}, {_ilosc}, "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12") %;\
+		/let _ilosc=$[{_ilosc} + 1] %;\
+	/done
+
+/def _zaslona_show_numbers = \
+	/let _numer_do_zaslony=1 %;\
+	/purge _zaslona_show_numbers_* %;\
+	/purge koncentracja_show_numbers* %;\
+	/purge przejecie_ataku_show_numbers* %;\
+	/let _tmp=$[strcat({ogolne_leader}, "|", {ogolne_druzyna}, "|")] %;\
+	/while /let i=$[strstr({_tmp},"|")] %;/@test i >- 1 %;/do \
+		/let _name=$[substr({_tmp},0,i)] %;\
+		/let _tmp=$[substr({_tmp},i+1)] %;\
+		/if ({_numer_do_zaslony} < 13) \
+			/def -mregexp -Fp3 -t'^%{_name}.* jest (w swietnej kondycji|w dobrym stanie|lekko rann(y|a)|rann(y|a)|w zlej kondycji|ciezko rann(y|a)|ledwo zyw(y|a)).' _zaslona_show_numbers_%{_numer_do_zaslony} = /return substitute(strcat("@{BCwhite}[ ", pad(strcat("F", %{_numer_do_zaslony}), -2), " ]@{n} ", {*}), "x", 1) %;\
+		/endif %;\
+		/let _numer_do_zaslony=$[{_numer_do_zaslony} + 1] %;\
+   	 /done
+
+/def _zaslona_bind_one = \
+	/if ({2} >= 12) \
+		/return %;\
+	/endif %;\
+	/let _name=%{1} %;\
+	/let _ilosc=%{2} %;\
+	/shift $[2+ {_ilosc}] %;\
+	/def key_esc_f%{1} = zaslon %{_name}%;\
+	/alias z%{1} chr %{_name} %;\
+	/if ({obecnie_swiat} =~ "arkadia" )\
+		/alias g%{1} zaslon %{_name} przed grupa %;\
+	/endif %;\
+	/shift 12 %;\
+	/_zaslona_show_numbers
diff --git a/common/testuj.tf b/common/testuj.tf
new file mode 100644
index 0000000..bf90fd7
--- /dev/null
+++ b/common/testuj.tf
@@ -0,0 +1,76 @@
+; by Ingwar
+
+/def szukaj = /testuj
+/def testuj = \
+	spoliczkuj kogo? %;\
+	/def -p306 -1 -i -agLG -t'Spoliczkuj kogo?' _testuj_poczatek = \
+		/let _testuj_komendy=\
+		wykop|kop|trenuj|kup|przejrzyj|zamow|wejdz|przejdz|wespnij|zlap|\
+		chwyc|zejdz|zsun|dotknij|urwij|wyskocz|zlam|zniszcz|rozwal|uderz|\
+		pomodl|modl|rozsun|wsun|dosun|posun|odsun|nasun|wysun|zasun|\
+		przesun|usun|rozciagnij|wciagnij|dociagnij|pociagnij|odciagnij|\
+		naciagnij|wyciagnij|zaciagnij|uciagnij|wcisnij|docisnij|pocisnij|\
+		odcisnij|wycisnij|zacisnij|przecisnij|ucisnij|rozlacz|wlacz|\
+		polacz|odlacz|wylacz|zalacz|przelacz|rozerwij|porwij|oderwij|narwij|\
+		wyrwyj|przerwij|podwaz|wywaz|przewaz|roznies|wnies|donies|\
+		ponies|odnies|nanies|wynies|zanies|przenies|unies|wplyn|doplyn|\
+		poplyn|wyplyn|zanurkuj|nurkuj|przeplyn|umiesc|nadaj|wypowiedz|\
+		zapukaj|zadzwon|rozpal|podpal|rzuc|podrzuc|podsadz|rozbij|przebij|\
+		zmien|zamien|przemien|pokaz|podloz|podeprzyj|przeczolgaj|czolgaj|\
+		wdrap|wyjdz|zastukaj|przepraw|przelej|wyrwij|wyjrzyj|wczolgaj|\
+		wygladnij|podciagnij|wygnij|nalej|odlej|wyrzuc|podnies|zloz|\
+		zasyp|nasyp|przesyp|podlej|opowiedz|sprawdz|popraw|zwroc|\
+		nacisnij|zajrzyj|siadz|usiadz|popchnij|pchnij|wplyn|\
+		wslizgnij|wskocz|zeskocz|wkrec|wykrec|odkrec|zakrec|przekrec|\
+		odbierz|wydlub|poswiec|ukorz|oddaj|kleknij|ukleknij|poddaj|\
+		odetnij|odwiaz|odetkaj|wykap|zdeponuj|przeskocz|postaw|zdepcz|zadepcz|\
+		rozdepcz|przetrzyj|wyczysc|oczysc|powachaj|wachaj|sproboj|pobierz|\
+		wygrzeb|odgrzeb|zerwij|zaczep|odczep|przyczep|przypnij|przyloz|przystaw|\
+		odchyl|przezuj|sproszkuj|spal|wypal|przywiaz|zawiaz|rozgryz|pozbieraj|\
+		zbieraj|doloz|zabierz|zalej|zagrzeb|rozbroj|przekop|popusc|obroc|\
+		wydoj|sciagnij|zatknij|rozegraj|graj|przymij|zarzuc|\
+		zdenominuj|wypozycz|pozycz|napraw|wybierz|wydrap|naloz|odpocznij|\
+		potargaj|utul|zanuc|pobij|mietos|spij|przytrocz|dmuchnij|odczytaj|\
+		wyryj|naostrz|zlomuj|wrzuc|odrzuc|ogrzej|wstan|powstan|kucnij|ukucnij|\
+		wytnij|rozpostrzyj|zepnij|rozepnij|przylacz|odlacz|przeslizgnij|\
+		zadeklaruj|zaplac|\
+		%%;\
+		/while /let i=$$[strstr({_testuj_komendy},"|")] %%; /@test i > 0 %%; /do \
+		/send $$[strcat(substr({_testuj_komendy},0,i), " Grrrrr..")] %%;\
+		/let _i_=$$[{_i_}+1] %%;\
+		/set _testuj_komendy2=$$[strcat({_testuj_komendy2},pad({_i_},-3),substr({_testuj_komendy},0,i+1))] %%;\
+		/let _testuj_komendy=$$[substr({_testuj_komendy},i+1)] %%;\
+		/done %%;\
+		/set _testuj_ilosc=0 %%;\
+		spoliczkuj kogo? %%;\
+		/def -agLG -p301 -i -mregexp -t'^(> )*Slucham\\\\\\\\?$$$$' _testuj_gag1 = \
+			/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
+			/set _testuj_cos=1 %%;\
+		/def -agLG -p301 -i -mregexp -t'^(> )*Ze co\\\\\\\\?$$$$' _testuj_gag2 = \
+			/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
+			/set _testuj_cos=1 %%;\
+		/def -agLG -p301 -i -mregexp -t'^(> )*Pociagnij .nosem. .jak.\\\\\\\\?$$$$' _testuj_gag3 = \
+			/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
+			/set _testuj_cos=1 %%;\
+		/def -p205 -i -mregexp -h'PROMPT ^> ' _testuj_gag4 = \
+			/set _testuj_cos=1 %%;\
+		/def -p300 -i -mregexp -t'^> ' _testuj_gag5 = \
+			/set _testuj_cos=1 %%%;\
+			/_testuj_gag_hit %%;\
+		/def -p200 -i -t'*' _testuj_gag_hit = \
+			/if ({_testuj_cos}==1) \
+				/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
+				/set _testuj_ilosc2=$$$[{_testuj_ilosc2}+1] %%%;\
+				/set _testuj_cos=0 %%%;\
+				/let num=$$$[strstr({_testuj_komendy2},{_testuj_ilosc})+3] %%%;\
+				/let num2=$$$[strstr(substr({_testuj_komendy2},{num}),"|")] %%%;\
+				/let _testuj_kom=$$$[substr({_testuj_komendy2},{num},{num2})] %%%;\
+				/echo -p Komenda: @{BC%kolor_info}%%%{_testuj_kom}@{n} %%%;\
+			/endif %%;\
+		/def -p305 -agLG -i -t'*Spoliczkuj kogo?' _testuj_koniec = \
+			/echo -p #@{BC%kolor_info}#@{n}# Udanych: @{BC%kolor_info}%%%{_testuj_ilosc2-}@{n}/%%%{_testuj_ilosc}@{n} %%%;\
+			/purge -i _testuj_* %%%;\
+			/unset _testuj_ilosc %%%;\
+			/unset _testuj_ilosc2 %%%;\
+			/unset _testuj_cos %%%;\
+			/unset _testuj_komendy2
diff --git a/common/warn.tf b/common/warn.tf
new file mode 100644
index 0000000..d36c153
--- /dev/null
+++ b/common/warn.tf
@@ -0,0 +1,19 @@
+/def -mregexp -Fp2 -t' daje ci (?!sie we znaki)' warn_give = \
+	/echo %;\
+	/echo -p @{BC%kolor_main} <<< podanie >>> %;\
+	/echo
+
+/def -mregexp -Fp2 -t'porzuca twoja druzyne' warn_sygnal = \
+	/echo %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- SYGNAL ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- SYGNAL ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- SYGNAL ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
+
+/def _lampa_warn = \
+	/echo %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- LAMPA ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- LAMPA ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- LAMPA ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo %;\
+	/tbind lampa_on_cmd
diff --git a/nightal/colors.tf b/nightal/colors.tf
new file mode 100644
index 0000000..05649e0
--- /dev/null
+++ b/nightal/colors.tf
@@ -0,0 +1,447 @@
+; ogólne
+/eval /def -PBC%kolor_main    -Fp5 -t'Tak jest\\.'
+/eval /def -PBC%kolor_main    -Fp5 -t'Ze co.'
+/eval /def -PBC%kolor_main    -Fp5 -t'zaprasza cie do swojej druzyny'
+/eval /def -PBCwhite;Cbggreen -Fp5 -t' przybywa(ja|)'
+/eval /def -PBCwhite;Cbggreen -Fp5 -t' przybiega(ja|)'
+/eval /def -PBCbggreen;Cwhite -Fp5 -t' podaza(ja|sz|) '
+/eval /def -PBCbggreen;Cwhite -Fp5 -t' wybiega(ja|)'
+/eval /def -ar -mglob          -Fp5 -t'*przekazuje ci dowodzenie nad druzyna*'
+
+; walka
+/eval /def -ar -mregexp       -Fp5 -t'.* zaslania .* przed twoimi ciosami.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* atakuje cie(bie|)[!.]'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* stajesz na .* drodze.'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* przebijajac sie przez twoja .*'
+
+/eval /def -PBC%kolor_atak   -Fp5 -t'^Atakujesz .*'
+/eval /def -PBC%kolor_atak  -Fp5 -t'Wspierasz '
+/eval /def -PBC%kolor_atak  -Fp5 -t' wspiera cie '
+/eval /def -PBC%kolor_atak  -Fp5 -t'.* atakuje .*'
+/eval /def -PBC%kolor_atak  -Fp5 -t'.* probuje cie zaatakowac, lecz .*'
+/eval /def -PBC%kolor_atak  -Fp5 -t'.* przebijajac sie przez (jej|jego) .*'
+/eval /def -PBC%kolor_atak   -Fp5 -t'^Z zacietoscia rzucasz sie na .* przebijajac sie przez .*!'
+/eval /def -PBC%kolor_atak   -Fp5 -t'Walczysz '
+/eval /def -PBC%kolor_atak   -Fp5 -t' walczy '
+/eval /def -PCred            -Fp5 -t'.* (umarl|polegl)(a|o|)\\.'
+/eval /def -PBCred           -Fp5 -t'^Zabil.s (.*)'
+/eval /def -PCbgwhite;BCred  -Fp5 -t'Zaslaniasz'
+/eval /def -PCbgwhite;BCred  -Fp5 -t'zaslania cie '
+/eval /def -PCbgwhite;Cred   -Fp5 -t'zaslania'
+/eval /def -PCbgwhite;BCblue -Fp5 -t'Prob.jesz zaslonic'
+/eval /def -PCbgwhite;BCblue -Fp5 -t'prob.je cie zaslonic'
+/eval /def -PCbgwhite;Cblue  -Fp5 -t'prob.je zaslonic'
+/eval /def -PCbgwhite;Cred   -Fp5 -t'przestaje zaslaniac'
+/eval /def -PBC%kolor_alarm  -Fp5 -t'Czujesz sie ekstremalnie zmeczon..'
+
+; ataki niestandardowe
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* uderza sie gwaltownie w tors .* ciebie .*'
+/eval /def -PC%kolor_atak -Fp5 -t'.* wydajac z siebie .* rzuca sie na .*'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* rusza na ciebie wzywajac kogos do walki!'
+/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* rozdziawia szczeke i wpatruje sie w Ciebie przez pare chwil.*'
+
+; ciosy	
+/eval /def -mregexp -PBC%kolor_fight_me -Fp5 -t'(Smiercionosnie tniesz|Bardzo mocno tniesz|Tylko nacinasz|Nacinasz|Tniesz|Gleboko tniesz|Lekko tniesz|Klujesz|Dzgasz|Gleboko klujesz|Powaznie klujesz|Powaznie tniesz|Zadrapujesz|Ledwie zadrapujesz|Brutalnie tluczesz|Powaznie obijasz|Obijasz|Tluczesz|Mocno uderzasz|Lekko obijasz|Muskasz|Lekko nakluwasz|Uderzasz|Bardzo gleboko przebijasz|Siniaczysz)'
+/eval /def -mregexp -PBC%kolor_fight -Fp5 -t' (smiercionosnie tnie|bardzo mocno tnie|tylko nacina|nacina|tnie|gleboko tnie|lekko tnie|kluje|dzga|gleboko kluje|powaznie kluje|powaznie tnie|zadrapuje|ledwie zadrapuje|brutalnie tlucze|powaznie obija|obija|tlucze|mocno uderza|lekko obija|muska|lekko nakluwa|uderza|bardzo gleboko przebija|siniaczy) cie '
+/eval /def -PC%kolor_fight -Fp5 -t' (smiercionosnie tnie|bardzo mocno tnie|tylko nacina|nacina|tnie|gleboko tnie|lekko tnie|kluje|dzga|gleboko kluje|powaznie kluje|powaznie tnie|ledwie zadrapuje|zadrapuje|brutalnie tlucze|powaznie obija|obija|tlucze|mocno uderza|lekko obija|muska|lekko nakluwa|uderza|bardzo gleboko przebija|siniaczy) (?!cie )'
+
+/eval /def -mregexp -PBC%kolor_fight_me -Fp5 -t'(Ledwo muskasz|Lekko ranisz|Ranisz|Powaznie ranisz|Bardzo ciezko ranisz|Masakrujesz) '
+/eval /def -mregexp -PBC%kolor_fight -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) cie '
+/eval /def -mregexp -PC%kolor_fight  -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) (?!cie )'
+
+; kondycja
+/eval /def -PBC%kolor_main  -Fp5 -t'w swietnej kondycji'
+/eval /def -PBC%kolor_main  -Fp5 -t'w dobrym stanie'
+/eval /def -PBC%kolor_main  -Fp5 -t'lekko rann.'
+/eval /def -PBC%kolor_alarm -Fp5 -t' rann.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'w zlej kondycji'
+/eval /def -PBC%kolor_crit  -Fp4 -t'(ciezko rann.)'
+/eval /def -PBC%kolor_crit  -Fp1 -t'ledwo zyw.'
+
+; mana
+/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie w pelni sil'
+/eval /def -PBC%kolor_alarm  -Fp5 -t'mentalnie lekko oslabion.'
+/eval /def -PBC%kolor_alarm  -Fp5 -t'mentalnie oslabion.'
+/eval /def -PBC%kolor_alarm  -Fp5 -t'mentalnie zmeczon.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie bardzo zmeczon.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie w zlej kondycji'
+/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie wyczerpan.'
+/eval /def -PBC%kolor_crit  -Fp5 -t'mentalnie wykonczon.'
+/eval /def -PBC%kolor_crit  -Fp5 -t'mentalnie u kresu sil'
+
+; zmeczenie
+/eval /def -PBC%kolor_main -Fp5 -t'jestes w pelni wypoczet(y|a)\\.'
+/eval /def -PBC%kolor_main -Fp5 -t'jestes wypoczet(y|a)\\.'
+/eval /def -PBC%kolor_main -Fp5 -t'jestes troche zmeczon(y|a)\\.'
+/eval /def -PBC%kolor_main -Fp5 -t'jestes zmeczon(y|a)\\.'
+/eval /def -PBC%kolor_main -Fp5 -t'jestes bardzo zmeczon(y|a)\\.'
+/eval /def -PBC%kolor_main -Fp5 -t'jestes nieco wyczerpan(y|a)\\.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'jestes wyczerpan(y|a)\\.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'jestes bardzo wyczerpan(y|a)\\.'
+/eval /def -PBC%kolor_crit -Fp5 -t'jestes wycienczon(y|a)\\.'
+/eval /def -PBC%kolor_crit -Fp5 -t'jestes calkowicie wycienczon(y|a)\\.'
+
+/eval /def -PBC%kolor_crit  -Fp5 -t'Jestes tak zmeczon., ze nie mozesz dalej .* w tym kierunku\\.'
+
+; postepy
+/eval /def -mregexp -Fp5 -PBC%kolor_main -t'(Nie poczynil[ea]s| (.*) postepy)'
+
+/eval /def -PBC%kolor_main  -Fp5 -t'Dzierzy(sz|) .*'
+/eval /def -PC%kolor_main   -Fp5 -t'Ma(sz| on| ona) na sobie '
+/eval /def -PC%kolor_main   -Fp5 -t'Masz przy sobie ' 
+/eval /def -PBC%kolor_main  -Fp5 -t'ze jest w znakomitym stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w (dobrym|zlym|bardzo zlym) stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze liczne walki wyryly na .* swoje pietno'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze wymaga natychmiastowej konswerwacji'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze moze peknac w kazdej chwili'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest lekko podniszczon.'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w kiepskim stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w oplakanym stanie'
+/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest gotow. rozpasc sie w kazdej chwili'
+/eval /def -PBC%kolor_alarm -Fp5 -t'nie nadaje sie do (ostrzenia|naprawy).'
+
+; poczta
+/eval /def -PBC%kolor_main  -Fp5 -t'^Nagle, tuz przed toba, z chmury dymu .*'
+/eval /def -PBC%kolor_main  -Fp5 -t'^Masz now(a|y) .*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Czeka na ciebie .* poczta.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Pozostawia na twojej dloni wiadomosc i.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Podnosisz go i odczepiasz.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Z glosnym trzepotem skrzydel na twoim ramieniu siada.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*agle miedzy twoimi nogami zaczyna platac.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Nie mija chwila gdy ptak przysiada na twoim ramieniu..*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Na twoim przedramieniu niespodziewanie wyladowala snieznobiala pocztowa mewa..*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Dociera do twojego przedramienia, gdzie przystaje, poruszajac lekko ogonem..*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*agle tuz pod twoja noge przypelza kolorowa cetkowana zmija i szczerzy groznie kly jadowe..*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Nagle wesolo merdajac ogonkiem przybiega do ciebie.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Czujesz wokol siebie dosc dziwny zapach, ktory kojarzyc moze sie ze zgnilizna.*'
+/eval /def -PBC%kolor_main  -Fp5 -t'.*Nagle, tuz obok ciebie, w rozblysku ognia pojawia sie ognisty zlosliwy imp, z niechecia wreczajac ci wiadomosc.*'
+
+; mowienie
+/eval /def -mregexp -PBC%kolor_speak -Fp5 -t'(Mowisz|Krzyczysz|Szepczesz)(.*)'
+/eval /def -mregexp -PBC%kolor_speak -Fp5 -t'(.*) (mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|wola)((.*)| )do ciebie: (.*)'
+/eval /def -mregexp -PC%kolor_speak  -Fp5 -t'(.*) ((?-i)mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|wola)(| z (.*)|(.*)|( z (.*) do (?!ciebie))|(.*) do (?!ciebie)): (.*)'
+
+/def glow = \
+	/def -PBC%kolor_glow -Fp5 -t'%{*}' _glow_%{1}
+
+/def unglow = \
+	/purge -i _glow_%{*}
+		
+; by Ingwar
+
+/set ogolne_skrzynia_dluga=1
+
+/def _skrzynia = \
+	/purge _skrzynia_trig_* %;\
+	/if ({ogolne_skrzynia_dluga}==1) \
+		/def -agC%kolor_info -p2 -mregexp -t'( zawiera(?:|ja)|powieszono) (.+, .+ i .+)\\\\.$$' _skrzynia_trig_1 = /test _skrzynia_pokaz(strcat({PL}, {P1}, ":"), {P2}) %;\
+	/endif
+
+/_skrzynia
+
+/purge -i _skrzynia_pokaz
+
+/def -i _skrzynia_pokaz = \
+	/let _tmp=$[replace(", ", "|", {2})] %;\
+	/let _tmp=$[strcat(replace(" i ", "|", {_tmp}), "|")] %;\
+	/let _tmp=$[replace("||", "|", {_tmp})] %;\
+	/while /let i=$[strstr({_tmp},"|")] %; /@test i > -1 %; /do \
+		/let _name=$[substr({_tmp},0,i)] %;\
+		/let _tmp=$[substr({_tmp},i+1)] %;\
+		/let _ile=$(/_zam_licz %{_name}) %;\
+		/if ({_ile} != 1) \
+			/let _name=$[substr({_name}, strchr({_name}, " ") + 1)] %;\
+		/endif %;\
+		/if (regmatch("\
+			gwiezdny.* topor|\
+			", {_name})) \
+			/let _name=$[strcat(decode_attr(""), {_name})] %;\
+		/elseif (regmatch("\
+			prost. smukl. rapier|\
+			", {_name})) \
+			/let _name=$[strcat(decode_attr(""), {_name})] %;\
+		/endif %;\
+		/if (regmatch({ogolne_skrzynia_podswietl-NICO}, {_name})) \
+			/let _name=$[strcat(decode_attr(strcat("@{BCmagenta}[", {_ile}, "] ")), substr({_name}, 0, strstr({_name}, "]") + 1), decode_attr(strcat(substr({_name}, strstr({_name}, "]") + 1))))] %;\
+		/else \
+			/let _name=$[strcat("[", {_ile}, "] ", {_name})] %;\
+		/endif %;\
+		/if (regmatch("\
+			topor|\
+			berdysz|\
+			siekier|\
+			czekan|\
+			oskard|\
+			kilof|\
+			tasak|\
+			tabar|\
+			nadziak|\
+			miecz|\
+			szabl|\
+			szabel|\
+			rapier|\
+			scimitar|\
+			katzbalger|\
+			stilett|\
+			pal|\
+			sztylet|\
+			halabard|\
+			falchion|\
+			mlot|\
+			obusz|\
+			wlocznie|\
+			pik[ei]|\
+			noz|\
+			maczug|\
+			morgenstern|\
+			kordelas|\
+			mizerykordi|\
+			buzdygan|\
+			korbacz|\
+			gal[ae]z|\
+			bulaw|\
+			drag|\
+			kiscien|\
+			nog[ai] stolow|\
+			wekier|\
+			walek|\
+			lamia|\
+			kos[aye]|\
+			szponton|\
+			partyzan|\
+			glewi|\
+			gizarm|\
+			dzid|\
+			naginat|\
+			rohatyn|\
+			korsek |\
+			cep|\
+			trojz[ea]b|\
+			ronkon|\
+			runk|\
+			flamberg|\
+			poltorak|\
+			bulat|\
+			nimsz|\
+			szamszir|\
+			lami|\
+			spis[ay]|\
+			schiavon|\
+			lewak|\
+			sierp|\
+			lask|\
+			wid(e|)l|\
+			saif|\
+			koncerz|\
+			kij|\
+			espadon|\
+			claymor|\
+			cinquend|\
+			szpad|\
+			karabel|\
+			jatagan|\
+			baselard\
+			", {_name})) \
+			/let _tmp_zb_1=$[strcat(_tmp_zb_1, _name, "|")] %;\
+		/elseif (regmatch("tarcz|puklerz|pawez", {_name})) \
+			/let _tmp_zb_2=$[strcat(_tmp_zb_2, _name, "|")] %;\
+		/elseif (regmatch("napiersnik|kirys|kolczug|karacen|kaftan|koszul|tunik|zbroj|bajdan[ay]|anim[eay]|kozus|kurt|kamizel|becht|pancerz", {_name})) \
+			/let _tmp_zb_3=$[strcat(_tmp_zb_3, _name, "|")] %;\
+		/elseif (regmatch("nareczak|naramiennik|rekawic|karwasz", {_name})) \
+			/let _tmp_zb_4=$[strcat(_tmp_zb_4, _name, "|")] %;\
+		/elseif (regmatch("nagolennik|spoden|nogawic|but(y|ow)|trzewik|spodni|spodnic|naudziak|sandal|nakolannik", {_name})) \
+			/let _tmp_zb_5=$[strcat(_tmp_zb_5, _name, "|")] %;\
+		/elseif (regmatch("helm|misiurk|kaptur|morion|basinet|salad|przylbic|diadem|szyszak|narbut[ay]| armet|casquett| czapk|beret|turban|gigantyczn. wzmacnian. czaszk| barbut|kapalin", {_name})) \
+			/let _tmp_zb_6=$[strcat(_tmp_zb_6, _name, "|")] %;\
+		/elseif (regmatch("plaszcz|peleryn| tog| szat|bloniaste skrzydl", {_name})) \
+			/let _tmp_zb_7=$[strcat(_tmp_zb_7, _name, "|")] %;\
+		/else \
+			/let _tmp_zb_8=$[strcat(_tmp_zb_8, _name, "|")] %;\
+		/endif %;\
+	/done %;\
+	/let _szer=$[wrapsize / 2 - 4] %;\
+	/test echo(strcat("+", strrep("-", {_szer} * 2 - 44 - %{wrapspace}), "+")) %;\
+	/let i=0 %;\
+	/while (i < 4) \
+		/let i1=$[{i} * 2 + 1] %;\
+		/let i2=$[{i} * 2 + 2] %;\
+		/eval /set _zb=%%_tmp_zb_%{i1} %;\
+		/eval /set _zb2=%%_tmp_zb_%{i2} %;\
+		/if ({_zb} !~ NULL | {_zb2} !~ NULL) \
+		    /while (_zb !~ "" | _zb2 !~ "") \
+				/let _k=$[strstr({_zb},"|")] %;\
+				/let _name=$[substr({_zb},0,_k)] %;\
+				/let _name=$[substr(_name, 0, {_szer})] %;\
+				/set _zb=$[substr({_zb},_k+1)] %;\
+				/let _k2=$[strstr({_zb2},"|")] %;\
+				/let _name2=$[substr({_zb2},0,_k2)] %;\
+				/let _name2=$[substr(_name2, 0, {_szer})] %;\
+				/set _zb2=$[substr({_zb2},_k2+1)] %;\
+				/test echo(strcat("| ", pad({_name}, - {_szer} + 25 + %{wrapspace}), " | ", pad({_name2}, - {_szer} + 24 + %{wrapspace}), " |")) %;\
+			/done %;\
+			/test echo(strcat("+", strrep("-", {_szer} * 2 - 44 - %{wrapspace}), "+")) %;\
+		/endif %;\
+		/test ++i %;\
+	/done %;\
+	/unset _zb %;\
+	/unset _zb2 %;\
+	/unset _na %;\
+	/unset _na2
+
+/purge -i _zam_licz
+
+/def -i _zam_licz = \
+	/if ({1} =~ "dwa" | {1} =~ "dwie" | {1} =~ "dwoch") \
+		/test echo(2) %;\
+	/elseif ({1} =~ "trzy" | {1} =~ "trzech") \
+		/test echo(3) %;\
+	/elseif ({1} =~ "cztery" | {1} =~ "czterej") \
+		/test echo(4) %;\
+	/elseif ({1} =~ "piec" | {1} =~ "pieciu") \
+		/test echo(5) %;\
+	/elseif ({1} =~ "szesc" | {1} =~ "szeciu") \
+		/test echo(6) %;\
+	/elseif ({1} =~ "siedem" | {1} =~ "siedmiu") \
+		/test echo(7) %;\
+	/elseif ({1} =~ "osiem" | {1} =~ "osmiu") \
+		/test echo(8) %;\
+	/elseif ({1} =~ "dziewiec" | {1} =~ "dziewieciu") \
+		/test echo(9) %;\
+	/elseif ({1} =~ "dziesiec" | {1} =~ "dziesieciu") \
+		/test echo(10) %;\
+	/elseif ({1} =~ "jedenascie" | {1} =~ "jedynastu") \
+		/test echo(11) %;\
+	/elseif ({1} =~ "dwanascie" | {1} =~ "dwunastu") \
+		/test echo(12) %;\
+	/elseif ({1} =~ "trzynascie" | {1} =~ "trzynastu") \
+		/test echo(13) %;\
+	/elseif ({1} =~ "czternascie" | {1} =~ "czternastu") \
+		/test echo(14) %;\
+	/elseif ({1} =~ "pietnascie" | {1} =~ "pietnastu") \
+		/test echo(15) %;\
+	/elseif ({1} =~ "szesnascie" | {1} =~ "szesnastu") \
+		/test echo(16) %;\
+	/elseif ({1} =~ "siedemnascie" | {1} =~ "siedemnastu") \
+		/test echo(17) %;\
+	/elseif ({1} =~ "osiemnascie" | {1} =~ "osiemnastu") \
+		/test echo(18) %;\
+	/elseif ({1} =~ "dziewietnascie" | {1} =~ "dziewietnastu") \
+		/test echo(19) %;\
+	/elseif ({1} =~ "dwadziescia" | {1} =~ "dwudziestu") \
+		/test echo(20) %;\
+	/elseif (regmatch("(\\d+)", {1})) \
+		/test echo(decode_attr(strcat("@{nCwhite}", {1}))) %;\
+	/elseif ({1} =~ "wiele" | {1} =~ "wielu") \
+		/test echo("X") %;\
+	/else \
+		/test echo(1) %;\
+	/endif
+
+/def um = \
+	/if ({*}=~NULL) \
+		/send umiejetnosci bojowe %;\
+		/send umiejetnosci ogolne %;\
+		/send umiejetnosci zlodziejskie %;\
+		/set _umiejetnosci_i=6 %;\
+		/let _um_ktore=bojowe ogolne zlodziejskie %;\
+	/else \
+		/if ({*}=~"wszystkie") \
+			umiejetnosci %;\
+			/let _um_ktore=wszystkie %;\
+		/else \
+			umiejetnosci %{*} %;\
+			/let _um_ktore=%{*} %;\
+		/endif %;\
+		/set _umiejetnosci_i=2 %;\
+	/endif %;\
+	/set umiejetnosci=%;\
+	/def -p6 -ag -mregexp -t':( )*([^ ]*)( )*(.*):( )*([^ ]*)' _um_trig_1= \
+		/set umiejetnosci=%%{umiejetnosci}%%{PL}|%%{P2}#%%{P4}|%%{P6}#%;\
+	/def -p5 -ag -mregexp -t':( )*([^ ]*)( )*$$' _um_trig_2= \
+		/set umiejetnosci=%%{umiejetnosci}%%{PL}|%%{P2}#@%%;\
+		/test --_umiejetnosci_i %%;\
+		/if ({_umiejetnosci_i}==1) \
+			/purge _um_trig_* %%;\
+			/_um_wyswietl %{_um_ktore} %%;\
+		/endif %;\
+	/def -p5 -ag -mregexp -t'^($$|ieznana kategoria. Masz do wyboru:)' _um_trig_3= \
+		/set umiejetnosci=%%{umiejetnosci}@%%;\
+		/test --_umiejetnosci_i %%;\
+		/if ({_umiejetnosci_i}==1) \
+			/purge _um_trig_* %%;\
+			/_um_wyswietl %{_um_ktore} %%;\
+		/endif
+
+/purge -i _um_wyswietl  
+
+/def -i _um_wyswietl = \
+	/let i=%;\
+	/let linia=%;\
+	/let cc=1%; \
+	/while /let i=$[strstr(umiejetnosci,"@")]%; /@test i > 0%; /do \
+		/test echo(strcat("+", strrep("-", 83) , "+")) %;\
+		/shift %;\
+		/let um_type=$[substr(umiejetnosci,0,i)]%; \
+		/set umiejetnosci=$[substr(umiejetnosci,i+1)]%;\
+		/let um_type2=9876543210 %;\
+		/while /let i=$[strstr(um_type,"#")]%; /@test i > 0%; /do \
+			/let um_name=$[substr(um_type, 0, i)]%;\
+			/let um_type=$[substr(um_type, i + 1)]%;\
+			/let j=$[strstr(um_name,"|")]%;\
+			/let um_ile=$[substr(um_name, j + 1)]%;\
+			/let um_name_real=$[substr(um_name, 0, j)]%;\
+			/if ({um_ile}=~"powierzchownie") \
+				/let ile_num=0 %;\
+			/elseif ({um_ile}=~"slabo") \
+				/let ile_num=1 %;\
+			/elseif ({um_ile}=~"pobieznie") \
+				/let ile_num=2 %;\
+			/elseif ({um_ile}=~"zadowalajaco") \
+				/let ile_num=3 %;\
+			/elseif ({um_ile}=~"niezle") \
+				/let ile_num=4 %;\
+			/elseif ({um_ile}=~"dobrze") \
+				/let ile_num=5 %;\
+			/elseif ({um_ile}=~"znakomicie") \
+				/let ile_num=6 %;\
+			/elseif ({um_ile}=~"wspaniale") \
+				/let ile_num=7 %;\
+			/elseif ({um_ile}=~"perfekcyjnie") \
+				/let ile_num=8 %;\
+			/elseif ({um_ile}=~"mistrzowsko") \
+				/let ile_num=9 %;\
+			/endif %;\
+			/let um_set_name=$[replace(" ", "_", um_name_real)]%;\
+			/let j=$[strstr({um_type2},ile_num)] %;\
+			/let um_type2=$[strcat(substr({um_type2},0,j+1),{um_name},"#",substr({um_type2},j+1))]%;\
+		/done %;\
+		/let i=0 %;\
+		/while /@test i < 10 %; /do \
+			/let j=$[strstr({um_type2},{i})]%;\
+			/let um_type2=$[strcat(substr({um_type2},0,{j}),substr({um_type2},{j}+1))] %;\
+			/test ++i %;\
+		/done %;\
+		/while /let i=$[strstr(um_type2,"#")]%; /@test i > 0%; /do \
+			/let um_name=$[substr(um_type2,0,i)]%;\
+			/let um_type2=$[substr(um_type2,i+1)]%;\
+			/let j=$[strstr(um_name,"|")]%;\
+			/let um_ile=$[substr(um_name,j+1)]%;\
+			/let um_name=$[substr(um_name,0,j)]%;\
+			/let um_set_name=$[replace(" ", "_", um_name)]%;\
+			/let linia=$[strcat(linia,"|",pad(um_name, 24),": ",pad(um_ile,14), " ")]%; \
+			/if (cc==1) \
+				/let cc=2%; \
+			/else \
+				/test echo(strcat({linia}, "|")) %; \
+				/let cc=1%; \
+				/let linia=%;\
+			/endif%; \
+		/done %;\
+		/if (linia!~NULL)\
+			/test echo(strcat({linia}, "|", strrep(" ", 26), "               |"))%;\
+		/endif %;\
+		/let cc=1%; \
+		/let linia=%;\
+	/done %;\
+	/unset umiejetnosci %;\
+	/unset _umiejetnosci_i
diff --git a/nightal/combat.tf b/nightal/combat.tf
new file mode 100644
index 0000000..c330e73
--- /dev/null
+++ b/nightal/combat.tf
@@ -0,0 +1,28 @@
+/def _atak = \
+	/if ( {attackmode} =~ "1" ) \
+		zabij %{*} %; zabij %{*} %;\
+	/elseif ( {attackmode} =~ "2" ) \
+		zabij %{*} %; zabij %{*} %; wskaz %{*} %;\
+	/elseif ( {attackmode} =~ "3" ) \
+		zabij %{*} %; zabij %{*} %; wskaz %{*} %; rozkaz wszystkim zaatakowac %{*} %;\
+	/elseif ( {attackmode} =~ "4" ) \
+		przelam obrone %{*} %; zabij %{*} %; zabij %{*} %; wskaz %{*} %; rozkaz wszystkim zaatakowac %{*} %;\
+	/elseif ( {attackmode} =~ "5" ) \
+		zabij %{*} %; zabij %{*} %; przedstaw %{*} %; wskaz %{*} %; rozkaz wszystkim zaatakowac %{*} %;\
+	/elseif ( {attackmode} =~ "6" ) \
+		przelam obrone %{*} %; zabij %{*} %; zabij %{*} %; przedstaw %{*} %; wskaz %{*} %; rozkaz wszystkim zaatakowac %{*} %;\
+	/else \
+		zabij %{*} %; zabij %{*} %;\
+	/endif
+
+/def -mregexp -Fp2 -t'.* wydajac z siebie .* rzuca sie na ' special_atak0 = /beep 2 %; /sneak off
+
+/def -mregexp -Fp2 -t'.* uderza sie gwaltownie w tors .* ciebie .*' special_atak_mnie0 = /beep 2 %; /sneak off
+/def -mregexp -Fp2 -t'.* rusza na ciebie wzywajac kogos do walki!' special_atak_mnie1 = /beep 2 %; /sneak off
+/def -mregexp -Fp2 -t'.* rozdziawia szczeke i wpatruje sie w Ciebie przez pare chwil.*' special_atak_mnie2 = /beep 2 %; /sneak off
+/def -mregexp -Fp2 -t'.* spina wierzchowca, a nastepnie rusza  z pelna predkoscia na ciebie!.*' special_atak_mnie3 = /beep 2 %; /sneak off
+
+/alias wyc rozkaz %{*} wycofac sie za ciebie
+/alias zas rozkaz %{*} zaslonic ciebie
+/alias wes rozkaz %{*} zaatakowac %{cel}
+/alias za rozkaz %{2} wycofac sie za %{1}
diff --git a/nightal/equipment.tf b/nightal/equipment.tf
new file mode 100644
index 0000000..2dd65fe
--- /dev/null
+++ b/nightal/equipment.tf
@@ -0,0 +1,82 @@
+/alias lampa_on_cmd napelnij lampe olejem z butelki
+/alias lampa_off_cmd rozbij butelke%; /zp butelke%; napelnij lampe olejem z butelki
+/set lampatick=800
+
+/def op = /manipuluj_plecakiem obejrzyj %packitem0
+
+/def sd = \
+	/dp wszystkie zbroje
+
+/def sz = \
+	/zp wszystkie zbroje %;\
+	/send zaloz wszystkie zbroje
+
+/def bz = \
+	/if ( {pochwa} =~ "on" ) \
+		/send wyjmij %bron z %pochwa1 %;\
+		%dobadzcmd broni %;\
+		/if ( {dual} =~ "on" ) \
+			/send wyjmij %bron2 z %pochwa2 %;\
+			%dobadzcmd broni %;\
+		/endif %;\
+	/elseif ( {pack} =~ "on" )\
+		/send wez %bron z %packitem1 %;\
+		%dobadzcmd broni %;\
+		/if ( {dual} =~ "on" ) \
+			/send wez %bron2 z %packitem1 %;\
+			%dobadzcmd broni %;\
+		/endif %;\
+	/else \
+		/send %dobadzcmd %broni %;\
+		/if ( {dual} =~ "on" ) \
+			/send %dobadzcmd %broni2 %;\
+		/endif %;\
+	/endif %;\
+	/set alarm=$[decode_attr("none", "BCgreen")]
+
+/def bd = \
+	/send opusc wszystkie bronie %;\
+	/if ( {pochwa} =~ "on" )\
+		/send wloz %bron do %pochwa1 %;\
+		/if ( {dual} =~ "on" ) \
+			/send wloz %bron2 do %pochwa2 %;\
+		/endif %;\
+	/elseif ( {pack} =~ "on" ) \
+		/send wloz %bron do %packitem1 %;\
+		/if ( {dual} =~ "on" ) \
+			/send wloz %bron2 do %packitem1 %;\
+		/endif %;\
+	/endif
+
+/def -mglob -p2 -t'*Zakladasz*otwarty*plecak*' pon_pl0 = \
+	/set pack=on %;\
+	/set packitem0=plecak %;\
+	/set packitem1=plecaka
+
+/def -mglob -p2 -t'*Zakladasz*zamkniety*plecak*' pon_pl1 = \
+	/set pack=on %;\
+	/set packitem0=plecak %;\
+	/set packitem1=plecaka %;\
+	/tbind otworz %packitem0
+
+/def -mglob -p2 -t'*Zakladasz*otwarty*worek*' pon_wrk0 = \
+	/set pack=on %;\
+	/set packitem0=worek %;\
+	/set packitem1=worka
+
+/def -mglob -p2 -t'*Zakladasz*zamkniety*worek*' pon_wrk1 = \
+	/set pack=on %;\
+	/set packitem0=worek %;\
+	/set packitem1=worka %;\
+	/tbind otworz %packitem0
+
+/def -mglob -p2 -t'*Przewieszasz*otwarta*torbe*' pon_trb0 = \
+	/set pack=on %;\
+	/set packitem0=torbe %;\
+	/set packitem1=torby
+
+/def -mglob -p2 -t'*Przewieszasz*zamknieta*torbe*' pon_trb1 = \
+	/set pack=on %;\
+	/set packitem0=torbe %;\
+	/set packitem1=torby %;\
+	/tbind otworz %packitem0
diff --git a/nightal/food.tf b/nightal/food.tf
new file mode 100644
index 0000000..ff50a81
--- /dev/null
+++ b/nightal/food.tf
@@ -0,0 +1,34 @@
+; by Ingwar
+
+/def pij = \
+	napij sie %{*} %;\
+	/_picie
+
+/def _picie_add = \
+	/def -p10 -t'%{1}' _picie_trig_%{_pi_last_id} = %{2} %;\
+	/test ++_pi_last_id
+
+/def _picie = \
+	/set _pi_last_id=4 %;\
+	/repeat -40 1 /purge _picie_trig_* %;\
+	/def -mglob -t'*Wypil?s juz tak duzo, ze nie jestes w st*'	_picie_trig_0 = \
+		/repeat -3 1 /purge _picie_trig_* %;\
+	/def -p2 -mregexp -t'Pijesz lyk wody (z(?:e|) (?:.*))\\\\.' _picie_trig_3 = /tbind napij sie %%{P1} %;\
+	/test _picie_add("*Podchodzisz do fontanny*","/tbind napij sie z fontanny") %;\
+	/test _picie_add("*pomoca cebrzyka wydobywasz ze studni*","/tbind napij sie ze studni") %;\
+	/test _picie_add("*Klekasz przy skraju drogi i nabierasz w dlonie czystej*","/tbind napij sie ze strumienia") %;\
+	/test _picie_add("*Nachylasz sie nad fontanna i pijesz z niej troche orzezwiajacej wody.*","/tbind napij sie z fontanny") %;\
+	/test _picie_add("*Za pomoca wiaderka wydobywasz ze studzienki nieco*","/tbind napij sie ze studzienki") %;\
+	/test _picie_add("*Podchodzisz ostroznie do sadzawki i klekasz przy niej.*","/tbind napij sie z sadzawki") %;\
+	/test _picie_add("*Gasisz pragnienie*z beczki.*","/tbind napij sie z beczki") %;\
+	/test _picie_add("*Podchodzisz na tyle blisko fontanny, aby moc zaczerp*","/tbind napij sie z fontanny") %;\
+	/test _picie_add("*Pochylasz sie nad tafla jeziora i czerpiesz garsc*","/tbind napij sie z jeziora") %;\
+	/test _picie_add("*Przechylasz sie nad murkiem otaczajacym fontanne*","/tbind napij sie z fontanny") %;\
+	/test _picie_add("*Nachylasz sie nad cembrowina studni i zaczerpnawszy*","/tbind napij sie ze studni") %;\
+	/test _picie_add("*Gasisz pragnienie woda z wiadra*","/tbind napij sie ze studni") %;\
+	/test _picie_add("*Gasisz pragnienie zimna woda ze studni*","/tbind napij sie ze studni") %;\
+	/test _picie_add("", "") %;\
+	/unset _pi_last_id
+
+/def -mglob -p2 -t'*Moze bys tak usiadl*' sit0 = \
+	/tbind usiadz
diff --git a/nightal/horses.tf b/nightal/horses.tf
new file mode 100644
index 0000000..8ffa4c3
--- /dev/null
+++ b/nightal/horses.tf
@@ -0,0 +1,13 @@
+/def tbind_kon = \
+	/def key_f4 = %{*} %;\
+	/beep 1 %;\
+	/echo -p #@{BC%kolor_info}#@{n}# F4 - @{BC%kolor_info}%{*}@{n}
+
+/def -mregexp -p2 -t'Odbierasz (.*).' konik0 = /tbind_kon zlap konia za uzde
+/def -mregexp -p2 -t'Nie jestes w stanie chwycic' konik1 = /tbind_kon zlap konia za uzde
+/def -mregexp -pt -t'Lapiesz za uzde' konik2 = /tbind_kon dosiadz swojego konia
+/def -mregexp -p2 -t'Gdy probujesz dosiasc (.*), (.*) wierzga na wszystkie strony, uniemozliwiajac ci dosiadanie.' konik3 = /tbind_kon zlap %{P1} za uzde
+/def -mregexp -p2 -t'Odwiazujesz' konik4 = /tbind_kon dosiadz swojego konia
+/def -mregexp -p2 -t'Nie jestes w stanie dosiasc' konik5 = /tbind_kon dosiadz swojego konia
+/def -mregexp -pt -t'nie moze tam podazyc' konik6 = /tbind_kon zsiadz z konia
+/def -mregexp -pt -t'Zsiadasz z' konik7 = /tbind_kon przywiaz swojego konia 
diff --git a/nightal/mail.tf b/nightal/mail.tf
new file mode 100644
index 0000000..c54d44a
--- /dev/null
+++ b/nightal/mail.tf
@@ -0,0 +1,89 @@
+/def -mregexp -p2 -t'Pozostawia na twojej dloni wiadomosc i' _poczta_golab = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"golab","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Nagle miedzy twoimi nogami zaczyna platac' _poczta_mysz = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"mysz","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Nie mija chwila gdy ptak przysiada na twoim ramieniu.' _poczta_kruk = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"kruk","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Na twoim przedramieniu niespodziewanie wyladowala snieznobiala pocztowa mewa.' _poczta_mewa = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"mewa","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Dociera do twojego przedramienia, gdzie przystaje, poruszajac lekko ogonem.' _poczta_jaszczurka = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"jaszczurka","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'agle tuz pod twoja noge przypelza kolorowa cetkowana zmija i szczerzy groznie kly jadowe.' _poczta_zmija = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"zmija","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Nagle wesolo merdajac ogonkiem przybiega do ciebie' _poczta_wilczek = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"wilczek","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Czujesz wokol siebie dosc dziwny zapach, ktory kojarzyc moze sie ze zgnilizna' _poczta_szczur = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"szczur","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
+
+/def -mregexp -p2 -t'Nagle, tuz obok ciebie, w rozblysku ognia pojawia sie ognisty zlosliwy imp, z niechecia wreczajac ci wiadomosc.' _poczta_imp = \
+	/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"imp","|")] %;\
+	/beep 1 %;\
+	/status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\
+	/if ({poczta_show} !~ 'none' ) \
+		/set poczta_show=MULTI%;\
+	/else \
+		/set poczta_show=MSG%;\
+	/endif
diff --git a/nightal/money.tf b/nightal/money.tf
new file mode 100644
index 0000000..618cfa9
--- /dev/null
+++ b/nightal/money.tf
@@ -0,0 +1,84 @@
+/alias dp_monety /dp monety
+/alias sad_monety /sad monety
+
+/def -mglob -p2 -t'*Bierzesz*monet*ciala*' _monety0 = \
+	/if ( {pack} =~ "on" )\
+		/tbind dp_monety %;\
+	/endif
+
+/def -ag -mregexp -p2 -t'^(Sa|Wydaje).*(okolo|wart.*) (.*) miedziak' wartosc_trig_1 =\
+	/echo -p #@{BC%kolor_info}#@{n}# Wartosc: @{BC%kolor_info}%{P3}@{n} miedzi, czyli okolo @{BC%kolor_info}$[{P3}/10000] platyn, $[mod({P3},10000)/100] zlota, $[mod({P3},100)/10] srebra i $[mod({P3},10)] miedzi.@{n}
+
+; by Reen
+
+/def -mregexp -p2 -t'(co najwyzej|dac( az| tylko| co najwyzej|)|dam ci wiecej niz|dostal(a|)bys) (.*) monet' zbieramy_dane = \
+	/set ceny=%{P4} %;\
+	/set ceny2=$[replace(" i ", "|", {ceny})] %;\
+	/set ceny2=$[replace(" ", "|", {ceny2})] %;\
+	/set ceny2=$[replace("zlot", "", {ceny2})] %;\
+	/set ceny2=$[replace("miedzian", "", {ceny2})] %;\
+	/set ceny2=$[replace("srebrn", "", {ceny2})] %;\
+	/set ceny2=$[replace("platynow", "", {ceny2})] %;\
+	/set ceny2=$[replace("|a", "", {ceny2})] %;\
+	/set ceny2=$[replace("|e", "", {ceny2})] %;\
+	/set ceny2=$[replace("|ych", "", {ceny2})] %;\
+	/set ceny2=$[replace(",", "", {ceny2})] %;\
+	/set ceny2=____%{ceny2}| %;\
+	/licz %{ceny2}
+
+/def licz = \
+	/if (regmatch("____([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|",{1})) \
+		/set _plats=$[expr({_plats}+{P1})] %;\
+		/set _zloto=$[expr({_zloto}+{P2})] %;\
+		/set _srebro=$[expr({_srebro}+{P3})] %;\
+		/set _miedz=$[expr({_miedz}+{P4})] %;\
+	/elseif (regmatch("____([^|]*)\|([^|]*)\|([^|]*)\|",{1})) \
+		/set _plats=%{_plats} %;\
+		/set _zloto=$[expr({_zloto}+{P1})] %;\
+		/set _srebro=$[expr({_srebro}+{P2})] %;\
+		/set _miedz=$[expr({_miedz}+{P3})] %;\
+	/elseif (regmatch("____([^|]*)\|([^|]*)\|",{1})) \
+		/set _plats=%{_plats} %;\
+		/set _zloto=%{_zloto} %;\
+		/set _srebro=$[expr({_srebro}+{P1})] %;\
+		/set _miedz=$[expr({_miedz}+{P2})] %;\
+	/elseif (regmatch("____([^|]*)\|",{1})) \
+		/set _plats=%{_plats} %;\
+		/set _zloto=%{_zloto} %;\
+		/set _srebro=%{_srebro} %;\
+		/set _miedz=$[expr({_miedz}+{P1})] %;\
+	/else \
+		/set _plats=%{_plats} %;\
+		/set _zloto=%{_zloto} %;\
+		/set _srebro=%{_srebro} %;\
+		/set _miedz=%{_miedz} %;\
+	/endif
+
+/def wycen = \
+	/czysc_statystyke %;\
+	/repeat -1 1 /pokaz_cene %{*} %;\
+	/eval wycen %{*} %;\
+
+/def pokaz_cene = \
+	/set _srebro_na_zloto=$[expr({_srebro}/10)] %;\
+	/set _zloto_zysk=$[expr({_zloto}+{_srebro_na_zloto})] %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Sprzedawane: @{BC%kolor_info}%{*}@{n} %;\
+	/echo -p #@{BC%kolor_info}#@{n}# Cena sklepu: %{_zloto} zl, %{_srebro} sr, czyli @{BC%kolor_info}%{_zloto_zysk}@{n} zl. %; \
+	/if ( {kupiec} =~ "on" )\
+		/set _licz_prowizje=$[trunc(expr({_zloto_zysk}*{prowizja}))] %;\
+		/set _klient=$[expr({_zloto_zysk}-{_licz_prowizje})] %;\
+		/echo -p #@{BC%kolor_info}#@{n}# Dla klienta: @{BC%kolor_info}%{_klient} zl, zysk: @{BC%kolor_info}%{_licz_prowizje}@{n} zl (prowizja: %prowizja\%). %;\
+	/endif %;\
+	/czysc_statystyke
+
+/def czysc_statystyke = \
+	/set _plats=0 %;\
+	/set _zloto=0 %;\
+	/set _srebro=0 %;\
+	/set _miedz=0 %;\
+	/set _srebro_strata=0 %;\
+	/set _srebro_po_stracie=0 %;\
+	/set _srebro_na_zloto=0 %;\
+	/set _zloto_zysk=0 %;\
+	/set _licz_prowizje=0 %;\
+	/unset _klient=0
diff --git a/nightal/movement.tf b/nightal/movement.tf
new file mode 100644
index 0000000..94fc730
--- /dev/null
+++ b/nightal/movement.tf
@@ -0,0 +1,212 @@
+/def lw5=\
+	/set lw1=$[substr(lw,0,strchr(lw,'., '))]%;\
+	/set lw=$[substr(lw,strchr(lw,'., ')+1,strlen(lw)-strchr(lw,'., ')-1)]%;\
+	/if (lw1=/"zachod")                /set _lw0=w,%; /test ++lwcount%;\
+	/elseif (lw1=/"polnocny-zachod")   /set _lw1=nw,%; /test ++lwcount%;\
+	/elseif (lw1=/"polnoc")            /set _lw2=n,%; /test ++lwcount%;\
+	/elseif (lw1=/"polnocny-wschod")   /set _lw3=ne,%; /test ++lwcount%;\
+	/elseif (lw1=/"wschod")            /set _lw4=e,%; /test ++lwcount%;\
+	/elseif (lw1=/"poludniowy-wschod") /set _lw5=se,%; /test ++lwcount%;\
+	/elseif (lw1=/"poludnie")          /set _lw6=s,%; /test ++lwcount%;\
+	/elseif (lw1=/"poludniowy-zachod") /set _lw7=sw,%; /test ++lwcount%;\
+	/elseif (lw1=/"gora")              /set _lw8=u,%; /test ++lwcount%;\
+	/elseif (lw1=/"dol")               /set _lw9=d,%; /test ++lwcount%;\
+	/elseif (lw1=/"wyjscie")           /set _lw10=wyjscie,%; /test ++lwcount%; /unnormalset wyjscie%;\
+	/elseif (lw1=/"drzwi")             /set _lw11=drzwi,%; /test ++lwcount%; /unnormalset drzwi%;\
+	/elseif (lw1=/"schody")            /set _lw12=schody,%; /test ++lwcount%; /unnormalset schody %;\
+	/elseif (lw1=/"targ")              /set _lw13=targ,%; /test ++lwcount%; /unnormalset targ%;\
+	/elseif (lw1=/"bank")             /set _lw14=wbank,%; /test ++lwcount%; /unnormalset bank%;\
+	/elseif (lw1=/"baszta")             /set _lw14=baszta,%; /test ++lwcount%; /unnormalset baszta%;\
+	/elseif (lw1=/"bazar")             /set _lw14=bazar,%; /test ++lwcount%; /unnormalset bazar%;\
+	/elseif (lw1=/"drzwiczki")             /set _lw14=drzwiczki,%; /test ++lwcount%; /unnormalset drzwiczki%;\
+	/elseif (lw1=/"faktoria")             /set _lw14=faktoria,%; /test ++lwcount%; /unnormalset faktoria%;\
+	/elseif (lw1=/"gmach")             /set _lw14=gmach,%; /test ++lwcount%; /unnormalset gmach%;\
+	/elseif (lw1=/"kantorek")             /set _lw14=kantorek,%; /test ++lwcount%; /unnormalset kantorek%;\
+	/elseif (lw1=/"karczma")             /set _lw14=karczma,%; /test ++lwcount%; /unnormalset karczma%;\
+	/elseif (lw1=/"komnata")             /set _lw14=komnata,%; /test ++lwcount%; /unnormalset komnata%;\
+	/elseif (lw1=/"korytarz")             /set _lw14=korytarz,%; /test ++lwcount%; /unnormalset korytarz%;\
+	/elseif (lw1=/"krzaki")             /set _lw14=krzaki,%; /test ++lwcount%; /unnormalset krzaki%;\
+	/elseif (lw1=/"kuchnia")             /set _lw14=kuchnia,%; /test ++lwcount%; /unnormalset kuchnia%;\
+	/elseif (lw1=/"kuznia")             /set _lw14=kuznia,%; /test ++lwcount%; /unnormalset kuznia%;\
+	/elseif (lw1=/"miasto")             /set _lw14=miasto,%; /test ++lwcount%; /unnormalset miasto%;\
+	/elseif (lw1=/"most")             /set _lw14=most,%; /test ++lwcount%; /unnormalset most%;\
+	/elseif (lw1=/"palac")             /set _lw14=palac,%; /test ++lwcount%; /unnormalset palac%;\
+	/elseif (lw1=/"piekarnia")             /set _lw14=piekarnia,%; /test ++lwcount%; /unnormalset piekarnia%;\
+	/elseif (lw1=/"poczta")             /set _lw14=poczta,%; /test ++lwcount%; /unnormalset poczta%;\
+	/elseif (lw1=/"podworko")             /set _lw14=podworko,%; /test ++lwcount%; /unnormalset podworko%;\
+	/elseif (lw1=/"restauracja")             /set _lw14=restauracja,%; /test ++lwcount%; /unnormalset restauracja%;\
+	/elseif (lw1=/"sala")             /set _lw14=sala,%; /test ++lwcount%; /unnormalset sala%;\
+	/elseif (lw1=/"schodki")             /set _lw14=schodki,%; /test ++lwcount%; /unnormalset schodki%;\
+	/elseif (lw1=/"sciezka")             /set _lw14=sciezka,%; /test ++lwcount%; /unnormalset sciezka%;\
+	/elseif (lw1=/"sklep")             /set _lw14=sklep,,%; /test ++lwcount%; /unnormalset sklep%;\
+	/elseif (lw1=/"stajnia")             /set _lw14=stajnia,%; /test ++lwcount%; /unnormalset stajnia%;\
+	/elseif (lw1=/"stragan")             /set _lw14=stragan,%; /test ++lwcount%; /unnormalset stragan%;\
+	/elseif (lw1=/"swiatynia")             /set _lw14=swiatynia,%; /test ++lwcount%; /unnormalset swiatynia%;\
+	/elseif (lw1=/"szpital")             /set _lw14=szpital,%; /test ++lwcount%; /unnormalset szpital%;\
+	/elseif (lw1=/"tawerna")             /set _lw14=tawerna,%; /test ++lwcount%; /unnormalset tawerna%;\
+	/elseif (lw1=/"trakt")             /set _lw14=trakt,%; /test ++lwcount%; /unnormalset trakt%;\
+	/elseif (lw1=/"ulica")             /set _lw14=ulica,%; /test ++lwcount%; /unnormalset ulica%;\
+	/elseif (lw1=/"wieza")             /set _lw14=wieza,%; /test ++lwcount%; /unnormalset wieza%;\
+	/elseif (lw1=/"wrota")             /set _lw14=wrota,%; /test ++lwcount%; /unnormalset wrota%;\
+	/elseif (lw1=/"zaklad")             /set _lw14=zaklad,%; /test ++lwcount%; /unnormalset zaklad%;\
+	/elseif (lw1=/"zaplecze")             /set _lw14=zaplecze,%; /test ++lwcount%; /unnormalset zaplecze%;\
+	/endif
+
+/def -PCgreen -Fp2 -t'Jest tutaj (.*) widoczne wyjscie: (.*)\\.$' olw0 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Jest tutaj (.*) widocznych wyjsc: (.*)\\.$' olw1 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Sa tutaj (.*) widoczne wyjscia: (.*)\\.$' olw2 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) widoczne wyjscia: (.*)\\.$' olw3 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) widocznych wyjsc: (.*)\\.$' olw4 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) wyjscie: (.*)\\.$' olw5 = /set lw %P2 %; /lw4
+/def -PCgreen -Fp2 -t'Droga posrod grobowcow rozdziela sie na (.*)\\.$' olw6 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Tunel ktorym kroczysz konczy sie slepo, mozesz co najwyzej cofnac sie z powrotem (.*)\\.$' olw7 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Wedrujac po gorach zuwazasz, ze jedyne widoczne wyjscia stad prowadza na (.*)\\.$' olw8 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'W gorach, po zachodzie slonca ciezko cokolwiek zauwazyc, lecz bardziej poslugujac sie swoja intuicja dostrzegasz ledwo widoczne wyjscie prowadzace na (.*)\\.$' olw9 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Gorski teren nie nalezy do zbyt przyjaznych, lecz udaje ci sie spostrzec wyjscia prowadzace na (.*)\\.$' olw10 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'W trudnym gorskim terenie udaje ci sie spostrzec jedno jedyne wyjscie prowadzace na (.*)\\.$' olw11 = /set lw %P1 %; /lw4
+/def -PCgreen -Fp2 -t'Wedrujac po gorach zauwazasz, ze jedyne widoczne wyjscia stad prowadza na (.*)\\.$' olw12 = /set lw %P1 %; /lw4
+
+/def -mglob -Fp2 -t'Brama jest zamknieta*' followgo0 = \
+	/tbind uderz w brame%%; popros straznikow o otwarcie bramy
+/def -mglob -Fp2 -t'*Wysokie kamienne wrota sa zamkniete*' followgo1 = \
+	/tbind zapukaj we wrota
+/def -mglob -Fp2 -t'*Drewniane okute wrota sa zamkniete.*' followgo2 = \
+	/tbind zapukaj we wrota
+/def -mglob -Fp2 -t'*Masywna zelazna brama jest zamknieta.*' followgo3 = \
+	/tbind pociagnij za sznurek
+/def -mglob -Fp2 -t'*Wysoka kamienna brama jest zamknieta.*' followgo4 = \
+	/tbind pociagnij za sznurek
+/def -mglob -Fp2 -t'* wdrapuje sie na lagodne zbocze*' followgo5 = \
+	/tbind wespnij sie na zbocze
+/def -mglob -Fp2 -t'*odsuwa plyte grobowca i wchodzi do krypty*' followgo6 = \
+	/tbind odsun plyte
+/def -mglob -Fp2 -t'*Jak zamierzasz sie tam udac? Przez zamknieta brame?*' followgo7 = \
+	/tbind zapukaj w brame
+/def -mglob -Fp2 -t'*nurkuje w ton jeziora*' followgo8 = \
+	/tbind zanurkuj do podwodnych jaskin
+/def -mglob -Fp2 -t'*znika w szczelinie*' followgo9 = \
+	/tbind przecisnij sie przez szczeline
+/def -mglob -Fp2 -t'*zamyka oczy i znika we * scianie*' followgo10 = \
+	/tbind wejdz w miraz
+/def -mglob -Fp2 -t'*znika miedzy krzakami*' followgo11 = \
+	/tbind przejdz miedzy krzakami %%; przecisnij sie miedzy krzakami
+/def -mglob -Fp2 -t'*Drzwi sa zamkniete*' followgo12 = \
+	/tbind otworz drzwi
+/def -mglob -Fp2 -t'*ostroznie, trzymajac sie sciany omija wielka dziure.*' followgo13 = \
+	/tbind obejdz dziure
+/def -mglob -Fp2 -t'*nabiera chaust powietrza i nurkuje w sadzawce.*' followgo14 = \
+	/tbind przeplyn sadzawke
+/def -mglob -Fp2 -t'*znika w otworze.*' followgo15 = \
+	/tbind osun sie przez otwor
+/def -mglob -Fp2 -t'*zrecznie wspina sie po wglebieniach w scianie.*' followgo16 = \
+	/tbind wespnij sie do otworu
+/def -mglob -Fp2 -t'*ostroznie przesuwa galezie i przechodzi miedzy krzakami.*' followgo17 = \
+	/tbind przejdz miedzy krzakami
+/def -mglob -Fp2 -t'W gaszczu.' followgo18 = \
+	/tbind przejdz miedzy krzakami
+/def -mglob -Fp2 -t'Solidna debowa brama jest zamknieta.' followgo19 = \
+	/tbind uderz we wrota%%; uderz w brame
+/def -mglob -Fp2 -t'Nie jestes w stanie przejsc przez zamknieta brame.' followgo20 = \
+	/tbind zapukaj we wrota
+/def -mglob -Fp2 -t'*przeciska sie przez otwor znikajac ci z oczu.*' followgo21 = \
+	/tbind przecisnij sie przez otwor
+/def -mglob -Fp2 -t'*wczolguje sie w otwor ukryty w zboczu miedzy galeziami.*' followgo22 = \
+	/tbind wczolgaj sie do otworu
+/def -mregexp -Fp2 -t'sierzant' followgo23 = \
+	/tbind bramanazboje%%; zapytaj sierzanta o lapowke
+/alias bramanazboje /bramanazboje
+/def bramanazboje = \
+	/zp monety %;\
+	/send przekup sierzanta %;\
+	/dp monety
+/def -mglob -Fp2 -t'*sierzant mowi: Nawet nie probuj mnie przekupic... bo pozalujesz!*' followgo24 = \
+	/tbind bramanazboje
+/def -mglob -Fp2 -t'*Przy bramie miejskiej.*' followgo25 = \
+	/tbind zapukaj trzykrotnie w brame
+/def -mglob -Fp2 -t'*podchodzi do bramy i puka w nia*' followgo26 = \
+	/tbind zapukaj trzykrotnie w brame
+/def -mglob -Fp2 -t'*Duze mocne wrota sa zamkniete*' followgo27 = \
+	/tbind uderz w gong
+/def -mglob -Fp2 -t'* przeciska sie miedzy krzakami*' followgo28 = \
+	/tbind przecisnij sie miedzy krzakami
+/def -mglob -Fp2 -t'*mocno pochyla sie w dol*' followgo29 = \
+	/tbind pochyl sie
+/def -mglob -Fp2 -t'*mocno pochylasz sie w dol*' followgo30 = \
+	/tbind wejdz w otwor
+/def -mregexp -Fp2 -t'Wrota Baldura! Czujecie zapach morza' followgo31 = \
+	/tbind zsiadz ze statku
+/def -mglob -Fp2 -t'*znika za filarem*' followgo32 = \
+	/tbind przecisnij sie obok filara
+/def -mglob -Fp2 -t'*przeciska sie przez wneke w scianie.*' followgo33 = \
+	/tbind przecisnij sie przez wneke
+/def -mglob -Fp2 -t'*bierze kilka krokow rozbiegu, po czym bez wiekszych *' followgo34 = \
+	/tbind przeskocz rozpadline
+/def -mglob -Fp2 -t'*wchodzi po schodach na pierwsze pietro*' followgo35 = \
+	/tbind wkrocz po schodach na gore
+/def -mglob -Fp2 -t'*nagle odbija sie od ziemi i wyskakuje przez okno*' followgo36 = \
+	/tbind wyskocz przez okiennice
+/def -mglob -Fp2 -t'*Do pomostu przybija *' followgo37 = \
+	/tbind wns
+/def -mglob -Fp2 -t'*Doplynelismy*' followgo38 = \
+	/tbind zsiadz ze statku
+/def -mglob -Fp2 -t'*Drzwiczki czarnego brudnego dylizansu otwieraja sie!*' followgo39 = \
+	/tbind wdyl
+/def -mglob -Fp2 -t'*Z zewnatrz dochodzi twych uszu wolanie woznicy: Dojechalismy! Przystanek*' followgo40 = \
+	/tbind wyjscie
+/def -mregexp -Fp2 -t'bierze rozbieg i skacze na (.*)\.' followgo41 = \
+	/tbind zeskocz na %{P1}
+/def -mregexp -Fp2 -t'Potezna zdobiona brama jest zamknieta.' followgo42 = \
+	/tbind pociagnij za sznur
+/def -mregexp -Fp2 -t'Imponujaca zdobiona brama jest zamknieta.' followgo43 = \
+	/tbind uderz w brame
+/def -mregexp -Fp2 -t'Masywna wysoka brama jest zamknieta.' followgo44 = \
+	/tbind uderz w brame
+/def -mregexp -Fp2 -t'Dwuskrzydlowa ciemna brama jest zamknieta.' followgo45 = \
+	/tbind uderz w brame
+/def -mregexp -Fp2 -t'Zelazne stare wrota jest zamkniete.' followgo46 = \
+	/tbind uderz w brame
+/def -mregexp -Fp2 -t'ostroznie schodzi po osuwisku.' followgo47 = \
+	/tbind zejdz po osuwisku
+/def -mregexp -Fp2 -t'ostroznie wchodzi po osuwisku.' followgo48 = \
+	/tbind wejdz po osuwisku
+/def -mregexp -Fp2 -t'Ciezka brama jest zamknieta.' followgo49 = \
+	/tbind uderz w brame
+/def -mregexp -Fp2 -t'Slyszysz litanie niewybrednych wyzwisk pod adresem marynarzy' followgo50 = \
+	/tbind wns
+/def -mregexp -Fp2 -t'zerka w przepasc, glosno przelyka sline, i stawia krok w przod' followgo51 = \
+	/tbind wskocz w chmury
+/def -mregexp -Fp2 -t'zrecznie wskakuje w blekitna ton. Juz' followgo52 = \
+	/tbind zanurkuj w wode
+/def -mregexp -Fp2 -t'powoli wchodzi w buchajace plomienie' followgo53 = \
+	/tbind wejdz w plomienie
+/def -mregexp -Fp2 -t'kladzie sie na ziemi.* sprawnie' followgo54 = \
+	/tbind wczolgaj sie do nory
+/def -mregexp -Fp2 -t'bierze rozbieg i probuje przeskoczyc ' followgo55 = \
+	/tbind przeskocz przepasc
+/def -mregexp -Fp2 -t'bierze krotki rozbieg i sprawnie' followgo56 = \
+	/tbind przeskocz przepasc
+/def -mregexp -Fp2 -t'pod twoimi nogami otwiera sie klapa, a ty momentalnie zaczynasz spadac' followgo57 = \
+	/tbind wespnij sie na gore
+/def -mregexp -Fp2 -t'otwiera szerzej drzwi w rogu komnaty' followgo58 = \
+	/tbind przejdz przez drzwi
+/def -mregexp -Fp2 -t'zapiera sie o sciane i z cichym steknieciem odsuwa glaz.' followgo59 = \
+	/tbind odsun glaz
+/def -mregexp -Fp2 -t'ostroznie wchodzi na waska sciezke. Po chwili znika za krawedzia klifu' followgo60 = \
+	/tbind zejdz na dol
+/def -mregexp -Fp2 -t'podaza przez drzwi do budynku.' followgo61 = \
+	/tbind wejdz do budynku
+/def -mregexp -Fp2 -t'przechodzi sciezka pod dom.' followgo62 = \
+	/tbind przejdz sciezka do domu
+/def -mregexp -Fp2 -t'otwiera nieco lekkie odrzwia do schowka i wchodzac do ciasnego pomieszczenia ostroznie zamyka za soba ich skrzydlo.' followgo63 = \
+	/tbind zejdz do piwnicy
+
+/def -p2 -t'Przed zachodnia brama Crimmor.' stop0 = \
+	/set lwgo=0 %;\
+	/set auto off
+/def -p2 -t'mala drewniana tabliczka' stop1 = \
+	/set lwgo=0 %;\
+	/set auto off
+/def -p2 -t'* aby cie dalej niesc*' stop2 = \
+	/beep 1 %;\
+	/set lwgo=0 %;\
+	/set auto off
diff --git a/nightal/sets.tf b/nightal/sets.tf
new file mode 100644
index 0000000..dcb69d6
--- /dev/null
+++ b/nightal/sets.tf
@@ -0,0 +1 @@
+/eval /set specrd=$[decode_attr("rdy", "BCgreen")]
diff --git a/nightal/start.tf b/nightal/start.tf
new file mode 100644
index 0000000..9faa640
--- /dev/null
+++ b/nightal/start.tf
@@ -0,0 +1,11 @@
+/load colors.tf
+/load combat.tf
+/load equipment.tf
+/load food.tf
+/load horses.tf
+/load mail.tf
+/load money.tf
+/load movement.tf
+/load statusbar.tf
+/load substitute.tf
+/load warn.tf
diff --git a/nightal/statusbar.tf b/nightal/statusbar.tf
new file mode 100644
index 0000000..afb3d63
--- /dev/null
+++ b/nightal/statusbar.tf
@@ -0,0 +1,235 @@
+/visual on
+
+/eval /set statusline=$[strrep(decode_attr("-", "BCwhite"),columns())]
+/eval /set spacebreak=$[strrep(' ',columns()-141)]
+
+/def ack = \
+	/set alarm=$[decode_attr("none", "BCgreen")] %;\
+	/set bindings= %;\
+	/undef tempbind 
+
+/def -Fp2 -mregexp -t'tes( fizycznie|) w swietnej kondycji' kon1 = /set kondycja=$[strcat("[", decode_attr("                     ", "Cbggreen"), "] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) w dobrym stanie' kon2 = /set kondycja=$[strcat("[", decode_attr("                  ", "Cbggreen"), "   ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) lekko rann.' kon3 = /set kondycja=$[strcat("[", decode_attr("               ", "Cbggreen"), "      ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) rann.' kon4 = /set kondycja=$[strcat("[", decode_attr("            ", "Cbgyellow"), "         ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) w zlej kondycji' kon5 = /set kondycja=$[strcat("[", decode_attr("         ", "Cbgyellow"), "            ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) ciezko rann.' kon6 = /set kondycja=$[strcat("[", decode_attr("      ", "Cbgred"), "               ] ")]
+/def -Fp2 -mregexp -t'tes( fizycznie|) ledwo zyw.' kon7 = /set kondycja=$[strcat("[", decode_attr("      L E D W O      ", "BCbgred"),"]")]
+
+/def -Fp2 -mregexp -t'i jestes w pelni wypoczet.' zmecz0 = /eval /set zmeczenie=$[strcat("[", decode_attr("                    ", "Cbggreen"), "] ")]
+/def -Fp2 -mregexp -t'i jestes wypoczet.' zmecz1 = /set zmeczenie=$[strcat("[", decode_attr("                  ", "Cbggreen"), "  ] ")]
+/def -Fp2 -mregexp -t'i jestes troche zmeczon.' zmecz2 = /set zmeczenie=$[strcat("[", decode_attr("                ", "Cbggreen"), "    ] ")]
+/def -Fp2 -mregexp -t'i jestes zmeczon.' zmecz3 = /set zmeczenie=$[strcat("[", decode_attr("              ", "Cbggreen"), "      ] ")]
+/def -Fp2 -mregexp -t'i jestes bardzo zmeczon.' zmecz4 = /set zmeczenie=$[strcat("[", decode_attr("            ", "Cbggreen"), "        ] ")]
+/def -Fp2 -mregexp -t'i jestes nieco wyczerpan.' zmecz5 = /set zmeczenie=$[strcat("[", decode_attr("          ", "Cbggreen"), "          ] ")]
+/def -Fp2 -mregexp -t'i jestes wyczerpan.' zmecz6 = /set zmeczenie=$[strcat("[", decode_attr("        ", "Cbgyellow"), "            ] ")]
+/def -Fp2 -mregexp -t'i jestes bardzo wyczerpan.' zmecz7 = /set zmeczenie=$[strcat("[", decode_attr("      ", "Cbgyellow"), "              ] ")]
+/def -Fp2 -mregexp -t'i jestes wycienczon.' zmecz8 = /set zmeczenie=$[strcat("[", decode_attr("    ", "Cbgred"), "                ] ")]
+/def -Fp2 -mregexp -t'i jestes calkowicie wycienczon.' zmecz9 = /set zmeczenie=$[strcat("[", decode_attr("C A L K O W I C I E ", "BCbgred"), "]")]
+
+/def -Fp2 -mregexp -t'nie mozesz dalej podazac' zmecz10 = /set zmeczenie=$[strcat("[", decode_attr("C A L K O W I C I E ", "BCbgred"), "]")]
+/def -Fp2 -mregexp -t'Czujesz sie smiertelnie zmeczony' zmecz11 = /set zmeczenie=$[strcat("[", decode_attr("C A L K O W I C I E ", "BCbgred"), "]")]
+
+/def -Fp2 -mregexp -t'((Jest|Sa) tutaj ([^ ]*) (widoczne|widocznych) (wyjsc|wyjscia|wyjscie): |Trakt wiedzie na |W mroku nocy dostrzegasz .* widoczn(e|ych) wyjsc(|ia|ie): |Trakt rozgalezia sie na |W gestych ciemnosciach dostrzegasz trakt wiodacy na |W gestych ciemnosciach dostrzegasz, ze trakt rozgalezia sie na |Sciezka prowadzi tutaj w .* (kierunkach|kierunku): |Szlak.* tutaj w .* kierunk.*: |Wyjsc.* prowadz.* tutaj w .* (kierunkach|kierunku): |Tunel.* ciagn.* na |Wedrowke przez rozlegle laki mozesz kontynuowac udajac sie na |W panujacym tu polmroku zauwazasz .*: |Wedrujac po gorach zauwazasz, ze jedyne widoczne wyjscia stad prowadza na |W trudnym gorskim terenie udaje ci sie spostrzec jedno jedyne wyjscie prowadzace na |Gorski teren nie nalezy do zbyt przyjaznych, lecz udaje ci sie spostrzec wyjscia prowadzace na )' widoczne_wyjscia = /_wyjscia_z_lokacji %{PR}
+
+/def -mregexp -Fp2 -t'podazasz za ' _nie_rysuj = /set lwlast=druzyna
+
+/def _first = /result {1}
+/def _all_but_first = /result {-1}
+/def _wyjscia_z_lokacji = \
+	/quote -S /unset `/listvar -s czy_kierunek_jest* %;\
+	/let w_z_l=%{*}%; \
+	/let pnum=%{#}%; \
+	/let i=0%; \
+	/let w_zn_t=%; \
+	/let wyjscia_z_lokacji_t=%; \
+	/set idzna_ile_wyjsc=-1%; \
+	/if (strstr({w_z_l},".")>=0) \
+		/let w_z_l=$[strcat(substr({w_z_l},0,strlen({w_z_l})-1))]%; \
+	/endif%; \
+	/while /let i=$[i+1]%; /@test i<=pnum%; /do \
+		/let w_zn=$(/_first %{w_z_l})%; \
+		/if (strstr({w_zn},",")>=0) \
+			/let w_zn=$[strcat(substr({w_zn},0,strlen({w_zn})-1))]%; \
+		/endif%;\
+		/if ({w_zn}=~"polnoc")\
+			/if ({lwlast}=~"s")\
+				/set czy_kierunek_jest_n=$[decode_attr("|", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_n=$[decode_attr("|", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"poludnie")\
+			/if ({lwlast}=~"n")\
+				/set czy_kierunek_jest_s=$[decode_attr("|", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_s=$[decode_attr("|", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"wschod")\
+			/if ({lwlast}=~"w")\
+				/set czy_kierunek_jest_e=$[decode_attr("-", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_e=$[decode_attr("-", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"zachod")\
+			/if ({lwlast}=~"e")\
+				/set czy_kierunek_jest_w=$[decode_attr("-", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_w=$[decode_attr("-", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"polnocny-wschod")\
+			/if ({lwlast}=~"sw")\
+				/set czy_kierunek_jest_ne=$[decode_attr("/", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_ne=$[decode_attr("/", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"polnocny-zachod")\
+			/if ({lwlast}=~"se")\
+				/set czy_kierunek_jest_nw=$[decode_attr("\\", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_nw=$[decode_attr("\\", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"poludniowy-wschod")\
+			/if ({lwlast}=~"nw")\
+				/set czy_kierunek_jest_se=$[decode_attr("\\", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_se=$[decode_attr("\\", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"poludniowy-zachod")\
+			/if ({lwlast}=~"ne")\
+				/set czy_kierunek_jest_sw=$[decode_attr("/", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_sw=$[decode_attr("/", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"gora")\
+			/if ({lwlast}=~"d")\
+				/set czy_kierunek_jest_u=$[decode_attr("U", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_u=$[decode_attr("U", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"dol")\
+			/if ({lwlast}=~"u")\
+				/set czy_kierunek_jest_d=$[decode_attr("D", "BCgreen")]%;\
+			/else \
+				/set czy_kierunek_jest_d=$[decode_attr("D", "BCyellow")]%;\
+			/endif %;\
+		/elseif ({w_zn}=~"wyjscie") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"most") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"drzwi") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"schody") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"targ") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"wieza") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"bank") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"poczta") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"karczma") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"sklep") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"ulica") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"bazar") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"stragan") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"kuznia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"zaklad") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"piekarnia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"sala") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"stajnia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"krzaki") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"drzwiczki") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"schodki") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"sciezka") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"tawerna") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"miasto") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"palac") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"trakt") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"baszta") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"gmach") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"kuchnia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"wrota") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"swiatynia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"szpital") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"korytarz") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"zaplecze") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"podworko") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"restauracja") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"komnata") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"faktoria") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/elseif ({w_zn}=~"kantorek") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\
+		/else \
+			/let w_zn_t=?%; \
+		/endif%; \
+		/let wyjscia_z_lokacji_t=%{wyjscia_z_lokacji_t} %{w_zn_t} %; \
+		/let w_z_l=$(/_all_but_first %{w_z_l})%; \
+		/set idzna_ile_wyjsc=$[{idzna_ile_wyjsc} + 1]%; \
+	/done%; \
+	/set wyjscia_z_lokacji=%{wyjscia_z_lokacji_t}
+
+/def -mregexp -Fp2 -t'(Zaslaniasz|Nie udaje ci sie zaslonic|Probujesz zaslonic) .* przed ciosami wrogow.' zaslo1 = \
+	/_odliczaj_zaslone_5
+
+/def -mregexp -Fp2 -t'(Zaslaniasz|Nie udaje ci sie zaslonic|Probujesz zaslonic) .* przed ciosami (.* .*|[A-Z]*).' zaslo2 = \
+	/_odliczaj_zaslone_8
+
+/def -mregexp -Fp2 -t'wypowiadasz rozkaz' = \
+	/_odliczaj_rozkaz
+
+/def -mregexp -Fp2 -t'(probujesz|obijasz|siniaczysz) .* (noga|stopa|lokciem|piescia|kolanem)' _bez_broni = \
+	/set alarm=$[decode_attr("WALKA BEZ BRONI","BCyellow")]
+
+/def -mregexp -Fp2 -t'skupia na chwile swoj wzrok na tobie' _zniewolenie = \
+	/set alarm=$[decode_attr("ODLOZONY SPRZET","BCyellow")]
+
+;;/def -mregexp -Fp2 -t'Jestes gotow.* do zmiany w szyku.' _zaslona_ok = \
+;;	/set nxt_zaslona=$[strcat(decode_attr("rdy", "BCgreen"))]
+
+/def _odliczaj_zaslone_5 = \
+	/set nxt_zaslona=$[strcat(decode_attr("5", "BCred"))]%;\
+	/repeat -00:00:01 1 /set nxt_zaslona=$$[strcat(decode_attr("4", "BCred"))]%;\
+	/repeat -00:00:02 1 /set nxt_zaslona=$$[strcat(decode_attr("3", "BCred"))]%;\
+	/repeat -00:00:03 1 /set nxt_zaslona=$$[strcat(decode_attr("2", "BCyellow"))]%;\
+	/repeat -00:00:04 1 /set nxt_zaslona=$$[strcat(decode_attr("1", "BCyellow"))]%;\
+	/repeat -00:00:05 1 /set nxt_zaslona=$$[strcat(decode_attr("rdy", "BCgreen"))]
+
+/def _odliczaj_zaslone_8 = \
+	/set nxt_zaslona=$[strcat(decode_attr("8", "BCred"))]%;\
+	/repeat -00:00:01 1 /set nxt_zaslona=$$[strcat(decode_attr("7", "BCred"))]%;\
+	/repeat -00:00:02 1 /set nxt_zaslona=$$[strcat(decode_attr("6", "BCred"))]%;\
+	/repeat -00:00:03 1 /set nxt_zaslona=$$[strcat(decode_attr("5", "BCred"))]%;\
+	/repeat -00:00:04 1 /set nxt_zaslona=$$[strcat(decode_attr("4", "BCred"))]%;\
+	/repeat -00:00:05 1 /set nxt_zaslona=$$[strcat(decode_attr("3", "BCyellow"))]%;\
+	/repeat -00:00:06 1 /set nxt_zaslona=$$[strcat(decode_attr("2", "BCyellow"))]%;\
+	/repeat -00:00:07 1 /set nxt_zaslona=$$[strcat(decode_attr("1", "BCyellow"))]%;\
+	/repeat -00:00:08 1 /set nxt_zaslona=$$[strcat(decode_attr("rdy", "BCgreen"))]
+
+/def _odliczaj_rozkaz = \
+	/set nxt_order=$[strcat(decode_attr("10", "BCred"))]%;\
+	/repeat -00:00:01 1 /set nxt_order=$$[strcat(decode_attr("9", "BCred"))]%;\
+	/repeat -00:00:02 1 /set nxt_order=$$[strcat(decode_attr("8", "BCred"))]%;\
+	/repeat -00:00:03 1 /set nxt_order=$$[strcat(decode_attr("7", "BCred"))]%;\
+	/repeat -00:00:04 1 /set nxt_order=$$[strcat(decode_attr("6", "BCred"))]%;\
+	/repeat -00:00:05 1 /set nxt_order=$$[strcat(decode_attr("5", "BCred"))]%;\
+	/repeat -00:00:06 1 /set nxt_order=$$[strcat(decode_attr("4", "BCred"))]%;\
+	/repeat -00:00:07 1 /set nxt_order=$$[strcat(decode_attr("3", "BCred"))]%;\
+	/repeat -00:00:08 1 /set nxt_order=$$[strcat(decode_attr("2", "BCred"))]%;\
+	/repeat -00:00:09 1 /set nxt_order=$$[strcat(decode_attr("1", "BCred"))]%;\
+	/repeat -00:00:10 1 /set nxt_order=$$[strcat(decode_attr("rdy", "BCgreen"))]
+
+/eval /status_add -c -r0 statusline::
+
+/eval /status_add -c -r1 "[  " czy_kierunek_jest_nw:1 czy_kierunek_jest_n:1 czy_kierunek_jest_ne:2 czy_kierunek_jest_u:1 " ] "::
+/eval /status_add -r1 "K: ":: kondycja:24
+/eval /status_add -r1 "Z: ":: zmeczenie:22
+/eval /status_add -r1 "Hide: ":: hide:3:BC%kolor_main
+/eval /status_add -r1 " Sneak: ":: sneak:4:BC%kolor_main
+/eval /status_add -r1 "Mail: ":: poczta_show:5:BC%kolor_main
+/eval /status_add -r1 spacebreak::
+/eval /status_add -r1 "Time: ":: @clock:5:C%kolor_main
+
+/eval /status_add -c -r2 "[  ":: czy_kierunek_jest_w:1  "#":1:BC%kolor_alarm czy_kierunek_jest_e:2 czy_kierunek_jest_d:1 " ] "::
+/eval /status_add -r2 "R: [ ":: rozkaz_ataku:46:BC%kolor_alarm
+/eval /status_add -r2 "] Zasl: ":: nxt_zaslona:4
+/eval /status_add -r2 "Order: ":: nxt_order:4
+/eval /status_add -r2 "Warn: ":: alarm:20
+
+/eval /status_add -c -r3 "[  ":: czy_kierunek_jest_sw:1 czy_kierunek_jest_s:1 czy_kierunek_jest_se:2 czy_kierunek_jest_inne:1 " ] "::
+/eval /status_add -r3 " ":53
+/eval /status_add -r3 "Bind: ":: bindings:35:BC%kolor_info
+/eval /status_add -r3 spacebreak::
+/eval /status_add -r3 ownkills:3:BC%kolor_main
+/eval /status_add -r3 "/ ":: allkills:3:BC%kolor_main
diff --git a/nightal/substitute.tf b/nightal/substitute.tf
new file mode 100644
index 0000000..79ac7f9
--- /dev/null
+++ b/nightal/substitute.tf
@@ -0,0 +1,89 @@
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na zagubion.* ml.*'                      _poziomy_doswiadczenia_1 = /_sub 1/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na niedorajde stawiajac.* pierwsze.*'    _poziomy_doswiadczenia_2 = /_sub 2/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na nieobeznan.* z drogami .*'            _poziomy_doswiadczenia_3 = /_sub 3/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na ciekaw.* przygod wedro.*'             _poziomy_doswiadczenia_4 = /_sub 4/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na podrozn.* przebywajac.*'              _poziomy_doswiadczenia_5 = /_sub 5/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na chwat.* badajac.* kazdy.*'            _poziomy_doswiadczenia_6 = /_sub 6/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na znan.* w gospodach .*'                _poziomy_doswiadczenia_7 = /_sub 7/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na obeznan.* ze swiatem wedrow.*'        _poziomy_doswiadczenia_8 = /_sub 8/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na podrozni.* o swiatowej slawie.*'      _poziomy_doswiadczenia_9 = /_sub 9/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na weteran.* przemierzajac.* swiat.*'    _poziomy_doswiadczenia_10 = /_sub 10/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na bohater.* zdobywajac.*'               _poziomy_doswiadczenia_11 = /_sub 11/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na niedoceni.* w swiecie bohat.*'        _poziomy_doswiadczenia_12 = /_sub 12/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na wielce doswiadczon.* bohater.*'       _poziomy_doswiadczenia_13 = /_sub 13/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na chwalon.* w swiecie bohater.*'        _poziomy_doswiadczenia_14 = /_sub 14/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na oslawion.* w piesniach bohater.*'     _poziomy_doswiadczenia_15 = /_sub 15/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na znajac.* niemalze kazda tajemnice.*'  _poziomy_doswiadczenia_16 = /_sub 16/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na bohater.* dla ktor.* swiat nie.*'     _poziomy_doswiadczenia_17 = /_sub 17/18
+/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na tak.* co w pojedynke .*'              _poziomy_doswiadczenia_18 = /_sub 18/18
+
+/def -mregexp -Fp2 -t'( dzga | powaznie tnie | lekko nakluwa | bardzo gleboko przebija | przebija niemal na wylot | siniaczy | tylko nacina | lekko tnie | gleboko tnie | bardzo mocno tnie | smiercionosnie tnie | powaznie kluje | gleboko kluje | ledwie zadrapuje | brutalnie tlucze | lekko obija | powaznie obija | mocno uderza )' _cios_tank = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!lekko|gleboko|bardzo mocno|smiercionosnie) tnie ' _cios_tank_wyjatek0 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!powaznie|gleboko) kluje ' _cios_tank_wyjatek1 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!ledwie) zadrapuje ' _cios_tank_wyjatek2 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!brutalnie) tlucze ' _cios_tank_wyjatek3 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!powaznie|lekko) obija ' _cios_tank_wyjatek4 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!mocno|sila) uderza ' _cios_tank_wyjatek5 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!ledwo) muska ' _cios_tank_wyjatek6 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'(?<!tylko) nacina ' _cios_tank_wyjatek6 = \
+	/set klew=%PL %;\
+	/set kpra=%PR %;\
+	/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
+	/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
+	/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
+
+/def -mregexp -Fp2 -t'Impet .* ciosu sprawia ze pada .* na ziemie' sub_ogluszenie = \
+	/echo -p @{BC%kolor_alarm}>>>>>>****** OGLUSZENIE ******<<<<<<@{n} %;\
+
+/def -mregexp -Fp2 -t'Nagle z rur umieszczonych pod sufitem zaczyna tryskac zielona substancja' sub_kwas = \
+	/echo %;\
+	/echo -p @{B}>>>>>>****** KWAS ******<<<<<<@{n} %;\
+	/echo
diff --git a/nightal/warn.tf b/nightal/warn.tf
new file mode 100644
index 0000000..03f8941
--- /dev/null
+++ b/nightal/warn.tf
@@ -0,0 +1,7 @@
+/def -mregexp -Fp2 -t'przekazuje ci dowodzenie nad druzyna' warn_lead = \
+	/beep 1 %;\
+	/echo %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\
+	/echo
diff --git a/start.tf b/start.tf
new file mode 100644
index 0000000..02fcf6c
--- /dev/null
+++ b/start.tf
@@ -0,0 +1,25 @@
+/def -p20 -q -h'PROMPT *Podaj swoje imie*' login_hook0 = \
+	/purge login_hook* %;\
+	/def -mregexp -1 -F -h'SEND ([^ ]*)' login_hook1 = \
+		/send %%{P0} %%;\
+		/set obecnie_expujacy=$$[tolower({P0})] %%;\
+		/set obecnie_swiat=$${world_name} %%;\
+		/eval /cd %%{main_dir}/common %%;\
+		/_login_sprawdz %%;\
+		/load sets.tf %%;\
+		/load start.tf %%;\
+		/load init.tf %%;\
+		/eval /cd %%{main_dir}/$${world_name} %%;\
+		/load sets.tf %%;\
+		/load start.tf %%;\
+		/reload
+
+/def _login_sprawdz = \
+	/quote -S -dexec !\
+	if [ ! -d %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy} ]; then \
+		mkdir -p %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}; \
+		cp ../common/stdplayer.tf %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/%{obecnie_expujacy}.tf; \
+		touch %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/imiona.tf; \
+		touch %{priv_dir}/%{obecnie_swiat}/players/%{obecnie_expujacy}/lista.tf; \
+	fi
+