SpamBlock.lua

--[[

Copyright © 2026, DTR, Chiaia, Lili
All rights reserved.

Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:

    * Redistributions of source code must retain the above copyright
      notice, this list of conditions and the following disclaimer.
    * Redistributions in binary form must reproduce the above copyright
      notice, this list of conditions and the following disclaimer in the
      documentation and/or other materials provided with the distribution.
    * Neither the name of this addon nor the
      names of its contributors may be used to endorse or promote products
      derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY
DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

]]

_addon.name = 'SpamBlock'
_addon.version = '1.5.85'
_addon.author = 'DTR, original code by Chiaia'
_addon.commands = {'sbl','spamblock'}

require('luau')
packets = require('packets')
local config = require('config')

-- Default settings
local default = { 
    rmt = true,
    books = true,
    autoupdate = true,
    blist = true,
    custom_blist = T{},
    custom_words = T{},
    update_interval = 15
}

local register_event = windower.register_event
local add_to_chat = windower.add_to_chat
local settings = config.load(default)
local send_command = windower.send_command
local convert_auto_trans = windower.convert_auto_trans
local addon_path = windower.addon_path
local last_update_check = 0
-- Version comparison functions
local function _sanitize_version(v)
    local s = ''
    if v ~= nil then
        s = tostring(v):match("([%d%.]+)") or ''
    end
    local parts = {}
    for seg in s:gmatch('%d+') do
        parts[#parts+1] = tonumber(seg) or 0
    end
    return parts
end

local function compare_versions(a, b)
    local pa, pb = _sanitize_version(a), _sanitize_version(b)
    local n = math.max(#pa, #pb)
    for i = 1, n do
        local va = pa[i] or 0
        local vb = pb[i] or 0
        if va ~= vb then
            return (va > vb) and 1 or -1
        end
    end
    return 0
end

-- Auto-updating check
local update_in_progress = false

-- Non-blocking HTTPS GET. Must run inside a scheduled coroutine: every socket
-- operation uses a zero timeout and yields between polls, so the game thread
-- never blocks on network I/O even when GitHub is unreachable.
local function async_https_get(host, path, timeout_s)
    local ok_socket, socket = pcall(require, 'socket')
    local ok_ssl, ssl = pcall(require, 'ssl')
    if not ok_socket or not ok_ssl then
        return nil, 'missing libraries'
    end

    local deadline = os.clock() + (timeout_s or 10)

    -- DNS resolution has no non-blocking API; it is near-instant when the
    -- resolver is reachable and fails fast when the network is fully down.
    local ip = socket.dns.toip(host)
    if not ip then
        return nil, 'DNS lookup failed'
    end

    local sock = socket.tcp()
    if not sock then
        return nil, 'socket creation failed'
    end
    sock:settimeout(0)

    while true do
        local ret, err = sock:connect(ip, 443)
        if ret or err == 'already connected' then break end
        if err ~= 'timeout' and err ~= 'Operation already in progress' then
            sock:close()
            return nil, 'connect failed (' .. tostring(err) .. ')'
        end
        if os.clock() > deadline then
            sock:close()
            return nil, 'connect timed out'
        end
        coroutine.sleep(0.05)
    end

    local conn = ssl.wrap(sock, {
        mode = 'client',
        protocol = 'any',
        options = {'all', 'no_sslv2', 'no_sslv3'},
        verify = 'none',
    })
    if not conn then
        sock:close()
        return nil, 'ssl wrap failed'
    end
    conn:settimeout(0)
    pcall(conn.sni, conn, host)

    while true do
        local ok, err = conn:dohandshake()
        if ok then break end
        if err ~= 'wantread' and err ~= 'wantwrite' and err ~= 'timeout' then
            conn:close()
            return nil, 'ssl handshake failed (' .. tostring(err) .. ')'
        end
        if os.clock() > deadline then
            conn:close()
            return nil, 'ssl handshake timed out'
        end
        coroutine.sleep(0.05)
    end

    -- HTTP/1.0 with Connection: close keeps the response un-chunked and
    -- terminated by the server closing the socket.
    local request = ('GET %s HTTP/1.0\r\nHost: %s\r\nUser-Agent: SpamBlock/%s\r\nConnection: close\r\n\r\n'):format(path, host, tostring(_addon.version))
    local sent_to = 0
    while sent_to < #request do
        local sent, err, partial_to = conn:send(request, sent_to + 1)
        if sent then
            sent_to = sent
        elseif err == 'wantread' or err == 'wantwrite' or err == 'timeout' then
            sent_to = partial_to or sent_to
            if os.clock() > deadline then
                conn:close()
                return nil, 'send timed out'
            end
            coroutine.sleep(0.05)
        else
            conn:close()
            return nil, 'send failed (' .. tostring(err) .. ')'
        end
    end

    local chunks = {}
    while true do
        local data, err, partial = conn:receive(8192)
        if data then
            chunks[#chunks + 1] = data
        else
            if partial and #partial > 0 then
                chunks[#chunks + 1] = partial
            end
            if err == 'closed' then
                break
            end
            if err ~= 'wantread' and err ~= 'wantwrite' and err ~= 'timeout' then
                conn:close()
                return nil, 'receive failed (' .. tostring(err) .. ')'
            end
            if os.clock() > deadline then
                conn:close()
                return nil, 'receive timed out'
            end
            coroutine.sleep(0.05)
        end
    end
    conn:close()

    local response = table.concat(chunks)
    local status = tonumber(response:match('^HTTP/%d%.%d (%d%d%d)'))
    local header_end = select(2, response:find('\r\n\r\n', 1, true))
    if not status or not header_end then
        return nil, 'malformed response'
    end
    if status ~= 200 then
        return nil, 'HTTP status ' .. status
    end

    local headers = response:sub(1, header_end)
    local body = response:sub(header_end + 1)
    local content_length = tonumber(headers:lower():match('content%-length:%s*(%d+)'))
    if content_length and #body ~= content_length then
        return nil, 'truncated response'
    end
    return body
end

function check_for_update(manual, force)
    if not settings.autoupdate and not manual then return end
    if not force and _addon.version:endswith('dev') then return end
    if not manual and os.time() - last_update_check < 600 then return end

    local prefix = ('['):color(36)..('SpamBlock'):color(38)..('] '):color(36)

    if update_in_progress then
        if manual then
            add_to_chat(36, prefix .. 'An update check is already in progress.')
        end
        return
    end
    last_update_check = os.time()

    -- Handling incase someone's Windower install is borked
    local ok_socket = pcall(require, 'socket')
    local ok_ssl = pcall(require, 'ssl')
    if not ok_socket or not ok_ssl then
        if manual then
            add_to_chat(123, prefix .. 'Update check failed. Your Windower installation is missing required libraries.')
        end
        return
    end

    local host = "raw.githubusercontent.com"
    local remote_path = "/Daleterrence/SpamBlock/main/SpamBlock.lua"
    local version_pattern = "_addon.version%s*=%s*['\"](.-)['\"]"
    local file_path = addon_path .. "SpamBlock.lua"

    if manual then
        add_to_chat(36, prefix .. 'Checking for updates...')
    end

    update_in_progress = true
    coroutine.schedule(function()
        local body = async_https_get(host, remote_path, 10)
        update_in_progress = false

        if not body then
            if manual then
                add_to_chat(123, prefix .. 'Update check failed. Unable to reach GitHub.')
            end
            return
        end

        local remote_version = body:match(version_pattern)
        if not remote_version then
            if manual then add_to_chat(123, prefix .. 'Update check failed. Unable to read GitHub version.') end
            return
        end

        if manual then
            add_to_chat(36, prefix .. ('Comparing github file (v%s) to your local file (v%s)...'):format(remote_version or 'n/a', _addon.version or 'n/a'))
        end

        local should_update = force or (compare_versions(remote_version, _addon.version) == 1)

        if should_update then
            if force then
                add_to_chat(36, prefix .. ('Force updating to GitHub version (v%s).'):format(remote_version or 'unknown'))
            else
                add_to_chat(36, prefix .. ('New version found (v%s), updating from v%s.'):format(remote_version, _addon.version))
            end

            -- Sanity checking to prevent network issues breaking the addon
            if #body < 1000 then
                add_to_chat(123, prefix .. ('Update aborted! The downloaded file is too small. Please try again with'):color(123).. ('//sbl update'):color(206))
                return
            end

            local f = io.open(file_path, "wb")
            if f then
                f:write(body)
                f:close()
                add_to_chat(36, prefix .. 'Update successful, reloading...')
                send_command('@wait 0.5;lua reload ' .. _addon.name)
            else
                add_to_chat(123, prefix .. ('Update failed. Cannot write: '):color(123).. file_path)
            end
        elseif manual then
            add_to_chat(36, prefix .. ('You are running the latest version (v%s).'):format(_addon.version))
        end
    end, 0)
end

-- Background auto-update check
register_event('load', function()
    check_for_update(false)
    coroutine.schedule(function()
        while true do
            local interval = tonumber(settings.update_interval) or 15
            if interval < 5 then interval = 5 end
            coroutine.sleep(interval * 60)
            check_for_update(false)
        end
    end, 0)
end)
local blacklist

add_to_chat(36, ('['):color(36)..('SpamBlock'):color(38)..('] '):color(36)..('Addon successfully loaded.'):color(36))

-- Wildcard matching because I'm tired of writing the same names over and over with a slight change
local function _normalize_name(value)
    if value == nil then return '' end
    return tostring(value):lower()
end

local function _name_matches_pattern(name, pattern)
    local n = _normalize_name(name)
    local p = _normalize_name(pattern)
    if p == '' then return false end

    local wildcard_start = (p:sub(1, 1) == '*')
    local wildcard_end = (p:sub(-1) == '*')

    if wildcard_start then p = p:sub(2) end
    if wildcard_end then p = p:sub(1, -2) end
    if p == '' then return false end

    if wildcard_start and wildcard_end then
        return n:find(p, 1, true) ~= nil
    end
    if wildcard_start then
        return (#p <= #n) and (n:sub(-#p) == p)
    end
    if wildcard_end then
        return (#p <= #n) and (n:sub(1, #p) == p)
    end
    return n == p
end

local function _name_in_blacklist(name, list)
    if not list then return false end
    for _, pattern in ipairs(list) do
        if _name_matches_pattern(name, pattern) then
            return true
        end
    end
    return false
end

local function _is_sender_blacklisted(name)
    if _name_in_blacklist(name, blacklist) then
        return true
    end

-- Custom blacklist behavior is intentionally exact-match only (no wildcards)
    return settings.custom_blist and settings.custom_blist:contains(name)
end

-- Filtered characters you will not see in any chat if blist option is enabled in settings.
blacklist = T{'Aboschitt','Aeonic*','Attkins','Bahcun','Bazzarcat','Boamna','Chirich','Comedie','Criofan','Deshutzn','Jamiei','Justchao','Kettica','Killera','Killerfa','Killerfd','Killerfg','Lowesquadone','Noke','Pangge','Panggeb','Pudwanker','Pockit','Thanatoss','Woohooc','Wooohoo','Xxzagorun','Xxzzgorun','Xxzggorun','Yagwic*','Leonardodicapri','Killoerag','Tullajit','Rentana','Dennydh','Lenrietta','Zinniazzz','Xxzfgorun'}
-- Filters a shout or yell if they contain any of these strings, if the rmt option is enabled in settings.
local black_listed_words = T{string.char(0x81,0x69),string.char(0x81,0x99),string.char(0x81,0x9A),'CP500p','2100p','ML0-20/15m','New2025','V0toV25','3M/run','3M/hour','Aeonic Weapon*.*Mind','2100/20M','T1T2T3T4','3 Area Clear Mind','OdysseyNM','DYD W3','Dynamis*.*Buy?','unity.Master','43K+','Ambuscade*.*10M/run','DYDW3Clear.HTBC.VD.do you need it?buy?','OmenOdysseySeg11k','DYDW3Clear','Sortie40k+','50mil Time Remaining','80,85.90'}
-- Filters an item use message if it matches any of the IDs below, and the books option is enabled in settings.
local black_listed_skill_pages = T{'6147','6148','6149','6150','6151','6152','6153','6154','6155','6156','6157','6158','6159','6160','6161','6162','6163','6164','6165','6166','6167','6168','6169','6170','6171','6172','6173','6174','6175','6176','6177','6178','6179','6180','6181','6182','6183','6184','6185'}

--Packet changes for incoming chat and item-use
register_event('incoming chunk', function(id, data)
    if id == 0x017 then
        local chat = packets.parse('incoming', data)
        local cleaned = convert_auto_trans(chat['Message']):lower()

        if settings.blist and _is_sender_blacklisted(chat['Sender Name']) then
            return true
        end

        if (chat['Mode'] == 1 or chat['Mode'] == 26) and settings.rmt then
            for _, v in ipairs(black_listed_words) do
                if cleaned:match(v:lower()) then return true end
            end
            for _, v in ipairs(settings.custom_words) do
                if cleaned:match(v:lower()) then return true end
            end
        end

    elseif id == 0x028 and settings.books then
        local data = packets.parse('incoming', data)
        if black_listed_skill_pages:contains(data['Target 1 Action 1 Param']) then
            return true
        end
    end
end)

-- Addon Commands
windower.register_event('addon command', function(command, ...)
    local args = {...}
    command = command and command:lower() or ''
    local prefix = ('['):color(36)..('SpamBlock'):color(38)..('] '):color(36)

    if command == 'help' or command == '' then
        add_to_chat(36, prefix .. ('Commands, using '):color(36).. ('//sbl'):color(206)..(' or '):color(36)..('//spamblock'):color(206))
        add_to_chat(36, ('- '):color(36)..('blist '):color(206).. ('<player> '):color(160)..('- Adds player to blacklist.'):color(36))
        add_to_chat(36, ('- '):color(36)..('unblist '):color(206).. ('<player> '):color(160)..('Remove player from blacklist.'):color(36))
        add_to_chat(36, ('- '):color(36)..('addword '):color(206).. ('<word> '):color(160)..('- Adds phrase/word to filter list.'):color(36))
        add_to_chat(36, ('- '):color(36)..('delword '):color(206).. ('<word> '):color(160)..('- Removes phrase/word from filter list.'):color(36))
        add_to_chat(36, ('- '):color(36)..('list '):color(206)..('- Lists your blacklist and filter list.'):color(36))
        add_to_chat(36, ('- '):color(36)..('autoupdate '):color(206)..('- Toggles autoupdates on/off.'):color(36))
		add_to_chat(36, ('- '):color(36)..('update '):color(206)..('- Manually checks for updates.'):color(36))
        add_to_chat(36, ('- '):color(36)..('forceupdate '):color(206)..('- Force download the latest version.'):color(36))
        add_to_chat(36, ('- '):color(36)..('interval '):color(206).. ('<min> '):color(160)..('- Changes how often SpamBlock looks for updates, minimum of 5'):color(36))
        return
    end

    if command == 'update' then
        check_for_update(true, false)
        return
    end

    if command == 'forceupdate' then
        check_for_update(true, true)
        return
    end

    if command == 'interval' and args[1] then
        local new_int = tonumber(args[1])
        if new_int and new_int >= 5 then
            settings.update_interval = new_int
            config.save(settings)
            add_to_chat(36, prefix .. ('Auto-update interval set to %d minutes.'):format(new_int))
        else
            add_to_chat(123, prefix .. 'Please specify a valid number of minutes (minimum 5).')
        end
        return
    end

    if command == 'autoupdate' then
        settings.autoupdate = not settings.autoupdate
        config.save(settings)
        if settings.autoupdate then
            add_to_chat(36, prefix .. ('Auto-Update:'):color(36)..(' Enabled'):color(215)..('.'):color(36))
        else
            add_to_chat(36, prefix .. ('Auto-Update:'):color(36)..(' Disabled'):color(123)..('.'):color(36))
        end
        return
    end

    if command == 'blist' and args[1] then
        local name = args[1]
        local already = false
        for _, v in ipairs(settings.custom_blist) do
            if _normalize_name(v) == _normalize_name(name) then
                already = true
                break
            end
        end

        if not already then
            settings.custom_blist:append(name)
            config.save(settings)
            add_to_chat(36, prefix .. ('Added "%s" to custom blacklist.'):format(name))
        else
            add_to_chat(123, prefix .. ('"%s" is already in your custom blacklist.'):format(name))
        end

    elseif command == 'unblist' and args[1] then
        local name = args[1]
        local removed = false
        for i, v in ipairs(settings.custom_blist) do
            if _normalize_name(v) == _normalize_name(name) then
                table.remove(settings.custom_blist, i)
                removed = true
                break
            end
        end
        if removed then
            config.save(settings)
            add_to_chat(36, prefix .. ('Removed "%s" from custom blacklist.'):format(name))
        else
            add_to_chat(123, prefix .. ('"%s" not found in custom blacklist.'):format(name))
        end

    elseif command == 'addword' and args[1] then
        local word = table.concat(args, ' ')
        local exists = false
        for _, v in ipairs(settings.custom_words) do
            if v:lower() == word:lower() then
                exists = true
                break
            end
        end
        if not exists then
            settings.custom_words:append(word)
            config.save(settings)
            add_to_chat(36, prefix .. ('Added custom word "%s" to filter list.'):format(word))
        else
            add_to_chat(123, prefix .. ('"%s" already exists in filter list.'):format(word))
        end

    elseif command == 'delword' and args[1] then
        local word = table.concat(args, ' ')
        local removed = false
        for i, v in ipairs(settings.custom_words) do
            if v:lower() == word:lower() then
                table.remove(settings.custom_words, i)
                removed = true
                break
            end
        end
        if removed then
            config.save(settings)
            add_to_chat(36, prefix .. ('Removed "%s" from filter list.'):format(word))
        else
            add_to_chat(123, prefix .. ('"%s" not found in filter list.'):format(word))
        end
    elseif command == 'list' then
        add_to_chat(36, prefix .. 'Custom blacklisted players:')
        if #settings.custom_blist > 0 then
            for _, name in ipairs(settings.custom_blist) do add_to_chat(122, '  ' .. name) end
        else
            add_to_chat(123, 'Nobody has been added to your custom blacklist yet.')
        end

        add_to_chat(36, prefix .. 'Custom filtered words:')
        if #settings.custom_words > 0 then
            for _, word in ipairs(settings.custom_words) do add_to_chat(122, '  ' .. word) end
        else
            add_to_chat(123, 'Nothing has been added to your custom filter list yet.')
        end
    else
        add_to_chat(123, prefix .. ('Unknown command. Use'):color(123).. (' //sbl help '):color(206).. ('for a list of commands.'):color(123))
    end
end)