Computronics : Tape Drive error

---Ask the server---
rednet.open("top")
serverID = 14
rednet.send(serverID,"opcode1")
local event, senderID, message, distance = os.pullEvent()
if event == "rednet_message" then
users = textutils.unserialize(message)
end
sleep(0.1)
rednet.send(serverID,"opcode2")
local event, senderID, message, distance = os.pullEvent()
if event == "rednet_messag" then
moneys = textutils.unserialize(message)
end
sleep(0.1)
rednet.send(serverID,"opcode3")
local event, senderID, message, distance = os.pullEvent()
if event == "rednet_message" then
lockeds = textutils.unserialize(message)
end
sleep(0.1)
rednet.send(serverID,"opcode4")
local event, senderID, message, distance = os.pullEvent()
if event == "rednet_message" then
codes = textutils.unserialize(message)
end
sleep(0.1)
rednet.send(serverID,"opcode5")
local event, senderID, message, distance = os.pullEvent()
if event == "rednet_message" then
isInactive = textutils.unserialize(message)
end
--Define functions--
function getData()
if actualUser == "Arektor" then
  user = users[1]
  money = moneys[1]
  code = codes[1]
  isLocked = lockeds[1]
elseif actualUser == "Leo" then
  user = users[2]
  money = moneys[2]
  code = codes[2]
  isLocked = lockeds[2]
elseif actualUser == "Maxime" then
  user = users[3]
  money = moneys[3]
  code = codes[3]
  isLocked = lockeds[3]
elseif actualUser == "Crosf" then
  user = users[4]
  money = moneys[4]
  code = codes[4]
  isLocked = lockeds[4]
elseif actualUser == "Magni" then
  user = users[5]
  money = moneys[5]
  code = codes[5]
  isLocked = lockeds[5]
end
end
--------------------
function displayData()
term.setCursorPos(1,1)
term.setBackgroundColor(8)
write("User: "..user)
term.setCursorPos(30,1)
print("Money: "..money)
term.setCursorPos(1,2)
print("Code: "..code)
term.setCursorPos(30,2)
print("Locked: "..isLocked)
end
--------------------
function displayPanel()
loadImage("Menu")
getData()									-- getData = Obtain informations about the user's account
displayData()								-- displayData = Display these informations
term.setCursorPos(51,1)
term.setBackgroundColor(16384)
write("X")
term.setCursorPos(8,16)
term.setBackgroundColor(512)
write("Get")
term.setCursorPos(8,17)
write("Money")
term.setCursorPos(21,16)
write("Stock")
term.setCursorPos(21,17)
write("Money")
term.setCursorPos(40,18)
write("Lock Account")
term.setCursorPos(27,4)
write("Send Money")
term.setCursorPos(27,5)
write("to an other")
term.setCursorPos(27,6)
write("account.")
end
--------------------
function loadImage(name)
image = paintutils.loadImage("/Data/Images/"..name)
paintutils.drawImage(image,1,1)
end
--------------------

--Authentification--
loadImage("Intro")
term.setCursorPos(4,13)
term.setBackgroundColor(8)
write("Username")
write(users[1])
term.setCursorPos(2,16)
write("Password Code")
term.setCursorPos(19,11)
term.setTextColor(8192)
write("Remote Access Edition")
h = 0
while h == 0 do
term.setTextColor(1)
term.setCursorPos(3,14)
term.setBackgroundColor(256)
user = read()
term.setCursorPos(3,17)
code = read("*")
if user == users[1] and code == codes[1] then
  actualUser = "Arektor"
  h = 1
elseif user == users[2] and code == codes[2] then
  actualUser = "Leo"
  h = 1
elseif user == users[3] and code == codes[3] then
  actualUser = "Maxime"
  h = 1
elseif user == users[4] and code == codes[4] then
  actualUser = "Crosf"
  h = 1
elseif user == users[5] and code == codes[5] then
  actualUser = "Magni"
  h = 1
