魔兽世界怀旧服轻量级杀怪种类统计插件(KillCountBroadcast) v1.10 免费版

fram= CreateFrame("Frame", nil, UIParent)
fram:SetWidth(76)
fram:SetHeight(36)
--fram:SetFrameStrata("BACKGROUND")
local height = GetScreenHeight()
local width = GetScreenWidth()
fram:SetPoint("CENTER", width * 0.4,-(height * 0.25))
fram:SetMovable(true)
fram:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
fram:RegisterEvent("PLAYER_REGEN_DISABLED")
fram:RegisterEvent("PLAYER_REGEN_ENABLED")
fram:RegisterEvent("CHAT_MSG_WHISPER")--私聊
local CombatLogGetCurrentEventInfo = CombatLogGetCurrentEventInfo

local killedhistory ={}
local nowkilled
local starttime
local ChatTypelist =
{
   "SAY" ,
   "EMOTE" ,
   "YELL",
   "PARTY",
   "GUILD" ,
   "OFFICER",
   "RAID",
   "RAID_WARNING",
   "INSTANCE_CHAT",
   "BATTLEGROUND",
   "WHISPER",
   "CHANNEL",
   "AFK",
   "DND"  
}
local chanel = ChatTypelist[4]
local autochanel = false    --自动切换喊话频道开关，为了避免在公共频道频繁喊话，默认关闭
function setchanel ()
   if(not autochanel)then return end
   local temp
   if(UnitInRaid("player") and  chanel ~= ChatTypelist[7] ) then
      temp = ChatTypelist[7]
   else if(UnitInParty("player") and  chanel ~= ChatTypelist[4] ) then
         temp = ChatTypelist[4]
      else
         temp = ChatTypelist[1]
      end
   end
  
   if( temp ~= chanel) then
      chanel = temp  
      print("更改喊话频道：",chanel)
   end
end
local enCombat = false
fram:SetScript("OnEvent",function(self,event,...)
      if(event =="PLAYER_REGEN_DISABLED") then  
         if(not nowkilled) then starttime = date("%Y-%m-%d %H:%M:%S") end --如果没有杀死怪的记录，就重置时间
         SendChatMessage("进入战斗!!" ,chanel ,nil,nil)
         enCombat = true
      else if(event =="PLAYER_REGEN_ENABLED") then  
            enCombat = false
            setchanel ()
            SendChatMessage("战斗结束!!" ,chanel ,nil,nil)  
            --SendChatMessage("战斗结束!!" ,"CHANNEL" ,nil,2)  
            --print("nowkilled = ",nowkilled,table.getn(nowkilled))
            if(nowkilled) then  
               if(not ckbtn1:GetChecked()) then return end
               local titled=false
               local monsterCount =0
               for k,v in pairs(nowkilled) do  
                  monsterCount =  monsterCount + v
                  if(not titled) then SendChatMessage("本次杀怪数量如下：" ,chanel ,nil,nil) titled = true end
                  SendChatMessage("共 "..v.." 只 "..k ,chanel ,nil,nil)
                  --SendChatMessage("共 "..v.." 只  "..k ,"CHANNEL" ,nil,2)
                  killedhistory[#killedhistory+1] = nowkilled
               end
               SendChatMessage("总共 "..monsterCount.." 只 " ,chanel ,nil,nil)
               nowkilled = nil
            end
         else if (event=="COMBAT_LOG_EVENT_UNFILTERED") then
               local timestamp, subEvent, hideCaster, sourceGUID, sourceName, sourceFlags, sourceRaidFlags, destGUID, destName, destFlags, destRaidFlags, param12, param13, param14, param15, param16, param17, param18, param19, param20, param21, param22, param23, param24 = CombatLogGetCurrentEventInfo()
               if(subEvent == "UNIT_DIED") then
                  print("死亡：",subEvent,destName)
                  if(not nowkilled or nowkilled == nil) then nowkilled ={} end
                  if(nowkilled[destName]) then  
                     nowkilled[destName] = nowkilled[destName] +1
                  else
                     nowkilled[destName] = 1
                  end
               end
              
               --print(timestamp, subEvent, hideCaster, sourceGUID, sourceName, sourceFlags, sourceRaidFlags, destGUID, destName, destFlags, destRaidFlags, param12, param13, param14, param15, param16, param17, param18, param19, param20, param21, param22, param23, param24)
            else if (event=="CHAT_MSG_WHISPER") then
                  if(not ckbtn2:GetChecked()) then return end
                  msg, player, _, channel_name, _, status, _, channel_id,_, _, _, guid, BNguid= ...;
                  local tb = {
                     ".*有.*坑",
                     ".*有.*位置",
                     ".*有.*位子",
                     ".*什么.*等级",
                     ".*多少.*等级",
                  }
                  for i=1,#tb do
                     if(string.match(msg,tb[i])) then
                        local partyMember = GetNumGroupMembers()
                        if(partyMember and partyMember > 1) then
                           --print(" partyMember", partyMember)
                           local lvls = {}
                           for h=1,partyMember-1 do
                              --print("当前队员："..player..tostring(UnitLevel("party"..h)))
                              lvls[#lvls + 1] = UnitLevel("party"..h)
                           end
                           SendChatMessage("当前队伍："..partyMember.."人，等级分别为："..table.concat(lvls,"，"),"Whisper","Common",player)  
                           break
                        end
                     end
                  end
               end
            end
         end
      end
   end
);

ckbtn1=CreateFrame("CheckButton", nil, fram,"UICheckButtonTemplate")
fontstring1 = fram:CreateFontString(nil, "ARTWORK", "GameFontNormal")
fontstring1:SetFont(GameFontNormal:GetFont(),12)
--GameFontNormal:GetFont()
fontstring1:SetText("开启广播")
fontstring1:SetPoint("LEFT",30,0)
ckbtn1.text  = fontstring1
ckbtn1:SetPoint("LEFT")
ckbtn1:SetChecked("True")

ckbtn2=CreateFrame("CheckButton", nil, fram,"UICheckButtonTemplate")
fontstring2 = fram:CreateFontString(nil, "ARTWORK", "GameFontNormal")
fontstring2:SetFont(GameFontNormal:GetFont(),12)
--GameFontNormal:GetFont()
fontstring2:SetText("自动回复")
fontstring2:SetPoint("LEFT",30,-30)
ckbtn2.text  = fontstring2
ckbtn2:SetPoint("LEFT")
ckbtn2:SetChecked("True")
ckbtn2:SetPoint("LEFT",0,-30)


btn = CreateFrame("Button", nil, fram,"UIPanelButtonTemplate,SecureActionButtonTemplate")
btn:SetText("打印统计")
btn:SetWidth(76)
btn:SetHeight(36)
btn:SetPoint("LEFT",0,-60)
btn:SetScript("OnClick",function()
      for k,v in pairs(killedhistory[#killedhistory]) do  
         SendChatMessage("共 "..v.." 只  "..k ,"SAY" ,nil,nil)
      end
      
   end
);