#==============================================================================
module YEA ; module EQUIP
#==============================================================================

# This simple snippet was brought to you by "Dekita"

# PLACE THIS "script" BELOW YANFLYS EQUIPMENT SCREEN, (in its own script page)

# Simply '#' the beggining of lines you do not want to show
# you can rearrange these any way you want.

ATLANDDFLINFO =[
  [:atklvl,  "Atk Lv:"], # Requires Dekita's Attack and Defence Level's.
  [:deflvl,  "Def Lv:"], # Requires Dekita's Attack and Defence Level's.

#  [:vit,  "Vit :"], # Requires Dekita's Stat Point Distribution System.
#  [:str,  "Str :"], # Requires Dekita's Stat Point Distribution System.
#  [:dex,  "Dex :"], # Requires Dekita's Stat Point Distribution System.
#  [:mag,  "Mag :"], # Requires Dekita's Stat Point Distribution System.

  # Standard Params
#  [:mhp,     "Max HP"],
#  [:mmp,     "Max MP"],
  [:atk,     "Attack"],
  [:def,     "Defence"],
  [:mat,     "M Attack"],
  [:mdf,     "M Defence"],
  [:agi,     "Speed"],
  [:luk,     "Luck"],
#  [:hit,     "Hit Rate"],
#  [:eva,     "Evasion"],
#  [:cri,     "Critical Hit"],
#  [:cev,     "Critical Evade"],
#  [:mev,     "Magic Evasion"],
#  [:mrf,     "Magic Reflect"],
#  [:cnt,     "Counter Rate"],
#  [:tgr,     "Target Rate"],
#  [:hrg,     "HP Regen"],
#  [:mrg,     "MP Regen"],
#  [:trg,     "TP Regen"],
#  [:rec,     "Recovery"],
#  [:grd,     "Guard Rate"],
#  [:pha,     "Item Boost"],
#  [:exr,     "EXP Rate"],
#  [:tcr,     "TP Charge"],
#  [:hcr,     "HP Cost Rate"],    # Requires YEA - Skill Cost Manager
#  [:mcr,     "MP Cost Rate"],
#  [:tcr_y,   "TP Cost Rate"],    # Requires YEA - Skill Cost Manager
#  [:cdr,     "Cooldown Rate"],   # Requires YEA - Skill Restrictions
#  [:wur,     "Warmup Rate"],     # Requires YEA - Skill Restrictions
#  [:pdr,     "Physical Damage"],
#  [:mdr,     "Magical Damage"],
#  [:fdr,     "Floor Damage"],
#  [:atkrt,   "Attack Speed"],
#  [:atktimes,"Attack Times"],

] # Do not remove this.

end ; end # EQUIP ; YEA #####################
                        # CUSTOMISATION END #
                        #####################

#==============================================================================
class Window_EquipStatus < Window_Base
#==============================================================================

def refresh
  contents.clear
  draw_atlanddfl_info if !@actor.nil?
  draw_atlanddfl_future_info if !@temp_actor.nil?
end

def draw_atlanddfl_info
  dx = 0
  dw = (window_width - 24)
  dy = line_height * 0#DPB::PSS::INFO3LH
  for info in YEA::EQUIP::ATLANDDFLINFO
    dy = draw_atlanddfl(info, dx, dy, dw)
  end
end

def draw_atlanddfl_future_info
  dx = 0
  dw = (window_width - 24)
  dy = line_height * 0#DPB::PSS::INFO3LH
  for info in YEA::EQUIP::ATLANDDFLINFO
    dy = draw_atlanddfl_future(info, dx, dy, dw)
  end
end

