115 lines
4.0 KiB
HCL
115 lines
4.0 KiB
HCL
; 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}
|