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

FYP

FYP

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

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

congic

Известный
333
101
Здравствуйте форумчане!
после того как проект Luajiteditor От спарка закрылся, я совсем незнаю как изменять скомпилированные скрипты.
Так вот,хочу узнать,как можно изменить коордианты сюрфинга в данном скрипте?
 

Вложения

  • _s (3).luac
    2.5 KB · Просмотры: 5
  • Bug
Реакции: Mintha
Eazy-e

Eazy-e

Новичок
19
1
Russian: Я хочу, чтобы этот чит пинал игроков, когда они идут пешком, без необходимости находиться в машине, чтобы пинать

Inglês: This cheat kicks players with a command plus the player's id so to kick that need to be in a vehicle I want this cheat to work even when on foot.
 

Вложения

  • Rvanka by GoxaShow.lua
    14.1 KB · Просмотры: 6
Maodonna

Maodonna

Новичок
2
0
парни, кто может сделать активацию и деактивацию в клео? неважно как, командой или чит-кодом. Сколько сам не перепробывал - не получается,


скрипт: 
{$CLEO}
{$INCLUDE SF}
0000:

WHILE NOT SAMP.Available()
    0001: 0
END

0BE1: raknet setup_outcoming_rpc_hook @HOOK
0BDE: pause_thread 0

:HOOK
0BE5: raknet 0@ = get_hook_param PARAM_PACKETID
    IF 0@ == RPC_GIVETAKEDAMAGE
    THEN
        0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
        0BE7: raknet 1@ = bit_stream_read 0@ type 1
        IF 1@ == TRUE
        THEN
            0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_SHORT
            0BE7: raknet 4@ = bit_stream_read 0@ type BS_TYPE_FLOAT
            0BE7: raknet 5@ = bit_stream_read 0@ type BS_TYPE_SHORT
            IF 5@ == 0
            THEN
            0812: AS_actor $PLAYER_ACTOR perform_animation "HIT_WALK" IFP "PED" framedelta 4.0 loopA 0 lockX 1 lockY 1 lockF 0 time 1
            END        
        END
    END                  
0BE0: raknet hook_ret TRUE
 
S

Sam201

Известный
103
5
CLEO: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

0000: NOP
wait 0
gosub @NONAME_1922
3@ = 0
0000: NOP
gosub @NONAME_1954

:NONAME_29
wait 0
if and
  key_down 67
  key_down 81
jf @NONAME_29

:NONAME_52
wait 0
if or
  key_down 67
  key_down 81
jf @NONAME_141
jump @NONAME_52
if
0AE6: 12@ = find_first_file "CLEO\*.mga_path" get_filename_to "CLEO\driver.mga_path" // IF and SET
jf @NONAME_869
wait 0

:NONAME_141
if
0@ = File.Open("CLEO\driver.mga_path", 25202)
jf @NONAME_141
01BD: 9@ = current_time_in_ms
print "Start playng" time 2500
3@ = 0

:NONAME_213
wait 0
gosub @NONAME_1749
gosub @NONAME_1976
gosub @NONAME_2126
if and
  key_down 67
  key_down 81
jf @NONAME_264
jump @NONAME_766

:NONAME_264
Actor.EmulateFromPlayer($PLAYER_ACTOR, $PLAYER_CHAR)
if and
  not Actor.Dead($PLAYER_ACTOR)
  Actor.Driving($PLAYER_ACTOR)
jf @NONAME_796
2@ = Actor.CurrentCar($PLAYER_ACTOR)
0A97: 7@ = car 2@ struct
099A: set_car 2@ collision_detection 0
if
  3@ == 2
jf @NONAME_348
3@ = 0
jump @NONAME_796

:NONAME_348
if
  3@ == 3
jf @NONAME_373
jump @NONAME_141

:NONAME_373
if
  3@ == 1
jf @NONAME_412
Car.LockInCurrentPosition(2@, True)
gosub @NONAME_921
jump @NONAME_759

