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

FYP

FYP

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

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

Beluga111

Активный
263
57
Есть вот такой скрипт "carinfo.cs" и нужно сделать что бы активация была автоматическая когда садишься в транспорт.
 

Вложения

  • 6. CarInfo (1) (1).zip
    2 KB · Просмотры: 4
W

Winston_77

Новичок
6
0
script_name('autoinv')
script_author('Автор Winston_Soto')
script_description('rfam')
require "lib.moonloader"

function main()
if not isSampLoaded() or not isSampfuncsLoaded() then return end
while not isSampAvailable() do wait(2000) end
sampAddChatMessage('Автор скрипта Winston_Soto',0xFFFF00)
sampAddChatMessage('Активация скрипта /ainv',0xFFFF00)
sampRegisterChatCommand('ainv', ainv)
while true do
wait(0)
end
end

function ainv()
local peds = getAllChars()
for _, v in pairs(peds) do
local result, myid = sampGetPlayerIdByCharHandle(playerPed)
local mx, my, mz = getCharCoordinates(playerPed)
local x, y, z = getCharCoordinates(v)
local distance = getDistanceBetweenCoords3d(mx, my, mz, x, y, z)
local result, id = sampGetPlayerIdByCharHandle(v)
if result and id ~= sampGetPlayerIdByCharHandle(PLAYER_PED) and distance < 12.0 then
if id ~= myid then
sampSendChat('/invite '..tonumber(id))
end
end
end
end

Winston_77 написал(а):
script_name('autoinv')
script_author('Автор Winston_Soto')
script_description('rfam')
require "lib.moonloader"

function main()
if not isSampLoaded() or not isSampfuncsLoaded() then return end
while not isSampAvailable() do wait(2000) end
sampAddChatMessage('Автор скрипта Winston_Soto',0xFFFF00)
sampAddChatMessage('Активация скрипта /ainv',0xFFFF00)
sampRegisterChatCommand('ainv', ainv)
while true do
wait(0)
end
end

function ainv()
local peds = getAllChars()
for _, v in pairs(peds) do
local result, myid = sampGetPlayerIdByCharHandle(playerPed)
local mx, my, mz = getCharCoordinates(playerPed)
local x, y, z = getCharCoordinates(v)
local distance = getDistanceBetweenCoords3d(mx, my, mz, x, y, z)
local result, id = sampGetPlayerIdByCharHandle(v)
if result and id ~= sampGetPlayerIdByCharHandle(PLAYER_PED) and distance < 12.0 then
if id ~= myid then
sampSendChat('/invite '..tonumber(id))
end
end
end
end
Нажмите для раскрытия...
Почему не работает подскажите пж
 
хуега)

хуега)

РП игрок
Модератор
2,568
2,269
Winston_77 написал(а):
script_name('autoinv')
script_author('Автор Winston_Soto')
script_description('rfam')
require "lib.moonloader"

function main()
if not isSampLoaded() or not isSampfuncsLoaded() then return end
while not isSampAvailable() do wait(2000) end
sampAddChatMessage('Автор скрипта Winston_Soto',0xFFFF00)
sampAddChatMessage('Активация скрипта /ainv',0xFFFF00)
sampRegisterChatCommand('ainv', ainv)
while true do
wait(0)
end
end

function ainv()
local peds = getAllChars()
for _, v in pairs(peds) do
local result, myid = sampGetPlayerIdByCharHandle(playerPed)
local mx, my, mz = getCharCoordinates(playerPed)
local x, y, z = getCharCoordinates(v)
local distance = getDistanceBetweenCoords3d(mx, my, mz, x, y, z)
local result, id = sampGetPlayerIdByCharHandle(v)
if result and id ~= sampGetPlayerIdByCharHandle(PLAYER_PED) and distance < 12.0 then
if id ~= myid then
sampSendChat('/invite '..tonumber(id))
end
end
end
end


Почему не работает подскажите пж
Нажмите для раскрытия...
попробуй
Lua: 
script_name('autoinv')
script_author('Автор Winston_Soto')
script_description('rfam')
require "lib.moonloader"

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(2000) end
    sampAddChatMessage('Автор скрипта Winston_Soto', 0xFFFF00)
    sampAddChatMessage('Активация скрипта /ainv', 0xFFFF00)
    sampRegisterChatCommand('ainv', ainv)
    wait(-1)
end

