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

kjor32 · 21 Янв 2023

Усиливает блики воды.

Lua:

local memory = require 'memory'

memory.setfloat(memory.getuint32(0x73D6F9 + 2, true), значение, true)-- стандартное значение 0.3

CaJlaT · 22 Янв 2023

Не нашёл тут подобных функций, поэтому держите...
Описание: Проверяет находится ли переменная в массиве (с поиском по названию)
Код:

Lua:

function inTable(t, val, key)
    for k, v in pairs(t) do
        if key and k == key and v == val then return true end
        if type(v) == 'table' then
            if inTable(v, val, key) then return true end
        elseif not key and v == val then
            return true
        end
    end
    return false
end

Пример использования:

Lua:

local tbl = {
    {
        123,
        312,
        {
            id = 333
        }
    }
}
print(inTable(tbl, 123)) -- true
print(inTable(tbl, 333)) -- true
print(inTable(tbl, 333, 'id')) -- true
print(inTable(tbl, 123, 'id')) -- false

Описание: Получает таблицу, в которой находится переменная (с поиском по названию)
Код:

Lua:

function getTableByValue(t, val, key)
    for k, v in pairs(t) do
        if key and k == key and v == val then return t end
        if type(v) == 'table' then
            local test = getTableByValue(v, val, key)
            if test then return test end
        elseif not key and v == val then
            return t
        end
    end
    return false
end

Пример использования:

Lua:

local tbl = {
    {
        name = 'huy',
        333,
        {
            id = 333,
            name = 'aboba'
        }
    }
}
local t = getTableByValue(tbl, 333)
if t then print(encodeJson(t)) else print('Table not found!') end
-- выдаст {"1":333,"2":{"name":"aboba","id":333},"name":"huy"}

local t = getTableByValue(tbl, 123)
if t then print(encodeJson(t)) else print('Table not found!') end
-- выдаст Table not found!

local t = getTableByValue(tbl, 333, 'id')
if t then print(encodeJson(t)) else print('Table not found!') end
-- выдаст {"name":"aboba","id":333}

Gorskin · 23 Янв 2023

Описание: Проверяет взорвалось ли что-то в игре в зоне стрима.

Lua:

function main()
    while not isSampAvailable() do wait(0) end
       
    while true do
        wait(0)
        if isExpl() then
            print("Что-то где-то бабахнуло!")
        end
    end
end

function isExpl()
    return readMemory(0xC88950 + 0x28, 1, true) == 1
end

Пример того что можно с этим сделать:

paulohardy · 23 Янв 2023

Gorskin написал(а):
Описание: Проверяет взорвалось ли что-то в игре в зоне стрима.

Lua:

function main() while not isSampAvailable() do wait(0) end while true do wait(0) if isExpl() then print("Что-то где-то бабахнуло!") end end end function isExpl() if readMemory(0xC88950+0x28, 1, true) == 1 then return true else return false end return false end

Lua:

function isExpl()
    return readMemory(0xC88950 + 0x28, 1, true) == 1
end

ARMOR · 26 Янв 2023

Описание: Убирает отключение чата при открытом Табе( Не ебу нахуя вообще Калькор это добавил, вроде таб не перекрывает чат ):

Код:

Lua:

local memory = require 'memory'

memory.fill(getModuleHandle("samp.dll") + 0x7524D, 0x90, 5, true) -- R3 версия

Пример использования:
Скрипт с поддержкой всех версий SAMP:

Lua:

local memory = require 'memory'
local ffi = require 'ffi'
local samp_base = nil
local addr = {
    [0x31DF13] = 0x7135D, -- R1
    [0x3195DD] = 0x713FD, -- R2
    [0xCC4D0] = 0x7524D, -- R3
    [0xCBCB0] = 0x7598D, -- R4
    [0xCBC90] = 0x7595C, -- R5
    [0xFDB60] = 0x753DD -- DL
}

