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

repeat
    wait 400
until Samp.Available()

0B6D: render 5@ = create_font "Segoe UI" height 8 flags 13
0B6D: render 6@ = create_font "Segoe UI" height 12 flags 13
0B34: samp register_client_command "pumpkin" to_label @pumpkin
0AC8: 0@ = allocate_memory_size 260

while true
wait 0
    if 1@ == 1                    
    then
    2@ = 0
        for 31@ = 0 to 4096
        19@ = 0x9788C0
            if 0B51: samp 30@ = pickup_handle_by_id 31@
            then                       
            065B: store_pickup 30@ position_to 29@ 28@ 27@
            Actor.StorePos($PLAYER_ACTOR, 26@, 25@, 24@)
            0B55: convert_3D_coords 29@ 28@ 27@ to_screen 23@ 22@                    
            0A8E: 16@ = 19@ + 24                    //model id
            0A8D: 15@ = read_memory 16@ size 2 virtual_protect 0    //model id  
            050A: 13@ = distance_between_XYZ 26@ 25@ 24@ and_XYZ 29@ 28@ 27@
            0092: 13@ = float 13@ to_integer    
                if 15@ == 19320
                then
                2@ += 1   
                    if 00C2:   sphere_onscreen 29@ 28@ 27@  radius 0.0
                    then
                    format 0@ "Тыква (%i m) " 13@
                    0B70: render draw_polygon_pos 23@ 22@ size 3 3 corners 7 rotation 0 color 0xbafff000
                    23@ += 5
                    22@ -= 7  
                    0B6F: render font 5@ draw_text 0@ pos 23@ 22@ color 0xcaf4f4c1
                    end
                end
            end
        end
        format 0@ "Рядом %i тыкв(ы)" 2@
        0B60: convert_game_screen_coords 1077143939 1134338048 to_window_screen_coords 23@ 22@
        0B6F: render font 6@ draw_text 0@ pos 23@ 22@ color 0xcaf4f4c1
    end
end

:pumpkin
0B12: 1@ = 1@ XOR 1
if 1@ == 1
then
0AD1: "Pumpkin WH ~G~ON" 1000
else
0AD1: "Pumpkin WH ~R~OFF" 1000
end
cmdret