Антикапс, API1, API2 | Без наворотов, зато работает

function ChatArrival(tUser, sData)
    if tAdmins[tUser.iProfile] and tAdmins[tUser.iProfile] == 1 then
        return
    end
  local sNick = tUser.sNick or tUser.sName
  sData = sData:sub(sNick:len() + 4, -2)
  local nk, data = sData:match"(%S+): (.*)"
  if nk and ((not frmHub and Core.GetUser(nk)) or (frmHub and GetItemByName(nk))) then
    sData = data
  end
  
    local sSubed, bChanged = MadeNormLen(sData, iSymbLimit, "%p+")
    if bChanged then
        sData = sSubed
    end
    if sData:len() >= iCheckSize then
        local sNoSpaces = sData:gsub("[%s%с%d%p]", "")
        local iNoSpasesLen = sNoSpaces:len()
        if iNoSpasesLen > 0 then
            local iCapsLen = 0
            local sChData = sData
            local sNoCapsData = sNoSpaces:gsub("["..sBigData.."]", function(c)
                iCapsLen = iCapsLen + 1
                sChData = sChData:gsub(c, LowString(c))
                return ""
            end)
            local iValue = iCapsLen / iNoSpasesLen
            if iValue >= iPersents then
                if not bChanged then
                    bChanged = true
                end
        if nk then
          sChData = nk..": "..sChData
        end
                sData = sChData
            end
        end
    end
    if bChanged then
        sData:SendToAll(sNick)
        return sRetVal
    end
end

function ChatArrival(tUser, sData)
  if tAdmins[tUser.iProfile] and tAdmins[tUser.iProfile] == 1 then
    return
  end
  local sNick = tUser.sNick or tUser.sName
  sData = sData:sub(sNick:len() + 4, -2)
  if sData:match"magnet:%?xt=urn:tree:tiger:" then
    return
  end
...

-- Размер сообщения с которого начинает реагировать скрипт:
iCheckSize = 5

-- Процент капса, при котором сработает скрипт:
iPersents = 80

ChatArrival=function(sUser,sData)
    local noCaps,f=isYELL(sData)
    if f then
        Core.SendToAll("<"..sUser.sNick.. "> " ..noCaps)
        return true
    end
end

isYELL=function (sData)
    local flag=false
    if sData:match"magnet:%?xt=urn:tree:tiger:" then
        return sData,flag
    end
    local nk, data = sData:match"^(%S+): (.*)"
    if nk then sData = data end
    local nsp = sData:gsub ("[%s%p%c]", "")
    if nsp:len() > iCheckSize then
        local NoSpacesLen = nsp:len()
        local NoCAPSLen = (nsp:gsub("[%uА-ЯЁ]", "")):len()
        if (NoSpacesLen - NoCAPSLen)/NoSpacesLen * 100 > iPersents then
            sData=ToLowerCase(sData)
            flag=true
        end
    end
    if nk then sData=nk..": "..sData end
    return sData,flag
end

ToLowerCase = function(s)
    for i = 192,223 do
        s = s:gsub(string.char(i), string.char(i+32))
    end
    s = s:gsub(string.char(168), string.char(184))
    return s:lower()
end

ToLowerCase = function(s)
  for i = 192, 223 do
    s = s:gsub(string.char(i), string.char(i + 32))
  end
  s = s:gsub(string.char(168), string.char(184))
  return s:lower()
end

Core.SendToAll("<"..sUser.sNick.. "> " ..noCaps)

Core.SendToAll("" ..noCaps)