[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français - Scripts

Auteur : Inconnu (fix), Khas (Amethyst Custom Movement)

Fonctions :
- Permet de se déplacer entre les tiles
- Permet à un évènement de se déplacer entre les tiles
- Mouvements isométrique pour le héros
- Mouvements isométrique pour les évènements (fonctionne aussi en déplacement aléatoire)
- Contact avec le héros et contact avec l'évènement plus avancés (s'active aussi lorsque le héros est entre les tiles)

Scripts :
VX_SP1 Fix par Inconnu

#==============================================================================
# VX_SP1
#------------------------------------------------------------------------------
# Correção do sistema de pré-configuração
#==============================================================================
 
#------------------------------------------------------------------------------
# Código de correção
#------------------------------------------------------------------------------
# * Em uma animação, quando um frame possui dimensões maiores ou menores
#   que as dimensões de uma imagem utilizada, ocorre um erro de exibição
# * Problemas na exibição de animações com coordenada Y inválida (causada
#   pelo problema acima)
# * Problemas relacionados ao caminho dos gráficos de uma animação, que, se
#   indisponíveis, não reportavam problema
#------------------------------------------------------------------------------
 
class Sprite_Base < Sprite
  #--------------------------------------------------------------------------
  # Exibição da animação
  #--------------------------------------------------------------------------
  alias eb_sp1_dispose_animation dispose_animation
  def dispose_animation
    eb_sp1_dispose_animation
    @animation_bitmap1 = nil
    @animation_bitmap2 = nil
  end
  #--------------------------------------------------------------------------
  # Configuração do gráfico de animação
  #     frame : informações do frame (RPG::Animation::Frame)
  #--------------------------------------------------------------------------
  alias eb_sp1_animation_set_sprites animation_set_sprites
  def animation_set_sprites(frame)
    eb_sp1_animation_set_sprites(frame)
    cell_data = frame.cell_data
    for i in 0..15
      sprite = @animation_sprites[i]
      next if sprite == nil
      pattern = cell_data[i, 0]
      next if pattern == nil or pattern == -1
      if @animation_mirror
        sprite.y = @animation_oy + cell_data[i, 2]
      end
      sprite.z = self.z + 300 + i
    end
  end
end

Correction du système de préconfiguration (Sprite_Base)
* Dans une animation, lorsqu'une image est plus grande ou plus petite que les dimensions d'une image utilisée, une erreur d'affichage se produit.
* Problèmes d'affichage des animations avec une coordonnée Y invalide (causés par le problème ci-dessus)
* Problèmes liés au chemin du graphisme d'une animation, qui, si indisponible, n'a pas signalé de problème

Amethyst Custom Movement par Khas

Conditions d'utilisation
- Vous devez créditer l'auteur (Khas)
- Vous ne pouvez pas utiliser ce script dans un projet commercial

=begin
================================================================================
 Amethyst Custom Movement - v1.2 RMVX - 25/03/2010
================================================================================
 
--------------------------------------------------------------------------------
 Credits\Terms of Use
--------------------------------------------------------------------------------
 Created by Khas (dark_khas@hotmail.com)
 All Amethyst Scripts are licensed under a Creative Commons license
 All Amethyst Scripts are for non-commercial projects, if you need
 them for a commercial game, please send a email to dark_khas@hotmail.com
 
--------------------------------------------------------------------------------
 Features
--------------------------------------------------------------------------------
 This script creates an advanced movement, including "half-tile" step,
 diagonal movement and an advanced touch trigger feature.
 ACM is also compatible with RMVX vehicles
 
--------------------------------------------------------------------------------
 Configuration
--------------------------------------------------------------------------------
=end
module Amcm_Config
  # Enable Diagonal movement for Player?
  Enable_Player_Diagonal = true
  # Enable Diagonal movement for events?
  Enable_Event_Diagonal = true
  # Enable "half-tile" step for events?
  Enable_Event_Movement = true
  # Enable Advanced Trigger Touch feature?
  Enable_Advanced_Touch = true
end
#-------------------------------------------------------------------------------
 
$Amethyst_Scripts = {} if $Amethyst_Scripts.nil?
$Amethyst_Scripts["Am Custom Movement"] = ["1.2","25/03/2010"]
 
