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

[FYP]

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

Рекомендации:

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

Удаление копирайтов является нарушением авторских прав, если автор не дал на это своего разрешения. Правила BlastHack запрещают нарушать авторские права, поэтому если вам нужно их убрать - обращайтесь к автору.

 

[KPOLLI]

хотел изменить активацию с команды /crime id на F3 клавишу и чтоб брало ид ближайшего игрока но сломал скрипт и получил новорк. может кто помочь пожалуйста?

 

[Hinаta]

хотел изменить активацию с команды /crime id на F3 клавишу и чтоб брало ид ближайшего игрока но сломал скрипт и получил новорк. может кто помочь пожалуйста?

 

[sanferson]

Помогите подредачить скрипт, он работает, по координатам ходит, но кроме ходьбы мне надо ещё что бы после каждой координаты скрипт нажимал кнопку АЛЬТ(для фермы) 10 раз, с КД в 2 секунд и ещё что бы было аутоматичне получение координат, шоб он не бегал так прям однотипно. Если можете так, сделайте с первой меткой, а я случе остачу сам скопирую и повставляю

 

[KPOLLI]

увы не работает скрипт, при запуске erorr expected end [log]. попробовал еще сам сменить через VKey
нашел на бх урывок кода для выбора ближайшего игрока, вставил по идее куда нужно и записал значение в suspectChar, но увы не работает скрипт.

function getClosestPlayerId()
    local minDist = 9999
    local closestId = -1
    local x, y, z = getCharCoordinates(PLAYER_PED)
    for i = 0, 999 do
        local streamed, pedID = sampGetCharHandleBySampPlayerId(i)
        if streamed then
            local xi, yi, zi = getCharCoordinates(pedID)
            local dist = math.sqrt( (xi - x) ^ 2 + (yi - y) ^ 2 + (zi - z) ^ 2 )
            if dist < minDist then
                minDist = dist
                closestId = i
            end
        end
    end
    return closestId
end

[18:38:41.700604] (error) crimev2.lua: ...AMP ARZ\ARIZONA GAMES\bin\Arizona\moonloader\crimev2.lua:18: 'end' expected (to close 'function' at line 2) near 'suspectChar'
[18:38:41.700604] (error) crimev2.lua: Script died due to an error. (27582A6C)

 

[Hinаta]

'end' expected

пиздец, а как читать

 

[KPOLLI]

пиздец, а как читать
Посмотреть вложение 222943

да я добавлял end но результат 0. в 2 строке даже слов таких нет

 

[Hinаta]

да я добавлял end но результат 0. в 2 строке даже слов таких нет

ты там не только end добавлял. Ты похерил код до такого состояния, что без исходника не разберёшь, что там и как должно выглядеть

Что ты вообще сделать пытался?

 

[plalkeo]

ты там не только end добавлял. Ты похерил код до такого состояния, что без исходника не разберёшь, что там и как должно выглядеть

Что ты вообще сделать пытался?

хотел изменить активацию с команды /crime id на F3 клавишу и чтоб брало ид ближайшего игрока но сломал скрипт и получил новорк. может кто помочь пожалуйста?

 

[Hinаta]

да я добавлял end но результат 0. в 2 строке даже слов таких нет

 

[Shydra]

измените пж мунбот под проект Aries RP вот айпи s1.aries-rp.com:7777
сделайте хотябы что бы спавнился и работал

 

[Neixorzz]

I NEED ACTIVATE/DESACTIVATE THIS SCRIPT WITH THIS COMMAND /rolex, PREFERABLY THAT WHEN ENTERING THE GAME THE SCRIPT IS DEACTIVATED

 

[sanferson]

Помогите подредачить скрипт, он работает, по координатам ходит, но кроме ходьбы мне надо ещё что бы после каждой координаты скрипт нажимал кнопку АЛЬТ(для фермы) 10 раз, с КД в 2 секунд и ещё что бы было аутоматичне получение координат, шоб он не бегал так прям однотипно. Если можете так, сделайте с первой меткой, а я случе остачу сам скопирую и повставляю

Короче нашёл автоальт который подходит даже для мобайла(moonetloader), автор вроде в названии файла написан, или в коде, активация /alt

Можете сделать что бы цыкл был безконечен, то есть, бот прошел все 12 меток, и потом начал заново с первой метки(второй файл)

 

[gallo..]

Здарова парни, нашёл шедевроasp, я бичик и не шарю за коды, но думаю легко сделать сохранение .cfg файла при вводе аргумента
Заранее спасибо, если кто-то сделает

local memory = require 'memory'
script_author('bottom_text')

