Project1

标题: 伪八方向脚本怎样配合八方向鼠标寻路 [打印本页]
作者: qq295268654    时间: 2010-11-26 12:10
标题: 伪八方向脚本怎样配合八方向鼠标寻路
  1. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
  2. #_/    ◆ ダッシュ＆８方向移動 - KGC_Dash_8DirMove ◆
  3. #_/    ◇ Last update : 2007/04/28 ◇
  4. #_/----------------------------------------------------------------------------
  5. #_/  マップ移動時のダッシュ＆８方向移動機能を追加します。
  6. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

  8. #==============================================================================
  9. # ★ カスタマイズ項目 ★
  10. #==============================================================================

  12. module KGC
  13.   # ◆ダッシュボタン
  14.   D8DM_DASH_BUTTON = Input::R
  15.   # ◆ダッシュ速度
  16.   D8DM_DASH_SPEED = 4
  17.   # ◆歩行速度
  18.   D8DM_WALK_SPEED = 4
  19. end

  21. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  23. $imported = {} if $imported == nil
  24. $imported["Dash_8DirMove"] = true

  26. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  28. module Dash
  29.   #--------------------------------------------------------------------------
  30.   # ● 一時ダッシュ速度指定
  31.   #--------------------------------------------------------------------------
  32.   def self.dash_speed=(value)
  33.     $game_system.temp_dash_speed = value
  34.   end
  35.   #--------------------------------------------------------------------------
  36.   # ● 一時歩行速度指定
  37.   #--------------------------------------------------------------------------
  38.   def self.walk_speed=(value)
  39.     $game_system.temp_walk_speed = value
  40.   end
  41.   #--------------------------------------------------------------------------
  42.   # ● 一時ダッシュ/歩行速度設定を解除
  43.   #--------------------------------------------------------------------------
  44.   def self.reset_speed
  45.     $game_system.temp_dash_speed = nil
  46.     $game_system.temp_walk_speed = nil
  47.   end
  48. end

  50. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  52. #==============================================================================
  53. # ■ Game_System
  54. #==============================================================================

  56. class Game_System
  57.   #--------------------------------------------------------------------------
  58.   # ● 公開インスタンス変数
  59.   #--------------------------------------------------------------------------
  60.   attr_accessor :dash_permit              # ダッシュ許可フラグ
  61.   attr_accessor :dir8_permit              # ８方向移動許可フラグ
  62.   attr_accessor :temp_dash_speed          # ダッシュ速度(一時)
  63.   attr_accessor :temp_walk_speed          # 歩行速度(一時)
  64.   #--------------------------------------------------------------------------
  65.   # ● オブジェクト初期化
  66.   #--------------------------------------------------------------------------
  67.   alias initialize_KGC_Dash_8DirMove initialize
  68.   def initialize
  69.     initialize_KGC_Dash_8DirMove

  71.     @dash_permit = true
  72.     @dir8_permit = true
  73.     @temp_dash_speed = nil
  74.     @temp_walk_speed = nil
  75.   end
  76. end

  78. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  80. #==============================================================================
  81. # ■ Game_Player
  82. #==============================================================================

  84. class Game_Player < Game_Character
  85.   #--------------------------------------------------------------------------
  86.   # ● フレーム更新
  87.   #--------------------------------------------------------------------------
  88.   def update
  89.     # ローカル変数に移動中かどうかを記憶
  90.     last_moving = moving?
  91.     # 移動中、イベント実行中、移動ルート強制中、
  92.     # メッセージウィンドウ表示中のいずれでもない場合
  93.     unless moving? or $game_system.map_interpreter.running? or
  94.            @move_route_forcing or $game_temp.message_window_showing
  95.       # 向きを保存
  96.       direction = @direction
  97.       # 方向ボタンが押されていれば、その方向へプレイヤーを移動
  98.       if $game_system.dir8_permit
  99.         case Input.dir8
  100.         when 1  # 左下
  101.           move_left
  102.           move_down
  103.           # 向き固定でない場合
  104.           unless @direction_fix
  105.             # 右向きだった場合は左を、上向きだった場合は下を向く
  106.             @direction = (direction == 6 ? 4 : direction == 8 ? 2 : direction)
  107.           end
  108.         when 2  # 下
  109.           move_down
  110.         when 3  # 右下
  111.           move_down
  112.           move_right
  113.           # 向き固定でない場合
  114.           unless @direction_fix
  115.             # 左向きだった場合は右を、上向きだった場合は下を向く
  116.             @direction = (direction == 4 ? 6 : direction == 8 ? 2 : direction)
  117.           end
  118.         when 4  # 左
  119.           move_left
  120.         when 6  # 右
  121.           move_right
  122.         when 7  # 左上
  123.           move_up
  124.           move_left
  125.           # 向き固定でない場合
  126.           unless @direction_fix
  127.             # 右向きだった場合は左を、下向きだった場合は上を向く
  128.             @direction = (direction == 6 ? 4 : direction == 2 ? 8 : direction)
  129.           end
  130.         when 8  # 上
  131.           move_up
  132.         when 9  # 右上
  133.           move_right
  134.           move_up
  135.           # 向き固定でない場合
  136.           unless @direction_fix
  137.             # 左向きだった場合は右を、下向きだった場合は上を向く
  138.             @direction = (direction == 4 ? 6 : direction == 2 ? 8 : direction)
  139.           end
  140.         end
  141.       else
  142.         case Input.dir4
  143.         when 2
  144.           move_down
  145.         when 4
  146.           move_left
  147.         when 6
  148.           move_right
  149.         when 8
  150.           move_up
  151.         end
  152.       end

  154.       # 歩行速度調整
  155.       if $game_system.dash_permit && Input.press?(KGC::D8DM_DASH_BUTTON)
  156.         if $game_system.temp_dash_speed == nil
  157.           @move_speed = KGC::D8DM_DASH_SPEED
  158.         else
  159.           @move_speed = $game_system.temp_dash_speed
  160.         end
  161.       else
  162.         if $game_system.temp_walk_speed == nil
  163.           @move_speed = KGC::D8DM_WALK_SPEED
  164.         else
  165.           @move_speed = $game_system.temp_walk_speed
  166.         end
  167.       end
  168.     end
  169.     # ローカル変数に座標を記憶
  170.     last_real_x = @real_x
  171.     last_real_y = @real_y
  172.     super
  173.     # キャラクターが下に移動し、かつ画面上の位置が中央より下の場合
  174.     if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
  175.       # マップを下にスクロール
  176.       $game_map.scroll_down(@real_y - last_real_y)
  177.     end
  178.     # キャラクターが左に移動し、かつ画面上の位置が中央より左の場合
  179.     if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
  180.       # マップを左にスクロール
  181.       $game_map.scroll_left(last_real_x - @real_x)
  182.     end
  183.     # キャラクターが右に移動し、かつ画面上の位置が中央より右の場合
  184.     if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
  185.       # マップを右にスクロール
  186.       $game_map.scroll_right(@real_x - last_real_x)
  187.     end
  188.     # キャラクターが上に移動し、かつ画面上の位置が中央より上の場合
  189.     if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
  190.       # マップを上にスクロール
  191.       $game_map.scroll_up(last_real_y - @real_y)
  192.     end
  193.     # 移動中ではない場合
  194.     unless moving?
  195.       # 前回プレイヤーが移動中だった場合
  196.       if last_moving
  197.         # 同位置のイベントとの接触によるイベント起動判定
  198.         result = check_event_trigger_here([1,2])
  199.         # 起動したイベントがない場合
  200.         if result == false
  201.           # デバッグモードが ON かつ CTRL キーが押されている場合を除き
  202.           unless $DEBUG and Input.press?(Input::CTRL)
  203.             # エンカウント カウントダウン
  204.             if @encounter_count > 0
  205.               @encounter_count -= 1
  206.             end
  207.           end
  208.         end
  209.       end
  210.       # C ボタンが押された場合
  211.       if Input.trigger?(Input::C)
  212.         # 同位置および正面のイベント起動判定
  213.         check_event_trigger_here([0])
  214.         check_event_trigger_there([0,1,2])
  215.       end
  216.     end
  217.   end
  218. end
复制代码
我用了伪八方向脚本，请问怎样配合八方向鼠标寻路脚本，还有，貌似连鼠标响应都用不了了，如何解决



欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1