#파티 교체
#
#간이의 파티 바꿔 넣고 스크립트입니다. 
#스윗치의 것 on off 으로 바꿔 넣고 가부를 조작할 수 있습니다. 
#그리고 , 제외하고 싶지 않은 엑터의 설정도 가능. 
#
#어디까지나 , 엑터의 가입과 이탈의 기능 밖에 없기 때문에 사용하기 어려울지도 모릅니다. 
#간이 스테이터스 표시에 대응했습니다. 
#A버튼으로 스테이터스의 표시 , 비표시를 변경할 수 있습니다. 
#
#●설정 방법법
#·최대 파티 가입 인원수
#  바로 아래의 것 @party_max = 4 의 부분을 변경 , 통상은4. 
#
#·최저 파티 가입 인원수(최저 선택해야 하는 인원수)
#  바로 아래의 것 @party_min = 1 의 부분을 변경 , 초기로는 우선1으로 설정. 
#
#·강제 가입 엑터(절대로 파티에 들어가는 엑터)
#  바로 아래의 것 @must_actors = [$game_actors[1]] 의 부분을 변경 ,
#  초기로는 우선 ,ID1차례의 엑터(아르시스)에게 설정. 
#  (설정예)
#  @must_actors = [$game_actors[1], $game_actors[2]]
#  이것으로ID1차례와2차례의 엑터가 강제 가입 엑터로 설정됩니다. 
#
#  덧붙여서 , 이벤트 커멘드의 「스크립트」로
#  $game_party.must_actors = [$game_actors[1]]
#  등으로 , 게임중으로 설정 가능합니다. (최대 최저 인원수라든지도 이와 같이 가능)
#
#·파티 가입 가부 판정
#  class Window_Party_Select 의 것 party_in_menber 으로 설정해 있습니다. 
#  (설정예)
#  menber.push($game_actors[1])  
#  menber.push($game_actors[2])  if $game_switches[1]
#  
#  이것으로 ,ID1차례의 엑터(아르시스)는 상시 가입 가능해
#  ID2차례의 엑터(누구던가? )(은)는 게임 스윗치의1차례가ON때
#  가입 가능해집니다. 
#
#  초기설정에서는 ,ID1차례는 상시 가입 가능해 ,
#  ID2-8차례는 각각 , 게임 스윗치1-7차례가ON때
#  가입 가능하게 설정되어 있습니다. 

class Game_Party
  attr_accessor :party_max
  attr_accessor :party_min
  attr_accessor :must_actors
  alias party_select_initialize initialize
  def initialize
    party_select_initialize
    @party_max = 8
    @party_min = 1
    @must_actors = []
  end
end

