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

function isPlayerDriveBy(playerId)
    if playerId ~= nil then
        local data = allocateMemory(24)
        sampStorePlayerPassengerData(playerId, data)
        local state = bit.rshift(getStructElement(data, 2, 1, false), 6)
        freeMemory(data)
        return (state == 1 and true)
    end
    return false
end

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    repeat wait(0) until isSampAvailable()
    while true do
        wait(0)
        if isCharInAnyCar(PLAYER_PED) then
            printStringNow(tostring(isPlayerDriveBy(select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)))), 1000)
        end
    end
end

writeMemory(0x6886F8, 4, 0x90909090, true)--прыгать с тяжелым оружием
writeMemory(0x6886F8+4, 2, 0x9090, true)--прыгать с тяжелым оружием
writeMemory(0x68858B, 4, 0xC1909090, true)--быстрый бег с тяжелым оружием

memory.fill(0x57733B, 0x90, 5, true)

local ffi = require('ffi');
local shell32 = ffi.load('shell32');

ffi.cdef([[
    typedef int BOOL;
    typedef unsigned int DWORD;
    typedef unsigned int UINT;
    typedef intptr_t HANDLE;
    typedef intptr_t HWND;
    typedef intptr_t HICON;
    typedef intptr_t HINSTANCE;
    typedef struct {int Data[4];} GUID;

    typedef struct {
        DWORD cbSize;
        HWND  hWnd;
        UINT  uID;
        UINT  uFlags;
        UINT  uCallbackMessage;
        HICON hIcon;
        char  szTip[128];
        DWORD dwState;
        DWORD dwStateMask;
        char  szInfo[256];
        union {
            UINT uTimeout;
            UINT uVersion;
        };
        char  szInfoTitle[64];
        DWORD dwInfoFlags;
        GUID  guidItem;
        HICON hBalloonIcon;
        } NOTIFYICONDATAA;

        BOOL Shell_NotifyIconA(
        int dwMessage,
        NOTIFYICONDATAA * lpData
        );
        HICON LoadIconA(
        HINSTANCE hInstance,
        intptr_t IconCode
        );
        BOOL DestroyIcon(
        HICON hIcon
    );
    int __stdcall GetModuleHandleA(const char* lpModuleName);
]]);



---@enum WindowsNotificationIcon
local WindowsNotificationIcon = {
    None = 0,
    Application = 32512,
    Error = 32513,
    Question = 32514,
    Warning = 32515,
    Information = 32516,
    Security = 32518
}

---@param iconType WindowsNotificationIcon | number | nil
---@param text string
---@param title string
function showWindowsNotification(iconType, title, text)
    local noIcon = iconType == nil;
    local hInstance = noIcon and ffi.C.GetModuleHandleA(ffi.NULL) or 0;
    local iconType = noIcon and 100 or (iconType or 0);
    local function copy_string(dest_array_ptr, str)
        ffi.copy(dest_array_ptr, (str or ""):sub(1, ffi.sizeof(dest_array_ptr) - 1));
    end

    --// Create tray icon
    local tray_icon_handle = ffi.C.LoadIconA(hInstance, iconType == 0 and 100 or iconType);
    local balloon_icon_handle = ffi.C.LoadIconA(hInstance, iconType);
    local notify_icon_data = ffi.new('NOTIFYICONDATAA');
    notify_icon_data.cbSize = ffi.sizeof(notify_icon_data);
    notify_icon_data.hWnd = ffi.cast('int', readMemory(0x00C8CF88, 4, false));
    notify_icon_data.uFlags = 1 + 2;
    notify_icon_data.hIcon = tray_icon_handle;
    notify_icon_data.uVersion = 4;
    notify_icon_data.hBalloonIcon = balloon_icon_handle;
    shell32.Shell_NotifyIconA(0, notify_icon_data);
    shell32.Shell_NotifyIconA(4, notify_icon_data);

    --// Show notification
    notify_icon_data.uFlags = 1 + 2 + 16;
    notify_icon_data.dwInfoFlags = iconType == 0 and 0 or 4 + 32;
    copy_string(notify_icon_data.szInfoTitle, title);
    copy_string(notify_icon_data.szInfo, text);
    shell32.Shell_NotifyIconA(1, notify_icon_data);
    lua_thread.create(function()
        wait(500);
        --// Remove tray icon and notification
        shell32.Shell_NotifyIconA(2, notify_icon_data);
        ffi.C.DestroyIcon(balloon_icon_handle);
        ffi.C.DestroyIcon(tray_icon_handle);
    end)
