Помощь в изменении скриптов

FYP

FYP

Известный
Автор темы
Администратор
1,761
5,844
Здесь вы можете попросить других пользователей внести какие-то небольшие изменения в скрипт, например, изменить активацию.
Для вопросов по программированию и разработке на форуме есть отдельная категория Разработка.

Рекомендации:
  1. Не просите о редактировании .asi, .sf, .luac, .dll, .exe и прочих файлов, не поддающихся простой декомпиляции. Скрипты формата .ahk (AutoHotKey), .lua (Lua/MoonLoader) и .cs (CLEO) легко поддаются изменению.
  2. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и скорее всего будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
  3. За злонамеренное распространение вредоносного ПО - перманентный бан. Имейте это в виду.
Удаление копирайтов является нарушением авторских прав, если автор не дал на это своего разрешения. Правила BlastHack запрещают нарушать авторские права, поэтому если вам нужно их убрать - обращайтесь к автору.
 
Последнее редактирование:
  • Нравится
  • Влюблен
  • Клоун
Реакции: Almighty$, AlbertPP, minxty и 22 других
Bluskkk

Bluskkk

Новичок
9
0
Вы можете добавить активацию и деактивацию, пожалуйста, друг, с помощью команды /oni
 

Вложения

  • pls.lua
    418 байт · Просмотры: 6
Almighty$

Almighty$

Новичок
2
0
Кто заставляет его работать на Andr
BiXZPgJxQj5QS6Kzdl58SOQGSbE-Y_71Vc55BhHThAuAI-NSS2x9ACGCTe26NDSq1cJVDXGlpMm6g8Y_HTvopXnN.jpg
oid?
 

Вложения

  • morph.zip
    201.2 KB · Просмотры: 0
rodion2122

rodion2122

Новичок
5
0
Я играл на сборке с геймтвейером и там был встрооенный сенсфикс ,перешл на другую сборка и сенса отличчается ,геймтвейкер утсанавливать на новую сборку не хочу ,можете вытащить сенсфикс из геймтвейкера ?
 

Вложения

  • GameTweaker.ini
    8.4 KB · Просмотры: 0
  • GAMETWEAKER.lua
    552.4 KB · Просмотры: 1
Bluskkk

Bluskkk

Новичок
9
0
Можете ли вы добавить активацию и деактивацию? с помощью команды /anim
Я просто не знаю, как это сделать...
 

Вложения

  • pls (1).lua
    418 байт · Просмотры: 1
Oak

Oak

Известный
369
143
rodion2122 написал(а):
Я играл на сборке с геймтвейером и там был встрооенный сенсфикс ,перешл на другую сборка и сенса отличчается ,геймтвейкер утсанавливать на новую сборку не хочу ,можете вытащить сенсфикс из геймтвейкера ?
Нажмите для раскрытия...
Должно быть, это
 

Вложения

  • sfix.lua
    407 байт · Просмотры: 5
Bluskkk

Bluskkk

Новичок
9
0
Это респаун-машина, но когда я ввожу команду, она не работает, не мог бы ты мне помочь, брат? ):
 

Вложения

  • respawncar.lua
    582 байт · Просмотры: 1
Oak

Oak

Известный
369
143
Bluskkk написал(а):
Это респаун-машина, но когда я ввожу команду, она не работает, не мог бы ты мне помочь, брат? ):
Нажмите для раскрытия...
Вот тебе рабочий код, однако цикл будет флудить каждую секунду спавном машин. Для того, чтобы это убрать, тебе в код нужно добавить массив (таблицу), куда ты вручную или твой автоматизированный скрипт будет записывать нужные машины твоих жертв.
Lua: 
script_name('RewpawnVeh')
script_author('Naito')
function main()
    while not isSampAvailable() do wait(50) end
    sampRegisterChatCommand("respawn", function()
        active = not active
        printStringNow("estado " ..(active and "~g~ACTIVADO" or "~r~DESACTIVADO"), 1500)
    end)
    while true do wait(1000)
        if active then
            for k, v in pairs(getAllVehicles()) do
                local _, id = sampGetVehicleIdByCarHandle(v)
                if _ then
                        sampSendVehicleDestroyed(id)
                        printStringNow("removed id: "..id, 100)
                end
            end
        end
    end
