default.shop = {} default.shop.current_shop = {} default.shop.formspec = { customer = function(pos) local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z local formspec = "size[8,9.5]".. "label[0,0;Customer gives (pay here !)]".. "list[current_player;customer_gives;0,0.5;3,2;]".. "label[0,2.5;Customer gets]".. "list[current_player;customer_gets;0,3;3,2;]".. "label[5,0;Owner wants]".. "list["..list_name..";owner_wants;5,0.5;3,2;]".. "label[5,2.5;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;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;Customers gave:]".. "list["..list_name..";customers_gave;0,0.5;3,2;]".. "label[0,2.5;Your stock:]".. "list["..list_name..";stock;0,3;3,2;]".. "label[5,0;You want:]".. "list["..list_name..";owner_wants;5,0.5;3,2;]".. "label[5,2.5;In exchange, you give:]".. "list["..list_name..";owner_gives;5,3;3,2;]".. "label[0,5;Owner, Use(E)+Place(RMB) for customer interface]".. "list[current_player;main;0,5.5;8,4;]" return formspec end, } default.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 default.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 default.shop.cancel = function(meta) --[[default.shop.give_inventory(meta:get_inventory(),"pl1",meta:get_string("pl1")) default.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 default.shop.exchange = function(meta) --[[default.shop.give_inventory(meta:get_inventory(),"pl1",meta:get_string("pl2")) default.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 minetest.register_node("currency:shop", { description = "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 = default.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", "Exchange shop (owned by "..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 minetest.get_modpath("pipeworks") then pipeworks.after_place(pos) end end, after_dig_node = (pipeworks and pipeworks.after_dig), 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 = "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) default.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",default.shop.formspec.owner(pos)) else minetest.show_formspec(clicker:get_player_name(),"currency:shop_formspec",default.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, 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 = default.shop.current_shop[name] local meta = minetest.get_meta(pos) if meta:get_string("owner") == name then minetest.chat_send_player(name,"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,"Exchanged!") else if owners_fault then minetest.chat_send_player(name,"Exchange can not be done, contact the shop owner.") else minetest.chat_send_player(name,"Exchange can not be done, check if you put all items !") end end end end end)