tf-scripts/common/substitute.tf

/def -mregexp -Fp3 -t'ledwo zyw.' _sub_ledwo = /substitute -p %{PL}@{C%c_bold}@{Cbg%c_crit_bold}$[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 [@{C%c_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" ) \
				/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} %;\
	/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

/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}))]