#=============================================================================
# Author : S4suk3, Scriptopathe
# Permet de créer un groupe suivant le héro
#==============================================================================
# ** Game_Map
#------------------------------------------------------------------------------
#  This class handles maps. It includes scrolling and passage determination
# functions. The instance of this class is referenced by $game_map.
#==============================================================================
class Game_Map
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :troop
  #--------------------------------------------------------------------------
  # * Alias
  #--------------------------------------------------------------------------
  alias old_setup setup
  alias old_update update
  #--------------------------------------------------------------------------
  # * Object Setup
  #--------------------------------------------------------------------------
  def setup(map_id)
    @troop = Array.new
    old_setup(map_id)
  end
  #--------------------------------------------------------------------------
  # * Return an event
  #--------------------------------------------------------------------------
  def event(id)
    return (id == 0) ? $game_player : $game_map.events[id]
  end
 
  #--------------------------------------------------------------------------
  # * Returns true if the given member is in the troop
  #--------------------------------------------------------------------------
  def troop_contains?(id)
    return ((@troop.find{|elt| elt.id == id}) != nil)
  end
 
  #--------------------------------------------------------------------------
  # * Add a member into a troop
  #--------------------------------------------------------------------------
  def troop_add(members, order=0)
    member = Troop::Member.new(members, order)
    return false if self.troop_contains? members
    @troop << member
    self.event(members).move_speed = ($game_player.move_speed)-1
    return true
  end
 
  #--------------------------------------------------------------------------
  # * Removes a member from a troop
  #--------------------------------------------------------------------------
  def troop_remove(member)
    if self.troop_contains? member
      @troop.delete_if{|elt| elt.id == member}
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    Troop::move(@troop) if @troop != nil
    old_update
  end
  #--------------------------------------------------------------------------
  # * Change the speed a troop
  #--------------------------------------------------------------------------
  def troop_speed=(value)
    @troop.each do |elt|
      self.event(elt.id).move_speed = value
    end
  end
  #--------------------------------------------------------------------------
  # * Change the speed a troop by the player speed
  #--------------------------------------------------------------------------
  def adjust_speed
    self.troop_speed = $game_player.move_speed
  end
 
end # End of Game_Map


#==============================================================================
# ** Game_Interpreter
#------------------------------------------------------------------------------
#  An interpreter for executing event commands. This class is used within the
# Game_Map, Game_Troop, and Game_Event classes.
#==============================================================================

class Game_Interpreter
  #--------------------------------------------------------------------------
  # * Groups a troop
  #--------------------------------------------------------------------------
  def group(*members)
    order = 1
    members.each do|elt|
      $game_map.troop_add(elt, order)
      order += 1
    end
  end
  #--------------------------------------------------------------------------
  # * Adds members to troup
  #--------------------------------------------------------------------------
  def add_to_troop(*members)
    order = $game_map.troop.length
    members.each do|elt|
      $game_map.troop_add(elt, order)
      order += 1
    end
  end
 
  #--------------------------------------------------------------------------
  # * Clears the troop
  #--------------------------------------------------------------------------
  def clear_troop
    $game_map.troop = Array.new
  end
  #--------------------------------------------------------------------------
  # * Remove members from a troop
  #--------------------------------------------------------------------------
  def remove_to_troop(*members)
    members.each do|elt|
      $game_map.troop_remove(elt)
    end
  end
  #--------------------------------------------------------------------------
  # * Modifiy troop_speed
  #--------------------------------------------------------------------------
  def troop_speed=(speed)
    $game_map.troop_speed = speed
  end
  #--------------------------------------------------------------------------
  # * Adjust speed
  #--------------------------------------------------------------------------
  def adjust_speed
    $game_map.adjust_speed
  end
 
end # End of Game_Interpreter

