Auto respond to "sorry" after TK concept...

alias tk_list [fragged gibbed headshot splattered slashed]
alias sry_list [Sorry sorry Sry sry Soz soz]
alias np_msg "No problem mate, it happens. :)"
alias s_reply 0

alias check_for_tks [
  loop cft 5 [
    if_conline_has (format "you were %1 by teammate" (at $tk_list $cft)) [
      alias your_tker (at $conline 5)
      alias tk_time (millis)
      init_reply
    ] []
  ]
]

alias init_reply [
  if (<= (- (millis) $tk_time) 5000) [
    loop irl (listlen $sry_list) [
      if_conline_has (at $sry_list $irl) [
        if (&& (strstr (at $conline 0) $your_tker) (= $s_reply 0)) [
          say $np_msg
          alias s_reply 1
        ]
      ] []
    ]
    sleep 0 [init_reply]
  ] [
    alias your_tker []
    alias s_reply 0
  ]
]

add2conloop check_for_tks