#==============================================================================
# Crystal Engine - FF2 Core
#------------------------------------------------------------------------------
# Current Version: 1.00
#==============================================================================
$imported ||= {}
$imported["CE-FF2Core"] = true
=begin
This script sets up some of the basic functions of the Final Fantasy II style
advancement system. This script does nothing on it's own but it is required to
run the other advancement scripts.
------------------------------------------------------------------------------
Notetags:
Actor Notes
<no advancement> # Cause the actor to ignore all of the FF2 Scripts
Enemy Notes
<rank: x> # Specify the enemy's rank for rank based calculations
=end
module CRYSTAL
	module FF2
		module GENERAL
			
			#------------------------------------------------------------------------
			# * Display the Level of Actors
			#    This only hides the level from the the menu and level up messages
			#    actors still gain EXP and level up normally. To prevent stats from
			#    increasing upon a level up, modify the stat curves so that there is
			#    never an increase.
			#------------------------------------------------------------------------
			DISPLAY_LEVEL = false
			
			#------------------------------------------------------------------------
			# * Display Skills Learned Upon Level Up
			#------------------------------------------------------------------------
			DISPLAY_SKILL_LEARN = true
			
			#------------------------------------------------------------------------
			# * Default Rank for Enemies
			#------------------------------------------------------------------------
			DEFAULT_RANK = 1
			
			#------------------------------------------------------------------------
			# * Formula for Determining Actor Rank
			#   This one uses the actor's level to gradually rank up the actor
			#------------------------------------------------------------------------
			ACTOR_RANK_FORMULA = "[1, [level / 6, 16].min].max"
			
			#------------------------------------------------------------------------
			# * Formula Used for Rank Based Calculations
			#------------------------------------------------------------------------
			RANK_DIFFERENCE_FORMULA = "10 + b.rank - a.rank"
			
		end
    module VICTORY
      
      #--------------------------------------------------------------------------
      # * Use Base Parameters for Level Up Display
      #--------------------------------------------------------------------------
      BASE_PARAMS = false
      
      #--------------------------------------------------------------------------
      # * Include Equips in Victory Stat Changes (irrelivant if top is true)
      #--------------------------------------------------------------------------
      INCLUDE_EQUIPS = false
      
      #--------------------------------------------------------------------------
      # * Include Stat Rates (irrelivant if top is true)
      #--------------------------------------------------------------------------
      INCLUDE_RATES = false
      
    end
		module PROCESSOR
			#------------------------------------------------------------------------
			# * Run Rank Based Increase Evaluation
			#------------------------------------------------------------------------
			def self.rank_based_eval(a, b, v = $game_variables)
				[eval(CRYSTAL::FF2::GENERAL::RANK_DIFFERENCE_FORMULA), 0].max rescue 10
			end
		end
	end
end
#==============================================================================
# Editing beyond this point may cause stone, zombie, mist frenzy, and/or toad,
# so edit at your own risk.
#==============================================================================
module CRYSTAL
	module CHECK
		#--------------------------------------------------------------------------
		# * Checks if you have a certain script installed
		#--------------------------------------------------------------------------
		def self.require(self_name, script, site = "http://crystalnoel42.wordpress.com")
			unless $imported["CE-BasicModule"]
				msg = "The script '#{self_name}' requires the latest\n"
				msg += "version of 'Crystal Engine - Basic Module' to work properly\n"
				msg += "Go to http://crystalnoel42.wordpress.com/ to download this script."
				raise SyntaxError.new(msg)
			end
			unless $imported[script]
				msg = "The script '#{self_name}' requires the latest\n"
				msg += "version of #{scripts_list(script)} to work properly\n"
				msg += "Go to #{site} to download this script."
				raise SyntaxError.new(msg)
			end
		end
	end
end
CRYSTAL::CHECK.require("Crystal Engine - FF2 Core", "CE-BasicModule")
#==============================================================================
# ** RPG::Actor
#------------------------------------------------------------------------------
#  The data class for actors.
#==============================================================================

class RPG::Actor < RPG::BaseItem
	#--------------------------------------------------------------------------
	# * Exclude From All FF2 Systems
	#--------------------------------------------------------------------------
	def no_advancement?
		@note =~ /<NO ADVANCEMENT>/i
	end
end
#==============================================================================
# ** RPG::Enemy
#------------------------------------------------------------------------------
#  The data class for enemies.
#==============================================================================

class RPG::Enemy < RPG::BaseItem
	#--------------------------------------------------------------------------
	# * Rank
	#--------------------------------------------------------------------------
	def rank
		@note =~ /<RANK: (\d+)>/i ? $1.to_i : CRYSTAL::FF2::GENERAL::DEFAULT_RANK
	end