class Game_Character
  def amcm_integer?(value)
    i = value.to_i; return value == i
  end
  def pos?(x, y)
    if amcm_integer?(@x)
      if amcm_integer?(@y)
        return (@x == x and @y == y)
      else
        return (@x == x and (@y.to_i == y or @y.to_i+1 == y))
      end
    elsif amcm_integer?(@y)
      return ((@x.to_i == x or @x.to_i+1 == x) and @y == y)
    else
      return ((@x.to_i == x or @x.to_i+1 == x)and(@y.to_i == y or @y.to_i+1 == y))
    end
  end
  if Amcm_Config::Enable_Event_Diagonal
    def move_random
      case rand(8)
      when 0; move_down(false)
      when 1; move_left(false)
      when 2; move_right(false)
      when 3; move_up(false)
      when 4; move_lower_left
      when 5; move_lower_right
      when 6; move_upper_left
      when 7; move_upper_right
      end
    end
  end
  if Amcm_Config::Enable_Event_Movement 
    def move_down(turn_ok = true)
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x, @y+1)
            turn_down
            @y = $game_map.round_y(@y+0.5)
            @real_y = (@y-0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_down if turn_ok
            check_event_trigger_touch(@x, @y+1)
            @move_failed = true
          end
        else
          turn_down
          @y = $game_map.round_y(@y+0.5)
          @real_y = (@y-0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i, @y+1) and passable?(@x.to_i+1, @y+1)
          turn_down
          @y = $game_map.round_y(@y+0.5)
          @real_y = (@y-0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_down if turn_ok
          check_event_trigger_touch(@x.to_i+1, @y+1)
          check_event_trigger_touch(@x.to_i, @y+1)
          @move_failed = true
        end
      else
        turn_down
        @y = $game_map.round_y(@y+0.5)
        @real_y = (@y-0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_up(turn_ok = true)
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x, @y-1)
            turn_up
            @y = $game_map.round_y(@y-0.5)
            @real_y = (@y+0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_up if turn_ok
            check_event_trigger_touch(@x, @y-1)
            @move_failed = true
          end
        else
          turn_up
          @y = $game_map.round_y(@y-0.5)
          @real_y = (@y+0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i, @y-1) and passable?(@x.to_i+1, @y-1)
          turn_up
          @y = $game_map.round_y(@y-0.5)
          @real_y = (@y+0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_up if turn_ok
          check_event_trigger_touch(@x.to_i, @y-1)
          check_event_trigger_touch(@x.to_i+1, @y-1)
          @move_failed = true
        end
      else
        turn_up
        @y = $game_map.round_y(@y-0.5)
        @real_y = (@y+0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_left(turn_ok = true)
      if amcm_integer?(@y)
        if amcm_integer?(@x)
          if passable?(@x-1, @y)
            turn_left
            @x = $game_map.round_x(@x-0.5)
            @real_x = (@x+0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_left if turn_ok
            check_event_trigger_touch(@x-1, @y)
            @move_failed = true
          end
        else
          turn_left
          @x = $game_map.round_x(@x-0.5)
          @real_x = (@x+0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@x)
        if passable?(@x-1,@y.to_i) and passable?(@x-1,@y.to_i+1)
          turn_left
          @x = $game_map.round_x(@x-0.5)
          @real_x = (@x+0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_left if turn_ok
          check_event_trigger_touch(@x-1, @y.to_i)
          check_event_trigger_touch(@x-1, @y.to_i+1)
          @move_failed = true
        end
      else
        turn_left
        @x = $game_map.round_x(@x-0.5)
        @real_x = (@x+0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_right(turn_ok = true)
      if amcm_integer?(@y)
        if amcm_integer?(@x)
          if passable?(@x+1, @y)
            turn_right
            @x = $game_map.round_x(@x+0.5)
            @real_x = (@x-0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_right if turn_ok
            check_event_trigger_touch(@x+1, @y)
            @move_failed = true
          end
        else
          turn_right
          @x = $game_map.round_x(@x+0.5)
          @real_x = (@x-0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@x)
        if passable?(@x+1,@y.to_i) and passable?(@x+1,@y.to_i+1)
          turn_right
          @x = $game_map.round_x(@x+0.5)
          @real_x = (@x-0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_right if turn_ok
          check_event_trigger_touch(@x+1, @y.to_i)
          check_event_trigger_touch(@x+1, @y.to_i+1)
          @move_failed = true
        end
      else
        turn_right
        @x = $game_map.round_x(@x+0.5)
        @real_x = (@x-0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_lower_left
      unless @direction_fix
        @direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x-1,@y) and passable?(@x-1,@y+1) and passable?(@x,@y+1)
            @x -= 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x-1,@y.to_i+1)
            @x -= 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i,@y+1)
          @x -= 0.5
          @y += 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x -= 0.5
        @y += 0.5
        increase_steps
        @move_failed = false
      end
    end
    def move_lower_right
      unless @direction_fix
        @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x+1,@y) and passable?(@x+1,@y+1) and passable?(@x,@y+1)
            @x += 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x+1,@y.to_i+1)
            @x += 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i+1,@y+1)
          @x += 0.5
          @y += 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x += 0.5
        @y += 0.5
        increase_steps
        @move_failed = false
      end
    end
    def move_upper_left
      unless @direction_fix
        @direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x-1,@y) and passable?(@x-1,@y-1) and passable?(@x,@y-1)
            @x -= 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x-1,@y.to_i)
            @x -= 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i,@y-1)
          @x -= 0.5
          @y -= 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x -= 0.5
        @y -= 0.5
        increase_steps
        @move_failed = false
      end
    end
    def move_upper_right
      unless @direction_fix
        @direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x+1,@y) and passable?(@x+1,@y-1) and passable?(@x,@y-1)
            @x += 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x+1,@y.to_i)
            @x += 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i+1,@y-1)
          @x += 0.5
          @y -= 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x += 0.5
        @y -= 0.5
        increase_steps
        @move_failed = false
      end
    end
  end