end

local sampev = require('lib.samp.events');
local weapons = require('game.weapons');

function sampev.onSendClientJoin()
    showWindowsNotification(WindowsNotificationIcon.Information, 'Вы подключились к серверу', sampGetCurrentServerName());
end

function sampev.onSendTakeDamage(id, damage, weapon, bodypart)
    local isPlayer = sampIsPlayerConnected(id);
    if (isPlayer) then
        showWindowsNotification(
            WindowsNotificationIcon.Warning,
            ('%s [%d] нанес вам урон!'):format(sampGetPlayerNickname(id), id),
            ('%d хп из %s'):format(damage, weapons.get_name(weapon) or '-')
        );
    end
end

local ffi = require('ffi');
local bit = require('bit');

ffi.cdef([[
    static const int OFN_FILEMUSTEXIST             = 0x1000;
    static const int OFN_NOCHANGEDIR               = 8;
    static const int OFN_PATHMUSTEXIST             = 0x800;

    typedef bool BOOL;
    typedef char CHAR;

    typedef unsigned short WORD;
    typedef unsigned long DWORD;

    typedef void *PVOID;
    typedef void *LPVOID;
    typedef void *LPOFNHOOKPROC;

    typedef unsigned long HANDLE;
    typedef HANDLE HWND;
    typedef HANDLE HINSTANCE;

    typedef const char *LPCSTR;
    typedef const char *LPCTSTR;

    typedef char *LPSTR;
    typedef char *LPTSTR;

    typedef unsigned long LPARAM;

    typedef struct {
        DWORD         lStructSize;
        HWND          hwndOwner;
        HINSTANCE     hInstance;
        LPCTSTR       lpstrFilter;
        LPTSTR        lpstrCustomFilter;
        DWORD         nMaxCustFilter;
        DWORD         nFilterIndex;
        LPTSTR        lpstrFile;
        DWORD         nMaxFile;
        LPTSTR        lpstrFileTitle;
        DWORD         nMaxFileTitle;
        LPCTSTR       lpstrInitialDir;
        LPCTSTR       lpstrTitle;
        DWORD         flags;
        WORD          nFileOffset;
        WORD          nFileExtension;
        LPCTSTR       lpstrDefExt;
        LPARAM        lCustData;
        LPOFNHOOKPROC lpfnHook;
        LPCTSTR       lpTemplateName;

        LPVOID        pvReserved;
        DWORD         dwReserved;
        DWORD         flagsEx;

    } OPENFILENAME;

    BOOL GetSaveFileNameA( OPENFILENAME *lpofn );
    BOOL GetOpenFileNameA( OPENFILENAME *lpofn );
    DWORD GetLastError(void);
]]);
local com = ffi.load("comdlg32");
local krnl = ffi.load("kernel32");

---@param saveDialog boolean true - save, false - open
---@param fileExtension string?
---@param defaultDir string?
---@return boolean status
---@return string result
function FileDialog(saveDialog, fileExtension, defaultDir)
    local Ofn = ffi.new("OPENFILENAME")
    ffi.fill(Ofn,ffi.sizeof(Ofn))
    local szFile = ffi.new("char[260]","\0");
    local hwnd = ffi.new("HWND",0);
    Ofn.lStructSize = ffi.sizeof(Ofn);
    Ofn.hwndOwner = hwnd;
    Ofn.lpstrFile = szFile;
    Ofn.nMaxFile = ffi.sizeof(szFile);
    Ofn.lpstrFilter = fileExtension;
    Ofn.nFilterIndex = 1;
    Ofn.lpstrFileTitle = nil;
    Ofn.nMaxFileTitle = 0;
    Ofn.lpstrInitialDir = defaultDir or getGameDirectory();
    Ofn.flags = bit.bor(com.OFN_PATHMUSTEXIST, com.OFN_FILEMUSTEXIST, com.OFN_NOCHANGEDIR);

    if (com[saveDialog and 'GetSaveFileNameA' or 'GetOpenFileNameA'](Ofn)) then
        return true, ffi.string(Ofn.lpstrFile, Ofn.nMaxFile);
    end
    return false, krnl.GetLastError();
end

local status, path = FileDialog(false, nil, getWorkingDirectory());
if (status) then
    sampAddChatMessage('Ты выбрал файл ' .. path, -1);
end

---@diagnostic disable-next-line:deprecated
table.length = table.getn;
table.push = table.insert;