else
  loadImage("Intro")
  term.setCursorPos(4,13)
  term.setBackgroundColor(8)
  write("Username")
  term.setCursorPos(2,16)
  write("Password Code")
  term.setCursorPos(19,11)
  term.setTextColor(8192)
  write("Remote Access Edition")
  term.setCursorPos(38,4)
  term.setBackgroundColor(256)
  term.setTextColor(16384)
  print("Invalid")
  term.setCursorPos(38,5)
  print("combinaison of")
  term.setCursorPos(38,6)
  print("username and")
  term.setCursorPos(38,7)
  print("password code.")
end
end
--Bank Account Control--
displayPanel()
v = 0
while v == 0 do
local event, button, x, y = os.pullEvent("mouse_click")
  if x >= 4 and y >= 16 and x <= 6 and y <= 17 then
   getMoney()
   v = 1
  elseif x >= 17 and x <= 19 and y <= 17 and y >= 16 then
   stockMoney()
   v = 1
  elseif x >= 44 and y >= 15 and x <= 48 and y <= 17 then
   lockAcount()
   v = 1
  elseif x == 51 and y == 1 then
   os.shutdown()
  end
end

rednet.open("top")
term.clear()
term.setCursorPos(1,1)
term.setTextColor(32)
print("A'Bank Server Platform System")
print(" ")
term.setTextColor(1)
local users = {
"Arektor";
"Léo";
"Maxime";
"Crosf";
"Magni";
}
--------------------
local moneys = {
0;
0;
0;
0;
0;
}
--------------------
local lockeds = {
"false";
"false";
"false";
"false";
"false";
}
--------------------
local codes = {
"4921s-ender";
"7436p-zlqng";
"941rt-nrj95";
"41237-eaq7m";
"uig25-etn25";
}
--------------------
local isInactive = {
"false";
"false";
"false";
"false";
"false";
}
--------------------
local falseOpcode = {
"uiglenf571ev5";
"arzeioh546vx312";
"endptzearek2684";
"rezabjn7-4z2f";
"rzeijor-4245n-z41f";
}
--Prepare opcodes packets for transmission--
userss = textutils.serialize(users)
moneyss = textutils.serialize(moneys)
lockedss = textutils.serialize(lockeds)
codess = textutils.serialize(codes)
isInactives = textutils.serialize(isInactive)
falseOpcodes = textutils.serialize(falseOpcode)
--Start the platform system--
i = 50
while i == 50 do
local event, senderID, message, distance = os.pullEventRaw()
if event == "rednet_message" then
  if message == "opcode1" then
   sleep(0.1)
   rednet.send(senderID,userss)
   print("Opcode 1 (Users) was sent to the router "..senderID)
  elseif message == "opcode2" then
   sleep(0.1)
   rednet.send(senderID,moneyss)
   print("Opcode 2 (Moneys) was sent to the router "..senderID)
  elseif message == "opcode3" then
   sleep(0.1)
   rednet.send(senderID,lockedss)
   print("Opcode 3 (Lockeds) was sent to the router "..senderID)
  elseif message == "opcode4" then
   sleep(0.1)
   rednet.send(senderID,codess)
   print("Opcode 4 (Password Codes) was sent to the router "..senderID)
  elseif message == "opcode5" then
   sleep(0.1)
   rednet.send(senderID,isInactives)
   print("Opcode 5 (Is Inactive ?) was sent to the router "..senderID)
  else -- Detect if a false message is sended for trying to receive an opcode.
   print("Router "..senderID.." tried to send a wrong message!")
   rednet.send(senderID,falseOpcodes)
  end
elseif event == "terminate" then
  print("Bank Server Platform ended! A'Bank is now disabled!!")
  i = 51
end
end

local t = {
    foo = "bar";
}
print( foo )

while true do
    local e = { os.pullEvent() }
    if e[1] == "rednet_message" then
        -- Do something
    end
end