end
 
  • Нравится
Реакции: Bluskkk
Bluskkk

Bluskkk

Новичок
9
0
Oak написал(а):
Вот тебе рабочий код, однако цикл будет флудить каждую секунду спавном машин. Для того, чтобы это убрать, тебе в код нужно добавить массив (таблицу), куда ты вручную или твой автоматизированный скрипт будет записывать нужные машины твоих жертв.
Lua: 
script_name('RewpawnVeh')
script_author('Naito')
function main()
    while not isSampAvailable() do wait(50) end
    sampRegisterChatCommand("respawn", function()
        active = not active
        printStringNow("estado " ..(active and "~g~ACTIVADO" or "~r~DESACTIVADO"), 1500)
    end)
    while true do wait(1000)
        if active then
            for k, v in pairs(getAllVehicles()) do
                local _, id = sampGetVehicleIdByCarHandle(v)
                if _ then
                        sampSendVehicleDestroyed(id)
                        printStringNow("removed id: "..id, 100)
                end
            end
        end
    end
end
Нажмите для раскрытия...
Ооо, я понимаю, спасибо, что научил меня, брат
 
D

dddfdddsdfgsd

Новичок
17
1
Сокiл написал(а):
Держи, /3drend


Lua: 
local imgui = require("imgui")
local sampeb = require('lib.samp.events')
local encoding = require 'encoding'
encoding.default = 'CP1251'
u8 = encoding.UTF8

local window = imgui.ImBool(false)
local onall = imgui.ImBool(false)
local rendtall = imgui.ImBool(false)

local triggers = {}
for i = 1, 20 do
    triggers[i] = {
        text = imgui.ImBuffer(u8'', 256),
        render = imgui.ImBool(false),
        tracer = imgui.ImBool(false)
    }
end

local font = renderCreateFont("Arial", 10, 14)
local inicfg = require 'inicfg'

function main()
    while not isSampAvailable() do wait(200) end
    sampRegisterChatCommand('3drend', cmd)
    imgui.Process = false
    window.v = false

    while true do
        wait(0)
        for id = 0, 2048 do
            local result = sampIs3dTextDefined(id)
            if result then
                local text, color, posX, posY, posZ, distance, ignoreWalls, playerId, vehicleId = sampGet3dTextInfoById(id)
               
                if onall.v then
                    renderText(text, posX, posY, posZ)
                else
                    for i = 1, 20 do
                        if text:find(u8:decode(triggers[i].text.v)) and triggers[i].render.v then
                            renderText(text, posX, posY, posZ)
                        end
                    end
                end
               
                if rendtall.v then
                    renderTracer(posX, posY, posZ)
                else
                    for i = 1, 20 do
                        if text:find(u8:decode(triggers[i].text.v)) and triggers[i].tracer.v then
                            renderTracer(posX, posY, posZ)
                        end
                    end
                end
            end
        end
        imgui.Process = window.v
    end
end

function renderText(text, posX, posY, posZ)
    local wposX, wposY = convert3DCoordsToScreen(posX, posY, posZ)
    local resX, resY = getScreenResolution()
    if wposX < resX and wposY < resY and isPointOnScreen(posX, posY, posZ, 1) then
        renderFontDrawText(font, text, wposX, wposY, -1)
    end
end

function renderTracer(posX, posY, posZ)
    if isPointOnScreen(posX, posY, posZ, 1) then
        local wposX, wposY = convert3DCoordsToScreen(posX, posY, posZ)
        local x2, y2, z2 = getCharCoordinates(PLAYER_PED)
        local x10, y10 = convert3DCoordsToScreen(x2, y2, z2)
        renderDrawLine(x10, y10, wposX, wposY, 2.0, 0xFFD00000)
    end
