369 lines
12 KiB
Lua
369 lines
12 KiB
Lua
|
local S = minetest.get_translator("currency")
|
||
|
|
|
||
|
|
currency.shop = {}
|
||
|
|
if minetest.global_exists("default") then
|
||
|
|
default.shop = currency.shop
|
||
|
|
end
|
||
|
|
|
||
|
|
currency.shop.current_shop = {}
|
||
|
|
currency.shop.formspec = {
|
||
|
|
customer = function(pos)
|
||
|
|
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
|
||
|
|
local formspec = "size[8,9.5]"..
|
||
|
|
"label[0,0;" .. S("Customer gives (pay here!)") .. "]"..
|
||
|
|
"list[current_player;customer_gives;0,0.5;3,2;]"..
|
||
|
|
"label[0,2.5;" .. S("Customer gets:") .. "]"..
|
||
|
|
"list[current_player;customer_gets;0,3;3,2;]"..
|
||
|
|
"label[5,0;" .. S("Owner wants:") .. "]"..
|
||
|
|
"list["..list_name..";owner_wants;5,0.5;3,2;]"..
|
||
|
|
"label[5,2.5;" .. S("Owner gives:") .. "]"..
|
||
|
|
"list["..list_name..";owner_gives;5,3;3,2;]"..
|
||
|
|
"list[current_player;main;0,5.5;8,4;]"..
|
||
|
|
"button[3,2;2,1;exchange;" .. S("Exchange") .. "]"
|
||
|
|
return formspec
|
||
|
|
end,
|
||
|
|
owner = function(pos)
|
||
|
|
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
|
||
|
|
local formspec = "size[8,9.5]"..
|
||
|
|
"label[0,0;" .. S("Customers gave:") .. "]"..
|
||
|
|
"list["..list_name..";customers_gave;0,0.5;3,2;]"..
|
||
|
|
"label[0,2.5;" .. S("Your stock:") .. "]"..
|
||
|
|
"list["..list_name..";stock;0,3;3,2;]"..
|
||
|
|
"label[4,0;" .. S("You want:") .. "]"..
|
||
|
|
"list["..list_name..";owner_wants;4,0.5;3,2;]"..
|
||
|
|
"label[4,2.5;" .. S("In exchange, you give:") .. "]"..
|
||
|
|
"list["..list_name..";owner_gives;4,3;3,2;]"..
|
||
|
|
"label[0,5;" .. S("Owner, Use (E)+Place (right mouse button) for customer interface") .. "]"..
|
||
|
|
"list[current_player;main;0,5.5;8,4;]"
|
||
|
|
return formspec
|
||
|
|
end,
|
||
|
|
}
|
||
|
|
|
||
|
|
local have_pipeworks = minetest.global_exists("pipeworks")
|
||
|
|
|
||
|
|
currency.shop.check_privilege = function(listname,playername,meta)
|
||
|
|
--[[if listname == "pl1" then
|
||
|
|
if playername ~= meta:get_string("pl1") then
|
||
|
|
return false
|
||
|
|
elseif meta:get_int("pl1step") ~= 1 then
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
end
|
||
|
|
if listname == "pl2" then
|
||
|
|
if playername ~= meta:get_string("pl2") then
|
||
|
|
return false
|
||
|
|
elseif meta:get_int("pl2step") ~= 1 then
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
end]]
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
currency.shop.give_inventory = function(inv,list,playername)
|
||
|
|
player = minetest.get_player_by_name(playername)
|
||
|
|
if player then
|
||
|
|
for k,v in ipairs(inv:get_list(list)) do
|
||
|
|
player:get_inventory():add_item("main",v)
|
||
|
|
inv:remove_item(list,v)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
currency.shop.cancel = function(meta)
|
||
|
|
--[[currency.shop.give_inventory(meta:get_inventory(),"pl1",meta:get_string("pl1"))
|
||
|
|
currency.shop.give_inventory(meta:get_inventory(),"pl2",meta:get_string("pl2"))
|
||
|
|
meta:set_string("pl1","")
|
||
|
|
meta:set_string("pl2","")
|
||
|
|
meta:set_int("pl1step",0)
|
||
|
|
meta:set_int("pl2step",0)]]
|
||
|
|
end
|
||
|
|
|
||
|
|
currency.shop.exchange = function(meta)
|
||
|
|
--[[currency.shop.give_inventory(meta:get_inventory(),"pl1",meta:get_string("pl2"))
|
||
|
|
currency.shop.give_inventory(meta:get_inventory(),"pl2",meta:get_string("pl1"))
|
||
|
|
meta:set_string("pl1","")
|
||
|
|
meta:set_string("pl2","")
|
||
|
|
meta:set_int("pl1step",0)
|
||
|
|
meta:set_int("pl2step",0)]]
|
||
|
|
end
|
||
|
|
|
||
|
|
local check_stock = function(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
local meta = minetest.get_meta(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
local minv = meta:get_inventory(
|
||
|
|
)
|
||
|
|
local gives = minv:get_list(
|
||
|
|
"owner_gives"
|
||
|
|
)
|
||
|
|
local can_exchange = true
|
||
|
|
for i, item in pairs(
|
||
|
|
gives
|
||
|
|
) do
|
||
|
|
if not minv:contains_item(
|
||
|
|
"stock",
|
||
|
|
item
|
||
|
|
) then
|
||
|
|
can_exchange = false
|
||
|
|
end
|
||
|
|
end
|
||
|
|
local owner = meta:get_string(
|
||
|
|
"owner"
|
||
|
|
)
|
||
|
|
if can_exchange then
|
||
|
|
meta:set_string(
|
||
|
|
"infotext",
|
||
|
|
S(
|
||
|
|
"Exchange shop (owned by @1)",
|
||
|
|
owner
|
||
|
|
)
|
||
|
|
)
|
||
|
|
local applicable = "currency:shop"
|
||
|
|
local node = minetest.get_node(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
if node.name == applicable then
|
||
|
|
return
|
||
|
|
end
|
||
|
|
node.name = applicable
|
||
|
|
minetest.swap_node(
|
||
|
|
pos,
|
||
|
|
node
|
||
|
|
)
|
||
|
|
else
|
||
|
|
meta:set_string(
|
||
|
|
"infotext",
|
||
|
|
S(
|
||
|
|
"Exchange shop (owned by @1)",
|
||
|
|
owner
|
||
|
|
) .. ", " .. S(
|
||
|
|
"out of stock"
|
||
|
|
)
|
||
|
|
)
|
||
|
|
local applicable = "currency:shop_empty"
|
||
|
|
local node = minetest.get_node(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
if node.name == applicable then
|
||
|
|
return
|
||
|
|
end
|
||
|
|
node.name = applicable
|
||
|
|
minetest.swap_node(
|
||
|
|
pos,
|
||
|
|
node
|
||
|
|
)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
minetest.register_node("currency:shop", {
|
||
|
|
description = S("Shop"),
|
||
|
|
paramtype2 = "facedir",
|
||
|
|
tiles = {"shop_top.png",
|
||
|
|
"shop_top.png",
|
||
|
|
"shop_side.png",
|
||
|
|
"shop_side.png",
|
||
|
|
"shop_side.png",
|
||
|
|
"shop_front.png"},
|
||
|
|
inventory_image = "shop_front.png",
|
||
|
|
groups = {choppy=2,oddly_breakable_by_hand=2,tubedevice=1,tubedevice_receiver=1},
|
||
|
|
sounds = currency.node_sound_wood_defaults(),
|
||
|
|
after_place_node = function(pos, placer, itemstack)
|
||
|
|
local owner = placer:get_player_name()
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
meta:set_string("infotext", S("Exchange shop (owned by @1)", owner))
|
||
|
|
meta:set_string("owner", owner)
|
||
|
|
--[[meta:set_string("pl1","")
|
||
|
|
meta:set_string("pl2","")]]
|
||
|
|
local inv = meta:get_inventory()
|
||
|
|
inv:set_size("customers_gave", 3*2)
|
||
|
|
inv:set_size("stock", 3*2)
|
||
|
|
inv:set_size("owner_wants", 3*2)
|
||
|
|
inv:set_size("owner_gives", 3*2)
|
||
|
|
if have_pipeworks then pipeworks.after_place(pos) end
|
||
|
|
check_stock(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
end,
|
||
|
|
after_dig_node = (have_pipeworks and pipeworks and pipeworks.after_dig),
|
||
|
|
tube = {
|
||
|
|
insert_object = function(pos, node, stack, direction)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
local inv = meta:get_inventory()
|
||
|
|
local result = inv:add_item("stock",stack)
|
||
|
|
check_stock(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
return result
|
||
|
|
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 = "customers_gave",
|
||
|
|
connect_sides = {left = 1, right = 1, back = 1, front = 1, bottom = 1, top = 1}
|
||
|
|
},
|
||
|
|
on_rightclick = function(pos, node, clicker, itemstack)
|
||
|
|
clicker:get_inventory():set_size("customer_gives", 3*2)
|
||
|
|
clicker:get_inventory():set_size("customer_gets", 3*2)
|
||
|
|
currency.shop.current_shop[clicker:get_player_name()] = pos
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if clicker:get_player_name() == meta:get_string("owner") and not clicker:get_player_control().aux1 then
|
||
|
|
minetest.show_formspec(clicker:get_player_name(),"currency:shop_formspec",currency.shop.formspec.owner(pos))
|
||
|
|
else
|
||
|
|
minetest.show_formspec(clicker:get_player_name(),"currency:shop_formspec",currency.shop.formspec.customer(pos))
|
||
|
|
end
|
||
|
|
end,
|
||
|
|
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||
|
|
return count
|
||
|
|
end,
|
||
|
|
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||
|
|
return stack:get_count()
|
||
|
|
end,
|
||
|
|
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||
|
|
return stack:get_count()
|
||
|
|
end,
|
||
|
|
on_metadata_inventory_move = check_stock,
|
||
|
|
on_metadata_inventory_put = check_stock,
|
||
|
|
on_metadata_inventory_take = check_stock,
|
||
|
|
can_dig = function(pos, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
local inv = meta:get_inventory()
|
||
|
|
return inv:is_empty("stock") and inv:is_empty("customers_gave") and inv:is_empty("owner_wants") and inv:is_empty("owner_gives")
|
||
|
|
end
|
||
|
|
})
|
||
|
|
|
||
|
|
minetest.register_node("currency:shop_empty", {
|
||
|
|
description = S("Shop") .. " (" .. S("out of stock") .. ")",
|
||
|
|
paramtype2 = "facedir",
|
||
|
|
tiles = {"shop_top.png",
|
||
|
|
"shop_top.png",
|
||
|
|
"shop_side_empty.png",
|
||
|
|
"shop_side_empty.png",
|
||
|
|
"shop_side_empty.png",
|
||
|
|
"shop_front_empty.png"},
|
||
|
|
drop = "currency:shop",
|
||
|
|
groups = {choppy=2,oddly_breakable_by_hand=2,tubedevice=1,tubedevice_receiver=1,not_in_creative_inventory=1},
|
||
|
|
sounds = currency.node_sound_wood_defaults(),
|
||
|
|
after_dig_node = (have_pipeworks and pipeworks and pipeworks.after_dig),
|
||
|
|
tube = {
|
||
|
|
insert_object = function(pos, node, stack, direction)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
local inv = meta:get_inventory()
|
||
|
|
local result = inv:add_item("stock",stack)
|
||
|
|
check_stock(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
return result
|
||
|
|
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 = "customers_gave",
|
||
|
|
connect_sides = {left = 1, right = 1, back = 1, front = 1, bottom = 1, top = 1}
|
||
|
|
},
|
||
|
|
on_rightclick = function(pos, node, clicker, itemstack)
|
||
|
|
clicker:get_inventory():set_size("customer_gives", 3*2)
|
||
|
|
clicker:get_inventory():set_size("customer_gets", 3*2)
|
||
|
|
currency.shop.current_shop[clicker:get_player_name()] = pos
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if clicker:get_player_name() == meta:get_string("owner") and not clicker:get_player_control().aux1 then
|
||
|
|
minetest.show_formspec(clicker:get_player_name(),"currency:shop_formspec",currency.shop.formspec.owner(pos))
|
||
|
|
else
|
||
|
|
minetest.show_formspec(clicker:get_player_name(),"currency:shop_formspec",currency.shop.formspec.customer(pos))
|
||
|
|
end
|
||
|
|
end,
|
||
|
|
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||
|
|
return count
|
||
|
|
end,
|
||
|
|
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||
|
|
return stack:get_count()
|
||
|
|
end,
|
||
|
|
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||
|
|
return stack:get_count()
|
||
|
|
end,
|
||
|
|
on_metadata_inventory_move = check_stock,
|
||
|
|
on_metadata_inventory_put = check_stock,
|
||
|
|
on_metadata_inventory_take = check_stock,
|
||
|
|
can_dig = function(pos, player)
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
local inv = meta:get_inventory()
|
||
|
|
return inv:is_empty("stock") and inv:is_empty("customers_gave") and inv:is_empty("owner_wants") and inv:is_empty("owner_gives")
|
||
|
|
end
|
||
|
|
})
|
||
|
|
|
||
|
|
minetest.register_on_player_receive_fields(function(sender, formname, fields)
|
||
|
|
if formname == "currency:shop_formspec" and fields.exchange ~= nil and fields.exchange ~= "" then
|
||
|
|
local name = sender:get_player_name()
|
||
|
|
local pos = currency.shop.current_shop[name]
|
||
|
|
local meta = minetest.get_meta(pos)
|
||
|
|
if meta:get_string("owner") == name then
|
||
|
|
minetest.chat_send_player(name, S("This is your own shop, you can't exchange to yourself!"))
|
||
|
|
else
|
||
|
|
local minv = meta:get_inventory()
|
||
|
|
local pinv = sender:get_inventory()
|
||
|
|
local invlist_tostring = function(invlist)
|
||
|
|
local out = {}
|
||
|
|
for i, item in pairs(invlist) do
|
||
|
|
out[i] = item:to_string()
|
||
|
|
end
|
||
|
|
return out
|
||
|
|
end
|
||
|
|
local wants = minv:get_list("owner_wants")
|
||
|
|
local gives = minv:get_list("owner_gives")
|
||
|
|
if wants == nil or gives == nil then return end -- do not crash the server
|
||
|
|
-- Check if we can exchange
|
||
|
|
local can_exchange = true
|
||
|
|
local owners_fault = false
|
||
|
|
for i, item in pairs(wants) do
|
||
|
|
if not pinv:contains_item("customer_gives",item) then
|
||
|
|
can_exchange = false
|
||
|
|
end
|
||
|
|
end
|
||
|
|
for i, item in pairs(gives) do
|
||
|
|
if not minv:contains_item("stock",item) then
|
||
|
|
can_exchange = false
|
||
|
|
owners_fault = true
|
||
|
|
end
|
||
|
|
end
|
||
|
|
if can_exchange then
|
||
|
|
for i, item in pairs(wants) do
|
||
|
|
pinv:remove_item("customer_gives",item)
|
||
|
|
minv:add_item("customers_gave",item)
|
||
|
|
end
|
||
|
|
for i, item in pairs(gives) do
|
||
|
|
minv:remove_item("stock",item)
|
||
|
|
pinv:add_item("customer_gets",item)
|
||
|
|
end
|
||
|
|
minetest.chat_send_player(name, S("Exchanged!"))
|
||
|
|
check_stock(
|
||
|
|
pos
|
||
|
|
)
|
||
|
|
else
|
||
|
|
if owners_fault then
|
||
|
|
minetest.chat_send_player(name, S("Exchange can not be done, contact the shop owner."))
|
||
|
|
else
|
||
|
|
minetest.chat_send_player(name, S("Exchange can not be done, check if you put all items!"))
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end)
|