Namelength restriction

[Avarax]

Script Name: Namelength restriction script 1.0
Script Description: Kicks players when they join with a too long nick name.
Original Author(s): Avarax
Core Version: 2.6.2 (.zip file matches scriptingcoreV2 file structure.)



To set the script up, just extract it to your server folder and activate scripting in the server.ini. You can set the maximum name length in characters either by changing the NameRestriction.ini in the main server folder or by using the following admin command:

Code: [Select]

/maxnamelength Xwhile X is the new maximum length.

Default max length is 20.


DOWNLOAD[/size]

Code: [Select]

var MaxLength: byte;

procedure ActivateServer();
begin
  MaxLength:=strtoint(ReadINI('NameRestriction.ini','Settings','Maximum_Name_Length','20'));
end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
  If copy(text,1,15) = '/maxnamelength ' then begin
    MaxLength:=strtoint(GetPiece(text,' ',1));
    If ID = 255 then
      WriteLn('Maximum name length succesfully set to ' + inttostr(MaxLength))
    else
      WriteConsole(ID,'Maximum name length succesfully set to ' + inttostr(MaxLength),$90C2A0);
  end;
  result:=false;
end;

procedure OnJoinTeam(ID, Team: byte);
begin
  WriteConsole(ID,'This server runs the Namelength Restriction script by Avarax.',$90C2A0);
  WriteConsole(ID,'Maximum name length: ' + inttostr(MaxLength) + ' characters...',$90C2A0);
  If Length(GetPlayerStat(ID,'Name')) > MaxLength then begin
    WriteConsole(ID,'...your name is too long, please change it.',$90C2A0);
    DrawText(ID,'Your name is too long, please change it.',500,$90C2A0,0.075,20,320);
    KickPlayer(ID);
  end
  else
    WriteConsole(ID,'...name approved, have fun!',$90C2A0);
end;

[SirJamesaford]

OMG Are you going to put this in your hexer servers?  If so THANK YOU!

[EnEsCe]

Would be better if you didnt write anything to the console. Especially the 'by avarax' stuff. Theres way too much console spam going on, this just adds to it