Colored Admin Messages

[DorkeyDear]

Script Name: Colored Admin Messages (and player notification)
Script Description: Whenever an admin does '/say ' and whatever text, it will display green on everybody's consoles as [NAME] MESSAGE, but if it is from the server, or an outside program, it will appear like [Server] MESSAGE. All message are shown in green if you use this script.
Original Author(s): Curt (DorkeyDear) (But too simple to be claimed by me)
Core Version: 2.6.0
Code:

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
var
  Name: string;
begin
  Result := false;
  if ID = 255 then Name := 'Server' else Name := GetPlayerStat(ID,'Name');
  if Copy(Text,1,5) = '/say ' then begin
    Result := true;
    WriteConsole(0,'[' + Name + '] ' + Copy(Text,6,Length(Text)),$FF52DD52);
  end;
  if GetPiece(Text,' ',0) = '/pm' then begin
    Result := true;
    try
      WriteConsole(StrtoInt(GetPiece(Text,' ',1)),'[PM] [' + Name + '] ' + Copy(Text,Length(GetPiece(Text,' ',1)) + 5,Length(Text)),$FF52DD52);
    except end;
  end;
end;
Go ahead and replace $FF52DD52 if you wish to change the color. A bunch of Soldat default colors may be found here.

[-Major-]

you should show us in which procedure it shall be sorted in.

[Zyyn]

I'm pretty sure that this would go in the OnCommand function in the Core.pas, that is where I put it

[DorkeyDear]

forgot to copy that with it, its edited now

Date Posted: June 01, 2007, 03:39:16 PMUpdate

• Private messages are colored
• Changed IDtoName to GetPlayerStat(ID,'Name')
• Changed name from "'/say ' abuser catcher (with colored text)" to "Colored Admin Messages"

[Eldiablo]

Nice work Dorkey.
You've got some great stuff :]