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

[FYP]

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

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

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

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

 

[randazzo]

@Usik.dm

 

[Usik.dm]

@Usik.dm

 

[randazzo]

выше полный код скрипта, просто скомпилируй и все.

 

[ApeslPeft]

Помогите, почему скрипт работает 1 раз?

 

[Usik.dm]

выше полный код скрипта, просто скомпилируй и все.

 

[DarkL1ght]

Помогите, почему скрипт работает 1 раз?

0A93: end_custom_thread
0A93: end_custom_thread

{$CLEO .cs}
0000: NOP
repeat
wait 0
until samp.Available()
0B34: samp register_client_command "tpm" to_label @tpm

repeat
wait 0
    if 0@ == 1
    then
        if 0AB6: store_target_marker_coords_to 1@ 2@ 3@
            then
                if actor.Driving($PLAYER_ACTOR)
                then
                03CB: set_rendering_origin_at 1@ 2@ 3@
                actor.PutAt($PLAYER_ACTOR, 1@, 2@, -999.0)
                wait 0
                actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
            else
            chatmsg "Нужно быть в авто" -1
            end
        else
        chatmsg "Не поставлена метка на карте!" -1
        end
    0@ = 0
end
until false

:tpm
0@ = 1
Samp.CmdRet()

Че это за хуйня

 

[randazzo]

@Usik.dm нет, не правильно, зачем что-то менять, если там уже есть рабочий вариант?

 

[Usik.dm]

В чём проблема?

:Noname_1049
0B35: samp 0@ = get_last_command_params
00D6: if
0AD4: 0@ = scan_string 0@ format "%d" 1@
THEN 30@ = true
IF 30@ == true
THEN
0AF9: samp say_msg "/usedrugs %d" 1@
wait 1000
01B6: set_weather 1
wait 59000
0AF8: "Use!" color -1
30@ = false
END
END
004D: jump_if_false @Noname_2971
0B43: samp cmd_ret

 

[randazzo]

В чём проблема?

:Noname_1049
0B35: samp 0@ = get_last_command_params
00D6: if
0AD4: 0@ = scan_string 0@ format "%d" 1@
THEN 30@ = true
IF 30@ == true
THEN
0AF9: samp say_msg "/usedrugs %d" 1@
wait 1000
01B6: set_weather 1
wait 59000
0AF8: "Use!" color -1
30@ = false
END
END
004D: jump_if_false @Noname_2971
0B43: samp cmd_ret

в том, что нельзя использовать задержки в теле команды

 

[DarkL1ght]

В чём проблема?

:Noname_1049
0B35: samp 0@ = get_last_command_params
00D6: if
0AD4: 0@ = scan_string 0@ format "%d" 1@
THEN 30@ = true
IF 30@ == true
THEN
0AF9: samp say_msg "/usedrugs %d" 1@
wait 1000
01B6: set_weather 1
wait 59000
0AF8: "Use!" color -1
30@ = false
END
END
004D: jump_if_false @Noname_2971
0B43: samp cmd_ret

{$CLEO .cs}
0000: NOP
repeat
wait 0
until samp.Available()
0B34: samp register_client_command "cmd" to_label @cmd

repeat
wait 0
    if 0@ == 1
    then
        samp.IsCommandTyped(1@)
        if 0AD4: 2@ = scan_string 1@ format "%d" 3@
        then
            0AF9: samp say_msg "/usedrugs %d" 3@
            wait 1000
            01B6: set_weather 1
            wait 59000
            chatmsg "Use!" -1
        else
        chatmsg "Используй: /cmd [кол-во]" -1
        end
    0@ = 0
end
until false

:cmd
0@ = 1
samp.CmdRet()

Че это за хуйня

 

[Удалённый пользователь 187284]

Посоны, посоны. Помогите, а? Вот в этом скрипте надо клавиши поменять на "R" и "V" (Скрипт делит бибикалку и гидравлику). Спасибо заранее.

 

[DarkL1ght]

Посоны, посоны. Помогите, а? Вот в этом скрипте надо клавиши поменять на "R" и "V" (Скрипт делит бибикалку и гидравлику). Спасибо заранее.

{$CLEO}
0000:
while true
    wait 0
    Actor.Driving($PLAYER_ACTOR)
    jf continue
    0@ = Actor.CurrentCar($PLAYER_ACTOR)
    0803:   car 0@ have_hydraulics
    jf continue
    0A97: 1@ = car 0@ struct
    1@ += 0x514
    if and
    0AB0:   key_pressed 82 {R or r}
    0AB0:   key_pressed 86 {V or v}
    then
        0A8C: write_memory 1@ size 1 value 1 virtual_protect 1
    else
        0A8C: write_memory 1@ size 1 value 0 virtual_protect 1
    end
end

 

[ApeslPeft]

Кто может скинуть скрипт определение чекпоинта?

 

[grandpafromghetto]

Кто может скинуть скрипт определение чекпоинта?

определение координат чекпоинта или что?

 

[ApeslPeft]

определение координат чекпоинта или что?

Мне надо определить координаты чекпоинта чтоб актер потом побежал на него