{$CLEO}
{$INCLUDE SF}
0000:
if not 0@ = Samp.Base()                    
then 0A93:
end

repeat
wait 0
until Samp.Available()

0BE3: raknet setup_incoming_rpc_hook @hook
0AC8: 26@ = allocate_memory_size 256
0AC8: 27@ = allocate_memory_size 256
0AC8: 28@ = allocate_memory_size 256
0AC8: 29@ = allocate_memory_size 256
                    

while true
wait 0
    if 22@ == 1
    then
    22@ = 0
    0AA5: call 0x8220AD num_params 3 pop 3 params 28@v " Вы купили 1 грамм за 20 вирт (У вас есть %d грамм)" 29@
    24@ = 150
    0062: 24@ -= 28@  // (int)
    0AC8: 23@ = allocate_memory_size 64
    0AD3: 23@ = format "/get drugs %d" 24@
    wait 1090 ms
    0AF9: samp say_msg 23@
    0AC9: free_allocated_memory 23@
    end
end                    

:hook
0BE5: raknet 25@ = get_hook_param PARAM_PACKETID
if 25@ == RPC_SCRCLIENTMESSAGE
then
0BE5: raknet 26@ = get_hook_param PARAM_BITSTREAM
0BE7: raknet 27@ = bit_stream_read 26@ type BS_TYPE_INT
0BE7: raknet 28@ = bit_stream_read 26@ type BS_TYPE_INT    
0BE8: raknet bit_stream 26@ read_array 29@ size 28@
0C0D: struct 29@ offset 28@ size 1 = 0  
    if
    0C29: 30@ = stristr string1 29@ string2 " Вы купили 1 грамм за 20 вирт (У вас есть"
    then
    22@ = 1
    0BE0: raknet hook_ret false
    end
end
0BE0: raknet hook_ret true

0AC9: free_allocated_memory 26@
0AC9: free_allocated_memory 27@
0AC9: free_allocated_memory 28@
0AC9: free_allocated_memory 29@