module RPG
  class Armor < BaseItem
    #------------------------------------------------------------------------
    # gain experience
    #------------------------------------------------------------------------
    def gain_exp(amount)
      return if $BTEST
      return if @no_level
      return unless @can_level or LEVEL_ARMORS
      return if @level >= @max_level
      mx = (@exp_list[@max_level] - 1) - @exp
      amount = amount >= mx ? [mx - 1, 0].max : amount
      @exp += amount
      while @exp >= @exp_list[@level] and @exp_list[@level] > 0
        level_up
      end
    end
    #------------------------------------------------------------------------
    # level up
    #------------------------------------------------------------------------
    def level_up
      return if @no_level
      return unless @can_level or LEVEL_ARMORS
      if @level >= @max_level
      else
        @level = [@level + 1, @max_level].min
        if $game_switches[LEVEL_UP_SWITCH]
          @exp += @exp_list[@level-1] - @exp_list[@level-2]
        end
        $game_switches[LEVEL_UP_SWITCH] = false
        @maxhp  = [@maxhp  + @hp_gain,  @max_hp].min  unless @max_hp == @maxhp
        @maxmp  = [@maxmp  + @mp_gain,  @max_mp].min  unless @max_mp == @maxmp
        @atk = [@atk + @atk_gain, @max_atk].min unless @max_atk == @atk
        @def = [@def + @def_gain, @max_def].min unless @max_def == @def
        @spi = [@spi + @spi_gain, @max_spi].min unless @max_spi == @spi
        @agi = [@agi + @agi_gain, @max_agi].min unless @max_agi == @agi
        @eva = [@eva + @eva_gain, @max_eva].min unless @max_eva == @eva
        if $imported["DEX Stat"]
          @dex = [@dex + @dex_gain, @max_dex].min unless @max_dex == @dex
        end
        if $imported["RES Stat"]
          @res = [@res + @spi_gain, @max_res].min unless @max_res == @res
        end
      end
    end
  end
end

class Game_Enemy < Game_Battler
  #--------------------------------------------------------------------------
  # * Get Weapon Experience
  #--------------------------------------------------------------------------
  def wep_exp
    dexp = GNM::EQUIP_LEVEL::DEFAULT_WEAPON_EXP
    p = (GNM::EQUIP_LEVEL::PERCENT >= 6 ? 6 : GNM::EQUIP_LEVEL::PERCENT)
    fluctuation = GNM::EQUIP_LEVEL::W_FLUCTUATION
    dexp = (dexp*(1.0+p/100.0)**(@level-1.0)).round if $imported["EnemyLevels"]
    lower = Integer(dexp * (100 - fluctuation) / 100)
    upper = Integer(dexp * (100 + fluctuation) / 100)
    dexp = lower + rand(upper - lower + 1)
    unless enemy.weapon_exp.nil?
      v = enemy.weapon_exp
      v = (v * (1.0 + p/100.0)**@level-1.0).round if $imported["EnemyLevels"]
      lower = Integer(v * (100 - fluctuation) / 100)
      upper = Integer(v * (100 + fluctuation) / 100)
      v = lower + rand(upper - lower + 1)
    end
    return enemy.weapon_exp.nil? ? dexp : v
  end
  #--------------------------------------------------------------------------
  # * Get Armor Experience
  #--------------------------------------------------------------------------
  def arm_exp
    dexp = GNM::EQUIP_LEVEL::DEFAULT_ARMOR_EXP
    fluctuation = GNM::EQUIP_LEVEL::A_FLUCTUATION.to_f
    p = (GNM::EQUIP_LEVEL::PERCENT >= 6 ? 6 : GNM::EQUIP_LEVEL::PERCENT)
    dexp = (dexp*(1.0+p/100.0)**(@level-1.0)).round if $imported["EnemyLevels"]
    lower = Integer(dexp * (100 - fluctuation) / 100)
    upper = Integer(dexp * (100 + fluctuation) / 100)
    dexp = lower + rand(upper - lower + 1)
    unless enemy.armor_exp.nil?
      v = enemy.armor_exp
      v = (v * (1.0 + p/100.0)**@level-1.0).round if $imported["EnemyLevels"]
      lower = Integer(v * (100 - fluctuation) / 100)
      upper = Integer(v * (100 + fluctuation) / 100)
      v = lower + rand(upper - lower + 1)
    end
    return enemy.armor_exp.nil? ? dexp : v
  end
end # class Game_Enemy

class Game_Actor < Game_Battler
  
  #--------------------------------------------------------------------------
  # alias method: setup
  #--------------------------------------------------------------------------
  alias setup_eo setup unless $@
  def setup(actor_id)
    setup_eo(actor_id)
    @extra_armor_id = []
    @locked_equips = []
    @equip_type = nil
    @bonus_apt = nil
    create_aptitude_bonus
  #  purge_unequippable  ## This line was commented out.
  end

module GNM
  module DISPLAY_EQ_LEVELS  
    hash1 = EQUIP_PROPERTIES # do not edit
    
    # displays what to display when equipping skills
    hash2 ={:eq_skill   => "Teaches Skills"}
    
    hash1.merge!(hash2) # do not edit
    EQUIP_PROPERTIES = hash1 # do not edit
  end
end

