	//schlaeger


	if schlx<schlzx then
		begin
		 schlx:=schlx+3;
		end;
	if schlx>schlzx then
		begin
		 schlx:=schlx-3;
		end;

		
    :DrawShape(MakeRect(schx-7,schy,schx+5,schy+5), 
			{fillPattern: 1}); 

 