:NONAME_412
Car.LockInCurrentPosition(2@, False)
File.Read(0@, 1, 15@)
File.Read(0@, 4, 10@)
gosub @NONAME_854

:NONAME_446
002D:   10@ >= 8@ // (int)
jf @NONAME_500
gosub @NONAME_854
gosub @NONAME_1749
gosub @NONAME_1976
gosub @NONAME_2126
wait 0
jump @NONAME_446

:NONAME_500
if
  15@ == 6
jf @NONAME_532
gosub @NONAME_1527
jump @NONAME_759

:NONAME_532
if
  15@ == 0
jf @NONAME_562
File.Close(0@)
jump @NONAME_796

:NONAME_562
if
  15@ == 1
jf @NONAME_594
gosub @NONAME_935
jump @NONAME_759

:NONAME_594
if
  15@ == 16
jf @NONAME_626
gosub @NONAME_1715
jump @NONAME_759

:NONAME_626
if
  15@ == 2
jf @NONAME_656
File.Close(0@)
jump @NONAME_141

:NONAME_656
if
  15@ == 3
jf @NONAME_688
gosub @NONAME_1026
jump @NONAME_759

:NONAME_688
if
  15@ == 4
jf @NONAME_720
gosub @NONAME_1253
jump @NONAME_759

:NONAME_720
if
  15@ == 5
jf @NONAME_752
gosub @NONAME_1135
jump @NONAME_759

:NONAME_752
gosub @NONAME_899

:NONAME_759
jump @NONAME_213

:NONAME_766
wait 0
if or
  key_down 67
  key_down 81
jf @NONAME_796
jump @NONAME_766

:NONAME_796
Car.LockInCurrentPosition(2@, True)
Car.LockInCurrentPosition(2@, False)
print "Stop playng" time 2500
099A: set_car 2@ collision_detection 1
File.Close(0@)
gosub @NONAME_1954
jump @NONAME_29

:NONAME_854
01BD: 8@ = current_time_in_ms
0062: 8@ -= 9@ // (int)
return

:NONAME_869
print "Cannot find File" time 2500
jump @NONAME_29

:NONAME_899
print "UNIKNOW vType" time 1500
return

:NONAME_921
print "Paused" time 1
return

:NONAME_935
File.Read(0@, 12, 4@)
0A8E: 13@ = 7@ + 20 // int
0A8D: 14@ = read_memory 13@ size 4 virtual_protect 0
14@ += 48
0A8C: write_memory 14@ size 4 value 4@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 5@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 6@ virtual_protect 1
return

:NONAME_1026
File.Read(0@, 12, 4@)
0A8E: 13@ = 7@ + 20 // int
0A8D: 14@ = read_memory 13@ size 4 virtual_protect 0
14@ += 48
0A8C: write_memory 14@ size 4 value 4@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 5@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 6@ virtual_protect 1
File.Read(0@, 4, 11@)
Car.Angle(2@) = 11@
return

:NONAME_1135
File.Read(0@, 12, 4@)
0A8E: 13@ = 7@ + 20 // int
0A8D: 14@ = read_memory 13@ size 4 virtual_protect 0
14@ += 48
0A8C: write_memory 14@ size 4 value 4@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 5@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 6@ virtual_protect 1
File.Read(0@, 16, 16@)
07C6: set_car 2@ axis_angle_relation_to 16@ 17@ 18@ 19@
return

:NONAME_1253
File.Read(0@, 12, 4@)
0A8E: 13@ = 7@ + 20 // int
0A8D: 14@ = read_memory 13@ size 4 virtual_protect 0
14@ += 48
0A8C: write_memory 14@ size 4 value 4@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 5@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 6@ virtual_protect 1
File.Read(0@, 1, 16@)
if
08B7:   test 16@ bit 0
jf @NONAME_1395
0A8E: 13@ = 7@ + 1180 // int
0A8C: write_memory 13@ size 4 value 1.0 virtual_protect 1

