--增强手感--遇障碍自动转向--3.22更新不对NPC转向

幻の飞鱼

尽量把判定做的完善了一点
但是面队两边都可完全通行的障碍，比如一个分叉的尖顶处，我还是没有想到最好的办法
，用了随机方向，不知道怎么判定具体走那边会更完善

基本功能已经实现


---------------3月22日更新，对NPC不进行转向，对于个别需要自动转向的事件，第一行写一句注释“not_npc”即可，见范例

http://rpg.blue/upload_program/files/自动转向修正版.rar

直接使用脚本

1. #==============================================================================
   
2. # 使用方法：
   
3. # 1.直接插在MAIN前即可使用
   
4. # 2.面对事件不进行自动转向
   
5. # 3.对于个别需要自动转向的事件，在该事件的第一页第一行写一句注释"not_npc"(不含引号）
   
6. #
   
7. #------------------------------------------------------------------------------
   
8. class Game_Character
   
9.   #--------------------------------------------------------------------------
   
10.   # ● 可以通行判定
    
11.   #     x : X 坐标
    
12.   #     y : Y 坐标
    
13.   #     d : 方向 (0,2,4,6,8)  ※ 0 = 全方向不能通行的情况判定 (跳跃用)
    
14.   #--------------------------------------------------------------------------  
    
15.   def passable?(x, y, d)
    
16.     #---------------------------
    
17.     $isnpc = true
    
18.     #---------------------------
    
19.     # 求得新的坐标
    
20.     new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
    
21.     new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
    
22.     # 坐标在地图以外的情况
    
23.     unless $game_map.valid?(new_x, new_y)
    
24.       # 不能通行
    
25.       return false
    
26.     end
    
27.     # 穿透是 ON 的情况下
    
28.     if @through
    
29.       # 可以通行
    
30.       return true
    
31.     end
    
32.     # 移动者的元件无法来到指定方向的情况下
    
33.     unless $game_map.passable?(x, y, d, self)
    
34.       # 通行不可
    
35.       return false
    
36.     end
    
37.     # 从指定方向不能进入到移动处的元件的情况下
    
38.     unless $game_map.passable?(new_x, new_y, 10 - d)
    
39.       # 不能通行
    
40.       return false
    
41.     end
    
42.     # 循环全部事件
    
43.     for event in $game_map.events.values
    
44.       # 事件坐标于移动目标坐标一致的情况下
    
45.       if event.x == new_x and event.y == new_y
    
46.         # 穿透为 ON
    
47.         unless event.through
    
48.           # 自己就是事件的情况下
    
49.           if self != $game_player
    
50.             # 不能通行
    
51.             #---------------------------
    
52.             $isnpc = false if event.list[0].parameters[0] != "not_npc"
    
53.             #---------------------------
    
54.             return false
    
55.           end
    
56.           # 自己是主角、对方的图形是角色的情况下
    
57.           if event.character_name != ""
    
58.             # 不能通行
    
59.             #---------------------------
    
60.             $isnpc = false if event.list[0].parameters[0] != "not_npc"
    
61.             #---------------------------
    
62.             return false
    
63.           end
    
64.         end
    
65.       end
    
66.     end
    
67.     # 主角的坐标与移动目标坐标一致的情况下
    
68.     if $game_player.x == new_x and $game_player.y == new_y
    
69.       # 穿透为 ON
    
70.       unless $game_player.through
    
71.         # 自己的图形是角色的情况下
    
72.         if @character_name != ""
    
73.           # 不能通行
    
74.           return false
    
75.         end
    
76.       end
    
77.     end
    
78.     # 可以通行
    
79.     return true
    
80.   end
    
81.   
    
82.   #--------------------------------------------------------------------------
    
83.   # ● 向下移动
    
84.   #     turn_enabled : 本场地位置更改许可标志
    
85.   #--------------------------------------------------------------------------
    
86.   def move_down(turn_enabled = true)
    
87.     #---------------------------
    
88.     direct = @direction
    
89.     #---------------------------
    
90.     # 面向下
    
91.     if turn_enabled
    
92.       turn_down
    
93.     end
    
94.     # 可以通行的场合
    
95.     if passable?(@x, @y, 2)
    
96.       # 面向下
    
97.       turn_down
    
98.       # 更新坐标
    
99.       @y += 1
    
100.       # 增加步数
     
