anchor.diff:  
       function CoversTile(ALevel, AX, AY: Integer): boolean;
   
  +    function HasOptions: boolean;
  +
     published
       property X:integer read FX write SetX;
       property Y:integer read FY write SetY;
  
positive.code: 
      property TemplateID: integer read FTemplateID write SetTemplateID;
  
      property Options: TObjectOptions read FOptions;
    end;
  
    { TObjPriorityCompare }
  
negative.code:   begin
      Result := TPlayer.none;
    end;
  end;
  
  function TMapObject.HasOptions: boolean;
  begin
    Result := Assigned(FOptions) and (FOptions.ClassType <> TObjectOptions);
  end;
  
  procedure TMapObject.Render(Frame: integer);
  