rednet.open("top")
serverID = 14
rednet.send(serverID,"opcode1")
rednet.receive(3)
if not message == nil then
users = textutils.unserialize(message)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode2")
rednet.receive(3)
if not message == nil then
moneys = textutils.unserialize(message)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode3")
rednet.receive(3)
if not message == nil then
lockeds = textutils.unserialize(message)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode4")
rednet.receive(3)
if not message == nil then
codes = textutils.unserialize(message)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode5")
rednet.receive(3)
if not message == nil then
isInactive = textutils.unserialize(message)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end

local sender, message = rednet.receive()

if message ~= nil then
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
else
users = textutils.unserialize(message)
end

{
"Arektor",
"Léo",
"Maxime",
"Crosf",
"Magni",
}

{
"Arektor",
"Léo",
"Maxime",
"Crosf",
"Magni",
}

if message ~= nil then --#this returns true if the message contains content, you want this to be if message==nil then
	print("Could not connect to A'Bank Server Platform. Exiting...")
	sleep(2)
	shell.exit()
else
	users = textutils.unserialize(message)
end

function saveFile(data, filename)
      if fs.exists(filename) then
         fs.delete(filename)
      end
      file = fs.open(filename, "w")
      file.write(textutils.serialize(pages))
      file.close()
end

function loadFile(filename)
       if fs.exists(filename) then
          file = fs.open(filename, "r")
          data = textutils.unserialize(file.readAll())
          file.close()
		else
           --#if the file doesn't exist you can put some error handling routines in here
        end
		return data
end

users=loadFile("users.txt")

saveFile(newusers,"users.txt")

local function saveFile(data, filename)
	local file = fs.open(filename, "w")
	if file then
		file.write(textutils.serialize(data))
		file.close()
	else error("Failure writing to file \""..filename.."\".") end
end

local function loadFile(filename)
	if fs.exists(filename) then
		local file = fs.open(filename, "r")
		local data = textutils.unserialize(file.readAll())
		file.close()
		return data
	else error("Can't locate file \""..filename.."\" for reading.") end
end

elseif message == "addmoney" then
   print("Router "..senderID.." has sent a request to adding money to his account.")
   local sender, message = rednet.receive(2)
   if sender == senderID and message == users[1] or message == users[2] or message == users[3] or message == users[4] or message == users[5] then
	print("Router "..senderID.." is logged as the user "..message)
	local sender, count = rednet.receive(2)
	if sender == senderID then
	 if message == users[1] then
	  print(count.." added to "..message.."'s account.")
	  moneys[1] = moneys[1] + count
	  saveFile(moneys, "money")
	  local moneys = loadFile("money")

function saveFile(data, filename)
	  if fs.exists(filename) then
		 fs.delete(filename)
	  end
	  file = fs.open(filename, "w")
	  file.write(textutils.serialize(data))
	  file.close()
end
---------------------
function loadFile(filename)
	   if fs.exists(filename) then
		  file = fs.open(filename, "r")
		  data = textutils.unserialize(file.readAll())
		  file.close()
	   else
		   print("Could not load money table. Exiting...")
		   sleep(1.3)
		   i = 51
		   shell.exit()
	   end
				   return data
end

moneys = loadFile("money")

rednet.open("top")
term.clear()
i = 50
term.setCursorPos(1,1)
term.setTextColor(32)
print("A'Bank Server Platform System")
print(" ")
term.setTextColor(1)
--Declare functions--
function saveFile(data, filename)
	  if fs.exists(filename) then
		 fs.delete(filename)
	  end
	  file = fs.open(filename, "w")
	  file.write(textutils.serialize(data))
	  file.close()
end
---------------------
function loadFile(filename)
	   if fs.exists(filename) then
		  file = fs.open(filename, "r")
		  data = textutils.unserialize(file.readAll())
		  file.close()
			    else
		   print("Could not load money table. Exiting...")
	 sleep(1.3)
	 i = 51
	 shell.exit()
	    end
			    return data
