Script: Team kill message

[B}Verse]

Here is a script I really like, as I hate TKing my team mates and feel bad when I do. Copy and paste to autoexec.cfg.

Code:

// On TK message script by DES|Bukz. Little mod by Kirin. Some ideas and help from |BC|Wolf & DES|V-Man.
// with some customization by B}Verse to inlcude voicecoms, which created some irrelivant code.

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

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 [voicecom sorry "My bad, Sorry man!"]; conline [ ]] []
        if (strstr $conline "you gibbed teammate ") [sleep 1000 [voicecom sorry "My bad, Sorry man!"]; conline [ ]] []
        if (strstr $conline "you splattered teammate ") [sleep 1000 [voicecom sorry "My bad, Sorry man!"]; conline [ ]] []
        if (strstr $conline "you slashed teammate ") [sleep 1000 [voicecom sorry "My bad, Sorry man!"]; conline [ ]] []
        if (strstr $conline "you headshot teammate ") [sleep 1000 [voicecom sorry "My bad, Sorry man!"]; conline [ ]] []
    ]
    sleep 1 [tkchk]
][]]
//End cusomized TK script

Original script for reference:

Code:

// 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!"]

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 slashed teammate ") [sleep 1000 [say (concatword % $srymsg)]; conline [ ]] []
        if (strstr $conline "you headshot teammate ") [sleep 1000 [say (concatword % $srymsg)]; conline [ ]] []
    ]
    sleep 1 [tkchk]
][]]
//End TK script