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

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 других
Doppio229

Doppio229

Участник
20
2
Можете попробовать переставить кнопку R (сбив анимки) на 9(NumPad)
Буду рад если это будет возможно сделать)
 

Вложения

  • Damiano_Helper.luac
    55.9 KB · Просмотры: 6
H

h3chb3k

Новичок
4
0
здравствуйте, кто может пожалуйста измените в ахк скрипте(аимботе), чтобы аим срабатывал на нажатие левой кнопки мыши, то есть на кнопку выстрела, заранее благодарю, вот сркипт:
 

Вложения

  • AutoHotkey Script.ahk
    39.9 KB · Просмотры: 5
bottom_text

bottom_text

Известный
675
318
h3chb3k написал(а):
здравствуйте, кто может пожалуйста измените в ахк скрипте(аимботе), чтобы аим срабатывал на нажатие левой кнопки мыши, то есть на кнопку выстрела, заранее благодарю, вот сркипт:
Нажмите для раскрытия...
Работал с ahk лишь единожды, но наверно будет работать
 

Вложения

  • AutoHotkey Script.ahk
    39.9 KB · Просмотры: 5
  • Нравится
Реакции: h3chb3k
H

h3chb3k

Новичок
4
0
bottom_text написал(а):
Работал с ahk лишь единожды, но наверно будет работать
Нажмите для раскрытия...
если можешь, то допиши аим для м4. рифлы, шотгана(пофиксить, чтобы не уводило от скина, то есть координаты для оружие дописать)
 

Вложения

  • AutoHotkey Script.ahk
    39.9 KB · Просмотры: 6
  • DX39.dll
    501.5 KB · Просмотры: 4
horacy

horacy

Известный
102
92
Я хочу изменить активацию с o на o + x и p на o + p. Когда я пытался скомпилировать, sanny builder запрашивает добавление библиотек после компиляции и попытки включить сбой. нормально работает без редактирования, почему? оригинальный cleo во вложени

CLEO: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
{$USE file}
{$USE SAMPFUNCS}

0000: NOP 

:NONAME_2
wait 0 
   SAMP.Available
jf @NONAME_2 
31@ = Render.CreateFont("Arial Black", 10, 5)
0BFC: set_global_var "font" = 31@ 
0B34: samp register_client_command "VehicleRecording" to_label @NONAME_2636 
0B34: samp register_client_command "VehicleRecordingLoop" to_label @NONAME_2478 
chatmsg "{FF0000}/VehicleRecording:{FFFFFF} to get help!" -1 

:NONAME_156
wait 0 
if 
   Actor.Driving($PLAYER_ACTOR)
jf @NONAME_1806 
if and
   not SAMP.ChatInputOpened
key_down 79 
jf @NONAME_773 

:NONAME_193
wait 0 
   not key_down 79 
jf @NONAME_193 
TIMERA = 0 
if 
0AAB:   file_exists "CLEO\VehicleRecording.path" 
jf @NONAME_286 
0B00: delete_file "CLEO\VehicleRecording.path" // IF and SET 

:NONAME_286
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} recording a new path!!" -1 
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0 
018A: 29@ = create_checkpoint_at 1@ 2@ 3@ 
31@ = File.Open("CLEO\VehicleRecording.path", "wb+")

:NONAME_439
wait 0 
if 
   not Actor.Driving($PLAYER_ACTOR)
jf @NONAME_557 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash. Recording failed." -1 
jump @NONAME_679 

:NONAME_557
call @NONAME_2263 0 
if 
  TIMERA > 200 
jf @NONAME_668 
TIMERA = 0 
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0 
02E3: 4@ = car 0@ speed 
File.Write(31@, 16, 1@)
018C: play_sound 1052 at 0.0 0.0 0.0 

:NONAME_668
key_down 79 
jf @NONAME_439 

:NONAME_679
Marker.Disable(29@)
File.Close(31@)
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} recording has been stopped." -1 

:NONAME_758
wait 0 
   not key_down 79 
jf @NONAME_758 

:NONAME_773
if 
   not SAMP.ChatInputOpened
jf @NONAME_1806 
if or
  30@ == 1 
key_down 80 
jf @NONAME_1806 

:NONAME_808
wait 0 
   not key_down 80 
jf @NONAME_808 
if 
0AAB:   file_exists "CLEO\VehicleRecording.path" 
jf @NONAME_1806 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} playing the path now!" -1 
31@ = File.Open("CLEO\VehicleRecording.path", "rb")

:NONAME_964
wait 0 
if 
   not Actor.Driving($PLAYER_ACTOR)
jf @NONAME_1064 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1 
jump @NONAME_1719 

:NONAME_1064
if and
   not SAMP.ChatInputOpened
key_down 80 
jf @NONAME_1088 
jump @NONAME_1719 

:NONAME_1088
0@ = Actor.CurrentCar($PLAYER_ACTOR)
File.Read(31@, 4, 1@)
File.Read(31@, 4, 2@)
File.Read(31@, 4, 3@)
File.Read(31@, 4, 4@)
File.Read(31@, 4, 1@)
File.Read(31@, 4, 2@)
File.Read(31@, 4, 3@)
File.Read(31@, 4, 4@)

