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

FYP

FYP

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

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

asdzxcjqwe

¯\_(ツ)_/¯
Друг
621
709

Вложения

  • SKINCHANGER (fskin ID в чат).cs
    19.7 KB · Просмотры: 8
  • SpinnerFist.cs
    23.4 KB · Просмотры: 3
  • ProAim-F10-dec.txt
    6.9 KB · Просмотры: 7
I

ishi

Известный
493
110
asdzxcjqwe написал(а):
не нужен исходник, чтобы отключить какую-нибудь функцию
Нажмите для раскрытия...
ну го, без исходника вырежи основную функцию (или как ты там их "отключаешь"), посмотрим какой ты скилловый хакер

upd: только важным условием является работоспособность, тупо напихать нулей и я могу - да только игра крашить будет, если хоть один будет не там где нужен. Ну и конечно, раз уж ты сказал лишь "функцию" отключать, надо вырубить лишь саму функцию стрельбы без перезарядки, чтоб остальное осталось рабочим с:
 

Вложения

  • tihSemoS.sf
    87.5 KB · Просмотры: 4
LaRossa

LaRossa

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

upd: только важным условием является работоспособность, тупо напихать нулей и я могу - да только игра крашить будет, если хоть один будет не там где нужен. Ну и конечно, раз уж ты сказал лишь "функцию" отключать, надо вырубить лишь саму функцию стрельбы без перезарядки, чтоб остальное осталось рабочим с:
Нажмите для раскрытия...
SF практически не реально посмотреть код.
 
  • Нравится
Реакции: yxTbl
I

iqmaloy

