neinwhal/party
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
party/init.lua
fishyWET 849d62a09d
fix invite crashing when inviting no one
2017-11-18 08:03:29 +08:00

1122 lines
46 KiB
Lua
Raw Permalink Blame History

party = {}
mod_storage = minetest.get_mod_storage()
-- =======================
-- === CUSTOM SETTINGS ===
-- =======================
PARTY_TAG_COLOUR = "lightgrey" -- default colour of party tags
PARTY_PARTY_NAME_LENGTH = 8 -- max length for party name/ tag
PARTY_PARTY_JOIN_MODE = "" -- default join mode for parties <<< empty(open)/ active / request / private >>>
PARTY_SQUAD_NAME_LENGTH = 8 -- max length for squad name/ tag
PARTY_SQUAD_JOIN_MODE = "" -- default join mode for squads <<< empty(open) / private >>>
PARTY_IRC_HIDE = "false" -- if "true" and irc mod is active, party and squad messages are NOT sent to the irc channel. NOTE if true, comment out these few lines; https://github.com/minetest-mods/irc/blob/master/callback.lua#L22-L35 on the irc mod, else there will be double messages.
-- =======================
-- ===== PLAYER LIST =====
-- =======================
-- add new players to the mod storage playerlist - thanks to Amaz
minetest.register_on_newplayer(function(newplayer)
local player_list_l = mod_storage:get_string("playerlist")
if player_list_l == "" then
player_list_t = {}
else player_list_t = minetest.deserialize(player_list_l)
end
player_list_t[#player_list_t+1] = newplayer:get_player_name()
local player_list_s = minetest.serialize(player_list_t)
mod_storage:set_string("playerlist", player_list_s)
end)
-- check if old players are in the playerlist, if not, add them to the list
minetest.register_on_joinplayer(function(player)
local player_list_l = mod_storage:get_string("playerlist")
local name = player:get_player_name()
if player_list_l == "" then
player_list_lt = {}
else player_list_lt = minetest.deserialize(player_list_l)
end
for _,playernames in ipairs(player_list_lt) do
if name == playernames then
return
end
end
if player_list_l == "" then
player_list_e = {}
else player_list_e = minetest.deserialize(player_list_l)
end
player_list_e[#player_list_e+1] = player:get_player_name()
local player_list_s = minetest.serialize(player_list_e)
mod_storage:set_string("playerlist", player_list_s)
end)
-- =======================
-- ======= HELPERS =======
-- =======================
-- group notice
party.send_notice_all = function(name, message)
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
if mod_storage:get_string(name.."_party") == mod_storage:get_string(names.."_party") then
minetest.chat_send_player(names, minetest.colorize("limegreen", "[Party] = PARTY-NOTICE = ")..""..message)
end
end
end
-- private notice
party.send_notice = function(name, message)
minetest.chat_send_player(name, minetest.colorize("limegreen", "[Party] = NOTICE = ")..""..message)
end
-- chat spy for admins
minetest.register_privilege("pspy", "")
party.chat_spy = function(name, message)
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
if minetest.check_player_privs(names, {pspy=true}) then
local cparty = mod_storage:get_string(name.."_party")
local csquad = mod_storage:get_string(name.."_squad")
if cparty ~= "" then
if cparty ~= mod_storage:get_string(names.."_party") then
minetest.chat_send_player(names, minetest.colorize("yellow", "[SPY]").." [PARTY:"..mod_storage:get_string(cparty.."_leader").."] <"..name.."> "..message)
elseif cparty == mod_storage:get_string(names.."_party") and csquad ~= mod_storage:get_string(names.."_squad") then
minetest.chat_send_player(names, minetest.colorize("yellow", "[SPY]").." [PARTY:"..mod_storage:get_string(cparty.."_leader").."] [SQUAD:"..csquad.."] <"..name.."> "..message)
end
end
end
end
end
-- check if player is in a party [1], officer or leader [2], leader [3]
-- if not then return true
party.check = function(name, level)
local player = minetest.get_player_by_name(name)
local cparty = mod_storage:get_string(name.."_party")
if level == 1 and cparty == "" then
party.send_notice(name, "You are not in a party!")
return true
elseif level == 2 then
if cparty == "" then
party.send_notice(name, "You are not in a party!")
return true
elseif cparty ~= "" then
local cparty_l = mod_storage:get_string(name.."_leader")
local cparty_o = mod_storage:get_string(name.."_officer")
if cparty_o == "" and cparty_l == "" then
party.send_notice(name, "Not authorized to use this command! You are neither the party leader nor an officer of this party!")
return true
end
end
elseif level == 3 then
local cparty_l = mod_storage:get_string(name.."_leader")
if cparty == "" then
party.send_notice(name, "You are not in a party!")
return true
elseif cparty ~= "" and cparty_l == "" then
party.send_notice(name, "Not authorized to use this command! You are not the party leader!")
return true
end
else
return false
end
end
-- check if party name exists
-- if it exists, return true
party.check_tag = function(name, tag)
local player_list = minetest.deserialize(mod_storage:get_string("playerlist"))
for _,playernames in ipairs(player_list) do
if tag == mod_storage:get_string(playernames.."_leader") then
return true
end
end
end
-- =======================
-- ====== LOAD FILES =====
-- =======================
dofile(minetest.get_modpath("party").."/squad.lua")
-- =======================
-- ===== MORE HELPERS ====
-- =======================
party.join = function(name, partyname)
local cparty_l = mod_storage:get_string(partyname.."_leader")
local player = minetest.get_player_by_name(name)
mod_storage:set_string(name.."_party", partyname)
player:set_attribute("partyinvite", nil)
player:set_attribute("partypending", nil)
local tcolour = mod_storage:get_string(partyname.."_colour")
if tcolour == "" then
tcolour = PARTY_TAG_COLOUR
end
player:set_nametag_attributes({text = minetest.colorize(tcolour, "["..cparty_l.."]").." "..name})
party.send_notice_all(name, name.." has joined "..partyname.."'s party ["..cparty_l.."].")
player:set_attribute("partychat", "party")
end
party.leave = function(name)
local player = minetest.get_player_by_name(name)
local csquad = mod_storage:get_string(name.."_squad")
if csquad ~= "" then
squad.leave(name)
end
mod_storage:set_string(name.."_party", nil)
mod_storage:set_string(name.."_officer", nil)
mod_storage:set_string(name.."_leader", nil)
mod_storage:set_string(name.."_lock", nil)
mod_storage:set_string(name.."_title", nil)
mod_storage:set_string(name.."_home", nil)
mod_storage:set_string(name.."_colour", nil)
player:set_nametag_attributes({text = name})
player:set_attribute("partychat", "main")
end
minetest.register_chatcommand("p", {
description = "Create and join a party. For help, use /p help",
privs = {shout=true},
func = function(name, param)
local paramlist = {}
local index = 1
for param_split in param:gmatch("%S+") do
paramlist[index] = param_split
index = index + 1
end
local param1 = paramlist[1]
local param2 = paramlist[2]
local param3 = paramlist[3]
local player = minetest.get_player_by_name(name)
local cparty = mod_storage:get_string(name.."_party")
local cparty_o = mod_storage:get_string(name.."_officer")
local player_list = minetest.deserialize(mod_storage:get_string("playerlist"))
if param1 == "help" then
party.send_notice(name, minetest.colorize("cyan", "@<message>").." --- Send message to global chat (if you are in a party).")
party.send_notice(name, minetest.colorize("cyan", "/p").." --- List your current party.")
party.send_notice(name, minetest.colorize("cyan", "/p list").." --- List online members of your party.")
party.send_notice(name, minetest.colorize("cyan", "/p list all").." --- List all members of your party.")
party.send_notice(name, minetest.colorize("cyan", "/p list <playername>").." --- List party and squad of a player.")
party.send_notice(name, minetest.colorize("cyan", "/p partylist").." --- Gives full list of parties created.")
party.send_notice(name, minetest.colorize("cyan", "/p create <partyname>").." --- Create a party.")
party.send_notice(name, minetest.colorize("cyan", "/p join <partyname>").." --- Join a party.")
party.send_notice(name, minetest.colorize("cyan", "/p leave").." --- Leave your party.")
party.send_notice(name, minetest.colorize("cyan", "/p home").." --- Teleport to your party home (if your leader has one set).")
party.send_notice(name, minetest.colorize("cyan", "/p chat <main/party/squad>").." --- Switch your chat input. Leave empty to get your current chat input.")
party.send_notice(name, minetest.colorize("cyan", "/p invite <yes/no>").." --- Accept/ reject a party invite.")
party.send_notice(name, minetest.colorize("cyan", "/p noinvite").." --- Toggle noinvites, if on, reject all parties invites automatically.")
party.send_notice(name, minetest.colorize("cyan", "/p pvp").." --- Toggle friendly fire, if two players have friendly fire enabled even though they are in the same party, they can fight.")
party.send_notice(name, " ===== PARTY OFFICERS/ PARTY LEADER COMMANDS: ===== ")
party.send_notice(name, minetest.colorize("cyan", "/p kick <playername>").." --- Kick a player out of your party.")
party.send_notice(name, minetest.colorize("cyan", "/p invite <playername>").." --- Invite a player to join your party.")
party.send_notice(name, minetest.colorize("cyan", "/p <accept/reject> <playername>").." --- Accept/ reject a join request (if joining method is set to [Request Mode]).")
party.send_notice(name, " ===== PARTY LEADER-ONLY COMMANDS: ===== ")
party.send_notice(name, minetest.colorize("cyan", "/p disband").." --- Disband your party.")
party.send_notice(name, minetest.colorize("cyan", "/p rename <new_partyname>").." --- Rename your party.")
party.send_notice(name, minetest.colorize("cyan", "/p sethome").." --- Set your party home.")
party.send_notice(name, minetest.colorize("cyan", "/p sethome remove").." --- Remove your party home.")
party.send_notice(name, minetest.colorize("cyan", "/p colour <colour>").." --- Set the colour of your party tag.")
party.send_notice(name, minetest.colorize("cyan", "/p officer <playername>").." --- Toogle a player's officer position. Officers can kick & invite.")
party.send_notice(name, minetest.colorize("cyan", "/p lock <open/active/request/private>").." --- Toggle joining method for your party.")
party.send_notice(name, minetest.colorize("cyan", "/p title <playername> <title>").." --- Adds a title to a player in party chat.")
party.send_notice(name, " ===== ADMIN COMMANDS: ===== ")
party.send_notice(name, minetest.colorize("cyan", "/p forcedisband <partyname>").." --- Forcefully disband a party (requires 'ban' privilege).")
party.send_notice(name, minetest.colorize("cyan", "/p forcejoin <partyname>").." --- Forcefully let yourself in a party regardless of its lock mode (requires 'ban' privilege).")
party.send_notice(name, minetest.colorize("cyan", "/p forcekick <playername>").." --- Forcefully kick a player from a party (requires 'kick' privilege).")
-- TODO
-- formspecs equivalents
-- party.send_notice(name, "/p ally/enemy/neutral <partyname> --- Toggle diplomacy status with another party. Allied parties will have no friendly fire and there will be ally chat.")
-- party.send_notice(name, "/p ally list --- Ally list.")
-- party.send_notice(name, "/p enemy list --- Enemies list.")
-- party.send_notice(name, "/p motd --- Adds a motd. Player receive this message when they join the game / party. ")
-- =======================
-- === GENERAL COMMANDS ==
-- =======================
elseif param1 == nil then
if party.check(name, 1) == true then
return
end
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "You are currently in "..cparty.."'s party ["..cparty_l.."].")
elseif param1 == "list" then
if param2 == "all" then
if party.check(name, 1) == true then
return
end
local listnames = ""
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "Full member list of "..cparty.."'s party ["..cparty_l.."]:")
for _,playernames in ipairs(player_list) do
if cparty == mod_storage:get_string(playernames.."_party") then
listnames = listnames .. playernames .. ", "
end
end
party.send_notice(name, listnames)
elseif param2 == "officer" then
if party.check(name, 1) == true then
return
end
local listnames = ""
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "List of "..cparty.."'s party ["..cparty_l.."] officers:")
for _,playernames in ipairs(player_list) do
if cparty == mod_storage:get_string(playernames.."_party") then
if mod_storage:get_string(playernames.."_officer") ~= "" or mod_storage:get_string(playernames.."_leader") ~= "" then
listnames = listnames .. playernames .. ", "
end
end
end
party.send_notice(name, listnames)
elseif param2 == nil then
if party.check(name, 1) == true then
return
end
local listnames = ""
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "Online member list of "..cparty.."'s party ["..cparty_l.."]:")
for _,players in ipairs(minetest.get_connected_players()) do
local playernames = players:get_player_name()
if cparty == mod_storage:get_string(playernames.."_party") then
listnames = listnames .. playernames .. ", "
end
end
party.send_notice(name, listnames)
elseif param2 ~= nil then
if minetest.player_exists(param2) then
local cparty = mod_storage:get_string(param2.."_party")
if cparty ~= "" and cparty ~= "@" and cparty ~= "#" and cparty ~= "+" and cparty ~= "=" then
local csquad = mod_storage:get_string(param2.."_squad")
local cparty_l = mod_storage:get_string(cparty.."_leader")
if param2 ~= cparty and csquad == "" then
party.send_notice(name, param2.." is currently in "..cparty.."'s party ["..cparty_l.."].")
elseif param2 ~= cparty and csquad ~= "" then
party.send_notice(name, param2.." is currently in "..cparty.."'s party ["..cparty_l.."] and under the ["..csquad.."] squad.")
elseif param2 == cparty and csquad == "" then
party.send_notice(name, param2.." is currently the leader of "..param2.."'s party ["..cparty_l.."].")
elseif param2 == cparty and csquad ~= "" then
party.send_notice(name, param2.." is currently the leader of "..param2.."'s party ["..cparty_l.."] and under the ["..csquad.."] squad.")
end
else party.send_notice(name, param2.." is currently not in any party.")
end
else party.send_notice(name, "Player does not exist!")
end
end
elseif param1 == "partylist" then
local player_list = minetest.deserialize(mod_storage:get_string("playerlist"))
local partylist = ""
for _,playernames in ipairs(player_list) do
local cparty_l = mod_storage:get_string(playernames.."_leader")
if cparty_l ~= "" then
partylist = partylist .. cparty_l .. ", "
end
end
party.send_notice(name, "Full list of parties: ")
party.send_notice(name, partylist)
elseif param1 == "leave" then
if party.check(name, 1) == true then
return
end
local cparty_l = mod_storage:get_string(cparty.."_leader")
if mod_storage:get_string(name.."_leader") == "" then
party.send_notice_all(name, name.." left "..cparty.."'s party ["..cparty_l.."].")
party.leave(name)
else party.send_notice(name, "You cannot leave your own party! Use /p disband instead.")
end
elseif param1 == "create" and param2 ~= nil then
if string.len(param2) > PARTY_PARTY_NAME_LENGTH then
party.send_notice(name, "Nametag is too long! "..PARTY_PARTY_NAME_LENGTH.." is the maximum amount of characters")
return
end
-- check if tag exists
if party.check_tag(name, param2) == true then
party.send_notice(name, "Party name selected already exists. Please choose another one.")
return
end
if cparty == "" then
mod_storage:set_string(name.."_party", name)
mod_storage:set_string(name.."_leader", param2)
mod_storage:set_string(name.."_lock", PARTY_PARTY_JOIN_MODE)
player:set_attribute("partyinvite", nil)
player:set_attribute("partychat", "party")
local tcolour = mod_storage:get_string(name.."_colour")
if tcolour == "" then
tcolour = PARTY_TAG_COLOUR
end
player:set_nametag_attributes({text = minetest.colorize(tcolour, "["..param2.."]").." "..name})
party.send_notice(name, "You created "..name.."'s party ["..param2.."].")
else
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "You are already in "..cparty.."'s party ["..cparty_l.."].")
end
-- /p join
elseif param1 == "join" and param2 ~= nil then
if cparty ~= "" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "You are already in "..cparty.."'s party ["..cparty_l.."].")
return
end
if party.check_tag(name, param2) == true then
local leadername = ""
for _,playernames in ipairs(player_list) do
if param2 == mod_storage:get_string(playernames.."_leader") then
leadername = leadername .. playernames
end
end
local cparty = leadername
local party_m = mod_storage:get_string(cparty.."_lock")
-- active mode, only allow if leader is active
if party_m == "active" then
if minetest.get_player_by_name(cparty) == nil then
party.send_notice(name, "Party leader is offline, try again when the party leader is online!")
else party.join(name, cparty)
end
-- request mode, sends a request if officer/leader are online
elseif party_m == "request" then
if player:get_attribute("partypending") ~= nil then
party.send_notice(name, "You have already requested to join another party. Only one join request is allowed to prevent spamming.")
party.send_notice(name, "Please rejoin the game if you want to make an different request.")
return
end
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
if cparty == mod_storage:get_string(names.."_party") then
if mod_storage:get_string(names.."_officer") ~= "" or mod_storage:get_string(names.."_leader") ~= "" then
local off_names = players:get_player_name()
party.send_notice(off_names, name.." has requested to join the party. Use '/p accept <playername>' to accept, '/p reject <playername>' to reject.")
end
end
end
party.send_notice(name, "Your request to join "..cparty.."'s party ["..param2.."] has been sent.")
party.send_notice(name, "Pending approval from an officer/leader. If you do not receive a reply soon, it is likely there's no one online to review your request.")
party.send_notice(name, "Please do not leave the game, your join request will be rendered void if you do so.")
player:set_attribute("partypending", cparty)
-- private mode, denies all requests
elseif party_m == "private" then
party.send_notice(name, "Party is private! Public join requests are denied!")
-- public mode, accept all requests
else party.join(name, cparty)
end
else party.send_notice(name, "Party does not exist!")
end
-- /p home
elseif param1 == "home" then
if party.check(name, 1) == true then
return
end
local cparty_home = mod_storage:get_string(cparty.."_home")
if cparty_home ~= "" then
party.send_notice(name, "Teleporting to party home...")
player:set_pos(minetest.deserialize(cparty_home))
else party.send_notice(name, "Party home is not set by leader!")
end
elseif param1 == "chat" then
if party.check(name, 1) == true then
return
end
if (param2 == "main" or param2 == "global") then
player:set_attribute("partychat", "main")
party.send_notice(name, "Chat input set to main chat.")
elseif param2 == "party" then
player:set_attribute("partychat", "party")
party.send_notice(name, "Chat input set to party chat.")
elseif param2 == "squad" then
if mod_storage:get_string(name.."_squad") == "" then
party.send_notice(name, "You are not in a squad!")
return
end
player:set_attribute("partychat", "squad")
party.send_notice(name, "Chat input set to squad chat.")
elseif param2 == nil then
party.send_notice(name, "Current chat input is set to "..player:get_attribute("partychat").." chat.")
end
-- /p noinvite
elseif param1 == "noinvite" then
if cparty == "" then
if player:get_attribute("partynoinvite") == "true" then
player:set_attribute("partynoinvite", nil)
party.send_notice(name, "You have disabled noinvite - You will now receive party invites.")
elseif player:get_attribute("partynoinvite") == nil then
player:set_attribute("partyinvite", nil)
player:set_attribute("partynoinvite", "true")
party.send_notice(name, "You have enabled noinvite - You will now NOT receive party invites.")
end
else party.send_notice(name, "You are already in a party! Invites wouldn't be received when you are in a party!")
end
-- /p pvp
elseif param1 == "pvp" then
if player:get_attribute("partypvp") == "true" then
player:set_attribute("partypvp", nil)
party.send_notice(name, "NO friendly fire is ENABLED.")
elseif player:get_attribute("partypvp") == nil then
player:set_attribute("partypvp", "true")
party.send_notice(name, "Friendly fire is ENABLED.")
end
-- =======================
-- = LEADERSHIP COMMANDS =
-- =======================
-- /p disband
elseif param1 == "disband" then
if party.check(name, 3) == true then
return
end
if cparty == name then
party.send_notice_all(name, name.."'s party ["..mod_storage:get_string(name.."_leader").."] has been disbanded.")
-- remove online players
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
if mod_storage:get_string(names.."_party") == cparty then
party.leave(names)
end
end
-- mark offline players so they would be notified when they login
for _,playernames in ipairs(player_list) do
if minetest.get_player_by_name(playernames) == nil then
if mod_storage:get_string(playernames.."_party") == cparty then
mod_storage:set_string(playernames.."_party", "@")
-- open up the alliance name for taking
mod_storage:set_string(playernames.."_officer", nil)
mod_storage:set_string(playernames.."_leader", nil)
mod_storage:set_string(playernames.."_lock", nil)
mod_storage:set_string(playernames.."_title", nil)
end
end
end
-- remove leader's powers
mod_storage:set_string(name.."_party", nil)
mod_storage:set_string(name.."_leader", nil)
mod_storage:set_string(name.."_lock", nil)
mod_storage:set_string(name.."_colour", nil)
mod_storage:set_string(name.."_title", nil)
mod_storage:set_string(name.."_home", nil)
player:set_nametag_attributes({text = name})
end
elseif param1 == "rename" and param2 ~= nil then
if party.check(name, 3) == true then
return
end
-- check if new name is too long
if string.len(param2) > PARTY_PARTY_NAME_LENGTH then
party.send_notice(name, "Nametag is too long! "..PARTY_PARTY_NAME_LENGTH.." is the maximum amount of characters")
return
end
if party.check_tag(name, param2) == true then
party.send_notice(name, "Party name selected already exists. Please choose another one.")
return
end
-- if not, apply rename
mod_storage:set_string(name.."_leader", param2)
party.send_notice_all(name, name.." renamed the party tag to ["..param2.."].")
-- update online player nametags
local tcolour = mod_storage:get_string(name.."_colour")
if tcolour == "" then
tcolour = PARTY_TAG_COLOUR
end
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
local csquad = mod_storage:get_string(names.."_squad")
if mod_storage:get_string(names.."_party") == cparty and csquad == "" then
players:set_nametag_attributes({text = minetest.colorize(tcolour, "["..param2.."]").." "..names})
elseif mod_storage:get_string(names.."_party") == cparty and csquad ~= "" then
players:set_nametag_attributes({text = minetest.colorize(tcolour, "["..param2.."-"..csquad.."]").." "..names})
end
end
elseif param1 == "colour" and param2 ~= nil then
if party.check(name, 3) == true then
return
end
party.send_notice(name, "Party tag colour is set to "..minetest.colorize(param2, param2)..".")
mod_storage:set_string(name.."_colour", param2)
-- update online player nametags
local cparty_l = mod_storage:get_string(cparty.."_leader")
local tcolour = mod_storage:get_string(cparty.."_colour")
if tcolour == "" then
tcolour = PARTY_TAG_COLOUR
end
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
local csquad = mod_storage:get_string(names.."_squad")
if mod_storage:get_string(names.."_party") == cparty and csquad == "" then
players:set_nametag_attributes({text = minetest.colorize(tcolour, "["..cparty_l.."]").." "..names})
elseif mod_storage:get_string(names.."_party") == cparty and csquad ~= "" then
players:set_nametag_attributes({text = minetest.colorize(tcolour, "["..cparty_l.."-"..csquad.."]").." "..names})
end
end
elseif param1 == "lock" then
if party.check(name, 3) == true then
return
end
local cparty_l = mod_storage:get_string(name.."_leader")
if param2 == "active" then
mod_storage:set_string(name.."_lock", param2)
party.send_notice_all(name, "[Active mode] Public joining (Only if leader is online) is enabled for "..name.."'s party ["..cparty_l.."].")
elseif param2 == "request" then
mod_storage:set_string(name.."_lock", param2)
party.send_notice_all(name, "[Request mode] Join requests is enabled for "..name.."'s party ["..cparty_l.."].")
elseif param2 == "private" then
mod_storage:set_string(name.."_lock", param2)
party.send_notice_all(name, "[Private mode] Public joining is disabled for "..name.."'s party ["..cparty_l.."].")
elseif param2 == "open" then
mod_storage:set_string(name.."_lock", nil)
party.send_notice_all(name, "[Open mode] Public joining is enabled for "..name.."'s party ["..cparty_l.."].")
end
elseif param1 == "sethome" then
if party.check(name, 3) == true then
return
end
if param2 == "remove" then
mod_storage:set_string(cparty.."_home", nil)
party.send_notice(name, "Party home removed!")
else
mod_storage:set_string(cparty.."_home", minetest.serialize(player:get_pos()))
party.send_notice(name, "Party home has been set to "..minetest.serialize(player:get_pos()))
end
-- /p officer
elseif param1 == "officer" and param2 ~= nil then
if party.check(name, 3) == true then
return
end
local cparty_l = mod_storage:get_string(name.."_leader")
if minetest.player_exists(param2) then
local target_party = mod_storage:get_string(param2.."_party")
-- if player is not in same party
if target_party ~= cparty then
party.send_notice(name, "Player "..param2.." does not exist or is not in your party! Case sensitive.")
return
-- if player is in same party then promote/demote accordingly
elseif target_party == cparty then
local target_status = mod_storage:get_string(param2.."_officer")
if target_status == "" then
mod_storage:set_string(param2.."_officer", "true")
party.send_notice_all(name, param2.." has been promoted to an officer!")
elseif target_status ~= "" then
mod_storage:set_string(param2.."_officer", nil)
party.send_notice_all(name, param2.." has been demoted to a member.")
end
end
else party.send_notice(name, "Player "..param2.." does not exist! Case sensitive.")
end
elseif param1 == "title" and param2 ~= nil and param3 ~= nil then
if party.check(name, 3) == true then
return
end
if minetest.player_exists(param2) then
if cparty ~= mod_storage:get_string(param2.."_party") then
party.send_notice(name, "Player "..param2.." is not in your party!")
return
end
if (param3 == "remove" or param3 == "nil") then
mod_storage:set_string(param2.."_title",nil)
party.send_notice(name, "Player "..param2.."'s title has been removed")
else
mod_storage:set_string(param2.."_title",param3)
party.send_notice(name, "Player "..param2.."'s title has been set to "..param3)
end
end
-- /p kick
elseif param1 == "kick" and param2 ~= nil then
if party.check(name, 2) == true then
return
end
if minetest.player_exists(param2) then
local cparty = mod_storage:get_string(param2.."_party")
local self_cparty = mod_storage:get_string(name.."_party")
-- attempt to kick self
if param2 == name then
party.send_notice(name, "You can't kick yourself!")
return
-- attempt to kick someone not from your party
elseif self_cparty ~= cparty then
party.send_notice(name, "Player "..param2.." does not exist or is not in your party! Case sensitive.")
return
-- attempt to kick leader
elseif param2 == cparty then
party.send_notice(name, "You can't kick the leader!")
party.send_notice_all(name, name.." attempted to kick the leader.")
return
-- attempt to kick fellow officer (if officer too)
elseif mod_storage:get_string(name.."_officer") ~= "" and mod_storage:get_string(param2.."_officer") ~= "" then
party.send_notice(name, "You can't kick a fellow officer!")
party.send_notice_all(name, name.." attempted to kick a fellow officer.")
return
end
-- kicking offline player, give a mark to notify player when he logins
if minetest.get_player_by_name(param2) == nil then
party.send_notice_all(name, param2.."[offline] was kicked from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."] by "..name)
mod_storage:set_string(param2.."_party", "#")
mod_storage:set_string(param2.."_officer", nil)
end
-- kicking online player
if minetest.get_player_by_name(param2) ~= nil then
party.send_notice_all(name, param2.." was kicked from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."] by "..name)
party.leave(param2)
end
-- if player doesn't exist
else party.send_notice(name, "Player "..param2.." does not exist! Case sensitive.")
end
-- Accept/reject join request
elseif (param1 == "accept" or param1 == "reject") and param2 ~= nil then
if party.check(name, 2) == true then
return
end
if minetest.player_exists(param2) then
-- Reject if player is not online
if minetest.get_player_by_name(param2) == nil then
party.send_notice(name, "Player "..param2.." is not online right now.")
return
end
local target_party = mod_storage:get_string(param2.."_party")
-- Reject if player did not request to join the party
if minetest.get_player_by_name(param2):get_attribute("partypending") ~= cparty then
party.send_notice(name, "Player "..param2.." did not request to join the party!")
return
-- Reject if player is already in a party
elseif target_party ~= "" then
party.send_notice(name, "Player "..param2.." is already in a party!")
return
end
local t_player = minetest.get_player_by_name(param2)
local cparty_l = mod_storage:get_string(cparty.."_leader")
if param1 == "accept" then
t_player:set_attribute("partypending", nil)
party.send_notice(param2, "Your request to join "..cparty.." ["..cparty_l.."] has been accepted!")
party.join(param2, cparty)
elseif param1 == "reject" then
t_player:set_attribute("partypending", nil)
party.send_notice(param2, "Your request to join "..cparty.." ["..cparty_l.."] was denied.")
party.send_notice(name, "You have denied "..param2.."'s request.")
end
else party.send_notice(name, "Player "..param2.." does not exist!")
end
elseif param1 == "invite" and param2 ~= nil then
if cparty ~= "" then
if party.check(name, 2) == true then
return
end
if minetest.player_exists(param2) then
-- reject if player is not online
local target_party = mod_storage:get_string(param2.."_party")
local t_player = minetest.get_player_by_name(param2)
if minetest.get_player_by_name(param2) == nil then
party.send_notice(name, "Player is not online!")
return
-- reject if player is already in a party
elseif target_party ~= "" then
party.send_notice(name, "Player is already in a party!")
return
-- reject if player disabled invites
elseif t_player:get_attribute("partynoinvite") == "true" then
party.send_notice(name, "Player has disabled invites!")
return
end
local cparty_l = mod_storage:get_string(cparty.."_leader")
t_player:set_attribute("partyinvite", name)
party.send_notice(param2, name.." has invited you to "..cparty.."'s party ["..cparty_l.."]! '/p invite yes' to accept or '/p invite no' to decline.")
party.send_notice(name, "You have invited "..param2.." to your party. Awaiting for their response.")
-- player does not exist
else party.send_notice(name, "Player "..param2.." does not exist! Case sensitive.")
end
elseif cparty == "" and param2 == "no" then
if player:get_attribute("partyinvite") ~= nil then
local iname = player:get_attribute("partyinvite")
local iparty = mod_storage:get_string(iname.."_party")
local iparty_l = mod_storage:get_string(iparty.."_leader")
player:set_attribute("partyinvite", nil)
party.send_notice(name, "You have rejected "..iname.."'s invite to join "..iparty.."'s party ["..iparty_l.."].")
-- if player that sent request is online, send him a message.
if minetest.get_player_by_name(iname) ~= nil then
party.send_notice(iname, name.." has denied your invite request.")
end
else party.send_notice(name, "You have not received an invite!")
end
elseif cparty == "" and param2 == "yes" then
if player:get_attribute("partyinvite") ~= nil then
local iname = player:get_attribute("partyinvite")
local iparty = mod_storage:get_string(iname.."_party")
local iparty_l = mod_storage:get_string(iparty.."_leader")
-- if player that sent request is online, send him a message.
if minetest.get_player_by_name(iparty) ~= nil then
party.send_notice(iname, name.." has accepted your invite request.")
end
player:set_attribute("partyinvite", nil)
party.join(name, iparty)
else party.send_notice(name, "You have not received an invite!")
end
else party.send_notice(name, "You are not in a party!")
end
-- =======================
-- ==== ADMIN COMMANDS ===
-- =======================
elseif param1 == "forcedisband" and param2 ~= nil then
if not minetest.check_player_privs(name, {ban=true}) then
party.send_notice(name, "You are not an admin!")
return
end
if party.check_tag(name, param2) == true then
local leadername = ""
for _,playernames in ipairs(player_list) do
if param2 == mod_storage:get_string(playernames.."_leader") then
leadername = leadername .. playernames
end
end
local cparty = leadername
party.send_notice(name, "You have disbanded "..leadername.."'s party ["..param2.."]")
party.send_notice_all(leadername, leadername.."'s party ["..mod_storage:get_string(leadername.."_leader").."] has been disbanded by "..name..", an admin")
-- remove online players
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
if mod_storage:get_string(names.."_party") == cparty then
party.leave(names)
end
end
-- mark offline players so they would be notified when they login
for _,playernames in ipairs(player_list) do
if minetest.get_player_by_name(playernames) == nil then
if mod_storage:get_string(playernames.."_party") == cparty then
mod_storage:set_string(playernames.."_party", "=")
-- open up the alliance name for taking
mod_storage:set_string(playernames.."_officer", nil)
mod_storage:set_string(playernames.."_leader", nil)
mod_storage:set_string(playernames.."_lock", nil)
end
end
end
else party.send_notice(name, "Party does not exist!")
end
elseif param1 == "forcejoin" and param2 ~= nil then
if not minetest.check_player_privs(name, {ban=true}) then
party.send_notice(name, "You are not an admin!")
return
end
if cparty ~= "" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "You are already in "..cparty.."'s party ["..cparty_l.."].")
return
end
if party.check_tag(name, param2) == true then
local leadername = ""
for _,playernames in ipairs(player_list) do
if param2 == mod_storage:get_string(playernames.."_leader") then
leadername = leadername .. playernames
end
end
local cparty = leadername
party.join(name, cparty)
end
elseif param1 == "forcekick" and param2 ~= nil then
if not minetest.check_player_privs(name, {kick=true}) then
party.send_notice(name, "You are not a mod!")
return
end
if minetest.player_exists(param2) then
local cparty = mod_storage:get_string(param2.."_party")
-- attempt to kick self
if param2 == name then
party.send_notice(name, "You can't kick yourself!")
return
-- attempt to kick player that doesn't have a party
elseif cparty == "" then
party.send_notice(name, param2.." is not in a party!")
return
-- attempt to kick leader
elseif mod_storage:get_string(param2.."_leader") ~= "" then
party.send_notice(name, "The leader can't be kicked! Use /p forcedisband instead.")
return
end
-- kicking offline player, give a mark to notify player when he logins
if minetest.get_player_by_name(param2) == nil then
party.send_notice_all(param2, param2.."[offline] was kicked from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."] by an admin, "..name)
mod_storage:set_string(param2.."_party", "+")
mod_storage:set_string(param2.."_officer", nil)
party.send_notice(name, "Kicked "..param2.."[offline] from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."]")
else
-- check if online player is a squad leader
if mod_storage:get_string(param2.."_squad_leader") ~= "" then
-- disband squad if so
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
if mod_storage:get_string(names.."_party") == mod_storage:get_string(param2.."_party") and mod_storage:get_string(names.."_squad") == mod_storage:get_string(param2.."_squad") then
squad.leave(names)
end
end
party.send_notice_all(param2, param2.." was kicked from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."] by an admin, "..name)
party.send_notice(name, "Kicked "..param2.." from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."]")
party.leave(param2)
-- if not, normal kick
else
party.send_notice_all(param2, param2.." was kicked from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."] by an admin, "..name)
party.send_notice(name, "Kicked "..param2.." from "..cparty.."'s party ["..mod_storage:get_string(cparty.."_leader").."]")
party.leave(param2)
end
end
end
else party.send_notice(name, "ERROR: Command is invalid! For help, use the command '/p help'")
end
end,
})
minetest.register_on_chat_message(function(name, message)
local player = minetest.get_player_by_name(name)
local cparty = mod_storage:get_string(name.."_party")
local cparty_title = mod_storage:get_string(name.."_title")
local csquad = mod_storage:get_string(name.."_squad")
local cinput = player:get_attribute("partychat")
-- check if player has shout privs
if not minetest.check_player_privs(name, {shout=true}) then
return
end
-- chat logging
if cparty == "" then
minetest.log("action", "CHAT : <"..name.."> : "..message)
elseif cparty ~= "" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
if string.match(message, "^@(.+)") then
minetest.log("action", "CHAT : <"..name.."> : "..string.gsub(message, "^@", ""))
elseif cinput == "main" then
minetest.log("action", "CHAT : <"..name.."> : "..string.gsub(message, "^@", ""))
else minetest.log("action", "CHAT [PARTY:"..cparty_l.."] : <"..name.."> : "..message)
end
end
for _,players in ipairs(minetest.get_connected_players()) do
local names = players:get_player_name()
-- Main chat
if cparty == "" then
minetest.chat_send_player(names, "<"..name.."> " ..message)
end
-- Main chat (@)
if string.match(message, "^@(.+)") and cparty ~= "" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
minetest.chat_send_player(names, "<Party:"..cparty_l.." | "..name.."> "..string.gsub(message, "^@", ""))
end
-- Main chat (chat input)
if cinput == "main" and cparty ~= "" and not string.match(message, "^@(.+)") then
local cparty_l = mod_storage:get_string(cparty.."_leader")
minetest.chat_send_player(names, "<Party:"..cparty_l.." | "..name.."> "..message)
end
-- Party Chat
if cparty == mod_storage:get_string(names.."_party") and cinput == "party" and not string.match(message, "^@(.+)") then
if cparty_title ~= "" then
minetest.chat_send_player(names, minetest.colorize("limegreen", "[Party]").." <"..minetest.colorize("lightgrey", cparty_title).." "..name.."> " ..message)
elseif cparty_title == "" then
minetest.chat_send_player(names, minetest.colorize("limegreen", "[Party]").." <"..name.."> " ..message)
end
-- Squad chat
elseif cparty == mod_storage:get_string(names.."_party") and csquad == mod_storage:get_string(names.."_squad") and cinput == "squad" and not string.match(message, "^@(.+)") then
if cparty_title ~= "" then
minetest.chat_send_player(names, minetest.colorize("orange", "[Squad]").." <"..minetest.colorize("lightgrey", cparty_title).." "..name.."> " ..message)
elseif cparty_title == "" then
minetest.chat_send_player(names, minetest.colorize("orange", "[Squad]").." <"..name.."> " ..message)
end
end
end
-- chat spy
if cparty ~= "" and not string.match(message, "^@(.+)") then
if cinput == "party" or cinput == "squad" then
party.chat_spy(name, message)
end
end
-- irc register --
if minetest.get_modpath("irc") and PARTY_IRC_HIDE == "true" then
if not irc.connected
or message:sub(1, 1) == "/"
or message:sub(1, 5) == "[off]"
or not irc.joined_players[name]
or (not minetest.check_player_privs(name, {shout=true})) then
return
end
if cparty == (nil or "") then
local nl = message:find("\n", 1, true)
if nl then
message = message:sub(1, nl - 1)
end
irc.say(irc.playerMessage(name, core.strip_colors(message)))
elseif cparty ~= (nil or "") and string.match(message, "^@(.+)") then
local nl = message:find("\n", 1, true)
if nl then
message = message:sub(1, nl - 1)
end
local newmessage = string.gsub(message, "^@", "")
irc.say(irc.playerMessage(name, core.strip_colors(newmessage)))
elseif cparty ~= (nil or "") and cinput == "main" and not string.match(message, "^@(.+)") then
local nl = message:find("\n", 1, true)
if nl then
message = message:sub(1, nl - 1)
end
irc.say(irc.playerMessage(name, core.strip_colors(message)))
end
end
return true
end)
minetest.register_on_punchplayer(function(player, hitter, time_from_last_punch, tool_capabilities, dir, damage)
if player and hitter then
local playername = player:get_player_name()
local hittername = hitter:get_player_name()
local p_party = mod_storage:get_string(playername.."_party")
local h_party = mod_storage:get_string(hittername.."_party")
local p_pvp = player:get_attribute("partypvp")
local h_pvp = hitter:get_attribute("partypvp")
if p_party ~= "" and p_party == h_party then
if (p_pvp == nil or h_pvp == nil) then
party.send_notice(hitter:get_player_name(), player:get_player_name().." is in your party and has no friendly fire enabled!")
return true
end
end
end
end)
minetest.register_on_joinplayer(function(player)
local name = player:get_player_name()
local cparty = mod_storage:get_string(name.."_party")
-- delete invite/join request status when player join, just in case.
player:set_attribute("partypending", nil)
player:set_attribute("partyinvite", nil)
-- clear all stats (just in case) if player get kick / party is disbanded / data is corrupted
if cparty == "@" then
party.send_notice(name, "While you were away, your party has disbanded!")
party.leave(name)
elseif cparty == "#" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "While you were away, you were kicked from your party!")
party.leave(name)
elseif cparty == "+" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "While you were away, you were kicked from your party by an admin!")
party.leave(name)
elseif cparty == "=" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
party.send_notice(name, "While you were away, your party was disbanded by an admin!")
party.leave(name)
elseif cparty ~= "" then
local cparty_l = mod_storage:get_string(cparty.."_leader")
if cparty_l == "" then
party.send_notice(name, "ERROR: Unable to load your party's name.")
party.send_notice(name, "ERROR: While you are away, you were either kicked or the party disbanded and was recreated.")
party.send_notice(name, "ERROR: Otherwise something became corrupted :/")
party.send_notice(name, "ERROR: Your party info has been reset.")
party.leave(name)
return
else
local tcolour = mod_storage:get_string(cparty.."_colour")
if tcolour == "" then
tcolour = PARTY_TAG_COLOUR
end
player:set_nametag_attributes({text = minetest.colorize(tcolour, "["..cparty_l.."]").." "..name})
end
end
end)
minetest.register_on_leaveplayer(function(player)
-- delete invite/join request status when player leaves
player:set_attribute("partypending", nil)
player:set_attribute("partyinvite", nil)
end)
-- register some global functions to allow external mods to obtain and set mod storage values
party.get_value = function(value)
return mod_storage:get_string(value)
end
party.set_value = function(value, newvalue)
mod_storage:set_string(value, newvalue)
end
Reference in New Issue View Git Blame Copy Permalink