:NONAME_1176
wait 0 
if 
   not Actor.Driving($PLAYER_ACTOR)
jf @NONAME_1342 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1 
30@ = 0 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1 
jump @NONAME_1707 

:NONAME_1342
if 
key_down 80 
jf @NONAME_1430 
30@ = 0 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1 
jump @NONAME_1707 

:NONAME_1430
call @NONAME_2120 0 
0407: store_coords_to 6@ 7@ 8@ from_car 0@ with_offset 0.0 0.0 0.0 
call @NONAME_1813 4 1@ 2@ 6@ 7@ 
02E3: 5@ = car 0@ speed 
if 
0025:   5@ > 4@ // (float) 
jf @NONAME_1535 
call @NONAME_2410 0 
jump @NONAME_1545 

:NONAME_1535
call @NONAME_2444 0 

:NONAME_1545
SAMP.Convert3DCoordsToScreen(1@, 2@, 3@, 9@, 10@)
SAMP.Convert3DCoordsToScreen(6@, 7@, 8@, 11@, 12@)
if 
00C2:   sphere_onscreen 1@ 2@ 3@ radius 5.0 
jf @NONAME_1669 
Render.DrawLine(11@, 12@, 9@, 10@, 2, -65536)
Render.DrawPolygon(9@, 10@, 10, 10, 14, 0, -16777216)
Render.DrawPolygon(11@, 12@, 10, 10, 14, 0, -16777216)

:NONAME_1669
0100:   actor $PLAYER_ACTOR in_sphere 1@ 2@ 3@ radius 5.0 5.0 5.0 sphere 0 in_car 
jf @NONAME_1176 

:NONAME_1707
   File.EOF(31@)
jf @NONAME_964 

:NONAME_1719
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} playing has been stopped!" -1 
File.Close(31@)

:NONAME_1791
wait 0 
   not key_down 80 
jf @NONAME_1791 

:NONAME_1806
jump @NONAME_156 

:NONAME_1813
call @NONAME_2085 4 0@ 1@ 2@ 3@ 31@ 
30@ = Actor.Angle($PLAYER_ACTOR)
30@ -= 360.0 
0097: make 30@ absolute_float 
005B: 31@ += 30@ // (float) 
02F6: 30@ = sine 31@ // (float) 
02F7: 31@ = cosine 31@ // (float) 
0604: get_Z_angle_for_point 30@ 31@ store_to 31@ 
if and
  31@ > 180.0 
  355.0 > 31@ 
jf @NONAME_1982 
SAMP.SetGameKeyState(0, -255)
if 
  200.0 > 31@ 
jf @NONAME_1969 
SAMP.SetGameKeyState(6, 255)
jump @NONAME_1975 

:NONAME_1969
SAMP.SetGameKeyState(6, 0)

:NONAME_1975
jump @NONAME_2080 

:NONAME_1982
if and
  31@ > 5.0 
  180.0 >= 31@ 
jf @NONAME_2068 
SAMP.SetGameKeyState(0, 255)
if 
  31@ > 160.0 
jf @NONAME_2055 
SAMP.SetGameKeyState(6, 255)
jump @NONAME_2061 

:NONAME_2055
SAMP.SetGameKeyState(6, 0)

:NONAME_2061
jump @NONAME_2080 

:NONAME_2068
SAMP.SetGameKeyState(0, 0)
SAMP.SetGameKeyState(6, 0)

:NONAME_2080
ret 0 

:NONAME_2085
0063: 0@ -= 2@ // (float) 
0063: 1@ -= 3@ // (float) 
0604: get_Z_angle_for_point 0@ 1@ store_to 4@ 
ret 1 4@ 

:NONAME_2120
if 
   Actor.Driving($PLAYER_ACTOR)
jf @NONAME_2258 
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0 
0BFD: 31@ = get_global_var "font" 
SAMP.Convert3DCoordsToScreen(1@, 2@, 3@, 4@, 5@)
6@ = Render.FontDrawLength(31@, "PLAYING")
6@ /= 2 
0062: 4@ -= 6@ // (int) 
Render.DrawText(31@, "PLAYING", 4@, 5@, -65536)

:NONAME_2258
ret 0 

:NONAME_2263
if 
   Actor.Driving($PLAYER_ACTOR)
jf @NONAME_2405 
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0 
0BFD: 31@ = get_global_var "font" 
SAMP.Convert3DCoordsToScreen(1@, 2@, 3@, 4@, 5@)
6@ = Render.FontDrawLength(31@, "RECORDING")
6@ /= 2 
0062: 4@ -= 6@ // (int) 
Render.DrawText(31@, "RECORDING", 4@, 5@, -65536)

:NONAME_2405
ret 0 

:NONAME_2410
0@ = 12006488 
0@ += 12 
0A8C: write_memory 0@ size 1 value 255 virtual_protect 0 
ret 0 

:NONAME_2444
0@ = 12006488 
0@ += 32 
0A8C: write_memory 0@ size 1 value 255 virtual_protect 0 
ret 0 

:NONAME_2478
if 
  30@ == 1 
jf @NONAME_2569 
30@ = 0 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1 
jump @NONAME_2634 

