--//Zecon

local cht = peripheral.wrap("right")

cht.setSayRange(-1)
cht.setReadRange(-1)
cht.setLabel("Zecon")

cht.say("Servers Are Up")
cht.say("Use ##$help To Get Help (Unavailable)")

local eco = ".eco"
local users = "/.users/"

local template = {name="User", cur=20}

local function getEco()
  local file = fs.open(eco, "r").readAll()
  return tonumber(file)
end

local function setEco(newVal)
  local file = fs.open(eco, "w")
  file.write(newVal)
  file.close()
  return true
end

local function signUp(user)
  if not fs.exists(users..user..".eco") then
    cht.say("["..user.."] You seem new, Welcome to Zecon!")
    local file = fs.open(users..user..".eco", "w")
    local tempTemp = template
    tempTemp.name = user
    file.write(textutils.serialize(tempTemp))
    file.close()

    setEco(getEco()+20)
    return true
  end
  return false
end

local function getVal(user)
  signUp()
  local file = fs.open(users..user..".eco", "r").readAll()
  file = textutils.unserialize(file)
  return file.cur
end

local function setVal(user, newVal)
  local file = fs.open(users..user..".eco", "w")
  local tempTemp = template
  tempTemp.name = user
  tempTemp.cur = newVal

  file.write(textutils.serialize(tempTemp))
  file.close()
  return true
end

local cmds =
{
  {
    keys = { "cur", "currency", "zecons" },

    func = function(player, msg)
      return "You Own "..getVal(player).." Zecons"
    end
  },

  {
    keys = { "eco", "economy", "value" },

    func = function(player, msg)
      return "The Economy Is Worth "..getEco().." Zecons"
    end
  },
}

while true do
  local e, s, u, msg = os.pullEvent("chat_message")

  if msg:sub(1, 1) == "_" then
    msg = msg:sub(2, #msg)

    for k, v in pairs(cmds) do
      for k2, v2 in pairs(v.keys) do
        if msg == v2 then
          returns = {v.func(u, msg)}
          for _, m in pairs(returns) do
            cht.say("["..u.."] "..m)
          end
        end
      end
    end
  end
end