Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --Configuration
- local modemSide = "left"
- local modemChannel = 1
- --Utility Functions
- function error(i)
- term.setTextColor(colors.green)
- write("[")
- term.setTextColor(colors.red)
- write("ERR")
- term.setTextColor(colors.green)
- write("] ")
- term.setTextColor(colors.white)
- write(i.."\n")
- end
- function info(i)
- term.setTextColor(colors.green)
- write("[")
- term.setTextColor(colors.yellow)
- write("INFO")
- term.setTextColor(colors.green)
- write("] ")
- term.setTextColor(colors.white)
- write(i.."\n")
- end
- function ok(i)
- term.setTextColor(colors.green)
- write("[")
- term.setTextColor(colors.white)
- write("OK")
- term.setTextColor(colors.green)
- write("] ")
- term.setTextColor(colors.white)
- write(i.."\n")
- end
- function screenInit()
- term.clear()
- term.setCursorPos(1,1)
- term.setTextColor(colors.green)
- write("Forum server initialising at ")
- term.setTextColor(colors.red)
- write(textutils.formatTime(os.time(),false))
- term.setTextColor(colors.green)
- write(" on day ")
- term.setTextColor(colors.red)
- write(os.day().."\n")
- term.setTextColor(colors.white)
- end
- function reply(i,j)
- rednet.send(sid,i,j)
- end
- --Main Functions
- function init()
- if fs.exists("/.forum") and fs.exists("/.forum/db") then
- ok("Identified /.forum and /.forum/db.")
- local database = textutils.unserialize(fs.open("/.forum/db","r").readAll())
- else
- info("Creating /.forum and /.forum/db...")
- fs.makeDir("/.forum")
- fs.open("/.forum/db","w").writeLine("{}")
- end
- main()
- end
- function main()
- rednet.open("top")
- while running do
- local sid, msg, ptc = rednet.receive()
- if ptc == "ATM" then
- local request, user, amount = unpack(textutils.serialize(msg))
- if request == "MAKEUSER" then
- info(request.." request...")
- if database[user] ~= nil then
- database[user] = {username = user, password = amount, permissions = 0, systemId = sid, balance = 0}
- else
- reply("ERR","Username already taken.")
- end
- elseif request == "" then
- info(request.." request...")
- elseif request == "" then
- info(request.." request...")
- elseif request == "" then
- info(request.." request...")
- end
- end
- end
- end
- --Initialisation
- screenInit()
- init()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement