mirror of
https://github.com/SmallJoker/exchange_shop.git
synced 2025-07-17 07:30:23 +02:00
Mod update and cleanup
This commit is contained in:
Maksim
121
shop.lua
121
shop.lua
@ -6,9 +6,10 @@ This code is based on the idea of Dan Duncombe's exchange shop
|
||||
]]
|
||||
|
||||
local S = exchange_shop.S
|
||||
local FS = exchange_shop.FS
|
||||
local shop_positions = {}
|
||||
|
||||
local tconcat = table.concat
|
||||
|
||||
local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
local name = "nodemeta:" .. pos.x .. "," .. pos.y .. "," .. pos.z
|
||||
meta = meta or minetest.get_meta(pos)
|
||||
@ -19,11 +20,6 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
end
|
||||
|
||||
local function make_slots(x, y, w, h, list, label)
|
||||
-- local arrow = "default_arrow_bg.png"
|
||||
-- if list == "cust_ow" then
|
||||
-- arrow = arrow .. "\\^\\[transformFY"
|
||||
-- end
|
||||
|
||||
local slots_image = ""
|
||||
for _x = 1, w do
|
||||
for _y = 1, h do
|
||||
@ -32,7 +28,7 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
end
|
||||
end
|
||||
|
||||
return table.concat({
|
||||
return tconcat({
|
||||
("label[%f,%f;%s]"):format(x, y - 0.5, label),
|
||||
-- ("image[%f,%f;0.6,0.6;shop_front.png]"):format(x + 0.15, y + 0.3),
|
||||
-- ("image[%f,%f;0.6,0.6;%s]"):format(x + 0.15, y + 0.0, arrow),
|
||||
@ -46,31 +42,18 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
end
|
||||
|
||||
if mode == "customer" then
|
||||
local overflow = false -- not meta:get_inventory():is_empty("cust_ej")
|
||||
|
||||
-- customer
|
||||
local formspec = (
|
||||
"size[9,8.75]" ..
|
||||
"item_image[0,-0.1;1,1;".. exchange_shop.shopname .. "]" ..
|
||||
"label[0.9,0.1;" .. S("Exchange Shop") .. "]" ..
|
||||
default.gui_close_btn() ..
|
||||
make_slots(1, 1.1, 2, 2, "cust_ow", FS("You give:")) ..
|
||||
"button[3,3.2;3,1;exchange;" .. FS("Exchange") .. "]" ..
|
||||
make_slots(6, 1.1, 2, 2, "cust_og", FS("You get:"))
|
||||
make_slots(1, 1.1, 2, 2, "cust_ow", S("You give:")) ..
|
||||
"button[3,3.2;3,1;exchange;" .. S("Exchange") .. "]" ..
|
||||
make_slots(6, 1.1, 2, 2, "cust_og", S("You get:"))
|
||||
)
|
||||
-- Insert fallback slots
|
||||
local inv_pos = 4.75
|
||||
--[[if overflow then
|
||||
formspec = (formspec ..
|
||||
"label[0.7,4;" .. FS("Ejected items:") .. "\n" .. FS("Remove me!") .. "]" ..
|
||||
"item_image[3,4;1,1;default:cell]" ..
|
||||
"item_image[4,4;1,1;default:cell]" ..
|
||||
"item_image[5,4;1,1;default:cell]" ..
|
||||
"item_image[6,4;1,1;default:cell]" ..
|
||||
"list[" .. name .. ";cust_ej;3,4;4,1;]"
|
||||
)
|
||||
inv_pos = 5
|
||||
end]]
|
||||
|
||||
local main_image = ""
|
||||
for x = 1, 9 do
|
||||
@ -82,15 +65,13 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
|
||||
formspec = formspec ..
|
||||
main_image ..
|
||||
"list[current_player;main;0," .. inv_pos .. ";9,4;]" ..
|
||||
(overflow and listring("cust_ej") or "")
|
||||
"list[current_player;main;0," .. inv_pos .. ";9,4;]"
|
||||
|
||||
return formspec
|
||||
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")
|
||||
|
||||
-- owner
|
||||
local formspec = (
|
||||
@ -98,12 +79,9 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
"item_image[0,-0.1;1,1;".. exchange_shop.shopname .. "]" ..
|
||||
"label[0.9,0.1;" .. S("Exchange Shop") .. "]" ..
|
||||
default.gui_close_btn("9.3,-0.1") ..
|
||||
-- "field[0.3,0.65;3,0.5;title;" .. FS("Title:") .. ";" .. title .. "]" ..
|
||||
-- "field_close_on_enter[title;false]" ..
|
||||
-- "button[2.8,0.3;1,0.61;set_title;" .. FS("Set") .. "]" ..
|
||||
make_slots(0.1, 2, 2, 2, "cust_ow", FS("You need:")) ..
|
||||
make_slots(2.6, 2, 2, 2, "cust_og", FS("You give:")) ..
|
||||
"label[5,0.4;" .. FS("Current stock:") .. "]"
|
||||
make_slots(0.1, 2, 2, 2, "cust_ow", S("You need:")) ..
|
||||
make_slots(2.6, 2, 2, 2, "cust_og", S("You give:")) ..
|
||||
"label[5,0.4;" .. S("Current stock:") .. "]"
|
||||
)
|
||||
|
||||
if overflow then
|
||||
@ -113,7 +91,7 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
"item_image[2.1,4.4;1,1;default:cell]" ..
|
||||
"item_image[3.1,4.4;1,1;default:cell]" ..
|
||||
"list[" .. name .. ";custm_ej;0.1,4.4;4,1;]" ..
|
||||
"label[0.1,5.3;" .. FS("Ejected items:") .. " " .. FS("Remove me!") .. "]" ..
|
||||
"label[0.1,5.3;" .. S("Ejected items:") .. " " .. S("Remove me!") .. "]" ..
|
||||
listring("custm_ej")
|
||||
)
|
||||
end
|
||||
@ -129,14 +107,14 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
local arrow = "default_arrow_bg.png"
|
||||
if mode == "owner_custm" then
|
||||
formspec = (formspec ..
|
||||
"button[6.25,5.25;2.4,0.5;view_stock;" .. FS("Income") .. "]" ..
|
||||
"button[6.25,5.25;2.4,0.5;view_stock;" .. S("Income") .. "]" ..
|
||||
stock_image ..
|
||||
"list[" .. name .. ";custm;5,1;5,4;]" ..
|
||||
listring("custm"))
|
||||
arrow = arrow .. "\\^\\[transformFY"
|
||||
else
|
||||
formspec = (formspec ..
|
||||
"button[6.25,5.25;2.4,0.5;view_custm;" .. FS("Outgoing") .. "]" ..
|
||||
"button[6.25,5.25;2.4,0.5;view_custm;" .. S("Outgoing") .. "]" ..
|
||||
stock_image ..
|
||||
"list[" .. name .. ";stock;5,1;5,4;]" ..
|
||||
listring("stock"))
|
||||
@ -151,7 +129,7 @@ local function get_exchange_shop_formspec(mode, pos, meta)
|
||||
end
|
||||
|
||||
formspec = formspec ..
|
||||
-- "label[1,5.4;" .. FS("Use (E) + (Right click) for customer interface") .. "]" ..
|
||||
-- "label[1,5.4;" .. S("Use (E) + (Right click) for customer interface") .. "]" ..
|
||||
main_image ..
|
||||
"image[8.65,5.2;0.6,0.6;" .. arrow .. "]" ..
|
||||
"list[current_player;main;0.5,6;9,4;]"
|
||||
@ -173,28 +151,12 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
|
||||
return
|
||||
end
|
||||
|
||||
if (fields.quit and fields.quit ~= "") or
|
||||
minetest.get_node(pos).name ~= exchange_shop.shopname then
|
||||
if fields.quit or minetest.get_node(pos).name ~= exchange_shop.shopname 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")
|
||||
|
||||
local ftitle = fields.title
|
||||
if ftitle and exchange_shop.has_access(meta, player_name) then
|
||||
-- Limit title length
|
||||
ftitle = ftitle:sub(1, 80)
|
||||
if title ~= ftitle then
|
||||
local title_text = (ftitle and ftitle ~= "") and
|
||||
S("Exchange Shop: \"@1\"", ftitle) or S("Exchange Shop")
|
||||
meta:set_string("infotext", title_text .. "\n" .. S("Owned by @1", shop_owner))
|
||||
meta:set_string("title", minetest.formspec_escape(ftitle))
|
||||
end
|
||||
end
|
||||
|
||||
if fields.exchange then
|
||||
local shop_inv = meta:get_inventory()
|
||||
local player_inv = sender:get_inventory()
|
||||
@ -213,9 +175,8 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
|
||||
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
|
||||
elseif (fields.view_custm or fields.view_stock)
|
||||
and not minetest.is_protected(pos, player_name) then
|
||||
local mode = "owner_stock"
|
||||
if fields.view_custm then
|
||||
mode = "owner_custm"
|
||||
@ -233,32 +194,32 @@ minetest.register_node(exchange_shop.shopname, {
|
||||
"shop_side.png", "shop_front.png"
|
||||
},
|
||||
paramtype2 = "facedir",
|
||||
groups = {choppy=2, oddly_breakable_by_hand=2},
|
||||
groups = {choppy = 2, oddly_breakable_by_hand = 2},
|
||||
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", S("Exchange Shop") .. "\n" .. S("Owned by @1", owner))
|
||||
end,
|
||||
|
||||
on_construct = function(pos)
|
||||
local meta = minetest.get_meta(pos)
|
||||
meta:set_string("infotext", S("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
|
||||
inv:set_size("cust_ow", 2 * 2) -- owner wants
|
||||
inv:set_size("cust_og", 2 * 2) -- owner gives
|
||||
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
|
||||
and inv:is_empty("cust_og") then
|
||||
return true
|
||||
end
|
||||
if player then
|
||||
@ -267,12 +228,13 @@ minetest.register_node(exchange_shop.shopname, {
|
||||
end
|
||||
return false
|
||||
end,
|
||||
|
||||
on_rightclick = function(pos, _, clicker)
|
||||
local meta = minetest.get_meta(pos)
|
||||
local player_name = clicker:get_player_name()
|
||||
local meta = minetest.get_meta(pos)
|
||||
|
||||
local mode = "customer"
|
||||
if exchange_shop.has_access(meta, player_name) and
|
||||
if not minetest.is_protected(pos, player_name) and
|
||||
not clicker:get_player_control().aux1 then
|
||||
mode = "owner_custm"
|
||||
end
|
||||
@ -280,36 +242,31 @@ minetest.register_node(exchange_shop.shopname, {
|
||||
minetest.show_formspec(player_name, "exchange_shop:shop_formspec",
|
||||
get_exchange_shop_formspec(mode, pos, meta))
|
||||
end,
|
||||
|
||||
allow_metadata_inventory_move = function(pos, _, _, _, _, count, player)
|
||||
local meta = minetest.get_meta(pos)
|
||||
if exchange_shop.has_access(meta, player:get_player_name()) then
|
||||
return count
|
||||
end
|
||||
return 0
|
||||
local player_name = player:get_player_name()
|
||||
return not minetest.is_protected(pos, player_name) and count or 0
|
||||
end,
|
||||
|
||||
allow_metadata_inventory_put = function(pos, listname, _, stack, player)
|
||||
local player_name = player:get_player_name()
|
||||
|
||||
if listname == "custm" then
|
||||
minetest.chat_send_player(player_name,
|
||||
S("Exchange shop: Insert your trade goods into 'Outgoing'."))
|
||||
return 0
|
||||
end
|
||||
local meta = minetest.get_meta(pos)
|
||||
if exchange_shop.has_access(meta, player_name)
|
||||
and listname ~= "cust_ej"
|
||||
if not minetest.is_protected(pos, player_name)
|
||||
and listname ~= "custm_ej" then
|
||||
return stack:get_count()
|
||||
end
|
||||
return 0
|
||||
end,
|
||||
allow_metadata_inventory_take = function(pos, listname, _, 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,
|
||||
|
||||
allow_metadata_inventory_take = function(pos, _, _, stack, player)
|
||||
local player_name = player:get_player_name()
|
||||
return not minetest.is_protected(pos, player_name) and stack:get_count() or 0
|
||||
end
|
||||
})
|
||||
|
||||
minetest.register_craft({
|
||||
|
||||
Reference in New Issue
Block a user