auto-ad/auto-ad.lua

script_name("auto-ad")
script_author("Serhiy_Rubin")
script_version("22.01.2023")
sampev = require("samp.events")
inicfg = require "inicfg"
dlstatus = require("moonloader").download_status
antiflood = 0

ad = {
    status = false,
    text = "1",
    radio = 0,
    radio_save = 0,
    mode = 1,
    one = false,
    af_5sec = 0,
    status_2_wait = false
}

function ad.sender()
    if not ad.status then return end

    if ad.mode == 1 then
        --> Переключает на нужное радио если пользователь выбрал такое в меню
        if ad.radio ~= 0 and ad.radio_save == 0 or (ad.radio_save ~= 0 and ad.radio_save ~= ad.radio) then
            if os.clock() * 1000 - antiflood > 750 then
                sampSendChat("/radio "..ad.radio)
            end
        end

        --> Отправка каждые 5 сек
        if os.clock() * 1000 - ad.af_5sec > 5000 and not ad.status_2_wait then
            if os.clock() * 1000 - antiflood > 750 then
                sampSendChat("/ad "..ad.text)
            end
        end
    end
end

function main()
    while not isSampfuncsLoaded() do wait(100) end
    repeat wait(0) until isSampAvailable()
    lua_thread.create(script_update.main)
    sampRegisterChatCommand("aad", menu.show)
    while true do
        wait(0)
        menu.handler()
        ad.sender()
    end
end

--> Events
text_to_int = {
    ["SF"] = 1,
    ["LS"] = 2,
    ["LV"] = 3
}
function sampev.onServerMessage(color, message)
    if message:find("Волна переключена на (.+) News") then
        local text = message:match("Волна переключена на (.+) News")
        ad.radio = text_to_int[text]
        ad.radio_save = ad.radio
    end
    if message:find("Объявления можно дать через 5 секунд") then
        ad.af_5sec = os.clock() * 1000
    end
    if message:find("Отредактировал сотрудник News (..)") then
        if ad.status then
            local text = message:match("Отредактировал сотрудник News (..)")
            if ad.mode == 2 then
                lua_thread.create(function(radio)
                    wait(30)
                    if ad.radio_save ~= radio then
                        sampSendChat("/radio "..radio)
                        wait(300)
                    end
                    sampSendChat("/ad "..ad.text)
                end, text_to_int[text])
            elseif ad.mode == 1 and ad.status_2_wait then
                if text_to_int[text] == ad.radio or ad.radio == 0 then
                    lua_thread.create(function()
                        wait(30)
                        repeat
                            wait(0)
                        until os.clock() * 1000 - antiflood > 200
                        sampSendChat("/ad "..ad.text)
                    end)
                end
            end
        end
    end
    if message:find("Ваша очередь объявлений заполнена. Попробуйте позже") or message:find("Очередь объявлений заполнена. Попробуйте позже") then
        if ad.status and ad.mode == 1 then
            ad.status_2_wait = true
        end
    end
    if message:find("Вы не выбрали через какую радиостанцию подавать объявление") and ad.status then
        ad.status = false
    end
end
function sampev.onShowDialog(dialogId, style, title, button1, button2, text)
    if title:find("Подтверждение") and text:find("Вы собираетесь отправить объявление") then
        if ad.status then
            sampSendDialogResponse(dialogId,1,0,"")
            if ad.one then
                ad.status = false
            end
            ad.af_5sec = os.clock() * 1000
            return false
        end
    end
end
function sampev.onSendChat()
    antiflood = os.clock() * 1000
end
function sampev.onSendCommand()
    antiflood = os.clock() * 1000
end

--> Menu
menu = {
    id = 1921,
    id_edit = 1922,
    list = {},
    func = {}
}

function menu.handler()
    local result, button, list, input = sampHasDialogRespond(menu.id)
    if result and button == 1 then
        if menu.func[list+1] ~= nil then
            menu.func[list+1](button, list, input)
        end
    end
    local result, button, list, input = sampHasDialogRespond(menu.id_edit)
    if result then
        if button == 1 then
            ad.text = input
            menu.show()
        end
        menu.show()
    end
end

