/require textutil.tf

/def append_slain = /listvar v_slain_* %| /writefile -a vars_slain.tf
/append_slain
/load vars_slain.tf

/def -F -mregexp -t'^You have slain (.*), retrieving the corpse\.$' t_slain = \
	/let var_name=$[strcat("v_slain_", replace("'","_", replace(",","_", replace("-", "_", replace(" ", "_", {P1})))))] %; \
	/if (isvar(var_name)) \
		/eval /test ++%{var_name} %; \
	/else \
		/eval /set %{var_name}=1 %; \
	/endif %; \

/def write_slain = /listvar v_slain_* %| /writefile vars_slain.tf

/def slain_reset = /quote -S /unset `"/listvar -s v_slain_*" %; /write_slain

/def slain_list = \
	/eval /echo -aCyellow $[pad("Denizen", -40, "Kills", 5)] %; \
	/quote -S /slain_show `"/listvar -s v_slain_*%{1}*" %; \

/def slain_show = \
	/let name=$[replace("_", " ", replace("v_slain_", "", {1}))] %; \
	/let num= %; \
	/eval /test num := %{1} %; \
	/eval /echo $[pad(name, -40, num, 5)] %; \

/def slain_list2 = \
	/eval /echo -aCyellow $[pad("Kills", -7, "Denizen", -40)] %; \
	/quote -S /slain_show2 `"/listvar -s v_slain_*%{1}*" %; \

/def slain_show2 = \
	/let name=$[replace("_", " ", replace("v_slain_", "", {1}))] %; \
	/let num= %; \
	/eval /test num := %{1} %; \
	/eval /echo $[pad(num, -7, name, -40)] %; \

/def -F -hDISCONNECT|SIGHUP t_slain_disconnect = /write_slain