// On TK message script by DES|Bukz. Little mod by Kirin.

if (! (strstr $mapstartalways tkchk)) [add2alias mapstartalways [sleep 1000 [tkchk]]] []
if (checkalias srymsg) [] [srymsg = "Sorry Mate :("]

tkchk = [
	if (= $connected 1) [ // Only apoligize to real people :p
		if (! (strcmp (at $conline) "3you")) [] [ // Workaround for stupid people who use "you" in their nicks
		if (strstr $conline "you fragged teammate ") [say (concatword % $srymsg); conline [ ]] []
		if (strstr $conline "you gibbed teammate ") [say (concatword % $srymsg); conline [ ]] []
		if (strstr $conline "you splattered teammate ") [say (concatword % $srymsg); conline [ ]] []
		if (strstr $conline "you knifed teammate ") [say (concatword % $srymsg); conline [ ]] []
		if (strstr $conline "you headshotted teammate ") [say (concatword % $srymsg); conline [ ]] []
	]] []
	sleep 1500 [tkchk]
]

newmenu "sorrymsg"
menuitemtextinput "Auto-sorry upon TK msg: " "result $srymsg" "srymsg = $arg1"