|
@@ -217,13 +217,62 @@ function modpol.remove_privilege(org, privilege)
|
|
|
-- remove privilege from all members of an org, unless they have it from other orgs
|
|
|
end
|
|
|
|
|
|
--- POLLING FUNCTIONS
|
|
|
-
|
|
|
-function modpol.poll_org(org, question)
|
|
|
- -- create formspec for all org members
|
|
|
- -- return their answers
|
|
|
+--[[ USER INTERACTIONS ]]--
|
|
|
+
|
|
|
+-- modpol.binary_poll_user(user, question)
|
|
|
+-- presents a yes/no/abstain poll to a user, returns answer
|
|
|
+function modpol.binary_poll_user(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?
|
|
|
+ }
|
|
|
+ local formspec_string = table.concat(formspec, "")
|
|
|
+ -- present to player
|
|
|
+ minetest.show_formspec(user, "modpol:binary_poll", formspec_string)
|
|
|
end
|
|
|
|
|
|
+-- Receiving fields
|
|
|
+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)
|
|
|
+ end
|
|
|
+ minetest.close_formspec(pname, formname)
|
|
|
+ return vote
|
|
|
+ else -- if the form is not a recognized name
|
|
|
+ return
|
|
|
+ end
|
|
|
+end)
|
|
|
+
|
|
|
+-- /pollself [question]
|
|
|
+-- asks the user a question
|
|
|
+minetest.register_chatcommand(
|
|
|
+ "pollself", {
|
|
|
+ privs = {},
|
|
|
+ func = function(user, param)
|
|
|
+ modpol.binary_poll_user(user, param)
|
|
|
+ return true, result
|
|
|
+ end,
|
|
|
+})
|
|
|
+
|
|
|
+--[[ TKTK need to enable more complex ineractions
|
|
|
+ - checkboxes, radio
|
|
|
+ - write-in
|
|
|
+]]--
|
|
|
|
|
|
-- MESSAGE FUNCTIONS
|
|
|
|