opcode '0AF9'

izicapt

Известный
Автор темы
360
113
Версия MoonLoader
.027.0-preview
Почему то скрипт начал крашится по причине:
[ML] (error) AutoPiar: opcode '0AF9' call caused an unhandled exception stack traceback: [C]: in function 'sampSendChat' D:\Games\Arizona Games Sborka\moonloader\AP.lua:165: in function <D:\Games\Arizona Games Sborka\moonloader\AP.lua:161> [ML] (error) AutoPiar: Script died due to an error. (44D95034)
При чем самое интересное, происходит это только в одной функции (в пиаре /vr, другие же функции связанные с пиаром работают нормально), в чём может быть проблема?

code:
--[ML] (error) AutoPiar: opcode '0AF9' call caused an unhandled exception stack traceback: [C]: in function 'sampSendChat' D:\Games\Arizona Games Sborka\moonloader\AP.lua:165: in function <D:\Games\Arizona Games Sborka\moonloader\AP.lua:161> [ML] (error) AutoPiar: Script died due to an error. (44D95034) че за х...
script_name("AutoPiar")
script_author("ARMOR")
script_version("1.2")

require "lib.moonloader"
local imgui = require "imgui"
local inicfg = require "inicfg"
local encoding = require 'encoding'
local ev = require 'lib.samp.events'

encoding.default = 'CP1251'
u8 = encoding.UTF8

local cfg = inicfg.load({
    config = {
        vr = "",
        fam = "",
        j = "",
        s = "",
        ad = "",
    },
    interface = {
        vr_checkbox = false,
        fam_checkbox = false,
        j_checkbox = false,
        s_checkbox = false,
        ad_checkbox = false,
        vr_slider = 1,
        fam_slider = 1,
        j_slider = 1,
        s_slider = 1,
        ad_slider = 1,
        ad_radiobutton = 1,
        theme_id = 0,
    }
}, "AutoPiar.ini")

local enable = false
local main_window_state = imgui.ImBool(false)

local vr_check = imgui.ImBool(cfg.interface.vr_checkbox)
local fam_check = imgui.ImBool(cfg.interface.fam_checkbox)
local j_check = imgui.ImBool(cfg.interface.j_checkbox)
local s_check = imgui.ImBool(cfg.interface.s_checkbox)
local ad_check = imgui.ImBool(cfg.interface.ad_checkbox)

local vr = imgui.ImBuffer(256)
local fam = imgui.ImBuffer(256)
local j = imgui.ImBuffer(256)
local s = imgui.ImBuffer(256)
local ad = imgui.ImBuffer(256)

local vr_slider = imgui.ImInt(cfg.interface.vr_slider)
local fam_slider = imgui.ImInt(cfg.interface.fam_slider)
local j_slider = imgui.ImInt(cfg.interface.j_slider)
local s_slider = imgui.ImInt(cfg.interface.s_slider)
local ad_slider = imgui.ImInt(cfg.interface.ad_slider)

local ad_radiobutton = imgui.ImInt(cfg.interface.ad_radiobutton)
local themes_combo = imgui.ImInt(0)

local delay = 0.5

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then
        return
    end
    while not isSampAvailable() do
        wait(100)
    end

    if not doesFileExist(getWorkingDirectory()..'\\config\\AutoPiar.ini') then
        inicfg.save(cfg, 'AutoPiar.ini')
    end

    sampAddChatMessage("[AutoPiar]: {FFFFFF}Скрипт загружен, для настройки введите /ap", 0x5CBCFF)
    sampAddChatMessage("[AutoPiar]: {FFFFFF}Отдельное спасибо: art creator", 0x5CBCFF)

    sampRegisterChatCommand("ap", function()
        main_window_state.v = not main_window_state.v
        imgui.Process = main_window_state.v
    end)

    while true do
        wait(0)
        vr.v = cfg.config.vr
        fam.v = cfg.config.fam
        j.v = cfg.config.j
        s.v = cfg.config.s
        ad.v = cfg.config.ad
        themes_combo.v = cfg.interface.theme_id
        styles = cfg.interface.theme_id

        lockPlayerControl(main_window_state.v)

        -- Проверка состояния чекбоксов и флага
        if enable and not vr_check.v and not fam_check.v and not j_check.v and not ad_check.v and not s_check.v then
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Произошла ошибка, были сняты все CheckBox'ы ", 0xFF0000)
            enable = false
        end
    end
end

function piar_fam()
    wait(1000)
    while enable do
        if fam_check.v then
            sampSendChat("/fam " .. u8:decode(cfg.config.fam))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /fam", 0x5CBCFF) -- Хз зачем, но пусть будет
        end
        wait(fam_slider.v * 1000)
    end
end

function piar_j()
    wait(500)
    while enable do
        if j_check.v then
            sampSendChat("/j " .. u8:decode(cfg.config.j))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /j", 0x5CBCFF)
        end
        wait(j_slider.v * 1000)
    end
end

function piar_s()
    wait(1000)
    while enable do
        if s_check.v then
            local message = u8:decode(cfg.config.s)
            -- Проверка длины сообщения
            if #message > 128 then
                sampAddChatMessage("[AutoPiar]: {FF0000}Ошибка - Сообщение слишком длинное для /s", 0xFF0000)
            else
                sampSendChat("/s " .. message)
                sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /s", 0x5CBCFF)
            end
        end
        wait(s_slider.v * 1000)
    end
end

function piar_ad()
    wait(1500)
    while enable do
        if ad_check.v then
            local message = u8:decode(cfg.config.ad)
            sampSendChat("/ad " .. message)
            wait(300)
            local button = cfg.interface.ad_radiobutton == 1 and 1 or 2
            sampSendDialogResponse(15346, 1, button, nil)
            sampCloseCurrentDialogWithButton(1)
            wait(500)
            sampCloseCurrentDialogWithButton(1)
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено объявление /ad", 0x5CBCFF)
        end
        wait(ad_slider.v * 1000)
    end
end

function piar_vr()
    wait(2300)
    while enable do
        if vr_check.v then
            sampSendChat("/vr " .. u8:decode(cfg.config.vr))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /vr", 0x5CBCFF)
        end
        wait(vr_slider.v * 1000)
    end
