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

FYP

FYP

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

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

SangeNik

Известный
11
0
в библеотеках монлоадера есть инклуд с константами монлоадера называется moonloader.lua. В нем есть такая часть кода:

local audiostream_status = {
STOPPED = -1,
PLAYING = 1,
PAUSED = 2
}
так вот, она мешает работе моего скрипта, если я ее вырежу из moon loader'a насколько сильно это скажется на его работе???
может эта часть кода не очень важна, и при ее удалении игра никак не отреагирует??
может кто знает за что она отвечает?? если знаете то расскажите пожалуйста.
 
Bananious

Bananious

Известный
238
17
Помогите пожалуйста переделать бота на ферму мне нужно чтобы когда бот активирован то скрипт ищет пикап id 861 (В этом скрипте все это есть) После чего мне нужно что бы он когда встанет на пикап 861 он бежит к красному маркеру и стоит на нем 11 секунд после чего он идет обратно к пикапу 861 ну все снова, если красный пикап не появился он бежит к другому пикапу 861. Пожалуйста переделайте кому не сложно! (А В ЭТОМ СКРИПТЕ ОН У МЕНЯ СРАЗУ КОГДА ВСТАЛ НА КРАСНЫЙ МАРКЕР ОН СРАЗУ БЕЖИТ К ПИКАПУ 861.)
CLEO: 
{$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
 

Вложения

  • FermaBot.cs
    34.6 KB · Просмотры: 6
Mov

Mov

Известный
127
9
Здравствуйте, сделайте пожалуйста чтоб прицел не выключился при умирание каждый раз надо кл.. наново прицел и активация и дезактивация измените через команду /pricel

сейчас активация и дезактивация через кнопки
Активация: Х+Ъ
Дезактивация: \
XYh2UUb.jpg

Инструкция по установке:
1. Файл Pricel.cs кинуть в папку cleo.
2. Файл Pricel.dez.txd кинуть в папку txd >> \models\txd

по ссылке Файл Pricel.dez.txd
>> pricel.dez.txd(https://yadi.sk/d/U3F_4G0RfSRZyw)
 

Вложения

  • Pricel.cs
    18.2 KB · Просмотры: 6
V

veter street

Новичок
13
1
Смотрите, в консоли Сампфункс /threads - ПАЛИТСЯ НАЗВАНИЕ: extraws можете убрать это и сделать активацию/деактивацию нажатием как читкод, если не сможете то уберите просто в /threads.
Спасибо за работу жду
 

Вложения

  • ExtraWS.cs
    889 байт · Просмотры: 5
DonkRage

DonkRage

Известный
406
114
veter street написал(а):
Смотрите, в консоли Сампфункс /threads - ПАЛИТСЯ НАЗВАНИЕ: extraws можете убрать это и сделать активацию/деактивацию нажатием как читкод, если не сможете то уберите просто в /threads.
Спасибо за работу жду
Нажмите для раскрытия...
https://blast.hk/threads/23137/#post-260350
P.S.: По умолчанию скрипт включён
 
V

veter street

Новичок
13
1
DonkRage написал(а):
https://blast.hk/threads/23137/#post-260350
P.S.: По умолчанию скрипт включён
Нажмите для раскрытия...
Спасибо, а те кто пишут нужен в ахк дауны зачем, если он не палится не как, самое палево было в /threads - EXTRAWS и в проге которая показывает какие клео запущены там тоже оно палилось, а с этим теперь нет дцпшники))
 
Dimrion

Dimrion

Известный
1
0
Сделайте пожалуйста что бы можно было изменить расположение показателя хп и брони, а также размер шрифта
 

Вложения

  • hphud_by_Dapo_Show.cs
    17.4 KB · Просмотры: 3
A

astynk

Известный
Проверенный
742
530
Есть дамагер, который увеличивает урон с кулака до 6.5hp
Помогите изменить урон. Нужны версии с 15hp, 30hp, 50hp и 100hp
Пробовал скачать SannyBuilder - открываю, а там пустой текст почти.
 

Вложения

  • FistDamager_v2.cs
    18.1 KB · Просмотры: 12
X

xxyy

Новичок
3
0
Hey,

I tried SCM Key Changer it doesn't work because it's a command and not a key..
This cleo is activated by /setweather and /settime

Can anyone change it to: /.setweather & /.settime please?

Привет,

Я попробовал SCM Key Changer, это не работает, потому что это команда, а не ключ.
Это cleo активируется / setweather и / settime

Может ли кто-нибудь изменить его на: /.setweather & /.settime, пожалуйста?


Please and thank you
 

Вложения

  • set_weather_and_time_2.cs
    17.9 KB · Просмотры: 7
P

Plagin

Новичок
1
0
Поменяйте все Y клавиши на H, заранее спасибо
 

Вложения

  • Alco_Bot_V2.cs
    4 KB · Просмотры: 5
M

maksim123894..54

Новичок
4
0
Прувэд , уважаемый. Скачал ХП ХУД от Дапо , но у меня стоит скрипт на уменьшение радара (widescreenfix ) . Так вот. ХП налезают на деньги. Измените пожалуйста координаты , чтоб было между бронёй и хп. Спасиба :3
 

Вложения

  • HP HUD by Dapo Show.cs
    1.1 KB · Просмотры: 4
  • sa-mp-307.png
    sa-mp-307.png
    387.5 KB · Просмотры: 230
V

Vsratu

Новичок
1
0
Создал ahk fast +c с активацией не зажатием а кликами, все шикарно но есть один минус. После фаста зажимается пкм т.е. прицел, пытался исправить сам но ничего не вышло т.к. не особо шарю. Это AHK. Просто почему то не разрешает в формате ahk залить. А ещё нужно как то совместить с экстрой в один файл. И может кто знает как сделать так чтобы это всё удалялось с кнопки, не просто удалялось в корзину, а полностью с компьютера, так будто его вообще не было
 

Вложения

  • Fast.cs
    457 байт · Просмотры: 5
  • ExtraWS.exe
    824.5 KB · Просмотры: 4
Последнее редактирование:
D

DimasOkoK

Новичок
5
0
Вообщем у меня есть одно клео которое я хочу сделать что бы активировалось командой. На данный момент оно активируется клавишами.
 

Вложения

  • flyderALT.cs
    162 байт · Просмотры: 9
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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