Squashed 'atm/' content from commit 94b2039

git-subtree-dir: atm
git-subtree-split: 94b2039207d6e58b5c8e051bb99a0917f516d882

16 files changed, 652 insertions, 0 deletions

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..2239a58
--- /dev/null
+++ b/README.md
@@ -0,0 +1,61 @@
+# ATM mod for Minetest
+
+This mod adds a faimly of ATM machines designed to work with the currency mod and its
+minegeld banknotes. ATMs allow you to transfer money to your bank account and withdraw
+various sums as needed.
+
+There are 3 types of ATMs with different capabilities. The most basic version is grey and
+only allows single banknote transactions.
+
+```
+[ steel ingot, mese wire, steel ingot ]
+[ glass,       1 MG note, steel ingot ]
+[ steel ingot, mese wire, steel ingot ]
+```
+
+The more advanced, green ATM, allows transactions in bundles of 10 notes.
+
+```
+[ steel ingot, mese wire,    steel ingot ]
+[ glass,       5 MG note,    steel ingot ]
+[ steel ingot, mese crystal, steel ingot ]
+```
+
+The most advanced ATM, the yellow one, allows to add and withdraw banknotes by hundreds.
+
+```
+[ steel ingot, mese crystal, steel ingot ]
+[ glass,       10 MG note,   steel ingot ]
+[ steel ingot, mese crystal, steel ingot ]
+```
+
+Goes without saying, all lower tier options are also available in a higher tier ATM.
+
+If mesecons mod is not installed, then the mese wire in recipes is replaced by a copper ingot.
+
+## Wire Transfer
+
+An alternative system for transfering money from one player's account to another. The terminals
+provide an interface for sending a specified amount (integer number) to a player (who must
+have an existing banking account) and for checking the transfers to the account of the user of
+the terminal. The history of transactions can be erased completely, and it is recommended to
+clean it once the stored data are no longer of any relevance. Otherwise, the transaction history
+is preserved indefinitely.
+
+```
+[ steel ingot, mese crystal, steel ingot ]
+[ glass,       mese wire,    steel ingot ]
+[ steel ingot, mese crystal, steel ingot ]
+```
+
+To complete a wire transfer a player must provide the name of the recipient with an
+existing banking account, the desired amount to be transfered, and a description of the 
+payment (optional, but strongly recommended).
+After entering those parameters the terminal checks their validity and if there is no problem,
+the player is shown the final confirmation window. If the player confirms the payment, the specified
+amount will be transfered immediately. At this point the transaction is final.
+If there are errors, a corresponding message is shown in the chat, and the transaction is aborted.
+
+## Founder
+
+This is a fork of gpcf's ATM mod: git://gpcf.eu/atm.git
\ No newline at end of file
diff --git a/depends.txt b/depends.txt
new file mode 100644
index 0000000..1dac83d
--- /dev/null
+++ b/depends.txt
@@ -0,0 +1,3 @@
+default
+currency
+mesecons?
\ No newline at end of file
diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..b8334d8
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,553 @@
+-- Copyright (c) 2016, 2017, 2018 Gabriel Pérez-Cerezo, licensed under WTFPL.
+-- Wire Transfers (c) 2018 Hans von Smacker
+-- Large ATMs (C) 2017 Hans von Smacker
+
+atm = {}
+atm.balance = {}
+atm.pending_transfers = {}
+atm.completed_transactions = {}
+atm.pth = minetest.get_worldpath().."/atm_accounts"
+atm.pth_wt = minetest.get_worldpath().."/atm_wt_transactions"
+local modpath = minetest.get_modpath("atm")
+atm.startbalance = 30
+function atm.ensure_init(name)
+   -- Ensure the atm account for the placer specified by name exists
+   atm.readaccounts()
+   if not atm.balance[name] then
+      atm.balance[name] = atm.startbalance
+   end
+end
+   
+function atm.showform (player)
+	atm.ensure_init(player:get_player_name())
+	local formspec =
+	"size[8,8.5]"..
+	default.gui_bg..
+	default.gui_bg_img..
+	default.gui_slots..
+	"label[1.25,0.5;Money input]" ..
+	"label[5.25,0.5;Money output]" ..
+	"label[2.5,0.15;Your account balance: $".. atm.balance[player:get_player_name()].. "]" ..
+	"button_exit[2.5,1.5;1,2;Quit;Quit]" ..
+	"item_image_button[0.5,1;1,1;".. "currency:minegeld" ..";i1;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[1.5,1;1,1;".. "currency:minegeld_5" ..";i5;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[2.5,1;1,1;".. "currency:minegeld_10" ..";i10;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[4.5,1;1,1;".. "currency:minegeld" ..";i-1;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[5.5,1;1,1;".. "currency:minegeld_5" ..";i-5;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[6.5,1;1,1;".. "currency:minegeld_10" ..";i-10;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"list[current_player;main;0,4.25;8,1;]"..
+	"list[current_player;main;0,5.5;8,3;8]"..
+	"listring[]"..
+      default.get_hotbar_bg(0, 4.25)
+	minetest.after((0.1), function(gui)
+			return minetest.show_formspec(player:get_player_name(), "atm.form", gui)
+		end, formspec)
+end
+
+
+function atm.showform2 (player)
+	atm.ensure_init(player:get_player_name())
+	local formspec =
+	"size[8,8.5]"..
+	default.gui_bg..
+	default.gui_bg_img..
+	default.gui_slots..
+	"label[1.25,0.5;Money input]" ..
+	"label[5.25,0.5;Money output]" ..
+	"label[2.5,0.15;Your account balance: $".. atm.balance[player:get_player_name()].. "]" ..
+	"button_exit[2.5,2.5;1,2;Quit;Quit]" ..
+	"item_image_button[0.5,1;1,1;".. "currency:minegeld" ..";i1;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[1.5,1;1,1;".. "currency:minegeld_5" ..";i5;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[2.5,1;1,1;".. "currency:minegeld_10" ..";i10;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[4.5,1;1,1;".. "currency:minegeld" ..";i-1;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[5.5,1;1,1;".. "currency:minegeld_5" ..";i-5;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[6.5,1;1,1;".. "currency:minegeld_10" ..";i-10;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[0.5,2;1,1;".. "currency:minegeld" ..";t10;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[1.5,2;1,1;".. "currency:minegeld_5" ..";t50;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[2.5,2;1,1;".. "currency:minegeld_10" ..";t100;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[4.5,2;1,1;".. "currency:minegeld" ..";t-10;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[5.5,2;1,1;".. "currency:minegeld_5" ..";t-50;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[6.5,2;1,1;".. "currency:minegeld_10" ..";t-100;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"list[current_player;main;0,4.25;8,1;]"..
+	"list[current_player;main;0,5.5;8,3;8]"..
+	"listring[]"..
+	default.get_hotbar_bg(0, 4.25)
+	minetest.after((0.1), function(gui)
+			return minetest.show_formspec(player:get_player_name(), "atm.form2", gui)
+		end, formspec)
+end
+
+
+function atm.showform3 (player)
+	atm.ensure_init(player:get_player_name())
+	local formspec =
+	"size[8,8.5]"..
+	default.gui_bg..
+	default.gui_bg_img..
+	default.gui_slots..
+	"label[1.25,0.5;Money input]" ..
+	"label[5.25,0.5;Money output]" ..
+	"label[2.5,0.15;Your account balance: $".. atm.balance[player:get_player_name()].. "]" ..
+	"button_exit[3.5,2.75;1,2;Quit;Quit]" ..
+	"item_image_button[0.5,1;1,1;".. "currency:minegeld" ..";i1;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[1.5,1;1,1;".. "currency:minegeld_5" ..";i5;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[2.5,1;1,1;".. "currency:minegeld_10" ..";i10;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[4.5,1;1,1;".. "currency:minegeld" ..";i-1;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[5.5,1;1,1;".. "currency:minegeld_5" ..";i-5;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[6.5,1;1,1;".. "currency:minegeld_10" ..";i-10;\n\n\b\b\b\b\b" .. "1" .."]" ..
+	"item_image_button[0.5,2;1,1;".. "currency:minegeld" ..";t10;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[1.5,2;1,1;".. "currency:minegeld_5" ..";t50;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[2.5,2;1,1;".. "currency:minegeld_10" ..";t100;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[4.5,2;1,1;".. "currency:minegeld" ..";t-10;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[5.5,2;1,1;".. "currency:minegeld_5" ..";t-50;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[6.5,2;1,1;".. "currency:minegeld_10" ..";t-100;\n\n\b\b\b\b\b" .. "10" .."]" ..
+	"item_image_button[0.5,3;1,1;".. "currency:minegeld" ..";c100;\n\n\b\b\b\b\b" .. "100" .."]" ..
+	"item_image_button[1.5,3;1,1;".. "currency:minegeld_5" ..";c500;\n\n\b\b\b\b\b" .. "100" .."]" ..
+	"item_image_button[2.5,3;1,1;".. "currency:minegeld_10" ..";c1000;\n\n\b\b\b\b\b" .. "100" .."]" ..
+	"item_image_button[4.5,3;1,1;".. "currency:minegeld" ..";c-100;\n\n\b\b\b\b\b" .. "100" .."]" ..
+	"item_image_button[5.5,3;1,1;".. "currency:minegeld_5" ..";c-500;\n\n\b\b\b\b\b" .. "100" .."]" ..
+	"item_image_button[6.5,3;1,1;".. "currency:minegeld_10" ..";c-1000;\n\n\b\b\b\b\b" .. "100" .."]" ..
+	"list[current_player;main;0,4.25;8,1;]"..
+	"list[current_player;main;0,5.5;8,3;8]"..
+	"listring[]"..
+	default.get_hotbar_bg(0, 4.25)
+	minetest.after((0.1), function(gui)
+			return minetest.show_formspec(player:get_player_name(), "atm.form3", gui)
+		end, formspec)
+end
+
+
+
+-- wire transfer interface
+
+function atm.showform_wt (player)
+	atm.ensure_init(player:get_player_name())
+	local formspec =
+	"size[8,6]"..
+	default.gui_bg..
+	default.gui_bg_img..
+	default.gui_slots..
+	"button[5.75,0;2,1;transactions;Transactions >]" ..
+	"label[2.5,0;Wire Transfer Terminal]" ..
+	"label[2,0.5;Your account balance: $".. atm.balance[player:get_player_name()].. "]" ..
+	"field[0.5,1.5;5,1;dstn;Recepient:;]"..
+	"field[6,1.5;2,1;amnt;Amount:;]"..
+	"field[0.5,3;7.5,1;desc;Description:;]"..
+	"button_exit[0.2,5;1,1;Quit;Quit]" ..
+	"button[4.7,5;3,1;pay;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]"..
+	default.gui_bg..
+	default.gui_bg_img..
+	default.gui_slots..
+	"label[2.5,0;Wire Transfer Terminal]" ..
+	"label[2,0.5;Your account balance: $".. atm.balance[player:get_player_name()].. "]" ..
+	"label[2.5,1;TRANSACTION SUMMARY:]"..
+	"label[0.5,1.5;Recepient: " .. dstn .. "]"..
+	"label[0.5,2;Amount: " .. amnt .. "]"..
+	"label[0.5,2.5;Description: " .. desc .. "]"..
+	"button_exit[0.2,5;1,1;Quit;Quit]" ..
+	"button[4.7,5;3,1;cnfrm;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 = "no transactions registered\n"
+	else
+		for i,entry in ipairs(tlist) do
+			textlist = textlist .. entry.date .. " $" .. entry.sum .. " from " .. entry.from .. ": " .. entry.desc .. "\n"
+		end
+	end
+
+	local formspec =
+	"size[8,6]"..
+	default.gui_bg..
+	default.gui_bg_img..
+	default.gui_slots..
+	"button[5.75,0;2,1;transfer;< Transfer money]" ..
+	"label[2.5,0;Wire Transfer Terminal]" ..
+	"label[2,0.5;Your account balance: $".. atm.balance[player:get_player_name()].. "]" ..
+	"textarea[0.5,1.25;7.5,4;hst;Transaction list;" .. textlist .. "]" ..
+	"button_exit[0.2,5;1,1;Quit;Quit]" ..
+	"button[4.7,5;3,1;clr;Clear transactions]"
+	minetest.after((0.1), function(gui)
+			return minetest.show_formspec(player:get_player_name(), "atm.form.wtl", gui)
+		end, formspec)
+end
+
+
+-- banking accounts storage
+
+function atm.readaccounts ()
+	local b = atm.balance
+	local file = io.open(atm.pth, "r")
+	if file then
+		repeat
+			local balance = file:read("*n")
+			if balance == nil then
+				break
+			end
+			local name = file:read("*l")
+			b[name:sub(2)] = balance
+		until file:read(0) == nil
+		io.close(file)
+	else
+		b = {}
+	end
+end
+
+function atm.saveaccounts()
+	if not atm.balance then
+		return
+	end
+	local data = {}
+	for k, v in pairs(atm.balance) do
+		table.insert(data, string.format("%d %s\n", v, k))
+	end
+
+	local output = io.open(atm.pth, "w")
+	output:write(table.concat(data))
+	io.close(output)
+end
+
+
+-- wire transfer data storage
+
+function atm.read_transactions()
+	local file = io.open(atm.pth_wt, "r")
+	if file then
+		local data = file:read("*all")
+		atm.completed_transactions = minetest.deserialize(data)
+	end
+end
+
+function atm.write_transactions()
+	if not atm.completed_transactions then
+		return
+	end
+	local file = io.open(atm.pth_wt, "w")
+	local data = minetest.serialize(atm.completed_transactions)
+	file:write(data)
+	io.close(file)
+end
+
+
+
+minetest.register_on_joinplayer(function(player)
+	atm.readaccounts()
+end)
+
+
+-- ATM node definitions
+
+minetest.register_node("atm:atm", {
+	description = "ATM",
+	tiles = {
+		"atm_top.png", "atm_top.png",
+		"atm_side.png", "atm_side.png",
+		"atm_side.png", "atm_front.png"
+	},
+	paramtype2 = "facedir",
+	groups = {cracky=2, bank_equipment = 1},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+
+	can_dig = can_dig,
+
+	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
+		atm.showform(player)
+	end,
+})
+
+minetest.register_node("atm:atm2", {
+	description = "ATM model 2",
+	tiles = {
+		"atm2_top.png", "atm2_top.png",
+		"atm2_side.png", "atm2_side.png",
+		"atm2_side.png", "atm2_front.png"
+	},
+	paramtype2 = "facedir",
+	groups = {cracky=2, bank_equipment = 2},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+
+	can_dig = can_dig,
+
+	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
+		atm.showform2(player)
+	end,
+})
+
+minetest.register_node("atm:atm3", {
+	description = "ATM model 3",
+	tiles = {
+		"atm3_top.png", "atm3_top.png",
+		"atm3_side.png", "atm3_side.png",
+		"atm3_side.png", "atm3_front.png"
+	},
+	paramtype2 = "facedir",
+	groups = {cracky=2, bank_equipment = 3},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+
+	can_dig = can_dig,
+
+	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
+		atm.showform3(player)
+	end,
+})
+
+
+-- Wire transfer terminal node
+
+minetest.register_node("atm:wtt", {
+	description = "Wire Transfer Terminal",
+	tiles = {
+		"atm_top.png", "atm_top.png",
+		"atm_side_wt.png", "atm_side_wt.png",
+		"atm_side_wt.png", "atm_front_wt.png"
+	},
+	paramtype2 = "facedir",
+	groups = {cracky=2, bank_equipment = 1},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+
+	can_dig = can_dig,
+
+	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
+		atm.showform_wt(player)
+	end,
+})
+
+
+-- Check the form
+
+minetest.register_on_player_receive_fields(function(player, form, pressed)
+
+	-- ATMs
+	if form == "atm.form" or form == "atm.form2" or form == "atm.form3" then
+		local n = player:get_player_name()
+		local transaction = { amount = 0, denomination = 0, count = 0 }
+		local pinv=player:get_inventory()
+                                          
+		-- single note transactions
+		for _,i in pairs({1, 5, 10, -1, -5, -10}) do
+			if pressed["i"..i] then
+				transaction.amount = i
+				transaction.denomination = '_' .. math.abs(i)
+				if transaction.denomination == '_1' then
+					transaction.denomination = ''
+				end
+				transaction.count = ' ' .. 1
+				break
+			end
+		end
+
+		-- 10x banknote transactions
+		for _,t in pairs({10, 50, 100, -10, -50, -100}) do
+			if pressed["t"..t] then
+				transaction.amount = t
+				transaction.denomination = '_' .. math.abs(t/10)
+				if transaction.denomination == '_1' then
+					transaction.denomination = ''
+				end
+				transaction.count = ' ' .. 10
+				break
+			end
+		end
+
+		-- 100x banknote transactions
+		for _,c in pairs({100, 500, 1000, -100, -500, -1000}) do
+			if pressed["c"..c] then
+				transaction.amount = c
+				transaction.denomination = '_' .. math.abs(c/100)
+				if transaction.denomination == '_1' then
+					transaction.denomination = ''
+				end
+				transaction.count = ' ' .. 100
+				break
+			end
+		end
+                                          
+		if (atm.balance[n] + transaction.amount) < 0 then
+			minetest.chat_send_player(n, "Not enough money in your account")
+			transaction.amount = 0
+		end
+
+		local item = "currency:minegeld" .. transaction.denomination .. transaction.count
+
+		if transaction.amount < 0 then
+			if pinv:room_for_item("main", item) then
+				pinv:add_item("main", item)
+				atm.balance[n] = atm.balance[n] + transaction.amount
+			else
+				minetest.chat_send_player(n, "Not enough room in your inventory")
+			end
+
+		elseif transaction.amount > 0 then
+			if pinv:contains_item("main", item) then
+				pinv:remove_item("main", item)
+				atm.balance[n] = atm.balance[n] + transaction.amount
+			else
+				minetest.chat_send_player(n, "Not enough money in your inventory")
+			end
+		end
+
+		atm.saveaccounts()
+
+		if not pressed.Quit and not pressed.quit then
+			if form == "atm.form" then
+				atm.showform(player)
+			elseif form == "atm.form2" then
+				atm.showform2(player)
+			elseif form == "atm.form3" then
+				atm.showform3(player)
+			end
+		end
+                     
+	-- Wire transfer terminals
+	elseif 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 and 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_transactions()
+				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_transactions()
+				atm.completed_transactions[n] = nil
+				atm.write_transactions() 
+				minetest.chat_send_player(n, "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
+				if not atm.balance[pressed.dstn] then
+					minetest.chat_send_player(n, "The recepient <" .. pressed.dstn .. "> is not registered in the banking system, aborting")
+					atm.showform_wt(player)
+				elseif not string.match(pressed.amnt, '^[0-9]+$') then
+					minetest.chat_send_player(n, "Invalid amount <" .. pressed.amnt .. "> : must be an integer number, aborting")
+					atm.showform_wt(player)
+				elseif atm.balance[n] < tonumber(pressed.amnt) then
+					minetest.chat_send_player(n, "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
+				atm.read_transactions()
+				local t = atm.pending_transfers[n]
+				if not atm.completed_transactions[t.to] then
+					atm.completed_transactions[t.to] = {}
+				end
+                                          
+				if atm.balance[n] < t.sum then
+					-- you can never be too paranoid about the funds availaible
+				   minetest.chat_send_player(n, "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_transactions() 
+				atm.saveaccounts()
+				minetest.chat_send_player(n, "Payment of " .. t.sum .. " to " .. t.to .. " completed")
+				minetest.chat_send_player(n, n .. ", thank you for choosing the Wire Transfer system")
+				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)
+
+local cheaper_part = "default:copper_ingot"
+
+if minetest.get_modpath("mesecons") then
+	cheaper_part = "mesecons:wire_00000000_off"
+end
+
+minetest.register_craft({
+	output = "atm:atm",
+	recipe = {
+		{"default:steel_ingot", cheaper_part, "default:steel_ingot"},
+		{"default:glass", "currency:minegeld", "default:steel_ingot"},
+		{"default:steel_ingot", cheaper_part, "default:steel_ingot"}
+	}
+})
+
+minetest.register_craft({
+	output = "atm:atm2",
+	recipe = {
+		{"default:steel_ingot", cheaper_part, "default:steel_ingot"},
+		{"default:glass", "currency:minegeld_5", "default:steel_ingot"},
+		{"default:steel_ingot", "default:mese_crystal", "default:steel_ingot"}
+	}
+})
+
+minetest.register_craft({
+	output = "atm:atm3",
+	recipe = {
+		{"default:steel_ingot", "default:mese_crystal", "default:steel_ingot"},
+		{"default:glass", "currency:minegeld_10", "default:steel_ingot"},
+		{"default:steel_ingot", "default:mese_crystal", "default:steel_ingot"}
+	}
+})
+
+minetest.register_craft({
+	output = "atm:wtt",
+	recipe = {
+		{"default:steel_ingot", "default:mese_crystal", "default:steel_ingot"},
+		{"default:glass", cheaper_part, "default:steel_ingot"},
+		{"default:steel_ingot", "default:mese_crystal", "default:steel_ingot"}
+	}
+})
+
+dofile(modpath .. "/interest.lua")
diff --git a/interest.lua b/interest.lua
new file mode 100644
index 0000000..e492566
--- /dev/null
+++ b/interest.lua
@@ -0,0 +1,16 @@
+-- adapted from the income.lua file from the currency mod.
+local timer = 0
+minetest.register_globalstep(function(dtime)
+	timer = timer + dtime;
+	if timer >= 1000 then
+		timer = 0
+		atm.readaccounts()
+		for _,player in ipairs(minetest.get_connected_players()) do
+			local name = player:get_player_name()
+			if not (atm.balance[name] == nil) then
+				atm.balance[name] = math.floor(atm.balance[name] + 5)
+			end
+		end
+		atm.saveaccounts()
+	end
+end)
diff --git a/license.txt b/license.txt
new file mode 100644
index 0000000..db25865
--- /dev/null
+++ b/license.txt
@@ -0,0 +1,19 @@
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+                    Version 2, December 2004
+
+ Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
+
+ Everyone is permitted to copy and distribute verbatim or modified
+ copies of this license document, and changing it is allowed as long
+ as the name is changed.
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. You just DO WHAT THE FUCK YOU WANT TO. 
+
+
+License of textures
+--------------------------------------
+(C) 2016 Gabriel Pérez-Cerezo, WTFPL
diff --git a/textures/atm2_front.png b/textures/atm2_front.png
new file mode 100644
index 0000000..6675aef
--- /dev/null
+++ b/textures/atm2_front.png
diff --git a/textures/atm2_side.png b/textures/atm2_side.png
new file mode 100644
index 0000000..02ae214
--- /dev/null
+++ b/textures/atm2_side.png
diff --git a/textures/atm2_top.png b/textures/atm2_top.png
new file mode 100644
index 0000000..733e123
--- /dev/null
+++ b/textures/atm2_top.png
diff --git a/textures/atm3_front.png b/textures/atm3_front.png
new file mode 100644
index 0000000..af81ec9
--- /dev/null
+++ b/textures/atm3_front.png
diff --git a/textures/atm3_side.png b/textures/atm3_side.png
new file mode 100644
index 0000000..9a55ee4
--- /dev/null
+++ b/textures/atm3_side.png
diff --git a/textures/atm3_top.png b/textures/atm3_top.png
new file mode 100644
index 0000000..fb31cf4
--- /dev/null
+++ b/textures/atm3_top.png
diff --git a/textures/atm_front.png b/textures/atm_front.png
new file mode 100644
index 0000000..8aac188
--- /dev/null
+++ b/textures/atm_front.png
diff --git a/textures/atm_front_wt.png b/textures/atm_front_wt.png
new file mode 100644
index 0000000..f40e05c
--- /dev/null
+++ b/textures/atm_front_wt.png
diff --git a/textures/atm_side.png b/textures/atm_side.png
new file mode 100644
index 0000000..53bb692
--- /dev/null
+++ b/textures/atm_side.png
diff --git a/textures/atm_side_wt.png b/textures/atm_side_wt.png
new file mode 100644
index 0000000..fba2e40
--- /dev/null
+++ b/textures/atm_side_wt.png
diff --git a/textures/atm_top.png b/textures/atm_top.png
new file mode 100644
index 0000000..82eb0eb
--- /dev/null
+++ b/textures/atm_top.png