const
TimeWeapon = 5;     // Tempo para distribuição de armas

type
Stats = record
WTime: Integer;
end;

var
P: Array[1 .. 32] Of Stats;

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
var Team: Integer;
begin
Team := GetPlayerStat(ID,'Team');
 Case Team of
   1:begin
     If PrimaryNum <> 11 Then If P[ID].WTime <= 1 Then ForceWeapon(ID,11, SecondaryNum,0);
     If SecondaryNum <> 11 Then If P[ID].WTime <= 1 Then ForceWeapon(ID,PrimaryNum, 11, 0);
     end;
   2:begin
     If PrimaryNum <> 5 Then If P[ID].WTime <= 1 Then ForceWeapon(ID,5, SecondaryNum,0);
     If SecondaryNum <> 5 Then If P[ID].WTime <= 1 Then ForceWeapon(ID,PrimaryNum, 5, 0);
         end;
 end;
end;

procedure OnJoinTeam(ID, Team: byte);
begin
If (Team = 1) Then begin
P[ID].WTime := TimeWeapon;
end;

If (Team = 2) Then begin
P[ID].WTime := TimeWeapon;
end;

If (Team = 3) Then begin
Command('/setteam5 '+Inttostr(ID));
P[ID].WTime := TimeWeapon;
end;

If (Team = 4) Then begin
Command('/setteam5 '+Inttostr(ID));
P[ID].WTime := TimeWeapon;
end;

If (Team = 5) Then begin
P[ID].WTime := TimeWeapon;
end;
          end;

procedure OnPlayerRespawn(ID: byte);
begin
P[ID].WTime := TimeWeapon;
end;

procedure AppOnIdle(Ticks: integer);
var A: Byte;
begin
For A := 1 To 32 Do
If GetPlayerStat(A,'Alive') Then
If GetPlayerStat(A,'Active') Then
If P[A].WTime > 1 Then begin
dec(P[A].WTime,1);
end;
                 end;