end

function ev.onShowDialog(id, style, title, b1, b2, text)
    if text:find("рекламой") and vr_check.v and enable then
        lua_thread.create(function()
            wait(50)
            sampSendDialogResponse(25628,1,0,"")
            sampCloseCurrentDialogWithButton(1)
        end)
    end
end

function imgui.OnDrawFrame()
    local style = imgui.GetStyle()
    local clrs = style.Colors
    local clr = imgui.Col
    local ImVec4 = imgui.ImVec4
    style.Alpha = 1
    style.ChildWindowRounding = 0
    style.WindowRounding = 0
    style.GrabRounding = 0
    style.GrabMinSize = 12
    style.FrameRounding = 5
    local triangle = 0xFF002779

    if styles == 0 then
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.Border] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.BorderShadow] = ImVec4(0, 0, 0, 0)
        clrs[clr.FrameBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.FrameBgHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.FrameBgActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.TitleBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.TitleBgActive] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.MenuBarBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0.15, 0.15, 0.15, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.ComboBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ButtonActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.Header] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.HeaderActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.Separator] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ResizeGripActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.CloseButton] = ImVec4(0.2, 0.2, 0.2, 0.88)
        clrs[clr.CloseButtonHovered] = ImVec4(0.2, 0.2, 0.2, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.2, 0.2, 0.2, 0.61)
        clrs[clr.PlotLines] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotHistogram] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0, 0, 0, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 1 then
        triangle = 0xFF007723
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.Border] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.BorderShadow] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.FrameBg] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.53, 0.71, 0.01, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.53, 0.71, 0.01, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.53, 0.71, 0.01, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.53, 0.71, 0.01, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.53, 0.71, 0.01, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.Header] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.Separator] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 2 then
        triangle = 0xFFD6388B
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.Border] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.BorderShadow] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.FrameBg] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.71, 0.01, 0.38, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.71, 0.01, 0.38, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.71, 0.01, 0.38, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.71, 0.01, 0.38, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.71, 0.01, 0.38, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.Header] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.Separator] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 3 then
        triangle = 0xFFD67200
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.Border] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.BorderShadow] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.FrameBg] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.85, 0.59, 0, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.85, 0.59, 0, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.85, 0.59, 0, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.85, 0.59, 0, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.85, 0.59, 0, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.Header] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.Separator] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    end

    if not main_window_state.v then
        imgui.Process = false
    end

    if main_window_state.v then
        local sw, sh = getScreenResolution()

        imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
        imgui.SetNextWindowSize(imgui.ImVec2(600, 475), imgui.Cond.FirstUseEver)
        imgui.Begin(u8"Авто Пиар", main_window_state, imgui.WindowFlags.NoResize)

        -- Пиар в /vr
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /vr")).x)/2)
        imgui.Text(u8"Пиар в /vr")
        if imgui.Checkbox("##1", vr_check) then
            cfg.interface.vr_checkbox = vr_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##2", vr) then
            cfg.config.vr = vr.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##3", vr_slider, 1, 600, u8' %.0f с') then
            cfg.interface.vr_slider = vr_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /fam
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /fam")).x)/2)
        imgui.Text(u8"Пиар в /fam")
        if imgui.Checkbox("##4", fam_check) then
            cfg.interface.fam_checkbox = fam_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##5", fam) then
            cfg.config.fam = fam.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##6", fam_slider, 1, 600, u8'%.0f с') then
            cfg.interface.fam_slider = fam_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /j
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /j")).x)/2)
        imgui.Text(u8"Пиар в /j")
        if imgui.Checkbox("##7", j_check) then
            cfg.interface.j_checkbox = j_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##8", j) then
            cfg.config.j = j.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##9", j_slider, 1, 600, u8'%.0f с') then
            cfg.interface.j_slider = j_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /s
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /s")).x)/2)
        imgui.Text(u8"Пиар в /s")
        if imgui.Checkbox("##10", s_check) then
            cfg.interface.s_checkbox = s_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##11", s) then
            cfg.config.s = s.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##12", s_slider, 1, 600, u8'%.0f с') then
            cfg.interface.s_slider = s_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /ad
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /ad")).x)/2)
        imgui.Text(u8"Пиар в /ad")
        if imgui.Checkbox("##13", ad_check) then
            cfg.interface.ad_checkbox = ad_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##14", ad) then
            cfg.config.ad = ad.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##15", ad_slider, 1, 600, u8'%.0f с') then
            cfg.interface.ad_slider = ad_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        if imgui.RadioButton(u8"Обычное объявление", ad_radiobutton, 1) then
            cfg.interface.ad_radiobutton = ad_radiobutton.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(470)
        if imgui.RadioButton(u8"VIP объявление", ad_radiobutton, 2) then
            cfg.interface.ad_radiobutton = ad_radiobutton.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Темы интерфейса
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Цветовая тема окна")).x)/2)
        imgui.Text(u8"Цветовая тема окна")
        if imgui.Combo("##16", themes_combo, {u8"Синий стиль", u8"Зеленый стиль", u8"Розовый стиль", u8"Оранжевый стиль"}) then
            styles = themes_combo.v
            cfg.interface.theme_id = themes_combo.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Кнопка запуска авто-пиара
        if imgui.Button(u8((enable and 'Остановить' or 'Запустить') .. ' авто-пиар'), imgui.ImVec2(582, 20)) then
            enable = not enable
            if enable then
                piar_vr1 = lua_thread.create(piar_vr)
                piar_fam2 = lua_thread.create(piar_fam)
                piar_j3 = lua_thread.create(piar_j)
                piar_s4 = lua_thread.create(piar_s)
                piar_ad5 = lua_thread.create(piar_ad)
            else
                if piar_vr1 then piar_vr1:terminate() end
                if piar_fam2 then piar_fam2:terminate() end
                if piar_j3 then piar_j3:terminate() end
                if piar_s4 then piar_s4:terminate() end
                if piar_ad5 then piar_ad5:terminate() end
            end
            if not vr_check.v and not fam_check.v and not j_check.v and not ad_check.v and not s_check.v then
                sampAddChatMessage("[AutoPiar]: {FFFFFF}Небыло выбрано ни одного варианта пиара!", triangle)
                enable = false
            else
                sampAddChatMessage(enable and "[AutoPiar]: {FFFFFF}Пиар активирован!" or "[AutoPiar]: {FFFFFF}Пиар деактивирован!", triangle)
            end
        end
        imgui.End()
    end
