{$CLEO .cs}
     0000:
      wait 1500 // time for loading
      newcmd "Searchobject" @activate

      WHILE TRUE
       wait 0
        if 0@ == true
          then
          repeat
             wait 0
             print "~b~Searching..." 1500
             astorepos $player_actor 1@ 2@ 3@
              0AE3: 0@ = random_object_near_point 1@ 2@ 3@ in_radius 150.0 find_next 1     
              0B52: samp 4@ = object_id_by_handle 0@
                   if 4@ == 1603 // object ID
                     then
                       01BB: store_object 0@ position_to 1@ 2@ 3@
                       00A1: put_actor $PLAYER_ACTOR at 1@ 2@ 3@
                       0@ = false
                     end                 
           until 0@ = false
           print "Your are found object" 1500
          end
      END

       :activate
        if 0@ == false
         then           
           0@ = true
           print "Cleo ~g~activated" 1500
         else
           0@ = false
           print "Cleo ~r~deactivated" 1500
         end
       cmdret