emeraldbank/forms.lua

-- atm interface

local S = core.get_translator(core.get_current_modname())

function atm.showform (player)
   atm.ensure_init(player:get_player_name())
   local formspec =
      "size[9,8.75]"..
      "label[0.5,0;"..S("Your account balance: $@1", atm.balance[player:get_player_name()]).."]" ..
      "label[0.5,0.75;"..S("Deposit:").."]" ..
      -- "label[0.5,0.75;1s]" ..
      -- "label[1.5,0.75;5s]" ..
      -- "label[2.5,0.75;10s]" ..
      -- "label[3.5,0.75;50s]" ..
      -- "label[4.5,0.75;100s]" ..
      "label[7.5,0.75;"..S("Withdraw:").."]" ..
      -- "label[6.5,0.75;1s]" ..
      -- "label[7.5,0.75;5s]" ..
      -- "label[8.5,0.75;10s]" ..
      -- "label[9.5,0.75;50s]" ..
      -- "label[10.5,0.75;100s]" ..
      "item_image_button[0.5,1.25;1,1;".. "mcl_core:emerald" ..";i1;\n\n\b\b\b\b\b" .. "x1" .."]" ..
      -- "item_image_button[1.5,1.25;1,1;".. "currency:minegeld_5" ..";i5;\n\n\b\b\b\b\b" .. "x1" .."]" ..
      -- "item_image_button[2.5,1.25;1,1;".. "currency:minegeld_10" ..";i10;\n\n\b\b\b\b\b" .. "x1" .."]" ..
      -- "item_image_button[3.5,1.25;1,1;".. "currency:minegeld_50" ..";i50;\n\n\b\b\b\b\b" .. "x1" .."]" ..
      -- "item_image_button[4.5,1.25;1,1;".. "currency:minegeld_100" ..";i100;\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[7.5,1.25;1,1;".. "currency:minegeld_5" ..";i-5;\n\n\b\b\b\b\b" .. "x1" .."]" ..
      -- "item_image_button[8.5,1.25;1,1;".. "currency:minegeld_10" ..";i-10;\n\n\b\b\b\b\b" .. "x1" .."]" ..
      -- "item_image_button[9.5,1.25;1,1;".. "currency:minegeld_50" ..";i-50;\n\n\b\b\b\b\b" .. "x1" .."]" ..
      -- "item_image_button[10.5,1.25;1,1;".. "currency:minegeld_100" ..";i-100;\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[1.5,2.25;1,1;".. "currency:minegeld_5" ..";t50;\n\n\b\b\b\b" .. "x10" .."]" ..
      -- "item_image_button[2.5,2.25;1,1;".. "currency:minegeld_10" ..";t100;\n\n\b\b\b\b" .. "x10" .."]" ..
      -- "item_image_button[3.5,2.25;1,1;".. "currency:minegeld_50" ..";t500;\n\n\b\b\b\b" .. "x10" .."]" ..
      -- "item_image_button[4.5,2.25;1,1;".. "currency:minegeld_100" ..";t1000;\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[7.5,2.25;1,1;".. "currency:minegeld_5" ..";t-50;\n\n\b\b\b\b" .. "x10" .."]" ..
      -- "item_image_button[8.5,2.25;1,1;".. "currency:minegeld_10" ..";t-100;\n\n\b\b\b\b" .. "x10" .."]" ..
      -- "item_image_button[9.5,2.25;1,1;".. "currency:minegeld_50" ..";t-500;\n\n\b\b\b\b" .. "x10" .."]" ..
      -- "item_image_button[10.5,2.25;1,1;".. "currency:minegeld_100" ..";t-1000;\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[1.5,3.25;1,1;".. "currency:minegeld_5" ..";c500;\n\n\b\b\b" .. "x100" .."]" ..
      -- "item_image_button[2.5,3.25;1,1;".. "currency:minegeld_10" ..";c1000;\n\n\b\b\b" .. "x100" .."]" ..
      -- "item_image_button[3.5,3.25;1,1;".. "currency:minegeld_50" ..";c5000;\n\n\b\b\b" .. "x100" .."]" ..
      -- "item_image_button[4.5,3.25;1,1;".. "currency:minegeld_100" ..";c10000;\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" .."]" ..
      -- "item_image_button[7.5,3.25;1,1;".. "currency:minegeld_5" ..";c-500;\n\n\b\b\b" .. "x100" .."]" ..
      -- "item_image_button[8.5,3.25;1,1;".. "currency:minegeld_10" ..";c-1000;\n\n\b\b\b" .. "x100" .."]" ..
      -- "item_image_button[9.5,3.25;1,1;".. "currency:minegeld_50" ..";c-5000;\n\n\b\b\b" .. "x100" .."]" ..
      -- "item_image_button[10.5,3.25;1,1;".. "currency:minegeld_100" ..";c-10000;\n\n\b\b\b" .. "x100" .."]" ..
      -- "button_exit[5.5,3;1,2;Quit;Quit]" ..
      "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.ensure_init(player:get_player_name())
   local formspec =
      "size[8,6]"..
      "button[5.75,0;2,1;transactions;"..S("Transactions >").."]" ..
      "label[2.5,0;"..S("Wire Transfer System").."]" ..
      "label[2,0.5;"..S("Your account balance: $@1", atm.balance[player:get_player_name()]).. "]" ..
      "field[0.5,1.5;5,1;dstn;"..S("Recepient:")..";]"..
      "field[6,1.5;2,1;amnt;"..S("Amount:")..";]"..
      "field[0.5,3;7.5,1;desc;"..S("Description:")..";]"..
      "button_exit[0.2,5;1,1;Quit;"..S("Quit").."]" ..
      "button[4.7,5;3,1;pay;"..S("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.ensure_init(player:get_player_name())
   local formspec =
      "size[8,6]"..
      "label[2.5,0;"..S("Wire Transfer System").."]" ..
      "label[2,0.5;"..S("Your account balance: $@1", atm.balance[player:get_player_name()]).. "]" ..
      "label[2.5,1;"..S("TRANSACTION SUMMARY:").."]"..
      "label[0.5,1.5;"..S("Recepient:").." "..dstn.."]"..
      "label[0.5,2;"..S("Amount:").." " .. amnt .. "]"..
      "label[0.5,2.5;"..S("Description:").." " .. desc .. "]"..
      "button_exit[0.2,5;1,1;Quit;"..S("Quit").."]" ..
      "button[4.7,5;3,1;cnfrm;"..S("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.ensure_init(player:get_player_name())
   
   local textlist = ''
   
   if not tlist then
      textlist = S("no transactions registered").."\n"
   else
      for _, entry in ipairs(tlist) do
	 textlist = textlist .. entry.date .. " $" .. entry.sum .. " " .. S("from") .. " " .. entry.from .. ": " .. entry.desc .. "\n"
      end
   end
   
   local formspec =
      "size[8,6]"..
      "button[5.75,0;2,1;transfer;"..S("< Transfer money").."]" ..
      "label[2.5,0;"..S("Wire Transfer System").."]" ..
      "label[2,0.5;"..S("Your account balance: $@1", atm.balance[player:get_player_name()]).. "]" ..
      "textarea[0.5,1.25;7.5,4;hst;"..S("Transaction list")..";" .. textlist .. "]" ..
      "button_exit[0.2,5;1,1;Quit;"..S("Quit").."]" ..
      "button[4.7,5;3,1;clr;"..S("Clear transactions").."]"
   minetest.after((0.1), function(gui)
	 return minetest.show_formspec(player:get_player_name(), "atm.form.wtl", gui)
   end, formspec)
end