{$CLEO}
{$INCLUDE SF}
0000:

repeat
wait 0
until Samp.Available()
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 1@ = get_hook_param PARAM_BITSTREAM
0BE9: raknet bit_stream 1@ reset_read_pointer
0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_BOOL // GiveTake
    if 2@ == 0 // Если урон нанесли мы
    then
    0BE7: raknet 3@ = bit_stream_read 1@ type BS_TYPE_SHORT // читаем ид игрока
    0BE7: raknet 4@ = bit_stream_read 1@ type BS_TYPE_FLOAT  // читаем кол-во урона
    chatmsg "Нанесён урон игроку %d. Количество: %f" -1 3@ 4@
    end
end
0BE0: raknet hook_ret true