#==============================================================================
# ** Game_Event
#------------------------------------------------------------------------------
#  This class deals with events. It handles functions including event page
# switching via condition determinants, and running parallel process events.
# It's used within the Game_Map class.
#==============================================================================
class Game_Event
  #--------------------------------------------------------------------------
  # * Alias
  #--------------------------------------------------------------------------
  alias old_update update
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    collide if $game_map.troop_contains? @id
    old_update
  end
  #--------------------------------------------------------------------------
  # * Collide with a troop's member
  #--------------------------------------------------------------------------
  def collide
    if(Input.trigger?(Input::LEFT) && @x+1==$game_map.event(0).x && @y==$game_map.event(0).y  && $game_player.direction==4)
      # GhostMode
      temp_through = @through
      @through=true
      $game_player.move_left
      self.move_right
      # NormalMode
      @through=temp_through
    end
    if(Input.trigger?(Input::RIGHT) && @x-1==$game_map.event(0).x && @y==$game_map.event(0).y  && $game_player.direction==6)
      # GhostMode
      temp_through = @through
      @through=true
      $game_player.move_right
      self.move_left
      # NormalMode
      @through=temp_through
    end
    if(Input.trigger?(Input::UP) && @x==$game_map.event(0).x && @y+1==$game_map.event(0).y  && $game_player.direction==8)
      # GhostMode
      temp_through = @through
      @through=true
      $game_player.move_up
      self.move_down
      # NormalMode
      @through=temp_through
    end
    if(Input.trigger?(Input::DOWN) && @x==$game_map.event(0).x && @y-1==$game_map.event(0).y  && $game_player.direction==2)
      # GhostMode
      temp_through = @through
      @through=true
      $game_player.move_down
      self.move_up
      # NormalMode
      @through=temp_through
    end
  end
 
end # End of Game_Event

#==============================================================================
# ** Game_Character
#------------------------------------------------------------------------------
#  This class deals with characters. It's used as a superclass of the
# Game_Player and Game_Event classes.
#==============================================================================
class Game_Character
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :move_speed
end

#--------------------------------------------------------------------------
# * Troop DATA
#--------------------------------------------------------------------------
module Troop
 
  #--------------------------------------------------------------------------
  # * Member of a group Definition
  #--------------------------------------------------------------------------
  class Member
    attr_accessor :id, :pos
    def initialize(id, pos)
      @id = id
      @pos = pos
    end
  end
 
  class << self
   
    #--------------------------------------------------------------------------
    # * Movement update
    #--------------------------------------------------------------------------
    def move(troop)
      troop.each do |elt|
        $game_map.event(elt.id).move_toward_player if $game_map.event(elt.id) != nil && elt != nil && !$game_map.event(elt.id).moving?
      end
    end
   
  end # End of Singleton
 
end # End of Troop

#=============================================================================
# Author : S4suk3, Scriptopathe, Molok
# Permet de créer un groupe suivant le héro
#==============================================================================
# ** Game_Map
#------------------------------------------------------------------------------
#  This class handles maps. It includes scrolling and passage determination
# functions. The instance of this class is referenced by $game_map.
#==============================================================================
class Game_Map
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :troop
  #--------------------------------------------------------------------------
  # * Alias
  #--------------------------------------------------------------------------
  alias old_setup setup
  alias old_update update
  #--------------------------------------------------------------------------
  # * Object Setup
  #--------------------------------------------------------------------------
  def setup(map_id)
    @troop = Array.new
    old_setup(map_id)
  end
  #--------------------------------------------------------------------------
  # * Return an event
  #--------------------------------------------------------------------------
  def event(id)
    return (id == 0) ? $game_player : $game_map.events[id]
  end
 
  #--------------------------------------------------------------------------
  # * Returns true if the given member is in the troop
  #--------------------------------------------------------------------------
  def troop_contains?(id)
    return ((@troop.find{|elt| elt.id == id}) != nil)
  end
 
  #--------------------------------------------------------------------------
  # * Add a member into a troop
  #--------------------------------------------------------------------------
  def troop_add(members, order=0)
    member = Troop::Member.new(members, order)
    return false if self.troop_contains? members
    @troop << member
    self.event(members).move_speed = ($game_player.move_speed)-1
    return true
  end
 
  #--------------------------------------------------------------------------
  # * Removes a member from a troop
  #--------------------------------------------------------------------------
  def troop_remove(member)
    if self.troop_contains? member
      @troop.delete_if{|elt| elt.id == member}
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    Troop::move(@troop) if @troop != nil
    old_update
  end
  #--------------------------------------------------------------------------
  # * Change the speed a troop
  #--------------------------------------------------------------------------
  def troop_speed=(value)
    @troop.each do |elt|
      self.event(elt.id).move_speed = value
    end
  end
  #--------------------------------------------------------------------------
  # * Change the speed a troop by the player speed
  #--------------------------------------------------------------------------
  def adjust_speed
    self.troop_speed = $game_player.move_speed
  end
 
