IRS-BlockLevel

# // $game_actors[actor_id].block_level = bool
# // $game_actors[1].block_level = true
# // $game_actors[2].block_level = false
class Game_Actor

  attr_accessor :block_level

  alias irs_levelblock_initialize initialize unless $@
  def initialize(*args)
    irs_levelblock_initialize(*args)
    @block_level = false
  end

  def change_exp(exp, show)
    last_level = @level
    last_skills = skills
    @exp = [[exp, 9999999].min, 0].max
    while @exp >= @exp_list[@level+1] and @exp_list[@level+1] > 0
      level_up
      break if @block_level
    end
    while @exp < @exp_list[@level]
      level_down
      break if @block_level
    end
    @hp = [@hp, maxhp].min
    @mp = [@mp, maxmp].min
    if show and @level > last_level
      display_level_up(skills - last_skills)
    end
  end

  alias irs_levelblock_level_up level_up unless $@
  def level_up
    return if @block_level
    irs_levelblock_level_up
  end

  alias irs_levelblock_level_down level_down unless $@
  def level_down
    return if @block_level
    irs_levelblock_level_down
  end

end