anchor.diff:    end;
   end;
   
  -procedure TPlayer.RnItem(FItem: Item; const Index: Int);
  +procedure TPlayer.RnItem(FItem: Item;
  +
  +  const Index: Int);
   begin
     if (FItem.Durability = 0) then
     begin
  
positive.code:   BaseLife: UInt = 20;
    BaseMana: UInt = 10;
    BaseAttrib: UInt = 5;
    MaxLevel = 20;
    // Satiation
    StarvingMax = 500;
    SatiatedMax = 8000;
  
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;
  