###################################

#    Script de deplacement pixel par pixel
# Adaptation VX du script XP créé par Zeus81

###################################
class Game_Character
 
  attr_reader :x_bis
  attr_reader :y_bis
 
  alias old_init initialize
  def initialize
    old_init
    @x_bis = 0
    @y_bis = 0
  end
 
  def moving?
    return (@real_x != @x_bis * 256 or @real_y != @y_bis * 256)
  end
 
  def moveto(x, y)
    @x = @x_bis = x % $game_map.width
    @y = @y_bis = y % $game_map.height
    @real_x = @x * 256
    @real_y = @y * 256
    @prelock_direction = 0
    straighten
    update_bush_depth
  end
 
  def update_jump
    @jump_count -= 1
    @real_x = (@real_x * @jump_count + @x_bis * 256) / (@jump_count + 1)
    @real_y = (@real_y * @jump_count + @y_bis * 256) / (@jump_count + 1)
    update_bush_depth
  end
 
  def update_move
    distance = 2 ** @move_speed  # Convert to movement distance
    distance *= 2 if dash?        # If dashing, double it
    @real_x = [@real_x - distance, @x_bis * 256].max if @x_bis * 256 < @real_x
    @real_x = [@real_x + distance, @x_bis * 256].min if @x_bis * 256 > @real_x
    @real_y = [@real_y - distance, @y_bis * 256].max if @y_bis * 256 < @real_y
    @real_y = [@real_y + distance, @y_bis * 256].min if @y_bis * 256 > @real_y
    update_bush_depth unless moving?
    if @walk_anime
      @anime_count += 1.5
    elsif @step_anime
      @anime_count += 1
    end
  end
 
  def move_down(turn_ok = true)
    if @real_y < (@y * 256) or passable?(@x, @y +1)          # Passable
      turn_down
      @x_bis -= 0.125 if passable?(@x+1, @y) == false and @x_bis > @x
      @x_bis += 0.125 if passable?(@x-1, @y) == false and @x_bis < @x
      @y_bis = $game_map.round_y(@y_bis+0.125)
      @real_y = (@y_bis-0.125)*256
      increase_steps
      @y = @y_bis.round
      @move_failed = false
    else                                    # Impassable
      if @y_bis < @y
        @y_bis += 0.125
      else
        turn_down if turn_ok
        check_event_trigger_touch(@x, @y+1)  # Touch event is triggered?
        @move_failed = true
      end
    end
  end

  def move_left(turn_ok = true)
    if @real_x > (@x * 256) or passable?(@x-1, @y)        # Passable
      turn_left
      @y_bis -= 0.125 if passable?(@x, @y+1) == false and @y_bis > @y
      @y_bis += 0.125 if passable?(@x, @y-1) == false and @y_bis < @y
      @x_bis = $game_map.round_x(@x_bis-0.125)
      @real_x = (@x_bis+0.125)*256
      @x = @x_bis.round
      increase_steps
      @move_failed = false
    else                                    # Impassable
      if @x_bis > @x
        @x_bis -= 0.125
      else
        turn_left if turn_ok
        check_event_trigger_touch(@x-1, @y)  # Touch event is triggered?
        @move_failed = true
      end
    end
  end

  def move_right(turn_ok = true)
    if @real_x < (@x * 256) or passable?(@x+1, @y)                  # Passable
      turn_right
      @y_bis -= 0.125 if passable?(@x, @y+1) == false and @y_bis > @y
      @y_bis += 0.125 if passable?(@x, @y-1) == false and @y_bis < @y
      @x_bis = $game_map.round_x(@x_bis+0.125)
      @real_x = (@x_bis-0.125)*256
      @x = @x_bis.round
      increase_steps
      @move_failed = false
    else                                    # Impassable
      if @x_bis < @x
        @x_bis += 0.125
      else
        turn_right if turn_ok
        check_event_trigger_touch(@x+1, @y)  # Touch event is triggered?
        @move_failed = true
      end
    end
  end

  def move_up(turn_ok = true)
    if @real_y > (@y * 256) or passable?(@x, @y-1)                  # Passable
      turn_up
    @x_bis -= 0.125 if passable?(@x+1, @y) == false and @x_bis > @x
    @x_bis += 0.125 if passable?(@x-1, @y) == false and @x_bis < @x
      @y_bis = $game_map.round_y(@y_bis-0.125)
      @real_y = (@y_bis+0.125)*256
      @y = @y_bis.round
      increase_steps
      @move_failed = false
    else                                    # Impassable
      if @y_bis > @y
        @y_bis -= 0.125
      else
        turn_up if turn_ok
        check_event_trigger_touch(@x, @y-1)  # Touch event is triggered?
        @move_failed = true
      end
    end
  end

  def move_lower_left
    unless @direction_fix
      @direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
    end
    move_down(false)
    move_left(false)
  end

  def move_lower_right
    unless @direction_fix
      @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
    end
    move_down(false)
    move_right(false)
  end

  def move_upper_left
    unless @direction_fix
      @direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
    end
    move_up(false)
    move_left(false)
  end

  def move_upper_right
    unless @direction_fix
      @direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
    end
    move_up(false)
    move_right(false)
  end

  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

  def jump(x_plus, y_plus)
    if x_plus.abs > y_plus.abs            # Horizontal distance is longer
      x_plus < 0 ? turn_left : turn_right
    elsif x_plus.abs > y_plus.abs        # Vertical distance is longer
      y_plus < 0 ? turn_up : turn_down
    end
    @x += x_plus
    @x_bis += x_plus
    @y += y_plus
    @y_bis += y_plus
    distance = Math.sqrt(x_plus * x_plus + y_plus * y_plus).round
    @jump_peak = 10 + distance - @move_speed
    @jump_count = @jump_peak * 2
    @stop_count = 0
    straighten
  end
 
end
###################################
class Game_Player < Game_Character
  def move_by_input
    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