type tCombo = record
   H,T: integer;
end;

const
cred=$ff0000;
cgreen=$2aff00;
cyellow=$fcff00;
cwhite=$FFFFFFFF;

var
Combo: array [1..32] of tCombo;
i: integer;

Procedure ActivateServer();
begin
   for i:=1 to 32 do begin
   Combo[i].H:=0;
   Combo[i].T:=0;
   end;
end;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
  inc(Combo[Killer].H, 1);
  Combo[Killer].T:= 4;
   case Combo[Killer].H of
	2: WriteConsole(0,idtoname(killer)+'- DOUBLE KILL!',cgreen);
	3: WriteConsole(0,idtoname(killer)+'- AWESOME! TRIPLE KILL!!',cyellow);
    4: WriteConsole(0,idtoname(killer)+'- HAVE MERCY!! MU-U-ULTI KILL!!',cred);
    5: WriteConsole(0,idtoname(killer)+'- AWW! H4KZ0R!!! MULTI KILL x2!!',cred);
    6: WriteConsole(0,idtoname(killer)+'- LOL!!! SERIAL KILLER!!',cred);
    7: WriteConsole(0,idtoname(killer)+'- INSANE KILL!!! KICK HIM!!!',cred);
    8: WriteConsole(0,'Gimode kill '+idtoname(killer),cred);
    9: WriteConsole(0,'Masta kill '+idtoname(killer),cred);
    10: WriteConsole(0,'Cheater! '+idtoname(killer),cred);
   end;
end;

procedure AppOnIdle(Ticks: integer);
begin
  for i:= 1 to 32 do if Combo[i].T > 0 then begin
    dec(Combo[i].T, 1);
  end else if Combo[i].H > 0 then Combo[i].H:= 0;
end;

procedure OnJoinTeam(ID, Team: byte);
begin
   Combo[ID].H:=0;
   Combo[ID].T:=0;
end;