From 31a98944b2a3eb19e170b218d62364eb10ebe495 Mon Sep 17 00:00:00 2001
From: Bartek Stalewski <ftpd@insomniac.pl>
Date: Tue, 22 Oct 2013 14:12:43 +0200
Subject: [PATCH] Nowa kondycja.

---
 arkadia/colors.tf     |   4 +-
 arkadia/substitute.tf | 975 +++++++++++++++++++++---------------------
 common/substitute.tf  | 231 +++++-----
 3 files changed, 617 insertions(+), 593 deletions(-)

diff --git a/arkadia/colors.tf b/arkadia/colors.tf
index eda324c..21be5e5 100644
--- a/arkadia/colors.tf
+++ b/arkadia/colors.tf
@@ -23,7 +23,9 @@
 /eval /def -PC%c_crit_bold -Fp5 -t'Bezskutecznie rzucasz sie na .* probujac przebic sie przez .* ochrone.'
 /eval /def -PC%c_crit_bold -Fp5 -t'Na rozkaz .* rzucasz sie .*'
 /eval /def -PC%c_crit_bold -Fp5 -t'Walczysz '
-/eval /def -PC%c_crit      -Fp5 -t'.* atakuje .*'
+;; kondycja-zmiana
+/eval /def -PC%c_crit      -Fp5 -t'(?<!Jestes ).* atakuje .*'
+;; kondycja-zmiana
 /eval /def -PC%c_crit      -Fp5 -t'.* probuje zaatakowac .*(mu|jej) droge.'
 /eval /def -PC%c_crit      -Fp5 -t'.* przebijajac sie przez (jej|jego) .*'
 /eval /def -PC%c_crit      -Fp5 -t'na .*rozkaz .* rzuca sie .*'
diff --git a/arkadia/substitute.tf b/arkadia/substitute.tf
index ae38bc4..d5bd6c9 100644
--- a/arkadia/substitute.tf
+++ b/arkadia/substitute.tf
@@ -1,3 +1,4 @@
+;; poziomy
 /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}
@@ -16,12 +17,15 @@
 /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}
 
+;; sprzęt
+; zużycie
 /def -mregexp -p2 -t'(calkiem nowy).'           _stan_ekwipunku5 = /_sub 5/5
 /def -mregexp -p2 -t'(w miare nowy).'           _stan_ekwipunku4 = /_sub 4/5
 /def -mregexp -p2 -t'(troche zuzyty).'          _stan_ekwipunku3 = /_sub 3/5
 /def -mregexp -p2 -t'(w duzym stopniu zuzyty).' _stan_ekwipunku2 = /_sub 2/5
 /def -mregexp -p2 -t'(kompletnie zuzyty).'      _stan_ekwipunku1 = /_sub 1/5
 
+; jakość
 /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)
@@ -63,179 +67,191 @@
 /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)
 
+;; kondycja
+/def -mregexp -Fp2 -t'Jestes (w swietnej kondycji|w dobrym stanie|.* rann.|w zlej kondycji|ledwo zyw.). Atakuj(e|a) cie (.*)' _kondycja_show_me = \
+  /return substitute(strcat({PL}, "Jestes", {P1}, ". ", decode_attr(decode_attr("<<<<<< ATAKUJA", {zc_bold}), {zc_crit_background}), " ", {P3}))
+/def -mregexp -Fp2 -t'jest (w swietnej kondycji|w dobrym stanie|.* rann.|w zlej kondycji|ledwo zyw.). Atakuj(e|a) (ja|je|go) (.*)' _kondycja_show_others = \
+  /return substitute(strcat({PL}, "jest ", {P1}, ". ", decode_attr("<<<<<< ", {zc_alarm}), {P4}))
+/def -mregexp -Fp2 -t'Atakujesz (go|ja|je).' _kondycja_show_byme = \
+  /return substitute(strcat({PL}, decode_attr("<<<<<< ATAKUJESZ", {zc_crit})))
+
+;; odporności
 /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
+  /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}
+  /repeat -1 1 /purge __odpornosci_*  %;\
+  /repeat -1 1 /unset __odpornosci_* %;\
+  /purge __odpornosci_* %;\
+  /unset __odpornosci_* %;\
+  /send 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)] %;\
+  /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
+;; kondycja-zmiana
+;;/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
+;; kondycja-zmiana
 
+;; płytki
 /def -p2 -mregexp -t'Zauwazasz, ze plytki (.*) oraz (.*) sa lekko wcisniete w porownaniu z plytkami pozostalych barw.' blekitnokrwisci_plytki=\
   /if (%{P1} =~ "niebieskie") \
     /if (%{P2} =~ "biale") \
