// On TK message script by DES|Bukz. Little mod by Kirin. Some ideas and help from |BC|Wolf & DES|V-Man.

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

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

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