anchor.diff:    end;
   
   const
  -  BaseItemsAmount = 8;
  +  BaseItemsAmount = 9;
   
   const
     ItemBase: array [0..BaseItemsAmount - 1] of TItemBase = (
     (ID: 1;  Char: '('; Color: 10; MaxDurability: 30; Name: 'Short Sword'),
  -  (ID: 2;  Char: '/'; Color: 11; MaxDurability: 35; Name: 'Long Sword'),
  -  (ID: 3;  Char: '('; Color: 12; MaxDurability: 25; Name: 'Dark Axe'),
  -  (ID: 4;  Char: '}'; Color: 13; MaxDurability: 10; Name: 'Short Bow'),
  -  (ID: 5;  Char: '\'; Color: 14; MaxDurability: 12; Name: 'Spear'),
  -  (ID: 6;  Char: '$'; Color: 14; MaxDurability:  0; Name: 'Gold'),
  -  (ID: 7;  Char: '`'; Color: 14; MaxDurability:  0; Name: 'Key'),
  -  (ID: 8;  Char: '"'; Color: 14; MaxDurability:  0; Name: 'Arrows')
  +  (ID: 2;  Char: '/'; Color: 11; MaxDurability: 30; Name: 'Long Staff'),
  +  (ID: 3;  Char: '('; Color: 11; MaxDurability: 35; Name: 'Dark Axe'),
  +  (ID: 4;  Char: '/'; Color: 12; MaxDurability: 45; Name: 'Long Sword'),
  +  (ID: 5;  Char: '}'; Color: 13; MaxDurability: 10; Name: 'Short Bow'),
  +  (ID: 6;  Char: '\'; Color: 14; MaxDurability: 12; Name: 'Spear'),
  +  (ID: 7;  Char: '$'; Color: 14; MaxDurability:  0; Name: 'Gold'),
  +  (ID: 8;  Char: '`'; Color: 14; MaxDurability:  0; Name: 'Key'),
  +  (ID: 9;  Char: '"'; Color: 14; MaxDurability:  0; Name: 'Arrows')
     );
   
     procedure AddRandomItems(MapID, C: Integer);
  
positive.code:       FItem.Y := Math.RandomRange(1, MapHeight - 1);
        case FItem.ItemID of
          // Weapons
          6: // Gold
          begin
            FItem.Stack := 10;
            FItem.Amount := Math.RandomRange(0, 25) + 1;
          end;
          7: // Key
          begin
            FItem.Stack := 5;
            FItem.Amount := Math.RandomRange(0, 5) + 1;
          end;
          8: // Arrows
          begin
            FItem.Stack := 50;
            FItem.Amount := Math.RandomRange(0, 100) + 1;
  
negative.code:       else
          S := '(' + IntToStr(AItem.Durability) + '/' + IntToStr(ItemBase[N].MaxDurability) + ')';
      ConioEngineWriteString(X, Y, '[' + Chr(I + 97) + ']', 15);
      ConioEngineWriteString(X + 4, Y, ItemBase[N].Name, ItemBase[N].Color);
      ConioEngineWriteString(X + Length(ItemBase[N].Name) + 5, Y, S, 8);
    end;
  
  