function menu.show()
    menu.list = {}
    menu.func = {}

    menu.list[#menu.list+1] = string.format("Скрипт: %s", (ad.status and "{06940f}ON" or "{d10000}OFF"))
    menu.func[#menu.func+1] = function(button, list, input)
        ad.status = not ad.status
        ad.status_2_wait = false
        menu.show()
    end

    local mode_text = {
        [1] = "Каждые 5 секунд",
        [2] = "Переключать /radio + /ad"
    }
    menu.list[#menu.list+1] = string.format("Отправка: %s", mode_text[ad.mode])
    menu.func[#menu.func+1] = function(button, list, input)
        ad.mode = ad.mode + 1
        if ad.mode >= 3 then
            ad.mode = 1
        end
        ad.status_2_wait = false
        menu.show()
    end

    menu.list[#menu.list+1] = string.format("Отключить после подачи: %s", (ad.one and "{06940f}ON" or "{d10000}OFF"))
    menu.func[#menu.func+1] = function(button, list, input)
        ad.one = not ad.one
        menu.show()
    end

    local radio_list = {
        [0] = "Не выбрано",
        [1] = "SF",
        [2] = "LS",
        [3] = "LV"
    }
    menu.list[#menu.list+1] = string.format("Радиостанция: %s", radio_list[ad.radio])
    menu.func[#menu.func+1] = function(button, list, input)
        ad.radio = ad.radio + 1
        if ad.radio >= 4 then
            ad.radio = 1
        end
        menu.show()
    end

    menu.list[#menu.list+1] = string.format("Текст: %s", ad.text)
    menu.func[#menu.func+1] = function(button, list, input)
        sampShowDialog(menu.id_edit,"Auto-AD","Введите текст объявления без команды /ad","Выбрать","Назад",1)
        lua_thread.create(function()
            repeat
                wait(0)
            until sampIsDialogActive()
            sampSetCurrentDialogEditboxText(ad.text)
        end)
        return
    end

    local text = ""
    for i = 1, #menu.list do
        text = string.format("%s%s\n", text, menu.list[i])
    end
    sampShowDialog(menu.id,"Auto-AD",text,"Выбрать","Закрыть",2)
end


-->> UPDATE
function openURL(url, fpath)
    local text = ""
    local file_download = false
    local download_final = false


    if doesFileExist(fpath) then
        os.remove(fpath)
    end

    downloadUrlToFile(url, fpath, function(id, status, p1, p2)
        if status == dlstatus.STATUS_ENDDOWNLOADDATA then
            file_download = true
        end
        if status == dlstatus.STATUSEX_ENDDOWNLOAD then
            download_final = true
        end
    end
    )

    repeat
        wait(1000)
    until download_final or file_download

    if file_download then
        local f = io.open(fpath, "r")
        if f then
            text = f:read("*a")
            io.close(f)
        end
        os.remove(fpath)
    end

    if (text:find("Not found") and not text:find('"Not found"')) or text == "" then
        text = ""
        addChatMessage("Не удалось скачать обновление по ссылке:")
        addChatMessage(url)
    end

    return text
end

function addChatMessage(text)
    local tag = string.format("{667dff}[%s]{FFFFFF} ", thisScript().name)
    sampAddChatMessage(tag..text, 0xFFFFFFFF)
end

script_update = {
    version_url = "http://git.deadpoo.net/rubin/Auto-AD/raw/branch/master/version",
    script_url = "http://git.deadpoo.net/rubin/Auto-AD/raw/branch/master/auto-ad.lua",
    changelog_url = "http://git.deadpoo.net/rubin/Auto-AD/raw/branch/master/changelog",
    address_ini = "rubin-mods-updates.ini",
    main = function()
        local name = thisScript().name
        local ini = inicfg.load({
            [name] = {
                check_update = true,
                auto_update = true,
                server_version = ""
            }
        }, script_update.address_ini)
        ini[name].version_url = script_update.version_url
        ini[name].script_url = script_update.script_url
        ini[name].changelog_url = script_update.changelog_url
        ini[name].version = thisScript().version
        ini[name].script_name = thisScript().name
        local command = (thisScript().name:gsub(" ", "").."-update"):lower()
        sampRegisterChatCommand(command, script_update.command)
        if ini[name].check_update or ini[name].auto_update then
            local fpath = os.tmpname()
            local result, text = pcall(openURL, script_update.version_url, fpath)
            if result then
                ini[name].server_version = text
                if text ~= "" and not string.find(text, thisScript().version) then
                    addChatMessage( string.format("Вышла новая версия '%s'. Текущая: '%s'", text, thisScript().version) )
                    if ini[name].auto_update then
                        addChatMessage( string.format("Автообновление скрипта включено. Процесс запущен!") )
                        script_update.command()
                    else
                        addChatMessage( string.format("Автообновление скрипта выключено. Обновить самому: /%s", command) )
                    end
                end
            end
        end
        inicfg.save(ini, script_update.address_ini)
        script_update.menu.init()
    end,
    command = function()
        lua_thread.create(function()
            local fpath = os.tmpname()
            local result, text = pcall(openURL, script_update.version_url, fpath)
            if result then
                if text ~= "" and not string.find(text, thisScript().version) then
                    addChatMessage( string.format("Вышла новая версия '%s'. Текущая: '%s'", text, thisScript().version) )
                    local fpath = os.tmpname()
                    local result, text = pcall(openURL, script_update.script_url, fpath)
                    if result and text ~= "" and text:find(thisScript().name:gsub("%-", "%%-")) then
                        local file, error = io.open(thisScript().path, "w")
                        if file ~= nil then
                            file:write(text)
                            file:flush()
                            io.close(file)
                            addChatMessage("Обновление завершено, скрипт перезагружен!")
                            wait(500)
                            thisScript():reload()
                        end
                    end
                else
                    addChatMessage("У Вас установлена последняя версия!")
                end
            end
        end)
    end,
    menu = {
        text = {},
        dialog = {},
        init = function()
            if not sampIsChatCommandDefined("rubin-mods") then
                sampAddChatMessage("{667dff}[RUBIN MODS]{FFFFFF} Управление обновлениями скриптов: /rubin-mods", 0xFFFFFFFF)
                sampRegisterChatCommand("rubin-mods",script_update.menu.show)
                while true do
                    wait(0)
                    local result, button, list, input = sampHasDialogRespond(2160)
                    if result and button == 1 then
                        if script_update.menu.text[list+1] ~= nil and script_update.menu.dialog[list+1] ~= nil then
                            script_update.menu.dialog[list+1](script_update.menu.ini[list+1])
                        end
                    end
                    local result, button, list, input = sampHasDialogRespond(2162)
                    if result then
                        if button == 1 then
                            if script_update.menu2.text[list+1] ~= nil and script_update.menu2.dialog[list+1] ~= nil then
                                script_update.menu2.dialog[list+1]()
                            end
                        else
                            script_update.menu.show()
                        end
                    end
                    local result, button, list, input = sampHasDialogRespond(2161)
                    if result then
                        script_update.menu2.show(script_update.menu2.data)
                    end
                end
            end
        end,
        show = function()
            script_update.menu.text = {}
            script_update.menu.dialog = {}
            script_update.menu.ini = {}
            local ini = inicfg.load({}, script_update.address_ini)
            for k,v in pairs(ini) do
                script_update.menu.ini[#script_update.menu.ini+1] = v
                script_update.menu.text[#script_update.menu.text+1] = string.format("%s\t%s%s", k, (v.version == v.server_version and "{59fc30}" or "{ff0000}"),v.version)
                script_update.menu.dialog[#script_update.menu.dialog+1] = function(data)
                   script_update.menu2.show(data)
                end
            end
            local text = ""
            for i = 1, #script_update.menu.text do
                text = text..script_update.menu.text[i].."\n"
            end
            sampShowDialog(2160,"Обновление скриптов: Rubin Mods","Скрипт\tВерсия\n"..text,"Выбрать","Закрыть",5)
        end
    },
    menu2 = {
        data = {},
        text = {},
        dialog = {},
        show = function(data)
            script_update.menu2.data = data
            script_update.menu2.text = {}
            script_update.menu2.dialog = {}
            local ini = inicfg.load({}, script_update.address_ini)
            local k = data.script_name
            script_update.menu2.text[#script_update.menu2.text+1] = string.format("Автообновление %s", (ini[k].auto_update and "{59fc30}ON" or "{ff0000}OFF"))
            script_update.menu2.dialog[#script_update.menu2.dialog+1] = function()
                ini[k].auto_update = not ini[k].auto_update
                inicfg.save(ini, script_update.address_ini)
                script_update.menu2.show(data)
            end
            if not ini[k].auto_update then
                script_update.menu2.text[#script_update.menu2.text+1] = string.format("Проверять обновления %s", (ini[k].check_update and "{59fc30}ON" or "{ff0000}OFF"))
                script_update.menu2.dialog[#script_update.menu2.dialog+1] = function()
                    ini[k].check_update = not ini[k].check_update
                    inicfg.save(ini, script_update.address_ini)
                    script_update.menu2.show(data)
                end
            end
            script_update.menu2.text[#script_update.menu2.text+1] = string.format("Последние изменения")
            script_update.menu2.dialog[#script_update.menu2.dialog+1] = function()
                script_update.changelog(ini[k].changelog_url)
            end
            script_update.menu2.text[#script_update.menu2.text+1] = string.format("Удалить из списка")
            script_update.menu2.dialog[#script_update.menu2.dialog+1] = function()
                ini[k] = nil
                inicfg.save(ini, script_update.address_ini)
                script_update.menu.show()
            end

            local text = ""
            for i = 1, #script_update.menu2.text do
                text = text..script_update.menu2.text[i].."\n"
            end
            sampShowDialog(2162,"Настройки обновления для "..data.script_name,text,"Выбрать","Назад",2)
        end
    },
    changelog = function(url, data)
        local fpath = os.tmpname()
        local result, text = pcall(openURL, url, fpath)
        if result then
            sampShowDialog(2161,"Changelog - "..thisScript().name,text,"Выбрать","Назад",4)
        end
    end
}

-->> SCRIPT UTF-8
-->> utf8(table path, incoming variables encoding, outcoming variables encoding)
-->> table path example { "sampev", "onShowDialog" }
-->> encoding options nil | AnsiToUtf8 | Utf8ToAnsi
_utf8 = load([=[return function(utf8_func, in_encoding, out_encoding); if encoding == nil then; encoding = require("encoding"); encoding.default = "CP1251"; u8 = encoding.UTF8; end; if type(utf8_func) ~= "table" then; return false; end; if AnsiToUtf8 == nil or Utf8ToAnsi == nil then; AnsiToUtf8 = function(text); return u8(text); end; Utf8ToAnsi = function(text); return u8:decode(text); end; end; if _UTF8_FUNCTION_SAVE == nil then; _UTF8_FUNCTION_SAVE = {}; end; local change_var = "_G"; for s = 1, #utf8_func do; change_var = string.format('%s["%s"]', change_var, utf8_func[s]); end; if _UTF8_FUNCTION_SAVE[change_var] == nil then _UTF8_FUNCTION = function(...); local pack = table.pack(...); for i = 1, pack.n do; if type(pack[i]) == "string" and in_encoding ~= nil and (in_encoding == "AnsiToUtf8" or in_encoding == "Utf8ToAnsi") then; pack[i] = _G[in_encoding](pack[i]); end; end; local unpacked = {_UTF8_FUNCTION_SAVE[change_var](table.unpack(pack))}; for i = 1, #unpacked do; if type(unpacked[i]) == "string" and out_encoding ~= nil and (out_encoding == "AnsiToUtf8" or out_encoding == "Utf8ToAnsi") then; unpacked[i] = _G[out_encoding](unpacked[i]); end; end; return table.unpack(unpacked); end; local text = string.format("_UTF8_FUNCTION_SAVE['%s'] = %s; %s = _UTF8_FUNCTION;", change_var, change_var, change_var); load(text)(); _UTF8_FUNCTION = nil; end; return true; end]=])
function utf8(...)
    pcall(_utf8(), ...)
end

utf8({ "sampShowDialog" }, "Utf8ToAnsi")
utf8({ "sampSendChat" }, "Utf8ToAnsi")
utf8({ "sampAddChatMessage" }, "Utf8ToAnsi")
utf8({ "print" }, "Utf8ToAnsi")
utf8({ "sampSetCurrentDialogEditboxText" }, "Utf8ToAnsi")
utf8({ "sampHasDialogRespond" }, nil, "AnsiToUtf8")
utf8({ "sampev", "onShowDialog" }, "AnsiToUtf8", "Utf8ToAnsi")
utf8({ "sampev", "onServerMessage" }, "AnsiToUtf8", "Utf8ToAnsi")