[RPGMVXA] Combined Item Category

class Window_ItemCategory < Window_HorzCommand
  def col_max
    if $game_switches[3] == true
      return 1
    else
      return 4
    end
  end
  def make_command_list
    if $game_switches[3] == true
      add_command("Reinforce",   :weapon)
    else
      add_command(Vocab::item,     :item)
      add_command(Vocab::weapon,   :weapon)
      add_command(Vocab::armor,    :armor)
      add_command(Vocab::key_item, :key_item)
    end
  end
end

class Window_ItemList < Window_Selectable
  def include?(item)
    if $game_switches[3]
      true if item
    else
      case @category
      when :item
        item.is_a?(RPG::Item) && !item.key_item?
      when :weapon
        item.is_a?(RPG::Weapon)
      when :armor
        item.is_a?(RPG::Armor)
      when :key_item
        item.is_a?(RPG::Item) && item.key_item?
      else
        false
      end
    end
  end
end