def draw_atlanddfl(info, dx, dy, dw)
#  dpb = @actor
  fmt = "%1.2f%%"
  dpb = "%1.0f"
  case info[0]
  when :vit
    value = sprintf(dpb, @actor.vit)
  when :str
    value = sprintf(dpb, @actor.str)
  when :dex
    value = sprintf(dpb, @actor.dex)
  when :mag
    value = sprintf(dpb, @actor.mag)
  when :atklvl
     return dy unless $imported["DPB-ATLANDDFL"]
     value = @actor.atl.to_i
  when :deflvl
     return dy unless $imported["DPB-ATLANDDFL"]
     value = @actor.dfl.to_i
  when :mhp
     value = sprintf(dpb, @actor.mhp)
  when :mmp
     value = sprintf(dpb, @actor.mmp)
  when :atk
     value = sprintf(dpb, @actor.atk)
  when :def
     value = sprintf(dpb, @actor.def)
  when :mat
     value = sprintf(dpb, @actor.mat)
  when :mdf
     value = sprintf(dpb, @actor.mdf)
  when :agi
     value = sprintf(dpb, @actor.agi)
  when :luk
     value = sprintf(dpb, @actor.luk)
  when :atkrt
     value = sprintf(dpb, @actor.atk_speed)
  when :atktimes
     value = sprintf(dpb, @actor.atk_times_add)
  when :actiontimes
     value = @actor.action_plus_set
  when :hit
    value = sprintf(fmt, @actor.hit * 100)
  when :eva
    value = sprintf(fmt, @actor.eva * 100)
  when :cri
    value = sprintf(fmt, @actor.cri * 100)
  when :cev
    value = sprintf(fmt, @actor.cev * 100)
  when :mev
    value = sprintf(fmt, @actor.mev * 100)
  when :mrf
    value = sprintf(fmt, @actor.mrf * 100)
  when :cnt
    value = sprintf(fmt, @actor.cnt * 100)
  when :hrg
    value = sprintf(fmt, @actor.hrg * 100)
  when :mrg
    value = sprintf(fmt, @actor.mrg * 100)
  when :trg
    value = sprintf(fmt, @actor.trg * 100)
  when :tgr
    value = sprintf(fmt, @actor.tgr * 100)
  when :grd
    value = sprintf(fmt, @actor.grd * 100)
  when :rec
    value = sprintf(fmt, @actor.rec * 100)
  when :pha
    value = sprintf(fmt, @actor.pha * 100)
  when :mcr
    value = sprintf(fmt, @actor.mcr * 100)
  when :tcr
    value = sprintf(fmt, @actor.tcr * 100)
  when :pdr
    value = sprintf(fmt, @actor.pdr * 100)
  when :mdr
    value = sprintf(fmt, @actor.mdr * 100)
  when :fdr
    value = sprintf(fmt, @actor.fdr * 100)
  when :exr
    value = sprintf(fmt, @actor.exr * 100)
  when :hcr
    return dy unless $imported["YEA-SkillCostManager"]
    value = sprintf(fmt, @actor.hcr * 100)
  when :tcr_y
    return dy unless $imported["YEA-SkillCostManager"]
    value = sprintf(fmt, @actor.tcr_y * 100)
  when :gcr
    return dy unless $imported["YEA-SkillCostManager"]
    value = sprintf(fmt, @actor.gcr * 100)
  when :cdr
    return dy unless $imported["YEA-SkillRestrictions"]
    value = sprintf(fmt, @actor.cdr * 100)
  when :wur
    return dy unless $imported["YEA-SkillRestrictions"]
    value = sprintf(fmt, @actor.wur * 100)

  else ; return dy
  end
  colour = Color.new(0, 0, 0, translucent_alpha/2)
  rect = Rect.new(dx+1, dy+1, dw-2, line_height-2)
  contents.fill_rect(rect, colour)
  change_color(system_color)
  draw_text(dx+4, dy, dw-8, line_height, info[1], 0)
  change_color(normal_color)
  draw_text(dx+4, dy, dw-8, line_height, value, 1)
  drx = (contents.width + 22) / 2
  draw_right_arrow(drx, dy)
  return dy + line_height
end

