Deplace l'event/Joueur vers un autre event

#==============================================================================
# OUTILS
# UN PAS VERS / JOUEUR VERS
#--------------------
# Stephane, Roys
# 15 avril 2007
#--------------------
# Explication
# Ajoute une fonction en event à RMXP afin qu'un evenement se déplace vers un autre
#--------------------
# Mode d'Emploi
#- Inserer un commentaire dans un event et taper : un pas vers nom
#- Remplacer nom par
# joueur,si vous voulez que votre event se déplace vers le joueur
# ou
# le nom de l'event vers lequel vous voulez vous déplacer

# Inserer commentaire : un pas nom1 vers nom2
# - Remplacer nom1 par le nom de l'event (ou joueur pour le joueur) qui doit se déplacer
# - Remplacer nom2 par le nom de l'event (ou joueur pour le joueur) vers qui nom1 doit se déplacer

#--------------------
# La commande se comporte comme n'importe quelle commande RMXP, vous pouvez ajouter
# une attente  ou n'importe quelle autre fonction
# Les noms ne sont pas case sensitif
# C'est toujours l'event dans lequel vous mettez la fonction un pas vers qui se déplace
#==============================================================================

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

  def command_108
    # Commande non valide
    if not @parameters[0].split.size<3
      # Commande valide
      if @parameters[0].upcase[/UN PAS/]=="UN PAS" and not $game_map.events[@event_id].moving?
        com=@parameters[0].split
        # case 1seul event
        if com[2].upcase=="VERS"
          #----------------------
          # Recupère le nom de l'event
          event_nom=com[3].upcase
          event1=$game_map.events[@event_id]
          #----------------------
          # Un pas vers le joueur
          event2=$game_player if event_nom=="JOUEUR"
          #----------------------
          # Cherche l'event vers qui se diriger
          for i in $game_map.events.keys
            event=$game_map.events[i]
            next if event.name.upcase!=event_nom
            # Ajoute l'event courant vers l'event trouvé
            event1.un_pas_vers(event)
            return true
          end
          return true
        else
          #----------------------
          # Recupère le nom de l'event
          event_nom=com[2].upcase
          event_nom2=com[4].upcase
          #----------------------
          # le joueur
          event1=$game_player if event_nom=="JOUEUR"
          event2=$game_player if event_nom2=="JOUEUR"
          #----------------------
          # Cherche l'event vers qui se diriger
          for i in $game_map.events.keys
            event=$game_map.events[i]
            next if event.name.upcase!=event_nom and event.name.upcase!=event_nom2
            # Ajoute l'event courant vers l'event trouvé
            event1=event if event.name.upcase==event_nom
            event2=event if event.name.upcase==event_nom2
          end         
          event1.un_pas_vers(event2) if event1!=nil and event2!=nil
          return true
        end
      end
    end
    outil_unpasvers_command108
  end
end


#==============================================================================
# Game_Character
# Modifie la class pour ajouter la méthode event1 se déplace vers event2
#==============================================================================
class Game_Character
 
  #--------------------------------------------------------------------------
  # UN PAS VERS
  # Le character courant se deplace vers un event ou à defaut le joueur
  #--------------------------------------------------------------------------
  def un_pas_vers(event=$game_player)
    # Calcul les coordonnées différentielles
    sx = @x - event.x
    sy = @y - event.y
    if sx == 0 and sy == 0
      return
    end
    abs_sx = sx.abs
    abs_sy = sy.abs
    # Distances egales
    if abs_sx == abs_sy
      rand(2) == 0 ? abs_sx +=1 : abs_sy += 1
    end
    # Distance sur les x supérieur
    if abs_sx > abs_sy
      # Déplacement
      sx > 0 ? move_left : move_right
      if not moving? and sy != 0
        sy > 0 ? move_up : move_down
      end
    # Distance sur les y supérieur
    else
      # Déplacement
      sy > 0 ? move_up : move_down
      if not moving? and sx != 0
        sx > 0 ? move_left : move_right
      end
    end
  end
end

  def id
    return @id
  end

  attr_reader  :id