ZONE X

#----------------------------------------#
  ####DEPLACEMENT ALEATOIRE LIMITE####
      ##Le 29/12/11 par Tiroflan##
##Remerciements à vincentmhd pour l'idée##
#----------------------------------------#

# Effet : permet qu'un event ait un mouvement aléatoire,
# tout en restant dans la zone choisie.

#----------------------------------------#
 
# Utilisation : Dans la page de l'event, insérez un commentaire
# avec marqué :
#              ZONE X
#
# Où X est le numéro de la zone dans laquelle l'event peut bouger. (attention à bien mettre ZONE en majuscules)

#----------------------------------------#

# 3 méthodes ont été aliasées :
#  move_random et move_forward de Game_Character (aliasées dans Game_Event)
#  initialize de Game_Event

#----------------------------------------#
class Game_Event < Game_Character

  attr_reader  :restricted_area # Contient l'id de la zone de limitation.
 
  #----------------------------------------#
  # Redéfinition des mouvements utilisés pour le déplacement aléatoire :
  # move_random et move_forward.
  #----------------------------------------#
  alias move_random_without_area move_random
  def move_random
    if @restricted_area == 0
      move_random_without_area
    else
      move_random_in_selected_area
    end
  end
 
  alias move_forward_without_area move_forward
  def move_forward
    if @restricted_area == 0
      move_forward_without_area
    else
      move_forward_in_selected_area
    end
  end
 
  def move_forward_in_selected_area
    if in_area?(@x, @y, @direction)
      move_straight(@direction)
    end
  end
 
  def move_random_in_selected_area
    direction = 2 + rand(4) * 2
    if in_area?(@x, @y, direction)
      move_straight(direction, false)
    end
  end
 
  #Détermine si la case d'arrivée est dans la zone de déplacement.
    def in_area?(x, y, d)
    x2 = x + (d == 6 ? 1 : (d == 4 ? -1 : 0))
    y2 = y + (d == 2 ? 1 : (d == 8 ? -1 : 0))
    return $game_map.region_id(x2,y2) == @restricted_area
  end
  #----------------------------------------#
 
  #----------------------------------------#
  # Méthodes pour lire le commentaire et le stocker dans :restricted_area
  #----------------------------------------#
  alias initialize_with_areas initialize
  def initialize(map_id, event)
    initialize_with_areas(map_id, event)
    @restricted_area = 0
    input_restricted_area
  end
 
  def input_restricted_area
    return if empty?
      for i in 0...@list.size
        if @list[i].code == 108
          comment = @list[i].parameters[0].to_s
          info = comment.split
          if info[0] == "ZONE"
            @restricted_area = info[1].to_i
          end
        end
      end
    end
  #----------------------------------------#
   
end

#----------------------------------------#
  ####DEPLACEMENT ALEATOIRE LIMITE####
      ##Le 29/12/11 par Tiroflan##
##Remerciements à vincentmhd pour l'idée##
#----------------------------------------#

# Effet : permet qu'un event ait un mouvement aléatoire,
# tout en restant dans la zone choisie.
# Permet aussi à un event de suivre le joueur dans une zone délimitée seulement.
# L'event suit alors le joueur tant que celui-ci est dans la zone, ou qu'il est assez
# proche de l'event (distance configurable, dans tous les cas l'event reste dans sa zone).
# Il se déplace aléatoirement en dehors de ces conditions.

#----------------------------------------#
 
# Utilisation : Dans la page de l'event, insérez un commentaire
# avec marqué :
#              ZONE X
#
# Où X est le numéro de la zone dans laquelle l'event peut bouger.
# Pour les events poursuiveurs, il faut aussi préciser la distance
# entre l'event et le joueur à partir de laquelle l'event ne poursuit plus.

#----------------------------------------#

# CONFIGURATION : ici vous pouvez modifier
#  la distance nécessaire pour semer votre poursuivant : même en dehors de la zone,
# le monstre est attiré si vous êtes trop près (mais il ne sortira jamais de la zone)
  module TIRO_POURSUITE
    DISTANCE_POURSUITE = 5
  end
#----------------------------------------#

# 3 méthodes ont été aliasées :
#  move_random et move_forward de Game_Character (aliasées dans Game_Event)
#  initialize de Game_Event

#----------------------------------------#

