Move to Spectator if name...

[sepetphalanx]

Script Name: What's in a name?
Script Description: This will instantly move anyone that joins with a specific word in their name to the spectators and then send then broadcast a message
Original Author: Sepet Phalanx
Core Version: 2.5.4

Code: [Select]

procedure OnJoinTeam(IP, Nickname: string;Team: byte);
var
  swearWord: array[1..32] of string;
  i: integer;
begin
  { put your swear words here }
  swearWord[1] := 'word1';
  swearWord[2] := 'word2';
  swearWord[3] := 'word3';
  { make sure --v-- that number matches your number of swear words }
  for i := 1 to 3 do if(ContainsString(LowerCase(Nickname), LowerCase(swearWord[i]))) then begin
    { Move player to spectators... }
    Command('/SETTEAM5 ' + inttostr(NametoID(Nickname)));
    { Message... }
    SayToPlayer(NametoID(Nickname),Nickname + ', please change your name!');
  end;
end;
If you copy and paste that then my poor excuse for an ascii arrow should line up with the '3' in the line below it.

[HEX]

Does it accept wildcards?

Code: [Select]

swearWord[1] := 'word1*';
swearWord[2] := '*word1';


[xmRipper]

Use this for wildcards:

Code: [Select]

...
for i := 1 to 3 do if(MaskCheck(LowerCase(Nickname), LowerCase(swearWord[i]))) then begin
...


[zooc]

HEX, you don't have to use star (*) as it's said in Script Description: will move anyone (...) with a specific word in their name
so it'll work just fine

[xmRipper]

HEX, you don't have to use star (*) as it's said in Script Description: will move anyone (...) with a specific word in their name
so it'll work just fine

but you cant use like 'word*word'

sorry for little bad english

[zooc]

you're right there, your answer was better

i only answered for exact HEX question, hehe

[HEX]

This code is out-of-date. A friend of mine will fix it... I'm gonna ask him to post here as soon as he finish it.

[urraka]

Code: [Select]

procedure swearWord_OnJoinTeam(ID, Team: byte);
var
swearWord: array[1..32] of string;
i, NumberOfWords: integer;
Nickname: string;
begin
if Team <> 5 then
begin
// put your swear words here
swearWord[1] := '[Spec]';

// make sure NumberOfWords has the correct value
NumberOfWords := 1;

Nickname := IDToName(ID);

for i := 1 to 3 do
begin
if(ContainsString(LowerCase(Nickname), LowerCase(swearWord[i]))) then
begin
// Move player to spectators...
Command('/SETTEAM5 ' + inttostr(ID));
// Message...
SayToPlayer(ID, Nickname + ', please change your name!');
end;
end;
end;
end;

i change the OnJoinTeam procedure name so i can put this in a separated file swearword.pas and add it in the include.txt, before networkcore.pas
then all i do is modify networkcore.pas this way

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
begin
swearWord_OnJoinTeam(ID, Team);
end;

[HEX]

Thanks!!

[NeoniK]

I have script PerroAZUL, how make it to use some commands to able or disable script to join spectator ?

[HEX]

Try this:

Code: [Select]

var
swearWord_script: boolean;

procedure swearWord_OnJoinTeam(ID, Team: byte);
var
swearWord: array[1..32] of string;
i, NumberOfWords: integer;
Nickname: string;
begin
if (Team <> 5) And (swearWord_script = true) then
begin
// put your swear words here
swearWord[1] := '[Spec]';

// make sure NumberOfWords has the correct value
NumberOfWords := 1;

Nickname := IDToName(ID);

for i := 1 to 3 do
begin
if(ContainsString(LowerCase(Nickname), LowerCase(swearWord[i]))) then
begin
// Move player to spectators...
Command('/SETTEAM5 ' + inttostr(ID));
end;
end;
end;
end;

procedure swearWord_ActivateServer();
begin
swearWord_script := false;
end;

function swearWord_OnCommand(ID: Byte; Text: string): boolean;
begin
if Text = '/specon' then
begin
swearWord_script := true;
WriteLn('Enabled!');
end
else if Text = '/specoff' then
begin
swearWord_script := false;
WriteLn('Unabled');
end;
Result := false;
end;

Turning on /specon
Turning off /specoff

Date Posted: June 09, 2007, 06:29:36 PMAnd don't forget

Code: [Select]

begin
swearWord_OnJoinTeam(ID, Team);
end;

Modify networkcore.pas with this code just like Perro said.

[urraka]

That seems to be right. One thing only: 'Unabled' = 'Disabled'

[NeoniK]

It doesn't work

[Geistlort]

thanks

[dragus]

who can give to me scripts  a    /specall