:NONAME_2569
30@ = 1 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} enabled looping." -1 

:NONAME_2634
SAMP.CmdRet

:NONAME_2636
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} made by Opcode.eXe ;)" -1 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} use O to start/stop recording." -1 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} press P to play/stop the recorded path." -1 
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} write /VehicleRecordingLoop play it without stopping." -1 
SAMP.CmdRet
 

Вложения

  • VehicleRecording.cs
    29.5 KB · Просмотры: 8
Последнее редактирование:
ewin

ewin

Известный
675
369
choracy написал(а):
Я хочу изменить активацию с o на o + x и p на o + p. Когда я пытался скомпилировать, sanny builder запрашивает добавление библиотек после компиляции и попытки включить сбой. нормально работает без редактирования, почему? оригинальный cleo во вложении


{$CLEO .cs} 0000: REPEAT WAIT 0 UNTIL 0AFA: SAMP_IS_READY 0B6D: 31@ CREATE_FONT "Arial Black" HEIGHT 10 FLAGS 0x5 0BFC: set_global_var "font" = 31@ 0B34: "VehicleRecording" @VehicleRecording 0B34: "VehicleRecordingLoop" @VehicleRecordingLoop 0AF8: "{FF0000}/VehicleRecording:{FFFFFF} to get help!" -1 WHILE TRUE WAIT 0 IF 00DF: actor $PLAYER_ACTOR driving THEN IF AND 8B21: NOT_CHAT_OPEN 0AB0: 79 {O} THEN REPEAT WAIT 0 UNTIL 8AB0: 79 {O} 32@ = 0 IF 0AAB: file_exists "CLEO\VehicleRecording.path" THEN 0B00: delete_file "CLEO\VehicleRecording.path" END 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} recording a new path!!" -1 03C0: 0@ = actor $PLAYER_ACTOR car 0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0 018A: 29@ = create_checkpoint_at 1@ 2@ 3@ 0A9A: 31@ = openfile "CLEO\VehicleRecording.path" mode "wb+" REPEAT WAIT 0 IF 80DF: actor $PLAYER_ACTOR driving THEN 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash. Recording failed." -1 BREAK END 0AB1: @DRAW_TEXT_RECORDING 0 IF 32@ > 200 THEN 32@ = 0 03C0: 0@ = actor $PLAYER_ACTOR car 0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0 02E3: 4@ = car 0@ speed 0A9E: writefile 31@ size 16 from 1@ 018C: play_sound 1052 at 0.0 0.0 0.0 END UNTIL 0AB0: 79 0164: disable_marker 29@ 0A9B: closefile 31@ 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} recording has been stopped." -1 REPEAT WAIT 0 UNTIL 8AB0: 79 {O} END IF 8B21: NOT_CHAT_OPEN THEN IF OR 30@ == TRUE 0AB0: 80 {P} THEN REPEAT WAIT 0 UNTIL 8AB0: 80 {p} IF 0AAB: file_exists "CLEO\VehicleRecording.path" THEN 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} playing the path now!" -1 0A9A: 31@ = openfile "CLEO\VehicleRecording.path" mode "rb" REPEAT WAIT 0 IF 80DF: actor $PLAYER_ACTOR driving THEN 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1 BREAK END IF AND 8B21: NOT_CHAT_OPEN 0AB0: 80 {p} THEN BREAK END 03C0: 0@ = actor $PLAYER_ACTOR car 0A9D: readfile 31@ size 4 to 1@ 0A9D: readfile 31@ size 4 to 2@ 0A9D: readfile 31@ size 4 to 3@ 0A9D: readfile 31@ size 4 to 4@ 0A9D: readfile 31@ size 4 to 1@ 0A9D: readfile 31@ size 4 to 2@ 0A9D: readfile 31@ size 4 to 3@ 0A9D: readfile 31@ size 4 to 4@ REPEAT WAIT 0 IF 80DF: actor $PLAYER_ACTOR driving THEN 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1 30@ = FALSE 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1 BREAK END IF 0AB0: 80 {p} THEN 30@ = FALSE 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1 BREAK END 0AB1: @DRAW_TEXT_PLAYING 0 0407: 6@ 7@ 8@ CAR 0@ w_OFFSET 0.0 0.0 0.0 0AB1: call_scm_func @turning_mechanism 4 1@ 2@ 6@ 7@ 02E3: 5@ = car 0@ speed IF 0025: 5@ > 4@ // (float) THEN 0AB1: @BRAKE 0 ELSE 0AB1: @GAS 0 END 0B55: convert_3D_coords 1@ 2@ 3@ to_screen 9@ 10@ 0B55: convert_3D_coords 6@ 7@ 8@ to_screen 11@ 12@ if 00C2: sphere_onscreen 1@ 2@ 3@ radius 5.0 then 0B68: render draw_line_point1 11@ 12@ point2 9@ 10@ width 2 color 0xFFFF0000 0B70: render draw_polygon_pos 9@ 10@ size 10 10 corners 14 rotation 0 color 0xFF000000 0B70: render draw_polygon_pos 11@ 12@ size 10 10 corners 14 rotation 0 color 0xFF000000 end UNTIL 0100: actor $PLAYER_ACTOR in_sphere 1@ 2@ 3@ radius 5.0 5.0 5.0 sphere 0 in_car UNTIL 0AD6: end_of_file 31@ reached 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} playing has been stopped!" -1 0A9B: closefile 31@ REPEAT WAIT 0 UNTIL 8AB0: 80 {p} END END END END END //0AB1: call_scm_func @turning_mechanism 4 XY XY :turning_mechanism 0AB1: @getZAngleBetweenPoints 4 from_XY 0@ 1@ and_XY 2@ 3@ store_to 31@ 0172: 30@ = actor $PLAYER_ACTOR Z_angle 30@ -= 360.0 0097: make 30@ absolute_float 005B: 31@ += 30@ 02F6: 30@ = sine 31@ 02F7: 31@ = cosine 31@ 0604: get_Z_angle_for_point 30@ 31@ store_to 31@ if and 0021: 31@ > 180.0 0023: 355.0 > 31@ then //press left 0B56: set_game_key 0 state -255 //0B56: set_game_key 16 state 255 if 0023: 200.0 > 31@ then 0B56: set_game_key 6 state 255 else 0B56: set_game_key 6 state 0 end else if and 0021: 31@ > 5.0 0033: 180.0 >= 31@ //lower or equal then //press right 0B56: set_game_key 0 state 255 //0B56: set_game_key 16 state 255 if 0021: 31@ > 160.0 then 0B56: set_game_key 6 state 255 else 0B56: set_game_key 6 state 0 end else 0B56: set_game_key 0 state 0 0B56: set_game_key 6 state 0 //0B56: set_game_key 16 state 255 end end 0AB2: ret 0 :getZAngleBetweenPoints 0063: 0@ -= 2@ 0063: 1@ -= 3@ 0604: get_Z_angle_for_point 0@ 1@ store_to 4@ 0AB2: 1 4@ :DRAW_TEXT_PLAYING if 00DF: actor $PLAYER_ACTOR driving then 03C0: 0@ = actor $PLAYER_ACTOR car 0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0 0BFD: 31@ = get_global_var "font" 0B55: convert_3D_coords 1@ 2@ 3@ to_screen 4@ 5@ 0B6B: 6@ = FONT 31@ TEXT "PLAYING" LENGTH 6@ /= 2 0062: 4@ -= 6@ 0B6F: FONT 31@ DRAW_TEXT "PLAYING" POS 4@ 5@ COLOR 0xFFFF0000 end 0AB2: 0 :DRAW_TEXT_RECORDING if 00DF: actor $PLAYER_ACTOR driving then 03C0: 0@ = actor $PLAYER_ACTOR car 0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0 0BFD: 31@ = get_global_var "font" 0B55: convert_3D_coords 1@ 2@ 3@ to_screen 4@ 5@ 0B6B: 6@ = FONT 31@ TEXT "RECORDING" LENGTH 6@ /= 2 0062: 4@ -= 6@ 0B6F: FONT 31@ DRAW_TEXT "RECORDING" POS 4@ 5@ COLOR 0xFFFF0000 end 0AB2: 0 :BRAKE 0@ = 0xB73458 0@ += 0xC 0A8C: write_memory 0@ size 1 value 255 virtual_protect 0 0AB2: 0 :GAS 0@ = 0xB73458 0@ += 0x20 0A8C: write_memory 0@ size 1 value 255 virtual_protect 0 0AB2: 0 :VehicleRecordingLoop IF 30@ == TRUE THEN 30@ = FALSE 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1 ELSE 30@ = TRUE 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} enabled looping." -1 END 0B43: :VehicleRecording 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} made by Opcode.eXe ;)" -1 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} use O to start/stop recording." -1 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} press P to play/stop the recorded path." -1 0AF8: "{FF0000}Vehicle Recording:{FFFFFF} write /VehicleRecordingLoop play it without stopping." -1 0B43:
Нажмите для раскрытия...
1619007666530.png
 
  • Нравится