end



function imgui.OnDrawFrame()
    if window.v then
        imgui.SetNextWindowPos(imgui.ImVec2(430.0, 250.0), imgui.Cond.FirstUseEver)
        imgui.SetNextWindowSize(imgui.ImVec2(280.0, 300.0), imgui.Cond.FirstUseEver)
        imgui.Begin(u8'Рендер на 3д тексты', window)
        if imgui.Button(u8'Триггеры') then
            tab1 = true
            tab2 = false
            tab3 = false
        end
        imgui.SameLine(96, 0)
        if imgui.Button(u8'Трейсеры') then
            tab2 = true
            tab1 = false
            tab3 = false
        end
        imgui.Separator()

        if tab1 then
            if imgui.Checkbox(u8'Срабатывать на все', onall) then end
            if not onall.v then
                for i = 1, 20 do
                    imgui.NewInputText('##' .. i, triggers[i].text, 210, u8'Вводите триггер сюда', 2)
                    imgui.SameLine(232, 0)
                    imgui.Checkbox('##' .. i .. 'chck', triggers[i].render)
                end
            end
        end

        if tab2 then
            imgui.Checkbox(u8'Трейсер на всё', rendtall)
            for i = 1, 20 do
                local triggerText = triggers[i].text.v == '' and u8('Трейсер на триггер ' .. i) or (u8'Трейсер на ' .. triggers[i].text.v)
                imgui.Checkbox(triggerText, triggers[i].tracer)
            end
        end

        imgui.End()
    end
end

function cmd()
    window.v = not window.v
end

function imgui.NewInputText(label, val, width, hint, hintpos)
    local hint = hint or ''
    local hintpos = tonumber(hintpos) or 1
    local cPos = imgui.GetCursorPos()
    imgui.PushItemWidth(width)
    local result = imgui.InputText(label, val)
    if #val.v == 0 then
        local hintSize = imgui.CalcTextSize(hint)
        if hintpos == 2 then
            imgui.SameLine(cPos.x + (width - hintSize.x) / 2)
        elseif hintpos == 3 then
            imgui.SameLine(cPos.x + (width - hintSize.x - 5))
        else
            imgui.SameLine(cPos.x + 5)
        end
        imgui.TextColored(imgui.ImVec4(1.00, 1.00, 1.00, 0.40), tostring(hint))
    end
    imgui.PopItemWidth()
    return result
end


































function cmd()
    window.v = not window.v
end

function imgui.NewInputText(lable, val, width, hint, hintpos)
    local hint = hint and hint or ''
    local hintpos = tonumber(hintpos) and tonumber(hintpos) or 1
    local cPos = imgui.GetCursorPos()
    imgui.PushItemWidth(width)
    local result = imgui.InputText(lable, val)
    if #val.v == 0 then
        local hintSize = imgui.CalcTextSize(hint)
        if hintpos == 2 then imgui.SameLine(cPos.x + (width - hintSize.x) / 2)
        elseif hintpos == 3 then imgui.SameLine(cPos.x + (width - hintSize.x - 5))
        else imgui.SameLine(cPos.x + 5) end
        imgui.TextColored(imgui.ImVec4(1.00, 1.00, 1.00, 0.40), tostring(hint))
    end
    imgui.PopItemWidth()
    return result
end