end

function ev.onSendCommand(cmd)
    local result = cmd:match("^/vr (.+)")
    if result then
        if process and result ~= message then
            process:terminate()
            process = nil
        end
        if not process then
            finished, try = false, 1
            message = tostring(result)
            process = lua_thread.create(function()
                while not finished do
                    if sampGetGamestate() ~= 3 then
                        finished = true
                        break
                    end
                    if not sampIsChatInputActive() then
                        local rotate = math.sin(os.clock() * 3) * 90 + 90
                        local el = getStructElement(sampGetInputInfoPtr(), 0x8, 4)
                        local X, Y = getStructElement(el, 0x8, 4), getStructElement(el, 0xC, 4)
                        renderDrawPolygon(X + 10, Y + (renderGetFontDrawHeight(font) / 2), 20, 20, 3, rotate, 0xFFFFFFFF)
                        renderDrawPolygon(X + 10, Y + (renderGetFontDrawHeight(font) / 2), 20, 20, 3, -rotate, triangle)
                        renderFontDrawText(font, message, X + 25, Y, -1)
                        renderFontDrawText(font, string.format(" [x%s]", try), X + 25 + renderGetFontDrawTextLength(font, message), Y, 0x40FFFFFF)
                    end
                    wait(0)
                end
                process = nil
            end)
        end
    end
end

function ev.onServerMessage(color, text)
    if text:find("%[%u+%] {%x+}[A-z0-9_]+%[" .. select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)) .. "%]:.+") then
        finished = true
    end
    if text:find("^%[Ошибка%].*После последнего сообщения в этом чате нужно подождать") then
        lua_thread.create(function()
            wait(delay * 1000)
            sampSendChat("/vr " .. message)
            try = try + 1
        end)
        return false
    end
    if text:find("^Вы заглушены") or text:find("Для возможности повторной отправки сообщения в этот чат") then
        finished = true
    end
end
 
Решение
Откуда тогда мне взять это значение?

