Project1

标题: ACE 8方向移动及相关 [打印本页]
作者: xmheart    时间: 2012-1-24 01:53
标题: ACE 8方向移动及相关
脚本体积小，稍微汉化了一下。（还是渣汉化）
原地址:http://www.tekepon.net/fsm/modul ... d=2145&forum=12
  1. #==============================================================================
  2. #  ■8方向移动 for RGSS3 Ver1.01 by 星潟
  3. #
  4. #     功能: 1.可以设置角色往8方向移动.
  5. #           2.可以设置关于移动的一部分功能.
  6. #==============================================================================
  7. # 使用说明:
  8. #   ★通过开关操作切换8方向移动的ON/OFF和能够设置一切移动的禁止.
  9. #   ★根据开关操作调转奔跑判定键.
  10. #   ★根据变量操作实行奔跑速度的强化.
  11. #   ★根据开关切换追加奔跑禁止功能.
  12. #
  13. #==============================================================================

  15. module MOVE_CONTROL
  16.   #--------------------------------------------------------------------------
  17.   # ● 基本设置(新增定义)
  18.   #--------------------------------------------------------------------------
  19.   # 这个开关ON的时候禁止8方向移动,只能4方向移动
  20.   FOUR_MOVE_SWITCH = 51
  21.   
  22.   # 这个开关ON的时候禁止操作角色
  23.   MOVE_SEAL_SWITCH = 52
  24.   
  25.   # 这个开关ON的时候调转奔跑判定键
  26.   # 平时奔跑时按下奔跑键的状态变成通常行走
  27.   DASH_REV = 53
  28.   
  29.   # 这个开关ON的时候奔跑不能使用
  30.   # 开关切换使同一地图能够奔跑的场所和不能奔跑的场所区别开来
  31.   DASH_SEAL = 54
  32.   
  33.   # 这个变量比0大的时候奔跑速度会再次增加
  34.   DASH_PLUS = 19
  35.   
  36. end

  38. class Game_CharacterBase
  39.   #--------------------------------------------------------------------------
  40.   # ● 取得移动速度(考虑奔跑状态)(重定义)
  41.   #--------------------------------------------------------------------------
  42.   alias real_move_speed_8direction real_move_speed
  43.   def real_move_speed
  44.     if $game_variables[MOVE_CONTROL::DASH_PLUS] > 0
  45.       dash_plus = 1 + ($game_variables[MOVE_CONTROL::DASH_PLUS] * 0.1)
  46.       @move_speed + (dash? ? dash_plus : 0)
  47.     else
  48.       real_move_speed_8direction
  49.     end
  50.   end
  51. end

  53. class Game_Player < Game_Character
  54.   #--------------------------------------------------------------------------
  55.   # ● 判定奔跑状态(重定义)
  56.   #--------------------------------------------------------------------------
  57.   alias dash_rev? dash?
  58.   def dash?
  59.     return false if $game_switches[MOVE_CONTROL::DASH_SEAL] == true
  60.     if $game_switches[MOVE_CONTROL::DASH_REV] == true
  61.       return false if @move_route_forcing
  62.       return false if $game_map.disable_dash?
  63.       return false if vehicle
  64.       return false if Input.press?(:A)
  65.       return true
  66.     else
  67.       dash_rev?
  68.     end
  69.   end
  70.   #--------------------------------------------------------------------------
  71.   # ● 处理方向键输入作出的移动(重定义)
  72.   #--------------------------------------------------------------------------
  73.   alias move_by_input_8direction move_by_input
  74.   def move_by_input
  75.     return if $game_switches[MOVE_CONTROL::MOVE_SEAL_SWITCH] == true
  76.     if $game_switches[MOVE_CONTROL::FOUR_MOVE_SWITCH] == true
  77.       move_by_input_8direction
  78.       return
  79.     end
  80.     return if !movable? || $game_map.interpreter.running?
  81.     if Input.press?(:LEFT) && Input.press?(:DOWN)
  82.       if passable?(@x, @y, 4) && passable?(@x, @y, 2) &&
  83.         passable?(@x - 1, @y, 2) && passable?(@x, @y + 1, 4) &&
  84.         passable?(@x - 1, @y + 1, 6) && passable?(@x - 1, @y + 1, 8)
  85.         move_diagonal(4, 2)
  86.       elsif @direction == 4
  87.         if passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
  88.           move_straight(2)
  89.         elsif passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
  90.           move_straight(4)
  91.         end
  92.       elsif @direction == 2
  93.         if passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
  94.           move_straight(4)
  95.         elsif passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
  96.           move_straight(2)
  97.         else
  98.           move_straight(Input.dir4) if Input.dir4 > 0
  99.         end
  100.       else
  101.         move_straight(Input.dir4) if Input.dir4 > 0
  102.       end
  103.     elsif Input.press?(:RIGHT) && Input.press?(:DOWN)
  104.       if passable?(@x, @y, 6) && passable?(@x, @y, 2) &&
  105.         passable?(@x + 1, @y, 2) && passable?(@x, @y + 1, 6) &&
  106.         passable?(@x + 1, @y + 1, 4) && passable?(@x + 1, @y + 1, 8)
  107.         move_diagonal(6, 2)
  108.       elsif @direction == 6
  109.         if passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
  110.           move_straight(2)
  111.         elsif passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
  112.           move_straight(6)
  113.         end
  114.       elsif @direction == 2
  115.         if passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
  116.           move_straight(6)
  117.         elsif passable?(@x, @y, 2) && passable?(@x, @y + 1, 8)
  118.           move_straight(2)
  119.         else
  120.           move_straight(Input.dir4) if Input.dir4 > 0
  121.         end
  122.       else
  123.         move_straight(Input.dir4) if Input.dir4 > 0
  124.       end
  125.     elsif Input.press?(:LEFT) && Input.press?(:UP)
  126.       if passable?(@x, @y, 4) && passable?(@x, @y, 8) &&
  127.         passable?(@x - 1, @y, 8) && passable?(@x, @y - 1, 4) &&
  128.         passable?(@x - 1, @y - 1, 2) && passable?(@x - 1, @y - 1, 6)
  129.         move_diagonal(4, 8)
  130.       elsif @direction == 4
  131.         if passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
  132.           move_straight(8)
  133.         elsif passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
  134.           move_straight(4)
  135.         else
  136.           move_straight(Input.dir4) if Input.dir4 > 0
  137.         end
  138.       elsif @direction == 8
  139.         if passable?(@x, @y, 4) && passable?(@x - 1, @y, 6)
  140.           move_straight(4)
  141.         elsif passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
  142.           move_straight(8)
  143.         else
  144.           move_straight(Input.dir4) if Input.dir4 > 0
  145.         end
  146.       else
  147.         move_straight(Input.dir4) if Input.dir4 > 0
  148.       end
  149.     elsif Input.press?(:RIGHT) && Input.press?(:UP)
  150.       if passable?(@x, @y, 6) && passable?(@x, @y, 8) &&
  151.         passable?(@x + 1, @y, 8) && passable?(@x, @y - 1, 6) &&
  152.         passable?(@x + 1, @y - 1, 2) && passable?(@x + 1, @y - 1, 4)
  153.         move_diagonal(6, 8)
  154.       elsif @direction == 6
  155.         if passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
  156.           move_straight(8)
  157.         elsif passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
  158.           move_straight(6)
  159.         else
  160.           move_straight(Input.dir4) if Input.dir4 > 0
  161.         end
  162.       elsif @direction == 8
  163.         if passable?(@x, @y, 6) && passable?(@x + 1, @y, 4)
  164.           move_straight(6)
  165.         elsif passable?(@x, @y, 8) && passable?(@x, @y - 1, 2)
  166.           move_straight(8)
  167.         else
  168.           move_straight(Input.dir4) if Input.dir4 > 0
  169.         end
  170.       else
  171.         move_straight(Input.dir4) if Input.dir4 > 0
  172.       end
  173.     else
  174.       move_straight(Input.dir4) if Input.dir4 > 0
  175.     end
  176.     unless moving?
  177.       @direction = Input.dir4 unless Input.dir4 == 0
  178.     end
  179.   end
  180. end
复制代码
问题补充一下：它说那个开关什么ON什么OFF的，我弄来弄去都弄不成功，暂时8方向移动没问题，就是那个什么不能奔跑和调转判定键那几个实现不了，求高手帮帮忙析疑。。谢谢（我是脚本盲）
作者: 琦琦    时间: 2012-4-15 11:05
十分感谢



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