Как "вставить" активацию в cleo скрипт?

Статус
В этой теме нельзя размещать новые ответы.

Maodonna

Новичок
Автор темы
2
0
CLEO:
{$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
Нужно сделать активацию по команде / чит коду, попробовал по ютубу и гайдам - не получилось, крашит. Помогите, кто может, я в этой теме 🥺 полный помидор. Скрипт - https://www.blast.hk/threads/31214/
 
Решение
/fisting

CLEO:
{$CLEO}
{$INCLUDE SF}
{$USE bitwise}
0000:

WHILE NOT SAMP.Available()
    0001: 0
END

0BE1: raknet setup_outcoming_rpc_hook @HOOK
0B34: samp register_client_command "fisting" to_label @activation // менять тут
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 AND
            5@ == 0
            31@...

D3.Pheonix

🎹
Модератор
2,868
1,646
/fisting

CLEO:
{$CLEO}
{$INCLUDE SF}
{$USE bitwise}
0000:

WHILE NOT SAMP.Available()
    0001: 0
END

0BE1: raknet setup_outcoming_rpc_hook @HOOK
0B34: samp register_client_command "fisting" to_label @activation // менять тут
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 AND
            5@ == 0
            31@ == 1
            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

:activation
0B12: 31@ = 31@ XOR 1
if 31@ == 1
then
print "ANTI FISTING ~g~ON" 500
else
print "ANTI FISTING ~r~OFF" 500
end
0B43: samp cmd_ret
 
  • Нравится
Реакции: Lance_Sterling
Статус
В этой теме нельзя размещать новые ответы.