Lua:
function ev.onSendCommand(cmd)
    local result = cmd:match("^/vr (.+)")
    if result then
        if process and result ~= message then
            process:terminate()
            process = nil
        end
        if not process then
            finished, try = false, 1
            message = tostring(result)
            process = lua_thread.create(function()
                while not finished do
                    if sampGetGamestate() ~= 3 then
                        finished = true
                        break
                    end
                    if not sampIsChatInputActive() then
                        local rotate = math.sin(os.clock() * 3) * 90 + 90...

izicapt

Известный
Автор темы
360
113
166 строчку замени на
Lua:
pcall(sampProcessChatInput, "/vr " .. u8:decode(cfg.config.vr))
Идея может быть и хорошая, но ситуацию не меняет. По крайней мере есть прогресс в том что в чат выводится сообщение "Сообщение успешно отправлено", хотя и скрипт крашится после этого с крашкодом (ниже). К тому же как я понял код лишь вставляет сообщение в чат, а не отправляет его, а это уже не то что требуется от скрипта...
[ML] (error) AutoPiar: cannot resume non-suspended coroutine
stack traceback:
[C]: in function 'renderGetFontDrawHeight'
D:\Arizona\moonloader\AP.lua:554: in function <D:\Arizona \moonloader\AP.lua:544>
[ML] (error) AutoPiar: Script died due to an error. (3D2FD614)
[ML] (error) imgui_notf.lua: cannot resume non-suspended coroutine
stack traceback:
[C]: in function 'SetMouseCursor'
D:\Arizona\moonloader\imgui_notf.lua:103: in function <D:\Arizona \moonloader\imgui_notf.lua:99>
[ML] (error) imgui_notf.lua: Script died due to an error. (20E0AF3C)
 

mafizik

Участник
11
4
Идея может быть и хорошая, но ситуацию не меняет. По крайней мере есть прогресс в том что в чат выводится сообщение "Сообщение успешно отправлено", хотя и скрипт крашится после этого с крашкодом (ниже). К тому же как я понял код лишь вставляет сообщение в чат, а не отправляет его, а это уже не то что требуется от скрипта...
[ML] (error) AutoPiar: cannot resume non-suspended coroutine
stack traceback:
[C]: in function 'renderGetFontDrawHeight'
D:\Arizona\moonloader\AP.lua:554: in function <D:\Arizona \moonloader\AP.lua:544>
[ML] (error) AutoPiar: Script died due to an error. (3D2FD614)
[ML] (error) imgui_notf.lua: cannot resume non-suspended coroutine
stack traceback:
[C]: in function 'SetMouseCursor'
D:\Arizona\moonloader\imgui_notf.lua:103: in function <D:\Arizona \moonloader\imgui_notf.lua:99>
[ML] (error) imgui_notf.lua: Script died due to an error. (20E0AF3C)
крашит, потому что в функции onSendCommand нет значения для переменной font
 

izicapt

Известный
Автор темы
360
113
крашит, потому что в функции onSendCommand нет значения для переменной font
Откуда тогда мне взять это значение?

Lua:
function ev.onSendCommand(cmd)
    local result = cmd:match("^/vr (.+)")
    if result then
        if process and result ~= message then
            process:terminate()
            process = nil
        end
        if not process then
            finished, try = false, 1
            message = tostring(result)
            process = lua_thread.create(function()
                while not finished do
                    if sampGetGamestate() ~= 3 then
                        finished = true
                        break
                    end
                    if not sampIsChatInputActive() then
                        local rotate = math.sin(os.clock() * 3) * 90 + 90
                        local el = getStructElement(sampGetInputInfoPtr(), 0x8, 4)
                        local X, Y = getStructElement(el, 0x8, 4), getStructElement(el, 0xC, 4)
                        renderDrawPolygon(X + 10, Y + (renderGetFontDrawHeight(font) / 2), 20, 20, 3, rotate, 0xFFFFFFFF)
                        renderDrawPolygon(X + 10, Y + (renderGetFontDrawHeight(font) / 2), 20, 20, 3, -rotate, triangle)
                        renderFontDrawText(font, message, X + 25, Y, -1)
                        renderFontDrawText(font, string.format(" [x%s]", try), X + 25 + renderGetFontDrawTextLength(font, message), Y, 0x40FFFFFF)
                    end
                    wait(0)
                end
                process = nil
            end)
        end
    end
end
 

mafizik

Участник
11
4
Откуда тогда мне взять это значение?

Lua:
function ev.onSendCommand(cmd)
    local result = cmd:match("^/vr (.+)")
    if result then
        if process and result ~= message then
            process:terminate()
            process = nil
        end
        if not process then
            finished, try = false, 1
            message = tostring(result)
            process = lua_thread.create(function()
                while not finished do
                    if sampGetGamestate() ~= 3 then
                        finished = true
                        break
                    end
                    if not sampIsChatInputActive() then
                        local rotate = math.sin(os.clock() * 3) * 90 + 90
                        local el = getStructElement(sampGetInputInfoPtr(), 0x8, 4)
                        local X, Y = getStructElement(el, 0x8, 4), getStructElement(el, 0xC, 4)
                        renderDrawPolygon(X + 10, Y + (renderGetFontDrawHeight(font) / 2), 20, 20, 3, rotate, 0xFFFFFFFF)
                        renderDrawPolygon(X + 10, Y + (renderGetFontDrawHeight(font) / 2), 20, 20, 3, -rotate, triangle)
                        renderFontDrawText(font, message, X + 25, Y, -1)
                        renderFontDrawText(font, string.format(" [x%s]", try), X + 25 + renderGetFontDrawTextLength(font, message), Y, 0x40FFFFFF)
                    end
                    wait(0)
                end
                process = nil
            end)
        end
    end
end
Попробуй удалить функцию полностью, тогда все будет работать
Код:
--[ML] (error) AutoPiar: opcode '0AF9' call caused an unhandled exception stack traceback: [C]: in function 'sampSendChat' D:\Games\Arizona Games Sborka\moonloader\AP.lua:165: in function <D:\Games\Arizona Games Sborka\moonloader\AP.lua:161> [ML] (error) AutoPiar: Script died due to an error. (44D95034) че за х...
script_name("AutoPiar")
script_author("ARMOR")
script_version("1.2")

require "lib.moonloader"
local imgui = require "imgui"
local inicfg = require "inicfg"
local encoding = require 'encoding'
local ev = require 'lib.samp.events'

encoding.default = 'CP1251'
u8 = encoding.UTF8

local cfg = inicfg.load({
    config = {
        vr = "",
        fam = "",
        j = "",
        s = "",
        ad = "",
    },
    interface = {
        vr_checkbox = false,
        fam_checkbox = false,
        j_checkbox = false,
        s_checkbox = false,
        ad_checkbox = false,
        vr_slider = 1,
        fam_slider = 1,
        j_slider = 1,
        s_slider = 1,
        ad_slider = 1,
        ad_radiobutton = 1,
        theme_id = 0,
    }
}, "AutoPiar.ini")

local enable = false
local main_window_state = imgui.ImBool(false)

local vr_check = imgui.ImBool(cfg.interface.vr_checkbox)
local fam_check = imgui.ImBool(cfg.interface.fam_checkbox)
local j_check = imgui.ImBool(cfg.interface.j_checkbox)
local s_check = imgui.ImBool(cfg.interface.s_checkbox)
local ad_check = imgui.ImBool(cfg.interface.ad_checkbox)

local vr = imgui.ImBuffer(256)
local fam = imgui.ImBuffer(256)
local j = imgui.ImBuffer(256)
local s = imgui.ImBuffer(256)
local ad = imgui.ImBuffer(256)

local vr_slider = imgui.ImInt(cfg.interface.vr_slider)
local fam_slider = imgui.ImInt(cfg.interface.fam_slider)
local j_slider = imgui.ImInt(cfg.interface.j_slider)
local s_slider = imgui.ImInt(cfg.interface.s_slider)
local ad_slider = imgui.ImInt(cfg.interface.ad_slider)

local ad_radiobutton = imgui.ImInt(cfg.interface.ad_radiobutton)
local themes_combo = imgui.ImInt(0)

local delay = 0.5

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then
        return
    end
    while not isSampAvailable() do
        wait(100)
    end

    if not doesFileExist(getWorkingDirectory()..'\\config\\AutoPiar.ini') then
        inicfg.save(cfg, 'AutoPiar.ini')
    end

    sampAddChatMessage("[AutoPiar]: {FFFFFF}Скрипт загружен, для настройки введите /ap", 0x5CBCFF)
    sampAddChatMessage("[AutoPiar]: {FFFFFF}Отдельное спасибо: art creator", 0x5CBCFF)

    sampRegisterChatCommand("ap", function()
        main_window_state.v = not main_window_state.v
        imgui.Process = main_window_state.v
    end)

    while true do
        wait(0)
        vr.v = cfg.config.vr
        fam.v = cfg.config.fam
        j.v = cfg.config.j
        s.v = cfg.config.s
        ad.v = cfg.config.ad
        themes_combo.v = cfg.interface.theme_id
        styles = cfg.interface.theme_id

        lockPlayerControl(main_window_state.v)

        -- Проверка состояния чекбоксов и флага
        if enable and not vr_check.v and not fam_check.v and not j_check.v and not ad_check.v and not s_check.v then
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Произошла ошибка, были сняты все CheckBox'ы ", 0xFF0000)
            enable = false
        end
    end
end

function piar_fam()
    wait(1000)
    while enable do
        if fam_check.v then
            sampSendChat("/fam " .. u8:decode(cfg.config.fam))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /fam", 0x5CBCFF) -- Хз зачем, но пусть будет
        end
        wait(fam_slider.v * 1000)
    end
end

function piar_j()
    wait(500)
    while enable do
        if j_check.v then
            sampSendChat("/j " .. u8:decode(cfg.config.j))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /j", 0x5CBCFF)
        end
        wait(j_slider.v * 1000)
    end
end

function piar_s()
    wait(1000)
    while enable do
        if s_check.v then
            local message = u8:decode(cfg.config.s)
            -- Проверка длины сообщения
            if #message > 128 then
                sampAddChatMessage("[AutoPiar]: {FF0000}Ошибка - Сообщение слишком длинное для /s", 0xFF0000)
            else
                sampSendChat("/s " .. message)
                sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /s", 0x5CBCFF)
            end
        end
        wait(s_slider.v * 1000)
    end
end

function piar_ad()
    wait(1500)
    while enable do
        if ad_check.v then
            local message = u8:decode(cfg.config.ad)
            sampSendChat("/ad " .. message)
            wait(300)
            local button = cfg.interface.ad_radiobutton == 1 and 1 or 2
            sampSendDialogResponse(15346, 1, button, nil)
            sampCloseCurrentDialogWithButton(1)
            wait(500)
            sampCloseCurrentDialogWithButton(1)
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено объявление /ad", 0x5CBCFF)
        end
        wait(ad_slider.v * 1000)
    end
end

function piar_vr()
    wait(2300)
    while enable do
        if vr_check.v then
            pcall(sampProcessChatInput, "/vr " .. u8:decode(cfg.config.vr))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /vr", 0x5CBCFF)
        end
        wait(vr_slider.v * 1000)
    end
end

function ev.onShowDialog(id, style, title, b1, b2, text)
    if text:find("рекламой") and vr_check.v and enable then
        lua_thread.create(function()
            wait(50)
            sampSendDialogResponse(25628,1,0,"")
            sampCloseCurrentDialogWithButton(1)
        end)
    end
end

function imgui.OnDrawFrame()
    local style = imgui.GetStyle()
    local clrs = style.Colors
    local clr = imgui.Col
    local ImVec4 = imgui.ImVec4
    style.Alpha = 1
    style.ChildWindowRounding = 0
    style.WindowRounding = 0
    style.GrabRounding = 0
    style.GrabMinSize = 12
    style.FrameRounding = 5
    local triangle = 0xFF002779

    if styles == 0 then
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.Border] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.BorderShadow] = ImVec4(0, 0, 0, 0)
        clrs[clr.FrameBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.FrameBgHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.FrameBgActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.TitleBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.TitleBgActive] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.MenuBarBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0.15, 0.15, 0.15, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.ComboBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ButtonActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.Header] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.HeaderActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.Separator] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ResizeGripActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.CloseButton] = ImVec4(0.2, 0.2, 0.2, 0.88)
        clrs[clr.CloseButtonHovered] = ImVec4(0.2, 0.2, 0.2, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.2, 0.2, 0.2, 0.61)
        clrs[clr.PlotLines] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotHistogram] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0, 0, 0, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 1 then
        triangle = 0xFF007723
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.Border] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.BorderShadow] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.FrameBg] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.53, 0.71, 0.01, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.53, 0.71, 0.01, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.53, 0.71, 0.01, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.53, 0.71, 0.01, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.53, 0.71, 0.01, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.Header] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.Separator] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 2 then
        triangle = 0xFFD6388B
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.Border] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.BorderShadow] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.FrameBg] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.71, 0.01, 0.38, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.71, 0.01, 0.38, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.71, 0.01, 0.38, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.71, 0.01, 0.38, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.71, 0.01, 0.38, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.Header] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.Separator] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 3 then
        triangle = 0xFFD67200
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.Border] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.BorderShadow] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.FrameBg] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.85, 0.59, 0, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.85, 0.59, 0, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.85, 0.59, 0, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.85, 0.59, 0, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.85, 0.59, 0, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.Header] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.Separator] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    end

    if not main_window_state.v then
        imgui.Process = false
    end

    if main_window_state.v then
        local sw, sh = getScreenResolution()

        imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
        imgui.SetNextWindowSize(imgui.ImVec2(600, 475), imgui.Cond.FirstUseEver)
        imgui.Begin(u8"Авто Пиар", main_window_state, imgui.WindowFlags.NoResize)

        -- Пиар в /vr
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /vr")).x)/2)
        imgui.Text(u8"Пиар в /vr")
        if imgui.Checkbox("##1", vr_check) then
            cfg.interface.vr_checkbox = vr_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##2", vr) then
            cfg.config.vr = vr.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##3", vr_slider, 1, 600, u8' %.0f с') then
            cfg.interface.vr_slider = vr_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /fam
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /fam")).x)/2)
        imgui.Text(u8"Пиар в /fam")
        if imgui.Checkbox("##4", fam_check) then
            cfg.interface.fam_checkbox = fam_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##5", fam) then
            cfg.config.fam = fam.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##6", fam_slider, 1, 600, u8'%.0f с') then
            cfg.interface.fam_slider = fam_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /j
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /j")).x)/2)
        imgui.Text(u8"Пиар в /j")
        if imgui.Checkbox("##7", j_check) then
            cfg.interface.j_checkbox = j_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##8", j) then
            cfg.config.j = j.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##9", j_slider, 1, 600, u8'%.0f с') then
            cfg.interface.j_slider = j_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /s
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /s")).x)/2)
        imgui.Text(u8"Пиар в /s")
        if imgui.Checkbox("##10", s_check) then
            cfg.interface.s_checkbox = s_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##11", s) then
            cfg.config.s = s.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##12", s_slider, 1, 600, u8'%.0f с') then
            cfg.interface.s_slider = s_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /ad
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /ad")).x)/2)
        imgui.Text(u8"Пиар в /ad")
        if imgui.Checkbox("##13", ad_check) then
            cfg.interface.ad_checkbox = ad_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##14", ad) then
            cfg.config.ad = ad.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##15", ad_slider, 1, 600, u8'%.0f с') then
            cfg.interface.ad_slider = ad_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        if imgui.RadioButton(u8"Обычное объявление", ad_radiobutton, 1) then
            cfg.interface.ad_radiobutton = ad_radiobutton.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(470)
        if imgui.RadioButton(u8"VIP объявление", ad_radiobutton, 2) then
            cfg.interface.ad_radiobutton = ad_radiobutton.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Темы интерфейса
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Цветовая тема окна")).x)/2)
        imgui.Text(u8"Цветовая тема окна")
        if imgui.Combo("##16", themes_combo, {u8"Синий стиль", u8"Зеленый стиль", u8"Розовый стиль", u8"Оранжевый стиль"}) then
            styles = themes_combo.v
            cfg.interface.theme_id = themes_combo.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Кнопка запуска авто-пиара
        if imgui.Button(u8((enable and 'Остановить' or 'Запустить') .. ' авто-пиар'), imgui.ImVec2(582, 20)) then
            enable = not enable
            if enable then
                piar_vr1 = lua_thread.create(piar_vr)
                piar_fam2 = lua_thread.create(piar_fam)
                piar_j3 = lua_thread.create(piar_j)
                piar_s4 = lua_thread.create(piar_s)
                piar_ad5 = lua_thread.create(piar_ad)
            else
                if piar_vr1 then piar_vr1:terminate() end
                if piar_fam2 then piar_fam2:terminate() end
                if piar_j3 then piar_j3:terminate() end
                if piar_s4 then piar_s4:terminate() end
                if piar_ad5 then piar_ad5:terminate() end
            end
            if not vr_check.v and not fam_check.v and not j_check.v and not ad_check.v and not s_check.v then
                sampAddChatMessage("[AutoPiar]: {FFFFFF}Небыло выбрано ни одного варианта пиара!", triangle)
                enable = false
            else
                sampAddChatMessage(enable and "[AutoPiar]: {FFFFFF}Пиар активирован!" or "[AutoPiar]: {FFFFFF}Пиар деактивирован!", triangle)
            end
        end
        imgui.End()
    end