class Game_Event < Game_Character
 
  attr_reader  :restricted_area # Contient l'id de la zone de limitation.
 
  #----------------------------------------#
  # Redéfinition des mouvements utilisés pour le déplacement aléatoire :
  # move_random et move_forward.
  #----------------------------------------#
  alias move_random_without_area move_random
  def move_random
    if @restricted_area == 0
      move_random_without_area
    else
      move_random_in_selected_area
    end
  end
 
  alias move_forward_without_area move_forward
  def move_forward
    if @restricted_area == 0
      move_forward_without_area
    else
      move_forward_in_selected_area
    end
  end
 
  alias move_toward_player_without_area move_toward_player
  def move_toward_player
    if @restricted_area == 0
    move_toward_player_without_area
    else
    move_toward_player_in_selected_area
    end
  end
 
  def move_forward_in_selected_area
    if in_area?(@x, @y, @direction)
      move_straight(@direction)
    end
  end
 
  def move_random_in_selected_area
    direction = 2 + rand(4) * 2
    if in_area?(@x, @y, direction)
      move_straight(direction, false)
    end
  end
 
  def move_toward_player_in_selected_area
      sx = distance_x_from($game_player.x)
      sy = distance_y_from($game_player.y)
      if sx.abs > sy.abs
        direction1 = (sx > 0 ? 4 : 6)
        move_straight(direction1) if in_area?(@x, @y, direction1)
        direction2 = (sy > 0 ? 8 : 2)
        move_straight(direction2) if (!@move_succeed || !in_area?(@x,@y,direction1)) && sy != 0 && in_area?(@x, @y, direction2)
      elsif sy != 0
        direction1 = (sy > 0 ? 8 : 2)
        move_straight(direction1) if in_area?(@x, @y, direction1)
        direction2 = (sx > 0 ? 4 : 6)
        move_straight(direction2) if (!@move_succeed || !in_area?(@x,@y,direction1)) && sx != 0 && in_area?(@x, @y, direction2)
      end
    end
   
  alias area_move_type_toward_player move_type_toward_player
  def move_type_toward_player
    if (adjusted_near_the_player? || ($game_map.region_id($game_player.x,$game_player.y) == @restricted_area))
      area_move_type_toward_player
    else
      move_random
    end
  end
   
  def adjusted_near_the_player?
    sx = distance_x_from($game_player.x).abs
    sy = distance_y_from($game_player.y).abs
    sx + sy < DISTANCE_POURSUITE
  end

  #Détermine si la case d'arrivée est dans la zone de déplacement.
    def in_area?(x, y, d)
    x2 = x + (d == 6 ? 1 : (d == 4 ? -1 : 0))
    y2 = y + (d == 2 ? 1 : (d == 8 ? -1 : 0))
    return $game_map.region_id(x2,y2) == @restricted_area
  end
  #----------------------------------------#
 
  #----------------------------------------#
  # Méthodes pour lire le commentaire et le stocker dans :restricted_area
  #----------------------------------------#
  alias initialize_with_areas initialize
  def initialize(map_id, event)
    initialize_with_areas(map_id, event)
    @restricted_area = 0
    input_restricted_area
  end
 
  def input_restricted_area
    return if empty?
      for i in 0...@list.size
        if @list[i].code == 108
          comment = @list[i].parameters[0].to_s
          info = comment.split
          if info[0] == "ZONE"
            @restricted_area = info[1].to_i
          end
        end
      end
    end
  #----------------------------------------#
   
  include TIRO_POURSUITE
 
end

#----------------------------------------#
  ####DEPLACEMENT ALEATOIRE LIMITE####
      ##Le 29/12/11 par Tiroflan##
##Remerciements à vincentmhd pour l'idée##
#----------------------------------------#

# Effet : permet qu'un event ait un mouvement aléatoire,
# tout en restant dans la zone choisie.
# Permet aussi à un event de suivre le joueur dans une zone délimitée seulement.
# L'event suit alors le joueur tant que celui-ci est dans la zone, ou qu'il est assez
# proche de l'event (distance configurable, dans tous les cas l'event reste dans sa zone).
# Il se déplace aléatoirement en dehors de ces conditions.

#----------------------------------------#
 
