anchor.diff:    Result := CanShootOrCastSpell(I);
   end;
   
  -function TPlayer.CanShootOrCastSpell(var AItem: Item): Boolean;
  +function TPlayer.CanShootOrCastSpell(
  +
  +  var AItem: Item): Boolean;
   begin
     Result := False;
     if not IsDead and Self.EqItem(stMainHand, AItem) then
  
positive.code:   Trollhunter.Mob.Types, Trollhunter.Mob.Base;
  
  const
    NextExp: array [1 .. MaxLevel] of Int = (10, 10, 20, 30, 30, 100, 200, 300, 300, 1000, 2000, 3000, 3000, 10000, 20000, 30000, 30000, 100000,
      200000, 300000);
  
    { TPlayer }
  
  
negative.code:   end;
  end;
  
  procedure TPlayer.RnItem(FItem: Item;
  
    const Index: Int);
  begin
    if (FItem.Durability = 0) then
    begin
  