anchor.diff:    Items_Dungeon_AppendItem(FItem);
   end;
   
  -constructor TItems.Create;
  -begin
  -  Items_Open;
  -end;
  -
  -destructor TItems.Destroy;
  -begin
  -  Items_Close;
  -  inherited;
  -end;
  -
  -    {
  -      iRustySword:
  -
  -      // Broadsword, Hilted Sword, Longsword, Bastard Sword
  -      iShortSword: // Combat Sword, War Sword, Claymore, Ebony Sword
  -      Result := _('Short Sword'); // Rusty Iron Wood-Chopping Axe, Battle Axe,
  -
  -      // Gray Cave                  // Phantom Axe, Dwarven Battle Axe, War Axe
  -      iItemA: // Feathered Spear, Bronze Spear, Rusted Spear
  -      Result := _('Item A'); // Small Dagger, a Rusty Dagger, Flying Dagger
  -      // Deep Cave                  // Sharpened Daggers, Gemmed Dagger, Carving Knife
  -      iItemB: // Boot Knife, Target Knife, Throwing Spike
  -      Result := _('Item B'); // Rapier, Sabre,
  -    }
  -// Dull
  -// Rusty, Chipped
  -// Low Quality, Medium Quality, High Quality
  -// Fine, Double Bladed, Enchanted
  -// Bronze, Iron, Steel
  -
  -// Short Bow, Battle Bow, Long Bow, Elven Long Bow
  -// Hunter's Bow, Ranger's Bow, Elvish Longbow, Compound Bow
  -
  -// Tunic, Chainmail, Platemail
  -// Padded clothing, Chitin armor, Bone armor, Light armor,
  -// Medium armor, Mail hauberk, Brigandine,
  -// Heavy armor, Plate armor,
  -
  -function TItems.GetName(AItem: TItemEnum): string;
  -begin
  -  case AItem of
  -    // == All maps == //
  -    // Gold
  -    iGold:
  -      Result := _('Gold');
  -    // Health Potion
  -    iMinHPot:
  -      Result := _('Potion of health');
  -    // Mana Potion  
  -    iMinMPot:
  -      Result := _('Potion of mana');
  -
  -    // == Dark Wood == //
  -
  -    // Blade
  -    iRustySword:
  -      Result := _('Rusty Sword');
  -    iShortSword:
  -      Result := _('Short Sword');
  -    // Axe
  -    iHatchet:
  -      Result := _('Hatchet');
  -    iBattleaxe:
  -      Result := _('Battleaxe');
  -    // Spear
  -    iShortSpear:
  -      Result := _('Short Spear');
  -    iSpear:
  -      Result := _('Spear');
  -    // Mace
  -    iHeavyBranch:
  -      Result := _('Heavy Branch');
  -    iSpikedCudgel:
  -      Result := _('Spiked Cudgel');
  -
  -    // == Gray Cave == //
  -
  -    // Blade
  -    iBroadSword:
  -      Result := _('Broad Sword');
  -    iLongSword:
  -      Result := _('Long Sword');
  -    // Axe
  -    iMeatAxe:
  -      Result := _('Meat Axe');
  -    iFleshTearer:
  -      Result := _('Flesh Tearer');
  -    // Spear
  -    iJavelin:
  -      Result := _('Javelin');
  -    iFuscina:
  -      Result := _('Fuscina');
  -    // Mace
  -    iWarhammer:
  -      Result := _('Warhammer');
  -    iWarMace:
  -      Result := _('War Mace');
  -
  -       // == Deep Cave == //
  -
  -    // Blade
  -    iMoonBlade:
  -      Result := _('Moon Blade');
  -    iSwordOfTheJackal:
  -      Result := _('Sword Of The Jackal');
  -    // Axe
  -    iRubyAxe:
  -      Result := _('Ruby Axe');
  -    iDarkAxe:
  -      Result := _('Dark Axe');
  -    // Spear
  -    iWarSpear:
  -      Result := _('War Spear');
  -    iHarpoon:
  -      Result := _('Harpoon');
  -    // Mace
  -    iFlangedMace:
  -      Result := _('Flanged Mace');
  -    iWarGavel:
  -      Result := _('War Gavel');
  -
  -    // == Blood Cave == //
  -    // Blade
  -    iBastardSword:
  -      Result := _('Bastard Sword');
  -    iGreatSword:
  -      Result := _('Great Sword');
  -    // Axe
  -    iBerserkerAxe:
  -      Result := _('Berserker Axe');
  -    iMarauderAxe:
  -      Result := _('Marauder Axe');
  -    // Spear
  -    iSilvanWhisper:
  -      Result := _('Silvan Whisper');
  -    iImpaler:
  -      Result := _('Impaler');
  -    // Mace
  -    iBarbarousMace:
  -      Result := _('Barbarous Mace');
  -    iAdeptHammer:
  -      Result := _('Adept Hammer');
  -
  -  end;
  -end;
  -
   procedure TItems.Render(AX, AY: Byte);
   var
     MapID, X, Y: Byte;
  
positive.code:   end;
  end;
  
  initialization
  
  Items := TItems.Create;
  
negative.code:     Color: clDarkRed; Deep: deBloodCave;),
      // Adept Hammer
      (Symbol: ')'; ItemType: itMace; MaxStack: 1; MaxDurability: 65;
      Color: clDarkRed; Deep: deBloodCave;),
  
      // == Dungeon of Doom == //
  
      // Rune Sword
      (Symbol: '/'; ItemType: itBlade; MaxStack: 1; MaxDurability: 70;
      Color: clDarkRed; Deep: deDungeonOfDoom;),
      // Troll Slayer,
      (Symbol: '/'; ItemType: itBlade; MaxStack: 1; MaxDurability: 75;
      Color: clDarkRed; Deep: deDungeonOfDoom;),
      // Chopper
      (Symbol: '('; ItemType: itAxe; MaxStack: 1; MaxDurability: 70;
      Color: clDarkRed; Deep: deDungeonOfDoom;),
      // Demon Axe,
      (Symbol: '('; ItemType: itAxe; MaxStack: 1; MaxDurability: 75;
      Color: clDarkRed; Deep: deDungeonOfDoom;),
      // Soul Reaver
      (Symbol: '|'; ItemType: itSpear; MaxStack: 1; MaxDurability: 70;
      Color: clDarkRed; Deep: deDungeonOfDoom;),
      // Keeper Of Eternal Flame,
      (Symbol: '|'; ItemType: itSpear; MaxStack: 1; MaxDurability: 75;
      Color: clDarkRed; Deep: deDungeonOfDoom;),
      // Ogre Morning Star
      (Symbol: ')'; ItemType: itMace; MaxStack: 1; MaxDurability: 70;
      Color: clDarkRed; Deep: deDungeonOfDoom;),
      // Bone Of The Higher
      (Symbol: ')'; ItemType: itMace; MaxStack: 1; MaxDurability: 75;
      Color: clDarkRed; Deep: deDungeonOfDoom;)
  
      );
  
  type
    TItems = class(TObject)
    public
      constructor Create;
      destructor Destroy; override;
  