end

function ev.onServerMessage(color, text)
    if text:find("%[%u+%] {%x+}[A-z0-9_]+%[" .. select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)) .. "%]:.+") then
        finished = true
    end
    if text:find("^%[Ошибка%].*После последнего сообщения в этом чате нужно подождать") then
        lua_thread.create(function()
            wait(delay * 1000)
            sampSendChat("/vr " .. message)
            try = try + 1
        end)
        return false
    end
    if text:find("^Вы заглушены") or text:find("Для возможности повторной отправки сообщения в этот чат") then
        finished = true
    end
end

Спойлер: Мои НЕДОскрипты

 Нравится Цитата ОтветитьЖалоба
 
Последнее редактирование:
  • Нравится
Реакции: izicapt

izicapt

Известный
Автор темы
360
113
Попробуй удалить функцию полностью, тогда все будет работать
Код:
--[ML] (error) AutoPiar: opcode '0AF9' call caused an unhandled exception stack traceback: [C]: in function 'sampSendChat' D:\Games\Arizona Games Sborka\moonloader\AP.lua:165: in function <D:\Games\Arizona Games Sborka\moonloader\AP.lua:161> [ML] (error) AutoPiar: Script died due to an error. (44D95034) че за х...
script_name("AutoPiar")
script_author("ARMOR")
script_version("1.2")

