Ruby Quellcode

#==============================================================================
# ** Teamwechsel V1
# Teamwechsel.rb von Caesar (09.09.2009)
#------------------------------------------------------------------------------
# http://www.rpg-studio.de/scriptdb/node/386
# http://www.rpg-studio.de/forum/index.php?page=Thread&threadID=9342
#==============================================================================
 
#//////////////////////////////////////////Teamwechsel//////////////////////////////////////
#~~~~~~~~~~~~~~~~~~~~by Caesar~~~~~~~~~~~~~~~~~
#\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
class Scene_Party
  def main
	@left = $game_party.actors.collect { |actor| actor.id}
	@right = $game_temp.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_Temp
  attr_accessor :selectable_actors
end