Васю бесит килшот, принял. Вот килшот который отправляет в чат каждое убийство сразу 5 сообщений
PHP код:
do
local tableremove = table.remove
local bitband = bit.band
local SendChatMessage = SendChatMessage
local frame = CreateFrame("frame")
frame:Hide()
frame.queue = {}
local messages = {
"мазал губы мойнезом %s! Шолунишка #%d",
"авладел жёпай %s! Жёпа #%d",
"кончил на усы %s! Петрович #%d",
"накормил ху_м %s! Наелись %d",
}
local function onShow(self)
self.sleep = 0
end
local function onUpdate(self,elapsed)
self.sleep = self.sleep - elapsed
if self.sleep < 0 then
self.sleep = 1
local msg = tableremove(self.queue)
SendChatMessage(msg,"EMOTE")
if #self.queue == 0 then
self:Hide()
end
end
end
local function onEvent(self,event,...)
if event == "COMBAT_LOG_EVENT_UNFILTERED" then
local _,subEvent,_,_,srcFlags,_,dstName,dstFlags = ...
if subEvent == "PARTY_KILL" then
if bitband(dstFlags,COMBATLOG_OBJECT_TYPE_PLAYER) == COMBATLOG_OBJECT_TYPE_PLAYER and bitband(dstFlags,COMBATLOG_OBJECT_REACTION_HOSTILE) == COMBATLOG_OBJECT_REACTION_HOSTILE then
if bitband(srcFlags,COMBATLOG_FILTER_MY_PET) == COMBATLOG_FILTER_MY_PET or bitband(srcFlags,COMBATLOG_FILTER_ME) == COMBATLOG_FILTER_ME then
self.killstreak = self.killstreak + 1
local queue = self.queue
for i = 1,#messages do
queue[#queue+1] = messages[i]:format((dstName or "$dstName"),self.killstreak)
end
frame:Show()
end
end
end
elseif event == "UNIT_DIED" then
if unit == "player" then
self.killstreak = 0
end
elseif event == "PLAYER_ENTERING_WORLD" then
self.killstreak = 0
end
end
frame:SetScript("OnShow",onShow)
frame:SetScript("OnUpdate",onUpdate)
frame:SetScript("OnEvent",onEvent)
frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
frame:RegisterEvent("UNIT_DIED")
frame:RegisterEvent("PLAYER_ENTERING_WORLD")
end