123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369 |
- 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)
|