#==============================================================================
# ■ イベントの挙動変更8
#   @version 0.17 12/09/16 RGSS3
#   @author さば缶
#------------------------------------------------------------------------------
# 　イベントの移動頻度が最高の場合、
#   プレイヤーが一歩進むごとにイベントも一歩進むようになります。
#   イベントの移動頻度が「最高」で プレイヤーと同時移動、
#  「高」でプレイヤー２歩でイベントが１歩移動となります。
#
#   アイテムのメモ欄に <random> といれると自動生成ダンジョン内でのみ
#   使えるアイテムを作れます。
#
#   いろいろつくりかけです。
#==============================================================================
module Saba
  module Dungeon
    # イベントが必ずプレイヤーに向かってくる場合 true
    ENEMY_ALWAYS_TOWARD_PLAYER = true
  end
end


class Game_Event

  
  attr_reader :event_waiting
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #     event : RPG::Event
  #--------------------------------------------------------------------------
  alias saba_dungeon_initialize initialize
  def initialize(map_id, event)
    saba_dungeon_initialize(map_id, event)
    @event_id = event.id
  end
  #--------------------------------------------------------------------------
  # ● 停止時の更新
  #--------------------------------------------------------------------------
  alias saba_dungeon_update_stop update_stop
  def update_stop
    unless $game_map.dungeon?
      saba_dungeon_update_stop
      return
    end
    super
    unless @move_route_forcing
      update_self_movement if $game_player.start_move
    end
  end
  def check_waiting_event
    if @event_waiting
      start
    end
  end
  #--------------------------------------------------------------------------
  # ● ダッシュ状態判定
  #--------------------------------------------------------------------------
  def dash?
    return super unless $game_map.dungeon?
    return $game_player.dash?
  end
  #--------------------------------------------------------------------------
  # ● イベント起動
  #--------------------------------------------------------------------------
  alias saba_dungeon_start start
  def start
    @event_waiting = false
    saba_dungeon_start
  end
  alias saba_dungeon_update_self_movement update_self_movement
  def update_self_movement
    return saba_dungeon_update_self_movement unless $game_map.dungeon?
    
    # エンカウントによる停止
    if stop_by_encounter?
      @stop_by_encounter_turn -= 1
      return
    end
    
    # 移動頻度による停止
    @dungeon_wait_count = 0 unless @dungeon_wait_count
    @dungeon_wait_count += 1
    return if @dungeon_wait_count < (6 - @move_frequency)
    @dungeon_wait_count = 0
    
    # 移動
    case @move_type
    when 1;  move_type_random
    when 2;  move_type_toward_player
    when 3;  move_type_custom
    end
    
    update_move
  end
  
  #--------------------------------------------------------------------------
  # ● 接触イベントの起動判定
  #--------------------------------------------------------------------------
  alias saba_dungeon_check_event_trigger_touch check_event_trigger_touch
  def check_event_trigger_touch(x, y)
    return saba_dungeon_check_event_trigger_touch(x, y) unless $game_map.dungeon?
    return if stop_by_encounter?
    return if $game_map.interpreter.running?
    return if @starting
    return if @trigger != 2
    
    return if jumping?
    return unless normal_priority?
    if @trigger == 2 && $game_player.pos?(x, y)
      @event_waiting = true
      return
    end
    
    return unless $game_player.followers.visible
    $game_player.followers.each do |follower|
      if follower.pos?(x, y)
        @event_waiting = true
        return
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● エンカウントによりイベント一時停止
  #--------------------------------------------------------------------------
  def stop_by_encounter(turn)
    @stop_by_encounter_turn = turn
  end
  #--------------------------------------------------------------------------
  # ● エンカウントによりイベントが停止しているか？
  #--------------------------------------------------------------------------
  def stop_by_encounter?
    return @stop_by_encounter_turn != nil && @stop_by_encounter_turn > 0
  end
  #--------------------------------------------------------------------------
  # ● アニメパターンの更新
  #--------------------------------------------------------------------------
  def update_anime_pattern
    return if stop_by_encounter?
    super
  end
  #--------------------------------------------------------------------------
  # ● 移動タイプ : 近づく
  #--------------------------------------------------------------------------
  alias saba_dungeon_move_type_toward_player move_type_toward_player
  def move_type_toward_player
    unless Saba::Dungeon::ENEMY_ALWAYS_TOWARD_PLAYER
      saba_dungeon_move_type_toward_player
      return
    end
    if near_the_player?
      move_toward_player
    else
      move_random
    end
  end
  #--------------------------------------------------------------------------
  # ● プレイヤーに近づく
  #--------------------------------------------------------------------------
  def move_toward_player
    char = $game_player.nearest_char(x, y)
    move_toward_character(char)
  end
  #--------------------------------------------------------------------------
  # ● キャラクターに近づく
  #--------------------------------------------------------------------------
  def move_toward_character(character)
    return super unless $game_map.dungeon?
    sx = distance_x_from(character.x)
    sy = distance_y_from(character.y)
    if sx.abs > sy.abs
      move_straight(sx > 0 ? 4 : 6)
      if !@move_succeed && sy != 0 && !@event_waiting
        if @last_pos == [x, y + 1]
          move_straight(2)
        elsif @last_pos == [x, y - 1]
          move_straight(8)
        else
          move_straight(sy > 0 ? 8 : 2)
        end
      end
    elsif sy != 0
      move_straight(sy > 0 ? 8 : 2)
      if !@move_succeed && sx != 0 && !@event_waiting
        if @last_pos == [x + 1, y]
          move_straight(4)
        elsif @last_pos == [x + 1, y]
          move_straight(6)
        else
          move_straight(sx > 0 ? 4 : 6)
        end
      end
    end
    @last_pos = [x, y] if $game_map.room(x, y) == nil
  end
