Clean up formspec, remove old pipeworks code

This commit is contained in:
SmallJoker 2018-07-09 10:54:02 +02:00
parent 130389705b
commit 7cb00df6dc
2 changed files with 63 additions and 47 deletions

108
shop.lua
View File

@ -8,63 +8,83 @@ This code is based on the idea of Dan Duncombe's exchange shop
local shop_positions = {}
local function get_exchange_shop_formspec(mode, pos, title)
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)
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")
-- customer
return (
"size[8,9;]"..
"label[0,0;Exchange shop]"..
"label[1,0.5;Owner needs:]"..
local formspec = (
(overflow and "size[8,9]" or "size[8,8]")..
"label[1,0.4;You give:]"..
"list["..name..";cust_ow;1,1;2,2;]"..
"button[3,2.4;2,1;exchange;Exchange]"..
"label[5,0.5;Owner gives:]"..
"list["..name..";cust_og;5,1;2,2;]"..
"label[0.7,3.5;Ejected items:]"..
"label[0.7,3.8;(Remove me!)]"..
"list["..name..";cust_ej;3,3.5;4,1;]"..
"list[current_player;main;0,5;8,4;]"..
listring("cust_ej")
"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 "")
)
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 = (
"size[11,10;]"..
"label[0.3,0.1;Title:]"..
"field[1.5,0.5;3,0.5;title;;"..title.."]"..
"size[10,10]"..
"label[0,0.1;Title:]"..
"field[1.2,0.5;3,0.5;title;;"..title.."]"..
"field_close_on_enter[title;false]"..
"button[4.1,0.2;1,0.5;set_title;Set]"..
"label[0,0.7;You need:]"..
"list["..name..";cust_ow;0,1.2;2,2;]"..
"label[3,0.7;You give:]"..
"list["..name..";cust_og;3,1.2;2,2;]"..
"label[0,3.5;Ejected items: (Remove me!)]"..
"list["..name..";custm_ej;0,4;4,1;]"..
"label[6,0;You are viewing:]"..
"label[6,0.3;(Click to switch)]"..
listring("custm_ej")
"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:]"
)
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
if mode == "owner_custm" then
formspec = (formspec..
"button[8.5,0.2;2.5,0.5;view_stock;Customers stock]"..
"list["..name..";custm;6,1;5,4;]"..
"button[7.5,0.2;2.5,0.5;view_stock;Income]"..
"list["..name..";custm;5,1;5,4;]"..
listring("custm"))
else
formspec = (formspec..
"button[8.5,0.2;2.5,0.5;view_custm;Your stock]"..
"list["..name..";stock;6,1;5,4;]"..
"button[7.5,0.2;2.5,0.5;view_custm;Outgoing]"..
"list["..name..";stock;5,1;5,4;]"..
listring("stock"))
end
return (formspec..
"label[1,5;Use (E) + (Right click) for customer interface]"..
"label[1,5.4;Use (E) + (Right click) for customer interface]"..
"list[current_player;main;1,6;8,4;]")
end
return ""
@ -115,23 +135,25 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
return
end
local err_msg = exchange_shop.exchange_action(player_inv, shop_inv)
local err_msg, resend = exchange_shop.exchange_action(player_inv, shop_inv)
-- Throw error message
if err_msg then
minetest.chat_send_player(player_name, minetest.colorize("#F33",
"Exchange shop: " .. err_msg))
end
elseif exchange_shop.has_access(meta, player_name) then
local mode
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"
if fields.view_custm then
mode = "owner_custm"
elseif fields.view_stock then
mode = "owner_stock"
else
return
end
minetest.show_formspec(player_name, "exchange_shop:shop_formspec",
get_exchange_shop_formspec(mode, pos, title))
get_exchange_shop_formspec(mode, pos, meta))
end
end)
@ -202,7 +224,7 @@ minetest.register_node(exchange_shop.shopname, {
end
shop_positions[player_name] = pos
minetest.show_formspec(player_name, "exchange_shop:shop_formspec",
get_exchange_shop_formspec(mode, pos, meta:get_string("title")))
get_exchange_shop_formspec(mode, pos, meta))
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
@ -212,12 +234,9 @@ minetest.register_node(exchange_shop.shopname, {
return 0
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if player:get_player_name() == ":pipeworks" then
return stack:get_count()
end
if listname == "custm" then
minetest.chat_send_player(player:get_player_name(),
"Exchange shop: Please press 'Customers stock' and insert your items there.")
"Exchange shop: Insert your trade goods into 'Outgoing'.")
return 0
end
local meta = minetest.get_meta(pos)
@ -229,9 +248,6 @@ minetest.register_node(exchange_shop.shopname, {
return 0
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
if player:get_player_name() == ":pipeworks" then
return stack:get_count()
end
local meta = minetest.get_meta(pos)
if exchange_shop.has_access(meta, player:get_player_name())
or listname == "cust_ej" then

View File

@ -157,6 +157,6 @@ function exchange_shop.exchange_action(player_inv, shop_inv)
end
end
if not fully_exchanged then
return "Warning! Stacks are overflowing somewhere!"
return "Warning! Stacks are overflowing somewhere!", true
end
end