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

FYP · 14 Авг 2017

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

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

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

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

harryys · 11 Авг 2023

данный клео CamHeli отвечает за управление камерой в вертолете, мне нужно заменить клавиши управления
num 5 - активация самой камеры - заменить на клавишу U
num 4 - закрепить камеру на авто - заменить на клавишу I
num 6 - зум камеры - заменить на клавишу O
num 7 - переключить камеру в режим ночного видения; тепловизора; обычный режим - заменить на клавишу P
скрипт файлом скину ниже

D3.Pheonix · 12 Авг 2023

harryys написал(а):
данный клео CamHeli отвечает за управление камерой в вертолете, мне нужно заменить клавиши управления
num 5 - активация самой камеры - заменить на клавишу U
num 4 - закрепить камеру на авто - заменить на клавишу I
num 6 - зум камеры - заменить на клавишу O
num 7 - переключить камеру в режим ночного видения; тепловизора; обычный режим - заменить на клавишу P
скрипт файлом скину ниже

прикрутил еще конфиг файл (появится после запуска), сможешь сам менять. Номера клавиш здесь

bumble. · 14 Авг 2023

Пожалуйста, сделайте так, чтобы показывал ещё LVL игрока.

deleted-user-222200 · 14 Авг 2023

@ikabanov2021 написал(а):
Попробовал написать обычный скрипт, но никак немогу сохранить, не понимаю в чем проблема. Помогите пожалуйста, скиньте пожалуйста этот скрипт в формате клэо.

"[email protected]" замени на локальные переменные от 0@ до 32@ либо присвой переменным в этом диапазоне константное название

const
название = значение
end

На правильность написания и работы остальных блоков кода скрипт не проверялся

bumble. · 16 Авг 2023

Изменить активацию и деактивацию с c+1 и c+2 на num5 и num6

painw · 16 Авг 2023

Takeshik написал(а):
Изменить активацию и деактивацию с c+1 и c+2 на num5 и num6

Dimoontopgg · 18 Авг 2023

Здравствуйте, сейчас включение отключение флудера происходит по тублеру (включить выключить в главном меню)
Сделайте пожалуйста чтобы включение выключение происходило по кнопке Num 7
Заранее спасибо.

MohamedZoka · 18 Авг 2023

Долгое время пользовался cleo HeadshotAimbot, который активируется на Alt+1, там ещё можно врубать прицеливание по разным костям и тд
Столкнулся с такой проблемой - как только включаю аим и нажимаю пкм - прицел уводится вниз, буквально в пол и ничего с этим поделать не могу
у кента стоит тот же аимбот, работает нормально, без каких-либо проблем, да и у меня он ранее нормально летал
есть у кого-то мб советы по решению этого момента? буду благодарен

ПAXAH · 24 Авг 2023

Всех приветствую, хотелось бы сменить активацию скрипта с чит-кода "CHH" на команду в чат /chh.
Заранее спасибо!

abobus10 · 25 Авг 2023

Пытаюсь создать бота фермера для самп рп, есть такой код. Он для работы фермера до обновления, когда были красные маркеры. Сейчас их нет. Не получается сделать так, чтобы персонаж шел не на красный маркер, а просто отходил от пикапа, нажимал Alt и после сбора урожая относил к пикапу

код:

{$CLEO}
0661: NOP "FermaBot by BoPoH"
0661: NOP "Хотя, всё равно кто-нибудь обязательно исправит копирайты :D"
0661: NOP "Исходник прилагается, правьте, сколько влезет"

20@ = 1 // флаг первого поиска жёлтого маркера

while not player.Defined($PLAYER_CHAR)
wait 0
end

