ACE 8方向移动及相关

xmheart

脚本体积小，稍微汉化了一下。（还是渣汉化）
原地址: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. #==============================================================================
    
14. 
    
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
    
37. 
    
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
    
52. 
    
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方向移动没问题，就是那个什么不能奔跑和调转判定键那几个实现不了，求高手帮帮忙析疑。。谢谢（我是脚本盲）

琦琦

十分感谢