Chaos Project

#:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
# ■ Module ACE::CORE
#:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
module ACE::CORE
	#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
	# ◆ Section III. Item Type Settings ◆
	#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
	# These arrays adjusts and shows the various item types shown for Items,
	# Weapons, and Armours. Note that when using :category symbols, the
	# specific category shown will be equal to the text used for the Display
	# and the included item must contain a category equal to the Display name.
	#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
	# This array contains the order for the Item categories.
	ITEM_TYPES =[
		# [  :symbol,    "String"],
		[  :usable,    'Usable'], # Shows
		[   :field,     'Field'], # Shows Menu-usable items.
		[  :battle,    'Battle'], # Shows Battle-usable items.
		[:category,   'Special'], # Categorized by \cat[string]
		[:category,      'Food'], # Categorized by \cat[string]
		[:key_item,  'Key Item'], # Shows all key items.
		[     :all,       'All'], # Shows all usable items.
	] # Do not remove this.
	
	# This array contains the order for the Weapon categories.
	WEAPON_TYPES =[
		# [  :symbol,    "String"],
		[:category,  'Training'], # Categorized by \cat[string]
		[:category, 'Legendary'], # Categorized by \cat[string]
		[     :all,       'All'], # Shows all weapons.
	] # Do not remove this.
	
	# This array contains the order for the Armour categories.
	ARMOUR_TYPES =[
		# [  :symbol,    "String"],
		[    :kind,   'ARMKIND'], # Lists all of the individual armour kinds  
		[:category,  'Training'], # Categorized by \cat[string]
		[:category, 'Legendary'], # Categorized by \cat[string]
		[     :all,       'All'], # Shows all armours.
	] # Do not remove this.	
	
end

#:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
# ■ Window_ItemList
#:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
class Window_ItemList < Window_Item
	include ACE::CORE
	def initialize(y, height)
		super(0, y, 640, height)
		deactivate
		@category = :none
		@ext = :none
		@name = ""
	end
	def category=(category)
		if @types_window.nil?
			return if @category == category
			@category = category
			refresh
			self.oy = 0
		else
			return unless update_types?(category)
			@category = category
			if @types_window.active
				@name = @types_window.commands
				@ext = @types_window.method
			end
			refresh
			self.oy = 0
		end
	end
	def update_types?(category)
		return true if @category != category
		return false unless @types_window.active
		return @name != @types_window.commands	if category == :category
		return @ext != @types_window.method
	end
	def types_window=(window)
		@types_window = window
	end
  
  # Kk20 : New method. Called in Scene_Item#create_item_window
  def category_window=(window)
    @category_window = window
  end
  
	def include?(item)
		return false if item.nil?
		@types_window.nil? ? old_item_include?(item) : ace_item_include?(item)
	end
	def old_item_include?(item)
		case @category
		when :items   then item.is_a?(RPG::Item) 
		when :weapons then item.is_a?(RPG::Weapon)
		when :armor   then item.is_a?(RPG::Armor)
		else false
		end		
	end
  
  #KK20
  # Editted with category_window instead of types_window
	def ace_item_include?(item)
    # @category is equal to @types_window.method
		case @category
		when :usable then item.is_a?(RPG::Item) && item.usable_ok?
		when :field
			return false unless item.is_a?(RPG::Item)
			return false if item.battle_ok?
			return item.menu_ok?
		when :battle
			return false unless item.is_a?(RPG::Item)
			return false if item.menu_ok? 
			return item.battle_ok?
		when :key_item then item.is_a?(RPG::Item) && item.key_item?
			#---
		when :shield then item.is_a?(RPG::Armor) && item.shield?
		when :helmet then item.is_a?(RPG::Armor) && item.helmet?
		when :body_armor then item.is_a?(RPG::Armor) && item.body_armor?
		when :accessory then item.is_a?(RPG::Armor) && item.acessory?
			#---
		when :all
      #KK20
      # :item => :items
      # :weapon => :weapons
			case @category_window.method
      # No idea why 'if $game_temp.in_battle' is there...
			when :items then return item.is_a?(RPG::Item) #if $game_temp.in_battle
			when :weapons then return item.is_a?(RPG::Weapon)
			else return item.is_a?(RPG::Armor)
			end
			#---
    #KK20
    # When viewing 'Food', for example, @category was returning :food (not :category)
    # Thus, this is the new 'else' condition
		#when :category
    else
			case @category_window.method
			when :items then return false unless item.is_a?(RPG::Item)
			when :weapons then return false unless item.is_a?(RPG::Weapon)
			else return false unless item.is_a?(RPG::Armor)
			end
      # If the item has a category and it matches the category you want to view
      if !item.category.nil? && item.category.include?(@category.to_s)#.upcase)
        return true
      else # The original 'else' condition you had before
        return old_item_include?(item)
      end
			#---			
		#else
		#	return old_item_include?(item)
		end
	end
	def select_last
		select(@data.size - 1) if item.id == $game_party.last_item_id
		select([self.index, 0].max) 
	end
	def make_item_list
		$game_party.items.each {|item| next unless include?(item); @data << item}
	end
	def draw_item(index)
		rect = item_rect(index)
		contents.clear_rect(rect)
		item = @data[index]
		return if item.nil?
		rect.width -= 4
		draw_item_name(item, rect.x, rect.y, enable?(item), rect.width - 24)
		contents.draw_text(rect, sprintf(':%2d', $game_party.item_number(item)), 2)
	end
end