Реакции: horacy и PanSeek
xusum

xusum

Участник
48
10
choracy написал(а):
Я хочу изменить активацию с o на o + x и p на o + p. Когда я пытался скомпилировать, sanny builder запрашивает добавление библиотек после компиляции и попытки включить сбой. нормально работает без редактирования, почему? оригинальный cleo во вложени

CLEO: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
{$USE file}
{$USE SAMPFUNCS}

0000: NOP

:NONAME_2
wait 0
   SAMP.Available
jf @NONAME_2
31@ = Render.CreateFont("Arial Black", 10, 5)
0BFC: set_global_var "font" = 31@
0B34: samp register_client_command "VehicleRecording" to_label @NONAME_2636
0B34: samp register_client_command "VehicleRecordingLoop" to_label @NONAME_2478
chatmsg "{FF0000}/VehicleRecording:{FFFFFF} to get help!" -1

:NONAME_156
wait 0
if
   Actor.Driving($PLAYER_ACTOR)
jf @NONAME_1806
if and
   not SAMP.ChatInputOpened
key_down 79
jf @NONAME_773

:NONAME_193
wait 0
   not key_down 79
jf @NONAME_193
TIMERA = 0
if
0AAB:   file_exists "CLEO\VehicleRecording.path"
jf @NONAME_286
0B00: delete_file "CLEO\VehicleRecording.path" // IF and SET