end
 
class Game_Player < Game_Character
  if Amcm_Config::Enable_Player_Diagonal
    def move_by_input
      @run_event = false
      return unless movable?
      return if $game_map.interpreter.running?
      case Input.dir8
      when 1; move_lower_left
      when 2; move_down
      when 3; move_lower_right  
      when 4; move_left
      when 6; move_right
      when 7; move_upper_left
      when 8; move_up
      when 9; move_upper_right
      end
    end
  end
  def get_amx(plus=false)
    if plus
      case @direction
      when 2; amcm_integer?(@x) ? i = @x : i = false
      when 4; amcm_integer?(@x) ? i = @x-1 : i = false
      when 6; amcm_integer?(@x) ? i = @x+1 : i = false
      when 8; amcm_integer?(@x) ? i = @x : i = false
      end
      return i
    else
      amcm_integer?(@x) ? i = @x : i = [@x.to_i,@x.to_i+1]; return i
    end
  end
  def get_amy(plus=false)
    if plus
      case @direction
      when 2; amcm_integer?(@y) ? i = @y+1 : i = false
      when 4; amcm_integer?(@y) ? i = @y : i = false
      when 6; amcm_integer?(@y) ? i = @y : i = false
      when 8; amcm_integer?(@y) ? i = @y-1 : i = false
      end
      return i
    else
      amcm_integer?(@y) ? i = @y : i = [@y.to_i,@y.to_i+1]; return i
    end
  end
  if Amcm_Config::Enable_Advanced_Touch
    def check_event_trigger_here(triggers)
      return false if $game_map.interpreter.running?
      result = false
      ax = get_amx
      ay = get_amy
      if ax.is_a?(Array)
        if ay.is_a?(Array)
          for event in $game_map.events_xy(ax[0],ay[0])
            if triggers.include?(event.trigger) and event.priority_type != 1
              event.start
              return true if event.starting
            end
          end
          for event in $game_map.events_xy(ax[0],ay[1])
            if triggers.include?(event.trigger) and event.priority_type != 1
              event.start
              return true if event.starting
            end
          end
          for event in $game_map.events_xy(ax[1],ay[0])
            if triggers.include?(event.trigger) and event.priority_type != 1
              event.start
              return true if event.starting
            end
          end
          for event in $game_map.events_xy(ax[1],ay[1])
            if triggers.include?(event.trigger) and event.priority_type != 1
              event.start
              return true if event.starting
            end
          end
        else
          for event in $game_map.events_xy(ax[0],ay)
            if triggers.include?(event.trigger) and event.priority_type != 1
              event.start
              return true if event.starting
            end
          end
          for event in $game_map.events_xy(ax[1],ay)
            if triggers.include?(event.trigger) and event.priority_type != 1
              event.start
              return true if event.starting
            end
          end
        end
      elsif ay.is_a?(Array)
        for event in $game_map.events_xy(ax,ay[0])
          if triggers.include?(event.trigger) and event.priority_type != 1
            event.start
            return true if event.starting
          end
        end
        for event in $game_map.events_xy(ax,ay[1])
          if triggers.include?(event.trigger) and event.priority_type != 1
            event.start
            return true if event.starting
          end
        end
      else
        for event in $game_map.events_xy(ax,ay)
          if triggers.include?(event.trigger) and event.priority_type != 1
            event.start
            return true if event.starting
          end
        end
      end
      return result
    end
  else
    def check_event_trigger_here(triggers)
      return false if $game_map.interpreter.running?
      result = false
      for event in $game_map.events_xy(@x, @y)
        if triggers.include?(event.trigger) and event.priority_type != 1
          event.start
          result = true if event.starting
        end
      end
      return result
    end
  end
  def check_event_trigger_there(triggers)
    return false if $game_map.interpreter.running?
    result = false
    front_x = get_amx(true)
    front_y = get_amy(true)
    return if !front_x or !front_y
    for event in $game_map.events_xy(front_x, front_y)
      if triggers.include?(event.trigger) and event.priority_type == 1
        event.start
        result = true
      end
    end
    if result == false and $game_map.counter?(front_x, front_y)
      front_x = $game_map.x_with_direction(front_x, @direction)
      front_y = $game_map.y_with_direction(front_y, @direction)
      for event in $game_map.events_xy(front_x, front_y)
        if triggers.include?(event.trigger) and event.priority_type == 1
          event.start
          result = true
        end
      end
    end
    return result
  end
  def get_on_vehicle
    front_x = get_amx(true)
    front_y = get_amy(true)
    if $game_map.airship.pos?(@x, @y)
      get_on_airship
      return true
    elsif $game_map.ship.pos?(front_x, front_y)
      get_on_ship
      return true
    elsif $game_map.boat.pos?(front_x, front_y)
      get_on_boat
      return true
    end
    return false
  end
  def force_vland
    if amcm_integer?(@x)
      if amcm_integer?(@y)
        return
      else
        case @direction
        when 2; move_forward
        when 8; move_forward
        else
          case rand(2)
          when 0; move_up
          when 1; move_down
          end
        end
      end
    elsif amcm_integer?(@y)
      case @direction
      when 4; move_forward
      when 6; move_forward
      else
        case rand(2)
        when 0; move_left
        when 1; move_right
        end
      end
    else
      case @direction
      when 2;
        case rand(2)
        when 0; move_lower_right
        when 1; move_lower_left
        end
      when 4;
        case rand(2)
        when 0; move_lower_left
        when 1; move_upper_left
        end
      when 6;
        case rand(2)
        when 0; move_lower_right
        when 1; move_upper_right
        end
      when 8;
        case rand(2)
        when 0; move_upper_right
        when 1; move_upper_left
        end
      end
    end
    return (amcm_integer?(@x) and amcm_integer?(@y))
  end
  def force_move_forward
    @through = true
    move_forward
    move_forward if in_vehicle?
    @through = false
  end
  def get_off_vehicle
    if in_airship?
      return if force_vland
      return unless airship_land_ok?(@x, @y)
    else
      return if force_vland
      front_x = get_amx(true)
      front_y = get_amy(true)
      return unless can_walk?(front_x, front_y)
    end
    $game_map.vehicles[@vehicle_type].get_off
    if in_airship?
      @direction = 2
    else
      force_move_forward
      @transparent = false
    end
    @vehicle_getting_off = true
    @move_speed = 4
    @through = false
    @walking_bgm.play
    make_encounter_count
  end
  if not Amcm_Config::Enable_Event_Movement 
    def move_down(turn_ok = true)
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x, @y+1)
            turn_down
            @y = $game_map.round_y(@y+0.5)
            @real_y = (@y-0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_down if turn_ok
            check_event_trigger_touch(@x, @y+1)
            @move_failed = true
          end
        else
          turn_down
          @y = $game_map.round_y(@y+0.5)
          @real_y = (@y-0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i, @y+1) and passable?(@x.to_i+1, @y+1)
          turn_down
          @y = $game_map.round_y(@y+0.5)
          @real_y = (@y-0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_down if turn_ok
          check_event_trigger_touch(@x.to_i+1, @y+1)
          check_event_trigger_touch(@x.to_i, @y+1)
          @move_failed = true
        end
      else
        turn_down
        @y = $game_map.round_y(@y+0.5)
        @real_y = (@y-0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_up(turn_ok = true)
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x, @y-1)
            turn_up
            @y = $game_map.round_y(@y-0.5)
            @real_y = (@y+0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_up if turn_ok
            check_event_trigger_touch(@x, @y-1)
            @move_failed = true
          end
        else
          turn_up
          @y = $game_map.round_y(@y-0.5)
          @real_y = (@y+0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i, @y-1) and passable?(@x.to_i+1, @y-1)
          turn_up
          @y = $game_map.round_y(@y-0.5)
          @real_y = (@y+0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_up if turn_ok
          check_event_trigger_touch(@x.to_i, @y-1)
          check_event_trigger_touch(@x.to_i+1, @y-1)
          @move_failed = true
        end
      else
        turn_up
        @y = $game_map.round_y(@y-0.5)
        @real_y = (@y+0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_left(turn_ok = true)
      if amcm_integer?(@y)
        if amcm_integer?(@x)
          if passable?(@x-1, @y)
            turn_left
            @x = $game_map.round_x(@x-0.5)
            @real_x = (@x+0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_left if turn_ok
            check_event_trigger_touch(@x-1, @y)
            @move_failed = true
          end
        else
          turn_left
          @x = $game_map.round_x(@x-0.5)
          @real_x = (@x+0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@x)
        if passable?(@x-1,@y.to_i) and passable?(@x-1,@y.to_i+1)
          turn_left
          @x = $game_map.round_x(@x-0.5)
          @real_x = (@x+0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_left if turn_ok
          check_event_trigger_touch(@x-1, @y.to_i)
          check_event_trigger_touch(@x-1, @y.to_i+1)
          @move_failed = true
        end
      else
        turn_left
        @x = $game_map.round_x(@x-0.5)
        @real_x = (@x+0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_right(turn_ok = true)
      if amcm_integer?(@y)
        if amcm_integer?(@x)
          if passable?(@x+1, @y)
            turn_right
            @x = $game_map.round_x(@x+0.5)
            @real_x = (@x-0.5)*256
            increase_steps
            @move_failed = false
          else
            turn_right if turn_ok
            check_event_trigger_touch(@x+1, @y)
            @move_failed = true
          end
        else
          turn_right
          @x = $game_map.round_x(@x+0.5)
          @real_x = (@x-0.5)*256
          increase_steps
          @move_failed = false
        end
      elsif amcm_integer?(@x)
        if passable?(@x+1,@y.to_i) and passable?(@x+1,@y.to_i+1)
          turn_right
          @x = $game_map.round_x(@x+0.5)
          @real_x = (@x-0.5)*256
          increase_steps
          @move_failed = false
        else
          turn_right if turn_ok
          check_event_trigger_touch(@x+1, @y.to_i)
          check_event_trigger_touch(@x+1, @y.to_i+1)
          @move_failed = true
        end
      else
        turn_right
        @x = $game_map.round_x(@x+0.5)
        @real_x = (@x-0.5)*256
        increase_steps
        @move_failed = false
      end
    end
    def move_lower_left
      unless @direction_fix
        @direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x-1,@y) and passable?(@x-1,@y+1) and passable?(@x,@y+1)
            @x -= 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x-1,@y.to_i+1)
            @x -= 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i,@y+1)
          @x -= 0.5
          @y += 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x -= 0.5
        @y += 0.5
        increase_steps
        @move_failed = false
      end
    end
    def move_lower_right
      unless @direction_fix
        @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x+1,@y) and passable?(@x+1,@y+1) and passable?(@x,@y+1)
            @x += 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x+1,@y.to_i+1)
            @x += 0.5
            @y += 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i+1,@y+1)
          @x += 0.5
          @y += 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x += 0.5
        @y += 0.5
        increase_steps
        @move_failed = false
      end
    end
    def move_upper_left
      unless @direction_fix
        @direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x-1,@y) and passable?(@x-1,@y-1) and passable?(@x,@y-1)
            @x -= 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x-1,@y.to_i)
            @x -= 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i,@y-1)
          @x -= 0.5
          @y -= 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x -= 0.5
        @y -= 0.5
        increase_steps
        @move_failed = false
      end
    end
    def move_upper_right
      unless @direction_fix
        @direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
      end
      if amcm_integer?(@x)
        if amcm_integer?(@y)
          if passable?(@x+1,@y) and passable?(@x+1,@y-1) and passable?(@x,@y-1)
            @x += 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        else
          if passable?(@x+1,@y.to_i)
            @x += 0.5
            @y -= 0.5
            increase_steps
            @move_failed = false
          else
            @move_failed = true
          end
        end
      elsif amcm_integer?(@y)
        if passable?(@x.to_i+1,@y-1)
          @x += 0.5
          @y -= 0.5
          increase_steps
          @move_failed = false
        else
          @move_failed = true
        end
      else
        @x += 0.5
        @y -= 0.5
        increase_steps
        @move_failed = false
      end
    end
  end
end