emeraldbank/functions.lua
Freeman 2e6c271f40 emeraldbank mod now focuses only on the bank and the economy API
The shops will be separated in another mod
2024-05-27 19:58:18 +02:00

119 lines
3.9 KiB
Lua

-- Copyright (C) 2021, 2024 Sandro del Toro
-- 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
-- Accepts a player object or player name as input now
function emeraldbank.add_emeralds(player, num)
if not player then return false end
local name
if type(player) == "string" then
name = player
else
name = player:get_player_name()
end
atm.read_account(name)
-- Check if atm.balance[name] exists
if atm.balance[name] == nil then
return false
end
if num then
atm.balance[name] = math.floor(atm.balance[name] + num)
-- Update actionbar only if 'player' is a player object
if type(player) ~= "string" then
mcl_title.set(player, "actionbar", {text=S("Emeralds in Bank: @1", atm.balance[name]), color="yellow"})
end
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.transfer_emeralds(player1, player2, num)
-- Determine player names based on whether input is a string or player object
local name1 = type(player1) == "string" and player1 or player1:get_player_name()
local name2 = type(player2) == "string" and player2 or player2:get_player_name()
atm.read_account(name1)
local bankemeralds1 = atm.balance[name1]
if num > 0 then
if bankemeralds1 and bankemeralds1 >= num then
core.chat_send_player(name1, 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", name1, num, name2)
-- Integration with external mods
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(name1, -num) -- Now using name1 instead of player1
emeraldbank.add_emeralds(name2, num) -- Now using name2 instead of player2
-- Sound effect for player2
if type(player2) ~= "string" then
core.sound_play("cash", {
to_player = name2,
gain = 1.0,
fade = 0.0,
pitch = 1.0,
})
end
else
core.chat_send_player(name1, S("Not enough Emeralds in your account"))
end
else
core.chat_send_player(name1, S("Invalid pay"))
end
end