ftpd/tf-scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Nowa kondycja.

Browse source
This commit is contained in:
Bartek Stalewski 2013-10-22 14:12:43 +02:00
parent 378b31cb9a
commit 31a98944b2
3 changed files with 617 additions and 593 deletions
Download patch file Download diff file Expand all files Collapse all files

4
arkadia/colors.tf
View file

@ -23,7 +23,9 @@
/eval /def -PC%c_crit_bold -Fp5 -t'Bezskutecznie rzucasz sie na .* probujac przebic sie przez .* ochrone.'
/eval /def -PC%c_crit_bold -Fp5 -t'Na rozkaz .* rzucasz sie .*'
/eval /def -PC%c_crit_bold -Fp5 -t'Walczysz '
/eval /def -PC%c_crit -Fp5 -t'.* atakuje .*'
;; kondycja-zmiana
/eval /def -PC%c_crit -Fp5 -t'(?<!Jestes ).* atakuje .*'
;; kondycja-zmiana
/eval /def -PC%c_crit -Fp5 -t'.* probuje zaatakowac .*(mu|jej) droge.'
/eval /def -PC%c_crit -Fp5 -t'.* przebijajac sie przez (jej|jego) .*'
/eval /def -PC%c_crit -Fp5 -t'na .*rozkaz .* rzuca sie .*'

159
arkadia/substitute.tf
View file

