关于八方向走的问题 - Project1

# ————————————————————————————————————
# 全方向ドット移動 Ver ε
# 配布元・サポートURL
# http://members.jcom.home.ne.jp/cogwheel/

#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　プレイヤーを扱うクラスです。イベントの起動判定や、マップのスクロールなどの
# 機能を持っています。このクラスのインスタンスは $game_player で参照されます。
#==============================================================================

class Game_Player < Game_Character
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  UP = 48                # 上方向の余裕(0 < UP < 63)
  DOWN  = 16                # 下方向の余裕(0 < DOWN <63)
  SIDE  = 32                # 左右方向の余裕(0 < SIDE <63)
  SLANT = false             # 移動ルートの斜め移動時、速度修正
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_reader :event                   # イベント時移動速度
  attr_accessor :move_speed             # 移動速度
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias :update_original :update
  def update
# @walk:歩行速度 @dash:ダッシュ時移動速度
# @event:イベント時移動速度（0の時は、イベント時に速度変更をしない）
@walk  = 4
@dash  = 5
@event = 4
@dot_m = true
#ダッシュ機能。エンターキーが押されている間、移動速度を変更する。
unless moving? or $game_system.map_interpreter.running? or
         @move_route_forcing or $game_temp.message_window_showing
   if @walk != @dash
      if Input.press?(Input::C)
      if @move_speed != @dash
         @move_speed = @dash
      end
      else
      if @move_speed != @walk
         @move_speed = @walk
      end
      end
   end
end
if @revise_x == nil and @revise_y == nil
   @revise_x = 0
   @revise_y = 0
end
unless @dot_m
   update_original
   return
end
if @move_route_forcing
   # ローカル変数に移動中かどうかを記憶
   last_moving = moving?
   # ローカル変数に座標を記憶
   last_real_x = @real_x
   last_real_y = @real_y
   # 座標がずれている場合
   if (@revise_x != 0 or @revise_y != 0) and not jumping? and @move == true
      if @revise_x != @real_x - @x * 128 or @revise_y != @real_y - @y * 128
      @revise_x = @real_x - @x * 128
      @revise_y = @real_y - @y * 128
      end
      # 移動距離distance1と目標距離distance2を設定
      distance1 = 2 ** @move_speed
      distance2 = Math.sqrt(@revise_x ** 2 + @revise_y ** 2)
      # 移動距離が目標距離を越えた場合
      if distance1 > distance2
      # 強制的に補正座標を零にする
      @real_x = @real_x - @revise_x
      @real_y = @real_y - @revise_y
      @revise_x = 0
      @revise_y = 0
      anime_update
      # 移動距離が目標距離に達しない場合
      else
      # 移動距離分目標距離に近づく
      @real_x -= (distance1 * @revise_x / distance2).round
      @real_y -= (distance1 * @revise_y / distance2).round
      @revise_x = @real_x - @x * 128
      @revise_y = @real_y - @y * 128
      anime_update
      end
   else
      super
   end
else
   @move = false
   # 移動中、イベント実行中、移動ルート強制中、
   # メッセージウィンドウ表示中のいずれでもない場合
   unless moving? or $game_system.map_interpreter.running? or
         @move_route_forcing or $game_temp.message_window_showing
      @event_run = false
      # 方向ボタンが押されていれば、その方向へプレイヤーを移動
      case Input.dir8
      when 1
      move_lower_left_p
      when 2
      move_down_p
      when 3
      move_lower_right_p
      when 4
      move_left_p
      when 6
      move_right_p
      when 7
      move_upper_left_p
      when 8
      move_up_p
      when 9
      move_upper_right_p
      end
   end
   # ローカル変数に座標を記憶
   last_real_x = @real_x
   last_real_y = @real_y
   # 移動処理
   @real_x = @x * 128 + @revise_x
   @real_y = @y * 128 + @revise_y
   # ローカル変数に移動中かどうかを記憶
   last_moving = moving?
   # 座標更新
   move_on
   # 現在の座標と以前の座標が異なる場合
   if (last_real_x != @real_x or last_real_y != @real_y)
      @move_distance = 0 if @move_distance == nil
      @move_distance += Math.sqrt((last_real_x - @real_x) ** 2 +
                                    (last_real_y - @real_y) ** 2)
      if @move_distance >= 128
      @move_distance %= 128
      increase_steps
      end
      # アニメーションを更新
      anime_update
   else
      @pattern = 0
   end
end
# キャラクターが下に移動し、かつ画面上の位置が中央より下の場合
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
# 前回プレイヤーが移動中だった場合
if last_moving
   # 同位置のイベントとの接触によるイベント起動判定
   result = check_event_trigger_here([1,2])
   if result == true
      if (last_real_x / 128.0).round != @x and
         (last_real_y / 128.0).round != @y
      if @direction == 2 or @direction == 8
         if (last_real_x / 128.0).round > @x
            turn_left
         else
            turn_right
         end
      else
         if (last_real_y / 128.0).round > @y
            turn_up
         else
            turn_down
         end
      end
      elsif (last_real_x / 128.0).round > @x
      turn_left
      elsif (last_real_x / 128.0).round < @x
      turn_right
      elsif (last_real_y / 128.0).round > @y
      turn_up
      elsif (last_real_y / 128.0).round < @y
      turn_down
      end
   end
   # 起動したイベントがない場合
   if result == false
      # デバッグモードが ON かつ CTRL キーが押されている場合を除き
      unless $DEBUG and Input.press?(Input::CTRL)
      # エンカウントカウントダウン
      if @encounter_count > 0
         @encounter_count -= 1
      end
      end
   end
end
# C ボタンが押された場合
if Input.trigger?(Input::C)
   # 同位置および正面のイベント起動判定
   check_event_trigger_here([0])
   check_event_trigger_there([0,1,2])
end
  end
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize
@revise_x = 0
@revise_y = 0
@move == false
super
  end
  #--------------------------------------------------------------------------
  # ● 移動判定
  #--------------------------------------------------------------------------
  def moving?
unless @dot_m
   result = super
   return result
end
# 強制移動の場合オリジナルの判定をさせる
if @move_route_forcing
   if @move == false
      return false
   end
   super
# 通常時は現座標が実座標と異なる場合のみ移動中と判定
else
   return (@x != (@real_x / 128.0).round or @y != (@real_y / 128.0).round)
end
  end
  #--------------------------------------------------------------------------
  # ● 移動判定
  #--------------------------------------------------------------------------
  def moving_a?
if @move == false
   if (@move_route.list[@move_route_index].code <= 14 or
      @move_route.list[@move_route_index].code == 25)
      @move = true
   end
   return false
end
moving?
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新 (ジャンプ)
  #--------------------------------------------------------------------------
  def update_jump
# ジャンプカウントを 1 減らす
@jump_count -= 1
# 新しい座標を計算
@real_x = (@real_x * @jump_count + @x * 128) / (@jump_count + 1)
@real_y = (@real_y * @jump_count + @y * 128) / (@jump_count + 1)
if @jump_count == 0
   @revise_x = 0
   @revise_y = 0
end
  end
  #--------------------------------------------------------------------------
  # ● 移動タイプ : カスタム
  #--------------------------------------------------------------------------
  def move_type_custom
unless @dot_m
   super
   return
end
# 停止中でなければ中断
if jumping? or moving_a?
   return