end # End of Game_Map


#==============================================================================
# ** Game_Interpreter
#------------------------------------------------------------------------------
#  An interpreter for executing event commands. This class is used within the
# Game_Map, Game_Troop, and Game_Event classes.
#==============================================================================

class Game_Interpreter
  #--------------------------------------------------------------------------
  # * Groups a troop
  #--------------------------------------------------------------------------
  def group(*members)
    order = 1
    members.each do|elt|
      $game_map.troop_add(elt, order)
      order += 1
    end
  end
  #--------------------------------------------------------------------------
  # * Adds members to troup
  #--------------------------------------------------------------------------
  def add_to_troop(*members)
    order = $game_map.troop.length
    members.each do|elt|
      $game_map.troop_add(elt, order)
      order += 1
    end
  end
 
  #--------------------------------------------------------------------------
  # * Clears the troop
  #--------------------------------------------------------------------------
  def clear_troop
    $game_map.troop = Array.new
  end
  #--------------------------------------------------------------------------
  # * Remove members from a troop
  #--------------------------------------------------------------------------
  def remove_to_troop(*members)
    members.each do|elt|
      $game_map.troop_remove(elt)
    end
  end
  #--------------------------------------------------------------------------
  # * Modifiy troop_speed
  #--------------------------------------------------------------------------
  def troop_speed=(speed)
    $game_map.troop_speed = speed
  end
  #--------------------------------------------------------------------------
  # * Adjust speed
  #--------------------------------------------------------------------------
  def adjust_speed
    $game_map.adjust_speed
  end
 
end # End of Game_Interpreter

#==============================================================================
# ** Game_Event
#------------------------------------------------------------------------------
#  This class deals with events. It handles functions including event page
# switching via condition determinants, and running parallel process events.
# It's used within the Game_Map class.
#==============================================================================
class Game_Event
  #--------------------------------------------------------------------------
  # * Alias
  #--------------------------------------------------------------------------
  alias old_update update
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    collide if $game_map.troop_contains? @id
    old_update
  end
  #--------------------------------------------------------------------------
  # * Collide with a troop's member
  #--------------------------------------------------------------------------
  def collide
    if(Input.trigger?(Input::LEFT) && @x+1==$game_map.event(0).x && @y==$game_map.event(0).y  && $game_player.direction==4)
      temp_through = @through
      @through=true
      $game_player.move_left
      self.move_right
      @through=temp_through
    end
    if(Input.trigger?(Input::RIGHT) && @x-1==$game_map.event(0).x && @y==$game_map.event(0).y  && $game_player.direction==6)
      temp_through = @through
      @through=true
      $game_player.move_right
      self.move_left
      @through=temp_through
    end
    if(Input.trigger?(Input::UP) && @x==$game_map.event(0).x && @y+1==$game_map.event(0).y  && $game_player.direction==8)
      temp_through = @through
      @through=true
      $game_player.move_up
      self.move_down
      @through=temp_through
    end
    if(Input.trigger?(Input::DOWN) && @x==$game_map.event(0).x && @y-1==$game_map.event(0).y  && $game_player.direction==2)
      temp_through = @through
      @through=true
      $game_player.move_down
      self.move_up
      @through=temp_through
    end
  end
 