def draw_atlanddfl_future(info, dx, dy, dw)
#  dpb = @temp_actor
  fmt = "%1.2f%%"
  dpb = "%1.0f"
  case info[0]
  when :vit
    value = sprintf(dpb, @temp_actor.vit)
  when :str
    value = sprintf(dpb, @temp_actor.str)
  when :dex
    value = sprintf(dpb, @temp_actor.dex)
  when :mag
    value = sprintf(dpb, @temp_actor.mag)
  when :atklvl
     return dy unless $imported["DPB-ATLANDDFL"]
     value = @temp_actor.atl.to_i
  when :deflvl
     return dy unless $imported["DPB-ATLANDDFL"]
     value = @temp_actor.dfl.to_i
  when :mhp
     value = sprintf(dpb, @temp_actor.mhp)
  when :mmp
     value = sprintf(dpb, @temp_actor.mmp)
  when :atk
     value = sprintf(dpb, @temp_actor.atk)
  when :def
     value = sprintf(dpb, @temp_actor.def)
  when :mat
     value = sprintf(dpb, @temp_actor.mat)
  when :mdf
     value = sprintf(dpb, @temp_actor.mdf)
  when :agi
     value = sprintf(dpb, @temp_actor.agi)
  when :luk
     value = sprintf(dpb, @temp_actor.luk)
  when :atkrt
     value = sprintf(dpb, @temp_actor.atk_speed)
  when :atktimes
     value = sprintf(dpb, @temp_actor.atk_times_add)
  when :actiontimes
     value = @temp_actor.action_plus_set
  when :hit
    value = sprintf(fmt, @temp_actor.hit * 100)
  when :eva
    value = sprintf(fmt, @temp_actor.eva * 100)
  when :cri
    value = sprintf(fmt, @temp_actor.cri * 100)
  when :cev
    value = sprintf(fmt, @temp_actor.cev * 100)
  when :mev
    value = sprintf(fmt, @temp_actor.mev * 100)
  when :mrf
    value = sprintf(fmt, @temp_actor.mrf * 100)
  when :cnt
    value = sprintf(fmt, @temp_actor.cnt * 100)
  when :hrg
    value = sprintf(fmt, @temp_actor.hrg * 100)
  when :mrg
    value = sprintf(fmt, @temp_actor.mrg * 100)
  when :trg
    value = sprintf(fmt, @temp_actor.trg * 100)
  when :tgr
    value = sprintf(fmt, @temp_actor.tgr * 100)
  when :grd
    value = sprintf(fmt, @temp_actor.grd * 100)
  when :rec
    value = sprintf(fmt, @temp_actor.rec * 100)
  when :pha
    value = sprintf(fmt, @temp_actor.pha * 100)
  when :mcr
    value = sprintf(fmt, @temp_actor.mcr * 100)
  when :tcr
    value = sprintf(fmt, @temp_actor.tcr * 100)
  when :pdr
    value = sprintf(fmt, @temp_actor.pdr * 100)
  when :mdr
    value = sprintf(fmt, @temp_actor.mdr * 100)
  when :fdr
    value = sprintf(fmt, @temp_actor.fdr * 100)
  when :exr
    value = sprintf(fmt, @temp_actor.exr * 100)
  when :hcr
    return dy unless $imported["YEA-SkillCostManager"]
    value = sprintf(fmt, @temp_actor.hcr * 100)
  when :tcr_y
    return dy unless $imported["YEA-SkillCostManager"]
    value = sprintf(fmt, @temp_actor.tcr_y * 100)
  when :gcr
    return dy unless $imported["YEA-SkillCostManager"]
    value = sprintf(fmt, @temp_actor.gcr * 100)
  when :cdr
    return dy unless $imported["YEA-SkillRestrictions"]
    value = sprintf(fmt, @temp_actor.cdr * 100)
  when :wur
    return dy unless $imported["YEA-SkillRestrictions"]
    value = sprintf(fmt, @temp_actor.wur * 100)
  else ; return dy
  end
  change_color(normal_color)
  draw_text(dx+4, dy, dw-8, line_height, value, 2)
  return dy + line_height
end

end # Window_EquipStatus