ТЕМА: [XP] Panic Mode

class Game_Character
 
  alias panic_initialize initialize
  def initialize
    @panic_mode = 0
    panic_initialize
  end
 
  # 1 - Panic, 0 - Normal
  def set_panic_mode(mode)
    @panic_mode = mode
  end
end
 
class Game_Player 
   alias panic_update update
   def update
    last_moving = moving?
    unless moving? or $game_system.map_interpreter.running? or
           @move_route_forcing or $game_temp.message_window_showing
      case Input.dir4
      when 2
        @panic_mode == 0 ? move_down : move_up
      when 4
        @panic_mode == 0 ? move_left : move_right
      when 6
        @panic_mode == 0 ? move_right : move_left
      when 8
        @panic_mode == 0 ? move_up : move_down
      end
    end
    last_real_x = @real_x
    last_real_y = @real_y
    super
    if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
      $game_map.scroll_down(@real_y - last_real_y)
    end
    if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
      $game_map.scroll_left(last_real_x - @real_x)
    end
    if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
      $game_map.scroll_right(@real_x - last_real_x)
    end
    if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
      $game_map.scroll_up(last_real_y - @real_y)
    end
    unless moving?
      if last_moving
        result = check_event_trigger_here([1,2])
        if result == false
          unless $DEBUG and Input.press?(Input::CTRL)
            if @encounter_count > 0
              @encounter_count -= 1
            end
          end
        end
      end
      if Input.trigger?(Input::C)
        check_event_trigger_here([0])
        check_event_trigger_there([0,1,2])
      end
    end
  end
end

class Game_Character
 
  alias panic_initialize initialize
  def initialize
    @panic_mode = 0
    panic_initialize
  end
 
  # 1 - Panic, 0 - Normal
  def set_panic_mode(mode)
    @panic_mode = mode
  end
end
 
class Game_CharacterBase
  alias panic_move_straight move_straight
  def move_straight(d, turn_ok = true)
    if @panic_mode == 1 #2 <-> 8, 4 <-> 6
      d = 10 - d
    end 
 
    @move_succeed = passable?(@x, @y, d)
    if @move_succeed
      set_direction(d)
      @x = $game_map.round_x_with_direction(@x, d)
      @y = $game_map.round_y_with_direction(@y, d)
      @real_x = $game_map.x_with_direction(@x, reverse_dir(d))
      @real_y = $game_map.y_with_direction(@y, reverse_dir(d))
      increase_steps
    elsif turn_ok
      set_direction(d)
      check_event_trigger_touch_front
    end
  end
end

class Game_Character
 
  alias re_initialize initialize
  def initialize
    @re_mode = 0
    re_initialize
  end
 
  # 1 - Panic, 0 - Normal
  def set_re_mode(mode)
    @re_mode = mode
  end
end
 
class Game_Player
  def move_by_input
    return if !movable? || $game_map.interpreter.running?
 
    if @re_mode == 1
      if Input.dir4 > 0
        if Input.dir4 == 2 # backward
          move_backward
        elsif Input.dir4 == 8 # forward
          move_forward
        elsif Input.dir4 == 4 && Input.repeat?(:LEFT) # turn left
          turn_left_90
        elsif Input.dir4 == 6 && Input.repeat?(:RIGHT)# turn right
          turn_right_90
        end
      end
    else
      move_straight(Input.dir4) if Input.dir4 > 0
    end
  end
end