farebox/init.lua

203 lines
6.2 KiB
Lua

-- Farebox mod
-- adds a box that emmits a mesecons signal when the requested
-- quantity is paid. Ideal to charge admission from visitors to your
-- buildings
farebox = {}
-- Is used to keep the formspec information server-side
farebox.players = {}
function farebox.show_formspec(pos, player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local owner = meta:get_string("owner")
local player_name = player:get_player_name()
farebox.players[player_name] = vector.new(pos)
if player_name == owner then
local loc = "nodemeta:" .. pos.x .. "," .. pos.y .. "," .. pos.z
minetest.show_formspec(player_name, "farebox:farebox",
"size[8,10]"..
"label[0.5,0.5; Entrance fee:]" ..
"list[" .. loc .. ";request;2.5,0.25;1,1;]" ..
"button_exit[6,0.25;2,1;open;Open]" ..
"list[" .. loc .. ";main;0,1.5;8,4]" ..
"list[current_player;main;0,5.75;8,1;]" ..
"list[current_player;main;0,7;8,3;8]" ..
"listring[]" .. default.get_hotbar_bg(0, 4.25)
)
else
minetest.show_formspec(player_name, "farebox:farebox",
"size[8,4]" ..
"label[0.5,1.5; Owner Wants:]" ..
"item_image_button[2.5,1.25;1,1;" ..
inv:get_stack("request", 1):get_name() .. ";buy;\n\n\b\b\b\b\b" ..
inv:get_stack("request", 1):get_count() .. "]" ..
"label[3.5,1.5; (Click on the item to pay)]"
)
end
end
farebox.rules = {
{x=0, y=-2, z=0},
{x=0, y=2, z=0},
}
function farebox.open_faregate(pos)
node = minetest.get_node(pos)
node.name = "farebox:faregate_open"
minetest.swap_node(pos, node)
minetest.sound_play("doors_steel_door_open", {
pos = pos,
gain = 0.3,
max_hear_distance = 10
})
end
function farebox.close_faregate(pos)
node = minetest.get_node(pos)
node.name = "farebox:faregate"
minetest.swap_node(pos, node)
minetest.sound_play("doors_steel_door_close", {
pos = pos,
gain = 0.3,
max_hear_distance = 10
})
end
minetest.register_on_player_receive_fields(function(player, formname, pressed)
if formname ~= "farebox:farebox" then
return -- Not My Job
end
local pname = player:get_player_name()
local pos = farebox.players[pname]
if not pos then
return
end
local nodename = minetest.get_node(pos).name
if nodename ~= "farebox:farebox" and nodename ~= "farebox:faregate" then
-- Node was removed. Make reference invalid.
farebox.players[pname] = nil
return
end
local pinv = player:get_inventory()
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local owner = meta:get_string("owner")
local open = false
if pressed.buy then
local request = inv:get_stack("request", 1)
if pinv:contains_item("main", request)
and inv:room_for_item("main", request) then
if not (creative and creative.is_enabled_for
and creative.is_enabled_for(pname)) then
pinv:remove_item("main", request)
end
inv:add_item("main", request)
open = true
elseif not pinv:contains_item("main", request) then
minetest.chat_send_player(pname, "You don't have enough items to enter")
elseif not inv:room_for_item("main", request) then
minetest.chat_send_player(pname, "Owner's inventory is full")
end
end
if (pressed.open and pname == owner) or open then
minetest.chat_send_player(pname, "Payment accepted.")
if nodename == "farebox:farebox" then
mesecon.receptor_on(pos, farebox.rules)
minetest.after(1, mesecon.receptor_off, pos, farebox.rules)
elseif nodename == "farebox:faregate" then
farebox.open_faregate(pos)
end
minetest.close_formspec(pname, formname)
end
end)
minetest.register_on_leaveplayer(function(player)
farebox.players[player:get_player_name()] = nil
end)
can_dig = function(pos, player)
local meta = minetest.get_meta(pos)
local name = player:get_player_name()
local inv = meta:get_inventory()
if inv:is_empty("main") and inv:is_empty("request") and (meta:get_string("owner") == name or minetest.check_player_privs(name, {protection_bypass=true,})) then
return true
end
return false
end
farebox.allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
local name = player:get_player_name()
if meta:get_string("owner") == name or minetest.check_player_privs(name, {protection_bypass=true,}) then
return stack:get_count()
end
return 0
end
farebox.allow_metadata_inventory_put = function(pos, listname, index, stack, player)
return farebox.allow_metadata_inventory_take(pos, listname, index, stack, player)
end
farebox.allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
local name = player:get_player_name()
if meta:get_string("owner") == name or minetest.check_player_privs(name, {protection_bypass=true,}) then
return count
end
return 0
end
minetest.register_node("farebox:farebox", {
description = "Farebox",
tiles = {
"default_steel_block.png", "default_steel_block.png",
"default_steel_block.png", "default_steel_block.png",
"default_steel_block.png", "farebox_front.png"
},
paramtype2 = "facedir",
groups = {cracky=2},
legacy_facedir_simple = true,
is_ground_content = false,
sounds = default.node_sound_stone_defaults(),
mesecons = {
receptor = {
state = mesecon.state.off,
rules = farebox.rules
}
},
can_dig = can_dig,
after_place_node = function(pos, player, _)
local meta = minetest.get_meta(pos)
local player_name = player:get_player_name()
meta:set_string("owner", player_name)
meta:set_string("infotext", "Owned by "..player_name)
local inv = meta:get_inventory()
inv:set_size("request", 1)
inv:set_size("main", 32)
end,
allow_metadata_inventory_put = farebox.allow_metadata_inventory_put,
allow_metadata_inventory_take = farebox.allow_metadata_inventory_take,
allow_metadata_inventory_move = farebox.allow_metadata_inventory_move,
on_rightclick = function(pos, node, player, itemstack, pointed_thing)
farebox.show_formspec(pos, player)
end,
})
minetest.register_craft({
output = "farebox:farebox",
recipe = {
{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
{"default:steel_ingot", "", "default:steel_ingot"},
{"default:steel_ingot", "mesecons:mesecon", "default:steel_ingot"},
}
})
local modpath = minetest.get_modpath("farebox")
dofile(modpath .. "/faregate.lua")