anchor.diff:    end;
   end;
   
  +function TMapObject.GetIdx: integer;
  +begin
  +  Result := Index;
  +end;
  +
   function TMapObject.HasOptions: boolean;
   begin
     Result := Assigned(FOptions) and (FOptions.ClassType <> TObjectOptions);
  
positive.code: 
  procedure TMapObject.SetY(AValue: integer);
  begin
    if not GetMap.IsOnMap(FL, FX,AValue) then exit;
    if FY = AValue then Exit;
    FY := AValue;
    Changed;
  
negative.code: 
  procedure TMapObject.SetX(AValue: integer);
  begin
    if not GetMap.IsOnMap(FL, AValue,FY) then
    begin
      DebugLn('Invalid object X position '+IntToStr(AValue));
      exit;
    end;
    if FX = AValue then Exit;
    FX := AValue;
    Changed;
  