anchor.diff:      FItemIsDrop: Boolean;
       FItemIndex: Integer;
       FItemAmount: Integer;
  +    FSatPerTurn: Byte;
       FIsRest: Boolean;
       procedure GenNPCText;
     public
  
positive.code:     // Miss
      MsgLog.Add(Format(_('You miss %s.'), [The]));
      // MsgLog.Add(Format(_('You fail to hurt %s.'), [The]));
    end;
    AddTurn;
  end;
  
negative.code: begin
    Turn := Turn + 1;
    if (Satiation > 0) then
      Satiation := Satiation - SatPerTurn;
    if (Satiation < StarvingMax) then
    begin
      Life := EnsureRange(Life - 1, 0, MaxLife);;
  