function ainv()
    local peds = getAllChars()
    for _, v in pairs(peds) do
        local result, myid = sampGetPlayerIdByCharHandle(PLAYER_PED)
        if result then
            local mx, my, mz = getCharCoordinates(PLAYER_PED)
            local x, y, z = getCharCoordinates(v)
            local distance = getDistanceBetweenCoords3d(mx, my, mz, x, y, z)
            local result, id = sampGetPlayerIdByCharHandle(v)
            if result then
                if distance < 12.0 then
                    if id ~= myid then
                        sampSendChat('/invite ' .. tostring(id))
                    end
                end               
            end
        end
    end
end
 
W

Winston_77

Новичок
6
0
why ega написал(а):
попробуй
Lua: 
script_name('autoinv')
script_author('Автор Winston_Soto')
script_description('rfam')
require "lib.moonloader"

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(2000) end
    sampAddChatMessage('Автор скрипта Winston_Soto', 0xFFFF00)
    sampAddChatMessage('Активация скрипта /ainv', 0xFFFF00)
    sampRegisterChatCommand('ainv', ainv)
    wait(-1)
end

function ainv()
    local peds = getAllChars()
    for _, v in pairs(peds) do
        local result, myid = sampGetPlayerIdByCharHandle(PLAYER_PED)
        if result then
            local mx, my, mz = getCharCoordinates(PLAYER_PED)
            local x, y, z = getCharCoordinates(v)
            local distance = getDistanceBetweenCoords3d(mx, my, mz, x, y, z)
            local result, id = sampGetPlayerIdByCharHandle(v)
            if result then
                if distance < 12.0 then
                    if id ~= myid then
                        sampSendChat('/invite ' .. tostring(id))
                    end
                end              
            end
        end
    end
end
Нажмите для раскрытия...
Не робит
 
976h

976h

Участник
92
34
Winston_77 написал(а):
Не робит
Нажмите для раскрытия...
Возможно ты не правильно пользуешся им. Скрипт работает

Anofrix написал(а):
Помогите, Позязя!
В скрипте, который я скинул. Когда активируешь скрипт, кнопки "Лево" "Право" Перестают работать. и поворачивать колеса можно только "A" и "D"
Ну, вообщем мне нужно, что бы когда скрипт активирован, работали еще и "Лево" "Право"

Активация скрипта: alt+j
Нажмите для раскрытия...
Lua: 
local memory =    require"memory"
local KEY =        require"lib.vkeys"
local Vector =    require"lib.vector3d"
local Enabled = false
local TurnAddress = 7003425
local Bytes3 = {137, 142, 148, 4, 0 ,0}
local NOP = 144
local TurnRate = math.rad(2.3)
local Turn = 0
local ElapsedTime = os.clock()
local KeyHeld = false
local MaxTurn = 0.7
local MaxAngle = math.deg(1.8)
local MaxAngleRad = math.rad(MaxAngle)
local SteerMult = 0.852
--local SteerMult = 1
--local SteerMult = 0.5

function GetCarVelocity(vehicle)
    local x = memory.getfloat(getCarPointer(vehicle)+68,true)
    local y = memory.getfloat(getCarPointer(vehicle)+72,true)
    local z = memory.getfloat(getCarPointer(vehicle)+76,true)
    return x,y,z
end

function PatchTurning(bool)
    if bool then
        for i = 1,6 do
            memory.setint8(TurnAddress+i, NOP,true)
        end
        else
        for i = 1,6 do
            memory.setint8(TurnAddress+i, Bytes3[i],true)
        end
    end
    print("CounterSteering: "..tostring(Enabled))
end

function GetVehicleRotation(vehicle)
    local qx, qy, qz, qw = getVehicleQuaternion(vehicle)
    rx = math.asin(2*qy*qz-2*qx*qw)
    ry = -math.atan2(qx*qz+qy*qw,0.5-qx*qx-qy*qy)
    rz = -math.atan2(qx*qy+qz*qw,0.5-qx*qx-qz*qz)
    return rx,ry,rz
end

function getDistance(x1,y1,z1,x2,y2,z2)
    return math.sqrt((x1 - x2)*(x1 - x2) + (y1 - y2)*(y1 - y2) + (z1 - z2)*(z1 - z2))
end

function normalizeAngle(angle)
    local newAngle = angle
    while (newAngle <= -180) do newAngle = newAngle + 360 end
    while (newAngle > 180) do newAngle = newAngle - 360 end
    return newAngle
end

function CalcAngle(src, dst)
    angles = Vector(0,0,0)
    angles.x = (-math.atan2(dst.x - src.x, dst.y - src.y)) / math.pi * 180.0 + 90.0
    angles.y = (-math.atan2(dst.z - src.z, getDistance(src.x, src.y, src.z, dst.x, dst.y, dst.z))) * 180.0 / math.pi
    angles.z = 0.0
    return angles
end

