this should give 100 extra karma on every round
function KARMA.RoundIncrement()
   local healbonus = config.roundheal:GetFloat()
   local cleanbonus = config.clean:GetFloat()
   for _, ply in pairs(player.GetAll()) do
      local bonus = healbonus + (ply:GetCleanRound() and cleanbonus or 0)      
      KARMA.GiveReward(ply, bonus)
	  if ply:IsUserGroup("Donator") then
		KARMA.GiveReward(ply, 100)
	  end
      if IsDebug() then
         print(ply, "gets roundincr", incr)
      end
   end
   -- player's CleanRound state will be reset by the ply class
end
This goes into karma.lua and over-rights the current function.