XML System

-- XML SYSTEM
-- Be Extreemhost
local XML = {
    file = 'GameXML.xml',
    xmlFile = false,
}
function XMLClientStart()
    XML.xmlFile = checkForXMLFile()
end

function XMLClientStop()
    if xmlData.xmlFile then
        XML:xmlUnloadFile(XML.xmlFile)
    end
end

function checkForXMLFile()
    if not XML.xmlFile then
        local xmlFile = XML:xmlLoadFile(XML.file, 'xmlData')
        if xmlFile then
            return xmlFile
        else
            xmlFile = XML:xmlCreateFile(XML.file, 'xmlData')
            XML:xmlSaveFile(xmlFile)
            return xmlFile
        end
    else
        return XML.xmlFile
    end
end

-- XML LOAD
function loadXML(xmlNode, defaultValues)
    if XML.xmlFile then
        if xmlNode then
            local dataNode = XML:xmlFindChild(XML.xmlFile, xmlNode, 0)
            if not dataNode then
                dataNode = XML:xmlCreateChild(XML.xmlFile, xmlNode)
                XML:xmlNodeSetValue(dataNode, defaultValues)
                XML:xmlSaveFile(XML.xmlFile)
                return defaultValues
            end
            if dataNode then
                local returnData = XML:xmlNodeGetValue(dataNode)
                if returnData then
                    return returnData
                else
                    return defaultValues
                end
            end
        else
            return false
        end
    end
end

-- XML SAVE
function saveXML(xmlNode, valueToSave)
    if XML.xmlFile then
        if xmlNode then
            local dataNode = XML:xmlFindChild(XML.xmlFile, xmlNode, 0)
            if not dataNode then
                dataNode = XML:xmlCreateChild(XML.xmlFile, xmlNode)
            end
            if dataNode then
                XML:xmlNodeSetValue(dataNode, valueToSave)
                XML:xmlSaveFile(XML.xmlFile)
                return true
            end
            return false
        else
            return false
        end
    end
end