101.       increase_steps
     
102.     # 不能通行的情况下
     
103.     else
     
104.       
     
105.      #---------------------------
     
106.     if $isnpc
     
107.       if passable?(@x, @y, 6) and passable?(@x+1, @y, 2) and passable?(@x, @y, 4) and passable?(@x-1, @y, 2)
     
108.         move_left if direct == 4
     
109.         move_right if direct == 6
     
110.         if direct == 2 or direct == 8
     
111.           randtra = rand(2)
     
112.           randtra == 0 ? move_left : move_right
     
113.         end
     
114.       else
     
115.         move_left if passable?(@x, @y, 4) and passable?(@x-1, @y, 2)
     
116.         move_right if passable?(@x, @y, 6) and passable?(@x+1, @y, 2)
     
117.       end
     
118.     end
     
119.     #---------------------------
     
120. 
     
121.       # 接触事件的启动判定
     
122.       check_event_trigger_touch(@x, @y+1)
     
123.     end
     
124.   end
     
125.   #--------------------------------------------------------------------------
     
126.   # ● 向左移动
     
127.   #     turn_enabled : 本场地位置更改许可标志
     
128.   #--------------------------------------------------------------------------
     
129.   def move_left(turn_enabled = true)
     
130.     #---------------------------
     
131.     direct = @direction
     
132.     #---------------------------
     
133.     # 面向左
     
134.     if turn_enabled
     
135.       turn_left
     
136.     end
     
137.     # 可以通行的情况下
     
138.     if passable?(@x, @y, 4)
     
139.       # 面向左
     
140.       turn_left
     
141.       # 更新坐标
     
142.       @x -= 1
     
143.       # 增加步数
     
144.       increase_steps
     
145.     # 不能通行的情况下
     
146.     else
     
147.       
     
148.       #---------------------------
     
149.       if $isnpc
     
150.       if passable?(@x, @y, 8) and passable?(@x, @y-1, 4) and passable?(@x, @y, 2) and passable?(@x, @y+1, 4)
     
151.         move_up if direct == 8
     
152.         move_down if direct == 2
     
153.         if direct == 4 or direct == 6
     
154.           randtra = rand(2)
     
155.           randtra == 0 ? move_up : move_down
     
156.         end
     
157.       else
     
158.         move_up if passable?(@x, @y, 8) and passable?(@x, @y-1, 4)
     
159.         move_down if passable?(@x, @y, 2) and passable?(@x, @y+1, 4)
     
160.       end
     
161.       end
     
162.       #---------------------------
     
163.       
     
164.       # 接触事件的启动判定
     
165.       check_event_trigger_touch(@x-1, @y)
     
166.     end
     
167.   end
     
168.   #--------------------------------------------------------------------------
     
169.   # ● 向右移动
     
170.   #     turn_enabled : 本场地位置更改许可标志
     
171.   #--------------------------------------------------------------------------
     
172.   def move_right(turn_enabled = true)
     
173.     #---------------------------
     
174.     direct = @direction
     
175.     #---------------------------
     
176.     # 面向右
     
177.     if turn_enabled
     
178.       turn_right
     
179.     end
     
180.     # 可以通行的场合
     
181.     if passable?(@x, @y, 6)
     
182.       # 面向右
     
183.       turn_right
     
184.       # 更新坐标
     
185.       @x += 1
     
186.       # 增加部数
     
187.       increase_steps
     
188.     # 不能通行的情况下
     
189.     else
     
190.       #---------------------------
     
191.       if $isnpc
     
192.       if passable?(@x, @y, 8) and passable?(@x, @y-1, 6) and passable?(@x, @y, 2) and passable?(@x, @y+1, 6)
     
193.         move_up if direct == 8
     
194.         move_down if direct == 2
     
195.         if direct == 4 or direct == 6
     
196.           randtra = rand(2)
     
197.           randtra == 0 ? move_up : move_down
     
198.         end
     
199.       else
     
200.         move_up if passable?(@x, @y, 8) and passable?(@x, @y-1, 6)
     
201.         move_down if passable?(@x, @y, 2) and passable?(@x, @y+1, 6)
     
202.       end
     
203.       end
     
204.       #---------------------------
     
205.       # 接触事件的启动判定
     
206.       check_event_trigger_touch(@x+1, @y)
     
207.     end
     