end
---------------------
local users = {
"Arektor",
"Léo",
"Maxime",
"Crosf",
"Magni",
}
--------------------
local moneys = loadFile("money")
--------------------
local lockeds = {
"false";
"false";
"false";
"false";
"false";
}
--------------------
local codes = {
"4921s-ender";
"7436p-zlqng";
"941rt-nrj95";
"41237-eaq7m";
"uig25-etn25";
}
--------------------
local isInactive = {
"false";
"false";
"false";
"false";
"false";
}
--------------------
local falseOpcode = {
"uiglenf571ev5";
"arzeioh546vx312";
"endptzearek2684";
"rezabjn7-4z2f";
"rzeijor-4245n-z41f";
}
--Prepare opcodes packets for transmission--
userss = textutils.serialize(users)
moneyss = textutils.serialize(moneys)
lockedss = textutils.serialize(lockeds)
codess = textutils.serialize(codes)
isInactives = textutils.serialize(isInactive)
falseOpcodes = textutils.serialize(falseOpcode)
--Start the platform system--
while i == 50 do
local event, senderID, message, distance = os.pullEventRaw()
if event == "rednet_message" then
  if message == "opcode1" then
   sleep(0.1)
   rednet.send(senderID,userss)
   print("Opcode 1 (Users) was sent to the router "..senderID)
  elseif message == "opcode2" then
   sleep(0.1)
   rednet.send(senderID,moneyss)
   print("Opcode 2 (Moneys) was sent to the router "..senderID)
  elseif message == "opcode3" then
   sleep(0.1)
   rednet.send(senderID,lockedss)
   print("Opcode 3 (Lockeds) was sent to the router "..senderID)
  elseif message == "opcode4" then
   sleep(0.1)
   rednet.send(senderID,codess)
   print("Opcode 4 (Password Codes) was sent to the router "..senderID)
  elseif message == "opcode5" then
   sleep(0.1)
   rednet.send(senderID,isInactives)
   print("Opcode 5 (Is Inactive ?) was sent to the router "..senderID)
  elseif message == "removemoney" then
   local sender, message = rednet.receive(2)
   if sender == senderID and message == users[1] or message == users[2] or message == users[3] or message == users[4] or message == users[5] then
    local sender, count = rednet.receive(2)
if sender == senderID then
  if message == users[1] then
   moneys[1] = moneys[1] - count
   if moneys[1] < 0 then
    moneys[1] = moneys[1] + count
   else
    saveFile(moneys, "money")
    moneys = {}
	   moneys = loadFile("money")
   end
  elseif message == users[2] then
   moneys[2] = moneys[2] - count
   if moneys[2] < 0 then
    moneys[2] = moneys[2] + count
   else
    saveFile(moneys, "money")
    moneys = {}
	   moneys = loadFile("money")
   end
  elseif message == users[3] then
   moneys[3] = moneys[3] - count
   if moneys[3] < 0 then
    moneys[3] = moneys[3] + count
   else
    saveFile(moneys, "money")
    moneys = {}
	   moneys = loadFile("money")
   end
  elseif message == users[4] then
   moneys[4] = moneys[4] - count
   if moneys[4] < 0 then
    moneys[4] = moneys[4] + count
   else
    saveFile(moneys, "money")
    moneys = {}
	   moneys = loadFile("money")
   end
  elseif message == users[5] then
   moneys[5] = moneys[5] - count
   if moneys[5] < 0 then
    moneys[5] = moneys[5] + count
   else
    saveFile(moneys, "money")
    moneys = {}
	   moneys = loadFile("money")
   end
  end
end
   end
  elseif message == "addmoney" then
   print("Router "..senderID.." has sent a request to adding money to his account.")
   local sender, message = rednet.receive(2)
   if sender == senderID and message == users[1] or message == users[2] or message == users[3] or message == users[4] or message == users[5] then
    print("Router "..senderID.." is logged as the user "..message)