:Start
while true
wait 0
    if and
    0AB0: 66 // B
    0AB0: 90 // Z
    not actor.Driving($PLAYER_ACTOR)
    then
        20@ = 1
        while 0AB0: 90 // Ждём пока игрок отпустит кнопку Z
        wait 0
        end
        0AD1: show_formatted_text_highpriority "FermaBot by BoPoH is activated!~n~Searching for yellow pickup..." time 2000
        // Ищем жёлтый пикап
        // На самом деле это объект с id 861
  
        :StartSearching // Не люблю использовать метки, но тут без них тяжело будет
        while true  // Будем искать пикап каждый игровой цикл
            actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
            0AB1: @GetNearestObjectWithModel 3 pos 0@ 1@ model 861 handle 3@
          
            if
            03CA:   object 3@ exists
            then
                0AD1: show_formatted_text_highpriority "Yellow pickup found!" time 2000
                break
            end
          
            if
            gosub @CheckIfTurnOff
            then
                jump @Start
            end
          
            if
            actor.Driving($PLAYER_ACTOR)
            then
                0AB1: @EnableActorsCollision 0     
                0687: clear_actor $PLAYER_ACTOR task
                0AD1: show_formatted_text_highpriority "FermaBot by BoPoH is deactivated!" time 2000
                jump @Start
            end
            wait 0
        end
      
        // Итак, если мы вышли из цикла, значит объект найден
        // Отправим игрока туда
        object.StorePos(3@, 0@, 1@, 2@)
        0687: clear_actor $PLAYER_ACTOR task
        wait 0
        if
        80ED:   not actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 0.5 0.5 on_foot
        then
            05D3: AS_actor $PLAYER_ACTOR goto_point 0@ 1@ 2@ mode 7 -2 ms
            wait 100
        end
        32@ = 0
        while 80ED:   not actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 0.5 0.5 on_foot         // бежим к жёлтому маркеру
            wait 0 // Ждём, пока игрок добежит до места назначения
            0AD1: show_formatted_text_highpriority "We are going to yellow pickup" time 2000
            0AB1: @HasActorGoToTask 1 actor $PLAYER_ACTOR get_to 10@
            //0AD1: show_formatted_text_highpriority "%d" time 2000 10@
            if
            10@ == 0
            then
                05D3: AS_actor $PLAYER_ACTOR goto_point 0@ 1@ 2@ mode 7 -2 ms
            else
                0A8C: write_memory 0xB7345A size 2 value -128 virtual_protect 0 // Эмулируем нажатие клавиши W, чтобы другим был виден бег
            end
            0AB1: @DisableActorsCollision 0
          
            if
            gosub @CheckIfTurnOff
            then
                jump @Start
            end
          
            if
            32@ > 50000
            then
                break
            end
          
            if and  // если поиск не первый, то пробежка до маркера не займёт больше 5 секунд
            20@ == 0
            32@ > 5000
            then
                jump @SearchYellowMarker2
            end
        end
        20@ = 0
      
        :SearchMarker   // ищем красный маркер
        32@ = 0 
        33@ = 0
        while true
            0AB1: @DisableActorsCollision 0
            0AB1: @GetNearestMarker 2 pos 0@ 1@ get_pos 4@ 5@ id 6@
            if
            not 6@ == -1
            then
                0687: clear_actor $PLAYER_ACTOR task
                wait 0
                if
                80ED:   not actor $PLAYER_ACTOR 0 near_point 4@ 5@ radius 1.0 1.0 on_foot
                then
                    05D3: AS_actor $PLAYER_ACTOR goto_point 4@ 5@ 2@ mode 7 -2 ms
                    wait 100
                end
                while 80ED:   not actor $PLAYER_ACTOR 0 near_point 4@ 5@ radius 2.0 2.0 on_foot
                    wait 0 // Ждём, пока игрок добежит до места назначения
                    0AD1: show_formatted_text_highpriority "We are going to red marker" time 2000
                    0AB1: @HasActorGoToTask 1 actor $PLAYER_ACTOR get_to 10@
                    //0AD1: show_formatted_text_highpriority "%d" time 2000 10@
                    if
                    10@ == 0
                    then
                        05D3: AS_actor $PLAYER_ACTOR goto_point 4@ 5@ 2@ mode 7 -2 ms
                    else
                        0A8C: write_memory 0xB7345A size 2 value -128 virtual_protect 0 // Эмулируем нажатие клавиши W, чтобы другим был виден бег
                    end
                    0AB1: @DisableActorsCollision 0
                  
                    if
                    gosub @CheckIfTurnOff
                    then
                        jump @Start
                    end
                end
                break   // Мы добрались до маркера
            else
                if
                33@ > 5000
                then
                    0AB1: @GetNearestObjectWithModel 4 pos 0@ 1@ model 861 start 3@ handle 4@ // маркер не появился
                                                                                                // делаем вывод, что грузовик заполнен
                                                                                                // ищем новый жёлтый пикап
                    //0AD1: show_formatted_text_highpriority "Searching new yellow pickup! %d %d" time 2000 3@ 4@
                    if
                    03CA:   object 4@ exists
                    then
                        0085: 3@ = 4@ // (int)
                        object.StorePos(3@, 0@, 1@, 2@)
                        20@ = 1
                        jump @SearchYellowMarker2       // если нашли новый пикап, идём к нему
                    end
                end
            end
          
            if
            gosub @CheckIfTurnOff
            then
                jump @Start
            end
          
            if
            32@ > 10000
            then
                break
            end
            wait 0
        end
      
        32@ = 0
        while true
            0AB1: @DisableActorsCollision 0
            0AB1: @MarkerExist 1 6@ get_status 7@
            if
            7@ == 0
            then
                0AD1: show_formatted_text_highpriority "Searching for yellow pickup..." time 2000
                break
            end
          
            if
            gosub @CheckIfTurnOff
            then
                jump @Start
            end
          
            if
            32@ > 25000
            then
                break
            end
            wait 0
        end
      
        if
        gosub @CheckIfTurnOff
        then
            break
        end
      
        :SearchYellowMarker2        // топаем к жёлтому маркеру
        if
        03CA:   object 3@ exists
        then
            0687: clear_actor $PLAYER_ACTOR task
            wait 0
            if
            80ED:   not actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 0.5 0.5 on_foot
            then
                05D3: AS_actor $PLAYER_ACTOR goto_point 0@ 1@ 2@ mode 7 -2 ms
                wait 100
            end
          
            32@ = 0
            while 80ED:   not actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 0.5 0.5 on_foot
                wait 0 // Ждём, пока игрок добежит до места назначения
                0AD1: show_formatted_text_highpriority "We are going to yellow pickup" time 2000
                0AB1: @HasActorGoToTask 1 actor $PLAYER_ACTOR get_to 10@
                //0AD1: show_formatted_text_highpriority "%d" time 2000 10@
                if
                10@ == 0
                then
                    05D3: AS_actor $PLAYER_ACTOR goto_point 0@ 1@ 2@ mode 7 -2 ms
                else
                    0A8C: write_memory 0xB7345A size 2 value -128 virtual_protect 0 // Эмулируем нажатие клавиши W, чтобы другим был виден бег
                end
                0AB1: @DisableActorsCollision 0
              
                if
                gosub @CheckIfTurnOff
                then
                    jump @Start
                end
                if
                32@ > 20000
                then
                    break
                end
                if and
                20@ == 0
                32@ > 5000
                then
                    jump @SearchYellowMarker2
                end
            end
            jump @SearchMarker
        else
            jump @StartSearching
        end
    end