end

class Game_Player
  attr_accessor :start_move
  #--------------------------------------------------------------------------
  # ● 方向ボタン入力による移動処理
  #--------------------------------------------------------------------------
  alias saba_dungeon_move_by_input move_by_input
  def move_by_input
    unless $game_map.dungeon?
      saba_dungeon_move_by_input
      return
    end
    
    if !movable? || $game_map.interpreter.running?
      @start_move = false
      return
    end
    if Input.dir4 > 0
      return if $game_map.wait_for_event?
      unless passable?(@x, @y, Input.dir4)
        set_direction(Input.dir4)
        check_event_trigger_touch_front
        return
      end
      move_straight(Input.dir4)
      @start_move = true
    else
      @start_move = false
    end
  end
  #--------------------------------------------------------------------------
  # ○ 隊列のキャラも含んで、一番近いキャラを取得
  #--------------------------------------------------------------------------
  def nearest_char(x, y)
    return self unless $game_player.followers.visible
    min = $game_player.distance_x_from(x) + $game_player.distance_x_from(y)
    return self if min >= 5
    min_char = self
    for follower in $game_player.followers
      dist = follower.distance_x_from(x) + follower.distance_x_from(y)
      if dist < min
        min = dist
        min_char = follower
      end
    end
    return min_char
  end
  #--------------------------------------------------------------------------
  # ● 場所移動情報のクリア
  #--------------------------------------------------------------------------
  alias saba_dungeon_clear_transfer_info clear_transfer_info
  def clear_transfer_info
    saba_dungeon_clear_transfer_info
    @start_move = false
  end
end

class Scene_Map
  alias saba_dungeon_update update
  def update
    saba_dungeon_update
    if Input.trigger?(:C) && ! $game_map.interpreter.running?
      $game_player.start_move = true
    end
  end
end


class Game_Map
  #--------------------------------------------------------------------------
  # ● イベントの更新
  #--------------------------------------------------------------------------
  alias saba_dungeon_update_events update_events
  def update_events
    saba_dungeon_update_events
    return unless dungeon?
    moving = $game_player.moving?
    if ! moving
      @events.each_value {|event| event.check_waiting_event }
    end
    @last_moving = moving
  end
  #--------------------------------------------------------------------------
  # ● エネミーイベントの処理を待っているか？
  #--------------------------------------------------------------------------
  def wait_for_event?
    @events.each_value {|event| return true if event.event_waiting || event.starting }
    return false
  end
  #--------------------------------------------------------------------------
  # ● イベントの更新
  #--------------------------------------------------------------------------
  def stop_by_encounter(event_id, turn)
    @events[event_id].stop_by_encounter(turn)
  end
end

class Game_Interpreter
  def stop(turn)
    $game_map.stop_by_encounter(self.event_id, turn)
  end
  #--------------------------------------------------------------------------
  # ○ 全てのイベントを停止
  #--------------------------------------------------------------------------
  def stop_all(turn)
    $game_map.events.values.each do |event|
      event.stop_by_encounter(turn)
    end
  end
  #--------------------------------------------------------------------------
  # ○ ランダムな場所にワープ
  #--------------------------------------------------------------------------
  def teleport
    $game_map.put_to_random_place($game_player)
  end
end

class Game_BattlerBase
  #--------------------------------------------------------------------------
  # ● スキル／アイテムの使用可能時チェック
  #--------------------------------------------------------------------------
  alias saba_dungeon_occasion_ok? occasion_ok?
  def occasion_ok?(item)
    return false if item.only_in_random_dungeon? && ! $game_map.dungeon?
    return saba_dungeon_occasion_ok?(item)
  end
end

class RPG::BaseItem
  def only_in_random_dungeon?
    return self.note.include?("<random>")
  end
end