# Utilisation : Dans la page de l'event, insérez un commentaire
# avec marqué :
#              ZONE X
#
# Où X est le numéro de la zone dans laquelle l'event peut bouger.
# Pour les events poursuiveurs, il faut aussi préciser la distance
# entre l'event et le joueur à partir de laquelle l'event ne poursuit plus.

#----------------------------------------#

# CONFIGURATION : ici vous pouvez modifier
#  la distance nécessaire pour semer votre poursuivant : même en dehors de la zone,
# le monstre est attiré si vous êtes trop près (mais il ne sortira jamais de la zone)
  module TIRO_POURSUITE
    DISTANCE_POURSUITE = 5
  end
#----------------------------------------#

# 3 méthodes ont été aliasées :
#  move_random et move_forward de Game_Character (aliasées dans Game_Event)
#  initialize de Game_Event

#----------------------------------------#

class Game_Event < Game_Character
 
  attr_reader  :restricted_area # Contient l'id de la zone de limitation.
 
  #----------------------------------------#
  # Redéfinition des mouvements utilisés pour le déplacement aléatoire :
  # move_random et move_forward.
  #----------------------------------------#
  alias move_random_without_area move_random
  def move_random
    if @restricted_area == 0
      move_random_without_area
    else
      move_random_in_selected_area
    end
  end
 
  alias move_forward_without_area move_forward
  def move_forward
    if @restricted_area == 0
      move_forward_without_area
    else
      move_forward_in_selected_area
    end
  end
 
  alias move_toward_player_without_area move_toward_player
  def move_toward_player
    if @restricted_area == 0
    move_toward_player_without_area
    else
    move_toward_player_in_selected_area
    end
  end
 
  def move_forward_in_selected_area
    if in_area?(@x, @y, @direction)
      move_straight(@direction)
    end
  end
 
  def move_random_in_selected_area
    direction = 2 + rand(4) * 2
    if in_area?(@x, @y, direction)
      move_straight(direction, false)
    end
  end
 
  def move_toward_player_in_selected_area
      sx = distance_x_from($game_player.x)
      sy = distance_y_from($game_player.y)
      if sx.abs > sy.abs
        direction1 = (sx > 0 ? 4 : 6)
        move_straight(direction1) if in_area?(@x, @y, direction1)
        direction2 = (sy > 0 ? 8 : 2)
        move_straight(direction2) if (!@move_succeed || !in_area?(@x,@y,direction1)) && sy != 0 && in_area?(@x, @y, direction2)
      elsif sy != 0
        direction1 = (sy > 0 ? 8 : 2)
        move_straight(direction1) if in_area?(@x, @y, direction1)
        direction2 = (sx > 0 ? 4 : 6)
        move_straight(direction2) if (!@move_succeed || !in_area?(@x,@y,direction1)) && sx != 0 && in_area?(@x, @y, direction2)
      end
    end
   
  alias area_move_type_toward_player move_type_toward_player
  def move_type_toward_player
    if (adjusted_near_the_player? || ($game_map.region_id($game_player.x,$game_player.y) == @restricted_area))
      area_move_type_toward_player
    else
      move_random
    end
  end
   
  def adjusted_near_the_player?
    sx = distance_x_from($game_player.x).abs
    sy = distance_y_from($game_player.y).abs
    sx + sy < DISTANCE_POURSUITE
  end

  #Détermine si la case d'arrivée est dans la zone de déplacement.
    def in_area?(x, y, d)
    x2 = x + (d == 6 ? 1 : (d == 4 ? -1 : 0))
    y2 = y + (d == 2 ? 1 : (d == 8 ? -1 : 0))
    return $game_map.region_id(x2,y2) == @restricted_area
  end
  #----------------------------------------#
 
  #----------------------------------------#
  # Méthodes pour lire le commentaire et le stocker dans :restricted_area
  #----------------------------------------#
  alias initialize_with_areas initialize
  def initialize(map_id, event)
    initialize_with_areas(map_id, event)
    @restricted_area = 0
    input_restricted_area
  end
 
  def input_restricted_area
    return if empty?
      for i in 0...@list.size
        if @list[i].code == 108
          comment = @list[i].parameters[0].to_s
          info = comment.split
          if info[0] == "ZONE"
            @restricted_area = info[1].to_i
          end
        end
      end
    end
  #----------------------------------------#
   
  include TIRO_POURSUITE
 
end