/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'(Od teraz jej sklad|porzuca.* druzyne|rozwiazuje druzyne|zmusza.* do opuszczenia druzyny|przekazuje.* druzyn) ' _druzyna_trig_0 = \
  /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= \
    /_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= \
    /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= \
      /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}) %%;\
      /_exceptions_leader %%;\
      /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}) %;\
  /_exceptions_team %;\
  /_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