DSI Equipment Set

#==============================================================================
# DSI Equipment Set
# -- Last Updated: 2017.05.15
# -- Author: dsiver144
# -- Level: Normal
# -- Requires: n/a
#==============================================================================
$imported = {} if $imported.nil?
$imported["DSI-EquipSet"] = true
#==============================================================================
# + Updates
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# 2017.05.15 - Finish first version.
#==============================================================================
# + Instructions
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# To install this script, open up your script editor and copy/paste this script
# to an open slot below �� Materials/�f�� but above �� Main. Remember to save.
#==============================================================================
  module DSIVER144
    module Equipment_Set
      Equipments = {}
      #-------------------------------------------------------------------------
      Equipments[1] = {}
      Equipments[1][:name] = "Earth Mage Set"
      Equipments[1][:items] = ["w13","a12","a36","a1","a2"] # weapon 13, armor 12, armor 36, ...
      Equipments[1][:set] = []
      Equipments[1][:set][1] = {}
      Equipments[1][:set][1][:skill_id] = [[28,169]] # Replace 28 with 169
                                                     # [[28,169],[29,169],[x,y],...] You can enhance more than 1 skill
      Equipments[1][:set][1][:info] = ["DMG + 1 when using Earth Mage card."]
      Equipments[1][:set][3] = {}
      Equipments[1][:set][3][:skill_id] = [[28,170]] # Place 28 with 170
      Equipments[1][:set][3][:info] = ["DMG + 2 when using Earth Mage card.", "20% chance to poison the chosen target when using X Skilllllll."]
      Equipments[1][:set][5] = {}
      Equipments[1][:set][5][:skill_id] = [[28,171]] # Place 28 with 171
      Equipments[1][:set][5][:info] = ["HP barrier is projected on the caster for 1 turn.","+5 HP restored. Cure certain status effects"]
      #------------------------------------------------------------------------
      # * new method: convert_to_equipdata
      #------------------------------------------------------------------------
      def self.convert_to_equipdata(string_array)
        equip_data = []
        string_array.each do |str|
          if str =~ /w(\d+)/i
            equip_data
          end
        end
      end
      #------------------------------------------------------------------------
      # * new method: convert_equipdata_to_str
      #------------------------------------------------------------------------
      def self.convert_equipdata_to_str(equips)
        str_array = []
        equips.each do |equip|
          if equip.is_a?(RPG::Weapon)
            str_array << "w#{equip.id}"
          end
          if equip.is_a?(RPG::Armor)
            str_array << "a#{equip.id}"
          end
        end
        return str_array
      end
      #------------------------------------------------------------------------
      # * new method: check_for_set
      #------------------------------------------------------------------------
      def self.check_for_set(equips)
        Equipments.each_pair do |set_id, equip_set|
          a = convert_equipdata_to_str(equips).sort
          b = equip_set[:items].sort
          c = a - (a - b) # Get Same Equip
          if c.size == 0
            $game_system.set_effect[:set_id] = nil
            $game_system.set_effect[:skill_id] = nil
            next
          end
          set_type = c.size
          if [2,4].include?(set_type)
            set_type -= 1
          end
          $game_system.set_effect[:set_id] = set_id
          $game_system.set_effect[:have_item] = c
          $game_system.set_effect[:have_noitem] = a - b
          $game_system.set_effect[:skill_id] = equip_set[:set][set_type][:skill_id]
          break
        end
      end
    end # Equipment_Set
  end # DSIVER144
  #=============================================================================
  # ** Game_System
  #=============================================================================
  class Game_System
    attr_accessor :set_effect
    alias_method(:dsi_equipment_set_effect_initialize, :initialize)
    #------------------------------------------------------------------------
    # * new method: initialize
    #------------------------------------------------------------------------
    def initialize
      @set_effect = {}
      dsi_equipment_set_effect_initialize
    end
  end # Game_System
  #=============================================================================
  # ** Scene_Battle
  #=============================================================================
  class Scene_Battle
    #--------------------------------------------------------------------------
    # Handles card costs
    #--------------------------------------------------------------------------
    def invoke_card_cost(effect_name)
      effect_array = PC27::CG::CARD_EFFECT[effect_name]
      if effect_array[0] == :draw
        card_effect_draw_cards(effect_array[1], effect_array[2], effect_array[3])
        new_skill_id = @skill.id
        if $game_system.set_effect[:skill_id]
          $game_system.set_effect[:skill_id].each do |replacer|
            if @skill.id == replacer[0]
              new_skill_id = replacer[1]
            end
          end
        end
        BattleManager.actor.input.set_skill(new_skill_id)
        BattleManager.actor.last_skill.object = @skill
        if !@skill.need_selection?
          @skill_window.hide
          next_command
        elsif @skill.for_opponent?
          select_enemy_selection
        else
          select_actor_selection
        end
      else
        $game_message.background = 1
        $game_message.position   = 1
        $game_message.add(PC27::CG::CARD_EFF_TEXT)
        wait_for_message
        prepare_select_window(:cost, effect_array[0])
        @temp_effect_data = [] unless @temp_effect_data
        @temp_effect_data[0] = :cost
        process_select_cards(effect_name)
      end
    end
    #--------------------------------------------------------------------------
    # On Skill Ok checks for card costs
    #--------------------------------------------------------------------------
    alias pc27_cardgame_scene_battle_on_skill_ok on_skill_ok
    def on_skill_ok
      @skill = @skill_window.item
      BattleManager.actor.card_to_stack?(@skill.id)
      if @skill.cost
        invoke_card_cost(@skill.cost)
        @skill_window.hide
      else
        new_skill_id = @skill.id
        if $game_system.set_effect[:skill_id]
          $game_system.set_effect[:skill_id].each do |replacer|
            if @skill.id == replacer[0]
              new_skill_id = replacer[1]
            end
          end
        end
        BattleManager.actor.input.set_skill(new_skill_id)
        BattleManager.actor.last_skill.object = @skill
        if !@skill.need_selection?
          @skill_window.hide
          next_command
        elsif @skill.for_opponent?
          select_enemy_selection
        else
          select_actor_selection
        end
      end
    end
  end # Scene_Battle
  #==============================================================================
  # ** Scene_Equip
  #==============================================================================
  class Scene_Equip
    include DSIVER144::Equipment_Set
    alias_method(:dsi_equipment_set_info_window_creation, :start)
    #--------------------------------------------------------------------------
    # * Start Processing
    #--------------------------------------------------------------------------
    def start
      dsi_equipment_set_info_window_creation # Call original method
      create_equipment_set_info_window
      create_equipment_set_skill_info_window
    end
    #--------------------------------------------------------------------------
    # * Update All Windows
    #--------------------------------------------------------------------------
    alias_method(:dsi_equipment_set_update_all_windows, :update_all_windows)
    def update_all_windows
      return if @equipment_set_skill_info_window.visible
      dsi_equipment_set_update_all_windows
    end
    #-------------------------------------------------------------------------
    # * new method: easeInOutQuad
    #-------------------------------------------------------------------------
    def easeInOutQuad(t, b, c, d)
      t = t / (d/2.0)
      if (t < 1)
        return c/2*t*t + b
      end
      t -= 1
      return -c/2.0 * (t*(t-2) - 1) + b
    end
    #-------------------------------------------------------------------------
    # * new method: update
    #-------------------------------------------------------------------------
    alias_method(:dsi_update_equipment_set, :update)
    def update
      dsi_update_equipment_set
      if Input.trigger?(:X)
        @equipment_set_skill_info_window.show_skill_info($game_system.set_effect[:set_id])
        @equipment_set_skill_info_window.visible = !@equipment_set_skill_info_window.visible
        @equipment_set_skill_info_window.update
      end
      if @equipment_set_skill_info_window.visible && Input.trigger?(:B)
        @equipment_set_skill_info_window.visible = false
        @equipment_set_skill_info_window.update
      end
    end
    #--------------------------------------------------------------------------
    # * new method: create_equipment_set_info_window
    #--------------------------------------------------------------------------
    def create_equipment_set_skill_info_window
      ww = Graphics.width - 90
      wh = Graphics.height - 100
      wx = (Graphics.width - ww) * 0.5
      wy = (Graphics.height - wh) * 0.5
      @equipment_set_skill_info_window = Window_EquipmentSetSkillInfo.new(wx,wy,ww,wh)
      @equipment_set_skill_info_window.z = 200
      DSIVER144::Equipment_Set.check_for_set(@actor.equips)
      @equipment_set_skill_info_window.visible = false
    end
    #--------------------------------------------------------------------------
    # * new method: create_equipment_set_info_window
    #--------------------------------------------------------------------------
    def create_equipment_set_info_window
      wx = @slot_window.x + @slot_window.width
      wy = @command_window.y
      ww = Graphics.width - @slot_window.width
      wh = @slot_window.height + @command_window.height
      @equipment_set_info_window = Window_EquipmentSetInfo.new(wx,wy,ww,wh)
      @equipment_info_x_ori = @equipment_set_info_window.x
      @equipment_set_info_window.x = Graphics.width
      DSIVER144::Equipment_Set.check_for_set(@actor.equips)
      if $game_system.set_effect[:set_id]
        @equipment_set_info_window.x = @equipment_info_x_ori
        @equipment_set_info_window.show
        @equipment_set_info_window.show_info($game_system.set_effect[:set_id])
      else
        @equipment_set_info_window.hide
      end
    end
    #--------------------------------------------------------------------------
    # * new method: show_set_info_window
    #--------------------------------------------------------------------------
    def show_set_info_window
      return if @equipment_set_info_window.x == @equipment_info_x_ori
      start_time = Graphics.frame_count
      start_x = Graphics.width
      change_x = @equipment_info_x_ori - start_x
      while (current_time = Graphics.frame_count - start_time) < 60
        @equipment_set_info_window.x = easeInOutQuad(current_time, start_x, change_x, 60)
        Graphics.update
      end
    end
    #--------------------------------------------------------------------------
    # * new method: hide_set_info_window
    #--------------------------------------------------------------------------
    def hide_set_info_window
      return if @equipment_set_info_window.x == Graphics.width
      @equipment_set_info_window.x = Graphics.width
      start_time = Graphics.frame_count
      start_x = @equipment_info_x_ori
      change_x = Graphics.width - start_x
      while (current_time = Graphics.frame_count - start_time) < 60
        @equipment_set_info_window.x = easeInOutQuad(current_time, start_x, change_x, 60)
        Graphics.update
      end
    end
    #--------------------------------------------------------------------------
    # * new method: check_for_equipment_set
    #--------------------------------------------------------------------------
    def check_for_equipment_set
      DSIVER144::Equipment_Set.check_for_set(@actor.equips)
      if $game_system.set_effect[:set_id]
        @equipment_set_info_window.show
        @equipment_set_info_window.show_info($game_system.set_effect[:set_id])
        show_set_info_window
      else
        hide_set_info_window
        @equipment_set_info_window.hide
      end
    end
    #--------------------------------------------------------------------------
    # * new method: command_clear
    #--------------------------------------------------------------------------
    alias_method(:dsi_command_clear_equipment_set, :command_clear)
    def command_clear
      dsi_command_clear_equipment_set # Call original method
      check_for_equipment_set
    end
    #--------------------------------------------------------------------------
    # * new method: on_item_ok
    #--------------------------------------------------------------------------
    alias_method(:dsi_on_item_ok_equipment_set, :on_item_ok)
    def on_item_ok
      dsi_on_item_ok_equipment_set # Call original method
      check_for_equipment_set
    end
  end # Scene_Equip
