View difference between Paste ID: HMGUMEm1 and 2UJDwnUA

 --[[
 Blu-Bank(server) / ATM(client) code
 
 By CreeperGoBoom]]
 
 --VARS
 local version = "V1.0"
 local range = 2
 local newAccAmount = 10000  --How much to start players off with on their first use
 local currency= { --ensure each item is in it's own table to ensure correct order of dispensing at highest level first (like an ATM giving you $100 or $50 notes for example)
 --current exchange rates based mostly on projecte rates, tweaked for fairness
 {["minecraft:emerald_block"] = 147456},
 {["minecraft:diamond_block"] = 73728},
 {["minecraft:emerald"] = 16384},
 {["minecraft:gold_block"] = 18432},
 {["minecraft:diamond"] = 8192},
 {["minecraft:iron_block"] = 2304},
 {["minecraft:gold_ingot"] = 2048},
 {["minecraft:iron_ingot"] = 256},
 {["minecraft:redstone"] = 64},
 }
 
 local function currencyLookupSimple()
   local output = {}
   for count, t in pairs(currency) do
     for itemName,cost in pairs(t) do
       output[itemName] = cost
     end
   end
   return output
 end
 
 local simpleCurrency = currencyLookupSimple()
 --returns an unordered currency list and allows things like if simpleCurrency[name] == cost then
 
 local blacklistNames= {
   "Creeper",
   "Skeleton",
   "Spider",
   "Enderman",
   "Chicken",
   "Cow",
   "Spider",
   "Slime",
   "Villager",
   "Bee",
   "Wolf",
   "Ocelot",
   "Squid"
   }
 
 local keysraw = {
   {
     ["a"] = 30,
   },
   {
     ["b"] = 48,
   },
   {
     ["c"] = 46,
   },
   {
     ["d"] = 32,
   },
   {
     ["e"] = 18,
   },
   {
     ["f"] = 33,
   },
   {
     ["g"] = 34,
   },
   {
     ["h"] = 35,
   },
   {
     ["i"] = 23,
   },
   {
     ["j"] = 36,
   },
   {
     ["k"] = 37,
   },
   {
     ["l"] = 38,
   },
   {
     ["m"] = 50,
   },
   {
     ["n"] = 49,
   },
   {
     ["o"] = 24,
   },
   {
     ["p"] = 25,
   },
   {
     ["q"] = 16,
   },
   {
     ["r"] = 19,
   },
   {
     ["s"] = 31,
   },
   {
     ["t"] = 20,
   },
   {
     ["u"] = 22,
   },
   {
     ["v"] = 47,
   },
   {
     ["w"] = 17,
   },
   {
     ["x"] = 45,
   },
   {
     ["y"] = 21,
   },
   {
     ["z"] = 44,
   },
   {
     [ "1" ] = 2,
   },
   {
     [ "2" ] = 3,
   },
   {
     [ "3" ] = 4,
   },
   {
     [ "4" ] = 5,
   },
   {
     [ "5" ] = 6,
   },
   {
     [ "6" ] = 7,
   },
   {
     [ "7" ] = 8,
   },
   {
     [ "8" ] = 9,
   },
   {
     [ "9" ] = 10,
   },
   {
     [ "0" ] = 11,
   },
 }
 
 --Creates a list of all alphanumeric chars using the table above
 local keys = {}
 for i = 1,#keysraw do
   for a,_ in pairs(keysraw[i]) do
     keys[i]=a
   end
 end
 
 --PRELIMINARY--
 
 local function httpGet(stringURL, stringFileNameToSaveTo)
   local h, err = http.get(stringURL)
   if not h then printError(err) return nil end
   local f = fs.open(stringFileNameToSaveTo, "w")
   f.write(h.readAll())
   f.close()
   h.close()
   return true
 end
 
 --Get API if don't already have
 if not fs.exists("apis/CGBCoreLib.lua") then
   if not httpGet("https://pastebin.com/raw/xuMVS2GP", "apis/CGBCoreLib.lua") then
     error("Error: Dependancy 'CGBCoreLib' could not be downloaded. Please connect your internet and restart")
   end
 end
 
 local cgb = require("apis/CGBCoreLib") --Contains complete function library used accross multiple programs and to minimize code size.
 
 cgb.saveConfig("data/keydata.lua",keys)
 --For API check
 local requiredAPIFuncs = {
   "getAnswerWithPrompts",
   "saveConfig",
   "fileWrite",
   "findPeripheralOnSide",
   "isInList",
   "stringToTable",
   }
 
 --Check API to ensure not outdated
 for _ , func in pairs(requiredAPIFuncs) do
   if not cgb[func] then
     if not httpGet("https://pastebin.com/raw/xuMVS2GP", "apis/CGBCoreLib.lua") then
       error("Error: Your version of CGBCoreLib is outdated! Please connect your internet and restart!")
     else
       os.reboot()
     end
   end
 end
 
 local pcTypes = {"Bank","ATM"}
 --Now check to see what this is (Bank or ATM)
 local function pcTypeCheck()
   local output=nil
   for key, type in pairs(pcTypes) do
     if fs.exists("data/blubank/" .. type .. ".type") then
       output = type
       return true,output
     end
   end
   if not output then
     return nil
   end
 end
 
 local modem = nil
 --New computer. creates a blank file as a type placeholder
 --Find modem, make sure it is wireless and open rednet.
 --using sides first
 local sides = redstone.getSides()
 for _,side in pairs(sides) do
   if peripheral.getType(side) == "modem" and peripheral.call(side,"isWireless") then
     modem = true --no point with a wrap since we have found a modem to open rednet directly.
     rednet.open(side)
     break
   end
 end
 if not modem then --Wireless modem not on sides, must be on network
   local modemList = cgb.getPeripherals("modem")
   for _,v in pairs(modemList) do
     print(v)
     if peripheral.call(v,"isWireless") then
       modem = true
       rednet.open(v)
       break
     end
   end
   if not modem then
     error("Error: Wireless modem not found")
   end
 end
 
 local ok, pcType = pcTypeCheck()
 if not ok then --For new configurations
   local nonexisting
   local event = {}
   pcType = cgb.getAnswerWithPrompts("What type of computer is this?",pcTypes)
   cgb.fileWrite("data/blubank/" .. pcType .. ".type")  --Don't have to repeat this anywhere now
   if pcType == "Bank" then
     --Bank server selected. Ensure no other bank server active by pinging for server.
     --Start a 3 second timer for if there is no answer to ping.
     print("Reminder: This chunk must now remain loaded at all times to avoid problems with ATMs working. Press ENTER to continue.")
     io.read()
     print("Pinging for existing bank server...")
     nonexisting = os.startTimer(3)
     rednet.broadcast("Existing?","Blu-bank-SSL")
     repeat
       event = {os.pullEvent()}
     --Do all checks here.
     until
       (event[1] == "rednet_message" and event[3] == "yes")
     or
       (event[1] == "timer" and event[2] == nonexisting)
     --We have already checked for other event args in repeat until so no need to repeat them below.
     if event[1] == "rednet_message" then
       --Bank server already exists. Ensure that type remains unset.
       print("There is already a Bank server active. Restarting!")
       fs.delete("data/blubank/" .. pcType ..".type")
       sleep(2)
       os.reboot()
     elseif event[1] == "timer" then
       --No bank server exists or active
       print("Other bank server not found. Bank server configured!")
       sleep(2)
     end
   end
 end
 
 if pcType == "ATM" then
   rs.setOutput("bottom",true)
 end
 
 local function resetTerm()
   term.setBackgroundColor(colors.white)
   term.clear()
   if term.isColor() then
   term.setTextColor(colors.blue)
   elseif not term.isColor() then
   term.setTextColor(colors.black)
   end
   term.setCursorPos(1,1)
   if commands ~= nil and pcType == "Bank" then
     print("Blu-Bank OS " .. version .. " Bank")
     print("Command Bank server active!")
   elseif not commands then
     print("Blu-Bank OS " .. version .. " " .. pcType)
     if pcType == "Bank" then
       print("Bank server active!")
     else
       print("Accessing bank server...")
     end
   end
 end
 
 local sign
 local chest
 local trash
 local sensor=nil
 local config = {}
 if pcType == "ATM" then --no point trying to wrap a sensor for bank server.
   sensor = peripheral.wrap(cgb.findPeripheralOnSide("plethora:sensor"))
   if not sensor then
     error("Error: Sensor not found. The ATM requires a sensor turtle with wireless modem to function")
   elseif sensor then
     config["sensor"]=cgb.findPeripheralOnSide("plethora:sensor")
   end
   if not fs.exists("data/blubank/config.lua") then
     --Chests
     repeat
       print("What is the network name of your input chest?")
       input = io.read()
       chest = peripheral.wrap(input)
       if not chest then
         print("Chest not found or input network name not a chest or storage. please check network name and try again")
       end
     until chest
     config["chest"]= input
     --trash for deposits to delete items
     repeat
       print("What is the network name of your trash chest?")
       input = io.read()
       trash = peripheral.wrap(input)
       if not trash then
         print("Chest not found or input network name not a chest or storage. please check network name and try again")
       end
     until trash
     config["trash"] = input
     --configure screens
     print("Please right click on the monitor you wish to use as greeting sign")
     print("OR invoke a redstone signal for network name / side")
     repeat
       event,monitorraw,x,y = os.pullEvent()
     until event == "monitor_touch" or event == "redstone"
     if event == "monitor_touch" then
       config["greeting_monitor"]=monitorraw
       monitor = peripheral.wrap(monitorraw)
     elseif event == "redstone" then
       repeat
         print("What is the network name / side of the screen?")
         input = io.read()
         monitor = peripheral.wrap(input)
         if not monitor then
           print("Entered network name / side not found. Please try again")
         end
       until monitor
       config["greeting_monitor"]=input
     end
     monitor.write("BLU-BANK OS")
 
 
     print("Please right click on the monitor you wish to use as currency sign")
     print("OR invoke a redstone signal for network name / side")
     repeat
       event,monitorraw,x,y = os.pullEvent()
     until event == "monitor_touch" or event == "redstone"
     if event == "monitor_touch" then
       config["currency_monitor"]=monitorraw
       cmonitor = peripheral.wrap(monitorraw)
     elseif event == "redstone" then
       repeat
         print("What is the network name / side of the screen?")
         input = io.read()
         cmonitor = peripheral.wrap(input)
         if not cmonitor then
           print("Entered network name / side not found. Please try again")
         end
       until cmonitor
     config["currency_monitor"]=input
     end
     cmonitor.write("BLU-BANK OS")
 
     print("Please right click on the monitor you wish to use as ATM Building sign")
     print("OR invoke a redstone signal for network name / side")
     repeat
       event,monitorraw,x,y = os.pullEvent()
     until event == "monitor_touch" or event == "redstone"
     if event == "monitor_touch" then
       config["sign_monitor"]=monitorraw
       sign = peripheral.wrap(monitorraw)
     elseif event == "redstone" then
       repeat
         print("What is the network name / side of the screen?")
         input = io.read()
         sign = peripheral.wrap(input)
         if not sign then
           print("Entered network name / side not found. Please try again")
         end
       until sign
     config["sign_monitor"]=input
     end
     sign.write("BLU-BANK OS")
 
     --get and save id of bank server
     rednet.broadcast("bank id?","Blu-bank-SSL")
     event, id, message, protocol = os.pullEvent("rednet_message")
     config.bankId = tonumber(id)
     cgb.saveConfig("data/blubank/config.lua",config)
   else
     --Config exists... load all devices and settings
     config = cgb.loadConfig("data/blubank/config.lua")
 
     --This allows a bank to be moved to a new computer without any ATM config needed.
     --Will stop ATMs turning on if server is not working
     rednet.broadcast("bank id?","Blu-bank-SSL")
     term.clear()
     term.setCursorPos(1,1)
     print("BLU-BANK OS")
     print("Querying bank server...")
     expired = os.startTimer(1)
     repeat
       event, id, message, protocol = os.pullEvent()
     until (event == "rednet_message" and message == "ok") or (event == "timer" and id == expired)
     if event == "rednet_message" then
       config.bankId = tonumber(id)
       monitor = peripheral.wrap(config.greeting_monitor)
       monitor.clear()
       monitor.setCursorPos(1,1)
       monitor.write("Blu-bank OS")
       cmonitor = peripheral.wrap(config.currency_monitor)
       sensor = peripheral.wrap(config.sensor)
       chest = peripheral.wrap(config.chest)
       trash = peripheral.wrap(config.trash)
       sign = peripheral.wrap(config.sign_monitor)
     elseif id == expired then
       print("Bank server not responding! auto restarting in:")
       for i = 5,1,-1 do
         print(i .. "...")
         sleep(1)
       end
       os.reboot()
     end
   end
 end
 
 local function updateCurrencyScreen()
   cmonitor.setBackgroundColor(colors.white)
   cmonitor.clear()
   cmonitor.setTextScale(1)
   cmonitor.setCursorPos(1,1)
   if cmonitor.isColor then
     cmonitor.setTextColor(colors.blue)
   else
     cmonitor.setTextColor(colors.black)
   end
   local ctxt
   cmonitor.write("Credit rates:")
   cmonitor.setCursorPos(1,2)
   for count, t in pairs(currency) do
     local line = count + 2
     for itemname,cost in pairs(t) do
       _, simpleName, simpleName2 = cgb.stringToVars(itemname)
       if simpleName2 then
         cmonitor.write(simpleName .. " " .. simpleName2 .. ": " ..cost)
       elseif not simpleName2 then
         cmonitor.write(simpleName .. ": " ..cost)
       end
     end
     cmonitor.setCursorPos(1,line)
   end
 end
 
 local function updateMonitor(stringNewMsg,colorName)
   monitor.setBackgroundColor(colors.white)
   if colorName then
     monitor.setTextColor(colorName)
   else
     monitor.setTextColor(colors.blue)
   end
   if not monitor.isColor() then
     monitor.setTextColor(colors.black)
   end
   monitor.setTextScale(2)
   monitor.clear()
   monitor.setCursorPos(13,1)
   monitor.write("Blu-Bank OS")
   monitor.setCursorPos(8,2)
   monitor.write(stringNewMsg)
 end
 
 local function buildingSign()
   sign.setBackgroundColor(colors.white)
   sign.clear()
   sign.setCursorPos(2,1)
   sign.setTextScale(5)
   sign.setTextColor(colors.blue)
   sign.write("BLU-BANK")
 end
 
 
 if pcType == "Bank" and not commands then
   print("Warning: This pc is not a command pc, as such only deposits and store purchases are available. Please ensure everyone knows that direct withdrawals are not possible.")
 end
 
 --Prevents a hacker from making any transactions on other players behalf. must be called.
 local function authenticate(stringAuthType)
   rednet.send(senderID, "authorization required")
   event, senderID, message = os.pullEvent()
   if message == "password?" then
     local pass = ""
     for i = 1, 20 do
       k = math.random(1,#keys)
       pass = pass .. keys[k]
     end
     passExpired = os.startTimer(1) --if ATM received password it should have bounced back within 1 second.
     rednet.send(senderID,"pass: " .. pass)
     repeat
       event, senderID, message = os.pullEvent()
     until (event == "rednet_message" and message == pass) or (event == "timer" and senderID == passExpired)
     if event == "rednet_message" then
       rednet.send(senderID, stringAuthType .. " Authorized")
     elseif event == "timer" then
       rednet.send(senderID, "Authorization timed out!")
     end
   end
 end
 
 local sensordata={}
 local function updateSensorData()
   sensordata=sensor.sense() --this is also stored in upper sensordata so we can still do whatever we want with it
 end
 
 local function getPlayerInRange()
   local id = nil
   updateSensorData()
   for i,_ in pairs(sensordata) do
     if sensordata[i].x > -range and
     sensordata[i].x < range and
     sensordata[i].z > -range and
     sensordata[i].z < range and
     sensordata[i].y > -range and
     sensordata[i].y < range then
       if not cgb.isInList(sensordata[i].name,blacklistNames) then
         id = sensordata[i].name
         return true, id--ensures only one player is found at a time. also allows id to be discarded if not needed at the time.
       end
     end
   end
 end
 
 
 local cash = {}
 local event
 local function secondary()
   local messagedata = {}
   local commanddata = {}
   local funds = {}
   local bal = 0
   while true do
     event, senderID, message, protocol = os.pullEvent("rednet_message")
     if protocol == "Blu-bank-SSL" then --hard protocol name for players to guess and take over the server with... especially since they dont know how the commands are even sent or read. (Whatever you do, DO NOT TELL THEM!)
       if pcType == "Bank" then
         if message == "Existing?" then
           rednet.send(senderID,"yes") --makes sure reply is securely sent to enquiring computer.
         elseif message == "bank id?" then
           rednet.send(senderID,"ok")
         end
       end
     end
     --
     if pcType == "Bank" then
       --print(message)
       if commands ~= nil then --allows give command to be sent using ATMs
       --limit commands to give only
         if message:find("command") and message:find("give") then
           print(message)
           messagedata = cgb.stringToTable(message)
           for i = 3,#messagedata do
             commanddata[i-2]=messagedata[i]
           end
           commands[messagedata[2]](table.unpack(commanddata))
           commanddata = {} --This is a must otherwise additional arguments are passed to the next command if your last was long.
         elseif message:find("command") and not message:find("give") then
         --Command use exceeds limit, alert everyone to a potential hacker.
           print("Unauthorized command attempt from PC ID: " .. senderID ..". Attempt: '" .. message .."'.")
           commands.say("Unauthorized access attempt...CC HACKER ALERT!")
         end
       end
       --"purchase playername item cost quantity"
       if message:find("purchase") then
         -- authenticate("Purchase")
         -- event, senderID, message, protocol = os.pullEvent("rednet_message")
         -- if message == "Purchase Authorized" then
           print(message)
           _, player, item, credcost, qty = cgb.stringToVarsAll(message)
           -- for i in string.gmatch(message, "%S+") do
           -- print(i)
           -- end
           --for some reason item is coming back as nil
           print(player .. " requested to purchase " .. qty .. " " .. item)
           local cost = tonumber(credcost) * qty
           funds = cgb.loadConfig("data/blubank/users/" .. player .. ".lua")
           if cost <= funds.balance then
             rednet.send(senderID, "purchase-success")
             funds.balance = funds.balance - cost
             cgb.saveConfig("data/blubank/users/" .. player .. ".lua",funds)
             commands.give(player.." " .. item .. " " .. qty)
           elseif cost > funds.balance then
             rednet.send(senderID,"insufficient funds This item costs " .. cost .. " credits and you have " .. funds.balance .. " credits!")
           end
         -- end
       --"withdraw playername amount"
       elseif message:find("withdraw") then
         local qty
         print(message)
         --authenticate("Withdrawal")
         --event, senderID, message, protocol = os.pullEvent("rednet_message")
         --if message == "Withdrawal Authorized" then
           _, player, amount = cgb.stringToVars(message)
           funds = cgb.loadConfig("data/blubank/users/" .. player .. ".lua")
           print("funds: " .. funds.balance)
           withdrawalRequest = tonumber(amount)
           if withdrawalRequest <= funds.balance then
             rednet.send(senderID,"withdrawal-success")
             commands.say(player .. " requested a withdrawal")
             if funds.balance == withdrawalRequest then
               funds.balance = 0
             elseif funds.balance > withdrawalRequest then
               funds.balance = funds.balance - withdrawalRequest
             end
             print("Remaining: " .. funds.balance)
             cgb.saveConfig("data/blubank/users/" .. player .. ".lua",funds)
             --calculate how many of each item to give
             for i,tablevar in pairs(currency) do
               for itemName,cost in pairs(tablevar) do
                 cash[itemName]={}
                 qty,fraction=math.modf(withdrawalRequest / cost) --how many items can be given at this cost?
                 --item has been calculated. give item
                 --This avoids give not happening due to qty higher than 64 bug
                 if qty > 64 then
                   repeat
                     commands.give(player .. " " .. itemName .. " " .. 64)
                     qty = qty - 64
                   until qty <= 64
                   commands.give(player .. " " .. itemName .. " " .. qty)
                 elseif qty <= 64 then
                   commands.give(player .. " " .. itemName .. " " .. qty)
                 end
                 withdrawalRequest = fraction * cost --How many credits remain after item count?
               end
             end
             --make sure remaining unwithdrawable credits get refunded
             funds.balance = funds.balance + withdrawalRequest
             cgb.saveConfig("data/blubank/users/" .. player .. ".lua",funds)
           elseif withdrawalRequest > funds.balance then
             rednet.send(senderID, "insufficient funds Balance " .. funds.balance .. " credits.")
           end
         --end
       --"deposit playername amount"
       elseif message:find("deposit") then
         --authenticate("Deposit")
         -- event, senderID, message, protocol = os.pullEvent("rednet_message")
         -- if message == "Deposit Authorized" then
           _,player,amount = cgb.stringToVars(message)
           print("Depositing " .. amount .. " credits into " .. player .. "s' account")
           funds = cgb.loadConfig("data/blubank/users/" .. player .. ".lua")
           funds.balance = funds.balance + tonumber(amount)
           cgb.saveConfig("data/blubank/users/" .. player .. ".lua",funds)
           rednet.send(senderID,"deposit-success")
           --Funds addition code here
         -- end
       elseif message == "password?" then
         --password generator code
         --generates a one time password which must be bounced back to server for authentication.
         authenticate()
       --"balance playername"
       elseif message:find("balance") then
         --authenticate("Balance query")
         -- event, senderID, message, protocol = os.pullEvent("rednet_message")
         -- if message == "Balance query Authorized" then
            _, player= cgb.stringToVars(message)
           if not fs.exists("data/blubank/users/" .. player .. ".lua") then
             print("Creating new account for: " .. player)
             if newAccAmount > 0 then
               print("Adding " .. newAccAmount .. " credits for " .. player)
             end
             funds.balance = newAccAmount
             cgb.saveConfig("data/blubank/users/" .. player .. ".lua",funds)
           else
             print("Loading funds of: " .. player)
             funds = cgb.loadConfig("data/blubank/users/" .. player .. ".lua")
           end
           rednet.send(senderID, "bal " .. funds.balance)
         --end
       elseif message:find("transfer") then
         _, fromplayer, toplayer, amount = cgb.stringToVarsAll(message)
         amount = tonumber(amount)
         funds = cgb.loadConfig("data/blubank/users/" .. fromplayer .. ".lua")
         if amount > funds.balance then
           rednet.send(senderID, "insufficient funds You requested to transfer " .. amount .. " credits but have " .. funds.balance .. " credits!")
         elseif amount <= funds.balance then
           rednet.send(senderID, "transfer-success")
           funds.balance = funds.balance - amount
           cgb.saveConfig("data/blubank/users/" .. fromplayer .. ".lua",funds)
           funds = cgb.loadConfig("data/blubank/users/" .. toplayer .. ".lua")
           funds.balance = funds.balance + amount
           cgb.saveConfig("data/blubank/users/" .. toplayer .. ".lua",funds)
           if commands then commands.tell(toplayer .. " " .. fromplayer .. " has just transferred you " .. amount .. " credits!") end
         end
       end
     elseif pcType == "ATM" then
       if message == "withdraw-success" then
         print("Success. Dispensing cash... please check your inventory :D")
       elseif message == "authorization required" then
         rednet.send(senderID, "password?")
         event,senderID,message = os.pullEvent("rednet_message")
         if message:find("pass:") then
           _, pass = cgb.stringToVars(message)
           rednet.send(senderID,pass)
           event,senderID,message = os.pullEvent("rednet_message")
           if message == "Authorization timed out!" then
             error("BluBank OS: err_auth_failed. Please contact server admin.")
           end
         end
       end
     end
   end
 end
 
 
 local player = "nil"
 local playercheck
 local playermem
 local function main()
   while true do
     if pcType == "ATM" then
       buildingSign()
       updateMonitor(" ")
       resetTerm()
 
       repeat
         ok,player = getPlayerInRange()
         if not ok then
           sleep(1)
         end
       until ok
       rs.setOutput("bottom",false)
       playermem = player
       updateMonitor("WELCOME " .. player .. "!")
       updateCurrencyScreen()
       print("Welcome " .. player .. "!")
       rednet.send(config.bankId, "balance " .. player)
       --"bal balance"
       repeat
         event,senderID,message = os.pullEvent("rednet_message")
       until message:find("bal")
       _, bal= cgb.stringToVars(message)
       print("Your balance: " ..bal .. " credits.")
       print("Press W for Withdrawal")
       print("Press D for Deposit")
       print("Press T to Transfer credits")
       print("Press E for the Credit Exchange Store")
       print("Press L to Logoff")
       repeat
         event,c = os.pullEvent("char")
       until c
       if c == "l" then  --Logoff
         rs.setOutput("bottom",true)
         print("Logged off! Thanks for using Blu-Bank! See you soon!")
         print("Please step away from the ATM.")
         updateMonitor("Farewell Tenant!")
         cmonitor.setBackgroundColor(colors.black)
         cmonitor.clear()
 
         repeat
           ok,player = getPlayerInRange()
           if ok then
             sleep(1)
           end
         until not ok
       elseif c == "w" then --Withdraw
         print("How much would you like to withdraw?")
         local amount = io.read()
         rednet.send(config.bankId,"withdraw " .. player .. " " .. amount)
         event,senderID,message = os.pullEvent("rednet_message")
         if message == "withdrawal-success" then
           print("Success. Dispensing cash... please check your inventory :D")
           sleep(3)
         elseif message:find("insufficient") then
           local replyString = ""
           local insufficientFundsMessage = {}
           --"insufficent funds message"
           messagedata = cgb.stringToTable(message)
           for i = 3, #messagedata do
             insufficientFundsMessage[i-2]=messagedata[i]
           end
           for _, str in pairs(insufficientFundsMessage) do
             replyString = replyString .. " " .. str
           end
           replyString = replyString .. "!"
           print("Insufficient funds! " .. replyString)
           sleep(3)
         end
       elseif c == "d" then --Deposit
         local itemvalue
         local total=0
         print("Take a look at the credit rates and place your deposit in the chest.")
         print("Press any key when you are ready to continue.")
         os.pullEvent("key")
         print("Processing, please wait.")
         for slot,item in pairs(chest.list()) do
           --if item not listed in currency, do not move
           if simpleCurrency[item.name] then
             chest.pushItems(config.trash,slot,item.count)
             total = total + (item.count * simpleCurrency[item.name])
           end
         end
         if total == 0 then
           print("Nothing inserted or items do not match list. please check your deposit items and try again.")
           sleep(3)
         else
           print("You have inserted " .. total .. " credits")
           print("Are you happy to finalize your deposit? Y or N")
           repeat
             event,c = os.pullEvent("char")
           until c == "y" or c == "n"
           if c == "n" then
             print("Returning your deposit")
             for slot,item in pairs(trash.list()) do
               trash.pushItems(config.chest,slot,item.count)
             end
             sleep(2)
           elseif c == "y" then
             print("Sending deposit request...")
             rednet.send(config.bankId, "deposit " .. player .. " " .. total)
             event,senderID,message = os.pullEvent("rednet_message")
             if message == "deposit-success" then
               for slot,_ in pairs(trash.list()) do
                 trash.drop(slot)
               end
               print("Deposit of " .. total .. " credits success!")
               sleep(3)
             end
             --deposit code
           end
         end
         -- elseif message == "deposit-success" then
           -- print("Deposit Successful!")
           -- sleep(3)
       elseif c == "t" then --Transfer
         print("Transfers are performed as following:")
         print("toPlayerName amount")
         print("Please ensure you have spelled the playername correctly E.g: 'playername' is not 'PlayerName'")
         repeat
           input = io.read()
           toplayer, amount = cgb.stringToVarsAll(input)
           print("You have requested: " .. amount .. " credits to be transferred to: '" .. toplayer .."'.")
           print("Is this correct? Press Y or N. N will cancel the operation")
           event,c = os.pullEvent("char")
         until c=="y" or c=="n"
         if c=="y" then
           rednet.send(config.bankId, "transfer " .. player .. " " .. toplayer .. " " .. amount)
           event,senderID,message = os.pullEvent("rednet_message")
           if message == "transfer-success" then
             print("Transfer successful!")
           elseif message:find("insufficient") then
             local replyString = ""
             local insufficientFundsMessage = {}
             --"insufficent funds message"
             messagedata = cgb.stringToTable(message)
             for i = 3, #messagedata do
               insufficientFundsMessage[i-2]=messagedata[i]
             end
             for _, str in pairs(insufficientFundsMessage) do
               replyString = replyString .. " " .. str
             end
             replyString = replyString .. "!"
             print("Insufficient funds! " .. replyString)
             sleep(5)
           end
           sleep(3)
         end
       elseif c == "e" then --Credit Exchange Store
         term.clear()
         term.setCursorPos(1,1)
         print("Credit Exchange Store")
         print("Your Balance: " .. bal .. " credits.")
         for count, t in pairs(currency) do
           for itemName,cost in pairs(t) do
             -- _, simpleName, simpleName2 = cgb.stringToVars(itemname)
             -- if simpleName2 then
               -- print(simpleName .. " " .. simpleName2 .. ": " ..cost)
             -- elseif not simpleName2 then
               -- print(simpleName .. ": " ..cost)
             -- end
             print("'" .. itemName .. "' = " .. cost)
           end
         end
         repeat
           print("Please enter as: item qty")
           input = io.read()
           item, qty = cgb.stringToVarsAll(input)
           if not simpleCurrency[item] then
             print("Please ensure you include the full name including minecraft: and your spelling is correct.")
           end
         until simpleCurrency[item]
         rednet.send(config.bankId, "purchase " .. player .. " " .. item .. " " .. simpleCurrency[item] .. " " ..qty)
         event,senderID,message = os.pullEvent("rednet_message")
         if message == "purchase-success" then
           print("Purchase successful, please check your inventory.")
           sleep(3)
         elseif message:find("insufficient") then
           local replyString = ""
           local insufficientFundsMessage = {}
           --"insufficent funds message"
           messagedata = cgb.stringToTable(message)
           for i = 3, #messagedata do
             insufficientFundsMessage[i-2]=messagedata[i]
           end
           for _, str in pairs(insufficientFundsMessage) do
             replyString = replyString .. " " .. str
           end
           replyString = replyString .. "!"
           print("Insufficient funds! " .. replyString)
           sleep(5)
         end
       end
       --term.clear()
       --term.setCursorPos(1,1)
     elseif pcType == "Bank" then
       resetTerm()
       while true do
         os.pullEvent()
       end
     end
     --while not logged in by anyone, monitor reads 'Blu-bank ATM'. white background, blue writing if colors supported
     --when someone approaches, they are logged in and the screen changes to 'WELCOME playername'
     --When someone is logged in a redstone signal is output at bottom for door
     --When player leaves the detection range, a message is displayed 'Thankyou for using Blu-Bank. See you soon!' before going back to not logged in screen
   end
 end
 
 while true do
   parallel.waitForAny(main, secondary)
   --secondary()
 end