require "lib.moonloader"
local imgui = require "imgui"
local inicfg = require "inicfg"
local encoding = require 'encoding'
local ev = require 'lib.samp.events'

encoding.default = 'CP1251'
u8 = encoding.UTF8

local cfg = inicfg.load({
    config = {
        vr = "",
        fam = "",
        j = "",
        s = "",
        ad = "",
    },
    interface = {
        vr_checkbox = false,
        fam_checkbox = false,
        j_checkbox = false,
        s_checkbox = false,
        ad_checkbox = false,
        vr_slider = 1,
        fam_slider = 1,
        j_slider = 1,
        s_slider = 1,
        ad_slider = 1,
        ad_radiobutton = 1,
        theme_id = 0,
    }
}, "AutoPiar.ini")

local enable = false
local main_window_state = imgui.ImBool(false)

local vr_check = imgui.ImBool(cfg.interface.vr_checkbox)
local fam_check = imgui.ImBool(cfg.interface.fam_checkbox)
local j_check = imgui.ImBool(cfg.interface.j_checkbox)
local s_check = imgui.ImBool(cfg.interface.s_checkbox)
local ad_check = imgui.ImBool(cfg.interface.ad_checkbox)

local vr = imgui.ImBuffer(256)
local fam = imgui.ImBuffer(256)
local j = imgui.ImBuffer(256)
local s = imgui.ImBuffer(256)
local ad = imgui.ImBuffer(256)

local vr_slider = imgui.ImInt(cfg.interface.vr_slider)
local fam_slider = imgui.ImInt(cfg.interface.fam_slider)
local j_slider = imgui.ImInt(cfg.interface.j_slider)
local s_slider = imgui.ImInt(cfg.interface.s_slider)
local ad_slider = imgui.ImInt(cfg.interface.ad_slider)

local ad_radiobutton = imgui.ImInt(cfg.interface.ad_radiobutton)
local themes_combo = imgui.ImInt(0)

local delay = 0.5

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then
        return
    end
    while not isSampAvailable() do
        wait(100)
    end

    if not doesFileExist(getWorkingDirectory()..'\\config\\AutoPiar.ini') then
        inicfg.save(cfg, 'AutoPiar.ini')
    end

    sampAddChatMessage("[AutoPiar]: {FFFFFF}Скрипт загружен, для настройки введите /ap", 0x5CBCFF)
    sampAddChatMessage("[AutoPiar]: {FFFFFF}Отдельное спасибо: art creator", 0x5CBCFF)

    sampRegisterChatCommand("ap", function()
        main_window_state.v = not main_window_state.v
        imgui.Process = main_window_state.v
    end)

    while true do
        wait(0)
        vr.v = cfg.config.vr
        fam.v = cfg.config.fam
        j.v = cfg.config.j
        s.v = cfg.config.s
        ad.v = cfg.config.ad
        themes_combo.v = cfg.interface.theme_id
        styles = cfg.interface.theme_id

        lockPlayerControl(main_window_state.v)

        -- Проверка состояния чекбоксов и флага
        if enable and not vr_check.v and not fam_check.v and not j_check.v and not ad_check.v and not s_check.v then
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Произошла ошибка, были сняты все CheckBox'ы ", 0xFF0000)
            enable = false
        end
    end
end

function piar_fam()
    wait(1000)
    while enable do
        if fam_check.v then
            sampSendChat("/fam " .. u8:decode(cfg.config.fam))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /fam", 0x5CBCFF) -- Хз зачем, но пусть будет
        end
        wait(fam_slider.v * 1000)
    end
