Weapons Swap

[kyonides]

Weapons Swap Skill

XP + VX + ACE

by Kyonides

Introduction

This is the natural outcome of implementing the Weapons Swap script:

to let     Your Foes Use It Against You!     

The Scripts

XP Script with Enemy's Skill

Code:

# * Weapons Swap & Skill XP * #
#   Scripter : Kyonides Arkanthes
#   2023-01-15

# - Free for use in Non Commercial Projects - #

# * Script Calls * #

# - Swap Weapons either by Force or by Unequipping Forbidden Weapons
#   Force? stands for true or false.
#   $game_party.swap_weapons(Force?, PartyIndex1, PartyIndex2)

# - Allow Dual Wield alias Two Swords Style
#   $game_actors[ActorID].dual_wield = true

# * NOTES * #

# Set the SKILL_ID Constant to the corresponding Skill Number in the DB.

# Set the ID of the BY_FORCE_SWITCH_ID Constant and set the corresponding
# Game Variable to true before any battle where you want the mobsters to
# perform the swap BY FORCE.

module KWSwap
  SKILL_ID = 91
  BY_FORCE_SWITCH_ID = 3
end

class Game_Battler
  alias :kyon_weapon_swap_skill_skill_fx :skill_effect
  def skill_effect(user, skill)
    if user.is_a?(Game_Enemy) and KWSwap::SKILL_ID == skill.id
      heroes = $game_party.actors
      return if heroes.size < 2
      pos1 = self.index
      pos2 = rand(heroes.size)
      force = $game_switches[KWSwap::BY_FORCE_SWITCH_ID]
      return $game_party.swap_weapons(force, pos1, pos2)
    end
    kyon_weapon_swap_skill_skill_fx(user, skill)
  end
end

class Game_Actor
  attr_writer :weapon_id, :armor1_id
  attr_accessor :dual_wield
  alias :two_swords_style :dual_wield
  alias :two_swords_style= :dual_wield=
  def equip_weapon?
    $data_classes[@class_id].weapon_set.include?(@weapon_id)
  end
   
  def equip_armor1?
    klass = $data_classes[@class_id]
    if @dual_wield
      return klass.weapon_set.include?(@weapon_id)
    else
      return klass.armor_set.include?(@armor1_id)
    end
  end

  def unequip_weapon
    $game_party.gain_weapon(@weapon_id, 1)
    @weapon_id = 0
    nil
  end

  def unequip_armor1
    $game_party.gain_armor(@armor1_id, 1)
    @armor1_id = 0
    nil
  end

  def swap_weapon(new_id, force=true)
    return unequip_weapon if equip_fix?(0) or (!force and equip_weapon?)
    @weapon_id = new_id
    true
  end

  def swap_armor1(new_id, force=true)
    return unequip_armor1 if equip_fix?(1) or (!force and !equip_armor1?)
    @armor1_id = new_id
    true
  end
end

class Game_Party
  def swap_weapons(force, *indexes)
    return if indexes[0] == indexes[1]
    heroes = indexes.map{|n| @actors[n] }
    r1, r2 = nil, nil
    if heroes[0].dual_wield and heroes[1].dual_wield
      r2 = swap_armor_ids(force, *heroes)
    end
    r1 = swap_weapon_ids(force, *heroes)
    return (r1 or r2)
  end
  private
  def swap_weapon_ids(force, hero1, hero2)
    w1, w2 = hero1.weapon_id, hero2.weapon_id
    r1 = hero1.swap_weapon(w2, force)
    r2 = hero2.swap_weapon(w1, force)
    return (r1 or r2)
  end

  def swap_armor_ids(force, hero1, hero2)
    a1, a2 = hero1.armor1_id, hero2.armor1_id
    r1 = hero1.swap_armor1(a2, force)
    r2 = hero2.swap_armor1(a1, force)
    return (r1 or r2)
  end
end

VX Script

Code:

# * Weapons Swap Skill VX * #
#   Scripter : Kyonides Arkanthes
#   2023-01-14

# - It's free as in beer. - #

# Just leave the following comment in the Skill's Note Box:
#   <weapon swap>