:NONAME_1395
if
08B7:   test 16@ bit 1
jf @NONAME_1438
0A8E: 13@ = 7@ + 1184 // int
0A8C: write_memory 13@ size 4 value 1.0 virtual_protect 1

:NONAME_1438
if
08B7:   test 16@ bit 2
jf @NONAME_1498
0A8E: 13@ = 7@ + 1064 // int
0A8D: 16@ = read_memory 13@ size 4 virtual_protect 1
08BD: set 16@ bit 5
0A8C: write_memory 13@ size 4 value 16@ virtual_protect 1

:NONAME_1498
File.Read(0@, 16, 16@)
07C6: set_car 2@ axis_angle_relation_to 16@ 17@ 18@ 19@
return

:NONAME_1527
File.Read(0@, 12, 4@)
0A8E: 13@ = 7@ + 20 // int
0A8D: 14@ = read_memory 13@ size 4 virtual_protect 0
14@ += 48
0A8C: write_memory 14@ size 4 value 4@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 5@ virtual_protect 1
14@ += 4
0A8C: write_memory 14@ size 4 value 6@ virtual_protect 1
File.Read(0@, 12, 4@)
0A8E: 13@ = 7@ + 68 // int
0A8C: write_memory 13@ size 4 value 4@ virtual_protect 1
13@ += 4
0A8C: write_memory 13@ size 4 value 5@ virtual_protect 1
13@ += 4
0A8C: write_memory 13@ size 4 value 6@ virtual_protect 1
File.Read(0@, 16, 16@)
07C6: set_car 2@ axis_angle_relation_to 16@ 17@ 18@ 19@
return

:NONAME_1715
File.Read(0@, 16, 16@)
if
14@ = SAMP.Base()
jf @NONAME_1747
say 16@v

:NONAME_1747
return

:NONAME_1749
03F0: enable_text_draw 1
03E3: set_texture_to_be_drawn_antialiased 1
038D: draw_texture 1 position 320.0 400.0 size 320.0 40.0 RGBA 255 255 255 255
03E4: set_text_draw_align_right 1
0340: set_text_draw_RGBA 255 255 255 128
060D: draw_text_shadow 1 rgba 32 32 32 128
045A: draw_text_1number 447.0 394.0 GXT 'NUMBER' number 8@  // ~1~
31@ += 8.0
TIMERA += 8.0
038D: draw_texture 2 position 31@ TIMERA size 16.0 16.0 RGBA 255 255 255 255
31@ -= 8.0
TIMERA -= 8.0
return

:NONAME_1922
0390: load_txd_dictionary "MGD"
038F: load_texture "interf" as 1 // Load dictionary with 0390 first
038F: load_texture "mouse" as 2 // Load dictionary with 0390 first
return

:NONAME_1954
31@ = 320.0
TIMERA = 224.0
return

:NONAME_1976
0A4A: store_joystick_X_offset_to 16@ Y_offset_to 17@
005B: 31@ += 16@ // (float)
0063: TIMERA -= 17@ // (float)
if
   not 31@ >= 0.0
jf @NONAME_2031
31@ = 0.0

:NONAME_2031
if
   not TIMERA >= 0.0
jf @NONAME_2062
TIMERA = 0.0

:NONAME_2062
if
  31@ > 640.0
jf @NONAME_2093
31@ = 640.0

:NONAME_2093
if
  TIMERA > 448.0
jf @NONAME_2124
TIMERA = 448.0

:NONAME_2124
return

:NONAME_2126
if
00E1:   player 0 pressed_key 17
jf @NONAME_2344
if and
  TIMERA > 386.0
   not TIMERA >= 414.0
jf @NONAME_2320
if and
  31@ > 167.0
   not 31@ >= 214.0
jf @NONAME_2244
if
  3@ == 0
jf @NONAME_2237
3@ = 1
jump @NONAME_2244

:NONAME_2237
3@ = 0

:NONAME_2244
if and
  31@ > 222.0
   not 31@ >= 268.0