if samp_base == nil then
    samp_base = getModuleHandle("samp.dll")
    if samp_base ~= 0 then
        local nt_header = samp_base + ffi.cast("long*", samp_base + 60)[0]
        local entry_point_addr = ffi.cast("unsigned int*", nt_header + 40)[0]
        if addr[entry_point_addr] ~= nil then
            memory.fill(samp_base + addr[entry_point_addr], 0x90, 5, true)
        end
    end
end

Демонстрация:

Savchik Blazer · 26 Янв 2023

armor написал(а):
таб не перекрывает чат

На маленьком разрешении перекрывает, если не ошибаюсь

ARMOR · 4 Фев 2023

Описание: Убирает отключение худа, чата и диалогов при зажатой F10

Lua:

local memory = require 'memory'

memory.fill(getModuleHandle("samp.dll") + 0x752C1, 0x90, 5, true) -- R3

--[[
0x713D1 - R1
0x71471 - R2
0x752C1 - R3
0x75A01 - R4
0x759D0 - R5
0x75451 - DL
]]

ARMOR · 9 Фев 2023

Описание: Устанавливает позицию ScrollBar'а чата:

Код:

Lua:

local memory = require 'memory'

function setChatScrollBarPos(pos)
    local pChat = memory.getuint32(getModuleHandle("samp.dll") + 0x26E8C8, true)
    local m_pScrollbar = memory.getuint32(pChat + 0x11E, true) -- Вообще это вроде как не m_pScrollBar, но похуй.
    memory.setint8(m_pScrollbar + 0x8E, pos, true)
end

Описание: Поднимает/Опускает ScrollBar чата на указаное количество строчек (

Код:

Lua:

local memory = require 'memory'

function scrollChatScrollBar(pos) -- Если хотите поднять - пишите отъемлимое число, например -5, а если наоборот опустить - пишите обычные числа, например 10
    local pChat = memory.getuint32(getModuleHandle("samp.dll") + 0x26E8C8, true)
    local m_pScrollbar = memory.getuint32(pChat + 0x11E, true)
    memory.setint8(m_pScrollbar + 0x8E, memory.getint8(m_pScrollbar + 0x8E, true) + pos, true)
end
--Не нужно говорить о том что можно было просто вызывать CChat::Scroll(), в ней если вы укажете любое число - она умножит его на 3 )

Описание: Получает позицию ScrollBar'а чата:

Код:

Lua:

local memory = require 'memory'

function getChatScrollBarPos()
    local pChat = memory.getuint32(getModuleHandle("samp.dll") + 0x26E8C8, true)
    local m_pScrollbar = memory.getuint32(pChat + 0x11E, true)
    return memory.getint8(m_pScrollbar + 0x8E, true)
end

Функции выше только для R3, но если хотите чтобы они работали на вашей версии просто измените адрес в переменной pChat на нужную:

Lua:

R1 - 0x21A0E4
R2 - 0x21A0EC
R3 - 0x26E8C8
R4 - 0x26E9F8
R5 - 0x26EB80
DL - 0x2ACA10

ARMOR · 11 Фев 2023

Описание: Отключает свечение от амулета( Свечение 50+ аксов на Аризоне ):

Lua:

local memory = require 'memory'

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

chapo · 13 Фев 2023

