anchor.diff:  begin
     Result := '';
     if (Value > 0) then
  -    Result := Format('[color=yellow]%s@%d[/color]', [Sign, Value]);
  +    Result := Format('[color=dark yellow]%s@%d[/color]', [Sign, Value]);
   end;
   
   function TItems.RenderInvItem(X, Y, I: Integer; AItem: Item;
  
positive.code:     // Scroll of Hunger
      (Symbol: '?'; ItemType: itScroll; SlotType: stNone; MaxStack: 16;
      MaxDurability: 0; Level: 1;
      Price: 450; Color: clDarkYellow; Deep: [deDarkWood .. deDrom];
      Effects: [efFood]; Value: 400; ManaCost: 25;),
      // Scroll of Teleportation
      (Symbol: '?'; ItemType: itScroll; SlotType: stNone; MaxStack: 16;
      MaxDurability: 0; Level: 1;
      Price: 500; Color: clDarkRed; Deep: [deDarkWood .. deDrom];
      Effects: [efTeleportation]; Value: 5; ManaCost: 50;),
      // Scroll of Town Portal
      (Symbol: '?'; ItemType: itScroll; SlotType: stNone; MaxStack: 16;
      MaxDurability: 0; Level: 1;
      Price: 600; Color: clLightGreen; Deep: [deDarkWood .. deDrom];
      Effects: [efTownPortal]; Value: 0; ManaCost: 75;),
  
      // Rune of minor healing
      (Symbol: '*'; ItemType: itRune; SlotType: stNone; MaxStack: 3; Level: 2;
  
negative.code:     // Scroll
      if ((Math.RandomRange(0, M) >= 8) or AIsBoss) then
        Loot(AX, AY, TItemEnum(Math.RandomRange(Ord(iScrollOfMinorHealing),
          Ord(iScrollOfTownPortal) + 1)));
      // Item
      if (Math.RandomRange(0, M) >= 9) then
        Add(Map.Current, AX, AY, -1, AIsBoss);
  