Grupo.lua

--- Funciones de Grupos
Group.create = function(jugador,nombre,mensaje)
    if not mensaje then
        mensaje=""
    end
    outputDebugString('creando grupo')
    local date, time = getTheTime()
    date = date.." - "..time
    local cuenta = getAccountName(getPlayerAccount(jugador))
    if not cuenta then return end
    local color = RGBToHex(math.random(255), math.random(255), math.random(255),nil)
    local qh = dbQuery(db, "SELECT * FROM groups where UPPER(name) like UPPER('"..nombre.."')" )
    local result = dbPoll( qh, -1 )
    if #result >= 1 then
        outputDebugString("Nombre no disponible")
        return
    end
    --Se crea el Grupo
    dbExec(db, "INSERT INTO groups (name,leaderAcc,message,chatcolor,date) "..
    "VALUES (?, ?, ?, ?, ?)", nombre,cuenta,mensaje,color,date)
    --Se obtiene el id del grupo recien creado
    local qh = dbQuery(db, "SELECT * FROM groups where UPPER(name) like UPPER('"..nombre.."')" )
    local result = dbPoll( qh, -1 )
    if not result or #result == 0 then return end
    local id_rank = "Fundador_"..result[1].id
    local id_rank2 = "DePrueba_"..result[1].id
    local id_group = result[1].id
    ---Se crea el rango Fundador en el grupo
    dbExec(db, "INSERT INTO groupRanks (id,id_group,name,kick,adv,changerank,createrank,inv,changemsg, "..
    "colorchat,changeNameTeam) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)",
    id_rank,id_group,"Fundador",1,1,1,1,1,1,1,1)
    dbExec(db, "INSERT INTO groupRanks (id,id_group,name)VALUES (?, ?, ?)", id_rank,id_group,"A Prueba")
    --Se crea el miembro en el grupo, con el rango fundador
    dbExec(db, "INSERT INTO groupMembers (id_group,account,date,last_activity,rank_id)VALUES (?, ?, ?, ?, ?)",
    id_group,cuenta,date,date,id_rank)
    outputDebugString(getPlayerName(jugador).." joined group: "..nombre.." as: "..id_rank.." at: "..date)
end

Group.delete = function(id_group)
    dbExec(db, "Delete From invit where id_group = ? ", id_group)
    dbExec(db, "Delete From groupMembers where id_group = ? ", id_group)
    dbExec(db, "Delete From groupRanks where id_group = ? ", id_group)
    dbExec(db, "Delete From groups where id = ? ", id_group)
end

Group.UpdateName = function (id_group,newName)
    dbExec(db, "Update groups SET name = ? where id == ?", newName,id_group)
    for k, l in ipairs(getPlayersFromGroup(id_group)) do
        local tabla = getElementData(l,'GrupoInfo')
        tabla.name = newName
        setElementData(l,'GrupoInfo',tabla)
    end
end

Group.UpdateColorChat = function (id_group,R,G,B)
    local color = RGBToHex(R,G,B,nil)
    dbExec(db, "Update groups SET chatcolor = ? where id == ?", color,id_group)
    for k, l in ipairs(getPlayersFromGroup(id_group)) do
        local tabla = getElementData(l,'GrupoInfo')
        tabla.color = color
        setElementData(l,'GrupoInfo',tabla)
        setElementData(l,'GroupChatColor',color)
    end
end

--Funciones de rangos
Group.CreateRank = function (id_group,name,kick,adv,changerank,createrank,inv,changemsg,colorchat,changeNameTeam)
    local id = name.."_"..id_group
    dbExec(db, "INSERT INTO groupRanks (id,id_group,name,kick,adv,changerank,createrank,inv,changemsg, "..
    "colorchat,changeNameTeam) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)",
    id_rank,id_group,name,tonumber(kick),tonumber(adv),tonumber(changerank),tonumber(createrank),
    tonumber(inv),tonumber(changemsg),tonumber(colorchat),tonumber(changeNameTeam))
end

Group.UpdateRank = function (id_rank,name,kick,adv,changerank,createrank,inv,changemsg,colorchat,changeNameTeam,id_group)
    if string.find(id_rank, "DePrueba_") or string.find(id_rank, "Fundador_") then return false end
    dbExec("Update groupRanks SET name = ?, kick = ?, adv = ?, "..
    "changerank = ?, createrank = ?, inv = ?, changemsg = ?, "..
    "colorchat = ?, changeNameTeam = ? where id = ?",name,kick,adv,changerank,
    createrank,inv,changemsg,colorchat,changeNameTeam,id_rank)
end

Group.deleteRank = function (id_rank)
    if string.find(id_rank, "DePrueba_") or string.find(id_rank, "Fundador_") then return false end
    local newUserRank = "DePrueba_"..id_group
    dbExec(db, "Update groupMembers SET rank_id = ? where rank_id == ?",newUserRank,id_rank)
    dbExec(db, "Delete From groupRanks where id = ? ", id_rank)
end

--Funciones de miembros
Group.UpdateRankMember = function(MemberAccount,id_rank)
    dbExec(db, "Update groupMembers SET rank_id = ? where account == ?",id_rank,MemberAccount)
end

Group.InviteMember(jugador,id_group)
    local cuenta = getAccountName(getPlayerAccount(jugador))
    if not cuenta and not isGuestAccount(cuenta) then return end
    dbExec(db, "Insert into (id_group,account_inv) values (?,?)",id_group,cuenta)
end