Описание: рисует QR код через DrawList (требуется qrencode.lua: https://github.com/speedata/luaqrcode)
Пример использования:

Lua:

local newFrame = imgui.OnFrame(
    function() return isSampAvailable() end,
    function(self)
        self.HideCursor = true
        local DL = imgui.GetBackgroundDrawList()
        local QRSize = 40
        for _, ped in ipairs(getAllChars()) do
            if isCharOnScreen(ped) then
                local result, id = sampGetPlayerIdByCharHandle(ped)
                if result then
                    local x, y, z = getBodyPartCoordinates(8, ped)
                    local dist = getDistanceBetweenCoords3d(x, y, z + 0.5, getCharCoordinates(PLAYER_PED))
                    local pos = imgui.ImVec2(convert3DCoordsToScreen(x, y, z + 0.05 * dist))
                    imgui.DrawQrCode(DL, imgui.ImVec2(pos.x - QRSize / 2, pos.y - QRSize / 2), QRSize, sampGetPlayerNickname(id))
                end
            end
        end
    end
)

Код:

Lua:

local qrencode = require('qrencode')
function imgui.DrawQrCode(DL, pos, size, text)
    local status, result = qrencode.qrcode(text)
    assert(status, result)
    local x, y = pos.x, pos.y
    local pixelSize = size and size / #result or 20
    for columnIndex, pixels in ipairs(result) do
        for rowIndex, v in ipairs(pixels) do
            DL:AddRectFilled(imgui.ImVec2(x, y), imgui.ImVec2(x + pixelSize, y + pixelSize), v > 0 and 0xFF000000 or 0xFFffffff)
            y = y + pixelSize
        end
        x, y = x + pixelSize, pos.y
    end
end

deleted-user-422095 · 13 Фев 2023

chapo написал(а):
assert(status, result)

А чего не pcall? Зачем крашить скрипт?

Lance_Sterling · 17 Фев 2023

Описание: рисует плавный renderFontDrawText из одной точки в другую
Пример использования:

Lua:

sampRegisterChatCommand('wh', function()
    tableOfNew.wallhack.v = not tableOfNew.wallhack.v
    animatedRenderFontDrawText(280, 410, 150, 10, 10, 'Wallhack '..(tableOfNew.wallhack.v and '{00FF00}activated' or '{FF0000}deactivated'), '0xFFFFFF', 0.3, 'Tahoma', 20)
end)

Код:
animatedRenderFontDrawText(int x, int y, int finish, int alpha, int speed, string text, string color(HEX), float delay, string font, int font_size)

Lua:

function animatedRenderFontDrawText(x, y, finish, alpha, speed, text, color, delay, font, font_size)
    lua_thread.create(function()
        local ToScreen = convertGameScreenCoordsToWindowScreenCoords --конвертируем координаты для разных разрешений экрана
        local X, Y = ToScreen(x, y)--получаем координаты с которыми будем работать
        local number, tenths = tostring(delay):match('(%d+).(%d+)') --вычисляем десятые
        font_render = renderCreateFont(font, font_size, FCR_BORDER) --создаем шрифт
        repeat
            renderFontDrawText(font_render, text, X, Y, math.floor(alpha) * 0x1000000 + color) --рисуем текст с указанными параметрами
            wait(0) --добавляем задержку в 1 кадр что бы игра не крашила
            Y = Y - speed --отнимаем скорость у координаты Y что бы переместить текст выше
            alpha = alpha + speed + 5 --прибавляем альфа каналу скорость что бы была анимация появления
        until Y == select(2, ToScreen(x, y))-finish --выполнять код пока Y не достигнет указанных координат
        local t=os.clock() + delay --создаем таймер для отображения текста после окончания цикла repeat
        while t > os.clock() do
            renderFontDrawText(font_render, text, X, Y, math.floor(alpha) * 0x1000000 + color) --рисуем текст с указанными параметрами
            wait(0) --добавляем задержку в 1 кадр что бы игра не крашила
            if tonumber(tenths) ~= 0 and tonumber(number) == 0 then
                alpha = alpha - tenths:gsub('0*', '') --отнимаем у альфы задержку после точки для плавного скрытия рендера
            elseif tonumber(tenths) == 0 and tonumber(number) ~= 0 then
                alpha = alpha - delay --отнимаем у альфы задержку для плавного скрытия рендера
            else
                alpha = alpha - delay --отнимаем у альфы задержку для плавного скрытия рендера
            end
            if alpha <= 0 then break end
        end
    end)
end

ребята не судите строго впервые работаю с анимациями

Не баг, а фича

Andrinall · 18 Фев 2023