领队更换系统 VX版

教学摘要： 　　原版：领队更换系统 作者：SailCat http://www.66rpg.com/htm/news859.htm 按 shlft 键 就可以更改领队人物 教程作者：King 首发网址：点此进入本教学的原始帖 适宜用户：需要此效果 技术通用度：★★★★ 技术应用复杂度：40 （满分150分） 学习的理解难度：50 （满分150分）

 作者的话：

# 添加此脚本后，在地图画面按下A键或者shlft键更换当前的领队。
# 领队更改不会造成战斗队伍、菜单队伍次序的更改。
# 若要在条件分歧中调用领队，请用脚本：$game_party.leader == 序号
# 序号为0-3的值，最大不会超过队伍的角色数目减1。

 教学正文：

#==============================================================================
# 领队更换系统 by SailCat  
领队更换系统  VX版 by King
#------------------------------------------------------------------------------
# 添加此脚本后，在地图画面按下A键或者shlft键更换当前的领队。
# 领队更改不会造成战斗队伍、菜单队伍次序的更改。
# 若要在条件分歧中调用领队，请用脚本：$game_party.leader == 序号
# 序号为0-3的值，最大不会超过队伍的角色数目减1。
#==============================================================================
class Game_Party
 #--------------------------------------------------------------------------
 # ● 追加实例变量
 #--------------------------------------------------------------------------
 attr_reader   :leader
 alias sailcat_initialize initialize
 alias sailcat_setup_starting_members setup_starting_members
 #--------------------------------------------------------------------------
 # ● 初始化对像
 #--------------------------------------------------------------------------
 def initialize
   # 生成领队
   @leader = 0
   sailcat_initialize
 end
 #--------------------------------------------------------------------------
 # ● 设置初期同伴
 #--------------------------------------------------------------------------
 def setup_starting_members
   sailcat_setup_starting_members
   # 生成领队
   @leader = 0
 end
 #--------------------------------------------------------------------------
 # ● 设置领队
 #--------------------------------------------------------------------------
 def switch_leader
   @leader += 1
   @leader %= @actors.size
 end
end
class Game_Player
 alias sailcat_update update
 #--------------------------------------------------------------------------
 # ● 刷新
 #--------------------------------------------------------------------------
 def refresh
   # 同伴人数为 0 的情况下
  if $game_party.members.size == 0
     # 清除角色的文件名及对像
     @character_name = ""
     @character_hue = 0
     # 分支结束
     return
   end
   # 获取带头的角色
   actor = $game_party.members[$game_party.leader]
   # 设置角色的文件名及对像
   @character_name = actor.character_name
   @character_index = actor.character_index
   # 初始化不透明度和合成方式
   @opacity = 255
   @blend_type = 0
 end
 #--------------------------------------------------------------------------
 # ● 画面更新
 #--------------------------------------------------------------------------
 def update
   # 按下 A 键的情况下
   if Input.trigger?(Input::X)
     # 更换领队
     $game_party.switch_leader
     refresh
   end
   sailcat_update
 end
end