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:     iGold, iMinHPot, iMinMPot,
      // Dark Wood
      iRustySword, iShortSword, // Blade
      iHatchet, iBattleaxe, // Axe
      iShortSpear, iSpear, // Spear
      iHeavyBranch, iSpikedCudgel, // Mace
      // Gray Cave
      iBroadSword, iLongSword,            // Blade
      iMeatAxe,  iFleshTearer,              // Axe
      iJavelin, iFuscina,                 // Spear
      iWarhammer, iWarMace,               // Mace
      // Deep Cave
      iMoonBlade, iSwordOfTheJackal,      // Blade
      iRubyAxe, iDarkAxe,                  // Axe
      iWarSpear, iHarpoon,                // Spear
      iFlangedMace, iWarGavel,            // Mace
      // Blood Cave
      iBastardSword, iGreatSword,          // Blade
      iBerserkerAxe, iMarauderAxe,            // Axe
      iSilvanWhisper, iImpaler,           // Spear
      iBarbarousMace, iAdeptHammer{,}       // Mace
  {      // Dungeon of Doom
        iRuneSword, iTrollSlayer,          // Blade
        iChopper, iDemonAxe,            // Axe
        iSoulReaver, iKeeperOfEternalFlame, // Spear
        iOgreMorningStar, iBoneOfTheHigher  // Mace
      }
      );
  
  const
  
negative.code:   end;
  end;
  
  constructor TItems.Create;
  begin
    Items_Open;
  end;
  
  destructor TItems.Destroy;
  begin
    Items_Close;
    inherited;
  end;
  
  // Broadsword, Hilted Sword, Longsword, Bastard Sword
  // Combat Sword, War Sword, Claymore, Ebony Sword
  // Rusty Iron Wood-Chopping Axe, Battle Axe,
  
  // Phantom Axe, Dwarven Battle Axe, War Axe
  // Feathered Spear, Bronze Spear, Rusted Spear
  // Small Dagger, a Rusty Dagger, Flying Dagger
  // Sharpened Daggers, Gemmed Dagger, Carving Knife
  // Boot Knife, Target Knife, Throwing Spike
  // Rapier, Sabre,
  
  // 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 := _('Battle Axe');
      // 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');
  
      // == Dungeon of Doom == //
  
      // Blade
      iRuneSword:
        Result := _('Rune Sword');
      iTrollSlayer:
        Result := _('Troll Slayer');
      // Axe
      iChopper:
        Result := _('Chopper');
      iDemonAxe:
        Result := _('Demon Axe');
      // Spear
      iSoulReaver:
        Result := _('Soul Reaver');
      iKeeperOfEternalFlame:
        Result := _('Keeper Of Eternal Flame');
      // Mace
      iOgreMorningStar:
        Result := _('Ogre Morning Star');
      iBoneOfTheHigher:
        Result := _('Bone Of The Higher');
    end;
  end;
  
  initialization
  
  Items := TItems.Create;
  