class Window_Party_Select < Window_Selectable
  #--------------------------------------------------------------------------
  # ● 오브젝트 초기화
  #--------------------------------------------------------------------------
  def initialize
    super(0, 96, 640, 384)
    @party_in_ok_menber = party_in_menber
    @item_max = party_in_menber.size
    @column_max = 4
    self.contents = Bitmap.new(width - 32, row_max * 88)
    self.index = 0
    refresh
  end
  #--------------------------------------------------------------------------
  # ● 엑터의 취득
  #--------------------------------------------------------------------------
  def menber
    return @party_in_ok_menber[self.index]
  end
  #--------------------------------------------------------------------------
  # ● 파티in가능한 멤버 취득
  #--------------------------------------------------------------------------
  def party_in_menber
    menber = []
    menber.push($game_actors[1])  
    menber.push($game_actors[2])  if $game_switches[15]
    menber.push($game_actors[3])  if $game_switches[16]
    menber.push($game_actors[4])  if $game_switches[17]
    menber.push($game_actors[5])  if $game_switches[18]
    menber.push($game_actors[6])  if $game_switches[19]
    menber.push($game_actors[7])  if $game_switches[20]
    menber.push($game_actors[8])  if $game_switches[21]
    return menber
  end
  #--------------------------------------------------------------------------
  # ● 리프레쉬
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0...@party_in_ok_menber.size
      draw_menber(i)
    end
  end
  #--------------------------------------------------------------------------
  # ● 엑터 묘화
  #--------------------------------------------------------------------------
  def draw_menber(index)
    actor = @party_in_ok_menber[index]
    x = 4 + index % @column_max * (640 / @column_max)
    y = index / @column_max * 88
    if $game_party.must_actors.include?(actor)
      color = text_color(3)
      opacity = 255
    elsif $game_party.actors.include?(actor)
      color = normal_color
      opacity = 255
    else
      color = disabled_color
      opacity = 128
    end
    self.contents.font.color = color
    self.contents.draw_text(x, y, 120, 32, actor.name)
    bitmap = RPG::Cache.character(actor.character_name, actor.character_hue)
    cw = bitmap.width / 4
    ch = bitmap.height / 4
    src_rect = Rect.new(0, 0, cw, ch)
    self.contents.blt(x+32 - cw / 2, y+64+16 - ch, bitmap, src_rect, opacity)
  end
  #--------------------------------------------------------------------------
  # ● 행 수의 취득
  #--------------------------------------------------------------------------
  def row_max
    # 항목수와 렬수로부터 행수를 산출
    return (@item_max + @column_max - 1) / @column_max
  end
  #--------------------------------------------------------------------------
  # ● 선두의 행의 취득
  #--------------------------------------------------------------------------
  def top_row
    # 윈도우 내용의 전송원 Y 좌표를 ,1 행의 높이 32 로 나누는
    return self.oy / 88
  end
  #--------------------------------------------------------------------------
  # ● 선두의 행의 설정
  #     row : 선두에 표시하는 행
  #--------------------------------------------------------------------------
  def top_row=(row)
    # row 이 0 미만의 경우는 0 에 수정
    if row < 0
      row = 0
    end
    # row 이 row_max - 1 초과의 경우는 row_max - 1 에 수정
    if row > row_max - 1
      row = row_max - 1
      if row < 0
        row = 0
      end
    end
    # row 에 1 행의 높이 32 를 걸어 윈도우 내용의 전송원 Y 좌표로 하는
    self.oy = row * 88
  end
  #--------------------------------------------------------------------------
  # ● 1 페이지에 표시할 수 있는 행수의 취득
  #--------------------------------------------------------------------------
  def page_row_max
    # 윈도우의 높이로부터 , 프레임의 높이 32 를 당겨 ,1 행의 높이 32 로 나누는
    return (self.height - 32) / 88
  end
  #--------------------------------------------------------------------------
  # ● 커서의 구형 갱신
  #--------------------------------------------------------------------------
  def update_cursor_rect
    if @index < 0
      self.cursor_rect.empty
      return
    end
    # 현재의 행을 취득
    row = @index / @column_max
    # 현재의 행이 , 표시되고 있는 선두의 행보다 전의 경우
    if row < self.top_row
      # 현재의 행이 선두가 되도록(듯이) 스크롤
      self.top_row = row
    end
    # 현재의 행이 , 표시되고 있는 최후미의 행부터 뒤의 경우
    if row > self.top_row + (self.page_row_max - 1)
      # 현재의 행이 최후미가 되도록(듯이) 스크롤
      self.top_row = row - (self.page_row_max - 1)
    end
    # 커서의 폭을 계산
    cursor_width = 512 / @column_max
    # 커서의 좌표를 계산
    x = @index % @column_max * (cursor_width + 32)#(640 / @column_max)
    y = @index / @column_max * 88 - self.oy
    # 커서의 구형을 갱신
    self.cursor_rect.set(x, y, cursor_width, 32)
  end
end

class Window_Party_Select_Menber < Window_Base
  #--------------------------------------------------------------------------
  # ● 오브젝트 초기화
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 640, 96)
    self.contents = Bitmap.new(width - 32, height - 32)
    refresh
  end
  #--------------------------------------------------------------------------
  # ● 리프레쉬
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0...$game_party.actors.size
      draw_menber(i)
    end
  end
  #--------------------------------------------------------------------------
  # ● 엑터 묘화
  #--------------------------------------------------------------------------
  def draw_menber(index)
    actor = $game_party.actors[index]
    x = 4 + index * (640 / $game_party.party_max)
    y = 0
    draw_actor_graphic(actor, x+32, y+48+8)
  end
