anchor.diff:      if (Items.GetItemEnum(AItem.ItemID) in EatItems) then
       begin
         Value := ItemBase[TItemEnum(AItem.ItemID)].Value;
  -      Player.Score := Player.Score + 1;
         Player.Food := Player.Food + Value;
         MsgLog.Add(Format(_('You have sated %d hunger.'), [Value]));
       end;
  
positive.code:     Self.Mana := EnsureRange(Self.Mana + V, 0, MaxMana);
      Self.Skill(skConcentration, 5);
    end;
  end;
  
  initialization
  
negative.code: var
    The: string;
    AItem: Item;
    I: TItemEnum;
  begin
    AItem := Items_Inventory_GetItem(Index);
    if (Items.GetItemEnum(AItem.ItemID) in NotEquipItems) then
    begin
      I := TItemEnum(AItem.ItemID);
      AItem.Amount := AItem.Amount - 1;
      The := GetDescThe(Items.GetName(I));
      case ItemBase[TItemEnum(AItem.ItemID)].ItemType of
        itPotion: MsgLog.Add(Format(_('You drink %s.'), [The]));
        itScroll: MsgLog.Add(Format(_('You read %s.'), [The]));
        itFood: MsgLog.Add(Format(_('You ate %s.'), [The]));
      end;
      DoEffects(ItemBase[I].Effects, ItemBase[I].Value);
      Items_Inventory_SetItem(Index, AItem);
      Self.Calc;
      Wait;
    end
    else
    begin
  