[SAMP-CLEO] getPickupByInfo

:getPickupByInfo
/*
    exm: 0ab1: call @getPickupByInfo 4 posx 0@ posy 1@ posz 2@ modelid 3@ return: pickupid 4@
*/

const
    SAMP_PICKUP_MAX = 4096
end

var
    3@ : int
    4@ : int
    5@ : int
    6@ : int
    7@ : int
end

4@ = SAMP.Base()
4@ += 0x212A2C

0A8D: 4@ = read_memory 4@ size 4 virtual_protect 0
4@ += 0x3D3
4@ += 0x1C
0A8D: 4@ = read_memory 4@ size 4 virtual_protect 0
4@ += 0x7000

for 5@ = 0 to SAMP_PICKUP_MAX step 1
    6@ = 4@
    0A8D: 7@ = read_memory 6@ size 4 virtual_protect 0
    if 7@ == 3@
    then
        6@ += 0x8
        0A8D: 7@ = read_memory 6@ size 4 virtual_protect 0
        6@ += 0x4
        0A8D: 8@ = read_memory 6@ size 4 virtual_protect 0
        0509: 9@ = distance_between_XY 0@ 1@ and_XY 7@ 8@
        if 9@ <= 5.0
    then break
    end
    end
    4@ += 0x14
end

0ab2: ret 1 5@