end
#==============================================================================
# ** BattleManager
#------------------------------------------------------------------------------
#  This module manages battle progress.
#==============================================================================

module BattleManager
  #--------------------------------------------------------------------------
  # * EXP Acquisition and Level Up Display
  #--------------------------------------------------------------------------
  class <<self; alias gain_exp_ce_ff2_stat_growth gain_exp; end
  def self.gain_exp
    if $imported["YEA-VictoryAftermath"]
      $game_party.all_members.each do |actor|
        temp_actor = Marshal.load(Marshal.dump(actor))
        actor.gain_exp($game_troop.exp_total)
        if $imported["CE-UseBasedStatGrowth"]
          unless actor.no_advancement?
            actor.increased_stats.each do |i|
              if i.is_a?(Symbol) && $imported["CE-ExtraStats"]
                actor.xstat_plus[i] += CRYSTAL::FF2::STATS::NORMAL_STATS[i][:increase]
              else
                actor.add_param(i, CRYSTAL::FF2::STATS::NORMAL_STATS[i][:increase])
              end
              actor.increased_stats.clear
            end
          end
        end
        stat_change = false
        for i in 0..7
          stat_change = true if actor.param(i) != temp_actor.param(i)
        end
        if $imported["CE-ExtraStats"]
          CRYSTAL::XSTAT::STATS.each do |stat|
            stat_change = true if eval("actor.xstat.#{stat}") == eval("temp_actor.xstat.#{stat}")
          end
        end
        weapon = false
        if $imported["CE-WeaponLevels"]
          unless actor.no_advancement?
            actor.increased_weapons[:weapons].each do |i|
              actor.weapon_levels[:weapons][i] += 1 
            end
            actor.increased_weapons[:armors].each do |i|
              actor.weapon_levels[:armors][i] += 1 
            end
            weapon = !actor.increased_weapons[:weapons].empty? || !actor.increased_weapons[:armors].empty?
            actor.increased_weapons[:weapons].clear
            actor.increased_weapons[:armors].clear
          end
        end
        if $imported["CE-SkillLevels"]
          unless actor.no_advancement?
            actor.increase_skills.each do |skill_id|
              actor.skill_levels[skill_id] += 1
            end
            actor.increase_skills.clear
          end
        end
        skills = temp_actor.skill_levels != actor.skill_levels
        if stat_change || weapon || skills
          SceneManager.scene.show_victory_level_up(actor, temp_actor)
          set_victory_text(actor, :level)
          wait_for_message
        end
      end
    else
      gain_exp_ce_ff2_stat_growth
    end
  end
end

#==============================================================================
# ** Game_Actor
#------------------------------------------------------------------------------
#  This class handles actors. It is used within the Game_Actors class
# ($game_actors) and is also referenced from the Game_Party class ($game_party).
#==============================================================================

class Game_Actor < Game_Battler
	#--------------------------------------------------------------------------
	# * Rank
	#--------------------------------------------------------------------------
	def rank
		eval(CRYSTAL::FF2::GENERAL::ACTOR_RANK_FORMULA) rescue CRYSTAL::FF2::GENERAL::DEFAULT_RANK
	end
	#--------------------------------------------------------------------------
	# * Exclude From All FF2 Systems
	#--------------------------------------------------------------------------
	def no_advancement?
		actor.no_advancement?
	end
  #--------------------------------------------------------------------------
  # * Stat Raise Params
  #--------------------------------------------------------------------------
  def stat_raise_param(param_id)
    if CRYSTAL::FF2::VICTORY::BASE_PARAMS
      return param_base(param_id)
    else
      temp_actor = Marshal.load(Marshal.dump(@actor))
      unless CRYSTAL::FF2::VICTORY::INCLUDE_EQUIPS
        equip_slots.size.times do |i|
          force_change_equip(i, nil)
        end
      end
      param = param_base(param_id) + param_plus(param_id)
      param *= param_rate(param_id) if CRYSTAL::FF2::VICTORY::INCLUDE_RATES
      return param.round
    end
  end
end
#==============================================================================
# ** Game_Enemy
#------------------------------------------------------------------------------
#  This class handles enemies. It used within the Game_Troop class 
# ($game_troop).
#==============================================================================

class Game_Enemy < Game_Battler
	#--------------------------------------------------------------------------
	# * Rank
	#--------------------------------------------------------------------------
	def rank
		enemy.rank
	end
end
#==============================================================================
# ** Window_Base
#------------------------------------------------------------------------------
#  This is a super class of all windows within the game.
#==============================================================================

class Window_Base < Window
  #--------------------------------------------------------------------------
  # * Draw Level
  #--------------------------------------------------------------------------
  alias draw_actor_level_ce_ff2_core draw_actor_level
	def draw_actor_level(actor, x, y)
		return unless CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
    draw_actor_level_ce_ff2_core(actor, x, y)
  end