local sender, count = rednet.receive(2)
if sender == senderID then
  if message == users[1] then
   print(count.." added to "..message.."'s account.")
   moneys[1] = moneys[1] + count
   saveFile(moneys, "money")
   moneys = {}
	  moneys = loadFile("money")
  elseif message == users[2] then
   print(count.." added to "..message.."'s account.")
   moneys[2] = moneys[2] + count
   saveFile(moneys, "money")
   moneys = {}
	  moneys = loadFile("money")
  elseif message == users[3] then
   print(count.." added to "..message.."'s account.")
   moneys[3] = moneys[3] + count
   saveFile(moneys, "money")
   moneys = {}
	  moneys = loadFile("money")
  elseif message == users[4] then
   print(count.." added to "..message.."'s account.")
   moneys[4] = moneys[4] + count
   saveFile(moneys, "money")
   moneys = {}
	  moneys = loadFile("money")
  elseif message == users[5] then
   print(count.." added to "..message.."'s account.")
   moneys[5] = moneys[5] + count
   saveFile(moneys, "money")
   moneys = {}
	  moneys = loadFile("money")
  end
end
   end
  else -- Detect if a false message is sended for trying to receive an opcode.
   term.setTextColor(16384)
   print("Router "..senderID.." tried to send a wrong message!")
   rednet.send(senderID,falseOpcodes)
  end
elseif event == "terminate" then
  term.setTextColor(16384)
  print(" ")
  print("Bank Server Platform ended! A'Bank is now disabled!!")
  i = 51
end
end

---Ask the server---
rednet.open("top")
serverID = 14
rednet.send(serverID,"opcode1")
local sender, message = rednet.receive(3)
if message ~= nil then
hash = sha256(message)
users = textutils.unserialize(message)
print("Receiving packet GUID 1")
print("Packet content: "..hash)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode2")
local sender, message = rednet.receive(3)
if message ~= nil then
hash = sha256(message)
moneys = textutils.unserialize(message)
print("Receiving packet GUID 2")
print("Packet content: "..hash)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode3")
local sender, message = rednet.receive(3)
if message ~= nil then
hash = sha256(message)
lockeds = textutils.unserialize(message)
print("Receiving packet GUID 3")
print("Packet content: "..hash)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode4")
local sender, message = rednet.receive(3)
if message ~= nil then
hash = sha256(message)
codes = textutils.unserialize(message)
print("Receiving packet GUID 4")
print("Packet content: "..hash)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
sleep(0.1)
rednet.send(serverID,"opcode5")
local sender, message = rednet.receive(3)
if message ~= nil then
hash = sha256(message)
isInactive = textutils.unserialize(message)
print("Receiving packet GUID 5")
print("Packet content: "..hash)
else
print("Could not connect to A'Bank Server Platform. Exiting...")
sleep(2)
shell.exit()
end
--Define functions--
function getData()
if actualUser == "Arektor" then
  user = users[1]
  money = moneys[1]
  code = codes[1]
  isLocked = lockeds[1]
elseif actualUser == "Leo" then
  user = users[2]
  money = moneys[2]
  code = codes[2]
  isLocked = lockeds[2]
elseif actualUser == "Maxime" then
  user = users[3]
  money = moneys[3]
  code = codes[3]
  isLocked = lockeds[3]
elseif actualUser == "Crosf" then
  user = users[4]
  money = moneys[4]
  code = codes[4]
  isLocked = lockeds[4]
elseif actualUser == "Magni" then
  user = users[5]
  money = moneys[5]
  code = codes[5]
  isLocked = lockeds[5]
