kingdoms_game/mods/kingdoms/chat.lua

-- Register "overlord" (kingdom-creater/modifier) priv
minetest.register_privilege("overlord", {
   description = "Can create / modifiy kingdoms",
   give_to_singleplayer = false
})

-- Admin kingdom commands
ChatCmdBuilder.new("kingdoms_admin", function(cmd)
   -- Add new kingdom
   cmd:sub("add :name:word", function(name, kingdom_name)
      return kingdoms.add_kingdom(kingdom_name, name)
   end)
   -- Add new kingdom with specified owner
   cmd:sub("add :name:word :king:word", function(_, kingdom_name, king)
      return kingdoms.add_kingdom(kingdom_name, king)
   end)
   -- Remove kingdom
   cmd:sub("remove :name:word", function(_, kingdom_name)
      return kingdoms.remove_kingdom(kingdom_name)
   end)
   -- Add player to kingdom
   cmd:sub("join :victim:word :kingdom:word", function(_, victim, kingdom)
      return kingdoms.add_player_to_kingdom(kingdom, victim)
   end)
   -- Remove player from kingdom
   cmd:sub("kick :victim:word", function(_, victim, _)
      return kingdoms.remove_player_from_kingdom(victim)
   end)
   -- Set player rank in kingdom
   cmd:sub("set_rank :victim:word :rank:word", function(_, victim, rank)
      return kingdoms.set_player_rank(victim, rank)
   end)
   -- Add rank to kingdom
   cmd:sub("add_rank :kingdom:word :rank:word", function(_, kingdom, rank)
      return kingdoms.add_rank(kingdom, rank)
   end)
   -- Add rank to kingdom with specified privs
   cmd:sub("add_rank :kingdom:word :rank:word :privs:text", function(_, kingdom, rank, privs)
      return kingdoms.add_rank(kingdom, rank, kingdoms.helpers.split_into_keys(privs))
   end)
   -- Change privs of rank
   cmd:sub("set_rank_privs :kingdom:word :rank:word :privs:text", function(_, kingdom, rank, privs)
      return kingdoms.set_rank_privs(kingdom, rank, kingdoms.helpers.split_into_keys(privs))
   end)
   -- Set rank as default rank (given to new recruits)
   cmd:sub("set_default_rank :kingdom:word :rank:word", function(_, kingdom, rank)
      return kingdoms.set_default_rank(kingdom, rank)
   end)
   -- Remove rank
   cmd:sub("remove_rank :kingdom:word :rank:word", function(_, kingdom, rank)
      return kingdoms.remove_rank(kingdom, rank)
   end)
   -- Toggle restriced setting (restricted = someone has to accept player request)
   cmd:sub("toggle_restricted :kingdom:word", function(_, kingdom)
      return kingdoms.toggle_restricted(kingdom)
   end)
   -- Set kingdom color
   cmd:sub("set_color :kingdom:word :color:word", function(_, kingdom, color)
      return kingdoms.set_color(kingdom, color)
   end)
end, {
   description = "Manage kingdoms (admins only)",
   privs = {overlord = true}
})