function apply_custom_style()
    imgui.SwitchContext()
    local style = imgui.GetStyle()
    local colors = style.Colors
    local clr = imgui.Col
    local ImVec4 = imgui.ImVec4
    local ImVec2 = imgui.ImVec2

    style.WindowPadding = ImVec2(15, 15)
    style.WindowRounding = 5.0
    style.FramePadding = ImVec2(5, 5)
    style.FrameRounding = 4.0
    style.ItemSpacing = ImVec2(12, 8)
    style.ItemInnerSpacing = ImVec2(8, 6)
    style.IndentSpacing = 25.0
    style.ScrollbarSize = 15.0
    style.ScrollbarRounding = 9.0
    style.GrabMinSize = 5.0
    style.GrabRounding = 3.0

    colors[clr.Text] = ImVec4(0.80, 0.80, 0.83, 1.00)
    colors[clr.TextDisabled] = ImVec4(0.24, 0.23, 0.29, 1.00)
    colors[clr.WindowBg] = ImVec4(0.06, 0.05, 0.07, 1.00)
    colors[clr.ChildWindowBg] = ImVec4(0.07, 0.07, 0.09, 1.00)
    colors[clr.PopupBg] = ImVec4(0.07, 0.07, 0.09, 1.00)
    colors[clr.Border] = ImVec4(0.80, 0.80, 0.83, 0.88)
    colors[clr.BorderShadow] = ImVec4(0.92, 0.91, 0.88, 0.00)
    colors[clr.FrameBg] = ImVec4(0.10, 0.09, 0.12, 1.00)
    colors[clr.FrameBgHovered] = ImVec4(0.24, 0.23, 0.29, 1.00)
    colors[clr.FrameBgActive] = ImVec4(0.56, 0.56, 0.58, 1.00)
    colors[clr.TitleBg] = ImVec4(0.10, 0.09, 0.12, 1.00)
    colors[clr.TitleBgCollapsed] = ImVec4(1.00, 0.98, 0.95, 0.75)
    colors[clr.TitleBgActive] = ImVec4(0.07, 0.07, 0.09, 1.00)
    colors[clr.MenuBarBg] = ImVec4(0.10, 0.09, 0.12, 1.00)
    colors[clr.ScrollbarBg] = ImVec4(0.10, 0.09, 0.12, 1.00)
    colors[clr.ScrollbarGrab] = ImVec4(0.80, 0.80, 0.83, 0.31)
    colors[clr.ScrollbarGrabHovered] = ImVec4(0.56, 0.56, 0.58, 1.00)
    colors[clr.ScrollbarGrabActive] = ImVec4(0.06, 0.05, 0.07, 1.00)
    colors[clr.ComboBg] = ImVec4(0.19, 0.18, 0.21, 1.00)
    colors[clr.CheckMark] = ImVec4(0.80, 0.80, 0.83, 0.31)
    colors[clr.SliderGrab] = ImVec4(0.80, 0.80, 0.83, 0.31)
    colors[clr.SliderGrabActive] = ImVec4(0.06, 0.05, 0.07, 1.00)
    colors[clr.Button] = ImVec4(0.10, 0.09, 0.12, 1.00)
    colors[clr.ButtonHovered] = ImVec4(0.24, 0.23, 0.29, 1.00)
    colors[clr.ButtonActive] = ImVec4(0.56, 0.56, 0.58, 1.00)
    colors[clr.Header] = ImVec4(0.10, 0.09, 0.12, 1.00)
    colors[clr.HeaderHovered] = ImVec4(0.56, 0.56, 0.58, 1.00)
    colors[clr.HeaderActive] = ImVec4(0.06, 0.05, 0.07, 1.00)
    colors[clr.ResizeGrip] = ImVec4(0.00, 0.00, 0.00, 0.00)
    colors[clr.ResizeGripHovered] = ImVec4(0.56, 0.56, 0.58, 1.00)
    colors[clr.ResizeGripActive] = ImVec4(0.06, 0.05, 0.07, 1.00)
    colors[clr.CloseButton] = ImVec4(0.40, 0.39, 0.38, 0.16)
    colors[clr.CloseButtonHovered] = ImVec4(0.40, 0.39, 0.38, 0.39)
    colors[clr.CloseButtonActive] = ImVec4(0.40, 0.39, 0.38, 1.00)
    colors[clr.PlotLines] = ImVec4(0.40, 0.39, 0.38, 0.63)
    colors[clr.PlotLinesHovered] = ImVec4(0.25, 1.00, 0.00, 1.00)
    colors[clr.PlotHistogram] = ImVec4(0.40, 0.39, 0.38, 0.63)
    colors[clr.PlotHistogramHovered] = ImVec4(0.25, 1.00, 0.00, 1.00)
    colors[clr.TextSelectedBg] = ImVec4(0.25, 1.00, 0.00, 0.43)
    colors[clr.ModalWindowDarkening] = ImVec4(1.00, 0.98, 0.95, 0.73)