208.   end
     
209.   #--------------------------------------------------------------------------
     
210.   # ● 向上移动
     
211.   #     turn_enabled : 本场地位置更改许可标志
     
212.   #--------------------------------------------------------------------------
     
213.   def move_up(turn_enabled = true)
     
214.     #---------------------------
     
215.     direct = @direction
     
216.     #---------------------------
     
217.     # 面向上
     
218.     if turn_enabled
     
219.       turn_up
     
220.     end
     
221.     # 可以通行的情况下
     
222.     if passable?(@x, @y, 8)
     
223.       # 面向上
     
224.       turn_up
     
225.       # 更新坐标
     
226.       @y -= 1
     
227.       # 歩数増加
     
228.       increase_steps
     
229.     # 不能通行的情况下
     
230.     else
     
231.       #---------------------------
     
232.       if $isnpc
     
233.       if passable?(@x, @y, 6) and passable?(@x+1, @y, 8) and passable?(@x, @y, 4) and passable?(@x-1, @y, 8)
     
234.         move_left if direct == 4
     
235.         move_right if direct == 6
     
236.         if direct == 2 or direct == 8
     
237.           randtra = rand(2)
     
238.           randtra == 0 ? move_left : move_right
     
239.         end
     
240.       else
     
241.         move_left if passable?(@x, @y, 4) and passable?(@x-1, @y, 8)
     
242.         move_right if passable?(@x, @y, 6) and passable?(@x+1, @y, 8)
     
243.       end
     
244.       end
     
245.       #---------------------------
     
246.       # 接触事件的启动判定
     
247.       check_event_trigger_touch(@x, @y-1)
     
248.     end
     
249.   end
     
250. end

复制代码

幻の飞鱼

尽量把判定做的完善了一点
但是面队两边都可完全通行的障碍，比如一个分叉的尖顶处，我还是没有想到最好的办法
，用了随机方向，不知道怎么判定具体走那边会更完善

基本功能已经实现


---------------3月22日更新，对NPC不进行转向，对于个别需要自动转向的事件，第一行写一句注释“not_npc”即可，见范例

http://rpg.blue/upload_program/files/自动转向修正版.rar

直接使用脚本

1. #==============================================================================
   
2. # 使用方法：
   
3. # 1.直接插在MAIN前即可使用
   
4. # 2.面对事件不进行自动转向
   
5. # 3.对于个别需要自动转向的事件，在该事件的第一页第一行写一句注释"not_npc"(不含引号）
   
6. #
   
7. #------------------------------------------------------------------------------
   
8. class Game_Character
   
9.   #--------------------------------------------------------------------------
   
10.   # ● 可以通行判定
    
11.   #     x : X 坐标
    
12.   #     y : Y 坐标
    
13.   #     d : 方向 (0,2,4,6,8)  ※ 0 = 全方向不能通行的情况判定 (跳跃用)
    
14.   #--------------------------------------------------------------------------  
    
15.   def passable?(x, y, d)
    
16.     #---------------------------
    
17.     $isnpc = true
    
18.     #---------------------------
    
19.     # 求得新的坐标
    
20.     new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
    
21.     new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
    
22.     # 坐标在地图以外的情况
    
23.     unless $game_map.valid?(new_x, new_y)
    
24.       # 不能通行
    
25.       return false
    
26.     end
    
27.     # 穿透是 ON 的情况下
    
28.     if @through
    
29.       # 可以通行
    
30.       return true
    
31.     end
    
32.     # 移动者的元件无法来到指定方向的情况下
    
33.     unless $game_map.passable?(x, y, d, self)
    
34.       # 通行不可
    
35.       return false
    
36.     end
    
37.     # 从指定方向不能进入到移动处的元件的情况下
    
38.     unless $game_map.passable?(new_x, new_y, 10 - d)
    
39.       # 不能通行
    
40.       return false
    
41.     end
    
42.     # 循环全部事件
    
43.     for event in $game_map.events.values
    
44.       # 事件坐标于移动目标坐标一致的情况下
    
45.       if event.x == new_x and event.y == new_y
    
46.         # 穿透为 ON
    
47.         unless event.through
    
48.           # 自己就是事件的情况下
    
49.           if self != $game_player
    
50.             # 不能通行
    
51.             #---------------------------
    
52.             $isnpc = false if event.list[0].parameters[0] != "not_npc"
    