end # End of Game_Event

#==============================================================================
# ** Game_Character
#------------------------------------------------------------------------------
#  This class deals with characters. It's used as a superclass of the
# Game_Player and Game_Event classes.
#==============================================================================
class Game_Character
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :move_speed
  #--------------------------------------------------------------------------
  # * Calculate X Distance From other_event
  #--------------------------------------------------------------------------
  def distance_x_from_event(event)
    sx = @x - event.x
    if $game_map.loop_horizontal?       
      if sx.abs > $game_map.width / 2   
        sx -= $game_map.width         
      end
    end
    return sx
  end
  #--------------------------------------------------------------------------
  # * Calculate Y Distance From other_event
  #--------------------------------------------------------------------------
  def distance_y_from_event(event)
    sy = @y - event.y
    if $game_map.loop_vertical?       
      if sy.abs > $game_map.height / 2   
        sy -= $game_map.height           
      end
    end
    return sy
  end
  #--------------------------------------------------------------------------
  # * Move toward Event
  #--------------------------------------------------------------------------
  def move_toward_event(other_event)
    event = $game_map.event(other_event)
    sx = distance_x_from_event(event)
    sy = distance_y_from_event(event)
    if sx != 0 or sy != 0
      if sx.abs > sy.abs               
        sx > 0 ? move_left : move_right 
        if @move_failed and sy != 0
          sy > 0 ? move_up : move_down
        end
      else                               
        sy > 0 ? move_up : move_down     
        if @move_failed and sx != 0
          sx > 0 ? move_left : move_right
        end
      end
      move_toward_player if @move_failed && $game_player.moving?
    end
  end
end

#--------------------------------------------------------------------------
# * Troop DATA
#--------------------------------------------------------------------------
module Troop
 
  #--------------------------------------------------------------------------
  # * Member of a group Definition
  #--------------------------------------------------------------------------
  class Member
    attr_accessor :id, :pos
    def initialize(id, pos)
      @id = id
      @pos = pos
    end
  end
 
  class << self
   
    #--------------------------------------------------------------------------
    # * Movement update
    #--------------------------------------------------------------------------
    def move(troop)
      order = 0
      before = 0
      troop.each do |elt|
        if $game_map.event(elt.id) != nil && elt != nil && !$game_map.event(elt.id).moving?
          if order == 0
            $game_map.event(elt.id).move_toward_player
            before = elt.id
          else
            $game_map.event(elt.id).move_toward_event(before)
          end
        end
        $game_map.event(elt.id).turn_toward_player unless $game_map.event(elt.id).moving?
        order += 1
      end
    end
   
  end # End of Singleton
 
end # End of Troop

class Game_Event
  alias vx_update update
  def update
    collide if @move_type != 0 and @priority_type  == 1
    vx_update
  end
end