end
apply_custom_style()
Нажмите для раскрытия...
спасибо, только теперь текст написан хуй пойми на каком языке, и если можешь, то расширь до слоты до 50
 
Bluskkk

Bluskkk

Новичок
9
0
Что делать, когда mimgui достигает предела функции? как добавить больше функций и флажок? Есть ли какая-нибудь тема по этому поводу?
 
M

menyounow

Новичок
1
0
Мужики молю помогите, надо сделать так, чтобы этот FAKE INSERT работал и в TAB ( на лаунчере арз из-за нового чата сделали пробив инсёрта через таб, а фейк инсёрт не работает в табе ). Ниже код fake insert от @chapo


Lua: 
script_name('imgui_notf')
script_author('chapo', 'armor')
require('lib.moonloader')
local ffi = require('ffi')
local memory = require('memory')
local pInput = nil
local versions = {
    r1 = 0x21A0E8,
    r2 = 0x21A0F0,
    r3 = 0x26E8CC,
    r4 = 0x26E9FC
}


function get_samp_version()
    if samp_base == nil or samp_base == 0 then samp_base = getModuleHandle("samp.dll") end
    if samp_base ~= 0 then
        local entry_point_addr = ffi.cast("unsigned int*", samp_base + ffi.cast("long*", samp_base + 60)[0] + 40)[0]
        local versions = {
            [0x31DF13] = 'r1',
            [0x3195DD] = 'r2',
            [0xCC4D0] = 'r3',
            [0xCBCB0] = 'r4',
            [0xFDB60] = 'DL'
        }
        return versions[entry_point_addr] or 'unknown'
    end
end

addEventHandler('onWindowMessage', function(msg, key)
    if msg == 0x0100 and isSampAvailable() and sampIsChatInputActive() then
        if key == VK_OEM_PLUS and isKeyDown(VK_CONTROL) then
            if pInput == nil then
                local ver = get_samp_version()
                assert(versions[ver], 'Unsupported SA-MP version!')
                pInput = versions[ver]
            end
            switchInsertMode()
        end
    end
end)

function isInsertActive()
    return memory.getint8(memory.getuint32(memory.getuint32(getModuleHandle("samp.dll") + pInput, true) + 0x8, true) + 0x11D, true) == 1
end

function switchInsertMode()
    memory.setint8(memory.getuint32(memory.getuint32(getModuleHandle("samp.dll") + pInput, true) + 0x8, true) + 0x11D, isInsertActive() and 0 or 1, true)
end
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. Carlos777
    Исходник Гайд Изменяем скомпилированные луа-скрипты
      • Нравится
    Ответы
    4
    Просмотры
    5K
    Lua
    MrCreepTon
    MrCreepTon
  2. chapo
    • Закрыта
    • Вопрос
      Помогите дауну в изменении цлео скриптов
      • Нравится
    Ответы
    1
    Просмотры
    875
    Помощь
    enrique newskii
    E
  3. samperskiy
    • Решено
    Помощь в изменении скриптов
      • Bug
    Ответы
    4
    Просмотры
    878
    Помощь
    YarikVL
    YarikVL
  4. Use[R]
    Заказ Фикс клео снегопада
    Ответы
    0
    Просмотры
    489
    Работа и услуги
    Use[R]
    Use[R]
  5. Lumonton
    • Вопрос
    Помощь в изменении скриптов
    Ответы
    16
    Просмотры
    1K
    Помощь
    BakiHanma1
    B
Сверху Снизу