53.             #---------------------------
    
54.             return false
    
55.           end
    
56.           # 自己是主角、对方的图形是角色的情况下
    
57.           if event.character_name != ""
    
58.             # 不能通行
    
59.             #---------------------------
    
60.             $isnpc = false if event.list[0].parameters[0] != "not_npc"
    
61.             #---------------------------
    
62.             return false
    
63.           end
    
64.         end
    
65.       end
    
66.     end
    
67.     # 主角的坐标与移动目标坐标一致的情况下
    
68.     if $game_player.x == new_x and $game_player.y == new_y
    
69.       # 穿透为 ON
    
70.       unless $game_player.through
    
71.         # 自己的图形是角色的情况下
    
72.         if @character_name != ""
    
73.           # 不能通行
    
74.           return false
    
75.         end
    
76.       end
    
77.     end
    
78.     # 可以通行
    
79.     return true
    
80.   end
    
81.   
    
82.   #--------------------------------------------------------------------------
    
83.   # ● 向下移动
    
84.   #     turn_enabled : 本场地位置更改许可标志
    
85.   #--------------------------------------------------------------------------
    
86.   def move_down(turn_enabled = true)
    
87.     #---------------------------
    
88.     direct = @direction
    
89.     #---------------------------
    
90.     # 面向下
    
91.     if turn_enabled
    
92.       turn_down
    
93.     end
    
94.     # 可以通行的场合
    
95.     if passable?(@x, @y, 2)
    
96.       # 面向下
    
97.       turn_down
    
98.       # 更新坐标
    
99.       @y += 1
    
100.       # 增加步数
     
101.       increase_steps
     
102.     # 不能通行的情况下
     
103.     else
     
104.       
     
105.      #---------------------------
     
106.     if $isnpc
     
107.       if passable?(@x, @y, 6) and passable?(@x+1, @y, 2) and passable?(@x, @y, 4) and passable?(@x-1, @y, 2)
     
108.         move_left if direct == 4
     
109.         move_right if direct == 6
     
110.         if direct == 2 or direct == 8
     
111.           randtra = rand(2)
     
112.           randtra == 0 ? move_left : move_right
     
113.         end
     
114.       else
     
115.         move_left if passable?(@x, @y, 4) and passable?(@x-1, @y, 2)
     
116.         move_right if passable?(@x, @y, 6) and passable?(@x+1, @y, 2)
     
117.       end
     
118.     end
     
119.     #---------------------------
     
120. 
     
121.       # 接触事件的启动判定
     
122.       check_event_trigger_touch(@x, @y+1)
     
123.     end
     
124.   end
     
125.   #--------------------------------------------------------------------------
     
126.   # ● 向左移动
     
127.   #     turn_enabled : 本场地位置更改许可标志
     
128.   #--------------------------------------------------------------------------
     
129.   def move_left(turn_enabled = true)
     
130.     #---------------------------
     
131.     direct = @direction
     
132.     #---------------------------
     
133.     # 面向左
     
134.     if turn_enabled
     
135.       turn_left
     
136.     end
     
137.     # 可以通行的情况下
     
138.     if passable?(@x, @y, 4)
     
139.       # 面向左
     
140.       turn_left
     
141.       # 更新坐标
     
142.       @x -= 1
     
143.       # 增加步数
     
144.       increase_steps
     
145.     # 不能通行的情况下
     
146.     else
     
147.       
     
148.       #---------------------------
     
149.       if $isnpc
     
150.       if passable?(@x, @y, 8) and passable?(@x, @y-1, 4) and passable?(@x, @y, 2) and passable?(@x, @y+1, 4)
     
151.         move_up if direct == 8
     
152.         move_down if direct == 2
     
153.         if direct == 4 or direct == 6
     
154.           randtra = rand(2)
     
155.           randtra == 0 ? move_up : move_down
     
156.         end
     
157.       else
     
158.         move_up if passable?(@x, @y, 8) and passable?(@x, @y-1, 4)
     
159.         move_down if passable?(@x, @y, 2) and passable?(@x, @y+1, 4)
     
160.       end
     
161.       end
     
162.       #---------------------------
     
163.       
     
164.       # 接触事件的启动判定
     
165.       check_event_trigger_touch(@x-1, @y)
     
166.     end
     
167.   end
     
