Add hard limit even for admin

Author: MoNTE48

internal.lua

@@ -252,6 +252,16 @@ function areas:getChildren(id)
 	return children
 end
 
+function areas:getAreasCount(name)
+	local count = 0
+	for _, area in pairs(self.areas) do
+		if area.owner == name then
+			count = count + 1
+		end
+	end
+	return count
+end
+
 -- Checks if the user has sufficient privileges.
 -- If the player is not a administrator it also checks
 -- if the area intersects other areas that they do not own.
@@ -260,6 +270,10 @@ end
 function areas:canPlayerAddArea(pos1, pos2, name)
 	local privs = minetest.get_player_privs(name)
 	if privs.areas then
+		if areas:getAreasCount(name) >= self.config.self_max_areas_per_player then
+			return false, S("You have reached the limit of areas.")
+		end
+
 		return true
 	end
 
@@ -282,16 +296,10 @@ function areas:canPlayerAddArea(pos1, pos2, name)
 	end
 
 	-- Check number of areas the user has and make sure it not above the max
-	local count = 0
-	for _, area in pairs(self.areas) do
-		if area.owner == name then
-			count = count + 1
-		end
-	end
 	local max_areas = privs.areas_high_limit and
 			self.config.self_protection_max_areas_high or
 			self.config.self_protection_max_areas
-	if count >= max_areas then
+	if areas:getAreasCount(name) >= max_areas then
 		return false, S("You have reached the maximum amount of"
 				.." areas that you are allowed to protect.")
 	end
@@ -310,6 +318,10 @@ end
 function areas:canPlayerAddOwner(pos1, pos2, name)
 	local privs = minetest.get_player_privs(name)
 	if privs.areas then
+		if areas:getAreasCount(name) >= self.config.self_max_areas_per_player then
+			return false, S("You have reached the limit of areas.")
+		end
+
 		return true
 	end
 
@@ -324,16 +336,10 @@ function areas:canPlayerAddOwner(pos1, pos2, name)
 	end
 
 	-- Check number of areas the user has and make sure it not above the max
-	local count = 0
-	for _, area in pairs(self.areas) do
-		if area.owner == name then
-			count = count + 1
-		end
-	end
 	local max_areas = privs.areas_high_limit and
 			self.config.self_protection_max_areas_high or
 			self.config.self_protection_max_areas
-	if count >= max_areas then
+	if areas:getAreasCount(name) >= max_areas then
 		return false, S("Target player has reached the maximum amount of"
 				.. " areas they are allowed to protect.")
 	end

locale/areas.ar.tr

@@ -2,6 +2,7 @@
 Can administer areas=يمكن إدارة المناطق
 Can protect more, bigger areas=يمكن حماية مناطق أكبر وأكثر
 Can protect areas=يمكن حماية المناطق
+You have reached the limit of areas.=لقد وصلت إلى الحد الأقصى لعدد المناطق.
 
 ### chatcommands.lua ###
 

locale/areas.bg.tr

@@ -2,6 +2,7 @@
 Can administer areas=Може да администрира области
 Can protect more, bigger areas=Може да защитава повече и по-големи площи
 Can protect areas=Може да защитава области
+You have reached the limit of areas.=Достигнахте максималния брой зони.
 
 ### chatcommands.lua ###
 

locale/areas.cs.tr

@@ -2,6 +2,7 @@
 Can administer areas=Může spravovat oblasti
 Can protect more, bigger areas=Může chránit více větších oblastí
 Can protect areas=Může chránit oblasti
+You have reached the limit of areas.=Dosáhli jste limitu oblastí.
 
 ### chatcommands.lua ###
 

locale/areas.da.tr

@@ -2,6 +2,7 @@
 Can administer areas=Kan administrere områder
 Can protect more, bigger areas=Kan beskytte flere og større områder
 Can protect areas=Kan beskytte områder
+You have reached the limit of areas.=Du har nået grænsen for områder.
 
 ### chatcommands.lua ###
 

locale/areas.de.tr

@@ -2,6 +2,7 @@
 Can administer areas=Kann Bereiche verwalten
 Can protect more, bigger areas=Kann mehr und größere Bereiche schützen
 Can protect areas=Kann Bereiche schützen
+You have reached the limit of areas.=Du hast die maximale Anzahl an Bereichen erreicht.
 
 ### chatcommands.lua ###
 

locale/areas.el.tr

@@ -2,6 +2,7 @@
 Can administer areas=Μπορεί να διαχειριστεί περιοχές
 Can protect more, bigger areas=Μπορεί να προστατεύσει περισσότερες, μεγαλύτερες περιοχές
 Can protect areas=Μπορεί να προστατεύσει περιοχές
+You have reached the limit of areas.=Έχετε φτάσει το όριο περιοχών.
 
 ### chatcommands.lua ###
 

locale/areas.es.tr

@@ -2,6 +2,7 @@
 Can administer areas=Puede administrar zonas
 Can protect more, bigger areas=Puede proteger más zonas y de mayor tamaño
 Can protect areas=Puede proteger zonas
+You have reached the limit of areas.=Alcanzaste el límite de áreas.
 
 ### chatcommands.lua ###
 

locale/areas.et.tr

@@ -2,6 +2,7 @@
 Can administer areas=Saab hallata valdkondi
 Can protect more, bigger areas=Saab kaitsta rohkem ja suuremaid alasid
 Can protect areas=Võib kaitsta alasid
+You have reached the limit of areas.=Oled jõudnud alade limiidini.
 
 ### chatcommands.lua ###
 

locale/areas.fi.tr

@@ -2,6 +2,7 @@
 Can administer areas=Voi hallinnoida alueita
 Can protect more, bigger areas=Voidaan suojata useampia ja suurempia alueita
 Can protect areas=Voi suojella alueita
+You have reached the limit of areas.=Olet saavuttanut alueiden enimmäismäärän.
 
 ### chatcommands.lua ###