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.
101 lines
3.9 KiB
Lua
101 lines
3.9 KiB
Lua
|
|
|
|
local S = core.get_translator(core.get_current_modname())
|
|
|
|
local FS = function(...) return minetest.formspec_escape(S(...)) end
|
|
|
|
-- abbreviation/symbol of the currency
|
|
local MONEY_SYMBOL = "$"
|
|
|
|
|
|
-- ATM
|
|
function atm.showform (player)
|
|
atm.read_account(player:get_player_name())
|
|
local formspec =
|
|
"size[9,8.75]"..
|
|
"label[0.5,0;" .. FS("Your account balance: @1 @2", atm.balance[player:get_player_name()], MONEY_SYMBOL) .. "]" ..
|
|
"label[0.5,0.75;"..S("Deposit:").."]" ..
|
|
"label[7.5,0.75;"..S("Withdraw:").."]" ..
|
|
"item_image_button[0.5,1.25;1,1;".. "mcl_core:emerald" ..";i1;\n\n\b\b\b\b\b" .. "x1" .."]" ..
|
|
"item_image_button[7.5,1.25;1,1;".. "mcl_core:emerald" ..";i-1;\n\n\b\b\b\b\b" .. "x1" .."]" ..
|
|
"item_image_button[0.5,2.25;1,1;".. "mcl_core:emerald" ..";t10;\n\n\b\b\b\b" .. "x10" .."]" ..
|
|
"item_image_button[7.5,2.25;1,1;".. "mcl_core:emerald" ..";t-10;\n\n\b\b\b\b" .. "x10" .."]" ..
|
|
"item_image_button[0.5,3.25;1,1;".. "mcl_core:emerald" ..";c100;\n\n\b\b\b" .. "x100" .."]" ..
|
|
"item_image_button[7.5,3.25;1,1;".. "mcl_core:emerald" ..";c-100;\n\n\b\b\b" .. "x100" .."]" ..
|
|
"button[3.5,3;2,1;wt;"..S("Wire Transfer").."]"..
|
|
|
|
"list[current_player;main;0,4.5;9,3;9]"..
|
|
mcl_formspec.get_itemslot_bg(0,4.5,9,3)..
|
|
"list[current_player;main;0,7.74;9,1;]"..
|
|
mcl_formspec.get_itemslot_bg(0,7.74,9,1)..
|
|
"listring[current_player;main]"
|
|
|
|
minetest.after((0.1), function(gui)
|
|
return minetest.show_formspec(player:get_player_name(), "atm.form", gui)
|
|
end, formspec)
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
-- wire transfer interface
|
|
|
|
function atm.showform_wt (player)
|
|
atm.read_account(player:get_player_name())
|
|
local formspec =
|
|
"size[8,6]"..
|
|
"button[5.75,0;2,1;transactions;" .. FS("Transactions >") .. "]" ..
|
|
"label[2.5,0;" .. FS("Wire Transfer Terminal") .. "]" ..
|
|
"label[2,0.5;" .. FS("Your account balance: @1 @2", atm.balance[player:get_player_name()], MONEY_SYMBOL) .. "]" ..
|
|
"field[0.5,1.5;5,1;dstn;" .. FS("Recipient:") .. ";]" ..
|
|
"field[6,1.5;2,1;amnt;" .. FS("Amount:") .. ";]" ..
|
|
"field[0.5,3;7.5,1;desc;" .. FS("Description:") .. ";]" ..
|
|
"button[4.7,5;3,1;pay;" .. FS("Complete the payment") .. "]"
|
|
minetest.after((0.1), function(gui)
|
|
return minetest.show_formspec(player:get_player_name(), "atm.form.wt", gui)
|
|
end, formspec)
|
|
end
|
|
|
|
function atm.showform_wtconf(player, dstn, amnt, desc)
|
|
atm.read_account(player:get_player_name())
|
|
local formspec =
|
|
"size[8,6]"..
|
|
"label[2.5,0;" .. FS("Wire Transfer Terminal") .. "]" ..
|
|
"label[2,0.5;" .. FS("Your account balance: @1 @2", atm.balance[player:get_player_name()], MONEY_SYMBOL) .. "]" ..
|
|
"label[2.5,1;" .. FS("TRANSACTION SUMMARY:") .. "]" ..
|
|
"label[0.5,1.5;" .. FS("Recipient: @1", dstn) .. "]" ..
|
|
"label[0.5,2;" .. FS("Amount: @1", amnt) .. "]" ..
|
|
"label[0.5,2.5;" .. FS("Description: @1", desc) .. "]" ..
|
|
"button[4.7,5;3,1;cnfrm;" .. FS("Confirm transfer") .. "]"
|
|
minetest.after((0.1), function(gui)
|
|
return minetest.show_formspec(player:get_player_name(), "atm.form.wtc", gui)
|
|
end, formspec)
|
|
end
|
|
|
|
function atm.showform_wtlist(player, tlist)
|
|
atm.read_account(player:get_player_name())
|
|
|
|
local textlist = ''
|
|
|
|
if not tlist then
|
|
textlist = FS("no transactions registered") .. "\n"
|
|
else
|
|
for _, entry in ipairs(tlist) do
|
|
textlist = textlist .. entry.date .. " " .. entry.sum .. " " .. MONEY_SYMBOL ..
|
|
" from " .. entry.from .. ": " .. entry.desc .. "\n"
|
|
end
|
|
end
|
|
|
|
local formspec =
|
|
"size[8,6]"..
|
|
"button[5.75,0;2,1;transfer;" .. FS("< Transfer money") .. "]" ..
|
|
"label[2.5,0;" .. FS("Wire Transfer Terminal") .. "]" ..
|
|
"label[2,0.5;" .. FS("Your account balance: @1 @2", atm.balance[player:get_player_name()], MONEY_SYMBOL) .. "]" ..
|
|
"textarea[0.5,1.25;7.5,4;hst;" .. FS("Transaction list") .. ";" .. textlist .. "]" ..
|
|
"button[4.7,5;3,1;clr;" .. FS("Clear transactions") .. "]"
|
|
minetest.after((0.1), function(gui)
|
|
return minetest.show_formspec(player:get_player_name(), "atm.form.wtl", gui)
|
|
end, formspec)
|
|
end
|