tf-scripts/common/substitute.tf

/def _sub = \
  /return substitute(strcat(decode_attr(strcat({PL}, {P0}, {PR}, " [", {1}, "] "))))

/def _sub_inside = \
  /return substitute(strcat({PL}, {P0}, " ", {*}, {PR})) %;\

/def typo =\
  /let n=$[strchr({*}, '|')]%;\
  /test param1 := substr({*}, 0, n) %;\
  /test param2 := substr({*}, n+1) %;\
  /echo -p #@{C%c_info}#@{n}# Zdefiniowana podmiana: @{C%c_info}%{param1}@{n} => @{C%c_info}%{param2}@{n} %;\
  /def -mregexp -h'SEND %{param1}'\
  typo_%{1} = /send $$[strcat ({PL}, '%{param2}', replace('%{param1}', '%{param2}', {PR}))]

/def -mregexp -Fp2 -t'(przybywaja|podazaja) (z(e|)|na) [wzpgd]' _liczenie_teamow = \
  /let _ile=%{PL} %; \
  /let _ile=$[replace("##", " ", replace(" ", "_",replace(", ", "##", replace(" i ", "##", {_ile}))))]%; \
  /podlicz_team %{_ile}%; \
  /substitute -p [@{C%c_info}%{_il_wr}@{n}] %{PL}%{P0}%{PR}%;\
  /unset _il_wr

/def podlicz_team = \
  /while ({#}) \
    /test ++_il_wr%; \
    /shift%; \
  /done

;; kondycja-zmiana
;;/def -mregexp -Fp2 -t' atakuje (.*)[!.]' ktos_atakuje = \
;;  /if ({P1} =~ "cie") \
;;    /eval /set kpra=cie %;\
;;  /elseif ({P1} =~ "ciebie") \
;;    /eval /set kpra=cie %;\
;;  /else \
;;    /set kpra=%P1%;\
;;  /endif %;\
;;  /set klew=%PL %;\
;;  /set ktobijelewa=$[replace(" ", "_", {klew})] %;\
;;  /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
;;  /eval /set %{ktobijelewa}_kogo_bije=%{kpra}
;;
;;/def -ag -mregexp -Fp2 -t' (?<!ze )jest (w swietnej kondycji|w dobrym stanie|lekko rann.|rann.|w zlej kondycji|ciezko rann.|ledwo zyw.)\\.' kondycja_ktos = \
;;  /if ({PL} =/ "\[*\]*") \
;;    /set lalala=$[substr({PL}, 7)]%;\
;;    /set ktokondycjalewa=$[replace(" ", "_", {lalala})] %;\
;;    /set ktokondycjalewa_check=$(/eval /eval /echo $$[%{ktokondycjalewa}_kto_bije]) %;\
;;    /if ({lalala} =~ {ktokondycjalewa_check}) \
;;      /set kogonaparza=$(/eval /eval /echo $$[%{ktokondycjalewa}_kogo_bije]) %;\
;;      /if ({kogonaparza} =~ "cie" ) \
;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
;;      /elseif ({kogonaparza} =~ "ciebie" ) \
;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
;;      /else \
;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>>>> @{n}", {kogonaparza})] %;\
;;      /endif %;\
;;    /else \
;;      /echo -p $[strcat({PL}, {P0})] %;\
;;    /endif %;\
;;  /else \
;;    /set ktokondycjalewa=$[replace(" ", "_", {PL})] %;\
;;    /set ktokondycjalewa_check=$(/eval /eval /echo $$[%{ktokondycjalewa}_kto_bije]) %;\
;;    /if ({PL} =~ {ktokondycjalewa_check}) \
;;      /set kogonaparza=$(/eval /eval /echo $$[%{ktokondycjalewa}_kogo_bije]) %;\
;;      /if ({kogonaparza} =~ "cie" ) \
;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
;;      /elseif ({kogonaparza} =~ "ciebie" ) \
;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>@{nC%c_crit_bold}>>> CIEBIE!@{n}")] %;\
;;      /else \
;;        /eval /echo -p $[strcat({PL}, {P0}, "@{C%c_bold} >>>>>> @{n}", {kogonaparza})] %;\
;;      /endif %;\
;;    /else \
;;      /echo -p $[strcat({PL}, {P0})] %;\
;;    /endif %;\
;;  /endif
;;
;;/def -mregexp -Fp2 -t' probuje trafic ' prbtrf = \
;;  /set klew=%PL %;\
;;  /set kpra=%PR %;\
;;  /set ktobijelewa=$[replace(" ", "_", {klew})] %;\
;;  /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
;;  /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
;;
;;/def -mregexp -Fp2 -t' probuje cie trafic ' prbtrf1 = \
;;  /set klew=%PL %;\
;;  /set kpra=%PR %;\
;;  /set ktobijelewa=$[replace(" ", "_", {klew})] %;\
;;  /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
;;  /eval /set %{ktobijelewa}_kogo_bije=cie
;;
;;/def -mregexp -Fp2 -t' wykonuje .+ mierzac w (.*), lecz ' oslona = \
;;  /set ktobijelewa=$[replace(" ", "_", {PL})] %;\
;;  /eval /set %{ktobijelewa}_kto_bije=%PL %;\
;;  /if (strlen({P1}) > 15) \
;;    /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P1}, 0, strstr({P1}, " ")))] %;\
;;  /else \
;;    /eval /set %{ktobijelewa}_kogo_bije=%P1%;\
;;  /endif
;;
;;/def  -mregexp -Fp2 -t' wyprowadza szybkie pchniecie .+ w (.*), lecz .*je z linii ataku .+' zbitka_czyms2 = \
;;  /set ktobijelewa=$[replace(" ", "_", {PL})] %;\
;;  /eval /set %{ktobijelewa}_kto_bije=%PL %;\
;;  /if (strlen({P1}) > 15) \
;;    /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P1}, 0, strstr({P1}, " ")))] %;\
;;  /else \
;;    /eval /set %{ktobijelewa}_kogo_bije=%P1%;\
;;  /endif
;;
;;/def -mregexp -p2 -t'(Podazasz za|Wraz z .* podazasz za| przybywa.* za toba) ' czysc_tank = \
;;  /quote -S /unset `/listvar -s *_kto_bije%;\
;;  /quote -S /unset `/listvar -s *_kogo_bije%;\
;;  /nf
;;
/def -mregexp -Fp2 -t' (polegl(a|o|)|umarl(a|o|))\\.' ktos_zdedzil_unset = \
  /echo -p @{C%c_alarm}>>>>>>****** ZGON ******<<<<<<@{n}
;;  /echo -p @{C%c_alarm}>>>>>>****** ZGON ******<<<<<<@{n}%;\
;;  /set ktoumarllewa=$[replace(" ", "_", {PL})] %;\
;;  /quote -S /unset `/listvar -s %{ktoumarllewa}_kto_bije%;\
;;  /quote -S /unset `/listvar -s %{ktoumarllewa}_kogo_bije
;;;;  /lc
;;
;;/def nf = /quote -S /unset `/listvar -s *_k*_bije
;; kondycja-zmiana