111 lines
4.6 KiB
HCL
111 lines
4.6 KiB
HCL
/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
|