Added Rank Control and preset ranks

locale/ExpGaming-Core/ExpGaming - Rank Control.lua

@@ -19,5 +19,104 @@ local credits = {{
 local function credit_loop(reg) for _,cred in pairs(reg) do table.insert(credits,cred) end end
 --Please Only Edit Below This Line-----------------------------------------------------------
 
+local function get_rank(player)
+	if player then
+		for _,rank in pairs(global.ranks) do
+			if player.permission_group == game.permissions.get_group(rank.name) then return rank end
+		end
+		return string.to_rank('Guest')
+	end
+end
+
+local function string.to_rank(string)
+	if type(string) == 'string' then
+		local Foundranks={}
+		for _,rank in pairs(global.ranks) do
+			if rank.name:lower() == string:lower() then return rank end
+			if rank.name:lower():find(string:lower()) then table.insert(Foundranks,rank) end
+		end
+		if #Foundranks == 1 then return Foundranks[1] end
+	end
+end
+
+local function rank_print(msg, rank, inv)
+	local rank = string.to_rank(rank) or string.to_rank('Mod') -- default mod or higher
+	local inv = inv or false
+	for _, player in pairs(game.players) do 
+		rankPower = get_rank(player).power
+		if inv then 
+			if rankPower >= rank.power then 
+				player.print(('[Everyone]: '..msg)) 
+			end
+		else
+			if rankPower <= rank.power then
+				if rank.shortHand ~= '' then player.print(('['..(rank.shortHand)..']: '..msg)) else player.print(('[Everyone]: '..msg)) end 
+			end
+		end
+	end
+end
+
+local function give_rank(player,rank,byPlayer)
+	local byPlayer = byPlayer or 'system'
+	local rank = string.to_rank(rank) or rank or string.to_rank('Guest')
+	local old_rank = get_rank(player)
+	local message = 'demoted'
+	if rank.power <= old_rank.power then message = 'promoted' end
+	if byPlayer.name then 
+		rank_print(player.name..' was '..message..' to '..rank.name..' by '..byPlayer.name,'Guest')
+	else
+		rank_print(player.name..' was '..message..' to '..rank.name..' by <system>','Guest')
+	end
+	player.permission_group = game.permissions.get_group(rank.name)
+	if player.tag:find('-') then player.print('Your Custom Tag Was Reset Due To A Rank Change') end
+	player.tag = get_rank(player).tag
+	drawToolbar(player)
+	drawPlayerList()
+	if old_rank.name ~= 'Jail' then global.old_ranks[player.index]=old_rank.name end
+end
+
+local function revert_rank(player,byPlayer)
+	local rank = string.to_rank(global.old_ranks[player.index])
+	give_rank(player,rank,byPlayer)
+end
+
+local function find_new_rank(player)
+	local function loop_preset_rank(players)
+		for _,p in pairs(players) do
+			if player.name:lower() == p:lower() then return string.to_rank(rank) end
+		end
+	end
+	local current_rank = get_rank(player)
+	local old_rank = get_rank(player)
+	local possible_ranks = {current_rank}
+	--loops though preset ranks
+	for rank,players in pairs(preset_ranks) do
+		local rank = loop_preset_rank(players)
+		if rank then table.insert(possible_ranks,string.to_rank(rank)) break end
+	end
+	--loops though rank times
+	for _,rank in pairs(global.ranks) do 
+		if rank.time and ticktominutes(player.online_time) >= trank.time then table.insert(possible_ranks,string.to_rank(rank)) end
+	end
+	--loops though possible ranks
+	if current_rank.name ~='Jail' then 
+		local highest_rank = possible_ranks[1]
+		for _,rank in pairs(possible_ranks) do
+			if rank.power > highest_rank.power then highest_rank = rank end
+		end
+		--gives player new rank if availble
+		if highest_rank.name == 'Guest' then
+			player.permission_group=game.permissions.get_group('Guest')
+		else
+			give_rank(player,highest_rank)
+		end
+	end
+	--lose ends
+	if get_rank(player).power <= 3 and not player.admin then rank_print(player.name..' needs to be promoted.') end
+	if old_rank.name ~= get_rank(player).name then global.old_ranks[player.index]=old_rank.name end
+end
+
+Event.register(-1,function() global.old_ranks = {} end)
+Event.register('on_player_joined_game',function(event) find_new_rank(game.players[game.players[event.player_index]]) end)
 --Please Only Edit Above This Line-----------------------------------------------------------
 return credits