var
    alfa    : integer;
    sideA   : integer;
    sideB   : integer;

procedure OnMapChange(NewMap: String);
var
i   : integer;
begin
    for i := 1 to NumPlayers do begin
        if alfa = 0 then begin
            if GetPlayerStat(i, 'Team') = 1 then begin
                alfa := 1;
                if GetPlayerStat(i, 'X') < 0 then begin
                    sideA := 1;
                    sideB := 2;
                end;
                if GetPlayerStat(i, 'X') > 0 then begin
                    sideA := 2;
                    sideB := 1;
                end;
            end;
        end;
    end;
end;