end

class Window_Party_Select_Menber_Status < Window_Base
  #--------------------------------------------------------------------------
  # ● 오브젝트 초기화
  #--------------------------------------------------------------------------
  def initialize
    super(0, 288, 640, 192)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.visible = false
  end
  #--------------------------------------------------------------------------
  # ● 리프레쉬
  #--------------------------------------------------------------------------
  def refresh(actor)
    self.contents.clear
    draw_actor_name(actor, 4, 0)
    draw_actor_class(actor, 4 + 144, 0)
    draw_actor_level(actor, 4, 32)
    draw_actor_state(actor, 4 + 72, 32)
    draw_actor_hp(actor, 4, 64, 172)
    draw_actor_sp(actor, 4, 96, 172)
    draw_actor_parameter(actor, 218, 32, 0)
    draw_actor_parameter(actor, 218, 64, 1)
    draw_actor_parameter(actor, 218, 96, 2)
    draw_actor_parameter(actor, 430, 32, 3)
    draw_actor_parameter(actor, 430, 64, 4)
    draw_actor_parameter(actor, 430, 96, 5)
    draw_actor_parameter(actor, 430, 128, 6)
    
  end
end

class Scene_Party_in
  #--------------------------------------------------------------------------
  # ● 메인 처리
  #--------------------------------------------------------------------------
  def main
    @main_window = Window_Party_Select.new
    @menber_window = Window_Party_Select_Menber.new
    @status_window = Window_Party_Select_Menber_Status.new
    @status_window.opacity = 192
    @status_window.z += 10
    @show_index = 0
    # 트란지션 실행
    Graphics.transition
    # 메인 루프
    loop do
      # 게임 화면을 갱신
      Graphics.update
      # 입력 정보를 갱신
      Input.update
      # 프레임 갱신
      update
      # 화면이 바뀌면(자) 루프를 중단
      if $scene != self
        break
      end
    end
    # 트란지션 준비
    Graphics.freeze
    # 윈도우를 해방
    @main_window.dispose
    @menber_window.dispose
    @status_window.dispose
  end
  #--------------------------------------------------------------------------
  # ● 프레임 갱신
  #--------------------------------------------------------------------------
  def update
    # 커멘드 윈도우를 갱신
    @main_window.update
    if @status_window.visible and @show_index != @main_window.index
      status_window_position
      @status_window.refresh(@main_window.menber)
      @show_index = @main_window.index
    end
    # B 버튼이 밀렸을 경우
    if Input.trigger?(Input::B)
      if $game_party.actors.size < $game_party.party_min
        # 버저 SE 를 연주
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      # 캔슬 SE 을 연주
      $game_system.se_play($data_system.cancel_se)
      # 메뉴 화면으로 전환하고
      $scene = Scene_Map.new
      return
    end
    # C 버튼이 밀렸을 경우
    if Input.trigger?(Input::C)
      if $game_party.must_actors.include?(@main_window.menber)
        # 버저 SE 를 연주
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      if $game_party.actors.include?(@main_window.menber)
        $game_party.remove_actor(@main_window.menber.id)
      else
        if $game_party.actors.size == $game_party.party_max
          # 버저 SE 를 연주
          $game_system.se_play($data_system.buzzer_se)
          return
        end
        $game_party.add_actor(@main_window.menber.id)
      end
      # 결정 SE 을 연주
      $game_system.se_play($data_system.decision_se)
      @main_window.refresh
      @menber_window.refresh
      return
    end
    # A 버튼이 밀렸을 경우
    if Input.trigger?(Input::A)
      # 결정 SE 을 연주
      $game_system.se_play($data_system.decision_se)
      if @status_window.visible
        @status_window.visible = false
      else
        status_window_position
        @status_window.refresh(@main_window.menber)
        @status_window.visible = true
        @show_index = @main_window.index
      end
      return
    end
  end
  def status_window_position
    if @main_window.cursor_rect.y < 176
      @status_window.y = 288
    else
      @status_window.y = 96
    end
  end
end