update chat

This commit is contained in:
Bunny67
2018-07-24 17:53:13 +03:00
parent 6579534c59
commit ec1ad46dd3
+34 -32
View File
@@ -505,7 +505,9 @@ function CH:PrintURL(url)
return "|cFFFFFFFF[|Hurl:"..url.."|h"..url.."|h]|r " return "|cFFFFFFFF[|Hurl:"..url.."|h"..url.."|h]|r "
end end
function CH:FindURL(event, msg, ...) function CH:FindURL(event, msg)
if not arg1 then arg1 = msg end
if event and event == "CHAT_MSG_WHISPER" and CH.db.whisperSound ~= "None" and not CH.SoundPlayed then if event and event == "CHAT_MSG_WHISPER" and CH.db.whisperSound ~= "None" and not CH.SoundPlayed then
PlaySoundFile(LSM:Fetch("sound", CH.db.whisperSound), "Master") PlaySoundFile(LSM:Fetch("sound", CH.db.whisperSound), "Master")
CH.SoundPlayed = true CH.SoundPlayed = true
@@ -513,34 +515,34 @@ function CH:FindURL(event, msg, ...)
end end
if not CH.db.url then if not CH.db.url then
msg = CH:CheckKeyword(msg) arg1 = CH:CheckKeyword(arg1)
return false, msg, unpack(arg) return false
end end
msg = gsub(gsub(msg, "(%S)(|c.-|H.-|h.-|h|r)", '%1 %2'), "(|c.-|H.-|h.-|h|r)(%S)", "%1 %2") arg1 = gsub(gsub(arg1, "(%S)(|c.-|H.-|h.-|h|r)", '%1 %2'), "(|c.-|H.-|h.-|h|r)(%S)", "%1 %2")
-- http://example.com -- http://example.com
local newMsg, found = gsub(msg, "(%a+)://(%S+)%s?", CH:PrintURL("%1://%2")) local newMsg, found = gsub(arg1, "(%a+)://(%S+)%s?", CH:PrintURL("%1://%2"))
if found > 0 then return false, CH:CheckKeyword(newMsg), unpack(arg) end if found > 0 then return false, CH:CheckKeyword(newMsg) end
-- www.example.com -- www.example.com
newMsg, found = gsub(msg, "www%.([_A-Za-z0-9-]+)%.(%S+)%s?", CH:PrintURL("www.%1.%2")) newMsg, found = gsub(arg1, "www%.([_A-Za-z0-9-]+)%.(%S+)%s?", CH:PrintURL("www.%1.%2"))
if found > 0 then return false, CH:CheckKeyword(newMsg), unpack(arg) end if found > 0 then return false, CH:CheckKeyword(newMsg) end
-- example@example.com -- example@example.com
newMsg, found = gsub(msg, "([_A-Za-z0-9-%.]+)@([_A-Za-z0-9-]+)(%.+)([_A-Za-z0-9-%.]+)%s?", CH:PrintURL("%1@%2%3%4")) newMsg, found = gsub(arg1, "([_A-Za-z0-9-%.]+)@([_A-Za-z0-9-]+)(%.+)([_A-Za-z0-9-%.]+)%s?", CH:PrintURL("%1@%2%3%4"))
if found > 0 then return false, CH:CheckKeyword(newMsg), unpack(arg) end if found > 0 then return false, CH:CheckKeyword(newMsg) end
-- IP address with port 1.1.1.1:1 -- IP address with port 1.1.1.1:1
newMsg, found = gsub(msg, "(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)(:%d+)%s?", CH:PrintURL("%1.%2.%3.%4%5")) newMsg, found = gsub(arg1, "(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)(:%d+)%s?", CH:PrintURL("%1.%2.%3.%4%5"))
if found > 0 then return false, CH:CheckKeyword(newMsg), unpack(arg) end if found > 0 then return false, CH:CheckKeyword(newMsg)end
-- IP address 1.1.1.1 -- IP address 1.1.1.1
newMsg, found = gsub(msg, "(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)%s?", CH:PrintURL("%1.%2.%3.%4")) newMsg, found = gsub(arg1, "(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)%.(%d%d?%d?)%s?", CH:PrintURL("%1.%2.%3.%4"))
if found > 0 then return false, CH:CheckKeyword(newMsg), unpack(arg) end if found > 0 then return false, CH:CheckKeyword(newMsg) end
msg = CH:CheckKeyword(msg) arg1 = CH:CheckKeyword(arg1)
return false, msg, unpack(arg) return false
end end
local SetHyperlink = ItemRefTooltip.SetHyperlink local SetHyperlink = ItemRefTooltip.SetHyperlink
function ItemRefTooltip:SetHyperlink(data, ...) function ItemRefTooltip:SetHyperlink(data)
if strsub(data, 1, 3) == "url" then if strsub(data, 1, 3) == "url" then
local currentLink = strsub(data, 5) local currentLink = strsub(data, 5)
if not ChatFrameEditBox:IsShown() then if not ChatFrameEditBox:IsShown() then
@@ -550,7 +552,7 @@ function ItemRefTooltip:SetHyperlink(data, ...)
ChatFrameEditBox:Insert(currentLink) ChatFrameEditBox:Insert(currentLink)
ChatFrameEditBox:HighlightText() ChatFrameEditBox:HighlightText()
else else
SetHyperlink(self, data, unpack(arg)) SetHyperlink(self, data)
end end
end end
@@ -663,7 +665,7 @@ function CH:GetColoredName(event, _, arg2)
return arg2 return arg2
end end
function CH:ChatFrame_OnEvent(self, event, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) function CH:ChatFrame_OnEvent(self, event)
if event == "UPDATE_CHAT_WINDOWS" then if event == "UPDATE_CHAT_WINDOWS" then
local _, fontSize, _, _, _, _, shown = GetChatWindowInfo(self:GetID()) local _, fontSize, _, _, _, _, shown = GetChatWindowInfo(self:GetID())
if fontSize > 0 then if fontSize > 0 then
@@ -947,7 +949,7 @@ function CH:ChatFrame_OnEvent(self, event, arg1, arg2, arg3, arg4, arg5, arg6, a
end end
function CH:FloatingChatFrame_OnEvent() function CH:FloatingChatFrame_OnEvent()
if CH:ChatFrame_OnEvent(this, event, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) then return end if CH:ChatFrame_OnEvent(this, event) then return end
FloatingChatFrame_OnEvent(event) FloatingChatFrame_OnEvent(event)
end end
@@ -1075,12 +1077,12 @@ function CH:ChatThrottleHandler(author, message)
end end
end end
function CH:CHAT_MSG_CHANNEL(event, message, author, ...) function CH:CHAT_MSG_CHANNEL(event)
local blockFlag = false local blockFlag = false
local msg = PrepareMessage(author, message) local msg = PrepareMessage(arg2, arg1)
-- ignore player messages -- ignore player messages
if author == E.myname then return CH.FindURL(self, event, message, author, unpack(arg)) end if arg2 == E.myname then return CH.FindURL(self, event) end
if msgList[msg] and CH.db.throttleInterval ~= 0 then if msgList[msg] and CH.db.throttleInterval ~= 0 then
if difftime(time(), msgTime[msg]) <= CH.db.throttleInterval then if difftime(time(), msgTime[msg]) <= CH.db.throttleInterval then
blockFlag = true blockFlag = true
@@ -1094,18 +1096,18 @@ function CH:CHAT_MSG_CHANNEL(event, message, author, ...)
msgTime[msg] = time() msgTime[msg] = time()
end end
return CH.FindURL(self, event, message, author, unpack(arg)) return CH.FindURL(self, event)
end end
end end
function CH:CHAT_MSG_YELL(event, message, author, ...) function CH:CHAT_MSG_YELL(event)
local blockFlag = false local blockFlag = false
local msg = PrepareMessage(author, message) local msg = PrepareMessage(arg2, arg1)
if msg == nil then return CH.FindURL(self, event, message, author, unpack(arg)) end if msg == nil then return CH.FindURL(self, event) end
-- ignore player messages -- ignore player messages
if author == E.myname then return CH.FindURL(self, event, message, author, unpack(arg)) end if arg2 == E.myname then return CH.FindURL(self, event) end
if msgList[msg] and msgCount[msg] > 1 and CH.db.throttleInterval ~= 0 then if msgList[msg] and msgCount[msg] > 1 and CH.db.throttleInterval ~= 0 then
if difftime(time(), msgTime[msg]) <= CH.db.throttleInterval then if difftime(time(), msgTime[msg]) <= CH.db.throttleInterval then
blockFlag = true blockFlag = true
@@ -1119,12 +1121,12 @@ function CH:CHAT_MSG_YELL(event, message, author, ...)
msgTime[msg] = time() msgTime[msg] = time()
end end
return CH.FindURL(self, event, message, author, unpack(arg)) return CH.FindURL(self, event)
end end
end end
function CH:CHAT_MSG_SAY(event, message, author, ...) function CH:CHAT_MSG_SAY(event)
return CH.FindURL(self, event, message, author, unpack(arg)) return CH.FindURL(self, event)
end end
function CH:ThrottleSound() function CH:ThrottleSound()
@@ -1196,7 +1198,7 @@ end
function CH:AddLines(lines, ...) function CH:AddLines(lines, ...)
for i = arg.n, 1, -1 do for i = arg.n, 1, -1 do
local x = select(i, unpack(arg)) local x = arg[i]
if x:GetObjectType() == "FontString" and not x:GetName() then if x:GetObjectType() == "FontString" and not x:GetName() then
tinsert(lines, x:GetText()) tinsert(lines, x:GetText())
end end