Upload New File

This commit is contained in:
Nathan Schneider 2021-01-22 21:01:46 +00:00
parent b7e86554a4
commit f1056a405d

250
init.lua Normal file
View File

@ -0,0 +1,250 @@
--[[ INITIALIZING: basics ]]--
-- global API table
modpol = {
}
-- table for all active governance data
modpol.orgs = {
}
-- record of governance interactions
-- every state change should appear here
modpol.ledger = {
}
-- update from mod_storage
-- https://dev.minetest.net/StorageRef
local mod_storage = minetest.get_mod_storage()
-- load orgs
local stored_orgs = minetest.deserialize(mod_storage:get_string("orgs"))
if (stored_orgs ~= nil) then
modpol.orgs = stored_orgs
end
-- load orgs
local stored_ledger = minetest.deserialize(mod_storage:get_string("ledger"))
if (stored_ledger ~= nil) then
modpol.ledger = stored_ledger
end
--[[ FUNCTIONS:basics ]]--
-- record(message, org)
-- writes all governance events to storage and ledger
function modpol.record(message, org)
-- record to ledger
table.insert(modpol.ledger, message)
-- record to org_ledger
if (modpol.orgs[org] ~= nil) then
local org_ledg = modpol.orgs[org]["ledger"]
if (org_ledg == nil) then
modpol.orgs[org]["ledger"] = {message}
else
modpol.orgs[org]["ledger"] = table.insert(org_ledg,message)
end
end
-- record to storage
mod_storage:set_string("orgs", minetest.serialize(modpol.orgs))
mod_storage:set_string("ledger", minetest.serialize(modpol.ledger))
end
--[[ FUNCTIONS:orgs ]]--
-- new_org()
-- create an org and add it to the list
function modpol.new_org(orgName, orgMembers)
if (orgName == "") then -- blank orgName input
return "-!- Org needs a name"
end
if (modpol.orgs[orgName] == nil) then -- copy check
modpol.orgs[orgName] = {members = orgMembers}
else return "-!- Org already exists"
end
local message = "New org: " .. orgName ..
" (" .. table.concat(orgMembers, ", ") .. ")"
modpol.record(message, orgName)
return message
end
-- /neworg [name]
-- creates a new org with the current user as sole member
minetest.register_chatcommand(
"neworg", {
privs = {},
func = function(user, param)
local result =
modpol.new_org(param,{user})
return true, result
end,
})
-- rename_org()
function modpol.rename_org(oldName, newName)
-- TKTK
local message = "Org renamed: " .. oldName .. " > " .. newName
modpol.record(message, newName)
end
-- /listorgs
-- lists the orgs currently in the game
minetest.register_chatcommand(
"listorgs", {
privs = {},
func = function(user, param)
local orglist = ""
for key, value in pairs(modpol.orgs) do
-- first, set up member list
local membs = modpol.orgs[key]["members"]
if (membs == nil) then membs = ""
else membs = " (" .. table.concat(membs, ", ") .. ")"
end
-- now, assemble the list
if (orglist == "") -- first element only
then orglist = key .. membs
else orglist = orglist .. ", " .. key .. membs
end
end
return true, "Orgs: " .. orglist
end,
})
-- rm_orgs()
-- removes all orgs
function modpol.rm_orgs()
modpol.orgs["instance"] = {members = modpol.list_members()}
local message = "Orgs purged"
modpol.record(message, nil)
return message
end
-- /rmorgs
minetest.register_chatcommand(
"rmorgs", {
privs = {},
func = function(user, param)
modpol.orgs = {}
return true, modpol.rm_orgs()
end,
})
--[[ FUNCTIONS:users ]]--
-- list_members(domain)
-- produces a table with names of players currently in the game
-- if empty, lists all players; if an org name, lists its members
function modpol.list_members(domain)
local members = {}
if (domain == nil) then -- no specified domain; all players
for _,player in ipairs(minetest.get_connected_players()) do
local name = player:get_player_name()
table.insert(members,name)
end
else -- if an org is specified
if (modpol.orgs[domain] ~= nil) then -- org exists
members = modpol.orgs[domain]["members"]
end
end
return members
end
-- /listplayers
minetest.register_chatcommand(
"listplayers", {
privs = {},
func = function(user)
local result = table.concat(modpol.list_members(),", ")
return true, "All players: " .. result
end,
})
function modpol.add_member(org, member)
if (modpol.orgs.org == nil) then
return "-!- No such org"
else
table.insert(modpol.orgs.org["members"], member)
local message = member .. " added to org " .. org
modpol.record(message, org)
return message
end
end
-- /joinorg
minetest.register_chatcommand(
"joinorg", {
privs = {},
func = function(user, param)
local result = modpol.add_member(param, user)
return true, result
end,
})
function modpol.remove_member(org, member)
-- remove from all child orgs also
local message = member .. " removed from org " .. org
modpol.record(message, org)
return message
end
-- /listmembers [org]
-- lists the members of an org
minetest.register_chatcommand(
"listmembers", {
privs = {},
func = function(user, param)
local orglist = modpol.list_members(param)
return true, param .. ": " .. table.concat(orglist,", ")
end,
})
-- PERMISSIONS FUNCTIONS
-- PRIVILEGE FUNCTIONS
-- Minetest-specific
-- manages user privileges according to org membership
function modpol.assign_privilege(org, privilege)
-- add privilege to all members of an org
end
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
end
-- MESSAGE FUNCTIONS
function modpol.org_message(org, speaker, message)
-- If org doesn't exit, broadcast to all
-- If org doesn't exist, don't broadcast
-- use: minetest.chat_send_player("player1", "This is a chat message for player1")
end
-- register at chat command for this
-- Add HUD interface that shows status: orgs, privileges https://rubenwardy.com/minetest_modding_book/en/players/hud.html
-- toggle it on and off
--[[ INITIALIZING: post-functions ]]--
-- create instance if not present
if (modpol.orgs["instance"] == nil) then
modpol.new_org("instance", modpol.list_members())
end
-- TKTK does this need to be on_joinplayer? still isn't adding the singleplayer