:NONAME_286
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} recording a new path!!" -1
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0
018A: 29@ = create_checkpoint_at 1@ 2@ 3@
31@ = File.Open("CLEO\VehicleRecording.path", "wb+")

:NONAME_439
wait 0
if
   not Actor.Driving($PLAYER_ACTOR)
jf @NONAME_557
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash. Recording failed." -1
jump @NONAME_679

:NONAME_557
call @NONAME_2263 0
if
  TIMERA > 200
jf @NONAME_668
TIMERA = 0
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0
02E3: 4@ = car 0@ speed
File.Write(31@, 16, 1@)
018C: play_sound 1052 at 0.0 0.0 0.0

:NONAME_668
key_down 79
jf @NONAME_439

:NONAME_679
Marker.Disable(29@)
File.Close(31@)
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} recording has been stopped." -1

:NONAME_758
wait 0
   not key_down 79
jf @NONAME_758

:NONAME_773
if
   not SAMP.ChatInputOpened
jf @NONAME_1806
if or
  30@ == 1
key_down 80
jf @NONAME_1806

:NONAME_808
wait 0
   not key_down 80
jf @NONAME_808
if
0AAB:   file_exists "CLEO\VehicleRecording.path"
jf @NONAME_1806
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} playing the path now!" -1
31@ = File.Open("CLEO\VehicleRecording.path", "rb")

:NONAME_964
wait 0
if
   not Actor.Driving($PLAYER_ACTOR)
jf @NONAME_1064
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1
jump @NONAME_1719

:NONAME_1064
if and
   not SAMP.ChatInputOpened
key_down 80
jf @NONAME_1088
jump @NONAME_1719

:NONAME_1088
0@ = Actor.CurrentCar($PLAYER_ACTOR)
File.Read(31@, 4, 1@)
File.Read(31@, 4, 2@)
File.Read(31@, 4, 3@)
File.Read(31@, 4, 4@)
File.Read(31@, 4, 1@)
File.Read(31@, 4, 2@)
File.Read(31@, 4, 3@)
File.Read(31@, 4, 4@)

:NONAME_1176
wait 0
if
   not Actor.Driving($PLAYER_ACTOR)
jf @NONAME_1342
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1
30@ = 0
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1
jump @NONAME_1707

:NONAME_1342
if
key_down 80
jf @NONAME_1430
30@ = 0
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1
jump @NONAME_1707

:NONAME_1430
call @NONAME_2120 0
0407: store_coords_to 6@ 7@ 8@ from_car 0@ with_offset 0.0 0.0 0.0
call @NONAME_1813 4 1@ 2@ 6@ 7@
02E3: 5@ = car 0@ speed
if
0025:   5@ > 4@ // (float)
jf @NONAME_1535
call @NONAME_2410 0
jump @NONAME_1545

:NONAME_1535
call @NONAME_2444 0

:NONAME_1545
SAMP.Convert3DCoordsToScreen(1@, 2@, 3@, 9@, 10@)
SAMP.Convert3DCoordsToScreen(6@, 7@, 8@, 11@, 12@)
if
00C2:   sphere_onscreen 1@ 2@ 3@ radius 5.0
jf @NONAME_1669
Render.DrawLine(11@, 12@, 9@, 10@, 2, -65536)
Render.DrawPolygon(9@, 10@, 10, 10, 14, 0, -16777216)
Render.DrawPolygon(11@, 12@, 10, 10, 14, 0, -16777216)

:NONAME_1669
0100:   actor $PLAYER_ACTOR in_sphere 1@ 2@ 3@ radius 5.0 5.0 5.0 sphere 0 in_car
jf @NONAME_1176

:NONAME_1707
   File.EOF(31@)
jf @NONAME_964

:NONAME_1719
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} playing has been stopped!" -1
File.Close(31@)

:NONAME_1791
wait 0
   not key_down 80
jf @NONAME_1791

:NONAME_1806
jump @NONAME_156

:NONAME_1813
call @NONAME_2085 4 0@ 1@ 2@ 3@ 31@
30@ = Actor.Angle($PLAYER_ACTOR)
30@ -= 360.0
0097: make 30@ absolute_float
005B: 31@ += 30@ // (float)
02F6: 30@ = sine 31@ // (float)
02F7: 31@ = cosine 31@ // (float)
0604: get_Z_angle_for_point 30@ 31@ store_to 31@
if and
  31@ > 180.0
  355.0 > 31@
jf @NONAME_1982
SAMP.SetGameKeyState(0, -255)
if
  200.0 > 31@
jf @NONAME_1969
SAMP.SetGameKeyState(6, 255)
jump @NONAME_1975

:NONAME_1969
SAMP.SetGameKeyState(6, 0)

:NONAME_1975
jump @NONAME_2080

:NONAME_1982
if and
  31@ > 5.0
  180.0 >= 31@
jf @NONAME_2068
SAMP.SetGameKeyState(0, 255)
if
  31@ > 160.0
