emeraldbank/functions.lua
2023-11-19 21:40:26 +01:00

200 lines
6.5 KiB
Lua

-- Copyright (C) 2021, 2023 Ale
-- This file is part of Emeraldbank Minetest Mod.
-- Emeraldbank is free software: you can redistribute it and/or modify
-- it under the terms of the GNU Affero General Public License as
-- published by the Free Software Foundation, either version 3 of the
-- License, or (at your option) any later version.
-- Emeraldbank is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU Affero General Public License for more details.
-- You should have received a copy of the GNU Affero General Public License
-- along with Emeraldbank. If not, see <https://www.gnu.org/licenses/>.
local S = core.get_translator(core.get_current_modname())
function emeraldbank.get_emeralds(name)
atm.read_account(name)
return atm.balance[name]
end
function emeraldbank.add_emeralds(player, num)
if not player then return false end
local meta = player:get_meta()
local name = player:get_player_name()
atm.read_account(name)
if num then
if atm.balance[name] then
atm.balance[name] = math.floor(atm.balance[name] + num)
else
atm.balance[name] = num
end
mcl_title.set(player, "actionbar", {text=S("Emeralds in Bank: @1", atm.balance[name]), color="yellow"})
atm.save_account(name)
return true
end
return false
end
function emeraldbank.update_accounts()
for _, player in ipairs(minetest.get_connected_players()) do
if not player or player.is_fake_player then return end
local meta = player:get_meta()
local bankemeralds = meta:get_int("emeraldbank:emerald")
if bankemeralds > 0 then
emeraldbank.add_emeralds(player, bankemeralds)
meta:set_int("emeraldbank:emerald", 0)
return true
end
return false
end
end
function emeraldbank.inv_emeralds_to_stonks(pos)
local meta = core.get_meta(pos)
local inv = meta:get_inventory()
local stonks = meta:get_int("stonks")
local fancy_inv = inv:get_list("main")
if not fancy_inv then return end
local has_emerald = inv:contains_item("main", "mcl_core:emerald 1", true)
if has_emerald then
meta:set_int("stonks", stonks+1)
inv:remove_item("main", "mcl_core:emerald 1")
emeraldbank.inv_emeralds_to_stonks(pos)
return true
else
return false
end
end
function emeraldbank.get_stonks(pos)
local meta = core.get_meta(pos)
local owner = meta:get_string("owner")
local player = core.get_player_by_name(owner)
local is_online = core.player_exists(owner)
emeraldbank.inv_emeralds_to_stonks(pos)
local stonks = meta:get_int("stonks")
if not player or player.is_fake_player then return end
if is_online and stonks > 0 then
core.sound_play("cash", {
to_player = owner,
gain = 1.0,
fade = 0.0,
pitch = 1.0,
})
emeraldbank.add_emeralds(player, stonks)
meta:set_int("stonks", 0)
core.chat_send_player(owner, S("You've earned @1 Emeralds with your shops.", stonks))
end
end
function emeraldbank.transfer_emeralds(player1, player2, num)
local name = player1:get_player_name()
local name2 = player2:get_player_name()
atm.read_account(name)
local bankemeralds1 = atm.balance[name]
if num > 0 then
if bankemeralds1 and bankemeralds1 >= num then
core.chat_send_player(name, S("Pay Successfully! You have transferred @1 Emeralds." , num))
core.chat_send_player(name2, S("Pay Successfully! You've gotten @1 Emeralds.", num))
local msg = S("@1 has transferred @2 emeralds to @3", name, num, name2)
if core.get_modpath("irc") then
irc.say(msg)
end
if core.get_modpath("yl_matterbridge") then
yl_matterbridge.send_to_bridge("EMERALDBANK", msg)
end
if core.get_modpath("beerchat") then
beerchat.on_channel_message(beerchat.main_channel_name, "EMERALDBANK", msg)
end
emeraldbank.add_emeralds(player1, -num)
emeraldbank.add_emeralds(player2, num)
core.sound_play("cash", {
to_player = name2,
gain = 1.0,
fade = 0.0,
pitch = 1.0,
})
else
core.chat_send_player(name, S("Not enough Emeralds in your account"))
end
else
core.chat_send_player(name, S("Invalid pay"))
end
end
function emeraldbank.upgrade_shop(pos)
local oldnode = core.get_node(pos)
local old_meta = core.get_meta(pos)
local old_meta_table = core.get_meta(pos):to_table()
local nodename = core.get_node(pos).name
local old_inv = old_meta:get_inventory()
local old_list = old_inv:get_list("stock")
local old_stack = old_inv:get_stack("stock", 1)
-- set the new shop node
core.swap_node(pos, {name = "fancy_vend:player_vendor"})
-- setup the new shop node
-- Set variables for access later (for various checks, etc.)
pos.y = pos.y + 1
-- local above_node = minetest.get_node(pos).name
-- -- If node above is air or the display node, and it is not protected, attempt to place the vendor. If vendor sucessfully places, place display node above, otherwise alert the user
-- if (minetest.registered_nodes[above_node].buildable_to or above_node == "fancy_vend:display_node") and not minetest.is_protected(pos, owner) then
-- if above_node ~= "fancy_vend:display_node" then
-- minetest.set_node(pos, minetest.registered_nodes["fancy_vend:display_node"])
-- end
-- Set owner
local owner = old_meta:get_string("owner") or ""
local meta = minetest.get_meta(pos)
meta:set_string("owner", owner)
-- Set default meta
meta:set_string("log", minetest.serialize({"Vendor placed by "..owner,}))
emeraldbank.reset_vendor_settings(pos)
emeraldbank.refresh_vendor(pos)
if minetest.get_modpath("pipeworks") then
pipeworks.after_place(pos)
end
-- copy old metadata in new node
core.get_meta(pos):from_table(old_meta_table)
-- new node
local node = core.get_node(pos)
local meta = core.get_meta(pos)
local count = meta:get_int("count")
local price = meta:get_int("price")
local shop_item = meta:get_string("shop_item")
local settings = emeraldbank.get_vendor_settings(pos)
-- settings
settings.input_item = "mcl_core:emerald"
settings.input_item_qty = price
settings.output_item = shop_item
settings.output_item_qty = count
-- inv
-- local inv = meta:get_inventory()
-- inv:set_size("main", 15*6)
-- inv:set_size("wanted_item", 1*1)
-- inv:set_size("given_item", 1*1)
-- inv:set_stack("main", i, old_stack)
emeraldbank.set_vendor_settings(pos, settings)
emeraldbank.refresh_vendor(pos)
end