end
# 移動コマンドのリストの最後に到達するまでループ
while @move_route_index < @move_route.list.size
   # 移動コマンドを取得
   command = @move_route.list[@move_route_index]
   # コマンドコード 0 番 (リストの最後) の場合
   if command.code == 0
      # オプション [動作を繰り返す] が ON の場合
      if @move_route.repeat
      # 移動ルートのインデックスを最初に戻す
      @move_route_index = 0
      end
      # オプション [動作を繰り返す] が OFF の場合
      unless @move_route.repeat
      # 移動ルート強制中の場合
      if @move_route_forcing and not @move_route.repeat
         # 移動ルートの強制を解除
         @move_route_forcing = false
         # オリジナルの移動ルートを復帰
         @move_route = @original_move_route
         @move_route_index = @original_move_route_index
         @original_move_route = nil
      end
      # 停止カウントをクリア
      @stop_count = 0
      end
      return
   end
   # 移動系コマンド (下に移動～ジャンプ) の場合
   if command.code <= 14
      # コマンドコードで分岐
      case command.code
      when 1  # 下に移動
      move_down
      when 2  # 左に移動
      move_left
      when 3  # 右に移動
      move_right
      when 4  # 上に移動
      move_up
      when 5  # 左下に移動
      move_lower_left
      when 6  # 右下に移動
      move_lower_right
      when 7  # 左上に移動
      move_upper_left
      when 8  # 右上に移動
      move_upper_right
      when 9  # ランダムに移動
      move_random
      when 10  # プレイヤーに近づく
      move_toward_player
      when 11  # プレイヤーから遠ざかる
      move_away_from_player
      when 12  # 一歩前進
      move_forward
      when 13  # 一歩後退
      move_backward
      when 14  # ジャンプ
      jump(command.parameters[0], command.parameters[1])
      end
      # オプション [移動できない場合は無視] が OFF で、移動失敗の場合
      if not @move_route.skippable and not moving? and not jumping?
      return
      end
      @move_route_index += 1
      return
   end
   # ウェイトの場合
   if command.code == 15
      # ウェイトカウントを設定
      @wait_count = command.parameters[0] * 2 - 1
      @move_route_index += 1
      return
   end
   # 向き変更系のコマンドの場合
   if command.code >= 16 and command.code <= 26
      # コマンドコードで分岐
      case command.code
      when 16  # 下を向く
      turn_down
      when 17  # 左を向く
      turn_left
      when 18  # 右を向く
      turn_right
      when 19  # 上を向く
      turn_up
      when 20  # 右に 90 度回転
      turn_right_90
      when 21  # 左に 90 度回転
      turn_left_90
      when 22  # 180 度回転
      turn_180
      when 23  # 右か左に 90 度回転
      turn_right_or_left_90
      when 24  # ランダムに方向転換
      turn_random
      when 25  # プレイヤーの方を向く
      turn_toward_player
      when 26  # プレイヤーの逆を向く
      turn_away_from_player
      end
      @move_route_index += 1
      return
   end
   # その他のコマンドの場合
   if command.code >= 27
      # コマンドコードで分岐
      case command.code
      when 27  # スイッチ ON
      $game_switches[command.parameters[0]] = true
      $game_map.need_refresh = true
      when 28  # スイッチ OFF
      $game_switches[command.parameters[0]] = false
      $game_map.need_refresh = true
      when 29  # 移動速度の変更
      @move_speed = command.parameters[0]
      when 30  # 移動頻度の変更
      @move_frequency = command.parameters[0]
      when 31  # 移動時アニメ ON
      @walk_anime = true
      when 32  # 移動時アニメ OFF
      @walk_anime = false
      when 33  # 停止時アニメ ON
      @step_anime = true
      when 34  # 停止時アニメ OFF
      @step_anime = false
      when 35  # 向き固定 ON
      @direction_fix = true
      when 36  # 向き固定 OFF
      @direction_fix = false
      when 37  # すり抜け ON
      @through = true
      when 38  # すり抜け OFF
      @through = false
      when 39  # 最前面に表示 ON
      @always_on_top = true
      when 40  # 最前面に表示 OFF
      @always_on_top = false
      when 41  # グラフィック変更
      @tile_id = 0
      @character_name = command.parameters[0]
      @character_hue = command.parameters[1]
      if @original_direction != command.parameters[2]
         @direction = command.parameters[2]
         @original_direction = @direction
         @prelock_direction = 0
      end
      if @original_pattern != command.parameters[3]
         @pattern = command.parameters[3]
         @original_pattern = @pattern
      end
      when 42  # 不透明度の変更
      @opacity = command.parameters[0]
      when 43  # 合成方法の変更
      @blend_type = command.parameters[0]
      when 44  # SE の演奏
      $game_system.se_play(command.parameters[0])
      when 45  # スクリプト
      result = eval(command.parameters[0])
      end
      @move_route_index += 1
      return
   end
end
  end
  #--------------------------------------------------------------------------
  # ● 下に移動
  #--------------------------------------------------------------------------
  def move_down_p
# 下を向く
turn_down
# 移動距離を算出
distance = 2 ** @move_speed
down1(((@x * 128 + @revise_x) / 128.0).round,
      ((@y * 128 + @revise_y) / 128.0).round, distance, true)
  end
  #--------------------------------------------------------------------------
  # ● 下に移動可能かどうかの判定１
  #--------------------------------------------------------------------------
  def down1(x, y, distance, down = false)
result = down2(x, y, distance)
if result == false
   @event_run = check_event_trigger_touch(x, y+1)
   return result
end
if @revise_x < -SIDE
   result = down2(x, y + 1, distance, 4)
   result &= down2(x - 1, y, distance)
   if result == false
      if down
      move_lower_right_p
      if @revise_x > SIDE
         @revise_x = SIDE
      end
      end
      return result
   end
elsif @revise_x > SIDE
   result = down2(x, y + 1, distance, 6)
   result &= down2(x + 1, y, distance)
   if result == false
      if down
      move_lower_left_p
      if @revise_x < -SIDE
         @revise_x = -SIDE
      end
      end
      return result
   end
end
# 下に移動可能ならば距離分移動
@revise_y += distance
return result
  end
  #--------------------------------------------------------------------------
  # ● 下に移動可能かどうかの判定２
  #--------------------------------------------------------------------------
  def down2(x, y, distance, d = 2)
if @revise_y + distance > DOWN
   unless passable?(x, y, d)
      if @revise_y < DOWN
      @revise_y = DOWN
      end
      return false
   end
end
return true
  end
  #--------------------------------------------------------------------------
  # ● 左に移動
  #--------------------------------------------------------------------------
  def move_left_p
# 左を向く
turn_left
distance = 2 ** @move_speed
left1(((@x * 128 + @revise_x) / 128.0).round,
      ((@y * 128 + @revise_y) / 128.0).round, distance, true)
  end
  #--------------------------------------------------------------------------
  # ● 左に移動可能かどうかの判定１
  #--------------------------------------------------------------------------
  def left1(x, y, distance, left = false)
result = left2(x, y, distance)
if result == false
   @event_run = check_event_trigger_touch(x-1, y)
   return result
end
if @revise_y < -UP
   result = left2(x - 1, y, distance, 8)
   result &= left2(x, y - 1, distance)
   if result == false
      if left
      move_lower_left_p
      if @revise_y > DOWN
         @revise_y = DOWN
      end
      end
      return result
   end
elsif @revise_y > DOWN
   result = left2(x - 1, y, distance, 2)
   result &= left2(x, y + 1, distance)
   if result == false
      if left

   move_upper_left_p
      if @revise_y < -UP
         @revise_y = -UP
      end
      end
      return result
   end
