//ForwardClient(SrcIP: string; SrcPort: integer; TargetIP: string; TargetPort: integer; Message: string);
// Script by Swompie.
// some bug fixing and optimization by dnmr
const
   MaxServerID = 2; // Max servers

   // Colors <3
   cNo = $FF0000;
   cStuff = $00CED1;

type
    TServers = Record
      IP, Name: string;
      Port: integer;
    end;

var
    Servers: Array [0..MaxServerID] of TServers;
    CurrentServerID: integer;

procedure Msg(ID: byte; Text: string; Color: longint);
begin
  WriteConsole(ID, Text + '                                                      ', Color);
end;

procedure ActivateServer;
begin
{ template for lazy ppl :]
  Servers[].IP   := '';
  Servers[].Port := '';
  Servers[].Name := '';
}
  Servers[1].IP   := '80.72.37.12';
  Servers[1].Port := 23073;
  Servers[1].Name := 'Zabijaka.pl [CTF]';
  CurrentServerID := 2;

  Servers[2].IP   := '176.9.104.241';
  Servers[2].Port := 23074;
  Servers[2].Name := 'Zabijaka.pl [CTF]#2';
  CurrentServerID := 1;



end;


function OnRequestGame(IP: string; State: integer): integer;
var i, NewServerID: integer;
begin
  // getting current server ID (won't work in ActivateServer)
  if CurrentServerID = 0 then begin
    for CurrentServerID := 1 to MaxServerID do
      if (Servers[CurrentServerID].IP = ServerIP) and (Servers[CurrentServerID].Port = ServerPort) then
        break;

    WriteLn('[Redirect] Server ID: ' + inttostr(CurrentServerID));

  end;

  if State = 5 then begin

    if CurrentServerID = MaxServerID then
      NewServerID := 1
    else
      NewServerID := CurrentServerID + 1;

    ForwardClient(IP, ReqPort, Servers[NewServerID].IP, Servers[NewServerID].Port,
    Servers[CurrentServerID].Name + ' is full, wanna join ' + Servers[NewServerID].Name + ' ?');

  end;

  Result := State;

end;