-- Player kingdoms comannds
ChatCmdBuilder.new("kingdoms", function(cmd)
   -- List kingdoms
   cmd:sub("list", function(_)
      local l = ""
      for n,k in pairs(kingdoms.kingdoms) do
         local mNum = kingdoms.helpers.count_table(k.members)
         l = l .. n .. ": " .. tostring(mNum) .. " member(s)\n"
      end
      return true, l
   end)
   -- Get info on kingdom
   cmd:sub("info kingdom :name:word", function(_, kingdom)
      local k = kingdoms.kingdoms[kingdom]
      -- Check if kingdom is valid
      if k == nil then
         return false, "Invalid kingdom " .. kingdom
      end
      -- Get info
      local info = "-- Kingdom " .. kingdom .. " --\n"
      -- Get members
      local numMembers = kingdoms.helpers.count_table(k.members)
      info = info .. tostring(numMembers) .. " Members: " .. kingdoms.helpers.keys_to_str(k.members) .. "\n"
      -- Get ranks
      local numRanks = kingdoms.helpers.count_table(k.ranks)
      info = info .. tostring(numRanks) .. " Ranks: " .. kingdoms.helpers.keys_to_str(k.ranks) .. "\n"
      info = info .. "Default Rank: " .. k.default_rank .. "\n"
      -- Get other info
      info = info .. "Restricted: " .. (k.restricted and "Yes" or "No") .. "\n"
      info = info .. "Color: " .. k.color
      return true, info
   end)
   -- Get info on players
   cmd:sub("info player :name:word", function(_, pname)
      local m = kingdoms.members[pname]
      -- Check if player is in a kingdom
      if m == nil then
         return false, "Player " .. pname .. " is not in a kingdom"
      end
      -- Get info
      local info = "-- Player " .. pname .. " --\n"
      info = info .. "Kingdom: " .. m.kingdom .. "\n"
      info = info .. "Rank: " .. m.rank .. "\n"
      return true, info
   end)
   -- Accept member into kingdom
   cmd:sub("accept :player:word", function(name, victim)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      local k = kingdoms.members[name].kingdom
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "recruiter") == false then
         return false, "You are not a recruiter"
      end
      -- Check if victim sent a request
      if kingdoms.pending[victim] ~= k then
         return false, "Player " .. victim .. " did not send a join request"
      end
      -- Join
      kingdoms.pending[victim] = nil
      kingdoms.helpers.save()
      return kingdoms.add_player_to_kingdom(victim, k)
   end)
   -- Apply to / join kingdom
   cmd:sub("join :kingdom:word", function(name, kingdom)
      -- Check if player is already in a kingdom
      if kingdoms.members[name] ~= nil then
         return false, "You are already in a kingdom"
      end
      -- Check if kingdom exists
      if kingdoms.kingdoms[kingdom] == nil then
         return false, "The kingdom " .. kingdom .. " does not exist"
      end
      -- Join or send request
      if kingdoms.kingdoms[kingdom].restricted then
         kingdoms.pending[name] = kingdom
         kingdoms.helpers.save()
         return true, "Your request has been sent to the kingdom " .. kingdom
      else
         return kingdoms.add_player_to_kingdom(kingdom, name)
      end
   end)
   -- Leave kingdom
   cmd:sub("leave", function(name)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Leave
      return kingdoms.remove_player_from_kingdom(name)
   end)
   -- Kick member
   cmd:sub("kick :player:word", function(name, victim)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if victim is in a kingdom
      if kingdoms.members[victim] == nil then
         return false, victim .. " is not in a kingdom"
      end
      -- Check if victim is in player's kingdom
      if kingdoms.members[victim].kingdom ~= kingdoms.members[name].kingdom then
         return false, victim .. " is not in your kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "recruiter") == false then
         return false, "You are not a recruiter"
      end
      -- Kick
      return kingdoms.remove_player_from_kingdom(victim)
   end)
   -- Set player rank in kingdom
   cmd:sub("set_rank :victim:word :rank:word", function(name, victim, rank)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if victim is in a kingdom
      if kingdoms.members[victim] == nil then
         return false, victim .. " is not in a kingdom"
      end
      -- Check if victim is in player's kingdom
      if kingdoms.members[victim].kingdom ~= kingdoms.members[name].kingdom then
         return false, victim .. " is not in your kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "rank_master") == false then
         return false, "You are not a rank master"
      end
      -- Set player's rank
      return kingdoms.set_player_rank(victim, rank)
   end)
   -- Add rank to kingdom
   cmd:sub("add_rank :rank:word", function(name, rank)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "rank_master") == false then
         return false, "You are not a rank master"
      end
      -- Add rank
      return kingdoms.add_rank(kingdoms.members[name].kingdom, rank)
   end)
   -- Add rank to kingdom with specified privs
   cmd:sub("add_rank :rank:word :privs:text", function(name, rank, privs)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "rank_master") == false then
         return false, "You are not a rank master"
      end
      -- Add rank
      return kingdoms.add_rank(kingdoms.members[name].kingdom, rank, kingdoms.helpers.split_into_keys(privs))
   end)
   -- Change privs of rank
   cmd:sub("set_rank_privs :rank:word :privs:text", function(name, rank, privs)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "rank_master") == false then
         return false, "You are not a rank master"
      end
      -- Change privs
      return kingdoms.set_rank_privs(kingdoms.members[name].kingdom, rank, kingdoms.helpers.split_into_keys(privs))
   end)
   -- Set rank as default rank (given to new recruits)
   cmd:sub("set_default_rank :rank:word", function(name, rank)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "rank_master") == false then
         return false, "You are not a rank master"
      end
      -- Set rank as default
      return kingdoms.set_default_rank(kingdoms.members[name].kingdom, rank)
   end)
   -- Remove rank
   cmd:sub("remove_rank :rank:word", function(name, rank)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "rank_master") == false then
         return false, "You are not a rank master"
      end
      -- Remove rank
      return kingdoms.remove_rank(kingdoms.members[name].kingdom, rank)
   end)
   -- Toggle restriced setting (restricted = someone has to accept player request)
   cmd:sub("toggle_restricted", function(name)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "recruiter") == false then
         return false, "You are not a recruiter"
      end
      -- Toggle
      return kingdoms.toggle_restricted(kingdoms.members[name].kingdom)
   end)
   -- Set team color
   cmd:sub("set_color :color:word", function(name, color)
      -- Check if player is in a kingdom
      if kingdoms.members[name] == nil then
         return false, "You are not in a kingdom"
      end
      -- Check if player has necessary privs
      if kingdoms.player_has_priv(name, "admin") == false then
         return false, "You are not a kingdom administrator"
      end
      -- Check if color is valid
      if kingdoms.colors[color] == nil then
         return false, "Invalid color.  Valid colors are: " .. kingdoms.helpers.keys_to_str(kingdoms.colors)
      end
      -- Set color
      return kingdoms.set_color(kingdoms.members[name].kingdom, color)
   end)
end)