168.   #--------------------------------------------------------------------------
     
169.   # ● 向右移动
     
170.   #     turn_enabled : 本场地位置更改许可标志
     
171.   #--------------------------------------------------------------------------
     
172.   def move_right(turn_enabled = true)
     
173.     #---------------------------
     
174.     direct = @direction
     
175.     #---------------------------
     
176.     # 面向右
     
177.     if turn_enabled
     
178.       turn_right
     
179.     end
     
180.     # 可以通行的场合
     
181.     if passable?(@x, @y, 6)
     
182.       # 面向右
     
183.       turn_right
     
184.       # 更新坐标
     
185.       @x += 1
     
186.       # 增加部数
     
187.       increase_steps
     
188.     # 不能通行的情况下
     
189.     else
     
190.       #---------------------------
     
191.       if $isnpc
     
192.       if passable?(@x, @y, 8) and passable?(@x, @y-1, 6) and passable?(@x, @y, 2) and passable?(@x, @y+1, 6)
     
193.         move_up if direct == 8
     
194.         move_down if direct == 2
     
195.         if direct == 4 or direct == 6
     
196.           randtra = rand(2)
     
197.           randtra == 0 ? move_up : move_down
     
198.         end
     
199.       else
     
200.         move_up if passable?(@x, @y, 8) and passable?(@x, @y-1, 6)
     
201.         move_down if passable?(@x, @y, 2) and passable?(@x, @y+1, 6)
     
202.       end
     
203.       end
     
204.       #---------------------------
     
205.       # 接触事件的启动判定
     
206.       check_event_trigger_touch(@x+1, @y)
     
207.     end
     
208.   end
     
209.   #--------------------------------------------------------------------------
     
210.   # ● 向上移动
     
211.   #     turn_enabled : 本场地位置更改许可标志
     
212.   #--------------------------------------------------------------------------
     
213.   def move_up(turn_enabled = true)
     
214.     #---------------------------
     
215.     direct = @direction
     
216.     #---------------------------
     
217.     # 面向上
     
218.     if turn_enabled
     
219.       turn_up
     
220.     end
     
221.     # 可以通行的情况下
     
222.     if passable?(@x, @y, 8)
     
223.       # 面向上
     
224.       turn_up
     
225.       # 更新坐标
     
226.       @y -= 1
     
227.       # 歩数増加
     
228.       increase_steps
     
229.     # 不能通行的情况下
     
230.     else
     
231.       #---------------------------
     
232.       if $isnpc
     
233.       if passable?(@x, @y, 6) and passable?(@x+1, @y, 8) and passable?(@x, @y, 4) and passable?(@x-1, @y, 8)
     
234.         move_left if direct == 4
     
235.         move_right if direct == 6
     
236.         if direct == 2 or direct == 8
     
237.           randtra = rand(2)
     
238.           randtra == 0 ? move_left : move_right
     
239.         end
     
240.       else
     
241.         move_left if passable?(@x, @y, 4) and passable?(@x-1, @y, 8)
     
242.         move_right if passable?(@x, @y, 6) and passable?(@x+1, @y, 8)
     
243.       end
     
244.       end
     
245.       #---------------------------
     
246.       # 接触事件的启动判定
     
247.       check_event_trigger_touch(@x, @y-1)
     
248.     end
     
249.   end
     
250. end

复制代码

秋弦月

{/se}好东东啊！！

和KKME之前做的事件比起来方便的要多。
KKME的那个范例：
http://rpg.blue/viewthread.php?tid=39702&ntime=2007%2D3%2D19+21%3A50%3A01

秋弦月

{/fd}但是有个缺点……
碰到事件它也会走开。这个……找NPC说话都得累死。。。。{/gg}

幻の飞鱼

额，忽略了这个问题，偶都忘了这个贴了，偶来改改

洋娃娃

是非常好的东西，以后不需要写事件转向了，是否支持8方向行走时转向？

洋娃娃

SailCat 以前研究过，参考下 http://rpg.blue/web/htm/news219.htm

洋娃娃

试走了一下，到处都是滑溜溜的感觉有点恶心……不过也想不出更好的意见……

柳柳

这个功能好像一般是用在键盘以外的控制器下的……

比如鼠标，点鼠标走路，不停转向比较麻烦；手柄，最好也不要老转；手机，这个功能是必须的，否则手都按疼了。