Lunarise script

[hjpotter92]

While browsing the backups folder, I found this script I wrote a few years ago. I was wondering if the feature was worth implementing yet again...

function OnStartup()
    tConfig = {
        sBotName = SetMan.GetString( 21 ),
        sPrefixes = "[%!%#%?%/%*%-%+%.]",
        tGarble = {
            a = "4",
            e = "3",
            s = "z",
            S = "5",
            A = "4",
            E = "e",
            o = "0",
            O = "0",
            t = "+",
            T = "7",
            l = "1",
            ph = "f",
            y = "j",
            W = "\\/\\/",
            V = "\\/",
            x = "><"
        }
    }
    tLunarized = {}
    tUsingProfiles = {
        [-1] = false,               -- Regular users
        [0] = true,                 -- Admin
        [1] = true,                 -- Final Years
        [2] = true,                 -- Ops
        [3] = true,                 -- VIPs
        [4] = false,                -- Moderators
        [5] = false,                -- Registered users
        [6] = false,                -- sVIPs
        [7] = false                 -- Gymkhana users
    }
end

function ChatArrival( tUser, sMessage )
    local _, _, sCommand, sNick = sMessage:find( "%b<>%s"..tConfig.sPrefixes.."(%w+)%s(%S+)|" )
    if sCommand and (sCommand:lower() == "lunarize" or sCommand:lower() == "lunarise") and tUsingProfiles[tUser.iProfile] then
        if not sNick then
            Core.SendToUser( tUser, "<"..tConfig.sBotName.."> Sorry, nickname was not specified." )
            return true
        else
            local tTempUser = Core.GetUser( sNick )
            if not tTempUser then
                Core.SendToUser( tUser, "<"..tConfig.sBotName.."> Sorry, the user is currently offline." )
                return true
            end
            tLunarized[tTempUser.sNick:lower()] = true
            Core.SendToAll( "<"..tConfig.sBotName.."> The user "..tTempUser.sNick.." has been lunarized." )
            return true
        end
    elseif sCommand and (sCommand:lower() == "unlunarize" or sCommand:lower() == "unlunarise") and tUsingProfiles[tUser.iProfile] then
        if not sNick then
            Core.SendToUser( tUser, "<"..tConfig.sBotName.."> Sorry, nickname was not specified." )
            return true
        else
            if not tLunarized[sNick:lower()] then
                Core.SendToUser( tUser, "<"..tConfig.sBotName.."> Sorry, the user was not lunarized." )
                return true
            end
            tLunarized[sNick:lower()] = nil
            Core.SendToAll( "<"..tConfig.sBotName.."> The user "..sNick.." has been unlunarized." )
            return true
        end
    elseif sCommand and (sCommand:lower() == "lunarize" or sCommand:lower() == "lunarise" or sCommand:lower() == "unlunarize" or sCommand:lower() == "unlunarise") and not tUsingProfiles[tUser.iProfile] then
        Core.SendToUser( tUser, "<"..tConfig.sBotName.."> You don't have permissions to use this command." )
        return false
    end
    if not tLunarized[tUser.sNick:lower()] then
        return false
    elseif sCommand and tUsingProfiles[tUser.iProfile] then
        return false
    else
        local _, _, sMessage = sMessage:find( "%b<>%s(.*)" )
        sMessage = GarbleMessage( sMessage )
        Core.SendToAll( "<"..tUser.sNick.."> "..sMessage )
        return true
    end
    return false
end

function ToArrival( tUser, sMessage )
    local _, _, sTo, sCommand = sMessage:find( "^\$To: (%S+) .*%b<>%s"..tConfig.sPrefixes.."(%w+)%s" )
    if sTo == tConfig.sBotName then
        if sCommand and (sCommand:lower() == "lunarize" or sCommand:lower() == "lunarise") and tUsingProfiles[tUser.iProfile] then
            local _, _, sMessage = sMessage:find( "%b$$(.*)" )
            ChatArrival( tUser, sMessage )
            return true
        elseif sCommand and (sCommand:lower() == "unlunarize" or sCommand:lower() == "unlunarise") and tUsingProfiles[tUser.iProfile] then
            local _, _, sMessage = sMessage:find( "%b$$(.*)" )
            ChatArrival( tUser, sMessage )
            return true
        end
    end
    return false
end

function GarbleMessage( sLine )
    for cIndex, sLeet in pairs( tConfig.tGarble ) do
        sLine = sLine:gsub( cIndex, sLeet )
    end
    return sLine
end

The script would need to be rewritten (and probably put inside chatlogger.lua) before actually putting it to use. I just wanted to raise the discussion whether it'd be useful or abused?

[System64]

It would be quite useful, please include it.

[nishithshah2211]

@hjpotter92 Abused how? We can put a command to set off lunarize just like desu etc.