end
@revise_x -= distance
return result
  end
  #--------------------------------------------------------------------------
  # ● 左に移動可能かどうかの判定２
  #--------------------------------------------------------------------------
  def left2(x, y, distance, d = 4)
if @revise_x - distance < -SIDE
   unless passable?(x, y, d)
      if @revise_x > -SIDE
      @revise_x = -SIDE
      end
      return false
   end
end
return true
  end
  #--------------------------------------------------------------------------
  # ● 右に移動
  #--------------------------------------------------------------------------
  def move_right_p
   # 右を向く
   turn_right
distance = 2 ** @move_speed
right1(((@x * 128 + @revise_x) / 128.0).round,
         ((@y * 128 + @revise_y) / 128.0).round, distance, true)
  end
  #--------------------------------------------------------------------------
  # ● 右に移動可能かどうかの判定１
  #--------------------------------------------------------------------------
  def right1(x, y, distance, right = false)
result = right2(x, y, distance)
if result == false
   @event_run = check_event_trigger_touch(x+1, y)
   return result
end
if @revise_y < -UP
   result = right2(x + 1, y, distance, 8)
   result &= right2(x, y - 1, distance)
   if result == false
      if right
      move_lower_right_p
      if @revise_y > DOWN
         @revise_y = DOWN
      end
      end
      return result
   end
elsif @revise_y > DOWN
   result = right2(x + 1, y, distance, 2)
   result &= right2(x, y + 1, distance)
   if result == false
      if right
      move_upper_right_p
      if @revise_y < -UP
         @revise_y = -UP
      end
      end
      return result
   end
end
@revise_x += distance
return result
  end
  #--------------------------------------------------------------------------
  # ● 右に移動可能かどうかの判定２
  #--------------------------------------------------------------------------
  def right2(x, y, distance, d = 6)
if @revise_x + distance > SIDE
   unless passable?(x, y, d)
      if @revise_x < SIDE
      @revise_x = SIDE
      end
      return false
   end
end
return true
  end
  #--------------------------------------------------------------------------
  # ● 上に移動
  #--------------------------------------------------------------------------
  def move_up_p
# 上を向く
turn_up
# 下に移動
distance = 2 ** @move_speed
up1(((@x * 128 + @revise_x) / 128.0).round,
      ((@y * 128 + @revise_y) / 128.0).round, distance, true)
  end
  #--------------------------------------------------------------------------
  # ● 上に移動可能かどうかの判定１
  #--------------------------------------------------------------------------
  def up1(x, y, distance, up = false)
result = up2(x, y, distance)
if result == false
   @event_run = check_event_trigger_touch(x, y-1)
   return result
end
if @revise_x < -SIDE
   result = up2(x, y - 1, distance, 4)
   result &= up2(x - 1, y, distance)
   if result == false
      if up
      move_upper_right_p
      if @revise_x > SIDE
         @revise_x = SIDE
      end
      end
      return result
   end
elsif @revise_x > SIDE
   result = up2(x, y - 1, distance, 6)
   result &= up2(x + 1, y, distance)
   if result == false
      if up
      move_upper_left_p
      if @revise_x < -SIDE
         @revise_x = -SIDE
      end
      end
      return result
   end
end
@revise_y -= distance
return result
  end
  #--------------------------------------------------------------------------
  # ● 上に移動可能かどうかの判定２
  #--------------------------------------------------------------------------
  def up2(x, y, distance, d = 8)
if @revise_y - distance < -UP
   unless passable?(x, y, d)
      if @revise_y > -UP
      @revise_y = -UP
      end
      return false
   end
end
return true
  end
  #--------------------------------------------------------------------------
  # ● 左下に移動
  #--------------------------------------------------------------------------
  def move_lower_left_p
# 向き固定でない場合
unless @direction_fix
   # 右向きだった場合は左を、上向きだった場合は下を向く
   @direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
end
# 左下に移動
distance = (2 ** @move_speed) / Math.sqrt(2)
if @direction == 2
   turn_left unless down1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_down if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 2, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if @revise_y > DOWN and -UP > @revise_y - distance
      @revise_y = DOWN
      end
      turn_down unless left1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_left if @event_run
   end
else
   turn_down unless left1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_left if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 4, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if  @revise_x + distance> SIDE and -SIDE > @revise_x
      @revise_x = -SIDE
      end
      turn_left unless down1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_down if @event_run
   end
end
  end
  #--------------------------------------------------------------------------
  # ● 右下に移動
  #--------------------------------------------------------------------------
  def move_lower_right_p
# 向き固定でない場合
unless @direction_fix
   # 左向きだった場合は右を、上向きだった場合は下を向く
   @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
# 右下に移動
distance = (2 ** @move_speed) / Math.sqrt(2)
if @direction == 2
   turn_right unless down1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_down if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 2, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if @revise_y > DOWN and -UP > @revise_y - distance
      @revise_y = DOWN
      end
      turn_down unless right1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_right if @event_run
   end
else
   turn_down unless right1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_right if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 6, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if @revise_x > SIDE and -SIDE > @revise_x - distance
      @revise_x = SIDE
      end
      turn_right unless down1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_down if @event_run
   end
end
  end
  #--------------------------------------------------------------------------
  # ● 左上に移動
  #--------------------------------------------------------------------------
  def move_upper_left_p
# 向き固定でない場合
unless @direction_fix
   # 右向きだった場合は左を、下向きだった場合は上を向く
   @direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