jf @NONAME_2282
3@ = 2

:NONAME_2282
if and
  31@ > 277.0
   not 31@ >= 324.0
jf @NONAME_2320
3@ = 3

:NONAME_2320
00E1:   player 0 pressed_key 17
jf @NONAME_2344
wait 0
jump @NONAME_2320

:NONAME_2344
return

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

MonarhisT

Известный
195
103
Надо убрать trmap
Спасибо заранее :)
 

Вложения

  • Histor.lua
    86.3 KB · Просмотры: 6
D

danil-228se228

Новичок
1
0
Как можно добавить в этот скрипт функцию чтобы когда он выходил из афк нажимал клавишу прыжка и прыгал а потом дальше вставал в афк?
Заранее спасибо
 

Вложения

  • afk baryga.lua
    2.8 KB · Просмотры: 5
M

Markus1337

Участник
59
6
можете пожалуйста доделать пробив чтоб он консоль пробивал chatcmds, threards
 

Вложения

  • probiv.lua
    1.2 KB · Просмотры: 9
М

макароны.

Участник
18
2
добавьте проверку на чат и диалог, если открыт диалог\чат - не выполнять действие
 

Вложения

  • 3.PassengerGun.cs
    18.6 KB · Просмотры: 5
N

Neixorzz

Новичок
13
0
Пожалуйста, мне нужна эта клео, чтобы добавить активацию командой "/fps" для активации и деактивации видения реальных fps внутри игры, при входе в игру они должны быть деактивированы
 

Вложения

  • FPS.cs
    17.3 KB · Просмотры: 2
nunz

nunz

Новичок
5
0
измените активацию пожалуйста с команды на клавишу END
 

Вложения

  • ahp (1).cs
    17.7 KB · Просмотры: 1
@ikabanov2021

@ikabanov2021

Новичок
1
0
Попробовал написать обычный скрипт, но никак немогу сохранить, не понимаю в чем проблема. Помогите пожалуйста, скиньте пожалуйста этот скрипт в формате клэо.
{$CLEO .cs}
0000:

// Имя автора: @ikabanov2021 for g-rp

03A4: name_thread "lock2 script"

thread 'lock2 script'

while true
wait 0
if
0AB0: key_pressed 76 // Клавиша L
then
03E6: remove_text_box
0A93: end_custom_thread
end

if
0AB0: key_pressed 76 // Клавиша L
then
0A8D: [email protected] = read_memory 0xB6F5F0 size 4 virtual_protect 0
if
[email protected] == 2
then
03E5: show_text_box 'UNLOCK2'
wait 3000
03E6: remove_text_box
0A93: end_custom_thread
end
end
end

0A93: terminate_this_custom_script
Нажмите для раскрытия...
 
fzzxhq

fzzxhq

Активный
571
89
Это антикарскилл. Сделайте пожалуйста так, чтобы в threads и chatcmds видно было что это Cleaner
То есть сделать активацию на /cc
 

Вложения

  • CCleaner.cs
    22.8 KB · Просмотры: 6
C

Clowik

Новичок
13
0
www.blast.hk

Неактуально - Lua - [ARZ] Ловля заявлений в Страховой Компании

Приветствую, форумчане, из названия, думаю, понятно, скрипт предназначен для ловли заявлений в СтК Команды: /stk - запуск скрипта (можно изменить на любую другую команду, открыв код через блокнот) /setpos - изменить положение текста /respos - восстанавливает положение текста на дефолтное...
www.blast.hk www.blast.hk
Ловит только 1 заявку, возможно есть добрые люди которые пофиксят это.
 
W

Wentyy

Новичок
1
0
Вообщем, нашел я для себя крутой скрипт, но мне нужно что бы он работал по команде /ammo в чат сампа
Помогите пожалуйста, а то я вообще не шарю как это делать, взаранее спасибо <3
 

Вложения

  • OilTimer.lua
    702 байт · Просмотры: 6
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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