function Lerp( delta, from, to )
    if ( delta > 1 ) then return to end
    if ( delta < 0 ) then return from end
    return from + ( to - from ) * delta
end


function main()
    while not isSampAvailable() or not isOpcodesAvailable() or not isSampfuncsLoaded() do wait(100) end
    while true do
        wait(5)
        if Enabled then
            if isCharInAnyCar(PLAYER_PED) then
                local MyCar = storeCarCharIsInNoSave(PLAYER_PED)
                local p1 = Vector(getCarCoordinates(MyCar))
                local vel = Vector(GetCarVelocity(MyCar))
                local A2 = CalcAngle(p1,p1-vel)
                local Rot = Vector(GetVehicleRotation(MyCar))
                local AimAng = normalizeAngle(A2.x-normalizeAngle(-90-math.deg(Rot.z)))
                local MovingAngleVelocity = math.abs(AimAng)
                local WheelAngleAdress = getCarPointer(MyCar)+1172
                
                AimAng = math.rad(AimAng)
                AimAng = AimAng * SteerMult
                
                KeyHeld = false
                if (isKeyDown(KEY.VK_A) or isKeyDown(KEY.VK_LEFT)) and not sampIsChatInputActive() then
                    if Turn + TurnRate > MaxTurn then
                        Turn = MaxTurn
                    else
                        Turn = Turn + TurnRate
                    end
                    KeyHeld = true
                end
                if (isKeyDown(KEY.VK_D) or isKeyDown(KEY.VK_RIGHT)) and not sampIsChatInputActive() then
                    if Turn - TurnRate < -MaxTurn then
                        Turn = -MaxTurn
                    else
                        Turn = Turn - TurnRate
                    end
                    KeyHeld = true
                end               
                if not KeyHeld then
                    Turn = Lerp(0.12,Turn,0)
                end
                AimAng = AimAng + Turn
                
                if AimAng > MaxAngleRad then AimAng = MaxAngleRad end
                if AimAng < -MaxAngleRad then AimAng = -MaxAngleRad end
                
                if math.abs(vel:length()) > 0.05 and MovingAngleVelocity < MaxAngle then
                    memory.setfloat(WheelAngleAdress, AimAng, true)
                    else
                    memory.setfloat(WheelAngleAdress, Turn, true)
                    
                end
            end
        end
        if isKeyDown(KEY.VK_MENU) and wasKeyPressed(KEY.VK_J) and not sampIsChatInputActive() then
            Enabled = not Enabled
            PatchTurning(Enabled)
        end
    end
end
 
Последнее редактирование:
xMercy

xMercy

Известный
147
116
Есть ли возможность добавить или изменить любой из ip на: 80.66.82.82:7777
 

Вложения

  • cottonlinenbot-Cracked.luac
    46.2 KB · Просмотры: 6
glowinq

glowinq

Новичок
8
5
Зажимаешь B и оно наводит, мне нужно заменить на клавишу R
 

Вложения

  • SNIPER AIMBOT 0.1 by p1cador (3).cs
    20.8 KB · Просмотры: 9
S

Scott_Cooper

Новичок
1
0
Добрый день. Можете пожалуйста заменить стрельбу на данном клео скрипте из М4 на Миниган. Скрипт для модельки самолета
 

Вложения

  • Al_Planes_1.1.cs
    31.1 KB · Просмотры: 5
Modnik

Modnik

Новичок
4
0
сменить активацию на VK_XBUTTON2
 

Вложения

  • autoshotshift.lua
    1.2 KB · Просмотры: 10
D

Do Anal

Новичок
10
0
может поможет кто, нужно чтобы координаты бот получал не с сайта, а с координат, которые будут в самом коде (т.к. сайт не работает, то и бот сам не работает)
 

Вложения

  • [Ww] HeliKladChecker.lua
    15.6 KB · Просмотры: 8
H

Hylate

Новичок
11
1
Привет, скрипт не может законектиьтся на сервак, и начать работу, кому не сложно почините пожалуйста )
 

Вложения

  • roulette.lua
    7 KB · Просмотры: 7
  • Эм
Реакции: YarikVL
YarikVL

YarikVL

Известный
Проверенный
4,796
1,813
Hylate написал(а):
Привет, скрипт не может законектиьтся на сервак, и начать работу, кому не сложно почините пожалуйста )
Нажмите для раскрытия...
Ты видимо сохранил в кодировке UTF8 поэтому этот файл не будет работать ( так как кириллица сохранилась как иероглифы, а в скрипте есть поиск в чате русских слов )

И «почините скрипт чота не работает» это не для раздела помощь в изменении скриптов, тебе сюда:
www.blast.hk

Работа и услуги

www.blast.hk www.blast.hk
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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