{$CLEO}
0000:

REPEAT
0001: 0
UNTIL 0AFA:
0BB9: samp 0@ = get_pickup_pool_ptr
alloc 31@ 256
20@ = Render.CreateFont("arial", 10, 12)
WHILE TRUE
0001: 0

    FOR 1@ = 0 TO {MAX_PICKUPS}4096 [STEP = 1]
        IF 0B51: samp 2@ = pickup_handle_by_id 1@
        THEN     
        0A90: 2@ = 1@ * 20
        000A: 2@ += 61444
        000A: 2@ += 0@ // stPickup
        0A8D: 3@ = read_memory 2@ size 4 virtual_protect TRUE // iModelID
            IF and
            3@ >= 19054
            3@ <= 19058
            THEN    
            0C0C: 3@ = struct 2@ offset 8 size 4 // X
            0C0C: 4@ = struct 2@ offset 12 size 4 // Y
            0C0C: 5@ = struct 2@ offset 16 size 4 // Z    
                IF 00C2:   sphere_onscreen 3@ 4@ 5@ radius 5.0
                THEN  
                00A0: store_actor $PLAYER_ACTOR position_to 15@ 16@ 17@
                050A: 21@ = distance_between_XYZ 15@ 16@ 17@ and_XYZ 3@ 4@ 5@                    
                0B55: convert_3D_coords 3@ 4@ 5@ to_screen 3@ 4@     
                00A0: store_actor $PLAYER_ACTOR position_to 5@ 6@ 7@    
                0B55: convert_3D_coords 5@ 6@ 7@ to_screen 5@ 6@
       
                0B68: render draw_line_point1 5@ 6@ point2 3@ 4@ width 1 color 0xFFFFA500
                03F0: enable_text_draw 1 // ????? ?????, ????? ????? ?? ??????, ??? ????? ????????? ? ???? ????????.
               // 0B5A: get_screen_resolution 20@ 21@ // ???????? ?????????? ??????.
                //0B6F: render font 12@ draw_text "GodFatherProject" pos 3@ 4@ color 0xFFFF3300 // ????????? ??????      
                0092: 21@ = float 21@ to_integer     
                format 31@ "distance:  %i m" 21@
                Render.DrawText(20@, 31@, 3@, 4@, -1)
                END   
            END
        END
    END
    
END