end
# 左上に移動
distance = (2 ** @move_speed) / Math.sqrt(2)
if @direction == 8
   turn_left unless up1(((@x * 128 + @revise_x) / 128.0).round,
                        ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_up if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 8, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if @revise_y + distance > DOWN and -UP > @revise_y
      @revise_y = -UP
      end
      turn_up unless left1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_left if @event_run
   end
else
   turn_up unless left1(((@x * 128 + @revise_x) / 128.0).round,
                        ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_left if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 4, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if @revise_x > SIDE and -SIDE > @revise_x - distance
      @revise_x = SIDE
      end
      turn_left unless up1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_up if @event_run
   end
end
  end
  #--------------------------------------------------------------------------
  # ● 右上に移動
  #--------------------------------------------------------------------------
  def move_upper_right_p
# 向き固定でない場合
unless @direction_fix
   # 左向きだった場合は右を、下向きだった場合は上を向く
   @direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
end
# 右上に移動
distance = (2 ** @move_speed) / Math.sqrt(2)
if @direction == 8
   turn_right unless up1(((@x * 128 + @revise_x) / 128.0).round,
                        ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_up if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 8, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if @revise_y + distance > DOWN and -UP > @revise_y
      @revise_y = -UP
      end
      turn_up unless right1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_right if @event_run
   end
else
   turn_up unless right1(((@x * 128 + @revise_x) / 128.0).round,
                        ((@y * 128 + @revise_y) / 128.0).round, distance)
   turn_right if @event_run
   unless @event_run
      if last_move?(@real_x, @real_y, 6, distance)
      result = check_event_trigger_here([1,2], false)
      if result == true
         return
      end
      end
      move_on
      if @revise_x > SIDE and -SIDE > @revise_x - distance
      @revise_x = SIDE
      end
      turn_right unless up1(((@x * 128 + @revise_x) / 128.0).round,
                           ((@y * 128 + @revise_y) / 128.0).round, distance)
      turn_up if @event_run
   end
end
  end
  #--------------------------------------------------------------------------
  # ● 同位置のイベント起動判定
  #--------------------------------------------------------------------------
  def check_event_trigger_here(triggers, run = true)
result = false
# イベント実行中の場合
if $game_system.map_interpreter.running?
   return result
end
# 全イベントのループ
for event in $game_map.events.values
   # イベントの座標とトリガーが一致した場合
   if event.x == ((@x * 128 + @revise_x) / 128.0).round and
      event.y == ((@y * 128 + @revise_y) / 128.0).round and
      triggers.include?(event.trigger)
      # ジャンプ中以外で、起動判定が同位置のイベントなら
      if not event.jumping? and event.over_trigger?
      if event.list.size > 1
         if run == true
            event.start
         end
         result = true
      end
      end
   end
end
return result
  end
  #--------------------------------------------------------------------------
  # ● 座標修正
  #--------------------------------------------------------------------------
  def move_on
if @y < (@y + @revise_y / 128.0).round
   @y += 1
   @revise_y -= 128
end
if @x > (@x + @revise_x / 128.0).round
   @x -= 1
   @revise_x += 128
end
if @x < (@x + @revise_x / 128.0).round
   @x += 1
   @revise_x -= 128
end
if @y > (@y + @revise_y / 128.0).round
   @y -= 1
   @revise_y += 128
end
  end
  #--------------------------------------------------------------------------
  # ● アニメーションアップデート
  #--------------------------------------------------------------------------
  def anime_update
# 移動時アニメが ON の場合
if @walk_anime
   # アニメカウントを 1.5 増やす
   @anime_count += 1.5
# 移動時アニメが OFF で、停止時アニメが ON の場合
elsif @step_anime
   # アニメカウントを 1 増やす
   @anime_count += 1
end
# アニメカウントが最大値を超えた場合
# ※最大値は、基本値 18 から移動速度 * 1 を引いた値
if @anime_count > 18 - @move_speed * 2
   # 停止時アニメが OFF かつ停止中の場合
   if not @step_anime and @stop_count > 0
      # パターンをオリジナルに戻す
      @pattern = @original_pattern
   # 停止時アニメが ON または移動中の場合
   else
      # パターンを更新
      @pattern = (@pattern + 1) % 4
   end
   # アニメカウントをクリア
   @anime_count = 0
end
  end
  #--------------------------------------------------------------------------
  # ● 指定位置に移動
  #--------------------------------------------------------------------------
  # オリジナルのイベントを改名
  alias :moveto_original :moveto
  def moveto(x, y)
# 補正座標を初期化
@revise_x = 0
@revise_y = 0
# オリジナルのイベントを呼び出し
moveto_original(x, y)
  end
  #--------------------------------------------------------------------------
  # ● 移動したかどうかの判定
  #--------------------------------------------------------------------------
  def last_move?(x, y, direction, distance)
if direction == 2 or direction == 6
   distance *= -1
end
if (direction == 2 or direction == 8) and
      (y / 128.0).round != ((y - distance) / 128.0).round
   return true
end
if (direction == 4 or direction == 6) and
      (x / 128.0).round != ((x - distance) / 128.0).round
   return true
end
return false
  end
end

#==============================================================================
# ■ Game_Character (分割定義 1)
#------------------------------------------------------------------------------
# 　キャラクターを扱うクラスです。このクラスは Game_Player クラスと Game_Event
# クラスのスーパークラスとして使用されます。
#==============================================================================

class Game_Character
  #--------------------------------------------------------------------------
  # ● フレーム更新 (移動)
  #--------------------------------------------------------------------------
  def update_move
# 移動速度からマップ座標系での移動距離に変換
distance = 2 ** @move_speed
if @x * 128 != @real_x and @y * 128 != @real_y and Game_Player::SLANT
   distance /= Math.sqrt(2)
end
# 論理座標が実座標より下の場合
if @y * 128 > @real_y
   # 下に移動
   @real_y = [@real_y + distance, @y * 128].min
end
# 論理座標が実座標より左の場合
if @x * 128 < @real_x
   # 左に移動
   @real_x = [@real_x - distance, @x * 128].max
end
# 論理座標が実座標より右の場合
if @x * 128 > @real_x
   # 右に移動
   @real_x = [@real_x + distance, @x * 128].min
end
# 論理座標が実座標より上の場合
if @y * 128 < @real_y
   # 上に移動
   @real_y = [@real_y - distance, @y * 128].max
end
# 移動時アニメが ON の場合
if @walk_anime
   # アニメカウントを 1.5 増やす
   @anime_count += 1.5
# 移動時アニメが OFF で、停止時アニメが ON の場合
elsif @step_anime
   # アニメカウントを 1 増やす
   @anime_count += 1
end
  end
end

#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 　イベントを扱うクラスです。条件判定によるイベントページ切り替えや、並列処理
# イベント実行などの機能を持っており、Game_Map クラスの内部で使用されます。
#==============================================================================

class Game_Event < Game_Character
  #--------------------------------------------------------------------------
  # ● イベント起動
  #--------------------------------------------------------------------------
  def start
# 実行内容が空でない場合
if @list.size > 1
   # $game_player.event が0でない場合
   if $game_player.event != 0
      # 移動速度を $game_player.event にする
      $game_player.move_speed = $game_player.event
   end
   @starting = true
end
  end
end

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

self.bitmap = RPG::Cache.character(@character.character_name,
@character.character_hue)
@cw = bitmap.width / 4
@ch = bitmap.height / 4
self.ox = @cw / 2
self.oy = @ch
end
end

复制代码

self.bitmap = RPG::Cache.character(@character.character_name,
@character.character_hue)
@cw = bitmap.width / 4
@ch = bitmap.height / 8
self.ox = @cw / 2
self.oy = @ch
end
end

复制代码

case @character.direction
when 2
sy = 0 * @ch
when 4
sy = 1 * @ch
when 6
sy = 2 * @ch
when 8
sy = 3 * @ch
when 1
sy = 4 * @ch
when 3
sy = 5 * @ch
when 7
sy = 6 * @ch
when 9
sy = 7 * @ch
end

复制代码

if @tile_id == 0
# 设置传送目标的矩形
sx = @character.pattern * @cw

复制代码

# ————————————————————————————————————
# ▼▲▼ XRXS13. パーティ列車移動 ver.1.02 ▼▲▼
#
# Train_Actor
#
#
module Train_Actor
#是否使用停止跟随的方法，也就是说，这里false改为true的时候，如果TRANSPARENT_SWITCHES_INDEX
#开关打开，跟随的人物就消失了（其实只是变成透明而已）
TRANSPARENT_SWITCH = false
TRANSPARENT_SWITCHES_INDEX = 20
#举例：第一个为true，第二个为20，则打开20号开关，后面的人都没了。
#跟随人数的最大数目，可以更改为2、3什么的。
TRAIN_ACTOR_SIZE_MAX = 4
# 定数
#Input::DOWN = 2
#Input::LEFT = 4
#Input::RIGHT = 6
#Input::UP = 6
DOWN_LEFT = 1
DOWN_RIGHT = 3
UP_LEFT = 7
UP_RIGHT = 9
JUMP = 5
#==============================================================================
# ■ Game_Party_Actor
#------------------------------------------------------------------------------
# 　
#==============================================================================
class Game_Party_Actor < Game_Character
def initialize
super()
@through = true
end
def setup(actor)
# キャラクターのファイル名と色相を設定
if actor != nil
@character_name = actor.character_name
@character_hue = actor.character_hue
else
@character_name = ""
@character_hue = 0
end
# 不透明度と合成方法を初期化
@opacity = 255
@blend_type = 0
end
def screen_z(height = 0)
if $game_player.x == @x and $game_player.y == @y
return $game_player.screen_z(height) - 1
end
super(height)
end
#--------------------------------------------------------------------------
# ● 下に移動
# turn_enabled : その場での向き変更を許可するフラグ
#--------------------------------------------------------------------------
def move_down(turn_enabled = true)
# 下を向く
if turn_enabled
turn_down
end
# 通行可能な場合
if passable?(@x, @y, Input::DOWN)
# 下を向く
turn_down
# 座標を更新
@y += 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 左に移動
# turn_enabled : その場での向き変更を許可するフラグ
#--------------------------------------------------------------------------
def move_left(turn_enabled = true)
# 左を向く
if turn_enabled
turn_left
end
# 通行可能な場合
if passable?(@x, @y, Input::LEFT)
# 左を向く
turn_left
# 座標を更新
@x -= 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 右に移動
# turn_enabled : その場での向き変更を許可するフラグ
#--------------------------------------------------------------------------
def move_right(turn_enabled = true)
# 右を向く
if turn_enabled
turn_right
end
# 通行可能な場合
if passable?(@x, @y, Input::RIGHT)
# 右を向く
turn_right
# 座標を更新
@x += 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 上に移動
# turn_enabled : その場での向き変更を許可するフラグ
#--------------------------------------------------------------------------
def move_up(turn_enabled = true)
# 上を向く
if turn_enabled
turn_up
end
# 通行可能な場合
if passable?(@x, @y, Input::UP)
# 上を向く
turn_up
# 座標を更新
@y -= 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 左下に移動
#--------------------------------------------------------------------------
def move_lower_left
# 向き固定でない場合
unless @direction_fix
# 右向きだった場合は左を、上向きだった場合は下を向く
@direction = 1
end
# 下→左、左→下のどちらかのコースが通行可能な場合
if (passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::LEFT)) or
(passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::DOWN))
# 座標を更新
@x -= 1
@y += 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 右下に移動
#--------------------------------------------------------------------------
def move_lower_right
# 向き固定でない場合
unless @direction_fix
# 左向きだった場合は右を、上向きだった場合は下を向く
@direction = 3
end
# 下→右、右→下のどちらかのコースが通行可能な場合
if (passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::RIGHT)) or
(passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::DOWN))
# 座標を更新
@x += 1
@y += 1
increase_steps
elsif passable?(@x, @y, Input::DOWN)
@direction = 2
@y += 1
increase_steps
elsif passable?(@x, @y, Input::RIGHT)
@direction = 6
@x += 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 左上に移動
#--------------------------------------------------------------------------
def move_upper_left
# 向き固定でない場合
unless @direction_fix
# 右向きだった場合は左を、下向きだった場合は上を向く
@direction = 7
end
# 上→左、左→上のどちらかのコースが通行可能な場合
if (passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::LEFT)) or
(passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::UP))
# 座標を更新
@x -= 1
@y -= 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 右上に移動
#--------------------------------------------------------------------------
def move_upper_right
# 向き固定でない場合
unless @direction_fix
# 左向きだった場合は右を、下向きだった場合は上を向く
@direction = 9
end
# 上→右、右→上のどちらかのコースが通行可能な場合
if (passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::RIGHT)) or
(passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::UP))
# 座標を更新
@x += 1
@y -= 1
increase_steps
end
end
attr_writer :move_speed
attr_writer :step_anime
end
#==============================================================================
# ■ Spriteset_Map_Module
#------------------------------------------------------------------------------
# 　
#==============================================================================
module Spriteset_Map_Module
def setup_actor_character_sprites?
return @setup_actor_character_sprites_flag != nil
end
def setup_actor_character_sprites(characters)
if !setup_actor_character_sprites?
index_game_player = 0
@character_sprites.each_index do |i|
if @character_sprites[i].character.instance_of?(Game_Player)
index_game_player = i
break
end
end
for character in characters.reverse
@character_sprites.unshift(
Sprite_Character.new(@viewport1, character)
)
end
@setup_actor_character_sprites_flag = true
end
end
end
#==============================================================================
# ■ Scene_Map_Module
#------------------------------------------------------------------------------
# 　
#==============================================================================
module Scene_Map_Module
def setup_actor_character_sprites(characters)
@spriteset.setup_actor_character_sprites(characters)
end
end
#==============================================================================
# ■ Game_Party_Module
#------------------------------------------------------------------------------
# 　
#==============================================================================
module Game_Party_Module
def return_char(i)
return @characters[i]
end
def set_transparent_actors(transparent)
@transparent = transparent
end
def setup_actor_character_sprites
if @characters == nil
@characters = []
for i in 1 ... TRAIN_ACTOR_SIZE_MAX
@characters.push(Game_Party_Actor.new)
end
end
for i in 1 ... TRAIN_ACTOR_SIZE_MAX
@characters[i - 1].setup(actors[i])
end
if $scene.class.method_defined?('setup_actor_character_sprites')
$scene.setup_actor_character_sprites(@characters)
end
end
def update_party_actors
setup_actor_character_sprites
transparent = $game_player.transparent
if transparent == false
if TRANSPARENT_SWITCH
transparent = $game_switches[TRANSPARENT_SWITCHES_INDEX]
end
end
for character in @characters
character.transparent = transparent
character.move_speed = $game_player.move_speed
character.update
end
end
def moveto_party_actors( x, y )
setup_actor_character_sprites
for character in @characters
character.moveto( x, y )
end
if @move_list == nil
@move_list = []
end
move_list_setup
end
def move_party_actors
if @move_list == nil
@move_list = []
move_list_setup
end
@move_list.each_index do |i|
if @characters[i] != nil
case @move_list[i].type
when Input::DOWN
@characters[i].move_down(@move_list[i].args[0])
when Input::LEFT
@characters[i].move_left(@move_list[i].args[0])
when Input::RIGHT
@characters[i].move_right(@move_list[i].args[0])
when Input::UP
@characters[i].move_up(@move_list[i].args[0])
when DOWN_LEFT
@characters[i].move_lower_left
when DOWN_RIGHT
@characters[i].move_lower_right
when UP_LEFT
@characters[i].move_upper_left
when UP_RIGHT
@characters[i].move_upper_right
when JUMP
@characters[i].jump(@move_list[i].args[0],@move_list[i].args[1])
end
end
end
end
#==============================================================================
# ■ Move_List_Element
#------------------------------------------------------------------------------
# 　
#==============================================================================
class Move_List_Element
def initialize(type,args)
@type = type
@args = args
end
def type()
return @type
end
def args()
return @args
end
end
def move_list_setup
for i in 0 .. TRAIN_ACTOR_SIZE_MAX
@move_list[i] = nil
end
end
def add_move_list(type,*args)
@move_list.unshift(Move_List_Element.new(type,args)).pop
end
def move_down_party_actors(turn_enabled = true)
move_party_actors
add_move_list(Input::DOWN,turn_enabled)
end
def move_left_party_actors(turn_enabled = true)
move_party_actors
add_move_list(Input::LEFT,turn_enabled)
end
def move_right_party_actors(turn_enabled = true)
move_party_actors
add_move_list(Input::RIGHT,turn_enabled)
end
def move_up_party_actors(turn_enabled = true)
move_party_actors
add_move_list(Input::UP,turn_enabled)
end
def move_lower_left_party_actors
move_party_actors
add_move_list(DOWN_LEFT)
end
def move_lower_right_party_actors
move_party_actors
add_move_list(DOWN_RIGHT)
end
def move_upper_left_party_actors
move_party_actors
add_move_list(UP_LEFT)
end
def move_upper_right_party_actors
move_party_actors
add_move_list(UP_RIGHT)
end
def jump_party_actors(x_plus, y_plus)
move_party_actors
add_move_list(JUMP,x_plus, y_plus)
end
end
module Game_Player_Module
def update
$game_party.update_party_actors
super
end
def moveto( x, y )
$game_party.moveto_party_actors( x, y )
super( x, y )
end
def move_down(turn_enabled = true)
if passable?(@x, @y, Input::DOWN)
$game_party.move_down_party_actors(turn_enabled)
#..........................................................................
elsif passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::DOWN) and
can_go?(@x, @y + 1)
@direction = 1
$game_party.move_lower_left_party_actors
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::DOWN) and
can_go?(@x, @y + 1)
@direction = 3
$game_party.move_lower_right_party_actors
increase_steps
#..........................................................................
end
super(turn_enabled)
end
def move_left(turn_enabled = true)
if passable?(@x, @y, Input::LEFT)
$game_party.move_left_party_actors(turn_enabled)
#..........................................................................
elsif passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::LEFT) and
can_go?(@x - 1, @y)
@direction = 7
$game_party.move_upper_left_party_actors
increase_steps
elsif passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::LEFT) and
can_go?(@x - 1, @y)
@direction = 1
$game_party.move_lower_left_party_actors
increase_steps
#..........................................................................
end
super(turn_enabled)
end
def move_right(turn_enabled = true)
if passable?(@x, @y, Input::RIGHT)
$game_party.move_right_party_actors(turn_enabled)
#..........................................................................
elsif passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::RIGHT) and
can_go?(@x + 1, @y)
@direction = 9
$game_party.move_upper_right_party_actors
increase_steps
elsif passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::RIGHT) and
can_go?(@x + 1, @y)
@direction = 3
$game_party.move_lower_right_party_actors
increase_steps
#..........................................................................
end
super(turn_enabled)
end
def move_up(turn_enabled = true)
if passable?(@x, @y, Input::UP)
$game_party.move_up_party_actors(turn_enabled)
#..........................................................................
elsif passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::UP) and
can_go?(@x, @y - 1)
@direction = 7
$game_party.move_upper_left_party_actors
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::UP) and
can_go?(@x, @y - 1)
@direction = 9
$game_party.move_upper_right_party_actors
increase_steps
#..........................................................................
end
super(turn_enabled)
end
def move_lower_left
# 下→左、左→下のどちらかのコースが通行可能な場合
@direction = 1
if (passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::LEFT)) or
(passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::DOWN))
$game_party.move_lower_left_party_actors
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::DOWN) and can_go?(@x - 1, @y + 1)
$game_party.move_down_party_actors
@direction = 2
increase_steps
elsif passable?(@x, @y, Input::LEFT) and can_go?(@x - 1, @y + 1)
$game_party.move_left_party_actors
@direction = 4
increase_steps
#..........................................................................
end
super
end
def move_lower_right
# 下→右、右→下のどちらかのコースが通行可能な場合
@direction = 3
if (passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::RIGHT)) or
(passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::DOWN))
$game_party.move_lower_right_party_actors
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::DOWN) and can_go?(@x + 1, @y + 1)
$game_party.move_down_party_actors
@direction = 2
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and can_go?(@x + 1, @y + 1)
$game_party.move_right_party_actors
@direction = 6
increase_steps
#..........................................................................
end
super
end
def move_upper_left
# 上→左、左→上のどちらかのコースが通行可能な場合
@direction = 7
if (passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::LEFT)) or
(passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::UP))
$game_party.move_upper_left_party_actors
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::UP) and can_go?(@x - 1, @y - 1)
$game_party.move_up_party_actors
@direction = 8
increase_steps
elsif passable?(@x, @y, Input::LEFT) and can_go?(@x - 1, @y - 1)
$game_party.move_left_party_actors
@direction = 4
increase_steps
#..........................................................................
end
super
end
def move_upper_right
# 上→右、右→上のどちらかのコースが通行可能な場合
@direction = 9
if (passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::RIGHT)) or
(passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::UP))
$game_party.move_upper_right_party_actors
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::UP) and can_go?(@x + 1, @y - 1)
$game_party.move_up_party_actors
@direction = 8
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and can_go?(@x + 1, @y - 1)
$game_party.move_right_party_actors
@direction = 6
increase_steps
#..........................................................................
end
super
end
def jump(x_plus, y_plus)
# 新しい座標を計算
new_x = @x + x_plus
new_y = @y + y_plus
# 加算値が (0,0) の場合か、ジャンプ先が通行可能な場合
if (x_plus == 0 and y_plus == 0) or passable?(new_x, new_y, 0)
$game_party.jump_party_actors(x_plus, y_plus)
end
super(x_plus, y_plus)
end
attr_reader :move_speed
attr_reader :step_anime
end
end # module Train_Actor
#==============================================================================
# ■ Game_Party
#------------------------------------------------------------------------------
# 　
#==============================================================================
class Game_Party
include Train_Actor::Game_Party_Module
end
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　
#==============================================================================
class Game_Player
include Train_Actor::Game_Player_Module
end
#==============================================================================
# ■ Spriteset_Map
#------------------------------------------------------------------------------
# 　
#==============================================================================
class Spriteset_Map
include Train_Actor::Spriteset_Map_Module
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　
#==============================================================================
class Scene_Map
include Train_Actor::Scene_Map_Module
end

