function [Movement, PickUp, PutDown]= MoveRobot(Position,Empty,Room)
	
	%move randomly:
	Step=10;
	Movement=round(rand(1,2)*(2*Step))-Step;
	PickUp=zeros(1,2);
	PutDown=zeros(1,2);

	%if we find an object:
	for a=-1:1
		for b=-1:1

			if all([Position(1)+a,Position(2)+b]>0) &  all([Position(1)+a,Position(2)+b]<(size(Room)+1))
			if Room(Position(1)+a,Position(2)+b)==1
				
				%and do not have object->carry it		
				if Empty==true
					PickUp=[a,b];
				else
				    for c=-1:1
					for d=-1:1

						if all([Position(1)+c,Position(2)+d]>0) &  all([Position(1)+c,Position(2)+d]<(size(Room)+1))
							if Room(Position(1)+c,Position(2)+d)==0
								PutDown=[c,d];
							end
						end
					end
				    end
				end
			end
		end
	end

end