Armor upgrade fix

# =============================================================================
# Smithing -- Simply Upgrade Your Weapon
# By : TheoAllen feat richter_h
# -----------------------------------------------------------------------------
# Version : 1.1
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (English Documentation)
# =============================================================================
($imported ||= {})[:Miri_Tailoring] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.08.18 - Raise compatibility among various script
# 2013.08.16 - Finished script
# 2013.08.15 - Started script
# =============================================================================
=begin
  # --------------------------------------------------------------------------
  Prelude :
  I heard you guys are really obsessed with richter_h's upgrade weapon script
  for RMVX / RGSS2. One of you are desperately bumping the thread request in a
  countless time. Well, I hope with this script may solve your life problems :P

  # --------------------------------------------------------------------------
  Introduction :
  This script allow you to upgrade your equipped weapon just like suikoden.
  Well, at least my friend, richter_h said so. I never played suikoden actually

  # --------------------------------------------------------------------------
  What are inside this script?
  - Add basic parameter for every weapon in each level. You may change ATK,
    DEF, or even MHP.
  - Change your weapon's name from a simple "Short sword" into "Shorter Sword",
    "Bodycleaver", "Excalibur", or even "Super Awesome Sword"? your choice.
  - Different name means that it also need a different icon and description,
    isn't it? Who knows if a wooden sword suddenly turned into a great hammer
    after upgrade it?
  - Highly customizable vocab. You may change every quotes to your language
  - Customizable color composition.
  - Customizable price formula

  # --------------------------------------------------------------------------
  How to use?
  Put this script below material but above main
  To call the smithing menu, write down this following line to script call
  SceneManager.call(Scene_Tailor)

  Don't forget to edit the extra configurations.

  # --------------------------------------------------------------------------
  Terms of use :
  Credit me, TheoAllen. Because rewrite this script for RGSS3 is not that
  simple if you know. And don't forget to credit richter_h as well. He provides
  the basic workflows, so I can rewrite this script for RGSS3.

  # --------------------------------------------------------------------------
  Questions :
  Q : Can I add some features for the next upgraded weapon?
  A : No, you can't. I just have no idea how to make user-friendly
      configuration for that feature
  Q : Where's the socket?
  A : After my friend's, richter_h made them for his RGSS2 script, I'll also
      update my script as well.
  Q : Where's the SEs configuration?
  A : Personally, I don't like those SEs when the upgrading is in progress. So
      I remove them. Add by yourself if you dare :v