jf @NONAME_2055
SAMP.SetGameKeyState(6, 255)
jump @NONAME_2061

:NONAME_2055
SAMP.SetGameKeyState(6, 0)

:NONAME_2061
jump @NONAME_2080

:NONAME_2068
SAMP.SetGameKeyState(0, 0)
SAMP.SetGameKeyState(6, 0)

:NONAME_2080
ret 0

:NONAME_2085
0063: 0@ -= 2@ // (float)
0063: 1@ -= 3@ // (float)
0604: get_Z_angle_for_point 0@ 1@ store_to 4@
ret 1 4@

:NONAME_2120
if
   Actor.Driving($PLAYER_ACTOR)
jf @NONAME_2258
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0
0BFD: 31@ = get_global_var "font"
SAMP.Convert3DCoordsToScreen(1@, 2@, 3@, 4@, 5@)
6@ = Render.FontDrawLength(31@, "PLAYING")
6@ /= 2
0062: 4@ -= 6@ // (int)
Render.DrawText(31@, "PLAYING", 4@, 5@, -65536)

:NONAME_2258
ret 0

:NONAME_2263
if
   Actor.Driving($PLAYER_ACTOR)
jf @NONAME_2405
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 0.0
0BFD: 31@ = get_global_var "font"
SAMP.Convert3DCoordsToScreen(1@, 2@, 3@, 4@, 5@)
6@ = Render.FontDrawLength(31@, "RECORDING")
6@ /= 2
0062: 4@ -= 6@ // (int)
Render.DrawText(31@, "RECORDING", 4@, 5@, -65536)

:NONAME_2405
ret 0

:NONAME_2410
0@ = 12006488
0@ += 12
0A8C: write_memory 0@ size 1 value 255 virtual_protect 0
ret 0

:NONAME_2444
0@ = 12006488
0@ += 32
0A8C: write_memory 0@ size 1 value 255 virtual_protect 0
ret 0

:NONAME_2478
if
  30@ == 1
jf @NONAME_2569
30@ = 0
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1
jump @NONAME_2634

:NONAME_2569
30@ = 1
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} enabled looping." -1

:NONAME_2634
SAMP.CmdRet

:NONAME_2636
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} made by Opcode.eXe ;)" -1
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} use O to start/stop recording." -1
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} press P to play/stop the recorded path." -1
chatmsg "{FF0000}Vehicle Recording:{FFFFFF} write /VehicleRecordingLoop play it without stopping." -1
SAMP.CmdRet
Нажмите для раскрытия...
во-первых, код скрипта открыт и зачем ты его декомпилировал не понятно
во-вторых, в заголовке скрипта необходимо указать использование расширений file и CLEO+, без них он не компилируется (см. в коде)
в-третьих, исправленный код под спойлером, однако я не тестировал на работоспособность (во вложениях скомпилированный скрипт)
CLEO: 
{$CLEO .cs}
{$USE file}
{$USE CLEO+}
0000:


REPEAT
    WAIT 0
UNTIL 0AFA:  SAMP_IS_READY

0B6D: 31@ CREATE_FONT "Arial Black" HEIGHT 10 FLAGS 0x5
0BFC: set_global_var "font" = 31@

0B34: "VehicleRecording" @VehicleRecording
0B34: "VehicleRecordingLoop" @VehicleRecordingLoop

0AF8: "{FF0000}/VehicleRecording:{FFFFFF} to get help!" -1





