tf-scripts/common/counter.tf

; 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}

/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

/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

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

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