#==============================================================================
# class Window_EquipData
#==============================================================================
class Window_EquipData < Window_Base
  #--------------------------------------------------------------------------
  # draw_weapon_properties
  #--------------------------------------------------------------------------
  alias_method :hein_patch_wp_prop, :draw_weapon_properties unless $@
  def draw_weapon_properties(dy)
    dy = hein_patch_wp_prop(dy)
    draw_equip_skill(dy)
    return dy
  end
  #--------------------------------------------------------------------------
  # draw_armor_properties
  #--------------------------------------------------------------------------
  alias_method :hein_patch_ar_prop, :draw_armor_properties unless $@
  def draw_armor_properties(dy)
    hein_patch_ar_prop(dy)
    draw_equip_skill(dy)
    return dy
  end
  #--------------------------------------------------------------------------
  # draw_equip_skills
  #--------------------------------------------------------------------------
  def draw_equip_skill(dy)
    return dy if @item.equip_skills.nil? or @item.equip_skills == []
    dx = 0; @data = []; text = @hash[:eq_skill]
    self.contents.font.color = system_color
    self.contents.draw_text(dx, dy, contents.width, WLH, text, 1)
    dy += WLH
    skills = @item.equip_skills
    skills.each { |i|
    @data << $data_skills[i] }
    for skill in @data
      if @data.index(skill).to_i%2 == 0
        dx = 4
      else
        dx = contents.width/2 + 4; dy -= WLH
      end
      n = skill.name
      self.contents.font.color = normal_color
      self.contents.draw_text(dx, dy, contents.width/2 - 8, WLH, n, 0)
      dy += WLH
    end
    return dy
  end
end
if $imported["SellItemOverhaul" && "EquipLevels"]
  #==========================================================================
  # ** Window_CustomStatus
  #==========================================================================
  class Window_CustomStatus < Window_Base
    alias_method :hein_patch_sio_draw_info, :draw_information
    def draw_information(dy)
      draw_equip_skill(dy)
      hein_patch_sio_draw_info(dy)
      return dy
    end
    #--------------------------------------------------------------------------
    # draw_equip_skills
    #--------------------------------------------------------------------------
    def draw_equip_skill(dy)
      return dy if @item.equip_skills.nil? or @item.equip_skills == []
      dx = 0; @data = []; cw = contents.width
      skills = @item.equip_skills
      skills.each { |i|
      @data << $data_skills[i] }
      for skill in @data
        n = skill.name; t = "Equips Skill "
        self.contents.font.color = system_color
        self.contents.draw_text(dx, dy, cw*2/5, WLH, t, 0)
        self.contents.font.color = normal_color
        self.contents.draw_text(cw*2/5 + 4, dy, cw*3/5 - 4, WLH, n, 0)
        dy += WLH
      end
      return dy
    end
  end
end

#==============================================================================
# Scene File
#==============================================================================
class Scene_File < Scene_Base
  #--------------------------------------------------------------------------
  # alias method: Execute Load
  #--------------------------------------------------------------------------
  alias_method :hein_equplvls_scene_file_do_load, :do_load unless $@
  def do_load
    hein_equplvls_scene_file_do_load
    for actor in $game_party.members
      for item in actor.equips
        next if item.nil?
        item.scan
      end
    end
    for item in $game_party.items
      next if item.nil?
      item.scan
    end
  end
end

module RPG
  class Armor < BaseItem
    #------------------------------------------------------------------------
    # gain experience
    #------------------------------------------------------------------------
    def gain_exp(amount)
      return if $BTEST
      return if @no_level
      return unless @can_level or LEVEL_ARMORS # modified from LEVEL_WEAPONS
      return if @level >= @max_level
      mx = (@exp_list[@max_level] - 1) - @exp
      amount = amount >= mx ? [mx - 1, 0].max : amount
      @exp += amount
      while @exp >= @exp_list[@level] and @exp_list[@level] > 0
        level_up
      end
    end
    #------------------------------------------------------------------------
    # level up
    #------------------------------------------------------------------------
    def level_up
      return if @no_level
      return unless @can_level or LEVEL_ARMORS # modified from LEVEL_WEAPONS
      if @level >= @max_level
      else
        @level = [@level + 1, @max_level].min
        if $game_switches[LEVEL_UP_SWITCH]
          @exp += @exp_list[@level-1] - @exp_list[@level-2]
        end
        $game_switches[LEVEL_UP_SWITCH] = false
        @maxhp  = [@maxhp  + @hp_gain,  @max_hp].min  unless @max_hp == @maxhp
        @maxmp  = [@maxmp  + @mp_gain,  @max_mp].min  unless @max_mp == @maxmp
        @atk = [@atk + @atk_gain, @max_atk].min unless @max_atk == @atk
        @def = [@def + @def_gain, @max_def].min unless @max_def == @def
        @spi = [@spi + @spi_gain, @max_spi].min unless @max_spi == @spi
        @agi = [@agi + @agi_gain, @max_agi].min unless @max_agi == @agi
        @eva = [@eva + @eva_gain, @max_eva].min unless @max_eva == @eva # modified added @eva line, deleted @hit & @cri #lines
        if $imported["DEX Stat"]
          @dex = [@dex + @dex_gain, @max_dex].min unless @max_dex == @dex
        end
        if $imported["RES Stat"]
          @res = [@res + @spi_gain, @max_res].min unless @max_res == @res
        end
      end
    end
  end
end