"Au contact de" Demarre si touche un event

#==============================================================================
# OUTILS
# AU CONTACT DE
#--------------------
# Stephane, Roys
# 15 avril 2007
#--------------------
# Explication
# Ajoute une fonction en event à RMXP afin qu'un evenement demarre au contact d'un autre
# En fait, l'event se gèle tant que la condition de contact n'est pas réunie
#--------------------
# Mode d'Emploi
#- Mettez votre event en processus parallele
#- Inserer un commentaire dans l'event
# et ecrivez : au contact de Nom
#- Remplacer Nom par
# joueur : si vous voulez que votre event demarre au contact du joueur
# le nom de l'event : au contact duquel vous voulez faire demarrer votre event
# tous :, si vous voulez faire demarrer au contact de n'importe quel event
#==============================================================================

#==============================================================================
# Interpreter
# Permet d'ajouter une fonction un pas vers en commentaire dans un event
#==============================================================================
class Interpreter
  alias outil_aucontactde_command108 command_108

  def command_108
    # Commande non valide
    if not @parameters[0].split.size<4
      # Commande valide
      if (@parameters[0].upcase)[/AU CONTACT DE/]=="AU CONTACT DE"
        #----------------------
        # Recupère le nom de l'event
        nom=@parameters[0].split[3].upcase
        event_self=$game_map.events[@event_id]
        #----------------------
        # Contact avec le joueur
        if nom=="JOUEUR"
          return event_self.au_contact_de($game_player)
        end
        #----------------------
        # Contact avec le joueur si TOUS
        return true if nom=="TOUS" and event_self.au_contact_de($game_player)
        #----------------------
        # Contact avec un event
        for i in $game_map.events.keys
          event=$game_map.events[i]
          # Pour ne pas tester l'event lui-meme
          next if event.name.upcase==event_self.name.upcase
          # Contact avec tous
          if nom=="TOUS"
            return true if event_self.au_contact_de(event)
          end
          # Contact avec un nom event donné
          next if nom!=event.name.upcase
          return true if event_self.au_contact_de(event)
        end
        return false
      end
    end
    outil_aucontactde_command108
  end
end

#==============================================================================
# Game_Character
# Modifie la class pour ajouter la méthode event1 se déplace vers event2
#==============================================================================
class Game_Character

  #--------------------------------------------------------------------------
  # AU CONTACT DE
  # Renvoi true si le character touche event
  #--------------------------------------------------------------------------
  def au_contact_de(event=$game_player)
    new_x = event.x + (event.direction == 6 ? 1 : event.direction == 4 ? -1 : 0)
    new_y = event.y + (event.direction == 2 ? 1 : event.direction == 8 ? -1 : 0)
    x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
    y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
    return ((@x == new_x and @y == new_y and not event.moving?) or
            (x==event.x and y==event.y and not moving? ))
  end
end