---@param self table
---@param callback fun(value: unknown, index: number | string)
function table.forEach(self, callback)
    for k, v in pairs(self) do
        callback(v, k);
    end
end

---@param self table
---@param callback fun(value: unknown, index: number | string): boolean
function table.filter(self, callback)
    table.forEach(self, function(value, index)
        if (not callback(value, index)) then
            self[index] = nil;
        end
    end)
end

---@param self table
---@param value any
---@param searchStartIndex number?
---@return boolean status
---@return number index
function table.includes(self, value, searchStartIndex)
    local foundIndex;
    table.forEach(self, function(v, index)
        if (v == value and index >= (searchStartIndex or 1)) then
            foundIndex = index;
        end
    end);
    return foundIndex ~= nil, foundIndex;
end

---@param self table
function table.keys(self)
    local keys = {};
    table.forEach(self, function(_, k)
        table.insert(keys, k);
    end);
    return keys;
end

---@param self table
function table.values(self)
    local values = {};
    table.forEach(self, function(v, _)
        table.insert(values, v);
    end);
    return values;
end

local function printTable(title, t)
    print('\n' .. (title or 'Table:'));
    table.forEach(t, function(a, b) print(a, b) end);
end

local list = { 'a', 'b', 'c' };
printTable('Default', list);

table.filter(list, function(value, index)
    return value == 'a';
end)
printTable('After filter', list);

local function tableToString(tbl, indent)
    local function formatTableKey(k)
        local defaultType = type(k);
        if (defaultType ~= 'string') then
            k = tostring(k);
        end
        local useSquareBrackets = k:find('^(%d+)') or k:find('(%p)') or k:find('\\') or k:find('%-');
        return useSquareBrackets == nil and k or ('[%s]'):format(defaultType == 'string' and "'" .. k .. "'" or k);
    end
    local str = { '{' };
    local indent = indent or 0;
    for k, v in pairs(tbl) do
        table.insert(str, ('%s%s = %s,'):format(string.rep("    ", indent + 1), formatTableKey(k), type(v) == "table" and tableToString(v, indent + 1) or (type(v) == 'string' and "'" .. v .. "'" or tostring(v))));
    end
    table.insert(str, string.rep('    ', indent) .. '}');
    return table.concat(str, '\n');
end

local myTable = {
    name = 'chapo',
    education = 'Electrical engineer',
    skills = {
        'shitcode'
    },
    body = {
        ['Content-Type'] = 'application/json',
        height = 190,
        weight = 70,
        age = 19,
        skinColor = 'white',
        eyes = 'blue',
        bodyParts = {
            'Head',
            'Left Hand',
            'Right Hand',
            'Left foot',
            'Right foot'
        }
    }
}

print(tableToString(myTable));

local state = false

function main()
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand("fgs", function()
        state = not state
        Foggyness(state)
    end)
    wait(-1)
end

function Foggyness(bool)
    return writeMemory(0x72BE29, 2, bool and 0x9090 or 0x12EB, true) -- вечный гуляющий туман
end

local ffi = require("ffi")

ffi.cdef[[
    uint32_t GetLastError();
    void* OpenProcess(uint32_t dwDesiredAccess, int32_t bInheritHandle, uint32_t dwProcessId);
    int TerminateProcess(void* hProcess, uint32_t uExitCode);
    uint32_t GetCurrentProcessId();
]]


function killProcGame()
     local PROCESS_TERMINATE = 0x0001

     -- Получаем идентификатор процесса gta_sa.exe
     local processId = ffi.C.GetCurrentProcessId()

     -- Открываем процесс gta_sa.exe для его завершения
     local processHandle = ffi.C.OpenProcess(PROCESS_TERMINATE, 0, processId)
     if processHandle == nil then
         -- Если возникла ошибка при открытии процесса, выводим сообщение об ошибке
         local errorCode = ffi.C.GetLastError()
         print("Ошибка при открытии процесса: " .. errorCode)
     else
         -- Вызываем функцию TerminateProcess для завершения процесса gta_sa.exe
         local exitCode = 0 -- Код завершения процесса (в данном случае 0)
         local result = ffi.C.TerminateProcess(processHandle, exitCode)
         if result == 0 then
             -- Если возникла ошибка при завершении процесса, выводим сообщение об ошибке
             local errorCode = ffi.C.GetLastError()
             print("Ошибка при завершении процесса: " .. errorCode)
         else
             print("Процесс gta_sa.exe успешно завершен!")
         end
     end
end

os.exit(0)