anchor.diff:        FAttrib[I] := 0;
     end;
   
  -  function GetSkill(const Value: TItemType): TSkillEnum;
  +  function GetSkill(
  +
  +    const Value: TItemType): TSkillEnum;
     begin
       case Value of
         itBlade:
  
positive.code:   end;
  end;
  
  procedure TPlayer.RnItem(FItem: Item; const Index: Int);
  begin
    if (FItem.Durability = 0) then
    begin
  
negative.code:   I, FCount, Str, Dex, Wil, Per, Life, Mana: Int;
    FItem: Item;
  
    procedure AddAttrib(
  
      const AAttrib: TAttribEnum;
  
      const Value: UInt);
    begin
      FAttrib[AAttrib] := FAttrib[AAttrib] + Value;
    end;
  