{$CLEO}
0000:
if 0@ = SAMP.Base()
then
while not SAMP.Available()
wait 500
end
0B34: samp register_client_command "sendpic" to_label @sendpic
else end_thread
end
const
RPC_PICKEDUPPICKUP = 0x92
UNRELIABLE_SEQUENCED = 1
PRIORITY_HIGH = 1
end
while true
wait 0
end
:sendpic
0B35: samp 2@ = get_last_command_params
if
0AD4: 2@ = scan_string 2@ "%d" 3@
then
0ab1: @pickup 1 3@
end
0B43: samp cmd_ret
:pickup
1@ = Raknet.NewBitStream()
Raknet.Write(1@, 0@, BS_TYPE_INT, 4)
Raknet.RPC(RPC_PICKEDUPPICKUP, 1@, PRIORITY_HIGH, UNRELIABLE_SEQUENCED, 0, false)
Raknet.DeleteBitStream(1@)
0ab2: 0