Team Chat Spy 1.1

[Gnintendo]

Script Name: Team Chat Spy 1.1
Script Description Spy on other teams' team chat no matter what team you're on.
Author: Gnintendo
Compile Test: Passed
Core Version: 2.6.3
Hosted by: Soldat Central - http://soldatcentral.com/

Full Description:
Use /spy to enable and disable spying on other teams' team chat for admins.  This is optimal because often times you need to resolve debates that involve multiple people arguing on different teams through team chat.

(Size 888 B)
- http://soldatcentral.com/index.php?page=script&f=68 -

** Script hosted by Soldat Central! Please visit the author's script page and Rate this script **

[~Niko~]

isn't this useless? via ARSEE you can see everything what people says...

[Gnintendo]

isn't this useless? via ARSEE you can see everything what people says...

Well obviously, but I got tired of minimizing Soldat all the time.

[Gnintendo]

Team Chat Spy 1.1 Released:

Changelog:

• Fixed the out of range error that sometimes occurred when somebody spoke
• Works for more than one Admin at once now

[scarface09]

I think this is pointless...whats the point of checking your opposition team's chat whilst playing, when you already have admin?

[BombSki]

I think this is pointless...whats the point of checking your opposition team's chat whilst playing, when you already have admin?

try to read before posting

isn't this useless? via ARSEE you can see everything what people says...

Well obviously, but I got tired of minimizing Soldat all the time.

[GSx_Major]

Somewhat cleaner version.

Code: [Select]

var
  Spying: Array [1..32] Of Boolean;

procedure OnPlayerSpeak(ID: Byte; Text: String);
var i: Byte; Chat: String;
begin

  if MaskCheck((Text),'^*') = True then begin
 
    Chat := Copy(Text, 2, Length(Text) - 1);

    for i := 1 to 32 do
      if GetPlayerStat(i, 'Active') = True then
        if Spying[i] = True then
          if GetPlayerStat(ID, 'Team') <> GetPlayerStat(i, 'Team') then
            case GetPlayerStat(ID, 'Team') of
              0: WriteConsole(i, '(TEAM)[' + GetPlayerStat(ID, 'Name') + '] ' + (Chat), $FF000000);
              1: WriteConsole(i, '(TEAM)[' + GetPlayerStat(ID, 'Name') + '] ' + (Chat), $FFFF0000);
              2: WriteConsole(i, '(TEAM)[' + GetPlayerStat(ID, 'Name') + '] ' + (Chat), $FF0000FF);
              3: WriteConsole(i, '(TEAM)[' + GetPlayerStat(ID, 'Name') + '] ' + (Chat), $FFFFFF00);
              4: WriteConsole(i, '(TEAM)[' + GetPlayerStat(ID, 'Name') + '] ' + (Chat), $FF00FF00);
              5: WriteConsole(i, '(TEAM)[' + GetPlayerStat(ID, 'Name') + '] ' + (Chat), $FFB02AA0);
            end;
  end;
end;

function OnCommand(ID: Byte; Text: String): Boolean;
begin

  if Text = '/spy' Then
    if Spying[ID] = False then begin
      Spying[ID] := True;
      WriteConsole(ID, 'Team Chat spying has been enabled.', $FF43DF02);
    end else begin
      Spying[ID] := False;
      WriteConsole(ID, 'Team Chat spying has been disabled.', $FFFF0000);
    end;
end;

procedure OnLeaveGame(ID, Team: Byte; Kicked: Boolean);
begin
  Spying[ID] := False;
end;