Initial commit.
This commit is contained in:
commit
a05f1331d6
51 changed files with 6224 additions and 0 deletions
209
common/array.tf
Normal file
209
common/array.tf
Normal file
|
|
@ -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 :)
|
||||
120
common/binds.tf
Normal file
120
common/binds.tf
Normal file
|
|
@ -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}
|
||||
112
common/combat.tf
Normal file
112
common/combat.tf
Normal file
|
|
@ -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
|
||||
114
common/counter.tf
Normal file
114
common/counter.tf
Normal file
|
|
@ -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}
|
||||
172
common/equipment.tf
Normal file
172
common/equipment.tf
Normal file
|
|
@ -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
|
||||
145
common/hunt.tf
Normal file
145
common/hunt.tf
Normal file
|
|
@ -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
|
||||
8
common/init.tf
Normal file
8
common/init.tf
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
/f1 empty
|
||||
/f2 empty
|
||||
/f3 empty
|
||||
/f4 empty
|
||||
/f5 empty
|
||||
/f6 empty
|
||||
/f7 empty
|
||||
/f8 empty
|
||||
480
common/lists.tf
Normal file
480
common/lists.tf
Normal file
|
|
@ -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
|
||||
53
common/mail.tf
Normal file
53
common/mail.tf
Normal file
|
|
@ -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}
|
||||
10
common/misc.tf
Normal file
10
common/misc.tf
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
/def exp = \
|
||||
usiadz %;\
|
||||
medytuj %;\
|
||||
ocen sile %;\
|
||||
ocen zrecznosc %;\
|
||||
ocen wytrzymalosc %;\
|
||||
ocen inteligencje %;\
|
||||
ocen madrosc %;\
|
||||
ocen odwage %;\
|
||||
powstan
|
||||
238
common/movement.tf
Normal file
238
common/movement.tf
Normal file
|
|
@ -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
|
||||
|
||||
102
common/odmiana.tf
Normal file
102
common/odmiana.tf
Normal file
|
|
@ -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})]
|
||||
54
common/people.tf
Normal file
54
common/people.tf
Normal file
|
|
@ -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
|
||||
90
common/sets.tf
Normal file
90
common/sets.tf
Normal file
|
|
@ -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"), "] ")]
|
||||
84
common/start.tf
Normal file
84
common/start.tf
Normal file
|
|
@ -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.
|
||||
59
common/stdplayer.tf
Normal file
59
common/stdplayer.tf
Normal file
|
|
@ -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
|
||||
113
common/substitute.tf
Normal file
113
common/substitute.tf
Normal file
|
|
@ -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
|
||||
195
common/team.tf
Normal file
195
common/team.tf
Normal file
|
|
@ -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
|
||||
76
common/testuj.tf
Normal file
76
common/testuj.tf
Normal file
|
|
@ -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
|
||||
19
common/warn.tf
Normal file
19
common/warn.tf
Normal file
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue