Помогите сделать

[molimawka]

Пробую писать клео на подарки для arizona rp (no rekl). Телепорты написал но нужна проверка для чата, типо когда сервер пишет "[ Подсказка ] Где-то недалеко от вас появились подарки!" начался телепорт, я просто не знаю как с hook работать. Помогите плз.

 

[hnnssy]

ариз*ны

класс

 

[iTz_WEEZY]

не знаю как с hook работать

c хуками хуево работать

 

[byShiz0]

arizona rp (no rekl)

reklama ban

 

[molimawka]

reklama ban

xaxa smewno xD

 

[molimawka]

Возьми исходник бота-автоответчика админам, вырежи проверку на фразы.

спс за идею

 

[molimawka]

крашит хз почему

{$CLEO}
{$INCLUDE SF}
0000: NOP

repeat
wait 0
until SAMP.Available()

alloc 4@ 256
0c11: memset 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage

while true
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
    0C0F: array 4@ element 3@ = 0x00
end
:TP
wait 0
if
0C18: 7@ = strstr string1 4@ string2 "подарки"
then
Actor.PutAt($Player_Actor, 2720.0, 1736.19, 42.5968)
wait 3000
Actor.PutAt($Player_Actor, 1866.09, 1604.56, 13.5391)
jump @TP
end

 

[san0]

крашит хз почему

{$CLEO}
{$INCLUDE SF}
0000: NOP

repeat
wait 0
until SAMP.Available()

alloc 4@ 256
0c11: memset 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage

while true
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
    0C0F: array 4@ element 3@ = 0x00
end
:TP
wait 0
if
0C18: 7@ = strstr string1 4@ string2 "подарки"
then
Actor.PutAt($Player_Actor, 2720.0, 1736.19, 42.5968)
wait 3000
Actor.PutAt($Player_Actor, 1866.09, 1604.56, 13.5391)
jump @TP
end

Полный пиздец, почитай вики и справку сб

 

[molimawka]

Полный пиздец, почитай вики и справку сб

я это не писал, а нашол на бх. В описании написал что мне нужно

epeat
wait 0
until SAMP.Available()

alloc 4@ 256
0c11: memset 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage

while true
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
    0C0F: array 4@ element 3@ = 0x00

 

[molimawka]

а этот как норм?

{$CLEO}
{$INCLUDE SF}
0000:

0001: wait 0 ms

while not SAMP.Available()
    wait 400
end

0BE3: raknet setup_incoming_rpc_hook @in_rpc

0@ = 0
0BFA: push_vars
while true
    wait 0
    0BFB: pop_vars
    0@++
    0AD1: show_formatted_text_highpriority "~p~Count ~g~%d" time 0 0@
    0BFA: push_vars
end

:in_rpc                  
0BE5: raknet 0@ = get_hook_param PARAM_PACKETID
if 0@ == RPC_SCRCLIENTMESSAGE
then
    0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_INT
    0BE7: raknet 3@ = bit_stream_read 1@ type BS_TYPE_INT
   
    0AC8: 4@ = allocate_memory_size 145
    0BE8: raknet bit_stream 1@ read_array 4@ size 3@
    0C0D: struct 4@ offset 3@ size 1 = 0

    0C29: 5@ = stristr string1 4@ string2 "привет"
    if 5@ <> 0
    then
        0AF9: samp say_msg "Здрасьте"
    end

    0AC9: free_allocated_memory 4@
end
0BE0: raknet hook_ret true

 

[molimawka]

помогите сделать етот телепорт компактнее p.s. просто там еще 80 кординат

    0AF6: samp spawn_player
    wait 500
    Actor.PutAt($Player_Actor, 0, 0, 5.00)
    wait 200
    Actor.PutAt($Player_Actor, 2720.0, -1736.19, 42.5968)
    wait 3000
    0AF6: samp spawn_player
    wait 500
    Actor.PutAt($Player_Actor, 0, 0, 5.00)
    wait 200
    Actor.PutAt($Player_Actor, 2720.0, -1736.19, 42.5968)
    wait 3000
    jump @in_rpc
    end