end

function piar_j()
    wait(500)
    while enable do
        if j_check.v then
            sampSendChat("/j " .. u8:decode(cfg.config.j))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /j", 0x5CBCFF)
        end
        wait(j_slider.v * 1000)
    end
end

function piar_s()
    wait(1000)
    while enable do
        if s_check.v then
            local message = u8:decode(cfg.config.s)
            -- Проверка длины сообщения
            if #message > 128 then
                sampAddChatMessage("[AutoPiar]: {FF0000}Ошибка - Сообщение слишком длинное для /s", 0xFF0000)
            else
                sampSendChat("/s " .. message)
                sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /s", 0x5CBCFF)
            end
        end
        wait(s_slider.v * 1000)
    end
end

function piar_ad()
    wait(1500)
    while enable do
        if ad_check.v then
            local message = u8:decode(cfg.config.ad)
            sampSendChat("/ad " .. message)
            wait(300)
            local button = cfg.interface.ad_radiobutton == 1 and 1 or 2
            sampSendDialogResponse(15346, 1, button, nil)
            sampCloseCurrentDialogWithButton(1)
            wait(500)
            sampCloseCurrentDialogWithButton(1)
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено объявление /ad", 0x5CBCFF)
        end
        wait(ad_slider.v * 1000)
    end
end

function piar_vr()
    wait(2300)
    while enable do
        if vr_check.v then
            pcall(sampProcessChatInput, "/vr " .. u8:decode(cfg.config.vr))
            sampAddChatMessage("[AutoPiar]: {FFFFFF}Отправлено сообщение в /vr", 0x5CBCFF)
        end
        wait(vr_slider.v * 1000)
    end
end

function ev.onShowDialog(id, style, title, b1, b2, text)
    if text:find("рекламой") and vr_check.v and enable then
        lua_thread.create(function()
            wait(50)
            sampSendDialogResponse(25628,1,0,"")
            sampCloseCurrentDialogWithButton(1)
        end)
    end
end

