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