=end
# =============================================================================
# Extra Configurations. Brace yourself, there're a lot of works to do
# =============================================================================
module MIRI
  module Tailor
  # =========================================================================
  # General settings
  # -------------------------------------------------------------------------
    MenuActor_Size    = 125   # Menu actor width
    GoldWindow_Size   = 125   # Gold window width
    Confirm_Width     = 80    # Yes/No confirmation width
    NotifShowDuration = 200   # Duration for showing notification
  # =========================================================================

  # =========================================================================
  # Price Settings
  # -------------------------------------------------------------------------
  # These settings are for price. You may use your custom formula to optimize
  # your upgraded weapon price.
  #
  # The price formula divided by two.
  # - PriceUpgrade = The cost requirement for upgrading the weapon
  # - PriceTrade = The cost formula for shop processing
  #
  # These are provided variables
  # - item_price = the original item price in database
  # - base_price = same as PriceBase
  # - level = The upgraded weapon level
  #
  # Beware, the false formula may causes an error
  # -------------------------------------------------------------------------
    PriceBase     = 10
    PriceUpgrade  = "item_price/2 + (base_price * level)"
    PriceTrade    = "item_price + ((item_price/2) * level)"
  # =========================================================================

  # =========================================================================
  # Color Settings :
  # These are for color setting. The color code is same as \C[n] in message
  # -------------------------------------------------------------------------
    module Colour
      Level       = 6   # Level color
      Maxout      = 21  # Maxout color
      Upgradable  = 24  # Upgradable color
    end
  # =========================================================================
  # Smithing Vocabs list :
  # Wanna translate to your languange? Do not hesitate to change these
  # settings.
  # -------------------------------------------------------------------------
    module PVocab
      Cost        = "Cost: "
      Level       = "Lv.%d"
      Upgradable  = "Upgradable"
      Maxout      = "Maxed Out"
      Yes_Confirm = "Yes"
      No_Confirm  = "No"

      Select_Armor   = "Whose armor will be upgraded?"
      Decide_Armor   = "Upgrade this armor?"
      Upgraded_Quote  = "Upgrade complete"

      NotifNameChange = "Armor changed to %s"
      NotifNormal     = "Armor Improved"
    end
  # ==========================================================================
  # Weapon Upgrade Table (Main Configuration)
  # This is the main course for this script. You may called this an
  # "Upgrade Tree" or "Weapon tree".
  #
  # You must follow the instruction to make sure the script will work.
  # --------------------------------------------------------------------------

    A_Upgrade_Table = { # <-- Do not touch this at all cost!

    # ------------------------------------------------------------------------
    # Upgrade tree format.
    # ------------------------------------------------------------------------
    # ID => [ <-- opening
    #
    #       [{:symbol => num}, icon_index, name, description],  # Level 2
    #       [{:symbol => num}, icon_index, name, description],  # Level 3
    #       [ <add more here for the next level> ],             # Level 4
    #
    #       ], <-- ending (do not forget to add comma!)
    # ------------------------------------------------------------------------
    # Just a quick guide won't kill yourself :)
    # ------------------------------------------------------------------------
    # ID                = Weapon ID in database.
    #
    # {:symbol => num } = Once you've upgrade your weapon, the parameter will
    #                     change whether it's up or down. Use the symbol to
    #                     represent the status. Here's the list:
    #                     ---------------------------------------------------
    #                     :atk = attack     || :def = defense
    #                     :mat = magic atk  || :mdf = magic defense
    #                     :agi = agility    || :luk = luck
    #                     :mhp = Max HP     || :mmp = Max MP
    #                     ---------------------------------------------------
    #                     And "num" is a number represent to parameter change
    #
    # icon_index        = Represent as icon index. You may look the icon
    #                     index when you open the icon window dialog box and
    #                     see to the bottom left of that window. Use -1 if you
    #                     don't want to change weapon's icon once upgraded.
    #
    # name              = The new name of upgraded weapon. Leave it blank ("")
    #                     if you wanna keep the original name
    #
    # description       = The new description of upgraded weapon. Leave it
    #                     blank ("") if you wanna keep the original description
    #
    # Here's the example :
    # ------------------------------------------------------------------------
      1  => [
            [{:def => 1},-1,"",""], # dont forget comma
            [{:def => 1},-1,"",""],
            [{:def => 1},-1,"Common Clothes","I be a talented Tailor."],
            [{:def => 1},-1,"",""],
            [{:def => 1},-1,"",""],
            [{:def => 1},-1,"Beautiful Clothes","A better looking clothes."],
            [{:def => 1},-1,"",""],
            [{:def => 1},-1,"",""],
            [{:def => 1},-1,"",""],
            [{:def => 1},-1,"Luxery Clothes","These are my luxery clothes"],
            ], # dont forget comma

     7  => [
            [{:def => 2},-1,"",""],
            [{:def => 2},-1,"",""],
            ],

     19  => [
            [{:atk => 1, :agi => 3},-1,"Shorter Sword","The shorter version of short sword"],
            [{:atk => 2, :agi => 10},150,"Dagger",""],
            ],

    # add more here if it's necessary

    # ------------------------------------------------------------------------
    } # <-- Do not touch this at all cost!
# ============================================================================
# Do not ever touch anything pass this line or the risk is yours
# ============================================================================
    Key = {
      :mhp => 0,
      :mmp => 1,
      :atk => 2,
      :def => 3,
      :mat => 4,
      :mdf => 5,
      :agi => 6,
      :luk => 7,
    }
  end
