Languages = of.class:new()
Languages.groups = {}

function Languages:new(name, priority)
   if(not priority) then
    priority = 0
   end
   if(language(name)) then
    outputServerLog("[i18n] Error adding Languages: language \"" .. name .. "\" already exists!")
    return false
   else
    outputServerLog("[i18n] Language \"".. name .. "\" has been added!")
    object = of.class:new(Languages)
    _Languages[name] = object
    object._priority = priority
    object._name = name
    return object
   end
end

function Languages:loadFile(filepath)   
   outputServerLog("[i18n] Loading language file: " .. filepath)
   local xmlFile = xmlLoadFile(filepath)
   if(not xmlFile) then
    outputServerLog("[i18n] Loading language file " .. filepath .. " failed! Reason: couldn't open the file")
    return false
   end
   for i,node in ipairs(xmlNodeGetChildren(xmlFile)) do
    local messageGroup = self:group(xmlNodeGetAttribute(node, "name"))
    if(messageGroup) then
     local groupColor = xmlNodeGetAttribute(node, "color") or xmlNodeGetAttribute(node, "colour") or "FFFFFF"   
     for k, message in ipairs(xmlNodeGetChildren(node)) do
      local message = xmlNodeGetAttribute(message, "name")
      if(messageName) then
       local msgColor = xmlNodeGetAttribute(message, "color") or xmlNodeGetAttribute(message, "colour") or groupColor
       messageGroup:addMessage(messageName, Message:new(xmlNodeGetValue(message), msgColor))
      end
     end
    end
      
   end
   xmlUnloadFile(xmlFile)
   outputServerLog("[i18n] Language file " .. filepath .. " has just been loaded!")
   return true
end

addEventHandler("onResourceStart", getResourceRootElement(getThisResource()),   
   function(startedResource)
   Languages:new("en"):loadFile("/docs/i18n.xml")
end)

functon foo()
return 5, 6, 7, 8
end
local a, b, c = foo()
print(a .. b .. c)  

functon foo()
return 5, 6, 7, 8
end
local a, b, c, d = foo()
print(a .. b .. c .. d)  

foo() {
  new a[] = {5, 6, 7, 8};
  return a;
}
public OnGameModeInit()
{
  new a[4];
  a = foo();
  printf("%d, %d, %d, %d", a[0], a[1], a[2], a[3]);
}