{$CLEO .cs}
0000:

repeat
wait 0
until 0AFA:  is_samp_available

while true
wait 0
      if   
      0ab0: 52 // 4
      not Samp.ChatInputOpened    
      then
      gosub @finding_object
      end
end

:finding_object      
while true
wait 0
      if 10@ == 0
      then
      Actor.StorePos($PLAYER_ACTOR, 1@ 2@ 3@)
      0AE3: 0@ = random_object_near_point 1@ 2@ 3@ in_radius 200.0 find_next 0
      else
      0AE3: 0@ = random_object_near_point 1@ 2@ 3@ in_radius 200.0 find_next 1
      end
      if   
      03CA:   object 0@ exists   
      then   
          9@ = Object.Model(0@)    
          if
          9@ == 1273
          then    
          0acd: "Pickup ~g~found!" 1000     
          0188: 8@ = create_marker_above_object 0@
          wait 1000
          0164: disable_marker 8@     
          return     
          else 10@ = 1
          end
      else   
      10@ = 0
      end      
      if and
      not Samp.ChatInputOpened
      0ab0: 53 // 5
      then
      10@ = 0
      return
      end
      0acd: "Pickup ~r~finding" 500
end