exchange_shop/shop.lua

284 lines
8.3 KiB
Lua
Raw Normal View History

2018-07-08 09:30:13 +02:00
--[[
Exchange Shop
This code is based on the idea of Dan Duncombe's exchange shop
https://web.archive.org/web/20160403113102/https://forum.minetest.net/viewtopic.php?id=7002
]]
local shop_positions = {}
local function get_exchange_shop_formspec(mode, pos, meta)
2018-07-08 09:30:13 +02:00
local name = "nodemeta:"..pos.x..","..pos.y..","..pos.z
meta = meta or minetest.get_meta(pos)
2018-07-08 09:30:13 +02:00
local function listring(src)
return "listring[".. name ..";" .. src .. "]" ..
"listring[current_player;main]"
end
if mode == "customer" then
local overflow = not meta:get_inventory():is_empty("cust_ej")
2018-07-08 09:30:13 +02:00
-- customer
local formspec = (
(overflow and "size[8,9]" or "size[8,8]")..
"label[1,0.4;You give:]"..
2018-07-08 09:30:13 +02:00
"list["..name..";cust_ow;1,1;2,2;]"..
"button[3,2.4;2,1;exchange;Exchange]"..
"label[5,0.4;You get:]"..
"list["..name..";cust_og;5,1;2,2;]"
)
-- Insert fallback slots
local inv_pos = 4
if overflow then
formspec = (formspec ..
"label[0.7,3.5;Ejected items:]"..
"label[0.7,3.8;(Remove me!)]"..
"list["..name..";cust_ej;3,3.5;4,1;]"
)
inv_pos = 5
end
return (formspec ..
"list[current_player;main;0," .. inv_pos .. ";8,4;]"..
(overflow and listring("cust_ej") or "")
2018-07-08 09:30:13 +02:00
)
end
if mode == "owner_custm"
or mode == "owner_stock" then
local overflow = not meta:get_inventory():is_empty("custm_ej")
local title = meta:get_string("title")
2018-07-08 09:30:13 +02:00
-- owner
local formspec = (
"size[10,10]"..
"label[0,0.1;Title:]"..
"field[1.2,0.5;3,0.5;title;;"..title.."]"..
2018-07-08 09:30:13 +02:00
"field_close_on_enter[title;false]"..
"button[3.9,0.2;1,0.5;set_title;Set]"..
"container[0,2]"..
"label[0,-0.6;You need:]"..
"list["..name..";cust_ow;0,0;2,2;]"..
"label[2.5,-0.6;You give:]"..
"list["..name..";cust_og;2.5,0;2,2;]"..
"container_end[]"..
"label[5,0.1;Current stock:]"
2018-07-08 09:30:13 +02:00
)
if overflow then
formspec = (formspec..
"list["..name..";custm_ej;0.2,4;4,1;]"..
"label[0.2,4.9;Ejected items: (Remove me!)]"..
listring("custm_ej")
)
end
2018-07-08 09:30:13 +02:00
if mode == "owner_custm" then
formspec = (formspec..
"button[7.5,0.2;2.5,0.5;view_stock;Income]"..
"list["..name..";custm;5,1;5,4;]"..
2018-07-08 09:30:13 +02:00
listring("custm"))
else
formspec = (formspec..
"button[7.5,0.2;2.5,0.5;view_custm;Outgoing]"..
"list["..name..";stock;5,1;5,4;]"..
2018-07-08 09:30:13 +02:00
listring("stock"))
end
return (formspec..
"label[1,5.4;Use (E) + (Right click) for customer interface]"..
2018-07-08 09:30:13 +02:00
"list[current_player;main;1,6;8,4;]")
end
return ""
end
minetest.register_on_player_receive_fields(function(sender, formname, fields)
if formname ~= "exchange_shop:shop_formspec" then
return
end
local player_name = sender:get_player_name()
local pos = shop_positions[player_name]
if not pos then
return
end
if (fields.quit and fields.quit ~= "") or
minetest.get_node(pos).name ~= "exchange_shop:shop" then
shop_positions[player_name] = nil
return
end
local meta = minetest.get_meta(pos)
local title = meta:get_string("title")
local shop_owner = meta:get_string("owner")
if fields.title and exchange_shop.has_access(meta, player_name) then
-- Limit title length
fields.title = fields.title:sub(1, 80)
if title ~= fields.title then
if fields.title ~= "" then
meta:set_string("infotext", "'" .. fields.title
.. "' (owned by " .. shop_owner .. ")")
else
meta:set_string("infotext", "Exchange shop (owned by "
.. shop_owner ..")")
end
meta:set_string("title", minetest.formspec_escape(fields.title))
end
end
if fields.exchange then
local shop_inv = meta:get_inventory()
local player_inv = sender:get_inventory()
if shop_inv:is_empty("cust_ow")
and shop_inv:is_empty("cust_og") then
return
end
local err_msg, resend = exchange_shop.exchange_action(player_inv, shop_inv)
2018-07-08 09:30:13 +02:00
-- Throw error message
if err_msg then
minetest.chat_send_player(player_name, minetest.colorize("#F33",
"Exchange shop: " .. err_msg))
end
if resend then
minetest.show_formspec(player_name, "exchange_shop:shop_formspec",
get_exchange_shop_formspec("customer", pos, meta))
end
end
if (fields.view_custm or fields.view_stock)
and exchange_shop.has_access(meta, player_name) then
local mode = "owner_stock"
2018-07-08 09:30:13 +02:00
if fields.view_custm then
mode = "owner_custm"
end
minetest.show_formspec(player_name, "exchange_shop:shop_formspec",
get_exchange_shop_formspec(mode, pos, meta))
2018-07-08 09:30:13 +02:00
end
end)
minetest.register_node(exchange_shop.shopname, {
description = "Exchange Shop",
tiles = {
"shop_top.png", "shop_top.png",
"shop_side.png","shop_side.png",
"shop_side.png", "shop_front.png"
},
paramtype2 = "facedir",
groups = {choppy=2, oddly_breakable_by_hand=2,
tubedevice=1, tubedevice_receiver=1},
tube = {
insert_object = function(pos, node, stack, direction)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
return inv:add_item("stock", stack)
end,
can_insert = function(pos, node, stack, direction)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
return inv:room_for_item("stock", stack)
end,
input_inventory = "custm",
connect_sides = {left=1, right=1, back=1, top=1, bottom=1}
},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
local owner = placer:get_player_name()
meta:set_string("owner", owner)
meta:set_string("infotext", "Exchange shop (owned by "
.. owner .. ")")
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("infotext", "Exchange shop (constructing)")
meta:set_string("owner", "")
local inv = meta:get_inventory()
inv:set_size("stock", exchange_shop.storage_size) -- needed stock for exchanges
inv:set_size("custm", exchange_shop.storage_size) -- stock of the customers exchanges
inv:set_size("custm_ej", 4) -- ejected items if shop has no inventory room
inv:set_size("cust_ow", 2*2) -- owner wants
inv:set_size("cust_og", 2*2) -- owner gives
inv:set_size("cust_ej", 4) -- ejected items if player has no inventory room
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
if inv:is_empty("stock") and inv:is_empty("custm")
and inv:is_empty("cust_ow") and inv:is_empty("custm_ej")
and inv:is_empty("cust_og") and inv:is_empty("cust_ej") then
return true
end
minetest.chat_send_player(player:get_player_name(),
"Cannot dig exchange shop: one or multiple stocks are in use.")
return false
end,
on_rightclick = function(pos, node, clicker, itemstack)
local meta = minetest.get_meta(pos)
local player_name = clicker:get_player_name()
local mode = "customer"
if exchange_shop.has_access(meta, player_name) and
not clicker:get_player_control().aux1 then
mode = "owner_custm"
end
shop_positions[player_name] = pos
minetest.show_formspec(player_name, "exchange_shop:shop_formspec",
get_exchange_shop_formspec(mode, pos, meta))
2018-07-08 09:30:13 +02:00
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if exchange_shop.has_access(meta, player:get_player_name()) then
return count
end
return 0
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if listname == "custm" then
minetest.chat_send_player(player:get_player_name(),
"Exchange shop: Insert your trade goods into 'Outgoing'.")
2018-07-08 09:30:13 +02:00
return 0
end
local meta = minetest.get_meta(pos)
if exchange_shop.has_access(meta, player:get_player_name())
and listname ~= "cust_ej"
and listname ~= "custm_ej" then
return stack:get_count()
end
return 0
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if exchange_shop.has_access(meta, player:get_player_name())
or listname == "cust_ej" then
return stack:get_count()
end
return 0
end,
})
minetest.register_craft({
output = "exchange_shop:shop",
recipe = {
{"default:sign_wall"},
{"default:chest_locked"},
}
})
minetest.register_on_leaveplayer(function(player)
shop_positions[player:get_player_name()] = nil
end)
if minetest.get_modpath("wrench") and wrench then
local STRING = wrench.META_TYPE_STRING
wrench:register_node("exchange_shop:shop", {
lists = {"stock", "custm", "custm_ej", "cust_ow", "cust_og", "cust_ej"},
metas = {
owner = STRING,
infotext = STRING,
title = STRING,
},
owned = true
})
end