Project1

标题: VX可以八方向行走吗？ [打印本页]
作者: ROMB板    时间: 2012-5-9 20:52
标题: VX可以八方向行走吗？
随便问问dsu_plus_rewardpost_czw
作者: lsu666666    时间: 2012-5-9 20:54
本帖最后由 lsu666666 于 2012-5-9 20:56 编辑

伪 . 八方向行走  VX
http://rpg.blue/thread-201049-1-1.html

以下為真八方向腳本
  1. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
  2. #_/    ◆ ８方向移動 - KGC_Dash_8DirMove ◆ VX ◆
  3. #_/    ◇ Last update : 2008/11/16 ◇
  4. #_/----------------------------------------------------------------------------
  5. #_/  ダッシュ速度の調整や、8方向移動機能を追加します。
  6. #_/============================================================================
  7. #_/ 【マップ】≪タイルセット拡張≫ より下に導入してください。
  8. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

  10. #==============================================================================
  11. # ★ カスタマイズ項目 - Customize ★
  12. #==============================================================================

  14. module KGC
  15. module Dash_8DirMove
  16.   # ◆ 8方向移動を有効にする
  17.   #  true  : 斜め移動可
  18.   #  false : 4方向のみ
  19.   ENABLE_8DIR           = false
  20.   # ◆ 歩行アニメを8方向対応にする
  21.   ENABLE_8DIR_ANIMATION = true

  23.   # ◆ 歩行速度 (デフォルト)
  24.   #  ニューゲームから始めた場合のみ有効。
  25.   #  イベントで速度を変更した場合、そちらを優先。
  26.   DEFAULT_WALK_SPEED = 5
  27.   # ◆ ダッシュ速度倍率
  28.   #  小数も指定可能。
  29.   #  0.5 などにすれば、ダッシュボタンで歩行も可。
  30.   DASH_SPEED_RATE    = 0.6
  31. end
  32. end

  34. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  36. $imported = {} if $imported == nil
  37. $imported["Dash_8DirMove"] = true

  39. module KGC::Dash_8DirMove
  40.   # 斜め画像の接尾辞
  41.   SLANT_SUFFIX = "#"
  42. end

  44. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  46. #==============================================================================
  47. # □ KGC::Commands
  48. #==============================================================================

  50. module KGC
  51. module Commands
  52.   module_function
  53.   #--------------------------------------------------------------------------
  54.   # ○ 歩行速度のリセット
  55.   #--------------------------------------------------------------------------
  56.   def reset_walk_speed
  57.     $game_player.reset_move_speed
  58.   end
  59. end
  60. end

  62. class Game_Interpreter
  63.   include KGC::Commands
  64. end

  66. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  68. #==============================================================================
  69. # ■ Game_Party
  70. #==============================================================================

  72. class Game_Party < Game_Unit
  73.   #--------------------------------------------------------------------------
  74.   # ○ 歩数減少
  75.   #--------------------------------------------------------------------------
  76.   def decrease_steps
  77.     @steps -= 1
  78.   end
  79. end

  81. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  83. #==============================================================================
  84. # ■ Game_Character
  85. #==============================================================================

  87. class Game_Character
  88.   #--------------------------------------------------------------------------
  89.   # ○ 向き (8方向用)
  90.   #--------------------------------------------------------------------------
  91.   def direction_8dir
  92.     return @direction
  93.   end
  94.   #--------------------------------------------------------------------------
  95.   # ● 指定方向に向き変更
  96.   #     direction : 向き
  97.   #--------------------------------------------------------------------------
  98.   alias set_direction_KGC_Dash_8DirMove set_direction
  99.   def set_direction(direction)
  100.     last_dir = @direction

  102.     set_direction_KGC_Dash_8DirMove(direction)

  104.     if !@direction_fix && direction != 0
  105.       @direction_8dir = direction
  106.     end
  107.   end
  108.   #--------------------------------------------------------------------------
  109.   # ● 左下に移動
  110.   #--------------------------------------------------------------------------
  111.   alias move_lower_left_KGC_Dash_8DirMove move_lower_left
  112.   def move_lower_left
  113.     move_lower_left_KGC_Dash_8DirMove

  115.     @direction_8dir = 1 unless @direction_fix
  116.   end
  117.   #--------------------------------------------------------------------------
  118.   # ● 右下に移動
  119.   #--------------------------------------------------------------------------
  120.   alias move_lower_right_KGC_Dash_8DirMove move_lower_right
  121.   def move_lower_right
  122.     move_lower_right_KGC_Dash_8DirMove

  124.     @direction_8dir = 3 unless @direction_fix
  125.   end
  126.   #--------------------------------------------------------------------------
  127.   # ● 左上に移動
  128.   #--------------------------------------------------------------------------
  129.   alias move_upper_left_KGC_Dash_8DirMove move_upper_left
  130.   def move_upper_left
  131.     move_upper_left_KGC_Dash_8DirMove

  133.     @direction_8dir = 7 unless @direction_fix
  134.   end
  135.   #--------------------------------------------------------------------------
  136.   # ● 右上に移動
  137.   #--------------------------------------------------------------------------
  138.   alias move_upper_right_KGC_Dash_8DirMove move_upper_right
  139.   def move_upper_right
  140.     move_upper_right_KGC_Dash_8DirMove

  142.     @direction_8dir = 9 unless @direction_fix
  143.   end
  144. end

  146. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  148. #==============================================================================
  149. # ■ Game_Player
  150. #==============================================================================

  152. class Game_Player < Game_Character
  153.   #--------------------------------------------------------------------------
  154.   # ● オブジェクト初期化
  155.   #--------------------------------------------------------------------------
  156.   alias initialize_KGC_Dash_8DirMove initialize
  157.   def initialize
  158.     initialize_KGC_Dash_8DirMove

  160.     reset_move_speed
  161.   end
  162.   #--------------------------------------------------------------------------
  163.   # ○ 向き (8方向用)
  164.   #--------------------------------------------------------------------------
  165.   def direction_8dir
  166.     @direction_8dir = @direction if @direction_8dir == nil
  167.     return @direction_8dir
  168.   end
  169.   #--------------------------------------------------------------------------
  170.   # ○ 移動速度のリセット
  171.   #--------------------------------------------------------------------------
  172.   def reset_move_speed
  173.     @move_speed = KGC::Dash_8DirMove::DEFAULT_WALK_SPEED
  174.   end

  176. if KGC::Dash_8DirMove::ENABLE_8DIR
  177.   #--------------------------------------------------------------------------
  178.   # ● 方向ボタン入力による移動処理
  179.   #--------------------------------------------------------------------------
  180.   def move_by_input
  181.     return unless movable?
  182.     return if $game_map.interpreter.running?

  184.     # 予約済みの追加移動を実行
  185.     if @reserved_move != nil
  186.       case @reserved_move
  187.       when :down
  188.         move_down if passable_l?(2)
  189.       when :left
  190.         move_left if passable_l?(4)
  191.       when :right
  192.         move_right if passable_l?(6)
  193.       when :up
  194.         move_up if passable_l?(8)
  195.       end
  196.       @reserved_move = nil
  197.       return
  198.     end

  200.     last_steps = $game_party.steps

  202.     case Input.dir8
  203.     when 1
  204.       if !passable_l?(2) && passable_l?(4)
  205.         # 左だけ
  206.         move_left
  207.         @reserved_move = :down
  208.       elsif passable_l?(2) && !passable_l?(4)
  209.         # 下だけ
  210.         move_down
  211.         @reserved_move = :left
  212.       elsif passable_l?(2)
  213.         # 下に優先的に移動
  214.         move_down
  215.         move_left
  216.       end
  217.       @direction = 2
  218.     when 2
  219.       move_down
  220.     when 3
  221.       if !passable_l?(2) && passable_l?(6)
  222.         # 右だけ
  223.         move_right
  224.         @reserved_move = :down
  225.       elsif passable_l?(2) && !passable_l?(6)
  226.         # 下だけ
  227.         move_down
  228.         @reserved_move = :right
  229.       elsif passable_l?(2)
  230.         # 下に優先的に移動
  231.         move_down
  232.         move_right
  233.       end
  234.       @direction = 6
  235.     when 4
  236.       move_left
  237.     when 6
  238.       move_right
  239.     when 7
  240.       if !passable_l?(8) && passable_l?(4)
  241.         # 左だけ
  242.         move_left
  243.         @reserved_move = :up
  244.       elsif passable_l?(8) && !passable_l?(4)
  245.         # 上だけ
  246.         move_up
  247.         @reserved_move = :left
  248.       elsif passable_l?(8)
  249.         # 上に優先的に移動
  250.         move_up
  251.         move_left
  252.       end
  253.       @direction = 4
  254.     when 8
  255.       move_up
  256.     when 9
  257.       if !passable_l?(8) && passable_l?(6)
  258.         # 右だけ
  259.         move_right
  260.         @reserved_move = :up
  261.       elsif passable_l?(8) && !passable_l?(6)
  262.         # 上だけ
  263.         move_up
  264.         @reserved_move = :right
  265.       elsif passable_l?(8)
  266.         # 上に優先的に移動
  267.         move_up
  268.         move_right
  269.       end
  270.       @direction = 8
  271.     else
  272.       return
  273.     end
  274.     @direction_8dir = Input.dir8

  276.     # ２歩進んでいたら１歩戻す
  277.     if $game_party.steps - last_steps == 2
  278.       $game_party.decrease_steps
  279.     end
  280.   end
  281.   #--------------------------------------------------------------------------
  282.   # ○ 簡易移動可否判定
  283.   #     d : 移動方向
  284.   #--------------------------------------------------------------------------
  285.   def passable_l?(d)
  286.     if $imported["TilesetExtension"]
  287.       return passable?(@x, @y, d)
  288.     else
  289.       case d
  290.       when 1
  291.         return passable?(@x-1, @y+1)
  292.       when 2
  293.         return passable?(@x, @y+1)
  294.       when 3
  295.         return passable?(@x+1, @y+1)
  296.       when 4
  297.         return passable?(@x-1, @y)
  298.       when 6
  299.         return passable?(@x+1, @y)
  300.       when 7
  301.         return passable?(@x-1, @y-1)
  302.       when 8
  303.         return passable?(@x, @y-1)
  304.       when 9
  305.         return passable?(@x+1, @y-1)
  306.       end
  307.     end
  308.     return false
  309.   end
  310. end  # ENABLE_8DIR

  312.   #--------------------------------------------------------------------------
  313.   # ● 移動時の更新
  314.   #--------------------------------------------------------------------------
  315.   def update_move
  316.     distance = 2 ** @move_speed   # 移動速度から移動距離に変換
  317.     if dash?                      # ダッシュ状態なら速度変更
  318.       distance *= KGC::Dash_8DirMove::DASH_SPEED_RATE
  319.     end
  320.     distance = Integer(distance)

  322.     @real_x = [@real_x - distance, @x * 256].max if @x * 256 < @real_x
  323.     @real_x = [@real_x + distance, @x * 256].min if @x * 256 > @real_x
  324.     @real_y = [@real_y - distance, @y * 256].max if @y * 256 < @real_y
  325.     @real_y = [@real_y + distance, @y * 256].min if @y * 256 > @real_y
  326.     update_bush_depth unless moving?
  327.     if @walk_anime
  328.       @anime_count += 1.5
  329.     elsif @step_anime
  330.       @anime_count += 1
  331.     end
  332.   end
  333. end

  335. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

  337. #==============================================================================
  338. # ■ Sprite_Character
  339. #==============================================================================

  341. if KGC::Dash_8DirMove::ENABLE_8DIR_ANIMATION

  343. class Sprite_Character < Sprite_Base
  344.   #--------------------------------------------------------------------------
  345.   # ○ 定数
  346.   #--------------------------------------------------------------------------
  347.   SLANT_ANIME_TABLE = { 1=>2, 3=>6, 7=>4, 9=>8 }
  348.   #--------------------------------------------------------------------------
  349.   # ● 転送元ビットマップの更新
  350.   #--------------------------------------------------------------------------
  351.   alias update_bitmap_KGC_Dash_8DirMove update_bitmap
  352.   def update_bitmap
  353.     name_changed = (@character_name != @character.character_name)

  355.     update_bitmap_KGC_Dash_8DirMove

  357.     if @tile_id > 0             # タイル画像使用
  358.       @enable_slant = false
  359.       return
  360.     end
  361.     return unless name_changed  # 画像名変化なし

  363.     # 斜め移動アニメ有効判定
  364.     @enable_slant = true
  365.     begin
  366.       @character_name_slant = @character_name + KGC::Dash_8DirMove::SLANT_SUFFIX
  367.       Cache.character(@character_name_slant)
  368.     rescue
  369.       @enable_slant = false
  370.     end
  371.   end
  372.   #--------------------------------------------------------------------------
  373.   # ● 転送元矩形の更新
  374.   #--------------------------------------------------------------------------
  375.   alias update_src_rect_KGC_Dash_8DirMove update_src_rect
  376.   def update_src_rect
  377.     return if @tile_id > 0  # タイル画像

  379.     if @enable_slant
  380.       update_src_rect_for_slant
  381.     else
  382.       update_src_rect_KGC_Dash_8DirMove
  383.     end
  384.   end
  385.   #--------------------------------------------------------------------------
  386.   # ○ 斜め移動用転送元矩形の更新
  387.   #--------------------------------------------------------------------------
  388.   def update_src_rect_for_slant
  389.     index = @character.character_index
  390.     pattern = @character.pattern < 3 ? @character.pattern : 1
  391.     sx = (index % 4 * 3 + pattern) * @cw

  393.     dir = @character.direction_8dir
  394.     case dir % 2
  395.     when 0  # 上下左右
  396.       if @last_slant
  397.         self.bitmap = Cache.character(@character_name)
  398.         @last_slant = false
  399.       end
  400.     else    # 斜め
  401.       unless @last_slant
  402.         self.bitmap = Cache.character(@character_name_slant)
  403.         @last_slant = true
  404.       end
  405.       # 1, 3, 7, 9 を 2, 6, 4, 8 に変換
  406.       dir = SLANT_ANIME_TABLE[dir]
  407.     end

  409.     sy = (index / 4 * 4 + (dir - 2) / 2) * @ch
  410.     self.src_rect.set(sx, sy, @cw, @ch)
  411.   end
  412. end

  414. end  # ENABLE_8DIR_ANIMATION
复制代码
���



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