mirror of
https://codeberg.org/usrib/emeraldbank.git
synced 2024-10-05 17:33:05 +02:00
261 lines
8.0 KiB
Lua
261 lines
8.0 KiB
Lua
|
|
||
|
|
||
|
-- Copyright (C) 2021, 2022 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 atm.ensure_init(name)
|
||
|
-- Ensure the atm account for the placer specified by name exists
|
||
|
atm.readaccounts()
|
||
|
if not atm.balance[name] then
|
||
|
atm.balance[name] = atm.startbalance
|
||
|
end
|
||
|
end
|
||
|
|
||
|
|
||
|
-- banking accounts storage
|
||
|
|
||
|
function atm.readaccounts ()
|
||
|
local b = atm.balance
|
||
|
local file = io.open(atm.pth, "r")
|
||
|
if file then
|
||
|
repeat
|
||
|
local balance = file:read("*n")
|
||
|
if balance == nil then
|
||
|
break
|
||
|
end
|
||
|
local name = file:read("*l")
|
||
|
b[name:sub(2)] = balance
|
||
|
until file:read(0) == nil
|
||
|
io.close(file)
|
||
|
end
|
||
|
end
|
||
|
|
||
|
function atm.saveaccounts()
|
||
|
if not atm.balance then
|
||
|
return
|
||
|
end
|
||
|
local data = {}
|
||
|
for k, v in pairs(atm.balance) do
|
||
|
table.insert(data, string.format("%d %s\n", v, k))
|
||
|
end
|
||
|
|
||
|
local output = io.open(atm.pth, "w")
|
||
|
output:write(table.concat(data))
|
||
|
io.close(output)
|
||
|
end
|
||
|
|
||
|
function emeraldbank.update_account()
|
||
|
atm.readaccounts()
|
||
|
for _, player in ipairs(core.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")
|
||
|
local name = player:get_player_name()
|
||
|
if atm.balance[name] then
|
||
|
atm.balance[name] = math.floor(atm.balance[name] + bankemeralds)
|
||
|
else
|
||
|
atm.balance[name] = bankemeralds
|
||
|
end
|
||
|
meta:set_int("emeraldbank:emerald", 0)
|
||
|
-- backup
|
||
|
meta:set_int("emeraldbank:emerald_backup", bankemeralds)
|
||
|
end
|
||
|
atm.saveaccounts()
|
||
|
end
|
||
|
|
||
|
function emeraldbank.old_add_emeralds(player, num)
|
||
|
if not player then return false end
|
||
|
local meta = player:get_meta()
|
||
|
local bankemeralds = meta:get_int("emeraldbank:emerald") -- if nil "get_int()" return 0 Magic!
|
||
|
local name = player:get_player_name()
|
||
|
if num then
|
||
|
meta:set_int("emeraldbank:emerald", bankemeralds+num)
|
||
|
mcl_title.set(player, "actionbar", {text=S("Emeralds in Bank: @1", bankemeralds+num), color="yellow"})
|
||
|
return true
|
||
|
end
|
||
|
return false
|
||
|
end
|
||
|
|
||
|
function emeraldbank.add_emeralds(player, num)
|
||
|
atm.readaccounts()
|
||
|
if not player then return false end
|
||
|
local meta = player:get_meta()
|
||
|
local name = player:get_player_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.saveaccounts()
|
||
|
return true
|
||
|
end
|
||
|
return false
|
||
|
end
|
||
|
|
||
|
function emeraldbank.transfer_emeralds(player1, player2, num)
|
||
|
atm.readaccounts()
|
||
|
local name = player1:get_player_name()
|
||
|
local name2 = player2:get_player_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))
|
||
|
if core.get_modpath("irc") then
|
||
|
irc.say(name.." has transferred "..num.." emeralds to "..name2)
|
||
|
end
|
||
|
if core.get_modpath("yl_matterbridge") then
|
||
|
yl_matterbridge.send_to_bridge("", name.." has transferred "..num.." emeralds to "..name2)
|
||
|
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.keep(player, itemstack)
|
||
|
local itemname = itemstack:get_name()
|
||
|
local itemcount = itemstack:get_count()
|
||
|
local name = player:get_player_name()
|
||
|
if itemname == "mcl_core:emerald" then
|
||
|
itemstack:take_item(itemcount)
|
||
|
emeraldbank.add_emeralds(player, itemcount)
|
||
|
return true
|
||
|
end
|
||
|
if itemname == "mcl_core:emeraldblock" then
|
||
|
itemstack:take_item(itemcount)
|
||
|
emeraldbank.add_emeralds(player, itemcount*9)
|
||
|
return true
|
||
|
end
|
||
|
mcl_title.set(player, "actionbar", {text=S("You need keep emeralds or emeraldblocks in your hand!"), color="dark_red"})
|
||
|
return false
|
||
|
end
|
||
|
|
||
|
function emeraldbank.take(player)
|
||
|
local meta = player:get_meta()
|
||
|
local bankemeralds = meta:get_int("emeraldbank:emerald")
|
||
|
local name = player:get_player_name()
|
||
|
local pos = player:get_pos()
|
||
|
local num = 1
|
||
|
if bankemeralds >= 1 then
|
||
|
if bankemeralds >= 10 then
|
||
|
num = 10
|
||
|
end
|
||
|
emeraldbank.add_emeralds(player, -num)
|
||
|
core.add_item(pos, "mcl_core:emerald "..num)
|
||
|
return true
|
||
|
end
|
||
|
mcl_title.set(player, "actionbar", {text=S("Not enough Emeralds in your account"), color="dark_red"})
|
||
|
return false
|
||
|
end
|
||
|
|
||
|
|
||
|
-- wire transfer data storage
|
||
|
|
||
|
function atm.read_transactions()
|
||
|
local file = io.open(atm.pth_wt, "r")
|
||
|
if file then
|
||
|
local data = file:read("*all")
|
||
|
atm.completed_transactions = minetest.deserialize(data)
|
||
|
end
|
||
|
end
|
||
|
|
||
|
function atm.write_transactions()
|
||
|
if not atm.completed_transactions then
|
||
|
return
|
||
|
end
|
||
|
local file = io.open(atm.pth_wt, "w")
|
||
|
local data = minetest.serialize(atm.completed_transactions)
|
||
|
file:write(data)
|
||
|
io.close(file)
|
||
|
end
|
||
|
|
||
|
|
||
|
|
||
|
minetest.register_on_joinplayer(atm.readaccounts)
|
||
|
minetest.register_on_joinplayer(emeraldbank.update_account)
|
||
|
|
||
|
|
||
|
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
|
||
|
-- 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.)
|
||
|
local owner = old_meta:get_string("owner") or ""
|
||
|
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 meta = minetest.get_meta(pos)
|
||
|
meta:set_string("owner", owner or "")
|
||
|
|
||
|
-- Set default meta
|
||
|
meta:set_string("log", minetest.serialize({"Vendor placed by "..owner,}))
|
||
|
emeraldbank.reset_vendor_settings(pos)
|
||
|
emeraldbank.refresh_vendor(pos)
|
||
|
else
|
||
|
minetest.chat_send_player(owner, S("Vendors require 2 nodes of space."))
|
||
|
end
|
||
|
|
||
|
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 minv = meta:get_inventory()
|
||
|
local settings = emeraldbank.get_vendor_settings(pos)
|
||
|
settings.input_item = "mcl_core:emerald"
|
||
|
settings.input_item_qty = price
|
||
|
settings.output_item = shop_item
|
||
|
settings.output_item_qty = count
|
||
|
|
||
|
emeraldbank.refresh_vendor(pos)
|
||
|
end
|