Полезные сниппеты и функции

function submenus_show(menu, caption, select_button, close_button, back_button)
    select_button, close_button, back_button = select_button or 'Select', close_button or 'Close', back_button or 'Back'
    prev_menus = {}
    function display(menu, id, caption)
        local string_list = {}
        for i, v in ipairs(menu) do
            table.insert(string_list, type(v.submenu) == 'table' and v.title .. '  >>' or v.title)
        end
        sampShowDialog(id, caption, table.concat(string_list, '\n'), select_button, (#prev_menus > 0) and back_button or close_button, sf.DIALOG_STYLE_LIST)
        repeat
            wait(0)
            local result, button, list = sampHasDialogRespond(id)
            if result then
                if button == 1 and list ~= -1 then
                    local item = menu[list + 1]
                    if type(item.submenu) == 'table' then -- submenu
                        table.insert(prev_menus, {menu = menu, caption = caption})
                        if type(item.onclick) == 'function' then
                            item.onclick(menu, list + 1, item.submenu)
                        end
                        return display(item.submenu, id + 1, item.submenu.title and item.submenu.title or item.title)
                    elseif type(item.onclick) == 'function' then
                        local result = item.onclick(menu, list + 1)
                        if not result then return result end
                        return display(menu, id, caption)
                    end
                else -- if button == 0
                    if #prev_menus > 0 then
                        local prev_menu = prev_menus[#prev_menus]
                        prev_menus[#prev_menus] = nil
                        return display(prev_menu.menu, id - 1, prev_menu.caption)
                    end
                    return false
                end
            end
        until result
    end
    return display(menu, 31337, caption or menu.title)
end

local my_dialog = {
    title = 'Заголовок основного диалога',
    -- пункты диалога. каждый пункт должен быть заключен в фигурные скобки
    {
        title = 'Пункт 1', -- текст пункта, обязателен
        onclick = function(menu, row) -- функция-обработчик при выборе пункта
            -- параметр menu - это (под)меню, в котором находится этот пункт
            -- row - номер пункта, начиная с единицы
        end
    },
    -- ещё один пункт, но с предотвращением автоматического закрытия диалога при его выборе
    {
        title = 'Пункт 2',
        onclick = function(menu, row)
            return true -- возвращение значения true из функции-обработчика предотвратит закрытие диалога после выбора пункта
        end
    },
    -- третий пункт, но уже с подменю
    {
        title = 'Пункт с подменю',
        -- подменю. имеет точно такую же структуру, как и основной диалог
        submenu = {
            title = 'Заголовок подменю', -- однако заголовок тут не обязателен. если он не задан, будет использоваться текст пункта, открывающего это подменю
            -- каждый пункт подменю точно так же должен быть заключен в фигурные скобки
            {
                title = 'Пункт подменю 1'
                -- onclick не обязателен
            },
            {
                title = 'Пункт подменю 2',
                -- подменю в подменю. так можно до бесконечности
                submenu = {
                    title = 'Под-подменю',
                    onclick = function(menu, row, submenu) -- обработчик можно вешать и на открытие подменю, он выполнится перед показом
                        -- menu и row такие же, а submenu - это подменю, которое будет открыто
                        -- здесь бесполезно использовать return true
                    end,
                    -- наличие onclick для подменю не означает, что предопределенных пунктов в нём быть не может
                    {
                        title = 'Пункт #6141235'
                    }
                }
            },
            {
                title = 'Пункт подменю 3'
            }
        }
    }
}

local sf = require 'sampfuncs'

local my_dialog = {
    {
        title = 'Вылечить игрока',
        onclick = function()
            -- действия
        end
    },
    {
        title = 'Выдать броню',
        onclick = function()
            -- ...
        end
    },
    {
        title = 'Выдать миниган',
        onclick = function()
            -- ...
        end
    },
    {
        title = 'Ещё-что нибудь',
        onclick = function()
            -- ...
        end
    },
    {
        title = 'Телепорт в рандомную точку',
        onclick = function()
            -- ...
        end
    }
}

function main()
    while true do
        wait(0)
        if wasKeyPressed(0x31) then
            submenus_show(my_dialog, 'Бесполезное меню')
        end
    end
end

local sf = require 'sampfuncs'

local mod_submenus_sa = {
    {
        title = '{AAAAAA}GTA'
    },
    {
        title = 'Читы',
        submenu = {
            {
                title = 'Восстановить здоровье',
                onclick = function()
                    -- setCharHealth blabla
                end
            },
            {
                title = 'Восстановить броню',
                onclick = function()
                    -- ...
                end
            },
            {
                title = 'Починить транспорт',
                onclick = function()
                    -- ...
                end
            },
            {
                title = 'Деньги',
                submenu = {
                    {
                        title = '$500',
                        onclick = function()
                            -- ...
                        end
                    },
                    {
                        title = '$1 000',
                        onclick = function()
                            -- ...
                        end
                    },
                    {
                        title = '$100 000',
                        onclick = function()
                            -- ...
                        end
                    }
                }
            },
            {
                title = 'Бессмертие: выкл',
                onclick = function(menu, row)
                    godmode_active = not godmode_active
                    menu[row].title = godmode_active and 'Бессмертие: вкл' or 'Бессмертие: выкл'
                    -- ...
                    return true
                end
            }
        }
    },
    {
        title = 'Оружие',
        submenu = {
            {
                title = 'Выдать патроны',
                onclick = function()
                    -- ...
                end
            }
        }
    },
    {
        title = 'Транспорт',
        submenu = {
            -- ..
        }
    },
    {
        title = 'Телепорты',
        submenu = {
            -- ..
        }
    },
    {
        title = ' '
    },
    {
        title = '{AAAAAA}SA-MP'
    },
    {
        title = 'Игроки',
        submenu = {},
        onclick = function(menu, row, submenu)
            table.insert(submenu,{title='heuehue'})
            -- тут можно заполнить submenu списком игроков. например, сделать для каждого игрока подменю с какими-то действиями над ним
        end
    },
    {
        title = 'Патчи',
        submenu = {
            -- ...
        }
    }
}

function main()
    -- инициализация меню
    -- создание списка оружий
    local weaps = require 'game.weapons'
    for id = weaps.FIST, weaps.PARACHUTE do
        if weaps.names[id] then
            table.insert(mod_submenus_sa[3].submenu, {title = weaps.names[id], onclick = mod_menu_give_weapon})
        end
    end
    while true do
        wait(0)
        if testCheat('MSS') then
            submenus_show(mod_submenus_sa, 'mod_submenus_sa v1.3.3.7 by TurboRofl team', 'Выбрать', 'Закрыть', 'Назад')
        end
    end
end

function sampGetPlayerIdByNickname(nick)
  nick = tostring(nick)
  local _, myid = sampGetPlayerIdByCharHandle(PLAYER_PED)
  if nick == sampGetPlayerNickname(myid) then return myid end
  for i = 0, 1003 do
    if sampIsPlayerConnected(i) and sampGetPlayerNickname(i) == nick then
      return i
    end
  end
end

sampRegisterChatCommand('idn', function(text)
    local id = sampGetPlayerIdByNickname(text)
    if id then print(text..'['..id..']') end
end)

function imgui.TextColoredRGB(text)
    local style = imgui.GetStyle()
    local colors = style.Colors
    local ImVec4 = imgui.ImVec4

    local explode_argb = function(argb)
        local a = bit.band(bit.rshift(argb, 24), 0xFF)
        local r = bit.band(bit.rshift(argb, 16), 0xFF)
        local g = bit.band(bit.rshift(argb, 8), 0xFF)
        local b = bit.band(argb, 0xFF)
        return a, r, g, b
    end

    local getcolor = function(color)
        if color:sub(1, 6):upper() == 'SSSSSS' then
            local r, g, b = colors[1].x, colors[1].y, colors[1].z
            local a = tonumber(color:sub(7, 8), 16) or colors[1].w * 255
            return ImVec4(r, g, b, a / 255)
        end
        local color = type(color) == 'string' and tonumber(color, 16) or color
        if type(color) ~= 'number' then return end
        local r, g, b, a = explode_argb(color)
        return imgui.ImColor(r, g, b, a):GetVec4()
    end

    local render_text = function(text_)
        for w in text_:gmatch('[^\r\n]+') do
            local text, colors_, m = {}, {}, 1
            w = w:gsub('{(......)}', '{%1FF}')
            while w:find('{........}') do
                local n, k = w:find('{........}')
                local color = getcolor(w:sub(n + 1, k - 1))
                if color then
                    text[#text], text[#text + 1] = w:sub(m, n - 1), w:sub(k + 1, #w)
                    colors_[#colors_ + 1] = color
                    m = n
                end
                w = w:sub(1, n - 1) .. w:sub(k + 1, #w)
            end
            if text[0] then
                for i = 0, #text do
                    imgui.TextColored(colors_[i] or colors[1], u8(text[i]))
                    imgui.SameLine(nil, 0)
                end
                imgui.NewLine()
            else imgui.Text(u8(w)) end
        end
    end

    render_text(text)
end