diff --git a/common/counter.tf b/common/counter.tf index dcb0413..93373a2 100644 --- a/common/counter.tf +++ b/common/counter.tf @@ -1,114 +1,114 @@ ; by Ingwar /def -Fp2 -mregexp -t'Zabil.s ' _zabiles_cosik_licz = %;\ - /_dodaj_do_zabitych %{PR}%;\ - /substitute -p @{C%c_crit_bold}%{PL}%{P0}%{PR} (%{ownkills}/%{allkills})@{n} + /_dodaj_do_zabitych %{PR}%;\ + /substitute -p @{C%c_crit_bold}%{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 -Fp2 -mregexp -t'( | \\(.*\\) ) zabil(a|o|) ' _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 + /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 + /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} + /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 #@{C%c_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 #@{C%c_info}#@{n}# %{linia}| @{n}%;\ - /let cc=0 %;\ - /let linia= %;\ - /endif %;\ - /done %;\ - /if (cc>0) \ - /echo -p #@{C%c_info}#@{n}# $[strcat(linia,strrep("| : ( )",po_ile-cc),"|")] @{n}%;\ - /endif %;\ - /let linia=$[strcat(" ", pad(ownkills,6),"@{n} |")] %;\ - /if (wrapsize > {po_ile}*27+6) \ + /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 #@{C%c_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 #@{C%c_info}#@{n}# %{linia}| @{n}%;\ + /let cc=0 %;\ + /let linia= %;\ + /endif %;\ + /done %;\ + /if (cc>0) \ + /echo -p #@{C%c_info}#@{n}# $[strcat(linia,strrep("| : ( )",po_ile-cc),"|")] @{n}%;\ + /endif %;\ + /let linia=$[strcat(" ", pad(ownkills,6),"@{n} |")] %;\ + /if (wrapsize > {po_ile}*27+6) \ /let linia=$[strcat(linia,"@{n}")] %;\ - /endif %;\ - /echo -p #@{C%c_info}#@{n}# +%{linia1}----- W sumie: %{linia} %;\ - /echo -p #@{C%c_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 #@{C%c_info}#@{n}# %{linia}| @{n}%;\ - /let cc=0 %;\ - /let linia= %;\ - /endif %;\ - /done %;\ - /if (cc>0) \ - /echo -p #@{C%c_info}#@{n}# $[strcat(linia,strrep("| : ( )",po_ile-cc),"|")] @{n}%;\ - /endif %;\ - /let linia=$[strcat(" ",pad(allkills,6),"@{n} |")] %;\ - /if (wrapsize > {po_ile}*27+6) \ - /let linia=$[strcat(linia," @{n}")] %;\ - /endif %;\ - /echo -p #@{C%c_info}#@{n}# +%{linia1}----- W sumie: %{linia} %;\ - /echo -p #@{C%c_info}#@{n}# +%{linia1}-------------------------+@{n} + /endif %;\ + /echo -p #@{C%c_info}#@{n}# +%{linia1}----- W sumie: %{linia} %;\ + /echo -p #@{C%c_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 #@{C%c_info}#@{n}# %{linia}| @{n}%;\ + /let cc=0 %;\ + /let linia= %;\ + /endif %;\ + /done %;\ + /if (cc>0) \ + /echo -p #@{C%c_info}#@{n}# $[strcat(linia,strrep("| : ( )",po_ile-cc),"|")] @{n}%;\ + /endif %;\ + /let linia=$[strcat(" ",pad(allkills,6),"@{n} |")] %;\ + /if (wrapsize > {po_ile}*27+6) \ + /let linia=$[strcat(linia," @{n}")] %;\ + /endif %;\ + /echo -p #@{C%c_info}#@{n}# +%{linia1}----- W sumie: %{linia} %;\ + /echo -p #@{C%c_info}#@{n}# +%{linia1}-------------------------+@{n}