WHILE TRUE
    WAIT 0
    IF
    00DF:   actor $PLAYER_ACTOR driving
    THEN
        IF AND
        samp.ChatInputOpened()
        0AB0: 79 {O}
        0AB0: 88 {X}
        THEN
            REPEAT
                if and
                8AB0: 79 {O}
                8AB0: 88 {X}
                then WAIT 0
                else break
                end
            UNTIL false
            if and
            32@ = 0
            IF
            0AAB:   file_exists "CLEO\VehicleRecording.path"
            THEN
                0B00: delete_file "CLEO\VehicleRecording.path"
            END           
            0AF8: "{FF0000}Vehicle Recording:{FFFFFF} recording a new path!!" -1 
            03C0: 0@ = actor $PLAYER_ACTOR car
            0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0 
            018A: 29@ = create_checkpoint_at 1@ 2@ 3@
 

            0A9A: 31@ = openfile "CLEO\VehicleRecording.path" mode "wb+"
            
            
            REPEAT
                WAIT 0
                if and
                0AB0: 79 {O}
                0AB0: 88 {X}
                then
                    IF
                    80DF:   actor $PLAYER_ACTOR driving
                    THEN
                        0AF8: "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash. Recording failed." -1
                        BREAK
                    END
                    0AB1: @DRAW_TEXT_RECORDING 0
                    IF
                    32@ > 200
                    THEN
                        32@ = 0
                        03C0: 0@ = actor $PLAYER_ACTOR car
                        0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0 
                        02E3: 4@ = car 0@ speed
                        0A9E: writefile 31@ size 16 from 1@
                        018C: play_sound 1052 at 0.0 0.0 0.0
                    END
                end   
            UNTIL false

            0164: disable_marker 29@

            0A9B: closefile 31@
            0AF8: "{FF0000}Vehicle Recording:{FFFFFF} recording has been stopped." -1
            REPEAT
                if and
                8AB0: 79 {O}
                8AB0: 88 {X}
                then WAIT 0
                else break
                end
            UNTIL  false         
        END   
    
        IF
        8B21: NOT_CHAT_OPEN
        THEN
            IF OR
            30@ == TRUE
            0AB0: 80 {P}
            0AB0: 88 {X}
            THEN
                REPEAT
                    if and
                    8AB0: 80 {P}
                    8AB0: 88 {X}                   
                    then WAIT 0
                    else break
                    end
                UNTIL  false
                IF
                0AAB:   file_exists "CLEO\VehicleRecording.path"
                THEN
                    0AF8: "{FF0000}Vehicle Recording:{FFFFFF} playing the path now!" -1
                    
                    0A9A: 31@ = openfile "CLEO\VehicleRecording.path" mode "rb"
                    
                    REPEAT
                    WAIT 0
                        IF
                        80DF:   actor $PLAYER_ACTOR driving
                        THEN
                            0AF8: "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1
                            BREAK
                        END     
                        IF AND
                        8B21: NOT_CHAT_OPEN
                        0AB0: 80 {p}
                        0AB0: 88 {X}
                        THEN
                            BREAK
                        END                     
    
                        03C0: 0@ = actor $PLAYER_ACTOR car
    
                        0A9D: readfile 31@ size 4 to 1@
                        0A9D: readfile 31@ size 4 to 2@
                        0A9D: readfile 31@ size 4 to 3@
                        0A9D: readfile 31@ size 4 to 4@
                        0A9D: readfile 31@ size 4 to 1@
                        0A9D: readfile 31@ size 4 to 2@
                        0A9D: readfile 31@ size 4 to 3@
                        0A9D: readfile 31@ size 4 to 4@
                                                
                        REPEAT
                        WAIT 0
                            IF
                            80DF:   actor $PLAYER_ACTOR driving
                            THEN
                                0AF8: "{FF0000}Vehicle Recording:{FFFFFF} just saved ur ass from a crash." -1
                                30@ = FALSE
                                0AF8: "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1
                                BREAK
                            END     
                            IF and
                            0AB0: 80 {p}
                            0AB0: 88 {X}
                            THEN
                                30@ = FALSE
                                0AF8: "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1
                                BREAK
                            END           
                            0AB1: @DRAW_TEXT_PLAYING 0         
                            0407: 6@ 7@ 8@ CAR 0@ w_OFFSET 0.0 0.0 0.0 
                            0AB1: call_scm_func @turning_mechanism 4 1@ 2@ 6@ 7@ 
                            02E3: 5@ = car 0@ speed
                            IF
                            0025:   5@ > 4@  // (float)
                            THEN
                                0AB1: @BRAKE 0
                                ELSE
                                0AB1: @GAS 0
                            END
                            0B55: convert_3D_coords 1@ 2@ 3@ to_screen 9@ 10@
                            0B55: convert_3D_coords 6@ 7@ 8@ to_screen 11@ 12@
                            if
                            00C2:   sphere_onscreen 1@ 2@ 3@ radius 5.0
                            then
                                0B68: render draw_line_point1 11@ 12@ point2 9@ 10@ width 2 color 0xFFFF0000
                                0B70: render draw_polygon_pos 9@ 10@ size 10 10 corners 14 rotation 0 color 0xFF000000
                                0B70: render draw_polygon_pos 11@ 12@ size 10 10 corners 14 rotation 0 color 0xFF000000
                            end
                        UNTIL 0100:   actor $PLAYER_ACTOR in_sphere 1@ 2@ 3@ radius 5.0 5.0 5.0 sphere 0 in_car
                        
                    UNTIL 0AD6:   end_of_file 31@ reached               
        
                    0AF8: "{FF0000}Vehicle Recording:{FFFFFF} playing has been stopped!" -1               
                    0A9B: closefile 31@
                    REPEAT
                        if and
                        8AB0: 80 {p}
                        8AB0: 88 {X}
                        then WAIT 0
                        else break
                        end
                    UNTIL  false           
                    
                END
            END   
        END       
    END
END

//0AB1: call_scm_func @turning_mechanism 4 XY XY
:turning_mechanism
0AB1: @getZAngleBetweenPoints 4 from_XY 0@ 1@ and_XY 2@ 3@ store_to 31@       
0172: 30@ = actor $PLAYER_ACTOR Z_angle
30@ -= 360.0
0097: make 30@ absolute_float
005B: 31@ += 30@
02F6: 30@ = sine 31@
02F7: 31@ = cosine 31@
0604: get_Z_angle_for_point 30@ 31@ store_to 31@
    if and
    0021:   31@ > 180.0
    0023:   355.0 > 31@
    then //press left
    0B56: set_game_key 0 state -255
    //0B56: set_game_key 16 state 255
        if
        0023:   200.0 > 31@
        then
        0B56: set_game_key 6 state 255
        else
        0B56: set_game_key 6 state 0
        end                           
    else
        if and
        0021:   31@ > 5.0
        0033:   180.0 >= 31@ //lower or equal 
        then //press right 
        0B56: set_game_key 0 state 255
        //0B56: set_game_key 16 state 255
            if
            0021:   31@ > 160.0
            then
            0B56: set_game_key 6 state 255
            else
            0B56: set_game_key 6 state 0
            end
        else
        0B56: set_game_key 0 state 0
        0B56: set_game_key 6 state 0
        //0B56: set_game_key 16 state 255
        end
    end
