mtcontrib/bitchange
1
0
Fork 1
mirror of https://github.com/SmallJoker/bitchange.git synced 2025-07-13 05:40:26 +02:00
Code Issues Releases Wiki Activity

Prevent a shop from trading tools deceptively.

Browse Source 
This limits the tools a shop will accept or give to those whose wear is less
than or equal to the tool shown in the Owner needs or Owner gives lists. This
protects both owners and customers from unfair trades. Owners are protected
from receiving worn out tools when a new tool is placed in the needs list.
Customers are protected from receiving worn out tools when a new one is placed
in the give list.
This commit is contained in:
Foz
2017-01-29 23:06:53 -05:00
parent 70f31b7631
commit a11dab9132
1 changed files with 28 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
shop.lua
View File

@ -5,6 +5,30 @@
local exchange_shop = {}
-- Tool wear aware replacement for contains_item.
local function list_contains_item(inv, list, stack)
for i, list_stack in pairs(inv:get_list(list)) do
if list_stack:get_name() == stack:get_name() and
list_stack:get_count() >= stack:get_count() and
list_stack:get_wear() <= stack:get_wear() then
return true, i
end
end
return false, nil
end
-- Tool wear aware replacement for remove_item.
local function list_remove_item(inv, list, stack)
local contains, index = list_contains_item(inv, list, stack)
if contains then
local list_stack = inv:get_stack(list, index)
local removed_stack = list_stack:take_item(stack:get_count())
inv:set_stack(list, index, list_stack)
return removed_stack
end
return false
end
local function get_exchange_shop_formspec(number,pos,title)
local formspec = ""
local name = "nodemeta:"..pos.x..","..pos.y..","..pos.z
@ -200,7 +224,7 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
-- Check availability of the shop's items
if err_msg == "" then
for i, item in pairs(cust_og) do
if not shop_inv:contains_item("stock", item) then
if not list_contains_item(shop_inv, "stock", item) then
err_msg = "This shop is sold out."
break
end
@ -220,7 +244,7 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
-- Check availability of the player's items
if err_msg == "" then
for i, item in pairs(cust_ow) do
if not player_inv:contains_item("main", item) then
if not list_contains_item(player_inv, "main", item) then
err_msg = "You do not have the required items."
break
end
@ -231,7 +255,7 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
if err_msg == "" then
local fully_exchanged = true
for i, item in pairs(cust_ow) do
local stack = player_inv:remove_item("main", item)
local stack = list_remove_item(player_inv, "main", item)
if shop_inv:room_for_item("custm", stack) then
shop_inv:add_item("custm", stack)
else
@ -241,7 +265,7 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
end
end
for i, item in pairs(cust_og) do
local stack = shop_inv:remove_item("stock", item)
local stack = list_remove_item(shop_inv, "stock", item)
if player_inv:room_for_item("main", stack) then
player_inv:add_item("main", stack)
else