end

:CheckIfTurnOff
if and
0AB0: 66 // B
0AB0: 90 // Z
then
    while 0AB0: 90 // Z
    wait 0
    end
    0AB1: @EnableActorsCollision 0     
    0687: clear_actor $PLAYER_ACTOR task
    0AD1: show_formatted_text_highpriority "FermaBot by BoPoH is deactivated!" time 2000
    0485:   return_true
else
    if
    8184: not  actor $PLAYER_ACTOR health >= 1
    then
        0AB1: @EnableActorsCollision 0     
        0687: clear_actor $PLAYER_ACTOR task
        0AD1: show_formatted_text_highpriority "FermaBot by BoPoH is deactivated!" time 2000
        0485:   return_true
    else
        059A:   return_false
    end
end
return


:GetNearestMarker
10@ = 0xC7DD58 // Пул маркеров

4@ = 0
5@ = 1000.0
for 30@ = 0 to 31
    0085: 29@ = 30@
    29@ *= 0xA0
    29@ += 48
    005A: 29@ += 10@  // (int)
    0A8D: 2@ = read_memory 29@ size 4 virtual_protect 0
    29@ += 4
    0A8D: 3@ = read_memory 29@ size 4 virtual_protect 0
    29@ += 32
    0A8D: 6@ = read_memory 29@ size 4 virtual_protect 0
    0509: 4@ = distance_between_XY 0@ 1@ and_XY 2@ 3@
  
    if and
    not 2@ == 0.0
    not 3@ == 0.0
    0025:   5@ > 4@
    not 6@ == 0
    then
        0087: 5@ = 4@
        0087: 11@ = 2@ // X
        0087: 12@ = 3@ // Y
        0085: 13@ = 30@ // (int)
    end
