Computercraft Bank ATM v1

local bankServerID = 15
local modemSide = "top"
local diskSide = "bottom"

rednet.open(modemSide)

os.loadAPI("bankapi.lua")
bankapi.setBankServerID(bankServerID)

local currentAccount = 0

if (fs.exists("disk")) then
	local f = fs.open("disk/mermegold.txt", "r")
	if (f ~= nil) then
		local value = f.readLine()
		if (value ~= nil) then
			local tempClientData = bankapi.getClientData()
			if (tempClientData[value] ~= nil) then
				currentAccount = value
			end
		end
	end
end

while true do
while true do
	local tempClientData = bankapi.getClientData()
	local command
	if (tempClientData[currentAccount] == nil) then -- Guest screen
		command = bankapi.optionMenu("¡Bienvenido!", {
			[1] = {
			["option"] = "login",
			["text"] = "Ingresar"},
			[2] = {
			["option"] = "info",
			["text"] = "¿Que es Mermegold?"},
			[3] = {
			["option"] = "createaccount",
			["text"] = "¿Como me hago una cuenta?"},
		})

		if (command == "login") then
			local accept = bankapi.confirmScreen({"Por favor, ingrese su", "tarjeta en la disquetera"})
			if (accept) then
				os.reboot()
			end
		elseif (command == "info") then
			bankapi.textScreen({
				"¡Bienvenido a Mermegold!",
				"¡El primer y unico banco de Izit!",
				"",
				"Con tu tarjeta mermegold, no tendrás",
				"que llevar oro encima nunca más.",
				"Podrás hacer transacciónes remotas",
				"y tendrás un historial completo.",
				"Podrás poner máquinas en tu local",
				"con catálogos que calculen el total",
				"de forma automática, y todos los",
				"pagos iran al mismo lugar. ¡No mas",
				"revolver cofres para recolectar pagos!"
			})
		elseif (command == "createaccount") then
			bankapi.textScreen({
				"",
				"",
				"Para hacerse una cuenta, contactese",
				"con un empleado de Mermegold y arregle",
				"una cita. Abrirán juntos la cuenta",
				"en el banco.",
				"",
				"El costo de la tarjeta es de una pepita",
				"por cada 100 pepitas de transacciones.",
				"Esto se cobrará automáticamente."
			})
		end
	else
		command = bankapi.optionMenu("--- "..tempClientData[currentAccount].name.." ---", {
			[1] = {
			["option"] = "balance",
			["text"] =  "Consultar balance"},
			[2] = {
			["option"] = "transaction",
			["text"] =  "Realizar transacción"},
			[3] = {
			["option"] = "log",
			["text"] =  "Historial de transacciones"},
			[4] = {
			["option"] = "logout",
			["text"] =  "Salir"},
		}, 2)

		if (command == "balance") then
			bankapi.showBalance(currentAccount)

		elseif (command == "log") then
			bankapi.transactionLogScreen(currentAccount)

		elseif (command == "transaction") then
			local tempClientData = bankapi.getClientData()
			local steps = {"Cuenta a recibir los fondos", "Monto a enviar", "Descripción de la transacción"}
			local to = bankapi.selectAccountScreen(steps, 1, currentAccount, true)
			if (to == nil) then break end
			local amount = bankapi.inputNumberScreen(steps, 2, tempClientData[currentAccount].balance)
			if (amount == nil) then break end
			local description = bankapi.inputTextScreen(steps, 3, 100)
			if (description == nil) then break end

			local success, message = bankapi.transaction(currentAccount, to, amount, description)
			bankapi.responseScreen(message.success, message.response)

		elseif (command == "logout") then
			disk.eject(diskSide)
			bankapi.successScreen("¡Hasta luego!")
			os.shutdown()
		end
	end
end
end