Ruby Quellcode

#//////////////////////////////////////////Teamwechsel//////////////////////////////////////
#~~~~~~~~~~~~~~~~~~~~by Caesar~~~~~~~~~~~~~~~~~
#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
class Scene_Party
  def main
    @left = $game_party.actors.collect { |actor| actor.id}
    @right = $game_system.selectable_actors - $game_party.actors.collect{|i| i.id}
    @window_actor = Window_ActorInfo.new
    @help_window = Window_Help.new
    @help_window.set_text(remove_actor_text, 1)
    @window_left = Window_Command.new(320, @left.collect{
        |i| $data_actors[i].name})
    @window_left.y = 64
    @window_left.height = 268
    @window_right = Window_Command.new(320, @right.collect{
        |i| $data_actors[i].name})
    @window_right.x = 320
    @window_right.y = 64
    @window_right.height = 268
    set_inactive(@window_right)
    @old_index = -1
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      break unless $scene == self
    end
    Graphics.freeze
    @window_actor.dispose
    @help_window.dispose
    @window_left.dispose
    @window_right.dispose
  end
  #---------------
  def update
    @window_actor.update
    @help_window.update
    @window_left.update
    @window_right.update
    #::::::::::::::
    if Input.trigger?(Input::B)
      if @left.size <= 0
        $game_system.se_play($data_system.buzzer_se)
        @help_window.set_text(no_actors_text, 1)
      elsif @left.size > 4
        $game_system.se_play($data_system.buzzer_se)
        @help_window.set_text(too_many_actors_text, 1)
      else
        $game_party.actors.clear
        @left.each {|i| $game_party.add_actor(i)}
        $game_system.se_play($data_system.cancel_se)
        $scene = Scene_Map.new
      end
    end
    #:::::::::::::::::
    if Input.trigger?(Input::C)
      $game_system.se_play($data_system.decision_se)
      if @window_left.active
        @right.push(@left.delete_at(@window_left.index))
        @old_index = -1
        if @left.size <= 0
          @help_window.set_text(remove_actor_text, 1)
          set_inactive(@window_left)
          set_active(@window_right)
        end
      else
        @left.push(@right.delete_at(@window_right.index))
        @old_index = -1
        if @right.size <= 0
          @help_window.set_text(add_actor_text, 1)
          set_inactive(@window_right)
          set_active(@window_left)
        end
      end
      @window_left.commands = @left.collect{|i| $data_actors[i].name}
      @window_right.commands = @right.collect{|i| $data_actors[i].name}
    end
    #::::::::::::::::::
    if Input.trigger?(Input::LEFT) and @window_right.active
      if @left.size > 0
        @old_index = -1
        @help_window.set_text(remove_actor_text, 1)
        $game_system.se_play($data_system.cursor_se)
        set_inactive(@window_right)
        set_active(@window_left)
      else
        $game_system.se_play($data_system.buzzer_se)
      end
    end
    #:::::::::::::::::
    if Input.trigger?(Input::RIGHT) and @window_left.active
      if @right.size > 0
        @old_index = -1
        @help_window.set_text(add_actor_text, 1)
        $game_system.se_play($data_system.cursor_se)
        set_inactive(@window_left)
        set_active(@window_right)
      else
        $game_system.se_play($data_system.buzzer_se)
      end
    end
    #::::::::::::::::::
    if Input.repeat?(Input::L) and @window_left.active
      @left.swap_up!(@window_left.index)
      @window_left.swap_up
    end
    #::::::::::::::::::
    if Input.repeat?(Input::R) and @window_left.active
      @left.swap_down!(@window_left.index)
      @window_left.swap_down
    end
    #::::::::::::::::::
    index = @window_left.active ? @window_left.index : @window_right.index
    if index != @old_index
      @old_index = index
      update_actor_info
    end
  end
  #--------------------
  def update_actor_info
    if @window_left.active
      index = @window_left.index
      @window_actor.actor = $game_actors[@left[index]] if index != -1
    else
      index = @window_right.index
      @window_actor.actor = $game_actors[@right[index]] if index != -1
    end
  end
  #--------------------
  def set_active(window)
    window.active = true
    window.opacity = 255
    window.contents_opacity = 255
  end
  #--------------------
  def set_inactive(window)
    window.active = false
    window.opacity = 160
    window.contents_opacity = 160
  end
  #--------------------
  def add_actor_text
    "Helden dem Team hinzufügen"
  end
  #--------------------
  def remove_actor_text
    "Helden aus dem Team entfernen"
  end
  #--------------------
  def too_many_actors_text
    "Es sind zu viele Helden im Team!"
  end
  #--------------------
  def no_actors_text
    "Im Team muss sich mindestens ein Held befinden!"
  end
end
#==================
class Window_ActorInfo < Window_Base
  attr_reader :actor
  #----------------
  def initialize(actor=nil)
    super(0, 332, 640, 148)
    self.contents = Bitmap.new(width - 32, height - 32)
    refresh
  end
  #-----------------
  def refresh
    self.contents.clear
    return if @actor.nil?
    x = 140
    draw_actor_graphic(@actor, x - 40, 80)
    draw_actor_name(@actor, x, 0)
    draw_actor_class(@actor, x + 144, 0)
    draw_actor_level(@actor, x, 32)
    draw_actor_state(@actor, x + 90, 32)
    draw_actor_exp(@actor, x, 64)
    draw_actor_hp(@actor, x + 236, 32)
    draw_actor_sp(@actor, x + 236, 64)
  end
  #-----------------
  def actor=(actor)
    @actor = actor
    refresh
  end
end
#=========================
class Window_Command < Window_Selectable
  attr_reader :commands
  #--------------
  def commands=(commands)
    if commands.size != @commands.size
      @item_max = commands.size
      self.contents = Bitmap.new(width - 32, @item_max * 32) if @item_max > 0
      @index -= 1 if @index >= @item_max
      @index = 0 if @item_max == 1
    end
    @commands = commands
    refresh
  end
  #---------------
  def swap_up
    $game_system.se_play($data_system.cursor_se)
    @commands = @commands.swap_up(@index)
    if @index > 0
      @index -= 1
      refresh
    end
  end
  #-----------------
  def swap_down
    $game_system.se_play($data_system.cursor_se)
    @commands = @commands.swap_down(@index)
    if @index < @commands.size-1
      @index += 1
      refresh
    end
  end
end
#========================
class Array
  def swap_up(index)
    arr = dup
    return arr unless index > 0
    arr[index] = self[index-1]
    arr[index-1] = self[index]
    return arr
  end
  #------------------
  def swap_down(index)
    arr = dup
    return arr unless index < size-1
    arr[index] = self[index+1]
    arr[index+1] = self[index]
    return arr
  end
  #----------------
  def swap_up!(index)
    return unless index > 0
    temp = self[index]
    self[index] = self[index-1]
    self[index-1] = temp
  end
  #----------------
  def swap_down!(index)
    return unless index < size-1
    temp = self[index]
    self[index] = self[index+1]
    self[index+1] = temp
  end
end
#========================
class Game_System
  attr_accessor :selectable_actors
  #--------------
  alias actors_init initialize
  def initialize
    actors_init
    @selectable_actors = (1...$data_actors.size).to_a
  end
end