end

if
5@ < 30.0
then
    0AB2: ret 3 11@ 12@ 13@
else
    0AB2: ret 3 0.0 0.0 -1
end

:MarkerExist
0@ *= 0xA0
0@ += 0xC7DD58
0@ += 0x54
0A8D: 0@ = read_memory 0@ size 4 virtual_protect 0
0AB2: ret 1 0@

:GetNearestObjectWithModel // 0AB1: @GetNearestObjectWithModel 3 pos 0@ 1@ model 861 handle 3@
0A8D: 10@ = read_memory 0xB7449C size 4 virtual_protect 0 // CObject Pool
0A8D: 11@ = read_memory 10@ size 4 virtual_protect 0 // CObject Array
10@ += 8
0A8D: 12@ = read_memory 10@ size 4 virtual_protect 0 // CObject Number
12@ -= 1

20@ = 0 // Object Handle
25@ = 0 // Object 2 Handle
21@ = 0 // Pos
22@ = 0
23@ = 0
24@ = 1000.0 // Distance

for 4@ = 0 to 12@
    0085: 5@ = 4@
    5@ *= 0x19C
    5@ += 0x18
    005A: 5@ += 11@
    0A8D: 6@ = read_memory 5@ size 4 virtual_protect 0 // RwObject
    if
    6@ > 0
    then
        5@ -= 0x18
        0AEC: 7@ = object_struct 5@ handle
        if
        09CC:   object 7@ model_is 2@
        then
            object.StorePos(7@, 21@, 22@, 23@)
            0509: 8@ = distance_between_XY 0@ 1@ and_XY 21@ 22@
            if
            0025: 24@ > 8@
            then
                if
                803B: not 7@ == 3@  // (int)
                then
                    0085: 20@ = 7@
                    0087: 24@ = 8@
                end
            end
        end
    end
end

if
24@ < 100.0
then
0AB2: ret 1 20@
else
0AB2: ret 1 -1
end

:DisableActorsCollision
actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0A8D: 10@ = read_memory 0xB74490 size 4 virtual_protect 0 // CPed Pool
0A8D: 11@ = read_memory 10@ size 4 virtual_protect 0 // CPed Array
10@ += 8
0A8D: 12@ = read_memory 10@ size 4 virtual_protect 0 // CPed Number
12@ -= 1

8@ = 0
for 4@ = 0 to 12@
    0085: 5@ = 4@
    5@ *= 0x7C4
    5@ += 0x18
    005A: 5@ += 11@
    0A8D: 6@ = read_memory 5@ size 4 virtual_protect 0 // RwObject
    if
    6@ > 0
    then
        5@ -= 0x18
        0AEA: 7@ = actor_struct 5@ handle
        actor.StorePos(7@, 20@, 21@, 22@)
        050A: 17@ = distance_between_XYZ 0@ 1@ 2@ and_XYZ 20@ 21@ 22@
        if and
        87D6: not 7@ == $PLAYER_ACTOR
        17@ < 20.0
        80DF: not actor 7@ driving
        then
            0619: enable_actor 7@ collision_detection 0
            8@ += 1
        end
    end