class Game_Battler
  WEAPON_SWAP_REGEX = /<weapon swap>/i
  alias :kyon_weapon_swap_skill_skill_fx :skill_effect
  def apply_weapon_swap(user, skill)
    if skill.note[WEAPON_SWAP_REGEX] and user.is_a?(Game_Enemy)
      clear_action_results
      heroes = $game_party.member_ids
      return @skipped = true if heroes.size < 2
      pos1 = self.index
      pos2 = rand(heroes.size)
      result = $game_party.swap_weapons(pos1, pos2)
      return @missed = nil
    end
  end

  def skill_effect(user, skill)
    kyon_weapon_swap_skill_skill_fx(user, skill)
    apply_weapon_swap(user, skill)
  end
end

VX ACE Script with Enemy's Skill

NOTE: VX Ace will always attempt to remove the forbidden weapons as stated in the comments embedded in my script. What I did was creating a WS state to prevent it from doing it while in battle. Once you go back to the map, you will find your weapons in your party's inventory.

Code:

# * Weapons Swap & Skill ACE * #
#  Scripter : Kyonides Arkanthes
#  2023-01-15

# - It's free as in beer. - #

# * Script Call - #

# - Swap Weapons - Force? Options: true or false - #
#  $game_party.swap_weapons(Force?, PartyIndex1, PartyIndex2)

# - Define the WS Skill by leaving a comment in the Skill's Note Box:
#  <weapon swap force>  or  <weapon swap lazy>

# - Create a Weapons Swap State in the States DB and Set the value of the
#  STATE Constant accordingly. It is found in the KWSwap Module.

# * Warning * #

#  VX ACE will ALWAYS attempt to REMOVE unequippable weapons whenever ANY
#  State Change or Buff or Debuff and other alterations takes place.

module KWSwap
  STATE = 26
  REGEX = /<weapon swap (force|lazy)>/i
end

class Game_BaseItem
  attr_accessor :item_id
end

class Game_Battler
  alias :kyon_weapon_swap_skill_item_user_fx :item_user_effect
  def apply_weapon_swap(user, skill)
    return unless skill.note[KWSwap::REGEX] and user.is_a?(Game_Enemy)
    heroes = $game_party.member_ids
    if heroes.size < 2
      @result.missed = true
      return
    end
    pos1 = self.index
    pos2 = rand(heroes.size)
    force = $1[/force/] != nil
    success = $game_party.swap_weapons(force, pos1, pos2)
    if success
      hero2 = heroes[pos2]
      $game_actors[hero2].add_state(KWSwap::STATE)
      add_state(KWSwap::STATE)
    end
    @result.used = success
  end

  def item_user_effect(user, item)
    swapped = false
    swapped |= apply_weapon_swap(user, item) if item.is_a?(RPG::Skill)
    kyon_weapon_swap_skill_item_user_fx(user, item) unless swapped
  end
end

class Game_Actor
  alias :kyon_weapon_swap_skill_refresh :refresh
  def refresh
    if state?(KWSwap::STATE)
      super
      return
    end
    kyon_weapon_swap_skill_refresh
  end
  def just_equips() @equips end
end

class Game_Party
  def get_hero(pos)
    $game_actors[@actors[pos]]
  end

  def swap_equip_item_ids(force, pos, hero1, hero2)
    he1 = hero1.just_equips[pos]
    he2 = hero2.just_equips[pos]
    he1.item_id, he2.item_id = he2.item_id, he1.item_id
    return if force
    hero1.refresh
    hero2.refresh
  end
  private :get_hero, :swap_equip_item_ids

  def swap_weapons(force, *indexes)
    return if indexes[0] == indexes[1]
    hero1 = get_hero(indexes.shift)
    hero2 = get_hero(indexes.shift)
    if hero1.dual_wield? and hero2.dual_wield?
      swap_equip_item_ids(force, 1, hero1, hero2)
    end
    swap_equip_item_ids(force, 0, hero1, hero2)
    return true
  end
  def member_ids() @actors end
end

Same Terms & Conditions as the Main Script on the Main Thread.