{$CLEO}
{$INCLUDE SF}
0000:

repeat
wait 0
until Samp.Available()
0BE3: raknet setup_incoming_rpc_hook @hook
0BE3: raknet setup_incoming_rpc_hook @RPC_SCRCLIENTMESSAGE
0BDE: pause_thread 0

:hook
0BE5: raknet 10@ = get_hook_param PARAM_PACKETID
if 10@ == RPC_SCRCLIENTMESSAGE
then
0BE5: raknet 11@ = get_hook_param PARAM_BITSTREAM
0BE7: raknet 12@ = bit_stream_read 11@ type BS_TYPE_INT
0BE7: raknet 13@ = bit_stream_read 11@ type BS_TYPE_INT
0AC8: 14@ = allocate_memory_size 256
0BE8: raknet bit_stream 11@ read_array 14@ size 13@
0C0D: struct 14@ offset 13@ size 1 = 0
    if 0AD4: 4@ = scan_string 14@ format " (( Остаток: %d грамм ))" 1@ //IF and SET
    then
    0ACF: show_formatted_styled_text "~y~You have ~n~ ~b~%d~g~Drugs" time 5000 style 2 1@
    end
end
0BE0: raknet hook_ret true

:RPC_SCRCLIENTMESSAGE
0BE5: raknet 10@ = get_hook_param PARAM_PACKETID
if 10@ == RPC_SCRCLIENTMESSAGE
then
    0BE5: raknet 11@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 12@ = bit_stream_read 11@ type BS_TYPE_INT
    0BE7: raknet 13@ = bit_stream_read 11@ type BS_TYPE_INT
    0AC8: 14@ = allocate_memory_size 256
    0BE8: raknet bit_stream 11@ read_array 14@ size 13@
    0C0D: struct 14@ offset 13@ size 1 = 0
    if 0C29: 15@ = stristr string1 14@ string2 "(( Остаток:"
    then
        0AC9: free_allocated_memory 14@
        0BE0: raknet hook_ret false
    else
    0AC9: free_allocated_memory 14@
    end
end
0BE0: raknet hook_ret true