end

class RPG::Armor < RPG::EquipItem
  attr_accessor :level

  alias miri_tailor_upgrade_init initialize
  def initialize
    miri_tailor_upgrade_init
    @level = 1
  end

  def clone_data
    original = self
    cloned = RPG::UpgradedArmor.new
    self.instance_variables.each do |varsym|
      ivar_name = varsym.to_s.gsub(/@/) {""}
      eval("
      if cloned.respond_to?(\"#{ivar_name}\")
        begin
          cloned.#{ivar_name} = original.#{ivar_name}.clone
        rescue
          cloned.#{ivar_name} = original.#{ivar_name}
        end
      end")
    end
    return cloned
  end

  def next_armor
    next_armor_exist? ? $upgraded_armors[upgrade_key] : nil
  end

  def next_armor_exist?
    !$upgraded_armors[upgrade_key].nil?
  end


  def upgrade_key
    self.id * 100 + (level+1)
  end

  def level
    @level ||= 1
  end

end

class RPG::UpgradedArmor < RPG::Armor
  attr_accessor :ori_id
  attr_accessor :upgrade_price

  def upgrade_key
    self.ori_id * 100 + (level+1)
  end

  def make_price
    item_price = @price
    base_price = MIRI::Tailor::PriceBase
    @upgrade_price = eval(MIRI::Tailor::PriceUpgrade)
    @price = eval(MIRI::Tailor::PriceTrade)
  end

end

class << DataManager

  alias miri_upgrade_tailor_game_obj create_game_objects
  def create_game_objects
    miri_upgrade_tailor_game_obj
    init_upgraded_armors
  end

  def init_upgraded_armors
    $upgraded_armors = {}
    MIRI::Tailor::A_Upgrade_Table.each do |id, table|
      table.each_with_index do |data,level|
        gen_id = (id*100) + (level+1) # Generated ID
        armor_check = $upgraded_armors[gen_id]
        result = nil
        if (level + 1) != 1 && !armor_check.nil?
          result = armor_check.clone_data
        else
          result = $data_armors[id].clone_data
        end
        result.level = level+2
        data[0].each do |param,value|
          param_id = MIRI::Tailor::Key[param]
          result.params[param_id] += value
        end
        if data[1] > -1
          result.icon_index = data[1]
        end
        result.name = data[2].empty? ? result.name : data[2]
        result.description = data[3].empty? ? result.description : data[3]
        result.ori_id = id
        result.make_price
        gen_id = (id*100) + (level+2)
        result.id = gen_id # Generated ID
        $upgraded_armors[gen_id] = result
      end
    end
  end

end

class Game_BaseItem

  def upgraded_armor?
    @class == RPG::UpgradedArmor
  end

  alias miri_tlr_upgrade_object object
  def object
    return $upgraded_armors[@item_id] if upgraded_armor?
    return miri_tlr_upgrade_object
  end

end

class Game_Party < Game_Unit

  alias miri_tailor_init_item init_all_items
  def init_all_items
    miri_tailor_init_item
    @upgraded_armors = {}
  end

  alias miri_tailor_item_container item_container
  def item_container(item_class)
    return @upgraded_armors if item_class == RPG::UpgradedArmor
    return miri_tailor_item_container(item_class)
  end

  alias miri_tailor_armor armors
  def armors
    miri_tailor_armor + upgraded_armors
  end

  def upgraded_armors
    @upgraded_armors.keys.sort.collect {|id| $upgraded_armors[id]}
  end

end

class Window_Base < Window
  SText_Format = "\\C[16]%s\\C[0] : %d → \\C[24]%d\\C[0]"
  def obtain_params_change
    result = []
    @armor.params.each_with_index do |param,id|
      next_param = @armor.next_armor.params[id]
      next if param == next_param
      text = sprintf(SText_Format,Vocab.param(id),param,next_param)
      result.push(text)
    end if @armor
    return result
  end
end

class Window_TailorGold < Window_Gold
  def window_width
    return MIRI::Tailor::GoldWindow_Size
  end
end

class Window_TailorMenu < Window_Selectable
  attr_reader :armor_slot

  def initialize(x,y)
    super(x,y,window_width,window_height)
    @armor_slot = 3
    refresh
  end

  def update
    super
    puts @armor_slot
    return unless active
    if Input.trigger?(:RIGHT) && @armor_slot < 4
      @armor_slot += 1
      update_help
      refresh
    elsif Input.trigger?(:LEFT) && @armor_slot > 2
      @armor_slot -= 1
      update_help
      refresh
    end
  end

  def window_width
    MIRI::Tailor::MenuActor_Size
  end

  def window_height
    fitting_height(item_max)
  end

  def item_max
    $game_party.members.size
  end

  def draw_item(index)
    actor = $game_party.members[index]
    color = normal_color
    color.alpha = enable?(index) ? 255 : translucent_alpha
    change_color(color)
    draw_text(item_rect(index),actor.name,alignment)
  end

  def alignment
    return 0
  end

  def armor
    $game_party.members[index].equips[@armor_slot]
  end

  def update_help
    @help_window.refresh(armor)
  end

  def enable?(index)
    actor = $game_party.members[index]
    return false if actor.equips[armor_slot].nil?
    return actor.equips[armor_slot].next_armor_exist? &&
      $game_party.gold >= actor.equips[armor_slot].next_armor.upgrade_price
  end

  def current_item_enabled?
    enable?(index)
  end

end


class Window_TailorResult < Window_Base
  include MIRI::Tailor

  def next_armor
    @armor.next_armor
  end

  def refresh(armor)
    contents.clear
    @armor = armor
    return unless @armor
    reset_font_settings
    draw_armor_name
    if @armor.next_armor_exist?
      draw_next_armor
    else
      draw_maxed_out
    end
  end

  def draw_armor_name
    draw_item_name(@armor,0,0)
    level = sprintf(PVocab::Level,@armor.level)
    change_color(text_color(Colour::Level))
    draw_text(0,0,contents.width,line_height,level,2)
    contents.fill_rect(0,24,contents.width,2,Color.new(255,255,255,128))
  end

  def draw_next_armor
    ypos = 28
    rect = Rect.new(0,ypos,contents.width,line_height)
    contents.font.size -= 4
    change_color(text_color(Colour::Upgradable))
    draw_text(rect,PVocab::Upgradable,2)
    change_color(system_color)
    draw_text(rect,PVocab::Cost)
    rect.x += text_size(PVocab::Cost).width
    change_color(normal_color)
    draw_text(rect,@armor.next_armor.upgrade_price)
    texts = obtain_params_change
    ypos += line_height
    texts.each do |txt|
      draw_text_ex(0,ypos,txt)
      ypos += line_height
    end
  end

  def draw_maxed_out
    ypos = 28
    rect = Rect.new(0,ypos,contents.width,line_height)
    contents.font.size -= 4
    change_color(text_color(Colour::Maxout))
    draw_text(rect,PVocab::Maxout,2)
  end

end

class Window_TailorNotif < Window_Base

  def initialize(width,menu_actor,help_window)
    super(0,0,width,0)
    self.openness = 0
    update_placement
    @show_count = -1
    @menu_actor = menu_actor
    @help_window = help_window
  end

  def update_placement
    self.x = Graphics.width/2 - self.width/2
    self.y = Graphics.height/2 - self.height/2
  end

  def height=(height)
    super
    update_placement
    create_contents
  end

  def show_armor(armor)
    @armor = armor
    @texts = obtain_params_change
    update_height
    refresh
    @show_count = MIRI::Tailor::NotifShowDuration
  end

  def update_height
    self.height = fitting_height(@texts.size + 1)
  end

  def refresh
    contents.clear
    rect = Rect.new(0,0,contents.width,line_height)
    next_name = @armor.next_armor.name
    if next_name != @armor.name
      text = sprintf(MIRI::Tailor::PVocab::NotifNameChange,next_name)
      draw_text(rect,text)
    else
      text = MIRI::Tailor::PVocab::NotifNormal
      draw_text(rect,text)
    end
    ypos = line_height
    contents.fill_rect(0,ypos-1,contents.width,2,Color.new(255,255,255,128))
    @texts.each do |txt|
      draw_text_ex(0,ypos,txt)
      ypos += line_height
    end
  end

  def update
    super
    update_close_input
    if @show_count > 0
      open
    elsif @show_count == 0
      close
    end
  end

  def update_close_input
    @show_count -= 1
    @show_count = 0 if Input.trigger?(:C)
  end

  def open
    super
    @menu_actor.deactivate
    @help_window.set_text(MIRI::Tailor::PVocab::Upgraded_Quote)
  end

  def close
    super
    @menu_actor.activate
    @help_window.set_text(MIRI::Tailor::PVocab::Select_Armor)
  end

end

class Window_TailorConfirm < Window_Command

  def initialize
    super(0,0)
    self.openness = 0
  end

  def make_command_list
    vocab = MIRI::Tailor::PVocab
    add_command(vocab::Yes_Confirm, :yes)
    add_command(vocab::No_Confirm, :no)
  end

  def window_width
    return MIRI::Tailor::Confirm_Width
  end

end

class Scene_Tailor < Scene_MenuBase
  include MIRI::Tailor::PVocab

  def start
    super
    create_help_window
    create_actor_menu
    create_gold_window
    create_tailor_result
    create_notif_tailor
    create_confirm_window
  end

  def create_help_window
    @help_window = Window_Help.new(1)
    @help_window.set_text(Select_Armor)
  end

  def create_actor_menu
    y = @help_window.height
    @menu_actor = Window_TailorMenu.new(0,y)
    @menu_actor.set_handler(:cancel, method(:return_scene))
    @menu_actor.set_handler(:ok, method(:on_actor_ok))
    @menu_actor.activate
    @menu_actor.select(0)
  end

  def create_tailor_result
    x = @menu_actor.width
    y = @help_window.height
    w = Graphics.width - @menu_actor.width - @gold_window.width
    h = 24 * 9 + 4
    @tailor_result = Window_TailorResult.new(x,y,w,h)
    @menu_actor.help_window = @tailor_result
  end

  def create_gold_window
    @gold_window = Window_TailorGold.new
    @gold_window.x = Graphics.width - @gold_window.width
    @gold_window.y = @help_window.height
  end

  def create_notif_tailor
    @notif_tailor = Window_TailorNotif.new(300,@menu_actor,@help_window)
  end

  def create_confirm_window
    @confirm =  Window_TailorConfirm.new
    @confirm.set_handler(:yes, method(:craft_armor))
    @confirm.set_handler(:no, method(:confirm_no))
    @confirm.set_handler(:cancel, method(:confirm_no))
    @confirm.x = @tailor_result.x + @tailor_result.width - @confirm.width
    @confirm.y = @tailor_result.y + @tailor_result.height - @confirm.height
  end

  def on_actor_ok
    @confirm.open
    @confirm.activate
    @help_window.set_text(Decide_Armor)
  end

  def confirm_no
    @confirm.close
    @menu_actor.activate
    @help_window.set_text(Select_Armor)
  end

  def craft_armor
    @confirm.close
    @confirm.deactivate
    $game_party.gain_item(next_armor,1)
    $game_party.lose_gold(next_armor.upgrade_price)
    last_equip = item_to_lose
    @notif_tailor.show_armor(last_equip)
    actor.change_equip(1,next_armor)
    $game_party.lose_item(last_equip,1)
    @menu_actor.update_help
    @menu_actor.activate
    @menu_actor.refresh
    @gold_window.refresh
  end

  def next_armor
    @tailor_result.next_armor
  end

  def actor
    $game_party.members[@menu_actor.index]
  end

  def item_to_lose
    actor.equips[@menu_actor.armor_slot]
  end

end