{$CLEO}
{$INCLUDE SF}
0000: NOP
wait 2000
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
////////////////////////////////////
if
0C18: 7@ = strstr string1 4@ string2 "Дарова" //-Текст в чате
then
say "Соси до пол второго" //-Ответ
end
////////////////////////////////////