#=============================================================================
# Author : S4suk3, Scriptopathe, Molok
# Permet de créer un groupe suivant le héro
#==============================================================================
# ** Game_Map
#------------------------------------------------------------------------------
#  This class handles maps. It includes scrolling and passage determination
# functions. The instance of this class is referenced by $game_map.
#==============================================================================
class Game_Map
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :troop
  #--------------------------------------------------------------------------
  # * Alias
  #--------------------------------------------------------------------------
  alias old_setup setup
  alias old_update update
  #--------------------------------------------------------------------------
  # * Object Setup
  #--------------------------------------------------------------------------
  def setup(map_id)
    @troop = Array.new
    old_setup(map_id)
  end
  #--------------------------------------------------------------------------
  # * Return an event
  #--------------------------------------------------------------------------
  def event(id)
    return (id == 0) ? $game_player : $game_map.events[id]
  end
 
  #--------------------------------------------------------------------------
  # * Returns true if the given member is in the troop
  #--------------------------------------------------------------------------
  def troop_contains?(id)
    return ((@troop.find{|elt| elt.id == id}) != nil)
  end
 
  #--------------------------------------------------------------------------
  # * Add a member into a troop
  #--------------------------------------------------------------------------
  def troop_add(members, order=0)
    member = Troop::Member.new(members, order)
    return false if self.troop_contains? members
    @troop << member
    self.event(members).move_speed = ($game_player.move_speed)-1
    return true
  end
 
  #--------------------------------------------------------------------------
  # * Removes a member from a troop
  #--------------------------------------------------------------------------
  def troop_remove(member)
    if self.troop_contains? member
      @troop.delete_if{|elt| elt.id == member}
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    @troop.sort{|event1, event2|event1 <=> event2}
    Troop::move(@troop) if @troop != nil
    old_update
  end
  #--------------------------------------------------------------------------
  # * Change the speed a troop
  #--------------------------------------------------------------------------
  def troop_speed=(value)
    @troop.each do |elt|
      self.event(elt.id).move_speed = value
    end
  end
  #--------------------------------------------------------------------------
  # * Change the speed a troop by the player speed
  #--------------------------------------------------------------------------
  def adjust_speed
    self.troop_speed = $game_player.move_speed
  end
 
end # End of Game_Map


#==============================================================================
# ** Game_Interpreter
#------------------------------------------------------------------------------
#  An interpreter for executing event commands. This class is used within the
# Game_Map, Game_Troop, and Game_Event classes.
#==============================================================================

class Game_Interpreter
  #--------------------------------------------------------------------------
  # * Groups a troop
  #--------------------------------------------------------------------------
  def group(*members)
    order = 1
    members.each do|elt|
      $game_map.troop_add(elt, order)
      order += 1
    end
  end
  #--------------------------------------------------------------------------
  # * Adds members to troup
  #--------------------------------------------------------------------------
  def add_to_troop(*members)
    order = $game_map.troop.length
    members.each do|elt|
      $game_map.troop_add(elt, order)
      order += 1
    end
  end
 
  #--------------------------------------------------------------------------
  # * Clears the troop
  #--------------------------------------------------------------------------
  def clear_troop
    $game_map.troop = Array.new
  end
  #--------------------------------------------------------------------------
  # * Remove members from a troop
  #--------------------------------------------------------------------------
  def remove_to_troop(*members)
    members.each do|elt|
      $game_map.troop_remove(elt)
    end
  end
  #--------------------------------------------------------------------------
  # * Modifiy troop_speed
  #--------------------------------------------------------------------------
  def troop_speed=(speed)
    $game_map.troop_speed = speed
  end
  #--------------------------------------------------------------------------
  # * Adjust speed
  #--------------------------------------------------------------------------
  def adjust_speed
    $game_map.adjust_speed
  end
 
end # End of Game_Interpreter