end
//0AD1: show_formatted_text_highpriority "%d" time 2000 8@
0AB2: ret 0

:EnableActorsCollision
actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0A8D: 10@ = read_memory 0xB74490 size 4 virtual_protect 0 // CPed Pool
0A8D: 11@ = read_memory 10@ size 4 virtual_protect 0 // CPed Array
10@ += 8
0A8D: 12@ = read_memory 10@ size 4 virtual_protect 0 // CPed Number
12@ -= 1

for 4@ = 0 to 12@
    0085: 5@ = 4@
    5@ *= 0x7C4
    5@ += 0x18
    005A: 5@ += 11@
    0A8D: 6@ = read_memory 5@ size 4 virtual_protect 0 // RwObject
    if
    6@ > 0
    then
        5@ -= 0x18
        0AEA: 7@ = actor_struct 5@ handle
        actor.StorePos(7@, 20@, 21@, 22@)
        if and
        87D6: not 7@ == $PLAYER_ACTOR
        80DF: not actor 7@ driving
        then
            0619: enable_actor 7@ collision_detection 1
        end
    end
end
0AB2: ret 0

:HasActorGoToTask // 0AB1: @HasActorGoToTask 1 actor $PLAYER_ACTOR get_to 0@
0A96: 1@ = actor 0@ struct
1@ += 0x47C
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0
if
2@ > 0
then
    2@ += 4
    for 3@ = 0 to 4
        0085: 4@ = 2@ // (int)
        0085: 5@ = 3@ // (int)
        5@ *= 4
        005A: 4@ += 5@  // (int)
        0A8D: 6@ = read_memory 4@ size 4 virtual_protect 0
        if
        6@ > 0
        then
            0A8D: 7@ = read_memory 6@ size 4 virtual_protect 0
            7@ += 0x10
            0A8D: 8@ = read_memory 7@ size 4 virtual_protect 0
            0AA7: call_function 8@ num_params 0 pop 0 get_id 9@
            if
            9@ == 0x387
            then
                0AB2: ret 1 1
            end
        end

    end
end
0AB2: ret 1 0

opeacedoll · 27 Авг 2023

При клисте 0 на SRP у людей не отображаются ники, остается только полоска ХП у персонажа, может кто это исправить, чтобы ник был просто белый, а не прозрачный?

Madeo Capaldi · 28 Авг 2023

Можете, пожалуйста, добавить активацию/деактивацию на J и чтобы скрипт работал по времени: 10 секунд поработал, на 20 секунд отключился и опять сам заработал

Кот в пиджаке · 30 Авг 2023

Lua - Salary | Подсчет заработка за сессию

Salary Описание: Подсчитывает ваш заработок за сессию Возможности: Подсчет заработка Если вы тратите деньги, заработок отнимается, таким образом вы знаете только чистую прибыль или потери Работает на любом сервере Установка: Скачать файл ниже и перенести в папку moonloader/ Активация...

www.blast.hk

Зделайте чтобы на комманду /saleryoff выкл
а на /saleryon включался
или можно зделать одной коммандой

Qulic · 30 Авг 2023

напишите пж коротенькую флудилочку, типо что бы когда я например, зажимаю num0, флудился пробел и тд
заранее большое спасибо

Akihiro · 1 Сен 2023

Надо сделать вместо того чтобы печатать сделать на биндер клавиши желательно на End

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

Известный

Участник

Вложения

🎹

Вложения

Новичок

Вложения

deleted-user-222200

Гость

Новичок

Вложения

Известный

Вложения

Участник

Вложения

Новичок

Вложения

Известный

Вложения

Новичок

Известный

Вложения

Известный

Вложения

Участник

Новичок

Новичок

Вложения

Похожие темы