58 lines
2.0 KiB
Lua
58 lines
2.0 KiB
Lua
|
|
-- ===================================================================
|
|
-- Function: modpol.menu(user)
|
|
-- Params: user (string)
|
|
-- Q: Should this return a menu of commands relevant to the specific user?
|
|
-- Output: Displays a menu of commands to the user
|
|
-- TKTK currently a manually curated list---needs major improvement
|
|
modpol.menu = function(user)
|
|
local output = "Command list:"
|
|
for key,value in pairs(chat_table) do
|
|
output = output .. "/" .. key .. "\n"
|
|
end
|
|
return output
|
|
end
|
|
|
|
-- ===================================================================
|
|
-- Function: modpol.binary_poll_user(user, question)
|
|
-- Overwrites function at /interactions.lua
|
|
-- presents a yes/no/abstain poll to a user, returns answer
|
|
modpol.binary_poll_user = function(user, question)
|
|
-- set up formspec
|
|
local text = "Poll: " .. question
|
|
local formspec = {
|
|
"formspec_version[4]",
|
|
"size[5,3]",
|
|
"label[0.375,0.5;", minetest.formspec_escape(text), "]",
|
|
"button[1,1.5;1,0.8;yes;Yes]",
|
|
"button[2,1.5;1,0.8;no;No]",
|
|
"button[3,1.5;1,0.8;abstain;Abstain]"
|
|
--TKTK can we enable text wrapping?
|
|
--TKTK we could use scroll boxes to contain the text
|
|
}
|
|
local formspec_string = table.concat(formspec, "")
|
|
-- present to player
|
|
minetest.show_formspec(user, "modpol:binary_poll", formspec_string)
|
|
end
|
|
|
|
--what to do
|
|
minetest.register_on_player_receive_fields(function (player, formname, fields)
|
|
-- modpol:poll
|
|
if formname == "modpol:binary_poll" then
|
|
local pname = player:get_player_name()
|
|
local vote = nil
|
|
if fields.yes then vote = fields.yes
|
|
elseif fields.no then vote = fields.no
|
|
elseif fields.abstain then vote = fields.abstain
|
|
end
|
|
if vote then
|
|
minetest.chat_send_all(pname .. " voted " .. vote)
|
|
--TKTK : we should send the message to all in that org, definately not to all players
|
|
end
|
|
minetest.close_formspec(pname, formname)
|
|
return vote
|
|
else -- if the form is not a recognized name
|
|
return
|
|
end
|
|
end)
|