end
#==============================================================================
# ** Window_VictoryEXP_Back
#------------------------------------------------------------------------------
#  Diplays the EXP Gain info.
#==============================================================================

class Window_VictoryEXP_Back < Window_Selectable
  #--------------------------------------------------------------------------
  # draw_exp_gain
  #--------------------------------------------------------------------------
  alias draw_exp_gain_ce_stat_growth draw_exp_gain
  def draw_exp_gain(actor, rect)
    return unless actor.no_advancement?
    draw_exp_gain_ce_stat_growth(actor, rect)
  end
end # Window_VictoryEXP_Back

#==============================================================================
# ** Window_VictoryEXP_Front
#------------------------------------------------------------------------------
#  Diplays the EXP Guages.
#==============================================================================

class Window_VictoryEXP_Front < Window_VictoryEXP_Back
  #--------------------------------------------------------------------------
  # * Compete Ticks
  #--------------------------------------------------------------------------
  def complete_ticks?
    for actor in $game_party.battle_members
      next unless CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
      total_ticks = YEA::VICTORY_AFTERMATH::EXP_TICKS
      bonus_exp = actor_exp_gain(actor) * @ticks / total_ticks
      now_exp = actor.exp - actor.current_level_exp + bonus_exp
      next_exp = actor.next_level_exp - actor.current_level_exp
      rate = now_exp * 1.0 / next_exp
      return false if rate < 1.0
    end
    return true
  end
  #--------------------------------------------------------------------------
  # * Draw Actor EXP
  #--------------------------------------------------------------------------
  alias draw_actor_exp_ce_stat_growth draw_actor_exp
  def draw_actor_exp(actor, rect)
    return unless CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
    draw_actor_exp_ce_stat_growth(actor, rect)
  end
end # Window_VictoryEXP_Front
#==============================================================================
# ¡ Window_VictoryLevelUp
#==============================================================================

class Window_VictoryLevelUp < Window_Base
  #--------------------------------------------------------------------------
  # * Draw Actor Changes
  #--------------------------------------------------------------------------
  def draw_actor_changes(actor, temp_actor)
    dx = contents.width / 16
    draw_actor_image(actor, temp_actor, dx)
    draw_param_names(actor, dx)
    draw_former_stats(temp_actor)
    draw_arrows(actor)
    draw_newer_stats(actor, temp_actor)
    draw_new_skills(actor, temp_actor)
  end
  #--------------------------------------------------------------------------
  # * Draw Actor Image
  #--------------------------------------------------------------------------
  def draw_actor_image(actor, temp_actor, dx)
    draw_text(dx, line_height, 96, line_height, actor.name, 1)
    draw_actor_face(actor, dx, line_height * 2)
    exp = actor.exp - temp_actor.exp
    text = sprintf(YEA::VICTORY_AFTERMATH::VICTORY_EXP, exp.group)
    return unless CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
    change_color(power_up_color)
    contents.font.size = YEA::VICTORY_AFTERMATH::FONTSIZE_EXP
    draw_text(0, line_height * 2 + 96, dx + 96, line_height, text, 2)
    reset_font_settings
  end
  #--------------------------------------------------------------------------
  # * Draw Param Names
  #--------------------------------------------------------------------------
  def draw_param_names(actor, dx)
    dx += 108
    change_color(system_color)
    if CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
      text = Vocab.level
      draw_text(dx, 0, contents.width - dx, line_height, text)
    end
    dy = 0
    for i in 0...8
      dy += line_height
      text = Vocab.param(i)
      draw_text(dx, dy, contents.width - dx, line_height, text)
    end
  end
  #--------------------------------------------------------------------------
  # * Draw Former Stats
  #--------------------------------------------------------------------------
  def draw_former_stats(actor)
    dw = contents.width / 2 - 12
    dy = 0
    change_color(normal_color)
    if CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
      draw_text(0, dy, dw, line_height, actor.level.group, 2)
    end
    for i in 0...8
      dy += line_height
      draw_text(0, dy, dw, line_height, actor.stat_raise_param(i).group, 2)
    end
  end
  #--------------------------------------------------------------------------
  # * Draw Arrows
  #--------------------------------------------------------------------------
  def draw_arrows(actor)
    dx = contents.width / 2 - 12
    dy = 0
    change_color(system_color)
    for i in 0..8
      unless CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
        if i == 0
          dy += line_height
          next
        end
      end
      draw_text(dx, dy, 24, line_height, "→", 1)
      dy += line_height
    end
  end
  #--------------------------------------------------------------------------
  # * Draw Newer Stats
  #--------------------------------------------------------------------------
  def draw_newer_stats(actor, temp_actor)
    dx = contents.width / 2 + 12
    dw = contents.width - dx
    dy = 0
    if CRYSTAL::FF2::GENERAL::DISPLAY_LEVEL || actor.no_advancement?
      change_color(param_change_color(actor.level - temp_actor.level))
      draw_text(dx, dy, dw, line_height, actor.level.group, 0)
    end
    for i in 0...8
      dy += line_height
      change_color(param_change_color(actor.stat_raise_param(i) - temp_actor.stat_raise_param(i)))
      draw_text(dx, dy, dw, line_height, actor.param(i).group, 0)
    end
  end
  #--------------------------------------------------------------------------
  # * Draw New Skills
  #--------------------------------------------------------------------------
  def draw_new_skills(actor, temp_actor)
    return if temp_actor.skill_levels == actor.skill_levels && temp_actor.weapon_levels == actor.weapon_levels
    dw = 172 + 24
    dx = contents.width - dw
    change_color(system_color)
    text = YEA::VICTORY_AFTERMATH::SKILLS_TEXT
    draw_text(dx, 0, dw, line_height, text, 0)
  end
