Luanti-Minetest/bank_accounts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added new machines

Browse source
This commit is contained in:
Rainer 2025-08-22 02:10:35 +02:00
parent ceb168de55
commit 8603834f56
35 changed files with 2223 additions and 1204 deletions
Download patch file Download diff file Expand all files Collapse all files

260
computer.lua
View file

@ -1,17 +1,11 @@
--[[
Teller Computer Node
--------------------
This file defines the Teller Computer node, which allows players with
the 'bank_teller' privilege to manage other players' accounts.
--]]
-- computer.lua (Zurückgesetzt auf stabile Basis + Nur "System is busy" Logik hinzugefügt)
-- Uses the global 'pos_info' variable defined in atm.lua for consistency.
pos_data = {} -- Kept for historical reasons, but pos_info is used.
minetest.register_privilege("bank_teller", {
description = S("Qualified Bank Teller"),
})
pos_data = {}
-- Shows the main form for the teller.
-- @param player: The teller player object.
-- @param pos: The position of the computer node.
-- @param customer_name: The name of the customer being managed.
local function show_teller_form(player, pos, customer_name)
local list_name = "nodemeta:" .. pos.x .. "," .. pos.y .. "," .. pos.z
local data = {balance = 0, credit = 0}
@ -24,242 +18,118 @@ local function show_teller_form(player, pos, customer_name)
"list["..list_name..";ones;0,.25;1,1]" .. "list["..list_name..";fives;1.25,.25;1,1]" .. "list["..list_name..";tens;2.5,.25;1,1]" ..
"label[0.25,1.2;1 MG]" .. "label[1.5,1.2;5 MG]" .. "label[2.75,1.2;10 MG]" ..
"field[4,.5;4,1;playername;"..S("Player:")..";"..minetest.formspec_escape(customer_name or "").."]" ..
"field[.3,2.25;4,1;withdrawal;"..S("Withdraw:")..";]" ..
"field[.3,3.25;4,1;credit_debt;"..S("Credit Payment:")..";]" ..
"field[.3,2.25;4,1;withdrawal;"..S("Withdraw:")..";]" .. "field[.3,3.25;4,1;credit_debt;"..S("Credit Payment:")..";]" ..
"label[.5,4.5;"..S("Balance: @1", string.format("%.2f", data.balance).." MG").."]" ..
"label[.5,4.75;"..S("Credit Debt: @1", string.format("%.2f", data.credit).." MG").."]" ..
"button_exit[5.5,1;2,1;stats;"..S("Show Account").."]" ..
"button_exit[5.5,2;2,1;statement;"..S("Account Statement").."]" ..
"button_exit[5.5,3;2,1;wipe;"..S("Wipe Account").."]" ..
"button_exit[5.5,4;2,1;reset_pin;"..S("Reset PIN").."]" ..
"button_exit[3,5.5;2,1;exit;"..S("Cancel").."]" ..
"button_exit[5.5,5.5;2,1;enter;"..S("Enter").."]" ..
"button_exit[5.5,3;2,1;wipe;"..S("Wipe Account").."]" .. "button_exit[5.5,4;2,1;reset_pin;"..S("Reset PIN").."]" ..
"button_exit[3,5.5;2,1;exit;"..S("Cancel").."]" .. "button_exit[5.5,5.5;2,1;enter;"..S("Enter").."]" ..
"list[current_player;main;0,7;8,2.5;]"
minetest.show_formspec(player:get_player_name(), "bank_accounts:teller", formspec)
end
-- Shows the account statement form for a given customer.
local function show_statement_form(player, pos, customer_name, account_type)
local data = bank_accounts.get_account_data(customer_name)
local history = data.history
local lines = {}
local current_total_label = ""
local history = data.history; local lines = {}; local current_total_label = ""
table.insert(lines, minetest.formspec_escape(string.format("%-11s | %-13s | %-13s | %-20s | %-20s | %s", S("Date"), S("Amount"), S("New Balance"), S("Method"), S("Purpose"), S("Partner"))))
table.insert(lines, minetest.formspec_escape("-----------------------------------------------------------------------------------------"))
if history then
for _, t in ipairs(history) do
if t.account == account_type then
local parts = {}
table.insert(parts, string.format("%-11s", os.date("%Y-%m-%d", t.timestamp)))
table.insert(parts, string.format("%12s", string.format("%+.2f", t.amount) .. " MG"))
table.insert(parts, string.format("%12s", string.format("%.2f", t.new_total).." MG"))
table.insert(parts, string.format("%-20s", S(t.type)))
local purpose = t.purpose or ""
local partner = t.other or ""
if purpose ~= "" or partner ~= "" then
table.insert(parts, string.format("%-20s", purpose))
if partner ~= "" then
table.insert(parts, partner)
end
end
table.insert(lines, minetest.formspec_escape(table.concat(parts, " | ")))
end
end
end
if account_type == "balance" then
current_total_label = S("Current Balance: @1", string.format("%.2f", data.balance).." MG")
else
current_total_label = S("Current Credit Debt: @1", string.format("%.2f", data.credit).." MG")
end
if history then for _, t in ipairs(history) do if t.account == account_type then
local parts = {}; table.insert(parts, string.format("%-11s", os.date("%Y-%m-%d", t.timestamp))); table.insert(parts, string.format("%12s", string.format("%+.2f", t.amount) .. " MG")); table.insert(parts, string.format("%12s", string.format("%.2f", t.new_total).." MG")); table.insert(parts, string.format("%-20s", S(t.type)))
local purpose = t.purpose or ""; local partner = t.other or ""; if purpose ~= "" or partner ~= "" then table.insert(parts, string.format("%-20s", purpose)); if partner ~= "" then table.insert(parts, partner) end end
table.insert(lines, minetest.formspec_escape(table.concat(parts, " | ")))
end end end
if account_type == "balance" then current_total_label = S("Current Balance: @1", string.format("%.2f", data.balance).." MG") else current_total_label = S("Current Credit Debt: @1", string.format("%.2f", data.credit).." MG") end
local form_name = "bank_accounts:statement@" .. customer_name
local formspec = "size[13,9]" ..
"label[0,0;"..S("Account Statement for @1",customer_name).."]" ..
"button_exit[0,0.5;2,1;view_balance;"..S("Balance").."]" ..
"button_exit[2,0.5;2,1;view_credit;"..S("Credit").."]" ..
"textlist[0,1.2;13,7;statement_list;"..table.concat(lines,",").."]"..
"label[0,8.4;"..current_total_label.."]"..
"button_exit[11,8.4;2,1;back;"..S("Back").."]"
local formspec = "size[13,9]".."label[0,0;"..S("Account Statement for @1",customer_name).."]".."button_exit[0,0.5;2,1;view_balance;"..S("Balance").."]".."button_exit[2,0.5;2,1;view_credit;"..S("Credit").."]".."textlist[0,1.2;13,7;statement_list;"..table.concat(lines,",").."]".."label[0,8.4;"..current_total_label.."]".."button_exit[11,8.4;2,1;back;"..S("Back").."]"
minetest.show_formspec(player:get_player_name(), form_name, formspec)
end
-- Node definition for the Teller Computer.
minetest.register_node("bank_accounts:teller_computer", {
description = S("Bank Teller's Computer"),
drawtype = "mesh",
mesh = "computer.obj",
paramtype = "light",
paramtype2 = "facedir",
light_source = 5,
tiles = { {name="computer.png"},{name="computer_screen.png"} },
groups = {cracky=3, crumbly=3, oddly_breakable_by_hand=2},
selection_box = { type = "fixed", fixed = {{-.5,-.5,-.5,.5,.4,.2}} },
collision_box = { type = "fixed", fixed = {{-.5,-.5,-.5,.5,.4,.2}} },
on_construct = function(pos)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
inv:set_size("ones", 1)
inv:set_size("fives", 1)
inv:set_size("tens", 1)
end,
drawtype = "mesh", mesh = "computer.obj", paramtype = "light", paramtype2 = "facedir", light_source = 5,
tiles = {{name="computer.png"},{name="computer_screen.png"}}, groups = {cracky=3, crumbly=3, oddly_breakable_by_hand=2},
selection_box = {type="fixed",fixed={-0.5,-0.5,-0.5,0.5,0.4,0.2}}, collision_box = {type="fixed",fixed={-0.5,-0.5,-0.5,0.5,0.4,0.2}},
on_construct = function(pos) local meta = minetest.get_meta(pos); local inv = meta:get_inventory(); inv:set_size("ones", 1); inv:set_size("fives", 1); inv:set_size("tens", 1) end,
on_rightclick = function(pos, node, player, itemstack, pointed_thing)
pos_info = pos
local player_name = player:get_player_name()
if player:get_player_control().aux1 and minetest.check_player_privs(player_name, {server=true}) then
minetest.show_formspec(player_name, "bank_accounts:admin_teller",
"size[8,4]" ..
"field[.5,.5;4,1;search;"..S("Search:")..";]" ..
"button_exit[4.5,.22;2,1;search_button;"..S("Search").."]" ..
"label[.5,1.25;"..S("Player:").."]".. "label[3.5,1.25;"..S("Seized:").."]")
elseif minetest.check_player_privs(player_name, {bank_teller=true}) then
show_teller_form(player, pos, "")
else
minetest.chat_send_player(player_name, S("[Bank] Insufficient privileges."))
end
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if listname=="ones" and stack:get_name()~="currency:minegeld" then return 0 end
if listname=="fives" and stack:get_name()~="currency:minegeld_5" then return 0 end
if listname=="tens" and stack:get_name()~="currency:minegeld_10" then return 0 end
return stack:get_count()
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local inv=minetest.get_meta(pos):get_inventory()
local stack=inv:get_stack(from_list, from_index)
if to_list=="ones" and stack:get_name()~="currency:minegeld" then return 0 end
if to_list=="fives" and stack:get_name()~="currency:minegeld_5" then return 0 end
if to_list=="tens" and stack:get_name()~="currency:minegeld_10" then return 0 end
return count
if player:get_player_control().aux1 and minetest.check_player_privs(player_name, {server=true}) then minetest.show_formspec(player_name, "bank_accounts:admin_teller", "size[8,4]" .. "field[.5,.5;4,1;search;"..S("Search:")..";]" .. "button_exit[4.5,.22;2,1;search_button;"..S("Search").."]" .. "label[.5,1.25;"..S("Player:").."]".. "label[3.5,1.25;"..S("Seized:").."]")
elseif minetest.check_player_privs(player_name, {bank_teller=true}) then show_teller_form(player, pos, "")
else minetest.chat_send_player(player_name, S("[Bank] Insufficient privileges.")) end
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player) if listname=="ones" and stack:get_name()~="currency:minegeld" then return 0 end; if listname=="fives" and stack:get_name()~="currency:minegeld_5" then return 0 end; if listname=="tens" and stack:get_name()~="currency:minegeld_10" then return 0 end; return stack:get_count() end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player) local inv=minetest.get_meta(pos):get_inventory(); local stack=inv:get_stack(from_list, from_index); if to_list=="ones" and stack:get_name()~="currency:minegeld" then return 0 end; if to_list=="fives" and stack:get_name()~="currency:minegeld_5" then return 0 end; if to_list=="tens" and stack:get_name()~="currency:minegeld_10" then return 0 end; return count end,
})
-- Central handler for all Teller and Admin forms.
minetest.register_on_player_receive_fields(function(player, formname, fields)
if not formname:find("bank_accounts:teller") and not formname:find("bank_accounts:admin_teller") and not formname:find("bank_accounts:statement") then
return
end
if not formname:find("bank_accounts:teller") and not formname:find("bank_accounts:admin_teller") and not formname:find("bank_accounts:statement") then return end
local player_name = player:get_player_name()
local pos = pos_info
if not pos then
return
local player_name = player:get_player_name(); local pos = pos_info; if not pos then return end
local function on_fail()
minetest.chat_send_player(player_name, S("[Bank] System is busy, please try again in a moment."))
end
-- Admin search form.
if formname == "bank_accounts:admin_teller" then
if fields.search_button and fields.search and fields.search ~= "" then
local search_name=fields.search
local status
if not bank_accounts.player_has_account(search_name) then
status=S("No Account")
elseif minetest.check_player_privs(search_name,{seized=true}) then
status=S("Yes")
else
status=S("No")
end
minetest.show_formspec(player_name,formname,
"size[8,4]"..
"field[.5,.5;4,1;search;"..S("Search:")..";"..minetest.formspec_escape(search_name).."]"..
"button_exit[4.5,.22;2,1;search_button;"..S("Search").."]"..
"label[.5,1.25;"..S("Player:").."]".."label[3.5,1.25;"..S("Seized:").."]"..
"label[.5,1.75;"..minetest.formspec_escape(search_name).."]".."label[3.5,1.75;"..status.."]")
end
return
local search_name=fields.search; local status; if not bank_accounts.player_has_account(search_name) then status=S("No Account") elseif minetest.check_player_privs(search_name,{seized=true}) then status=S("Yes") else status=S("No") end; minetest.show_formspec(player_name,formname,"size[8,4]".."field[.5,.5;4,1;search;"..S("Search:")..";"..minetest.formspec_escape(search_name).."]".."button_exit[4.5,.22;2,1;search_button;"..S("Search").."]".."label[.5,1.25;"..S("Player:").."]".."label[3.5,1.25;"..S("Seized:").."]".."label[.5,1.75;"..minetest.formspec_escape(search_name).."]".."label[3.5,1.75;"..status.."]")
end; return
end
-- Main teller form.
if formname == "bank_accounts:teller" then
local customer_name = fields.playername
-- This validation logic is quirky but proven to be stable in the user's environment.
if (not customer_name or customer_name=="") and not fields.exit then
minetest.chat_send_player(player_name, S("[Bank] Must enter a player name."))
return
end
if (customer_name and customer_name~="" and not bank_accounts.player_has_account(customer_name)) and not fields.exit then
minetest.chat_send_player(player_name, S("[Bank] Invalid player name entered."))
return
end
-- Die "seltsame", aber für dich funktionierende Validierungslogik. Unverändert.
if (not customer_name or customer_name=="") and not fields.exit then minetest.chat_send_player(player_name, S("[Bank] Must enter a player name.")); return end
if (customer_name and customer_name~="" and not bank_accounts.player_has_account(customer_name)) and not fields.exit then minetest.chat_send_player(player_name, S("[Bank] Invalid player name entered.")); return end
-- Funktions-Wrapper beibehalten, da er in der funktionierenden Basis war.
local function show_updated_form(p, a_pos, c_name)
show_teller_form(p, a_pos, c_name)
end
if fields.stats then
show_teller_form(player, pos, customer_name)
show_updated_form(player, pos, customer_name)
elseif fields.statement then
show_statement_form(player, pos, customer_name, "balance")
elseif fields.wipe then
bank_accounts.set_balance(customer_name, 0, "Teller Wipe", S("Teller: @1", player_name), player_name)
show_teller_form(player, pos, customer_name)
if not bank_accounts.set_balance(customer_name, 0, "Teller Wipe", S("Teller: @1", player_name), player_name) then on_fail() end
show_updated_form(player, pos, customer_name)
elseif fields.reset_pin then
bank_accounts.set_pin(customer_name, "0000")
show_teller_form(player, pos, customer_name)
if not bank_accounts.set_pin(customer_name, "0000") then on_fail() end
show_updated_form(player, pos, customer_name)
elseif fields.enter then
local meta=minetest.get_meta(pos)
local inv=meta:get_inventory()
-- Deposit
local meta=minetest.get_meta(pos); local inv=meta:get_inventory();
local total_deposit=inv:get_stack("ones",1):get_count()+inv:get_stack("fives",1):get_count()*5+inv:get_stack("tens",1):get_count()*10
if total_deposit>0 then
bank_accounts.add_balance(customer_name,total_deposit,"Teller Deposit",S("Teller: @1",player_name),player_name)
if not bank_accounts.add_balance(customer_name,total_deposit,"Teller Deposit",S("Teller: @1",player_name),player_name) then on_fail() end
end
-- Withdrawal
local withdrawal = tonumber(fields.withdrawal)
if withdrawal and withdrawal>0 then
if withdrawal%1~=0 then
minetest.chat_send_player(player_name,S("[Bank] Withdrawal amount must be a whole number."))
local withdrawal = tonumber(fields.withdrawal); if withdrawal and withdrawal>0 then
if withdrawal%1~=0 then minetest.chat_send_player(player_name,S("[Bank] Withdrawal amount must be a whole number."))
elseif bank_accounts.get_balance(customer_name)>=withdrawal then
bank_accounts.add_balance(customer_name,-withdrawal,"Teller Withdrawal",S("Teller: @1",player_name),player_name)
local tens=math.floor(withdrawal/10);local rem=withdrawal%10;local fives=math.floor(rem/5);local ones=rem%5
player:get_inventory():add_item("main",{name="currency:minegeld_10",count=tens})
player:get_inventory():add_item("main",{name="currency:minegeld_5",count=fives})
player:get_inventory():add_item("main",{name="currency:minegeld",count=ones})
else
minetest.chat_send_player(player_name,S("[Bank] Player has insufficient funds for withdrawal."))
end
if not bank_accounts.add_balance(customer_name,-withdrawal,"Teller Withdrawal",S("Teller: @1",player_name),player_name) then on_fail()
else local tens=math.floor(withdrawal/10);local rem=withdrawal%10;local fives=math.floor(rem/5);local ones=rem%5;player:get_inventory():add_item("main",{name="currency:minegeld_10",count=tens});player:get_inventory():add_item("main",{name="currency:minegeld_5",count=fives});player:get_inventory():add_item("main",{name="currency:minegeld",count=ones}) end
else minetest.chat_send_player(player_name,S("[Bank] Player has insufficient funds for withdrawal.")) end
end
-- Credit Payment
local credit_payment = normalize_and_tonumber(fields.credit_debt)
if credit_payment and credit_payment>0 then
local credit_payment = normalize_and_tonumber(fields.credit_debt); if credit_payment and credit_payment>0 then
if bank_accounts.get_balance(customer_name)>=credit_payment then
if bank_accounts.get_credit(customer_name)>=credit_payment then
bank_accounts.add_balance(customer_name,-credit_payment,"Teller Credit Payment",S("Teller: @1",player_name),player_name)
bank_accounts.add_credit(customer_name,-credit_payment,"Teller Credit Payment",S("Teller: @1",player_name),player_name)
else
minetest.chat_send_player(player_name,S("[Bank] Player does not have that much credit debt."))
end
else
minetest.chat_send_player(player_name,S("[Bank] Player has insufficient funds for credit payment."))
end
local s1 = bank_accounts.add_balance(customer_name,-credit_payment,"Teller Credit Payment",S("Teller: @1",player_name),player_name)
local s2 = bank_accounts.add_credit(customer_name,-credit_payment,"Teller Credit Payment",S("Teller: @1",player_name),player_name)
if not s1 or not s2 then on_fail() end
else minetest.chat_send_player(player_name,S("[Bank] Player does not have that much credit debt.")) end
else minetest.chat_send_player(player_name,S("[Bank] Player has insufficient funds for credit payment.")) end
end
inv:set_stack("ones",1,nil)
inv:set_stack("fives",1,nil)
inv:set_stack("tens",1,nil)
show_teller_form(player,pos,customer_name)
inv:set_stack("ones",1,nil);inv:set_stack("fives",1,nil);inv:set_stack("tens",1,nil);
show_updated_form(player,pos,customer_name)
end
end
-- Statement form.
if formname:find("bank_accounts:statement@") then
local customer_name=formname:match("bank_accounts:statement@(.*)")
if not customer_name then
return
end
if fields.view_balance then
show_statement_form(player, pos, customer_name, "balance")
elseif fields.view_credit then
show_statement_form(player, pos, customer_name, "credit")
elseif fields.back then
show_teller_form(player, pos, customer_name)
end
local customer_name=formname:match("bank_accounts:statement@(.*)"); if not customer_name then return end
if fields.view_balance then show_statement_form(player, pos, customer_name, "balance")
elseif fields.view_credit then show_statement_form(player, pos, customer_name, "credit")
elseif fields.back then show_teller_form(player, pos, customer_name) end
end
end)