Auto kick - help

[Ut0ks]

I need a person who may edit this script:

Code: [Select]

//1v1 script by P

procedure OnJoinTeam(ID, Team: byte);
begin
if Team <> 5 then
begin
if DeathmatchPlayers > 2 then
Command('/setteam5 '+IntToStr(ID));
if Team <> 0 then
Command('/setteam5 '+IntToStr(ID));
end;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
case LowerCase(Text) of
'!j':
if GetPlayerStat(ID, 'Team') <> 0 then
begin
if DeathmatchPlayers >= 2 then
begin
WriteConsole(ID, 'The game is currently full.', $FF33FFCC);
end else
Command('/setteam0 '+IntToStr(ID));
end else
WriteConsole(ID, 'You are already ingame.', $FF33FFCC);
'!s':
if GetPlayerStat(ID, 'Team') <> 5 then
begin
Command('/setteam5 '+IntToStr(ID));
end else
WriteConsole(ID, 'You are already spectating.', $FF33FFCC);
'!help':
WriteConsole(ID,'!j   !s' , $FF33FFCC);
end;
end;

The idea is that the person who is trying to join the game (If the server they play two people) was kicked from the server automatically.

Would anyone be able to modify the script in such a way? I would be very greatful.

[Falcon`]

Can't you just set max players to two in soldat.ini?

[DarkCrusade]

He wants players to be able to spectate I guess.

Code: [Select]

//1v1 script by P

procedure OnJoinTeam(ID, Team: byte);
begin
 if Team <> 5 then
 begin
  if DeathmatchPlayers > 2 then
  Command('/kick '+IntToStr(ID));
  if Team <> 0 then
  Command('/kick '+IntToStr(ID));
 end;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
 case LowerCase(Text) of
  '!j':
   if GetPlayerStat(ID, 'Team') <> 0 then
   begin
    if DeathmatchPlayers >= 2 then
    begin
     WriteConsole(ID, 'The game is currently full.', $FF33FFCC);
    end else
    Command('/setteam0 '+IntToStr(ID));
   end else
   WriteConsole(ID, 'You are already ingame.', $FF33FFCC);
  '!s':
   if GetPlayerStat(ID, 'Team') <> 5 then
   begin
    Command('/setteam5 '+IntToStr(ID));
   end else
   WriteConsole(ID, 'You are already spectating.', $FF33FFCC);
  '!help':
  WriteConsole(ID,'!j   !s' , $FF33FFCC);
 end;
end;

[Ut0ks]

He wants players to be able to spectate I guess.

Code: [Select]

//1v1 script by P

procedure OnJoinTeam(ID, Team: byte);
begin
 if Team <> 5 then
 begin
  if DeathmatchPlayers > 2 then
  Command('/kick '+IntToStr(ID));
  if Team <> 0 then
  Command('/kick '+IntToStr(ID));
 end;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
 case LowerCase(Text) of
  '!j':
   if GetPlayerStat(ID, 'Team') <> 0 then
   begin
    if DeathmatchPlayers >= 2 then
    begin
     WriteConsole(ID, 'The game is currently full.', $FF33FFCC);
    end else
    Command('/setteam0 '+IntToStr(ID));
   end else
   WriteConsole(ID, 'You are already ingame.', $FF33FFCC);
  '!s':
   if GetPlayerStat(ID, 'Team') <> 5 then
   begin
    Command('/setteam5 '+IntToStr(ID));
   end else
   WriteConsole(ID, 'You are already spectating.', $FF33FFCC);
  '!help':
  WriteConsole(ID,'!j   !s' , $FF33FFCC);
 end;
end;

Thanks!