#==============================================================================
# ** Window_EquipmentSetSkillInfo
#==============================================================================
class Window_EquipmentSetSkillInfo < Window_Base
  include DSIVER144::Equipment_Set
  #-------------------------------------------------------------------------
  # * new method: show_skill_info
  #-------------------------------------------------------------------------
  def show_skill_info(set_id)
    contents.clear
    contents.turn_on_wordwraping
    x = 0; y = 0
    change_color(text_color(20))
    contents.font.size = 20
    draw_text(x,y,contents_width,line_height,"Equipment Set Effect",1)
    equip_set = Equipments[set_id]
    reset_font_settings
    y += 24
    info = ""
    [1,3,5].each do |set_type|
      change_color(text_color(11), true)
      enable_color = $game_system.set_effect[:have_item].size >= set_type ? 11 : 10
      txt_color = $game_system.set_effect[:have_item].size >= set_type ? 7 : 0
      info << "\\c[#{enable_color}][#{set_type}] Set Effect" + "\n"
      equip_set[:set][set_type][:info].each do |text|
        info << "\\c[#{txt_color}] + " + text + "\n"
      end
    end
    contents.draw_text_ex(x,y,info,false,18)
  end
end # Window_EquipmentSetSkillInfo
#==============================================================================
# ** Window_EquipmentSetInfo
#==============================================================================
class Window_EquipmentSetInfo < Window_Base
  include DSIVER144::Equipment_Set
  #-------------------------------------------------------------------------
  # * new method: show_info
  #-------------------------------------------------------------------------
  def show_info(set_id)
    contents.clear
    equip_set = Equipments[set_id]
    x = 0; y = 0
    change_color(normal_color, true)
    draw_text(x,y,contents.width,line_height,equip_set[:name],1)
    y += 24;
    equip_set[:items].each do |str_data|
      if $game_system.set_effect[:have_item].include?(str_data)
        change_color(text_color(11), true)
      else
        change_color(normal_color, false)
      end
      if str_data =~ /(w|a)(\d+)/i
        name = $1 == "a" ? $data_armors[$2.to_i].name : $data_weapons[$2.to_i].name
      end
      draw_text(x,y,contents.width,line_height," - " + name)
      y += 16;
    end
    y += 16
    draw_text_ex(x,y,"Press [A] for more info.")
  end
end # Window_EquipmentSetInfo
#==============================================================================
# ** Window_EquipCommand
#------------------------------------------------------------------------------
#  This window is for selecting commands (change equipment/ultimate equipment
# etc.) on the skill screen.
#==============================================================================
class Window_EquipCommand < Window_HorzCommand
  #--------------------------------------------------------------------------
  # * Get Window Width
  #--------------------------------------------------------------------------
  def window_width
    @window_width
  end
  #--------------------------------------------------------------------------
  # * Get Digit Count
  #--------------------------------------------------------------------------
  def col_max
    return 2
  end
  #--------------------------------------------------------------------------
  # * Create Command List
  #--------------------------------------------------------------------------
  def make_command_list
    add_command(Vocab::equip2,   :equip)
    #add_command(Vocab::optimize, :optimize)
    add_command(Vocab::clear,    :clear)
  end
end # Window_EquipCommand
#===============================================================================
# * END OF FILE
#===============================================================================