end
end
--------------------
function displayData()
term.setCursorPos(1,1)
term.setBackgroundColor(8)
write("User: "..user)
term.setCursorPos(30,1)
print("Money: "..money)
term.setCursorPos(1,2)
print("Code: "..code)
term.setCursorPos(30,2)
print("Locked: "..isLocked)
end
--------------------
function displayPanel()
loadImage("Menu")
getData()								    -- getData = Obtain informations about the user's account
displayData()							    -- displayData = Display these informations
term.setCursorPos(51,1)
term.setBackgroundColor(16384)
write("X")
term.setCursorPos(8,16)
term.setBackgroundColor(512)
write("Get")
term.setCursorPos(8,17)
write("Money")
term.setCursorPos(21,16)
write("Stock")
term.setCursorPos(21,17)
write("Money")
term.setCursorPos(40,18)
write("Lock Account")
term.setCursorPos(27,4)
write("Send Money")
term.setCursorPos(27,5)
write("to an other")
term.setCursorPos(27,6)
write("account")
end
--------------------
function loadImage(name)
image = paintutils.loadImage("/Data/Images/"..name)
paintutils.drawImage(image,1,1)
end
--------------------
function lockAccount()
image = paintutils.loadImage("/Data/Images/lockaccount")
paintutils.drawImage(image,13,2)
term.setCursorPos(15,2)
term.setTextColor(32768)
term.setBackgroundColor(1)
print("Locking the account")
term.setTextColor(1)
term.setBackgroundColor(16384)
term.setCursorPos(36,2)
write("X")
term.setBackgroundColor(2)
term.setCursorPos(18,4)
print("Etes-vous sûr")
term.setCursorPos(15,5)
print("de vouloir bloquer ce")
term.setCursorPos(16,6)
print("compte banquaire ?")
term.setCursorPos(16,17)
term.setBackgroundColor(2048)
write("Oui")
term.setCursorPos(31,17)
write("Non")
end
--------------------
function stockMoney()
rednet.send(serverID,"addmoney")
sleep(0.1)
rednet.send(serverID,actualUser)
sleep(0.1)
rednet.send(serverID,"50")
sleep(0.2)
rednet.send(serverID,"opcode2")
local sender, message = rednet.receive(3)
if message ~= nil then
  moneys = textutils.unserialize(message)
end
sleep(0.1)
getData()
term.setCursorPos(30,1)
print("Money: "..money)
end
--------------------

--Authentification--
loadImage("Intro")
term.setCursorPos(4,13)
term.setBackgroundColor(8)
write("Username")
term.setCursorPos(2,16)
write("Password Code")
term.setCursorPos(19,11)
term.setTextColor(8192)
write("Remote Access Edition")
h = 0
while h == 0 do
term.setTextColor(1)
term.setCursorPos(3,14)
term.setBackgroundColor(256)
user = read()
term.setCursorPos(3,17)
code = read("*")
if user == users[1] and code == codes[1] then
  actualUser = "Arektor"
  h = 1
elseif user == users[2] and code == codes[2] then
  actualUser = "Leo"
  h = 1
elseif user == users[3] and code == codes[3] then
  actualUser = "Maxime"
  h = 1
elseif user == users[4] and code == codes[4] then
  actualUser = "Crosf"
  h = 1
elseif user == users[5] and code == codes[5] then
  actualUser = "Magni"
  h = 1
else
  loadImage("Intro")
  term.setCursorPos(4,13)
  term.setBackgroundColor(8)
  write("Username")
  term.setCursorPos(2,16)
  write("Password Code")
  term.setCursorPos(19,11)
  term.setTextColor(8192)
  write("Remote Access Edition")
  term.setCursorPos(38,4)
  term.setBackgroundColor(256)
  term.setTextColor(16384)
  print("Invalid")
  term.setCursorPos(38,5)
  print("combinaison of")
  term.setCursorPos(38,6)
  print("username and")
  term.setCursorPos(38,7)
  print("password code.")
end
end
--Bank Account Control--
displayPanel()
v = 0
while v == 0 do
local event, button, x, y = os.pullEvent("mouse_click")
  if x >= 4 and y >= 16 and x <= 6 and y <= 17 then
   getMoney()
   v = 1
  elseif x >= 17 and x <= 19 and y <= 17 and y >= 16 then
   stockMoney()
   v = 1
  elseif x >= 44 and y >= 15 and x <= 48 and y <= 17 then
   lockAccount()
   v = 1
  elseif x == 51 and y == 1 then
   term.setBackgroundColor(32768)
   term.clear()
   term.setCursorPos(1,1)
   v = 1
   break
  end
end

local input = assert(io.open("/music/Button.DFPWM")
local data = input:read("*a")
local tapeDrive = peripheral.wrap("bottom") -- The tape drive is under the computer
tapeDrive.write(data)
tapeDrive.seek(-tapeDrive.getSize())
tapeDrive.play()