复制代码

case @character.direction
when 2
sy = 0 * @ch
when 4
sy = 1 * @ch
when 6
sy = 2 * @ch
when 8
sy = 3 * @ch
when 1
sy = 4 * @ch
when 3
sy = 5 * @ch
when 7
sy = 6 * @ch
when 9
sy = 7 * @ch
end

复制代码

###########################################################################################################################
# 脚本功能：八方向走与多帧移动之图片修正 + 人物跟随。
# 更新日期：2005年8月6日
# 更新内容：增加斜方向触发，增加斜方向面向角色(1步之内)
# 使用方法：将本脚本插入到main之前。如果你使用了雅土版的八方向走脚本，请确保这个脚本的顺序位置，在雅土八方向走脚本的后面。
# 预先处理：请输入每一步的帧数和总共可用的方向数
$c3_每一步的帧数 = 8
$c3_总共可用的方向数 = 8 #——建议不要修改这个。如果要伪8方向的，就用伪的好了。
# 图片处理与功能说明：
# 1、每一步的帧数：
# 众所周知，RMXP的移动行走图是一个方向共有4帧，很多人都觉得这个帧数有点少。
# 使用这个脚本之后，只要将 $c3_每一步的帧数这个变量设置一个需要的帧数即可修改
# 单方向移动帧数为相应输入值。修改后，需要用photoshop将所有用到的素材的横排
# 调整为相应帧数，比如输入了8则要将每一行设置8个图像(即每一个行走图有8列)。
# 2、可用方向调整(可用数量：4、8)：
# 当为4方向时没有任何变化，还是一个图4行，上左右下4个方向。
# 如果想使用8方向走，将需要八方向行走的行走图在延伸扩大的画布中按照左下、右下、左上、右上继续排布图像。
# 即，行走图图片从上到下的面向排列顺序为：下，左，右，上，左下，右下，左上，右上。
# 至于不需要8方向走的普通的NPC(character)，使用photoshop将画布向下扩大一倍即可使用。
# 需要注意的是，如果需要斜方向飞鸟，请不要忘记自制素材。
# 特别提示：
# 使用本脚本前请先考虑清楚是否要做这种效果。因为使用本脚本后需要用photoshop处理character行走图素材
# 虽然这种处理用photoshop定义动作只需要5分钟即可全部完成，但在制作阶段会感觉不是很爽(具体的用了才知道)
# 作者的建议是，如果你没有足够的制作经验，使用这个脚本得不偿失。请确保自己的能力属于“高手”级别！
# 附赠功能：
# 可以让NPC角色随机8方向走，方法是：NPC角色移动路线为“自定义”，然后自定义里面使用脚本，输入c8即可
# 可以让NPC角色随机4斜角方向走，方法是：NPC角色移动路线为“自定义”，然后自定义里面使用脚本，输入c4即可
# 可以使用真·斜4方向行走，参考脚本53行开始
# 作者：carol3
###########################################################################################################################
###########################################################################################################################
class Game_Character
def event_is_in?(x, y)
for event in $game_map.events.values
# 事件坐标与目标一致的情况下
if event.x == x and event.y == y
# 跳跃中以外的情况下、启动判定是同位置的事件
return true
end
end
return false
end
def player_is_in?(x, y)
if $game_player.x == x and $game_player.y == y
return true
end
return false
end
def can_go?(x, y)
if player_is_in?(x, y) or event_is_in?(x, y)
return false
else
return true
end
end
#--------------------------------------------------------------------------
# ● 向下移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_down(turn_enabled = true)
# 面向下
if turn_enabled
turn_down
end
# 可以通行的场合
if passable?(@x, @y, 2)
# 面向下
turn_down
# 更新坐标
@y += 1
# 增加步数
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::DOWN) and
can_go?(@x, @y + 1)
unless @direction_fix
@direction = 1
end
@x -= 1
@y += 1
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::DOWN) and
can_go?(@x, @y + 1)
unless @direction_fix
@direction = 3
end
@x += 1
@y += 1
increase_steps
#..........................................................................
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x, @y+1)
end
end
#--------------------------------------------------------------------------
# ● 向左移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_left(turn_enabled = true)
# 面向左
if turn_enabled
turn_left
end
# 可以通行的情况下
if passable?(@x, @y, 4)
# 面向左
turn_left
# 更新坐标
@x -= 1
# 增加步数
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::LEFT) and
can_go?(@x - 1, @y)
unless @direction_fix
@direction = 7
end
@x -= 1
@y -= 1
increase_steps
elsif passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::LEFT) and
can_go?(@x - 1, @y)
unless @direction_fix
@direction = 1
end
@x -= 1
@y += 1
increase_steps
#..........................................................................
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x-1, @y)
end
end
#--------------------------------------------------------------------------
# ● 向右移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_right(turn_enabled = true)
# 面向右
if turn_enabled
turn_right
end
# 可以通行的场合
if passable?(@x, @y, 6)
# 面向右
turn_right
# 更新坐标
@x += 1
# 增加部数
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::UP) and passable?(@x, @y - 1, Input::RIGHT) and
can_go?(@x + 1, @y)
unless @direction_fix
@direction = 9
end
@x += 1
@y -= 1
increase_steps
elsif passable?(@x, @y, Input::DOWN) and passable?(@x, @y + 1, Input::RIGHT) and
can_go?(@x + 1, @y)
unless @direction_fix
@direction = 3
end
@x += 1
@y += 1
increase_steps
#..........................................................................
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x+1, @y)
end
end
#--------------------------------------------------------------------------
# ● 向上移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_up(turn_enabled = true)
# 面向上
if turn_enabled
turn_up
end
# 可以通行的情况下
if passable?(@x, @y, 8)
# 面向上
turn_up
# 更新坐标
@y -= 1
# 歩数増加
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::LEFT) and passable?(@x - 1, @y, Input::UP) and
can_go?(@x, @y - 1)
unless @direction_fix
@direction = 7
end
@x -= 1
@y -= 1
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and passable?(@x + 1, @y, Input::UP) and
can_go?(@x, @y - 1)
unless @direction_fix
@direction = 9
end
@x += 1
@y -= 1
increase_steps
#..........................................................................
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x, @y-1)
end
end
#--------------------------------------------------------------------------
# ● 向左下移动
#--------------------------------------------------------------------------
def move_lower_left
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
end
# 下→左、左→下的通道可以通行的情况下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 2))
# 更新坐标
@x -= 1
@y += 1
# 增加步数
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::DOWN) and can_go?(@x - 1, @y + 1)
unless @direction_fix
@direction = 2
end
@y += 1
increase_steps
elsif passable?(@x, @y, Input::LEFT) and can_go?(@x - 1, @y + 1)
unless @direction_fix
@direction = 4
end
@x -= 1
increase_steps
#..........................................................................
end
end
#--------------------------------------------------------------------------
# ● 向右下移动
#--------------------------------------------------------------------------
def move_lower_right
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
# 下→右、右→下的通道可以通行的情况下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 2))
# 更新坐标
@x += 1
@y += 1
# 增加步数
increase_steps
elsif passable?(@x, @y, Input::DOWN) and can_go?(@x + 1, @y + 1)
unless @direction_fix
@direction = 2
end
@y += 1
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and can_go?(@x + 1, @y + 1)
unless @direction_fix
@direction = 6
end
@x += 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 向左上移动
#--------------------------------------------------------------------------
def move_upper_left
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
end
# 上→左、左→上的通道可以通行的情况下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 8))
# 更新坐标
@x -= 1
@y -= 1
# 增加步数
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::UP) and can_go?(@x - 1, @y - 1)
unless @direction_fix
@direction = 8
end
@y -= 1
increase_steps
elsif passable?(@x, @y, Input::LEFT) and can_go?(@x - 1, @y - 1)
unless @direction_fix
@direction = 4
end
@x -= 1
increase_steps
#..........................................................................
end
end
#--------------------------------------------------------------------------
# ● 向右上移动
#--------------------------------------------------------------------------
def move_upper_right
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
end
# 上→右、右→上的通道可以通行的情况下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 8))
# 更新坐标
@x += 1
@y -= 1
# 增加步数
increase_steps
#..........................................................................
elsif passable?(@x, @y, Input::UP) and can_go?(@x + 1, @y - 1)
unless @direction_fix
@direction = 8
end
@y -= 1
increase_steps
elsif passable?(@x, @y, Input::RIGHT) and can_go?(@x + 1, @y - 1)
unless @direction_fix
@direction = 6
end
@x += 1
increase_steps
#..........................................................................
end
end
end
class Game_Player < Game_Character
if $c3_总共可用的方向数 == 8
def update
last_moving = moving?
unless moving? or $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing
# 用井号后面的东西替代前面的，就可以实现斜4方向走
case Input.dir8
when 2
move_down #move_lower_left
when 4
move_left #move_upper_left
when 6
move_right #move_lower_right
when 8
move_up #move_upper_right
when 1
move_lower_left
when 3
move_lower_right
when 7
move_upper_left
when 9
move_upper_right
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
# 调试模式为 ON 并且按下 CTRL 键的情况下除外
unless $DEBUG and Input.press?(Input::CTRL)
# 遇敌计数下降
if @encounter_count > 0
@encounter_count -= 1
end
end
end
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 判定为同位置以及正面的事件启动
check_event_trigger_here([0])
check_event_trigger_there([0,1,2])
end
end
end
#--------------------------------------------------------------------------
# ● 正面事件的启动判定
#--------------------------------------------------------------------------
def check_event_trigger_there(triggers)
result = false
# 事件执行中的情况下
if $game_system.map_interpreter.running?
return result
end
# 计算正面坐标
new_x = @x
new_y = @y
case @direction
when 1
new_x -= 1
new_y += 1
when 2
new_y += 1
when 3
new_x += 1
new_y += 1
when 4
new_x -= 1
when 6
new_x += 1
when 7
new_x -= 1
new_y -= 1
when 8
new_y -= 1
when 9
new_x += 1
new_y -= 1
end
# 全部事件的循环
for event in $game_map.events.values
# 事件坐标与目标一致的情况下
if event.x == new_x and event.y == new_y and
triggers.include?(event.trigger)
# 跳跃中以外的情况下、启动判定是正面的事件
if not event.jumping? and not event.over_trigger?
event.start
result = true
end
end
end
# 找不到符合条件的事件的情况下
if result == false
# 正面的元件是计数器的情况下
if $game_map.counter?(new_x, new_y)
# 计算 1 元件里侧的坐标
new_x += (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
new_y += (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
# 全事件的循环
for event in $game_map.events.values
# 事件坐标与目标一致的情况下
if event.x == new_x and event.y == new_y and
triggers.include?(event.trigger)
# 跳跃中以外的情况下、启动判定是正面的事件
if not event.jumping? and not event.over_trigger?
event.start
result = true
end
end
end
end
end
return result
end
end
end
class Sprite_Character < RPG::Sprite
def update
super
# 元件 ID、文件名、色相与现在的情况存在差异的情况下
if @tile_id != @character.tile_id or
@character_name != @character.character_name or
@character_hue != @character.character_hue
# 记忆元件 ID 与文件名、色相
@tile_id = @character.tile_id
@character_name = @character.character_name
@character_hue = @character.character_hue
# 元件 ID 为有效值的情况下
if @tile_id >= 384
self.bitmap = RPG::Cache.tile($game_map.tileset_name,
@tile_id, @character.character_hue)
self.src_rect.set(0, 0, 32, 32)
self.ox = 16
self.oy = 32
# 元件 ID 为无效值的情况下
else
self.bitmap = RPG::Cache.character(@character.character_name,
@character.character_hue)
@cw = bitmap.width / $c3_每一步的帧数
if $c3_总共可用的方向数==4
@ch = bitmap.height / 4
else
@ch = bitmap.height / 8
end
self.ox = @cw / 2
self.oy = @ch
end
end
# 设置可视状态
self.visible = (not @character.transparent)
# 图形是角色的情况下
if @tile_id == 0
# 设置传送目标的矩形
sx = @character.pattern * @cw
if $c3_总共可用的方向数==8
case @character.direction
when 2
sy = 0 * @ch
when 4
sy = 1 * @ch
when 6
sy = 2 * @ch
when 8
sy = 3 * @ch
when 1
sy = 4 * @ch
when 3
sy = 5 * @ch
when 7
sy = 6 * @ch
when 9
sy = 7 * @ch
end
else
sy = (@character.direction - 2) / 2 * @ch
end
self.src_rect.set(sx, sy, @cw, @ch)
end
# 设置脚本的坐标
self.x = @character.screen_x
self.y = @character.screen_y
self.z = @character.screen_z(@ch)
# 设置不透明度、合成方式、茂密
self.opacity = @character.opacity
self.blend_type = @character.blend_type
self.bush_depth = @character.bush_depth
# 动画
if @character.animation_id != 0
animation = $data_animations[@character.animation_id]
animation(animation, true)
@character.animation_id = 0
end
#####################################################################
#id = $game_map.map_id
#name = $data_mapinfos[id].name
#if name.include?("★")
# rage = name.split(/★/)[1]
# min_rate = rage.split(/~/)[0].to_f
# max_rate = rage.split(/~/)[1].to_f
# rate = min_rate + (@character.y.to_f / $game_map.height.to_f * (max_rate - min_rate))
# self.zoom_x = self.zoom_y = rate
# if @character.character_name.include?("★★")
# self.zoom_x = self.zoom_y = 1
# end
#end
####################################################################
end
end
class Game_Character
def c8
# 随机 0～5 的分支
case rand(10)
when 0..3 # 随机
move_random
when 4 # 前进一步
move_forward
when 5 # 暂时停止
@stop_count = 0
when 6..9 #另外4方向随机
c4
end
end
def c4
case rand(5)
when 0
move_upper_left
@direction = 7
when 1
move_upper_right
@direction = 9
when 2
move_lower_left
@direction = 1
when 3
move_lower_right
@direction = 3
when 4
@stop_count = 0
end
end
def update
# 跳跃中、移动中、停止中的分支
if jumping?
update_jump
elsif moving?
update_move
else
update_stop
end
# 动画计数超过最大值的情况下
# ※最大值等于基本值减去移动速度 * 1 的值
if @anime_count > 16 * 4/$c3_每一步的帧数 - @move_speed * 2
# 停止动画为 OFF 并且在停止中的情况下
if not @step_anime and @stop_count > 0
# 还原为原来的图形
@pattern = @original_pattern
# 停止动画为 ON 并且在移动中的情况下
else
# 更新图形
@pattern = (@pattern + 1) % $c3_每一步的帧数
end
# 清除动画计数
@anime_count = 0
end
# 等待中的情况下
if @wait_count > 0
# 减少等待计数
@wait_count -= 1
return
end
# 强制移动路线的场合
if @move_route_forcing
# 自定义移动
move_type_custom
return
end
# 事件执行待机中并且为锁定状态的情况下
if @starting or lock?
# 不做规则移动
return
end
# 如果停止计数超过了一定的值(由移动频度算出)
if @stop_count > (40 - @move_frequency * 2) * (6 - @move_frequency)
# 移动类型分支
case @move_type
when 1 # 随机
move_type_random
when 2 # 接近
move_type_toward_player
when 3 # 自定义
move_type_custom
end
end
end
end
class Window_Base < Window
def draw_actor_graphic(actor, x, y)
bitmap = RPG::Cache.character(actor.character_name, actor.character_hue)
cw = bitmap.width / $c3_每一步的帧数
ch = bitmap.height / $c3_总共可用的方向数
src_rect = Rect.new(0, 0, cw, ch)
self.contents.blt(x - cw / 2, y - ch, bitmap, src_rect)
end
end
class Game_Character
#--------------------------------------------------------------------------
# ● 面向主角的方向
#--------------------------------------------------------------------------
def turn_toward_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等的场合下
if sx == 0 and sy == 0
return
end
# 横侧距离长的情况下
if sx.abs > sy.abs
# 将左右方向变更为朝向主角的方向
sx > 0 ? turn_left : turn_right
# 竖侧距离长的情况下
else
# 将上下方向变更为朝向主角的方向
sy > 0 ? turn_up : turn_down
end
if sx == -1 and sy == -1
unless @direction_fix
@direction = 3
end
@stop_count = 0
elsif sx == -1 and sy == 1
unless @direction_fix
@direction = 9
end
@stop_count = 0
elsif sx == 1 and sy == -1
unless @direction_fix
@direction = 1
end
@stop_count = 0
elsif sx == 1 and sy == 1
unless @direction_fix
@direction = 7
end
@stop_count = 0
end
end
end
#==============================================================================
#==============================================================================

复制代码