IRC like /me command

[jrgp]

Script Name: IRC like /me command
Script Description: When you do /me MSG ingame, it says * NAME MSG to all players.
Original Author(s): jrgp. function Explode() by DorkyDear (thanks bro!)
Core Version: 2.2
Code:

Code: [Select]

//whenever someone does a command
procedure OnPlayerCommand(ID: Byte; Text: string);
var
halves: array of string;
begin
//what the person's command was, seperated by /me's
halves := Explode(Text, '/me');
//more than two items causes problems
if getarraylength(halves) > 2 then
exit;
//write it out!
WriteConsole(0, IDToName(ID)+halves[1], $FFffcccc);
end;


[UnknownSniper]

Very nice script, good job.

~Sorry, I'm not a very talkative person.~

[iDante]

lol nice
no slapping people around a bit with large tunas?

[jrgp]

lol nice
no slapping people around a bit with large tunas?

haha, I'll have to add that too! What other irc like commands should this script have?

[mar77a]

The idea is good compared to the way it's coded. I mean, do you even need to explode()? Can't you just substr with Copy?

[iDante]

Yeah looking at the source it seems this should be a lot simpler.

Can't you just substr with Copy?

I don't think there is a substr in the scripting core.
Instead I would do if GetPiece(Text,' ',0) = '/me' to check the first bit, and I dunno about the rest.

[Toumaz]

Yeah looking at the source it seems this should be a lot simpler.

Can't you just substr with Copy?

I don't think there is a substr in the scripting core.
Instead I would do if GetPiece(Text,' ',0) = '/me' to check the first bit, and I dunno about the rest.

if lowercase(copy(Text, 1, 4)) = '/me ' then ...

[DorkeyDear]

if (LowerCase(Copy(Text, 1, 4)) = '/me ') then WriteConsole(0, GetPlayerStat(Id, 'Name') + ' ' + Copy(Text, 5, Length(Text)), $FFFFFFFF);

[jrgp]

Yeah, it would be a lot better to code it that way. Thanks for the suggestion. One thing though, the only thing that pisses me off to no end about Soldat Server Scripting is there are functions that exist in the scripting core but are not documented and cannot be found with google. I wish EnEsCe would post a list of functions that pretty much come with Pascal itself.

[DorkeyDear]

He did a while ago to somebody...

Code: [Select]

function inttostr(i: Int64): string;
function inttostr(i: Integer): string;
function strtoint(s: string): Longint;
function strtointdef(s: string; def: Longint): Longint;
function copy(s: string; ifrom, icount: Longint): string
function pos(substr, s: string): Longint;
procedure delete(var s: string; ifrom, icount: Longint);
procedure insert(s: string; var s2: string; ipos: Longint);
function getarraylength: integer;
Function StrGet(var S : String; I : Integer) : Char;
procedure StrSet(c : Char; I : Integer; var s : String);
Function WStrGet(var S : WideString; I : Integer) : WideChar;
procedure WStrSet(c : WideChar; I : Integer; var s : WideString);
Function StrGet2(S : String; I : Integer) : Char;
Function AnsiUppercase(s : string) : string;
Function AnsiLowercase(s : string) : string;
Function Uppercase(s : string) : string;
Function Lowercase(s : string) : string;
Function Trim(s : string) : string;
function Length(s : string) : Integer;
procedure SetLength;
function Low: Int64;
function High: Int64;
procedure Dec;
procedure Inc;
Function Sin(e : Extended) : Extended;
Function Cos(e : Extended) : Extended;
Function Sqrt(e : Extended) : Extended;
Function Round(e : Extended) : Longint;
Function Trunc(e : Extended) : Longint;
Function Int(e : Extended) : Extended;
Function Pi : Extended;
Function Abs(e : Extended) : Extended;
function StrToFloat(s: string): Extended;
Function FloatToStr(e : Extended) : String;
Function Padl(s : string;I : longInt) : string;
Function Padr(s : string;I : longInt) : string;
Function Padz(s : string;I : longInt) : string;
Function Replicate(c : char;I : longInt) : string;
Function StringOfChar(c : char;I : longInt) : string;
function Unassigned: Variant;
function VarIsEmpty(const V: Variant): Boolean;
function Null: Variant;
function VarIsNull(const V: Variant): Boolean;
function VarType(const V: Variant): TVarType;
procedure RaiseLastException;
procedure RaiseException(Ex: TIFException; Param: string);
function ExceptionType: TIFException;
function ExceptionParam: string;
function ExceptionProc: Cardinal;
function ExceptionPos: Cardinal;
function ExceptionToString(er: TIFException; Param: string): string;
function StrToInt64(s: string): int64;
function Int64ToStr(i: Int64): string;
function SizeOf: Longint;
function IDispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: String; Par: array of variant): variant;

function GetTickCount():Cardinal
I added GetTickCount to the list sense it wasn't there; everything else EnEsCe listed.

[xmRipper]

Another one:

function CheckWeaponAllowed(WeaponNum: byte): boolean;

[Mittsu]

nice script, but

"

• [Error] me -> (OnPlayerCommand): Out Of Range"

it keeps appearing on my server.