Приветствуем вас на форуме проекта WoW Circle. Если вы читаете это, значит не зарегистрировались у нас. Для того, чтобы получить доступ к расширенным возможностям нашего форума нажмите сюда и пройди регистрацию, которая не займет у вас много времени. После регистрации будут доступны новые, более расширенные, возможности.
Аддон Killshot - Страница 2

Упомянутые в теме пользователи:

Страница 2 из 2 ПерваяПервая 12
Показано с 13 по 23 из 23

Комбинированный просмотр

Предыдущее сообщение Предыдущее сообщение   Следующее сообщение Следующее сообщение
  1. #1
    Заблокирован
    Регистрация
    09.06.2016
    Адрес
    Rivne, Ukraine
    Сообщений
    907
    Поблагодарил(а)
    244
    Получено благодарностей: 412 (сообщений: 237).
    Репутация: 412
    Васю бесит килшот, принял. Вот килшот который отправляет в чат каждое убийство сразу 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 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 
    Последний раз редактировалось Sproody; 09.12.2019 в 07:08.

  2. #2
    Наш человек Аватар для Vasja_1
    Регистрация
    19.11.2015
    Сообщений
    890
    Поблагодарил(а)
    72
    Получено благодарностей: 94 (сообщений: 78).
    Репутация: 865
    Цитата Сообщение от Sproody Посмотреть сообщение
    Васю бесит килшот, принял. Вот килшот который отправляет в чат каждое убийство сразу 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",
            
    "мазал губы мойнезом %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 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 
    Спс мужик, это то что надо! За этот килшот на циркуле их будет отправлять в мут! Скачивайте все данный килшот!

  3. #3
    Заблокирован
    Регистрация
    09.06.2016
    Адрес
    Rivne, Ukraine
    Сообщений
    907
    Поблагодарил(а)
    244
    Получено благодарностей: 412 (сообщений: 237).
    Репутация: 412
    Цитата Сообщение от Vasja_1 Посмотреть сообщение
    Спс мужик, это то что надо! За этот килшот на циркуле их будет отправлять в мут! Скачивайте все данный килшот!
    вася думает он умный, не будем васе говорить правду.

    - - - Updated - - -

    Цитата Сообщение от Сатанa Посмотреть сообщение
    и получить мут за ор
    хдхд, поправил, в целом это не ор, но на фоне других сообщений создающих негативный контекст этого лучше не писать

  4. #4
    Наш человек Аватар для Vasja_1
    Регистрация
    19.11.2015
    Сообщений
    890
    Поблагодарил(а)
    72
    Получено благодарностей: 94 (сообщений: 78).
    Репутация: 865
    Цитата Сообщение от Sproody Посмотреть сообщение
    вася думает он умный, не будем васе говорить правду.
    Ты скажешь или нет как отключить эту фигную вот в этом аддоне?

  5. #5
    Заблокирован
    Регистрация
    09.06.2016
    Адрес
    Rivne, Ukraine
    Сообщений
    907
    Поблагодарил(а)
    244
    Получено благодарностей: 412 (сообщений: 237).
    Репутация: 412
    Цитата Сообщение от Vasja_1 Посмотреть сообщение
    Ты скажешь или нет как отключить эту фигную вот в этом аддоне?
    Что бы понять какие у тебя аддоны включены мне карты таро разложить надо? Это тебе к гадалке

  6. #6
    Game Master x100 WoTLK / x100 Cata Аватар для Сатана
    Регистрация
    30.10.2015
    Сообщений
    27,387
    Поблагодарил(а)
    122
    Получено благодарностей: 1,743 (сообщений: 1,467).
    Репутация: 4901
    Цитата Сообщение от Sproody Посмотреть сообщение
    свадил мамку %s в кино!
    и получить мут за ор

  7. #7
    Новичок
    Регистрация
    19.04.2018
    Адрес
    Штормград
    Сообщений
    12
    Поблагодарил(а)
    0
    Получено благодарностей: 1 (сообщений: 1).
    Репутация: 1
    так там ничего такого нету, где оскорбление?)
    Bllayzerх

  8. #8
    Ветеран форума Аватар для LinxFree
    Регистрация
    16.06.2013
    Сообщений
    990
    Поблагодарил(а)
    146
    Получено благодарностей: 133 (сообщений: 98).
    Репутация: 175
    Просто оставлю это здесь:


    О наших якобы адекватных игроках использующих килшот в благих целях. @Звёздочка

    - - - Updated - - -

    Цитата Сообщение от Рэнкинд Посмотреть сообщение
    хотя меня мат не интересует.
    Все вы так говорите, неадекваты.
    "Одержать сто побед в ста битвах — это не вершина воинского искусства. Повергнуть врага без сражения — вот вершина."

Страница 2 из 2 ПерваяПервая 12

Похожие темы

  1. Killshot.
    от berdsk6 в разделе Аддоны
    Ответов: 5
    Последнее сообщение: 07.07.2018, 04:57
  2. killshot
    от loveone в разделе Нарушители
    Ответов: 5
    Последнее сообщение: 30.06.2015, 19:20
  3. dG Killshot
    от AkuZokuSan в разделе Аддоны
    Ответов: 0
    Последнее сообщение: 23.05.2014, 09:22

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •