forked from nalc/global_exchange
183 lines
3.8 KiB
Lua
183 lines
3.8 KiB
Lua
|
|
||
|
-- A telling machine. Call this file with the exchange argument.
|
||
|
local exchange = ...
|
||
|
|
||
|
local atm_form = "global_exchange:atm_form"
|
||
|
|
||
|
local main_menu =[[
|
||
|
size[6,1]
|
||
|
button[0,0;2,1;new_account;New Account]
|
||
|
button[2,0;2,1;info;Account Info]
|
||
|
button[4,0;2,1;wire;Wire Monies]
|
||
|
]]
|
||
|
|
||
|
|
||
|
local function logout(x,y)
|
||
|
return "button[" .. x .. "," .. y ..
|
||
|
";2,1;logout;Log Out]"
|
||
|
end
|
||
|
|
||
|
|
||
|
local function label(x,y,text)
|
||
|
return "label[" .. x .. "," .. y .. ";"
|
||
|
.. minetest.formspec_escape(text) .. "]"
|
||
|
end
|
||
|
|
||
|
local function field(x,y, w,h, name, label, default)
|
||
|
return "field[" .. x .. "," .. y .. ";" .. w .. "," .. h .. ";"
|
||
|
.. name .. ";" .. minetest.formspec_escape(label) .. ";"
|
||
|
.. minetest.formspec_escape(default) .. "]"
|
||
|
end
|
||
|
|
||
|
local unique_num = 1
|
||
|
|
||
|
local function unique()
|
||
|
local ret = unique_num
|
||
|
unique_num = unique_num + 1
|
||
|
|
||
|
return ret
|
||
|
end
|
||
|
|
||
|
|
||
|
local function new_account_fs(p_name)
|
||
|
local fs = "size[4,3]"
|
||
|
|
||
|
local act_suc, err = exchange:new_account(p_name)
|
||
|
|
||
|
if not act_suc then
|
||
|
fs = fs .. label(0.5,0.5, "Error: " .. err)
|
||
|
else
|
||
|
fs = fs .. label(0.5,0.5, "Congratulations on \nyour new account.")
|
||
|
end
|
||
|
|
||
|
fs = fs .. logout(0.5,2)
|
||
|
|
||
|
return fs
|
||
|
end
|
||
|
|
||
|
|
||
|
local function info_fs(p_name)
|
||
|
local balance = exchange:get_balance(p_name)
|
||
|
|
||
|
local fs = "size[4,3]"
|
||
|
|
||
|
if not balance then
|
||
|
fs = fs .. label(0.5,0.5, "You don't have an account.")
|
||
|
else
|
||
|
fs = fs .. label(0.5,0.5, "Balance: " .. balance)
|
||
|
end
|
||
|
|
||
|
fs = fs .. logout(0.5,2)
|
||
|
|
||
|
return fs
|
||
|
end
|
||
|
|
||
|
|
||
|
local function wire_fs(p_name)
|
||
|
local balance = exchange:get_balance(p_name)
|
||
|
|
||
|
local fs = "size[4,5]"
|
||
|
fs = fs .. logout(0,4)
|
||
|
|
||
|
if not balance then
|
||
|
fs = fs .. label(0.5,0.5, "You don't have an account.")
|
||
|
return fs
|
||
|
end
|
||
|
|
||
|
-- To prevent duplicates
|
||
|
fs = fs .. field(-100, -100, 0,0, "trans_id", "", unique())
|
||
|
fs = fs .. label(0.5,0.5, "Balance: " .. balance)
|
||
|
fs = fs .. field(0.5,1.5, 2,1, "recipient", "Send to:", "")
|
||
|
fs = fs .. field(0.5,2.5, 2,1, "amount", "Amount", "")
|
||
|
fs = fs .. "button[2,4;2,1;send;Send]"
|
||
|
|
||
|
return fs
|
||
|
end
|
||
|
|
||
|
|
||
|
local function send_fs(p_name, receiver, amt_str)
|
||
|
local fs = "size[7,3]"
|
||
|
|
||
|
local amt = tonumber(amt_str)
|
||
|
|
||
|
if not amt or amt <= 0 then
|
||
|
fs = fs .. label(0.5,0.5, "Invalid transfer amount.")
|
||
|
fs = fs .. "button[0.5,2;2,1;wire;Back]"
|
||
|
|
||
|
return fs
|
||
|
end
|
||
|
|
||
|
local succ, err = exchange:transfer_credits(p_name, receiver, amt)
|
||
|
|
||
|
if not succ then
|
||
|
fs = fs .. label(0.5,0.5, "Error: " .. err)
|
||
|
fs = fs .. "button[0.5,2;2,1;wire;Back]"
|
||
|
else
|
||
|
fs = fs.. label(0.5,0.5, "Successfully sent "
|
||
|
.. amt .. " credits to " .. receiver)
|
||
|
fs = fs .. "button[0.5,2;2,1;wire;Back]"
|
||
|
end
|
||
|
|
||
|
return fs
|
||
|
end
|
||
|
|
||
|
|
||
|
local trans_ids = {}
|
||
|
|
||
|
|
||
|
local function handle_fields(player, formname, fields)
|
||
|
if formname ~= atm_form then return end
|
||
|
if fields["quit"] then return true end
|
||
|
|
||
|
local p_name = player:get_player_name()
|
||
|
|
||
|
local this_id = fields.trans_id
|
||
|
|
||
|
if this_id and this_id == trans_ids[p_name] then
|
||
|
return true
|
||
|
end
|
||
|
|
||
|
trans_ids[p_name] = this_id
|
||
|
|
||
|
if fields["logout"] then
|
||
|
minetest.show_formspec(p_name, atm_form, main_menu)
|
||
|
end
|
||
|
|
||
|
if fields["new_account"] then
|
||
|
minetest.show_formspec(p_name, atm_form, new_account_fs(p_name))
|
||
|
end
|
||
|
|
||
|
if fields["info"] then
|
||
|
minetest.show_formspec(p_name, atm_form, info_fs(p_name))
|
||
|
end
|
||
|
|
||
|
if fields["wire"] then
|
||
|
minetest.show_formspec(p_name, atm_form, wire_fs(p_name))
|
||
|
end
|
||
|
|
||
|
if fields["send"] then
|
||
|
minetest.show_formspec(p_name, atm_form,
|
||
|
send_fs(p_name, fields.recipient, fields.amount))
|
||
|
end
|
||
|
|
||
|
return true
|
||
|
end
|
||
|
|
||
|
|
||
|
minetest.register_on_player_receive_fields(handle_fields)
|
||
|
|
||
|
|
||
|
minetest.register_node("global_exchange:atm", {
|
||
|
description = "ATM",
|
||
|
tiles = {"global_exchange_atm_top.png",
|
||
|
"global_exchange_atm_top.png",
|
||
|
"global_exchange_atm_side.png",
|
||
|
},
|
||
|
groups = {cracky=2},
|
||
|
on_rightclick = function(pos, node, clicker)
|
||
|
local p_name = clicker:get_player_name()
|
||
|
|
||
|
minetest.show_formspec(p_name, atm_form, main_menu)
|
||
|
end,
|
||
|
})
|