forked from Mirrors/emeraldbank
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
107 lines
4.0 KiB
Lua
107 lines
4.0 KiB
Lua
|
|
local S = core.get_translator(core.get_current_modname())
|
|
|
|
-- Check the form
|
|
|
|
minetest.register_on_player_receive_fields(function(player, form, pressed)
|
|
|
|
-- Wire transfer terminals
|
|
if form == "atm.form.wt" or form == "atm.form.wtc" or form == "atm.form.wtl" then
|
|
|
|
local n = player:get_player_name()
|
|
|
|
if not pressed.quit then
|
|
if form == "atm.form.wt" and pressed.transactions then
|
|
-- transaction list (can be edited in the form, but than means nothing)
|
|
atm.read_transaction(n)
|
|
atm.showform_wtlist(player, atm.completed_transactions[n])
|
|
elseif form == "atm.form.wtl" and pressed.transfer then
|
|
atm.showform_wt(player)
|
|
elseif form == "atm.form.wtl" and pressed.clr then
|
|
-- clear all transactions in the player's list
|
|
atm.read_transaction(n)
|
|
atm.completed_transactions[n] = nil
|
|
atm.write_transaction(n)
|
|
minetest.chat_send_player(n, S("Your transaction history has been cleared"))
|
|
atm.showform_wtlist(player, atm.completed_transactions[n])
|
|
elseif form == "atm.form.wt" and pressed.pay then
|
|
|
|
-- perform the checks of validity for wire transfer order
|
|
-- if passed, store the data in a temporary table and show confirmation window
|
|
atm.read_account(pressed.dstn)
|
|
if not atm.balance[pressed.dstn] then
|
|
minetest.chat_send_player(n, S("The Recipient <@1> is not registered in the banking system, aborting",
|
|
pressed.dstn))
|
|
atm.showform_wt(player)
|
|
elseif not string.match(pressed.amnt, '^[0-9]+$') then
|
|
minetest.chat_send_player(n, S("Invalid amount <@1>: must be an integer number, aborting", pressed.amnt))
|
|
atm.showform_wt(player)
|
|
elseif atm.balance[n] < tonumber(pressed.amnt) then
|
|
minetest.chat_send_player(n, S("Your account does not have enough funds to complete this transfer, aborting"))
|
|
atm.showform_wt(player)
|
|
else
|
|
atm.pending_transfers[n] = {to = pressed.dstn, sum = tonumber(pressed.amnt), desc = pressed.desc}
|
|
atm.showform_wtconf(player, pressed.dstn, pressed.amnt, pressed.desc)
|
|
end
|
|
|
|
elseif form == "atm.form.wtc" then
|
|
-- transaction processing
|
|
local t = atm.pending_transfers[n]
|
|
if not t then
|
|
return
|
|
end
|
|
if not atm.completed_transactions[t.to] then
|
|
atm.completed_transactions[t.to] = {}
|
|
end
|
|
atm.read_transaction(t.to)
|
|
if atm.balance[n] < t.sum then
|
|
-- you can never be too paranoid about the funds availaible
|
|
minetest.chat_send_player(n, S("Your account does not have enough funds to complete this transfer, aborting"))
|
|
if not t.extern then
|
|
atm.showform_wt(player)
|
|
else
|
|
minetest.close_formspec(n, "atm.form.wtc")
|
|
end
|
|
return
|
|
end
|
|
|
|
table.insert(atm.completed_transactions[t.to], {date=os.date("%Y-%m-%d"), from=n, sum=t.sum, desc=t.desc})
|
|
atm.balance[n] = atm.balance[n] - t.sum
|
|
atm.balance[t.to] = atm.balance[t.to] + t.sum
|
|
atm.write_transaction(t.to)
|
|
atm.save_account(n)
|
|
atm.save_account(t.to)
|
|
if minetest.get_modpath("mail") and mail.send then
|
|
mail.send({
|
|
from = "Emerald Bank",
|
|
to = t.to,
|
|
--cc = "carbon, copy",
|
|
--bcc = "blind, carbon, copy",
|
|
subject = S("Payment of @1 to @2 completed", t.sum, n),
|
|
body = S("Good news!\n\n@1 has transferred @2 emeralds to your bank account using the Emerald Bank Transfer System.\n\nTransfer description:\n\n@3", n, t.sum, t.desc)
|
|
})
|
|
end
|
|
minetest.chat_send_player(n, S("Payment of @1 to @2 completed", t.sum, t.to))
|
|
minetest.chat_send_player(n, S("@1, thank you for choosing the Emerald Bank Transfer system", n))
|
|
if t.callback then -- run callbacks from mods
|
|
t.callback(t)
|
|
end
|
|
if t.extern == true then -- Transfer was initiated by mod
|
|
atm.pending_transfers[n] = nil
|
|
minetest.close_formspec(n, "atm.form.wtc")
|
|
return
|
|
end
|
|
atm.pending_transfers[n] = nil
|
|
atm.showform_wt(player)
|
|
end
|
|
else
|
|
-- clear the pending transaction of the player, just in case
|
|
if atm.pending_transfers[n] then
|
|
atm.pending_transfers[n] = nil
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
end)
|