From 0ebba2b48ba354cc9f9472f402090e89900f2f41 Mon Sep 17 00:00:00 2001
From: Bartek Stalewski <ftpd@insomniac.pl>
Date: Tue, 5 Nov 2013 11:20:18 +0100
Subject: [PATCH] Usuniecie starego wyswietlania kondycji.

---
 arkadia/colors.tf     |  2 -
 arkadia/substitute.tf | 72 --------------------------------
 common/substitute.tf  | 96 -------------------------------------------
 3 files changed, 170 deletions(-)

diff --git a/arkadia/colors.tf b/arkadia/colors.tf
index e5bd502..484f216 100644
--- a/arkadia/colors.tf
+++ b/arkadia/colors.tf
@@ -24,9 +24,7 @@
 /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 '
-;; 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 .*'
diff --git a/arkadia/substitute.tf b/arkadia/substitute.tf
index 19e8cec..50f37eb 100644
--- a/arkadia/substitute.tf
+++ b/arkadia/substitute.tf
@@ -214,78 +214,6 @@
   /echo -p %{linia} %;\
   /echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}
 
-;; 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") \
diff --git a/common/substitute.tf b/common/substitute.tf
index 76c9e03..1b56e02 100644
--- a/common/substitute.tf
+++ b/common/substitute.tf
@@ -25,99 +25,3 @@
     /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