/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 @{C%c_info}>>> @{n}Team has changed (@{C%c_info}ctrl+d@{n}).

/def -mregexp -Fp2 -t'porzuca.* druzyne' _druzyna_trig_2 = \
  /echo -p @{C%c_info}>>> @{n}Team has changed (@{C%c_info}ctrl+d@{n}).

/def -mregexp -Fp2 -t'rozwiazuje druzyne' _druzyna_trig_3 = \
  /echo -p @{C%c_info}>>> @{n}Team has changed (@{C%c_info}ctrl+d@{n}).

/def -mregexp -Fp2 -t'zmusza.* do opuszczenia druzyny' _druzyna_trig_4 = \
  /echo -p @{C%c_info}>>> @{n}Team has changed (@{C%c_info}ctrl+d@{n}).

/def -mregexp -Fp2 -t'przekazuje.* druzyn' _druzyna_trig_5 = \
  /echo -p @{C%c_info}>>> @{n}Team has changed (@{C%c_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_leader_bie=$$[replace("aylinna", "aylinn", {ogolne_leader_bie})]%%;\
    /set ogolne_leader_bie=$$[replace("dahira", "dahire", {ogolne_leader_bie})]%%;\
    /set ogolne_leader_bie=$$[replace("shinra", "shinru", {ogolne_leader_bie})]%%;\
    /set ogolne_leader_bie=$$[replace("fuega", "fuego", {ogolne_leader_bie})]%%;\
    /set ogolne_druzyna=%%{P5-DRUZYNA} %%;\
  /_ustaw_druzyne%;\
  /if ( {1} !~ "-q" )\
    /eval /echo -p #@{C%c_info}#@{n}# Team set, attack mode: @{C%c_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})]%;\
  /set ogolne_druzyna_bie=$[replace("aylinna", "aylinn", {ogolne_druzyna_bie})]%;\
  /set ogolne_druzyna_bie=$[replace("dahira", "dahire", {ogolne_druzyna_bie})]%;\
  /set ogolne_druzyna_bie=$[replace("shinra", "shinru", {ogolne_druzyna_bie})]%;\
  /set ogolne_druzyna_bie=$[replace("fuega", "fuego", {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("@{C%c_bold}[ ", 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 ({mudworld} =~ "arkadia" )\
    /alias g%{1} zaslon %{_name} przed grupa %;\
  /endif %;\
  /shift 12 %;\
  /_zaslona_show_numbers