262 lines
8.2 KiB
Lua
262 lines
8.2 KiB
Lua
local _detalhes = _G.Details
|
||
local gump = _detalhes.gump
|
||
local container_pets = _detalhes.container_pets
|
||
local _
|
||
local addonName, Details222 = ...
|
||
|
||
-- api locals
|
||
local UnitGUID = _G.UnitGUID
|
||
local _UnitName = _G.UnitName
|
||
local _GetUnitName = _G.GetUnitName
|
||
local IsInRaid = _G.IsInRaid
|
||
local IsInGroup = _G.IsInGroup
|
||
local GetNumGroupMembers = _G.GetNumGroupMembers
|
||
|
||
-- lua locals
|
||
local setmetatable = setmetatable
|
||
local _bit_band = bit.band --lua local
|
||
local pairs = pairs
|
||
local wipe = table.wipe
|
||
|
||
--details locals
|
||
local is_ignored = _detalhes.pets_ignored
|
||
|
||
function container_pets:NovoContainer()
|
||
local esta_tabela = {}
|
||
setmetatable(esta_tabela, _detalhes.container_pets)
|
||
esta_tabela.pets = {} --armazena a pool -> uma dictionary com o [serial do pet] -> nome do dono
|
||
esta_tabela._ActorTable = {} --armazena os 15 ultimos pets do jogador -> [jogador nome] -> {nil, nil, nil, ...}
|
||
return esta_tabela
|
||
end
|
||
|
||
local OBJECT_TYPE_PET = 0x00001000
|
||
local EM_GRUPO = 0x00000007
|
||
local PET_EM_GRUPO = 0x00001007
|
||
|
||
function container_pets:PegaDono (pet_serial, pet_nome, pet_flags)
|
||
|
||
--sair se o pet estiver na ignore
|
||
if (is_ignored [pet_serial]) then
|
||
return
|
||
end
|
||
|
||
--buscar pelo pet no container de pets
|
||
local busca = self.pets [pet_serial]
|
||
if (busca) then
|
||
--in merging operations, make sure to not add the owner name a second time in the name
|
||
|
||
--check if the pet name already has the owner name in, if not, add it
|
||
if (not pet_nome:find("<")) then
|
||
--get the owner name
|
||
local ownerName = busca[1]
|
||
--add the owner name to the pet name
|
||
pet_nome = pet_nome .. " <".. ownerName ..">"
|
||
end
|
||
|
||
--return busca[6] or pet_nome, busca[1], busca[2], busca[3] --busca[6] poderia estar causando problemas
|
||
return pet_nome, busca[1], busca[2], busca[3] --[1] dono nome [2] dono serial [3] dono flag
|
||
end
|
||
|
||
--buscar pelo pet na raide
|
||
local dono_nome, dono_serial, dono_flags
|
||
|
||
if (IsInRaid()) then
|
||
for i = 1, GetNumGroupMembers() do
|
||
if (pet_serial == UnitGUID("raidpet"..i)) then
|
||
dono_serial = UnitGUID("raid"..i)
|
||
dono_flags = 0x00000417 --emulate sourceflag flag
|
||
|
||
local nome, realm = _UnitName ("raid"..i)
|
||
if (realm and realm ~= "") then
|
||
nome = nome.."-"..realm
|
||
end
|
||
dono_nome = nome
|
||
end
|
||
end
|
||
|
||
elseif (IsInGroup()) then
|
||
for i = 1, GetNumGroupMembers()-1 do
|
||
if (pet_serial == UnitGUID("partypet"..i)) then
|
||
dono_serial = UnitGUID("party"..i)
|
||
dono_flags = 0x00000417 --emulate sourceflag flag
|
||
|
||
local nome, realm = _UnitName ("party"..i)
|
||
if (realm and realm ~= "") then
|
||
nome = nome.."-"..realm
|
||
end
|
||
|
||
dono_nome = nome
|
||
end
|
||
end
|
||
end
|
||
|
||
if (not dono_nome) then
|
||
if (pet_serial == UnitGUID("pet")) then
|
||
dono_nome = _GetUnitName ("player")
|
||
dono_serial = UnitGUID("player")
|
||
if (IsInGroup() or IsInRaid()) then
|
||
dono_flags = 0x00000417 --emulate sourceflag flag
|
||
else
|
||
dono_flags = 0x00000411 --emulate sourceflag flag
|
||
end
|
||
end
|
||
end
|
||
|
||
if (dono_nome) then
|
||
self.pets [pet_serial] = {dono_nome, dono_serial, dono_flags, _detalhes._tempo, true, pet_nome, pet_serial} --adicionada a flag emulada
|
||
|
||
if (not pet_nome:find("<")) then
|
||
pet_nome = pet_nome .. " <".. dono_nome ..">"
|
||
end
|
||
|
||
return pet_nome, dono_nome, dono_serial, dono_flags
|
||
else
|
||
|
||
if (pet_flags and _bit_band (pet_flags, OBJECT_TYPE_PET) ~= 0) then --<2D> um pet
|
||
if (not _detalhes.pets_no_owner [pet_serial] and _bit_band (pet_flags, EM_GRUPO) ~= 0) then
|
||
_detalhes.pets_no_owner [pet_serial] = {pet_nome, pet_flags}
|
||
_detalhes:Msg("couldn't find the owner of the pet:", pet_nome)
|
||
end
|
||
else
|
||
is_ignored [pet_serial] = true
|
||
end
|
||
end
|
||
return
|
||
end
|
||
|
||
function container_pets:Unpet (...)
|
||
local unitid = ...
|
||
|
||
local owner_serial = UnitGUID(unitid)
|
||
|
||
if (owner_serial) then
|
||
--tira o pet existente da tabela de pets e do cache do core
|
||
local existing_pet_serial = _detalhes.pets_players [owner_serial]
|
||
if (existing_pet_serial) then
|
||
_detalhes.parser:RevomeActorFromCache (existing_pet_serial)
|
||
container_pets:Remover (existing_pet_serial)
|
||
_detalhes.pets_players [owner_serial] = nil
|
||
end
|
||
--verifica se h<> um pet novo deste jogador
|
||
local pet_serial = UnitGUID(unitid .. "pet")
|
||
if (pet_serial) then
|
||
if (not _detalhes.tabela_pets.pets [pet_serial]) then
|
||
local nome, realm = _UnitName (unitid)
|
||
if (realm and realm ~= "") then
|
||
nome = nome.."-"..realm
|
||
end
|
||
_detalhes.tabela_pets:Adicionar (pet_serial, _UnitName (unitid .. "pet"), 0x1114, owner_serial, nome, 0x514)
|
||
end
|
||
_detalhes.parser:RevomeActorFromCache (pet_serial)
|
||
container_pets:PlayerPet (owner_serial, pet_serial)
|
||
end
|
||
end
|
||
end
|
||
|
||
function container_pets:PlayerPet (player_serial, pet_serial)
|
||
_detalhes.pets_players [player_serial] = pet_serial
|
||
end
|
||
|
||
function container_pets:BuscarPets()
|
||
if (IsInRaid()) then
|
||
for i = 1, GetNumGroupMembers(), 1 do
|
||
local pet_serial = UnitGUID("raidpet"..i)
|
||
if (pet_serial) then
|
||
if (not _detalhes.tabela_pets.pets [pet_serial]) then
|
||
local nome, realm = _UnitName ("raid"..i)
|
||
if (realm and realm ~= "") then
|
||
nome = nome.."-"..realm
|
||
end
|
||
local owner_serial = UnitGUID("raid"..i)
|
||
_detalhes.tabela_pets:Adicionar (pet_serial, _UnitName ("raidpet"..i), 0x1114, owner_serial, nome, 0x514)
|
||
_detalhes.parser:RevomeActorFromCache (pet_serial)
|
||
container_pets:PlayerPet (owner_serial, pet_serial)
|
||
end
|
||
end
|
||
end
|
||
|
||
elseif (IsInGroup()) then
|
||
for i = 1, GetNumGroupMembers()-1, 1 do
|
||
local pet_serial = UnitGUID("partypet"..i)
|
||
if (pet_serial) then
|
||
if (not _detalhes.tabela_pets.pets [pet_serial]) then
|
||
local nome, realm = _UnitName ("party"..i)
|
||
|
||
if (realm and realm ~= "") then
|
||
nome = nome.."-"..realm
|
||
end
|
||
_detalhes.tabela_pets:Adicionar (pet_serial, _UnitName ("partypet"..i), 0x1114, UnitGUID("party"..i), nome, 0x514)
|
||
|
||
end
|
||
end
|
||
end
|
||
|
||
local pet_serial = UnitGUID("pet")
|
||
if (pet_serial) then
|
||
if (not _detalhes.tabela_pets.pets [pet_serial]) then
|
||
_detalhes.tabela_pets:Adicionar (pet_serial, _UnitName ("pet"), 0x1114, UnitGUID("player"), _detalhes.playername, 0x514)
|
||
end
|
||
end
|
||
|
||
else
|
||
local pet_serial = UnitGUID("pet")
|
||
if (pet_serial) then
|
||
if (not _detalhes.tabela_pets.pets [pet_serial]) then
|
||
_detalhes.tabela_pets:Adicionar (pet_serial, _UnitName ("pet"), 0x1114, UnitGUID("player"), _detalhes.playername, 0x514)
|
||
end
|
||
end
|
||
end
|
||
end
|
||
|
||
function container_pets:Remover (pet_serial)
|
||
if (_detalhes.tabela_pets.pets [pet_serial]) then
|
||
table.wipe(_detalhes.tabela_pets.pets [pet_serial])
|
||
end
|
||
_detalhes.tabela_pets.pets [pet_serial] = nil
|
||
end
|
||
|
||
function container_pets:Adicionar (pet_serial, pet_nome, pet_flags, dono_serial, dono_nome, dono_flags)
|
||
if (pet_flags and _bit_band (pet_flags, OBJECT_TYPE_PET) ~= 0 and _bit_band (pet_flags, EM_GRUPO) ~= 0) then
|
||
self.pets [pet_serial] = {dono_nome, dono_serial, dono_flags, _detalhes._tempo, true, pet_nome, pet_serial}
|
||
else
|
||
self.pets [pet_serial] = {dono_nome, dono_serial, dono_flags, _detalhes._tempo, false, pet_nome, pet_serial}
|
||
end
|
||
end
|
||
|
||
function _detalhes:WipePets()
|
||
return wipe(_detalhes.tabela_pets.pets)
|
||
end
|
||
|
||
function _detalhes:PetContainerCleanup()
|
||
--erase old pet table by creating a new one
|
||
local newPetTable = {}
|
||
--minimum of 90 minutes to clean a pet from the pet table data
|
||
for PetSerial, PetTable in pairs(_detalhes.tabela_pets.pets) do
|
||
if ( (PetTable[4] + 5400 > _detalhes._tempo + 1) or (PetTable[5] and PetTable[4] + 43200 > _detalhes._tempo) ) then
|
||
newPetTable [PetSerial] = PetTable
|
||
end
|
||
end
|
||
_detalhes.tabela_pets.pets = newPetTable
|
||
_detalhes:UpdateContainerCombatentes()
|
||
|
||
end
|
||
|
||
local have_schedule = false
|
||
function _detalhes:UpdatePets()
|
||
have_schedule = false
|
||
return container_pets:BuscarPets()
|
||
end
|
||
function _detalhes:SchedulePetUpdate(seconds)
|
||
if (have_schedule) then
|
||
return
|
||
end
|
||
have_schedule = true
|
||
|
||
--_detalhes:ScheduleTimer("UpdatePets", seconds or 5)
|
||
Details.Schedules.NewTimer(seconds or 5, Details.UpdatePets, Details)
|
||
end
|
||
|
||
function _detalhes.refresh:r_container_pets (container)
|
||
setmetatable(container, container_pets)
|
||
end
|
||
|