@@ -292,335 +308,338 @@
       /echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: szare. %;\
     /endif %;\
   /endif
-		
+
+;; pojemniki
 ; 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
+  /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 - 46 - %{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 - 46 - %{wrapspace}), "+")) %;\
-		/endif %;\
-		/test ++i %;\
-	/done %;\
-	/unset _zb %;\
-	/unset _zb2 %;\
-	/unset _na %;\
-	/unset _na2
+  /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 - 46 - %{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 - 46 - %{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("@{nC%c_bold}", {1}))) %;\
-	/elseif ({1} =~ "wiele" | {1} =~ "wielu") \
-		/test echo("X") %;\
-	/else \
-		/test echo(1) %;\
-	/endif
+  /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("@{nC%c_bold}", {1}))) %;\
+  /elseif ({1} =~ "wiele" | {1} =~ "wielu") \
+    /test echo("X") %;\
+  /else \
+    /test echo(1) %;\
+  /endif
 
+;; umiętności
+; by Ingwar
 /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
+  /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  
+/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
+  /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
 
 /alias um /um bojowe%; /repeat -0.1 1 /um ogolne%; /repeat -0.2 1 /um zlodziejskie %; /repeat -0.4 1 /um magiczne %;\
-	/repeat -0.5 1 /echo +-------------------------------------------------------------------------------+ %;\
-	/repeat -0.6 1 /send um praktyczne %;\
-	/repeat -0.7 1 /send um jezykowe	
+  /repeat -0.5 1 /echo +-------------------------------------------------------------------------------+ %;\
+  /repeat -0.6 1 /send um praktyczne %;\
+  /repeat -0.7 1 /send um jezykowe  
diff --git a/common/substitute.tf b/common/substitute.tf
index 6f9468b..6e89a73 100644
--- a/common/substitute.tf
+++ b/common/substitute.tf
@@ -1,121 +1,124 @@
 /def -mregexp -Fp3 -t'ledwo zyw.' _sub_ledwo = /substitute -p %{PL}@{C%c_bold}@{Cbg%c_crit_bold}$[toupper({P0})]@{n}%{PR}
 
 /def _sub = \
-	/return substitute(strcat(decode_attr(strcat({PL}, {P0}, {PR}, " [", {1}, "] "))))
+  /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 [@{C%c_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" ) \
-				/eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
-			/elseif ({kogonaparza} =~ "ciebie" ) \
-				/eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
-			/else \
-				/eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>>>> @{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" ) \
-				/eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
-			/elseif ({kogonaparza} =~ "ciebie" ) \
-				/eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
-			/else \
-				/eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>>>> @{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 @{C%c_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
+  /return substitute(strcat({PL}, {P0}, " ", {*}, {PR})) %;\
 
 /def typo =\
-	/let n=$[strchr({*}, '|')]%;\
-	/test param1 := substr({*}, 0, n) %;\
-	/test param2 := substr({*}, n+1) %;\
-	/echo -p #@{C%c_info}#@{n}# Zdefiniowana podmiana: @{C%c_info}%{param1}@{n} => @{C%c_info}%{param2}@{n} %;\
-	/def -mregexp -h'SEND %{param1}'\
-	typo_%{1} = /send $$[strcat ({PL}, '%{param2}', replace('%{param1}', '%{param2}', {PR}))]
+  /let n=$[strchr({*}, '|')]%;\
+  /test param1 := substr({*}, 0, n) %;\
+  /test param2 := substr({*}, n+1) %;\
+  /echo -p #@{C%c_info}#@{n}# Zdefiniowana podmiana: @{C%c_info}%{param1}@{n} => @{C%c_info}%{param2}@{n} %;\
+  /def -mregexp -h'SEND %{param1}'\
+  typo_%{1} = /send $$[strcat ({PL}, '%{param2}', replace('%{param1}', '%{param2}', {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 [@{C%c_info}%{_il_wr}@{n}] %{PL}%{P0}%{PR}%;\
+  /unset _il_wr
+
+/def podlicz_team = \
+  /while ({#}) \
+    /test ++_il_wr%; \
+    /shift%; \
+  /done
+
+;; kondycja-zmiana
+;;/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" ) \
+;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
+;;      /elseif ({kogonaparza} =~ "ciebie" ) \
+;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
+;;      /else \
+;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>>>> @{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" ) \
+;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
+;;      /elseif ({kogonaparza} =~ "ciebie" ) \
+;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
+;;      /else \
+;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>>>> @{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 @{C%c_alarm}>>>>>>****** ZGON ******<<<<<<@{n}
+;;  /echo -p @{C%c_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
+;; kondycja-zmiana