#==============================================================================
# ** Game_Event
#------------------------------------------------------------------------------
#  This class deals with events. It handles functions including event page
# switching via condition determinants, and running parallel process events.
# It's used within the Game_Map class.
#==============================================================================
class Game_Event
  #--------------------------------------------------------------------------
  # * Alias
  #--------------------------------------------------------------------------
  alias old_update update
  #--------------------------------------------------------------------------
  # * Compare proximity with heroes
  #--------------------------------------------------------------------------
  def <=>(other_event)
    distance = lambda{|event| Math.hypot((event.x - $game_player.x), (event.y-$game_player.y))}
    return distance.call(self) > distance.call(other_event) ? 1 : distance.call(self) == distance.call(other_event) ? 0 : -1
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    collide if $game_map.troop_contains? @id
    old_update
  end
  #--------------------------------------------------------------------------
  # * Collide with a troop's member
  #--------------------------------------------------------------------------
  def collide
    if(Input.trigger?(Input::LEFT) && @x+1==$game_map.event(0).x && @y==$game_map.event(0).y  && $game_player.direction==4)
      temp_through = @through
      @through=true
      $game_player.move_left
      self.move_right
      @through=temp_through
    end
    if(Input.trigger?(Input::RIGHT) && @x-1==$game_map.event(0).x && @y==$game_map.event(0).y  && $game_player.direction==6)
      temp_through = @through
      @through=true
      $game_player.move_right
      self.move_left
      @through=temp_through
    end
    if(Input.trigger?(Input::UP) && @x==$game_map.event(0).x && @y+1==$game_map.event(0).y  && $game_player.direction==8)
      temp_through = @through
      @through=true
      $game_player.move_up
      self.move_down
      @through=temp_through
    end
    if(Input.trigger?(Input::DOWN) && @x==$game_map.event(0).x && @y-1==$game_map.event(0).y  && $game_player.direction==2)
      temp_through = @through
      @through=true
      $game_player.move_down
      self.move_up
      @through=temp_through
    end
  end
 
end # End of Game_Event

#==============================================================================
# ** Game_Character
#------------------------------------------------------------------------------
#  This class deals with characters. It's used as a superclass of the
# Game_Player and Game_Event classes.
#==============================================================================
class Game_Character
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :move_speed
  #--------------------------------------------------------------------------
  # * Calculate X Distance From other_event
  #--------------------------------------------------------------------------
  def distance_x_from_event(event)
    sx = @x - event.x
    if $game_map.loop_horizontal?       
      if sx.abs > $game_map.width / 2   
        sx -= $game_map.width         
      end
    end
    return sx
  end
  #--------------------------------------------------------------------------
  # * Calculate Y Distance From other_event
  #--------------------------------------------------------------------------
  def distance_y_from_event(event)
    sy = @y - event.y
    if $game_map.loop_vertical?       
      if sy.abs > $game_map.height / 2   
        sy -= $game_map.height           
      end
    end
    return sy
  end
  #--------------------------------------------------------------------------
  # * Move toward Event
  #--------------------------------------------------------------------------
  def move_toward_event(other_event)
    event = $game_map.event(other_event)
    sx = distance_x_from_event(event)
    sy = distance_y_from_event(event)
    if sx != 0 or sy != 0
      if sx.abs > sy.abs               
        sx > 0 ? move_left : move_right 
        if @move_failed and sy != 0
          sy > 0 ? move_up : move_down
        end
      else                               
        sy > 0 ? move_up : move_down     
        if @move_failed and sx != 0
          sx > 0 ? move_left : move_right
        end
      end
      move_toward_player if @move_failed && $game_player.moving?
      #move_random if @move_failed && $game_player.moving?
    end
  end
end

#--------------------------------------------------------------------------
# * Troop DATA
#--------------------------------------------------------------------------
module Troop
 
  #--------------------------------------------------------------------------
  # * Member of a group Definition
  #--------------------------------------------------------------------------
  class Member
    attr_accessor :id, :pos
    def initialize(id, pos)
      @id = id
      @pos = pos
    end
    def <=>(other_member)
      return $game_map.event(@id) <=> $game_map.event(other_member.id)
    end
  end
 
  class << self
   
    #--------------------------------------------------------------------------
    # * Movement update
    #--------------------------------------------------------------------------
    def move(troop)
      order = 0
      before = 0
      troop.each do |elt|
        if $game_map.event(elt.id) != nil && elt != nil && !$game_map.event(elt.id).moving?
          if order == 0
            $game_map.event(elt.id).move_toward_player
          else
            $game_map.event(elt.id).move_toward_event(before)
          end
          before = elt.id
        end
        $game_map.event(elt.id).turn_toward_player unless $game_map.event(elt.id).moving?
        order += 1
      end
    end
   
  end # End of Singleton
 
end # End of Troop