@ -1,3 +1,4 @@
;; poziomy
/def -mregexp -p2 -t'^Wyglada(|sz) na kompletnego zoltodzioba\.' _poziomy_doswiadczenia_1 = /_sub 1/17@{n}
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto stawia pierwsze kroki\.' _poziomy_doswiadczenia_2 = /_sub 2/17@{n}
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto jeszcze niewiele widzial\.' _poziomy_doswiadczenia_3 = /_sub 3/17@{n}
@ -16,12 +17,15 @@
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto widzial i doswiadczyl wszystkiego\.' _poziomy_doswiadczenia_16= /_sub 16/17@{n}
/def -mregexp -p2 -t'^Wyglada(|sz) na osobe owiana legenda\.' _poziomy_doswiadczenia_17= /_sub 17/17@{n}
;; sprzęt
; zużycie
/def -mregexp -p2 -t'(calkiem nowy).' _stan_ekwipunku5 = /_sub 5/5
/def -mregexp -p2 -t'(w miare nowy).' _stan_ekwipunku4 = /_sub 4/5
/def -mregexp -p2 -t'(troche zuzyty).' _stan_ekwipunku3 = /_sub 3/5
/def -mregexp -p2 -t'(w duzym stopniu zuzyty).' _stan_ekwipunku2 = /_sub 2/5
/def -mregexp -p2 -t'(kompletnie zuzyty).' _stan_ekwipunku1 = /_sub 1/5
; jakość
/def -mregexp -PB -Fp2 -t'kompletnie nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro1 = /_sub_inside (1/14)
/def -mregexp -PB -Fp2 -t'strasznie nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro2 = /_sub_inside (2/14)
/def -mregexp -PB -Fp2 -t'bardzo nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro3 = /_sub_inside (3/14)
@ -63,6 +67,15 @@
/def -mregexp -PB -Fp2 -t'doskonale przed(?: obrazeniami|)' _skutecznosc_zbro11 = /_sub_inside (11/12)
/def -mregexp -PB -Fp2 -t'perfekcyjnie przed(?: obrazeniami|)' _skutecznosc_zbro12 = /_sub_inside (12/12)
;; kondycja
/def -mregexp -Fp2 -t'Jestes (w swietnej kondycji|w dobrym stanie|.* rann.|w zlej kondycji|ledwo zyw.). Atakuj(e|a) cie (.*)' _kondycja_show_me = \
/return substitute(strcat({PL}, "Jestes", {P1}, ". ", decode_attr(decode_attr("<<<<<< ATAKUJA", {zc_bold}), {zc_crit_background}), " ", {P3}))
/def -mregexp -Fp2 -t'jest (w swietnej kondycji|w dobrym stanie|.* rann.|w zlej kondycji|ledwo zyw.). Atakuj(e|a) (ja|je|go) (.*)' _kondycja_show_others = \
/return substitute(strcat({PL}, "jest ", {P1}, ". ", decode_attr("<<<<<< ", {zc_alarm}), {P4}))
/def -mregexp -Fp2 -t'Atakujesz (go|ja|je).' _kondycja_show_byme = \
/return substitute(strcat({PL}, decode_attr("<<<<<< ATAKUJESZ", {zc_crit})))
;; odporności
/def odpornosci_stany = \
/if ({1} =~ "minimalna") \
/return 1 %;\
@ -93,6 +106,7 @@
/repeat -1 1 /unset __odpornosci_* %;\
/purge __odpornosci_* %;\
/unset __odpornosci_* %;\
/send odpornosci %;\
/def -ag -Fp2 -mregexp -t'^$$' __odpornosci_gag_empty %;\
/def -ag -Fp2 -mregexp -t'^Obrazenia fizyczne:$$' __odpornosci_gag_fizyczne %;\
/def -ag -Fp2 -mregexp -t'^Obrazenia od zywiolow:$$' __odpornosci_gag_elemental %;\
@ -149,7 +163,6 @@
/def -ag -Fp2 -mregexp -t'^ +zimno - (.*)' __odpornosci_zimno = \
/set __odpornosci_zimno_string=%%{P1}%%;\
/set __odpornosci_zimno_value=$[odpornosci_stany(__odpornosci_zimno_string)] %;\
/send odpornosci %;\
/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}%;\
/echo -p | Fizyczne | Zywioly | Magia | Inne |%;\
/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}%;\
@ -166,76 +179,79 @@
/echo -p %{linia} %;\
/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}
/def -mregexp -Fp2 -t' ledwo muska ' ldwmsk = \
/set klew=%PL %;\
/set kpra=%PR %;\
/if (regmatch("Nagle", {klew})) \
/else \
/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
/endif
/def -mregexp -Fp2 -t' lekko rani ' lkrn = \
/set klew=%PL %;\
/set kpra=%PR %;\
/if (regmatch("Nagle", {klew})) \
/else \
/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
/endif
/def -mregexp -Fp2 -t'(?<!lekko|powaznie|bardzo ciezko) rani ' rni = \
/set klew=%PL %;\
/set kpra=%PR %;\
/if (regmatch("Nagle", {klew})) \
/else \
/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
/endif
/def -mregexp -Fp2 -t'( powaznie rani | bardzo ciezko rani | masakruje )' reszta = \
/set klew=%PL %;\
/set kpra=%PR %;\
/if (regmatch("Nagle", {klew})) \
/else \
/set ktobijelewa=$[replace(" ", "_", {klew})] %;\
/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
/endif
/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz .+ zbija go .+' zbitka_czyms = \
/set ktobijelewa=$[toupper({P1},1)] %;\
/set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
/eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
/if (strlen({P2}) > 15) \
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
/else \
/eval /set %{ktobijelewa}_kogo_bije=%P2%;\
/endif
/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz .+ udaje sie go uniknac.' unik_czyjs = \
/set ktobijelewa=$[toupper({P1},1)] %;\
/set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
/eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
/if (strlen({P2}) > 15) \
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
/else \
/eval /set %{ktobijelewa}_kogo_bije=%P2%;\
/endif
/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz uderzenie zatrzymuje sie na je.+.' zbroja_czyjas = \
/set ktobijelewa=$[toupper({P1},1)] %;\
/set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
/eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
/if (strlen({P2}) > 15) \
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
/else \
/eval /set %{ktobijelewa}_kogo_bije=%P2%;\
/endif
;; kondycja-zmiana
;;/def -mregexp -Fp2 -t' ledwo muska ' ldwmsk = \
;; /set klew=%PL %;\
;; /set kpra=%PR %;\
;; /if (regmatch("Nagle", {klew})) \
;; /else \
;; /set ktobijelewa=$[replace(" ", "_", {klew})] %;\
;; /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
;; /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
;; /endif
;;
;;/def -mregexp -Fp2 -t' lekko rani ' lkrn = \
;; /set klew=%PL %;\
;; /set kpra=%PR %;\
;; /if (regmatch("Nagle", {klew})) \
;; /else \
;; /set ktobijelewa=$[replace(" ", "_", {klew})] %;\
;; /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
;; /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
;; /endif
;;
;;/def -mregexp -Fp2 -t'(?<!lekko|powaznie|bardzo ciezko) rani ' rni = \
;; /set klew=%PL %;\
;; /set kpra=%PR %;\
;; /if (regmatch("Nagle", {klew})) \
;; /else \
;; /set ktobijelewa=$[replace(" ", "_", {klew})] %;\
;; /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
;; /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
;; /endif
;;
;;/def -mregexp -Fp2 -t'( powaznie rani | bardzo ciezko rani | masakruje )' reszta = \
;; /set klew=%PL %;\
;; /set kpra=%PR %;\
;; /if (regmatch("Nagle", {klew})) \
;; /else \
;; /set ktobijelewa=$[replace(" ", "_", {klew})] %;\
;; /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
;; /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] %;\
;; /endif
;;
;;/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz .+ zbija go .+' zbitka_czyms = \
;; /set ktobijelewa=$[toupper({P1},1)] %;\
;; /set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
;; /eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
;; /if (strlen({P2}) > 15) \
;; /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
;; /else \
;; /eval /set %{ktobijelewa}_kogo_bije=%P2%;\
;; /endif
;;
;;/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz .+ udaje sie go uniknac.' unik_czyjs = \
;; /set ktobijelewa=$[toupper({P1},1)] %;\
;; /set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
;; /eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
;; /if (strlen({P2}) > 15) \
;; /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
;; /else \
;; /eval /set %{ktobijelewa}_kogo_bije=%P2%;\
;; /endif
;;
;;/def -mregexp -Fp2 -t'Nagle (.*) wykonuje zamaszysty cios .+ celujac w (.*), lecz uderzenie zatrzymuje sie na je.+.' zbroja_czyjas = \
;; /set ktobijelewa=$[toupper({P1},1)] %;\
;; /set ktobijelewa=$[replace(" ", "_", {ktobijelewa})] %;\
;; /eval /set %{ktobijelewa}_kto_bije=$[toupper({P1},1)] %;\
;; /if (strlen({P2}) > 15) \
;; /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({P2}, 0, strstr({P2}, " ")))] %;\
;; /else \
;; /eval /set %{ktobijelewa}_kogo_bije=%P2%;\
;; /endif
;; kondycja-zmiana
;; płytki
/def -p2 -mregexp -t'Zauwazasz, ze plytki (.*) oraz (.*) sa lekko wcisniete w porownaniu z plytkami pozostalych barw.' blekitnokrwisci_plytki=\
/if (%{P1} =~ "niebieskie") \
/if (%{P2} =~ "biale") \
@ -293,6 +309,7 @@
/endif %;\
/endif
;; pojemniki
; by Ingwar
/set ogolne_skrzynia_dluga=1
@ -510,6 +527,8 @@
/test echo(1) %;\
/endif
;; umiętności
; by Ingwar
/def um = \
/if ({*}=~NULL) \
/send umiejetnosci bojowe %;\

201
common/substitute.tf
View file

@ -6,6 +6,14 @@
/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}))))]%; \
@ -19,103 +27,98 @@
/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
;; 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} %;\
/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}))]
/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