end # Window_VictoryLevelUp
#==============================================================================
# ¡ Window_VictorySkills
#==============================================================================

class Window_VictorySkills < Window_Selectable
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh(actor, temp_actor)
    @actor = actor
    contents.clear
    if temp_actor.skill_levels == actor.skill_levels && temp_actor.weapon_levels == actor.weapon_levels
      unselect
      @data = []
      create_contents
      return
    end
    @data = []
    actor.skill_levels.each do |skill_level|
      id = skill_level[0]
      @data.push($data_skills[id]) unless temp_actor.skill_levels[id] == actor.skill_levels[id]
    end
    actor.weapon_levels[:weapons].each_index do |index|
      unless temp_actor.weapon_levels[:weapons][index] == actor.weapon_levels[:weapons][index]
        @data.push([:weapon, index]) 
      end
    end
    actor.weapon_levels[:armors].each do |armor|
      id = armor[0]
      unless temp_actor.weapon_levels[:armors][id] == actor.weapon_levels[:armors][id]
        @data.push([:armor, id]) 
      end
    end
    if @data.size > 8
      select(0)
      activate
    else
      unselect
      deactivate
    end
    create_contents
    draw_all_items
  end
  #--------------------------------------------------------------------------
  # * Draw Item
  #--------------------------------------------------------------------------
  def draw_item(index)
    rect = item_rect(index)
    skill = @data[index]
    return if skill.nil?
    rect.width -= 4
    if skill.is_a?(Array)
      draw_equip_name(skill, @actor, rect.x, rect.y, true)
    else
      draw_skill_name(skill, @actor, rect.x, rect.y, true)
    end
  end
  #--------------------------------------------------------------------------
  # * Draw Item Name
  #     enabled : Enabled flag. When false, draw semi-transparently.
  #--------------------------------------------------------------------------
  def draw_equip_name(equip, actor, x, y, enabled = true, width = 172)
    return unless equip
		return unless actor
    fmt = CRYSTAL::FF2::WEAPONS::WEAPON_LEVEL_FORMAT
    case equip[0]
    when :weapon
      icon = CRYSTAL::FF2::WEAPONS::WEAPON_ICONS[equip[1]]
      term = equip[1] == 0 ? CRYSTAL::FF2::WEAPONS::BAREHANDED_TERM : Vocab.wtype(equip[1])
      text = sprintf(fmt, term, @actor.weapon_levels[:weapons][equip[1]])
    when :armor
      icon = CRYSTAL::FF2::WEAPONS::SHIELD_ICONS[equip[1]]
      term = Vocab.atype(equip[1])
      text = sprintf(fmt, term, @actor.weapon_levels[:armors][equip[1]])
    end
    draw_icon(icon, x, y, enabled)
    change_color(normal_color, enabled)
    draw_text(x + 24, y, width, line_height, text)
  end
  #--------------------------------------------------------------------------
  # * Draw Item Name
  #     enabled : Enabled flag. When false, draw semi-transparently.
  #--------------------------------------------------------------------------
  def draw_skill_name(skill, actor, x, y, enabled = true, width = 172)
    return unless skill
		return unless actor
    draw_icon(skill.icon_index, x, y, enabled)
    change_color(normal_color, enabled)
		fmt = CRYSTAL::FF2::SKILLS::NAME_FORMAT
		old_fmt = actor.no_advancement? || skill.no_levels?
		text = old_fmt ? skill.name : sprintf(fmt, skill.name, actor.skill_levels[skill.id])
    draw_text(x + 24, y, width, line_height, text)
  end
end # Window_VictorySkills