-- Copyright (C) 2021 Sandro Del Toro De Ana
-- 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 General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- 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 General Public License for more details.
-- You should have received a copy of the GNU General Public License
-- along with Emeraldbank. If not, see .
local S = core.get_translator(core.get_current_modname())
local bankcraft = core.settings:get_bool("emeraldbank.craft") or true
local income_enabled = core.settings:get_bool("emeraldbank.income_enabled", true)
local income_count = tonumber(core.settings:get("emeraldbank.income_count")) or 1
local income_period = tonumber(core.settings:get("emeraldbank.income_period")) or 1800
local maxbankgive = tonumber(core.settings:get("emeraldbank.max_bank_give")) or 100
emeraldbank = {}
function emeraldbank.keep(player, itemstack)
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()
local itemname = itemstack:get_name()
local itemcount = itemstack:get_count()
if itemname == "mcl_core:emerald" then
itemstack:take_item(itemcount)
meta:set_int("emeraldbank:emerald", bankemeralds+itemcount)
core.chat_send_player(name, S("Emeralds in Bank: @1", bankemeralds+itemcount) )
return true
end
if itemname == "mcl_core:emeraldblock" then
itemstack:take_item(itemcount*9)
meta:set_int("emeraldbank:emerald", bankemeralds+itemcount*9)
core.chat_send_player(name, S("Emeralds in Bank: @1", bankemeralds+itemcount*9) )
return true
end
core.chat_send_player(name, S("You need keep emeralds or emeraldblocks in your hand!") )
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
meta:set_int("emeraldbank:emerald", bankemeralds-num)
core.add_item(pos, "mcl_core:emerald "..num)
core.chat_send_player(name, S("Emeralds in Bank: @1", bankemeralds-num) )
return true
end
core.chat_send_player(name, S("Not enough Emeralds in your account") )
return false
end
-- register bank node
core.register_node("emeraldbank:bank", {
description = S("Emerald Bank"),
_doc_items_longdesc = S("This block can keep your emeralds."),
is_ground_content = false,
tiles = {"default_steel_block.png", "default_steel_block.png", "default_steel_block.png^mcl_core_emerald.png"},
stack_max = 64,
groups = {pickaxey=1, handy=1, building_block=1, enderman_takable=1},
sounds = mcl_sounds.node_sound_metal_defaults(),
_mcl_blast_resistance = 5,
_mcl_hardness = 1,
on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
emeraldbank.keep(clicker, itemstack)
end,
on_punch = function(pos, node, puncher, pointed_thing)
emeraldbank.take(puncher)
end,
})
if bankcraft then
core.register_craft({
output = "emeraldbank:bank",
recipe = {
{"mcl_core:emerald", "mcl_core:emerald", "mcl_core:emerald"},
{"mcl_core:emerald", "mcl_core:ironblock", "mcl_core:emerald"},
{"mcl_core:emerald", "mcl_core:emerald", "mcl_core:emerald"},
}
})
end
-- user /pay chat command
core.register_chatcommand("pay", {
params = " ",
description = S("Pay money to other player. Transfer your emeralds to another bank account."),
func = function(name, param)
local player1 = core.get_player_by_name(name)
local playername2, stringnum = param:match("([^ ]+) (.+)")
local player2
local num = tonumber(stringnum)
if playername2 and num then
player2 = core.get_player_by_name(playername2)
end
if player2 and num then
local meta1 = player1:get_meta()
local meta2 = player2:get_meta()
local bankemeralds1 = meta1:get_int("emeraldbank:emerald")
local bankemeralds2 = meta2:get_int("emeraldbank:emerald")
if num > 0 then
if bankemeralds1 >= num then
meta1:set_int("emeraldbank:emerald", bankemeralds1-num)
meta2:set_int("emeraldbank:emerald", bankemeralds2+num)
core.chat_send_player(name, S("Pay Successfully! You have transferred @1 Emeralds. Now you have: @2", num, bankemeralds1-num) )
core.chat_send_player(playername2, S("Pay Successfully! You've gotten @1 Emeralds. Now you have: @2", num, bankemeralds2+num) )
else
core.chat_send_player(name, S("Not enough Emeralds in your account") )
end
else
core.chat_send_player(name, S("Invalid pay") )
end
return true
end
return false
end
})
-- admin chat command
core.register_chatcommand("emeraldbank", {
params = " ",
description = S("Admin Command! Add player emeralds in bank account, also can use negative numbers"),
privs = {server=true},
func = function(name, param)
local playername, stringnum = param:match("([^ ]+) (.+)")
local player
local num = tonumber(stringnum)
if playername and num then
player = core.get_player_by_name(playername)
end
if player and num then
local meta = player:get_meta()
local bankemeralds = meta:get_int("emeraldbank:emerald")
meta:set_int("emeraldbank:emerald", bankemeralds+num)
core.chat_send_player(name, S("Emeralds in @1 bank account: @2", playername, bankemeralds+num) )
return true
end
return false
end
})
-- income
if income_enabled then
local timer = 0
core.register_globalstep(
function(dtime)
timer = timer + dtime;
if timer >= income_period then
timer = 0
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 name = player:get_player_name()
local bankemeralds = meta:get_int("emeraldbank:emerald")
local bankgive = math.floor(bankemeralds^(1/3))
if bankgive > maxbankgive then bankgive = maxbankgive end
local earned = income_count+bankgive
local total = bankemeralds+earned
meta:set_int("emeraldbank:emerald", total)
core.chat_send_player(name, S("You have earned @1 emeralds in your bank account!", earned) )
end
end
end
)
end