0AB2: ret 0

:getZAngleBetweenPoints
0063: 0@ -= 2@
0063: 1@ -= 3@
0604: get_Z_angle_for_point 0@ 1@ store_to 4@
0AB2: 1 4@

:DRAW_TEXT_PLAYING
if
00DF:   actor $PLAYER_ACTOR driving
then
    03C0: 0@ = actor $PLAYER_ACTOR car
    0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0   
    0BFD: 31@ = get_global_var "font"
    0B55: convert_3D_coords 1@ 2@ 3@ to_screen 4@ 5@
    0B6B: 6@ = FONT 31@ TEXT "PLAYING" LENGTH
    6@ /= 2
    0062: 4@ -= 6@
    0B6F: FONT 31@ DRAW_TEXT "PLAYING" POS 4@ 5@ COLOR 0xFFFF0000
end
0AB2: 0

:DRAW_TEXT_RECORDING
if
00DF:   actor $PLAYER_ACTOR driving
then
    03C0: 0@ = actor $PLAYER_ACTOR car
    0407: 1@ 2@ 3@ CAR 0@ w_OFFSET 0.0 0.0 0.0   
    0BFD: 31@ = get_global_var "font"
    0B55: convert_3D_coords 1@ 2@ 3@ to_screen 4@ 5@
    0B6B: 6@ = FONT 31@ TEXT "RECORDING" LENGTH
    6@ /= 2
    0062: 4@ -= 6@
    0B6F: FONT 31@ DRAW_TEXT "RECORDING" POS 4@ 5@ COLOR 0xFFFF0000
end
0AB2: 0

:BRAKE
0@ = 0xB73458
0@ += 0xC
0A8C: write_memory 0@ size 1 value 255 virtual_protect 0
0AB2: 0

:GAS
0@ = 0xB73458
0@ += 0x20
0A8C: write_memory 0@ size 1 value 255 virtual_protect 0
0AB2: 0

:VehicleRecordingLoop
IF
30@ == TRUE
THEN
    30@ = FALSE
    0AF8: "{FF0000}Vehicle Recording:{FFFFFF} disabled looping." -1
ELSE
    30@ = TRUE
     0AF8: "{FF0000}Vehicle Recording:{FFFFFF} enabled looping." -1
END
0B43: samp cmd_ret

:VehicleRecording
0AF8: "{FF0000}Vehicle Recording:{FFFFFF} made by Opcode.eXe ;)" -1
0AF8: "{FF0000}Vehicle Recording:{FFFFFF} use O to start/stop recording." -1
0AF8: "{FF0000}Vehicle Recording:{FFFFFF} press P to play/stop the recorded path." -1
0AF8: "{FF0000}Vehicle Recording:{FFFFFF} write /VehicleRecordingLoop play it without stopping." -1
0B43: samp cmd_ret
 

Вложения

  • VehicleRecording.cs
    3 KB · Просмотры: 6
  • Нравится
Реакции: horacy
hxllstorm

hxllstorm

Новичок
8
2
Здравствуйте, закриптуйте пожалуйста мне LUA скрипт от любых проверок - аим by _scar Нужно чтобы в чекере на софт, не высвечивались слова из скрипта
photo_2021-04-24_15-17-53.jpg
 

Вложения

  • aimassist.luac
    21.7 KB · Просмотры: 7
c0rt

c0rt

Участник
24
3
седлайте так что бы бот нырял. я сделал что б он нажмил на левую кнопку мыши, а он не ныряет :(((
 

Вложения

  • BOT Vodolaz.lua
    5.1 KB · Просмотры: 6
A

Alexander_Kholod

Новичок
28
3
Приветствую, работяги. Можете помочь с изменением скрипта, буду благодарен.
Мне нужно: добавить игнор чата и диалога (По желанию если возможно)
И на цифру 4 узи вместо рифлы (Вот это нужнее)
Просто целый день искал, но похожий скрипт, который адекватно будет работать не нашёл.
Закину 2 скрипта один с $ другой без $
Ибо все мои попытки поставить узи вместо рифлы с $ писало: Неверный символ в идентификаторе.
 

Вложения

  • scroll_fastweap.cs
    18.5 KB · Просмотры: 3
  • scroll_fastweap со знаками $.cs
    26.2 KB · Просмотры: 4
MAHEKEH

MAHEKEH

Известный
1,989
494
Vahar написал(а):
седлайте так что бы бот нырял. я сделал что б он нажмил на левую кнопку мыши, а он не ныряет :(((
Нажмите для раскрытия...
Не знаю как в луа, но в клео достаточно проблематично сэмулировать нажатие клавиш мыши, попробуй сэмулировать cntrl, на эту клавишу персонаж тоже вроде ныряет ( или выставь в настройках )
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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