function main()
    while not isSampAvailable() do wait(100) end 
    memory.fill(0x6FF452, 0x90, 6, true)
    sampRegisterChatCommand('ge', function(arg)       
        arg = tonumber(arg)
        if arg then           
            memory.setfloat(0xC3EFA4, arg, true)
            printString('Aspect Ratio: ' .. arg, 1000)
        end
    end)
    wait(-1)
end

 

[minxty]

Здарова парни, нашёл шедевроasp, я бичик и не шарю за коды, но думаю легко сделать сохранение .cfg файла при вводе аргумента
Заранее спасибо, если кто-то сделает

local memory = require 'memory'
script_author('bottom_text')

function main()
    while not isSampAvailable() do wait(100) end
    memory.fill(0x6FF452, 0x90, 6, true)
    sampRegisterChatCommand('ge', function(arg)      
        arg = tonumber(arg)
        if arg then          
            memory.setfloat(0xC3EFA4, arg, true)
            printString('Aspect Ratio: ' .. arg, 1000)
        end
    end)
    wait(-1)
end

local memory = require 'memory'
local inicfg = require 'inicfg'
local directIni = 'asp.ini'
local cfg = inicfg.load(inicfg.load({
    main = {
        asp = '1'
    },
}, directIni))
inicfg.save(cfg, directIni)
script_author('bottom_text')

function main()
    while not isSampAvailable() do wait(100) end
    memory.fill(0x6FF452, 0x90, 6, true)
    memory.setfloat(0xC3EFA4, cfg.main.asp, true)
    sampRegisterChatCommand('ge', function(arg)
        arg = tonumber(arg)
        if arg then
            cfg.main.asp = arg
            memory.setfloat(0xC3EFA4, arg, true)
            printString('Aspect Ratio: ' .. arg, 1000)
            inicfg.save(cfg, directIni)
        end
    end)
    wait(-1)
end

должно работать

 

[friendly]

Выдаёт ошибку когда пытаюсь скомпилировать код, почему? Нужно чтобы вы отправили скомпилированный код мне, спасибо...

{$CLEO}

repeat
    wait 0
until Samp.Available()

samp register_client_command "123" to_label @PoliceDec

alloc 0@ 60
alloc 2@ 30
render 1@ = create_font "Arial Black" height 10 flags 5

while true
    if 0ADC: test_cheat "="
        then 0B12: 19@ = 19@ XOR 1
            printf "Police Detector ~y~%d" 1500 19@
    end

    if 19@ == 1
        for 31@ = 0 to 2000 /// samp max vehicles
            if 0AFF: 30@ = car_handle_by_samp_vehicle_id 31@
                if and
                    056E: car 30@ defined
                    02CA: car 30@ bounding_sphere_visible
                then
                    if or
                        0137: car 30@ model == 597
                        0137: car 30@ model == 596
                        0137: car 30@ model == 598
                        0137: car 30@ model == 523
                        0137: car 30@ model == 407
                        gosub @hui
                    end
                       
                    if or
                        0137: car 30@ model == 560
                        0137: car 30@ model == 490
                        0137: car 30@ model == 528
                        0137: car 30@ model == 599
                        0137: car 30@ model == 433
                        0137: car 30@ model == 427
                        0137: car 30@ model == 559
                        gosub @hui
                    end
                end
            end
        end
    end
end

:hui
    0407: store_coords_to 29@ 28@ 27@ from_car 30@ with_offset 0.0 0.0 0.0
    if 00C2: sphere_onscreen 29@ 28@ 27@ radius 0.0
        Actor.StorePos($PLAYER_ACTOR, 26@, 25@, 24@)
        0B55: convert_3D_coords 29@ 28@ 27@ to_screen 23@ 22@
        0B55: convert_3D_coords 26@ 25@ 24@ to_screen 21@ 20@
        050A: 9@ = distance_between_XYZ 26@ 25@ 24@ and_XYZ 29@ 28@ 27@
        format 0@ "{0C95EB}Police Car, Distance {FFFFFF}%.1f" 9@
        format 2@ "{FF0F0F}Police is near"
        23@ += 5
        22@ += 7
        0B6F: render font 1@ draw_text 0@ pos 23@ 22@ color 0xFFFFFFFF
        20@ += 60
        0B6F: render font 1@ draw_text 2@ pos 21@ 20@ color 0xFFFFFFFF
    end
return

:PoliceDec
    0B12: 19@ = 19@ XOR 1
    if 19@ == true
        printf "Police Detector ~G~ON" 1300
    else
        printf "Police Detector ~R~OFF" 1300
    end
cmdret