function imgui.OnDrawFrame()
    local style = imgui.GetStyle()
    local clrs = style.Colors
    local clr = imgui.Col
    local ImVec4 = imgui.ImVec4
    style.Alpha = 1
    style.ChildWindowRounding = 0
    style.WindowRounding = 0
    style.GrabRounding = 0
    style.GrabMinSize = 12
    style.FrameRounding = 5
    local triangle = 0xFF002779

    if styles == 0 then
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.Border] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.BorderShadow] = ImVec4(0, 0, 0, 0)
        clrs[clr.FrameBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.FrameBgHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.FrameBgActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.TitleBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.TitleBgActive] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.MenuBarBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0.15, 0.15, 0.15, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.ComboBg] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ButtonActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.Header] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.HeaderActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.Separator] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.14, 0.45, 0.82, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.06, 0.37, 0.74, 1)
        clrs[clr.ResizeGripActive] = ImVec4(0.1, 0.41, 0.78, 1)
        clrs[clr.CloseButton] = ImVec4(0.2, 0.2, 0.2, 0.88)
        clrs[clr.CloseButtonHovered] = ImVec4(0.2, 0.2, 0.2, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.2, 0.2, 0.2, 0.61)
        clrs[clr.PlotLines] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotHistogram] = ImVec4(1, 1, 1, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0, 0, 0, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 1 then
        triangle = 0xFF007723
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.Border] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.BorderShadow] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.FrameBg] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.53, 0.71, 0.01, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.53, 0.71, 0.01, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.53, 0.71, 0.01, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.53, 0.71, 0.01, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.53, 0.71, 0.01, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.Header] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.Separator] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.53, 0.71, 0.01, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.53, 0.71, 0.01, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.53, 0.71, 0.01, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 2 then
        triangle = 0xFFD6388B
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.Border] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.BorderShadow] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.FrameBg] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.71, 0.01, 0.38, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.71, 0.01, 0.38, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.71, 0.01, 0.38, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.71, 0.01, 0.38, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.71, 0.01, 0.38, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.Header] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.Separator] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.71, 0.01, 0.38, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.71, 0.01, 0.38, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.71, 0.01, 0.38, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    elseif styles == 3 then
        triangle = 0xFFD67200
        clrs[clr.Text] = ImVec4(1, 1, 1, 1)
        clrs[clr.TextDisabled] = ImVec4(0.6, 0.6, 0.6, 1)
        clrs[clr.WindowBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ChildWindowBg] = ImVec4(0, 0, 0, 0)
        clrs[clr.PopupBg] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.Border] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.BorderShadow] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.FrameBg] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.FrameBgHovered] = ImVec4(0.85, 0.59, 0, 0.59)
        clrs[clr.FrameBgActive] = ImVec4(0.85, 0.59, 0, 0.39)
        clrs[clr.TitleBg] = ImVec4(0.85, 0.59, 0, 0.82)
        clrs[clr.TitleBgActive] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.TitleBgCollapsed] = ImVec4(0.85, 0.59, 0, 0.67)
        clrs[clr.MenuBarBg] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ScrollbarBg] = ImVec4(0, 0, 0, 1)
        clrs[clr.ScrollbarGrab] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ScrollbarGrabHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ScrollbarGrabActive] = ImVec4(0.85, 0.59, 0, 0.59)
        clrs[clr.ComboBg] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.CheckMark] = ImVec4(1, 1, 1, 1)
        clrs[clr.SliderGrab] = ImVec4(0.18, 0.18, 0.18, 1)
        clrs[clr.SliderGrabActive] = ImVec4(0.26, 0.26, 0.26, 1)
        clrs[clr.Button] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ButtonHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ButtonActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.Header] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.HeaderHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.HeaderActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.Separator] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.SeparatorHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.SeparatorActive] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ResizeGrip] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.ResizeGripHovered] = ImVec4(0.85, 0.59, 0, 0.78)
        clrs[clr.ResizeGripActive] = ImVec4(0.85, 0.59, 0, 0.71)
        clrs[clr.CloseButton] = ImVec4(0, 0, 0, 1)
        clrs[clr.CloseButtonHovered] = ImVec4(0.29, 0.29, 0.29, 1)
        clrs[clr.CloseButtonActive] = ImVec4(0.77, 0.77, 0.77, 0.78)
        clrs[clr.PlotLines] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotLinesHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotHistogram] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.PlotHistogramHovered] = ImVec4(0.85, 0.59, 0, 1)
        clrs[clr.TextSelectedBg] = ImVec4(0.26, 0.26, 0.26, 0.35)
        clrs[clr.ModalWindowDarkening] = ImVec4(0.2, 0.2, 0.2, 0.35)
    end

    if not main_window_state.v then
        imgui.Process = false
    end

    if main_window_state.v then
        local sw, sh = getScreenResolution()

        imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
        imgui.SetNextWindowSize(imgui.ImVec2(600, 475), imgui.Cond.FirstUseEver)
        imgui.Begin(u8"Авто Пиар", main_window_state, imgui.WindowFlags.NoResize)

        -- Пиар в /vr
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /vr")).x)/2)
        imgui.Text(u8"Пиар в /vr")
        if imgui.Checkbox("##1", vr_check) then
            cfg.interface.vr_checkbox = vr_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##2", vr) then
            cfg.config.vr = vr.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##3", vr_slider, 1, 600, u8' %.0f с') then
            cfg.interface.vr_slider = vr_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /fam
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /fam")).x)/2)
        imgui.Text(u8"Пиар в /fam")
        if imgui.Checkbox("##4", fam_check) then
            cfg.interface.fam_checkbox = fam_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##5", fam) then
            cfg.config.fam = fam.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##6", fam_slider, 1, 600, u8'%.0f с') then
            cfg.interface.fam_slider = fam_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /j
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /j")).x)/2)
        imgui.Text(u8"Пиар в /j")
        if imgui.Checkbox("##7", j_check) then
            cfg.interface.j_checkbox = j_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##8", j) then
            cfg.config.j = j.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##9", j_slider, 1, 600, u8'%.0f с') then
            cfg.interface.j_slider = j_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /s
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /s")).x)/2)
        imgui.Text(u8"Пиар в /s")
        if imgui.Checkbox("##10", s_check) then
            cfg.interface.s_checkbox = s_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##11", s) then
            cfg.config.s = s.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##12", s_slider, 1, 600, u8'%.0f с') then
            cfg.interface.s_slider = s_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Пиар в /ad
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Пиар в /ad")).x)/2)
        imgui.Text(u8"Пиар в /ad")
        if imgui.Checkbox("##13", ad_check) then
            cfg.interface.ad_checkbox = ad_check.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(30)
        imgui.PushItemWidth(560)
        if imgui.InputText("##14", ad) then
            cfg.config.ad = ad.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.PushItemWidth(582)
        if imgui.SliderInt("##15", ad_slider, 1, 600, u8'%.0f с') then
            cfg.interface.ad_slider = ad_slider.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        if imgui.RadioButton(u8"Обычное объявление", ad_radiobutton, 1) then
            cfg.interface.ad_radiobutton = ad_radiobutton.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.SameLine(470)
        if imgui.RadioButton(u8"VIP объявление", ad_radiobutton, 2) then
            cfg.interface.ad_radiobutton = ad_radiobutton.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Темы интерфейса
        imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8("Цветовая тема окна")).x)/2)
        imgui.Text(u8"Цветовая тема окна")
        if imgui.Combo("##16", themes_combo, {u8"Синий стиль", u8"Зеленый стиль", u8"Розовый стиль", u8"Оранжевый стиль"}) then
            styles = themes_combo.v
            cfg.interface.theme_id = themes_combo.v
            inicfg.save(cfg, "AutoPiar.ini")
        end
        imgui.Separator()

        -- Кнопка запуска авто-пиара
        if imgui.Button(u8((enable and 'Остановить' or 'Запустить') .. ' авто-пиар'), imgui.ImVec2(582, 20)) then
            enable = not enable
            if enable then
                piar_vr1 = lua_thread.create(piar_vr)
                piar_fam2 = lua_thread.create(piar_fam)
                piar_j3 = lua_thread.create(piar_j)
                piar_s4 = lua_thread.create(piar_s)
                piar_ad5 = lua_thread.create(piar_ad)
            else
                if piar_vr1 then piar_vr1:terminate() end
                if piar_fam2 then piar_fam2:terminate() end
                if piar_j3 then piar_j3:terminate() end
                if piar_s4 then piar_s4:terminate() end
                if piar_ad5 then piar_ad5:terminate() end
            end
            if not vr_check.v and not fam_check.v and not j_check.v and not ad_check.v and not s_check.v then
                sampAddChatMessage("[AutoPiar]: {FFFFFF}Небыло выбрано ни одного варианта пиара!", triangle)
                enable = false
            else
                sampAddChatMessage(enable and "[AutoPiar]: {FFFFFF}Пиар активирован!" or "[AutoPiar]: {FFFFFF}Пиар деактивирован!", triangle)
            end
        end
        imgui.End()
    end
end

function ev.onServerMessage(color, text)
    if text:find("%[%u+%] {%x+}[A-z0-9_]+%[" .. select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)) .. "%]:.+") then
        finished = true
    end
    if text:find("^%[Ошибка%].*После последнего сообщения в этом чате нужно подождать") then
        lua_thread.create(function()
            wait(delay * 1000)
            sampSendChat("/vr " .. message)
            try = try + 1
        end)
        return false
    end
    if text:find("^Вы заглушены") or text:find("Для возможности повторной отправки сообщения в этот чат") then
        finished = true
    end
end

Спойлер: Мои НЕДОскрипты

 Нравится Цитата ОтветитьЖалоба
Идея так себе, весь скрипт крашится как и было тогда + если я эту функцию удалю персонаж замирает намертво пока не перезагрузишь скрипты и не закроешь окно автопиара ( перед эти необходимо снова его открыть)
 

mafizik

Участник
11
4
Идея так себе, весь скрипт крашится как и было тогда + если я эту функцию удалю персонаж замирает намертво пока не перезагрузишь скрипты и не закроешь окно автопиара ( перед эти необходимо снова его открыть)
у меня все работает, хз почему у тебя так
 
  • Грустно
Реакции: izicapt

izicapt

Известный
Автор темы
360
113
Последнее редактирование: