var kick: array[1..32] of boolean;
procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if getplayerstat(victim,'human') = false then kick[victim] := true;
end;
procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
for i := 1 to 32 do if kick[i] then begin
kickplayer(i);
kick[i]:= false;
end;
end;