Commit 2efeb2e0 authored by Milan's avatar Milan
Browse files
parents 750d0f85 0fbda6a4
......@@ -18,4 +18,6 @@ Dependencies:
money2 (optional)
currency (optional)
Forum link: https://forum.minetest.net/viewtopic.php?id=7821
Forum link: https://forum.minetest.net/viewtopic.php?id=7821
Requires Minetest 0.4.14 (stable) or newer.
default
moreores?
technic_worldgen?
wrench?
quartz?
pipeworks?
money?
......
......@@ -68,7 +68,11 @@ end
-- Privs
minetest.register_privilege("bitchange", "Can access to owned nodes of the bitchange mod")
function bitchange.has_access(owner, player_name)
return (player_name == owner or owner == "" or minetest.get_player_privs(player_name).server or minetest.get_player_privs(player_name).bitchange)
if player_name == owner or owner == "" then
return true
end
local privs = minetest.get_player_privs(player_name)
return privs.server or privs.bitchange
end
print("[BitChange] Loaded.")
......@@ -5,7 +5,7 @@
-- Node definitions
minetest.register_node("bitchange:minecoin_in_ground", {
description = "MineCoin Ore",
tile_images = { "default_stone.png^bitchange_minecoin_in_ground.png" },
tiles = { "default_stone.png^bitchange_minecoin_in_ground.png" },
is_ground_content = true,
groups = {cracky=2},
sounds = default.node_sound_stone_defaults(),
......@@ -20,7 +20,7 @@ minetest.register_node("bitchange:minecoin_in_ground", {
minetest.register_node("bitchange:mineninth_in_ground", {
description = "MineNinth Ore",
tile_images = { "default_stone.png^bitchange_mineninth_in_ground.png" },
tiles = { "default_stone.png^bitchange_mineninth_in_ground.png" },
is_ground_content = true,
groups = {cracky=3},
sounds = default.node_sound_stone_defaults(),
......@@ -36,7 +36,7 @@ minetest.register_node("bitchange:mineninth_in_ground", {
minetest.register_node("bitchange:minecoinblock", {
description = "MineCoin Block",
tile_images = { "bitchange_minecoinblock.png" },
tiles = { "bitchange_minecoinblock.png" },
is_ground_content = true,
groups = {cracky=2},
sounds = default.node_sound_stone_defaults(),
......@@ -121,8 +121,8 @@ minetest.register_ore({
clust_scarcity = 15*15*15,
clust_num_ores = 3,
clust_size = 7,
height_max = -512,
height_min = -18000,
y_max = -512,
y_min = -18000,
})
minetest.register_ore({
......@@ -132,8 +132,8 @@ minetest.register_ore({
clust_scarcity = 12*12*12,
clust_num_ores = 5,
clust_size = 8,
height_max = -256,
height_min = -511,
y_max = -256,
y_min = -511,
})
minetest.register_ore({
......@@ -143,7 +143,7 @@ minetest.register_ore({
clust_scarcity = 13*13*13,
clust_num_ores = 3,
clust_size = 7,
height_max = 28000,
height_min = -255,
y_max = 28000,
y_min = -255,
})
end
\ No newline at end of file
end
--Created by Krock for the BitChange mod
--Parts of codes, images and ideas from Dan Duncombe's exchange shop
-- https://forum.minetest.net/viewtopic.php?id=7002
--License: WTFPL
--[[
Exchange Shop [bitchange]
This code is based on the idea of Dan Duncombe's exchange shop
https://web.archive.org/web/20160403113102/https://forum.minetest.net/viewtopic.php?id=7002
You do not need the entire bitchange mod to use this code.
Make sure you've got all textures to use it in a separate mod.
License: WTFPL
]]
if not bitchange then
-- Default values, if bitchange wasn't found.
bitchange = {}
bitchange.exchangeshop_pipeworks = true
function bitchange.has_access(owner, player_name)
return (player_name == owner or owner == ""
or minetest.get_player_privs(player_name).server)
end
end
local exchange_shop = {}
local function get_exchange_shop_formspec(number,pos,title)
local formspec = ""
-- Tool wear aware replacement for contains_item.
local function list_contains_item(inv, listname, stack)
local count = stack:get_count()
if count == 0 then
return true
end
local list = inv:get_list(listname)
local name = stack:get_name()
local wear = stack:get_wear()
for _, list_stack in pairs(list) do
if list_stack:get_name() == name and
list_stack:get_wear() <= wear then
if list_stack:get_count() >= count then
return true
else
count = count - list_stack:get_count()
end
end
end
end
-- Tool wear aware replacement for remove_item.
local function list_remove_item(inv, listname, stack)
local wanted = stack:get_count()
if wanted == 0 then
return stack
end
local list = inv:get_list(listname)
local name = stack:get_name()
local wear = stack:get_wear()
local remaining = wanted
local removed_wear = 0
for index, list_stack in pairs(list) do
if list_stack:get_name() == name and
list_stack:get_wear() <= wear then
local taken_stack = list_stack:take_item(remaining)
inv:set_stack(listname, index, list_stack)
removed_wear = math.max(removed_wear, taken_stack:get_wear())
remaining = remaining - taken_stack:get_count()
if remaining == 0 then
break
end
end
end
-- Todo: Also remove kebab
local removed_stack = ItemStack(name)
removed_stack:set_count(wanted - remaining)
removed_stack:set_wear(removed_wear)
return removed_stack
end
local function get_exchange_shop_formspec(mode, pos, title)
local name = "nodemeta:"..pos.x..","..pos.y..","..pos.z
if number == 1 then
if mode == "customer" then
-- customer
formspec = ("size[8,9;]"..
"label[0,0;Exchange shop]"..
"label[1,0.5;Owner needs:]"..
"list["..name..";cust_ow;1,1;2,2;]"..
"button[3,2.4;2,1;exchange;Exchange]"..
"label[5,0.5;Owner gives:]"..
"list["..name..";cust_og;5,1;2,2;]"..
"label[0.7,3.5;Ejected items:]"..
"label[0.7,3.8;(Remove me!)]"..
"list["..name..";cust_ej;3,3.5;4,1;]"..
"list[current_player;main;0,5;8,4;]"..
"listring["..name..";custm_ej]"..
"listring[current_player;main]")
elseif number == 2 or number == 3 then
return (
"size[8,9;]"..
"label[0,0;Exchange shop]"..
"label[1,0.5;Owner needs:]"..
"list["..name..";cust_ow;1,1;2,2;]"..
"button[3,2.4;2,1;exchange;Exchange]"..
"label[5,0.5;Owner gives:]"..
"list["..name..";cust_og;5,1;2,2;]"..
"label[0.7,3.5;Ejected items:]"..
"label[0.7,3.8;(Remove me!)]"..
"list["..name..";cust_ej;3,3.5;4,1;]"..
"list[current_player;main;0,5;8,4;]"..
"listring["..name..";custm_ej]"..
"listring[current_player;main]"
)
end
if mode == "owner_custm"
or mode == "owner_stock" then
-- owner
formspec = ("size[11,10;]"..
"label[0.3,0.1;Title:]"..
"field[1.5,0.5;3,0.5;title;;"..title.."]"..
"button[4.1,0.24;1,0.5;set_title;Set]"..
"label[0,0.7;You need:]"..
"list["..name..";cust_ow;0,1.2;2,2;]"..
"label[3,0.7;You give:]"..
"list["..name..";cust_og;3,1.2;2,2;]"..
"label[0.3,3.5;Ejected items: (Remove me!)]"..
"list["..name..";custm_ej;0,4;4,1;]"..
"label[6,0;You are viewing:]"..
"label[6,0.3;(Click to switch)]"..
"listring["..name..";custm_ej]"..
"listring[current_player;main]")
if number == 2 then
local formspec = (
"size[11,10;]"..
"label[0.3,0.1;Title:]"..
"field[1.5,0.5;3,0.5;title;;"..title.."]"..
"field_close_on_enter[title;false]"..
"button[4.1,0.2;1,0.5;set_title;Set]"..
"label[0,0.7;You need:]"..
"list["..name..";cust_ow;0,1.2;2,2;]"..
"label[3,0.7;You give:]"..
"list["..name..";cust_og;3,1.2;2,2;]"..
"label[0,3.5;Ejected items: (Remove me!)]"..
"list["..name..";custm_ej;0,4;4,1;]"..
"label[6,0;You are viewing:]"..
"label[6,0.3;(Click to switch)]"..
"listring["..name..";custm_ej]"..
"listring[current_player;main]"
)
if mode == "owner_custm" then
formspec = (formspec..
"button[8.5,0.2;2.5,0.5;vstock;Customers stock]"..
"list["..name..";custm;6,1;5,4;]"..
......@@ -53,47 +133,47 @@ local function get_exchange_shop_formspec(number,pos,title)
"listring["..name..";stock]"..
"listring[current_player;main]")
end
formspec = (formspec..
"label[1,5;Use (E) + (Right click) for customer interface]"..
"list[current_player;main;1,6;8,4;]")
return (formspec..
"label[1,5;Use (E) + (Right click) for customer interface]"..
"list[current_player;main;1,6;8,4;]")
end
return formspec
return ""
end
local function get_exchange_shop_tube_config(mode)
if bitchange.exchangeshop_pipeworks then
if mode == 1 then
return {choppy=2, oddly_breakable_by_hand=2, tubedevice=1, tubedevice_receiver=1}
else
if mode == "groups" then
if bitchange.exchangeshop_pipeworks then
return {choppy=2, oddly_breakable_by_hand=2,
tubedevice=1, tubedevice_receiver=1}
end
return {choppy=2, oddly_breakable_by_hand=2}
end
if mode == "tube" then
if bitchange.exchangeshop_pipeworks then
return {
insert_object = function(pos, node, stack, direction)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
return inv:add_item("stock",stack)
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)
return inv:room_for_item("stock", stack)
end,
input_inventory="custm",
input_inventory = "custm",
connect_sides = {left=1, right=1, back=1, top=1, bottom=1}
}
end
else
if mode == 1 then
return {choppy=2,oddly_breakable_by_hand=2}
else
return {
insert_object = function(pos, node, stack, direction)
return false
end,
can_insert = function(pos, node, stack, direction)
return false
end,
connect_sides = {}
}
end
return {
insert_object = function()
return false
end,
can_insert = function()
return false
end,
connect_sides = {}
}
end
end
......@@ -101,12 +181,13 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
if formname ~= "bitchange:shop_formspec" then
return
end
local player_name = sender:get_player_name()
if not exchange_shop[player_name] then
local pos = exchange_shop[player_name]
if not pos then
return
end
local pos = exchange_shop[player_name]
local meta = minetest.get_meta(pos)
local title = meta:get_string("title") or ""
local shop_owner = meta:get_string("owner")
......@@ -115,12 +196,14 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
return
end
if fields.set_title then
if fields.title and title ~= fields.title then
if fields.title then
if title ~= fields.title then
if fields.title ~= "" then
meta:set_string("infotext", "'"..fields.title.."' (owned by "..shop_owner..")")
meta:set_string("infotext", "'" .. fields.title
.. "' (owned by " .. shop_owner .. ")")
else
meta:set_string("infotext", "Exchange shop (owned by "..shop_owner..")")
meta:set_string("infotext", "Exchange shop (owned by "
.. shop_owner ..")")
end
meta:set_string("title", minetest.formspec_escape(fields.title))
end
......@@ -128,145 +211,159 @@ minetest.register_on_player_receive_fields(function(sender, formname, fields)
if fields.exchange then
local shop_inv = meta:get_inventory()
if shop_inv:is_empty("cust_ow") and shop_inv:is_empty("cust_og") then
if shop_inv:is_empty("cust_ow")
and shop_inv:is_empty("cust_og") then
return
end
if not shop_inv:is_empty("cust_ej") or not shop_inv:is_empty("custm_ej") then
minetest.chat_send_player(player_name, "Exchange shop: Error, ejected items detected!")
if not shop_inv:is_empty("cust_ej")
or not shop_inv:is_empty("custm_ej") then
minetest.chat_send_player(player_name,
"One or multiple ejection fields are filled. "..
"Please empty them or contact the shop owner.")
return
end
local player_inv = sender:get_inventory()
local err_msg = ""
local cust_ow = shop_inv:get_list("cust_ow")
local cust_og = shop_inv:get_list("cust_og")
local cust_ow_legal = true
local cust_og_legal = true
--?shop configured well
-- Check validness of stack "owner wants"
local cust_ow_ok = true
for i1, item1 in pairs(cust_ow) do
local name1 = item1:get_name()
for i2, item2 in pairs(cust_ow) do
if item1:get_name() == item2:get_name() and i1 ~= i2 and item1:get_name() ~= "" then
cust_ow_legal = false
--break
if name1 == "" then
break
end
if i1 ~= i2 and name1 == item2:get_name() then
cust_ow_ok = false
break
end
end
if not cust_ow_legal then
if not cust_ow_ok then
err_msg = "The field 'Owner needs' can not contain multiple "..
"times the same items. Please contact the shop owner."
break
end
end
if not cust_ow_legal then
err_msg = "The 'Owner needs' field can not contain multiple times the same items, contact the shop owner."
end
if err_msg == "" then --?shop configured well
-- Check validness of stack "owner gives"
if err_msg == "" then
local cust_og_ok = true
for i1, item1 in pairs(cust_og) do
local name1 = item1:get_name()
for i2, item2 in pairs(cust_og) do
if item1:get_name() == item2:get_name() and i1 ~= i2 and item1:get_name() ~= "" then
cust_og_legal = false
if name1 == "" then
break
end
if i1 ~= i2 and name1 == item2:get_name() then
cust_og_ok = false
break
end
end
if not cust_og_legal then
if not cust_og_ok then
err_msg = "The field 'Owner gives' can not contain multiple "..
"times the same items. Please contact the shop owner."
break
end
end
if not cust_og_legal then
err_msg = "The 'Owner gives' field can not contain multiple times the same items, contact the shop owner."
end
end
if err_msg == "" then --?shop has space
local shop_has_space = true
-- Check for space in the shop
if err_msg == "" then
for i, item in pairs(cust_ow) do
if not shop_inv:room_for_item("custm", item) then
shop_has_space = false
err_msg = "The stock in this shop is full. "..
"Please contact the shop owner."
break
end
end
if not shop_has_space then
err_msg = "The stock in the shop is full."
end
end
if err_msg == "" then --?shop has items
local shop_has_items = true
-- 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
shop_has_items = false
if not list_contains_item(shop_inv, "stock", item) then
err_msg = "This shop is sold out."
break
end
end
if not shop_has_items then
err_msg = "The shop is empty and can not give you anything."
end
end
if err_msg == "" then --?player has space
local player_has_space = true
-- Check for space in the player's inventory
if err_msg == "" then
for i, item in pairs(cust_og) do
if not player_inv:room_for_item("main", item) then
player_has_space = false
err_msg = "You do not have enough space in your inventory."
break
end
end
if not player_has_space then
err_msg = "You do not have the space in your inventory."
end
end
if err_msg == "" then --?player has items
local player_has_items = true
-- 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
player_has_items = false
if not list_contains_item(player_inv, "main", item) then
err_msg = "You do not have the required items."
break
end
end
if not player_has_items then
err_msg = "You do not have the needed items."
end
end
if err_msg == "" then --?exchange
-- Do the exchange!
if err_msg == "" then
local fully_exchanged = true
for i, item in pairs(cust_ow) do
player_inv:remove_item("main", item) --player inv. to stock else to eject fields
if shop_inv:room_for_item("custm", item) then
shop_inv:add_item("custm", 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
shop_inv:add_item("custm_ej", item)
-- Move to ejection field
shop_inv:add_item("custm_ej", stack)
fully_exchanged = false
end
end
for i, item in pairs(cust_og) do
shop_inv:remove_item("stock", item) --stock to player inv. else to eject fields
if player_inv:room_for_item("main", item) then
player_inv:add_item("main", 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
shop_inv:add_item("cust_ej", item)
-- Move to ejection field
shop_inv:add_item("cust_ej", stack)
fully_exchanged = false
end
end
if not fully_exchanged then
err_msg = "Fatal error! Stocks are overflowing somewhere!"
err_msg = "Warning! Stacks are overflowing somewhere!"
end
end
-- Throw error message
if err_msg ~= "" then
minetest.chat_send_player(player_name, "Exchange shop: "..err_msg)
end
elseif bitchange.has_access(shop_owner, player_name) then
local num = 0
local mode
if fields.vcustm then
num = 2
mode = "owner_custm"
elseif fields.vstock then
num = 3
mode = "owner_stock"
else
return
end
minetest.show_formspec(player_name, "bitchange:shop_formspec", get_exchange_shop_formspec(num, pos, title))
minetest.show_formspec(player_name, "bitchange:shop_formspec",
get_exchange_shop_formspec(mode, pos, title))
end
end)
minetest.register_node("bitchange:shop", {
minetest.register_node(":bitchange:shop", {
description = "Shop",
tiles = {"bitchange_shop_top.png", "bitchange_shop_top.png",
"bitchange_shop_side.png", "bitchange_shop_side.png",
"bitchange_shop_side.png", "bitchange_shop_front.png"},
paramtype2 = "facedir",
groups = get_exchange_shop_tube_config(1),
tube = get_exchange_shop_tube_config(2),
groups = get_exchange_shop_tube_config("groups"),
tube = get_exchange_shop_tube_config("tube"),
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
......@@ -290,29 +387,27 @@ minetest.register_node("bitchange:shop", {
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
if (inv:is_empty("stock") and inv:is_empty("custm") and
inv:is_empty("custm_ej") and inv:is_empty("cust_ow") and
inv:is_empty("cust_og") and inv:is_empty("cust_ej")) then
if inv:is_empty("stock") and inv:is_empty("custm")
and inv:is_empty("cust_ow") and inv:is_empty("custm_ej")
and inv:is_empty("cust_og") and inv:is_empty("cust_ej") then
return true
end
minetest.chat_send_player(player:get_player_name(), "Can not dig exchange shop, one or multiple stocks are in use.")
minetest.chat_send_player(player:get_player_name(),
"Cannot dig exchange shop: one or multiple stocks are in use.")
return false
end,
on_rightclick = function(pos, node, clicker, itemstack)
local meta = minetest.get_meta(pos)
local player_name = clicker:get_player_name()
local view = 0
exchange_shop[player_name] = pos
if player_name == meta:get_string("owner") then
if clicker:get_player_control().aux1 then
view = 1
else
view = 2
end
else
view = 1
local mode = "customer"
if bitchange.has_access(meta:get_string("owner"), player_name) and
not clicker:get_player_control().aux1 then
mode = "owner_custm"
end
minetest.show_formspec(player_name, "bitchange:shop_formspec", get_exchange_shop_formspec(view, pos, meta:get_string("title")))
exchange_shop[player_name] = pos
minetest.show_formspec(player_name, "bitchange:shop_formspec",
get_exchange_shop_formspec(mode, pos, meta:get_string("title")))
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
......@@ -326,12 +421,14 @@ minetest.register_node("bitchange:shop", {
return stack:get_count()
end
if listname == "custm" then
minetest.chat_send_player(player:get_player_name(), "Exchange shop: Please press 'Customers stock' and insert your items there.")
minetest.chat_send_player(player:get_player_name(),