summaryrefslogtreecommitdiff
path: root/currency/shop.lua
diff options
context:
space:
mode:
Diffstat (limited to 'currency/shop.lua')
-rw-r--r--currency/shop.lua434
1 files changed, 217 insertions, 217 deletions
diff --git a/currency/shop.lua b/currency/shop.lua
index 301a08c..6f7d264 100644
--- a/currency/shop.lua
+++ b/currency/shop.lua
@@ -1,217 +1,217 @@
--- internationalization boilerplate
-local MP = minetest.get_modpath(minetest.get_current_modname())
-local S, NS = dofile(MP.."/intllib.lua")
-
-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;" .. 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[5,0;" .. S("You want:") .. "]"..
- "list["..list_name..";owner_wants;5,0.5;3,2;]"..
- "label[5,2.5;" .. S("In exchange, you give:") .. "]"..
- "list["..list_name..";owner_gives;5,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")
-
-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 = 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 = 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", 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
- 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()
- 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,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!"))
- 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)
-
+-- internationalization boilerplate
+local MP = minetest.get_modpath(minetest.get_current_modname())
+local S, NS = dofile(MP.."/intllib.lua")
+
+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;" .. 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[5,0;" .. S("You want:") .. "]"..
+ "list["..list_name..";owner_wants;5,0.5;3,2;]"..
+ "label[5,2.5;" .. S("In exchange, you give:") .. "]"..
+ "list["..list_name..";owner_gives;5,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")
+
+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 = 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 = 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", 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
+ 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()
+ 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,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!"))
+ 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)
+