function OnPlayerDamage(Victim,Shooter: Byte;Damage: Integer): integer;
var dmg, rand, time: integer;
begin
	time := strtoint(FormatDate('ss'))+10;
	
	if kills[Shooter] >= 0 then begin		
		rand := Random(0,1);
		
		case rand of 
			0: begin 
				DrawText(Shooter, 'Double Damage!!!',2000,RGB(255,0,0),0.20,40,240);
				dmg := (Damage*50)/100;
			end;
			1: begin
				DrawText(Shooter, 'Vampirism!!!',2000,RGB(255,0,0),0.20,40,240);
				dmg := (Damage*10)/100;
				DoDamage(Shooter, -dmg);
			end;
		end;

		SayToPlayer(Shooter, 'Output dmg: ' + inttostr(Damage) + ' + ' + inttostr(dmg) + ' = ' + inttostr(Damage+dmg));
		Damage := dmg+Damage;
	end;
	result := Damage;
end;