Новичок
4
0
AutoComplete.sf — RGhost — файлообменник (http://rgho.st/7nJg8k48w) - помогите пожайлуста, работает скрипт таким образом: Я пишу первые буквы ника, жму TAB - он дописывает. Как сделать чтобы писало без поджопника(_) Admin_Testovich, а чтобы писало - Admin Testovich. Можно сделать на LUA/CLEO. Главное чтобы работало.

Активация: Надать TAB, после того как написал в чате символы..
 
Последнее редактирование:
V

Vyachvl

Новичок
3
0
Кто сможет сделать простенькое Cleo (я думаю делов на 5 минут) в лс, пожалуйста
 
fernanice

fernanice

Известный
56
5
fernanice написал(а):
Помогите переделать это клео под сервер Evolve Rp. На всех серерах работает но не на evolve.
Суть такова что когда вас убивают в чат пишется кто и из какого оружия. Еще бы переделать цвет текста допустим красный но это на ваше усмотрение.
Главное что бы работал на Evolve.
Нажмите для раскрытия...
up
 
SNAID

SNAID

Участник
37
1
Уберите, пожалуйста, приближение (Е) и отдаление (Q)
 

Вложения

  • ExtraWeaponZoom.cs
    21.3 KB · Просмотры: 7
dmitri4

dmitri4

Известный
453
79
Help, есть cleo который вывод с текстового документа на экран ранг игрока на которого наведен тангент+R, не могли бы вы добавить появление таблички для ручного ввода id если при нажати ПКМ+R прицел не наведен на модельку
Код: 
{$CLEO}
{$INCLUDE SF}
0000:
if not 0@ = Samp.Base()                                                                                   
then 0A93:
end

repeat 
wait 0
until Samp.Available()

0AC8: 3@ = allocate_memory_size 512
0AC8: 14@ = allocate_memory_size 512

0B6D: render 30@ = create_font "Segoe UI" height 12 flags 13

while true
wait 0
    if and
    8B21:     samp is_chat_opened
    0AB0:   key_pressed 2
    0AB0:   key_pressed 82
    then
    0AD2: 1@ = player $PLAYER_CHAR targeted_actor
        if 1@ <> 0
        then
        0B2B: samp 2@ = get_player_id_by_actor_handle 1@
        0B36: samp 3@ = get_player_nickname 2@
        call @members_read 1 3@ 4@ 5@ 6@
            if 4@ == 1
            then
                format 14@ "{ff0000}%s (%s)" 5@ 6@
                31@ = 0
                0B60: convert_game_screen_coords 1102263091 1130120260 to_window_screen_coords 7@ 8@
                    repeat
                    wait 0
                    31@ += 1
                    0B6F: render font 30@ draw_text 14@ pos 7@ 8@ color -1
                    until 31@ > 300
            end
        end
    end
   
    if and
    8B21:     samp is_chat_opened
    0AB0:   key_pressed 2
    0AB0:   key_pressed 77
    then
    call @members_write 0 
    wait 500
    end
end

:members_read
0B6D: render 30@ = create_font "Segoe UI" height 12 flags 13
6@ = 0
if 0AAB: file_exists "Cleo\members.txt"
then 
0A9A: 1@ = openfile "Cleo\members.txt" mode "rt"
0AC8: 2@ = allocate_memory_size 512
0C11: memset destination 2@ value 0 size 512
0B5A: get_screen_resolution 7@ 8@
0016: 7@ /= 2
0016: 8@ /= 2
10@ = 5
 repeat
    wait 0
    10@ -= 1
    if 10@ < 0
    then
    0B6F: render font 30@ draw_text "{ff0000}Ïîèñê" pos 7@ 8@ color -1
    end
    if 0AD7: read_string_from_file 1@ to 2@ size 511
    then   
        if 0C18: 0 = strstr string1 2@ string2 0@
        then
        alloc 3@ 164 // Ðàíã òåêñò
        alloc 4@ 164 // Ðàíã öèôðà
        alloc 5@ 164 // Íèê
        0AA5: call 0x8220AD num_params 5 pop 5 params 3@ 4@ 5@ "%s    %s    %s    {008000}Online{FFFFFF}" 2@
        6@ = 1
        Break
        end
    end
    0C11: memset destination 2@ value 0 size 512
 until 0AD6:   end_of_file 1@ reached
0A9B: closefile 1@
free 2@
free 5@
else
wait 500
end
ret 3 6@ 3@ 4@

:members_write
alloc 0@ 10000
0C11: memset destination 0@ value 0 size 10000
0BD7: samp get_dialog_text 0@
    if
    0C18: 0 = strstr string1 0@ string2 "Äîëæíîñòü"
    then
    0B00: delete_file "CLEO\members.txt"
    0A9A: 1@ = openfile "CLEO\members.txt" mode "at"
    0AD8: write_string_to_file 1@ from 0@ 
    0A9B: closefile 1@
    0AD1: "MEMBERS SAVED" 1000
    end
free 0@
ret 0

free 3@
free 14@
 
R

Rick Taylor

Участник
107
9
На asi сделайте пожалуйста!
 

Вложения

  • 160hpbar.cs
    17.2 KB · Просмотры: 20
  • HP HUD by Dapo Show.cs
    1.1 KB · Просмотры: 14
A

Askerq

Новичок
3
0
Подскажите пожалуйста, что нужно изменить в соббейте ( mod_sa.ini ), чтобы дальность прорисовки не увеличивалась, а была серверная?
 
V

Valer4hik

Участник
148
20
Помогите сделать так чтобы этот asi плагин работал на всех серверах.Этот asi плагин предназначался только для одного сервера-для Gameworld,и там он работает отлично.А когда заходишь с этим скриптом на другие сервера,он просто не работает (обычная полоска на 100 hp).
 

Вложения

  • троян228.rar
    3.5 KB · Просмотры: 8
V

Vyachvl

Новичок
3
0
В чем проблема? Не хочет работать
CLEO: 
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "VyachVL"

:NONAME_15
wait 400
   SAMP.Available
else_jump @NONAME_15

:NONAME_29
wait 0
1@ = SAMP.GetSAMPPlayerIDByActorHandle(0@)
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 69
else_jump @NONAME_96
wait 100
say "/knockout %d" 1@
jump @NONAME_310

:NONAME_96
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 81
else_jump @NONAME_147
wait 100
say "/cuff %d" 1@
jump @NONAME_310

:NONAME_147
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 82
else_jump @NONAME_200
wait 100
say "/uncuff %d" 1@
jump @NONAME_310

:NONAME_200
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 90
else_jump @NONAME_260
wait 100
say "/take weapon %d" 1@
jump @NONAME_310

:NONAME_260
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 88
else_jump @NONAME_310
wait 100
say "/take narko %d" 1@

:NONAME_310
jump @NONAME_29
 
DarkP1xel

DarkP1xel

Сила воли наше всё.
BH Team
3,635
4,982
Пиздец говнокод. Лучше спроси почему он должен работать.
 
V

Vyachvl

Новичок
3
0
DarkP1xel написал(а):
Пиздец говнокод. Лучше спроси почему он должен работать.
Нажмите для раскрытия...
Помоги сделать "НЕговнокод", как смог, так сделал

Vyachvl написал(а):
В чем проблема? Не хочет работать
CLEO: 
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "VyachVL"

:NONAME_15
wait 400
   SAMP.Available
else_jump @NONAME_15

:NONAME_29
wait 0
1@ = SAMP.GetSAMPPlayerIDByActorHandle(0@)
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 69
else_jump @NONAME_96
wait 100
say "/knockout %d" 1@
jump @NONAME_310

:NONAME_96
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 81
else_jump @NONAME_147
wait 100
say "/cuff %d" 1@
jump @NONAME_310

:NONAME_147
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 82
else_jump @NONAME_200
wait 100
say "/uncuff %d" 1@
jump @NONAME_310

:NONAME_200
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 90
else_jump @NONAME_260
wait 100
say "/take weapon %d" 1@
jump @NONAME_310

:NONAME_260
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 88
else_jump @NONAME_310
wait 100
say "/take narko %d" 1@

:NONAME_310
jump @NONAME_29
Нажмите для раскрытия...
Поможет кто?
 
Последнее редактирование модератором:
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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