anchor.diff:  
   procedure TMapObject.SetY(AValue: integer);
   begin
  -  if not GetMap.IsOnMap(FL, FX,AValue) then exit;
  +  if not GetMap.IsOnMap(FL, FX,AValue) then
  +  begin
  +    DebugLn('Invalid object Y position '+IntToStr(AValue));
  +    exit;
  +  end;
  +
     if FY = AValue then Exit;
     FY := AValue;
     Changed;
  
positive.code:     FTemplateID: integer;
      FX: integer;
      FY: integer;
      function GetPlayer: TPlayer; inline;
      procedure Render(Frame:integer; Ax,Ay: integer);
      procedure SetL(AValue: integer);
  
negative.code:     function HasOptions: boolean;
  
    published
      property Index;
      property X:integer read FX write SetX;
      property Y:integer read FY write SetY;
      property L:integer read FL write SetL;
  