Project1

标题: 請問能讓事件自動接觸另一個事件來引發新劇情嗎 [打印本页]

---

作者: sai90306    时间: 2012-4-9 23:30
标题: 請問能讓事件自動接觸另一個事件來引發新劇情嗎


請問麼樣才能設定一個事件自動移動到另一個事件然後觸發劇情?
例如作ARPG的同伴,讓同伴自動接近敵人並且進行攻擊這樣的
dsu_plus_rewardpost_czw

---

作者: Wind2010    时间: 2012-4-13 12:04
写一个事件向事件移动的方法，然后条件分歧判断两事件的直线距离来触发事件
另外如果是做ARPG的话这些功能在ARPG系统里应该已经有设置了的

---

作者: hys111111    时间: 2012-4-13 14:02


用接触事件判断……

1. $game_map.event[@event_id]

复制代码

---

作者: hk0768    时间: 2012-4-13 14:27
像这样的?
工程.rar (852.49 KB, 下载次数: 348)

2012-4-13 14:27 上传

点击文件名下载附件

---

作者: Wind2010    时间: 2012-4-13 16:47

1. class Game_Character
   
2.   def move_toward_event(event_id)
   
3.     sx = @x - $game_map.events[event_id].x
   
4.     sy = @y - $game_map.events[event_id].y
   
5.     if sx == 0 and sy == 0
   
6.       return
   
7.     end
   
8.     abs_sx = sx.abs
   
9.     abs_sy = sy.abs
   
10.     if abs_sx == abs_sy
    
11.       rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
    
12.     end
    
13.     if abs_sx > abs_sy
    
14.       sx > 0 ? move_left : move_right
    
15.       if not moving? and sy != 0
    
16.         sy > 0 ? move_up : move_down
    
17.       end
    
18.     else
    
19.       sy > 0 ? move_up : move_down
    
20.       if not moving? and sx != 0
    
21.         sx > 0 ? move_left : move_right
    
22.       end
    
23.     end
    
24.   end
    
25. end

复制代码

事件-移动规则-自定义-脚本：「move_toward_event(需要移动向的事件的ID)」，并勾上“忽略不能移动的场合”

---

作者: hys111111    时间: 2012-4-13 18:07

1. class Scene_Map
   
2.   alias HYS_updata update
   
3.   def update
   
4.     HYS_updata
   
5.     for f in $game_map.events.values
   
6.       if $game_map.events[f.id].moving?
   
7.         unless $game_player.passable?(f.x,f.y,f.direction) #未实验，如判断失效，请在本行前面和下面其中一个end加“#”号
   
8.           case f.direction
   
9.           when 2
   
10.             f.y+=1
    
11.           when 4
    
12.             f.x-=1
    
13.           when 6
    
14.             f.x+=1
    
15.           when 8
    
16.             f.y-=1
    
17.           end
    
18.           for i in $game_map.events.values
    
19.             if f.x == i.x and f.y == i.y
    
20.               $game_map.events[i.id].start
    
21.             end
    
22.           end
    
23.         end
    
24.       end
    
25.     end
    
26.   end
    
27. end

复制代码

整体脚本就是这样了。
如果前方无法通过，并且正在移动中，就会执行事件前方的事件（就像角色接触事件那样子）
加入脚本，立刻生效

---

作者: end55rpg    时间: 2012-4-13 18:21
小狗狗，用XAS吧，不用自己研究了，很头痛的做ARPG

---

作者: hys111111    时间: 2012-4-14 09:42

1. class Scene_Map
   
2.   alias xy_HYS_main main
   
3.   def main
   
4.     xy_HYS_main
   
5.     updata
   
6.   end
   
7.   alias xy_HYS_updata update
   
8.   def update
   
9.     xy_HYS_updata
   
10.     xy_event = {}
    
11. 
    
12.     #格式：xy_event = [[A,B],[A,B]]
    
13.     #A为事件所在地图，B为事件编号
    
14.     xy_event = [[1,3]]#设置部分
    
15.    
    
16.     for a in 0...xy_event.size
    
17.       if xy_event[a][0] == $game_map.map_id
    
18.         for f in $game_map.events.values
    
19.           if xy_event[a][1] == f.id
    
20.             #if f.moving?
    
21.              # unless $game_map.passable?(f.x,f.y,f.direction) #未实验，如判断失效，请在本行前面加“#”号
    
22.                 case f.direction
    
23.                 when 2
    
24.                   xx=f.x
    
25.                   yy=f.y+1
    
26.                 when 4
    
27.                   xx=f.x-1
    
28.                   yy=f.y
    
29.                 when 6
    
30.                   xx=f.x+1
    
31.                   yy=f.y
    
32.                 when 8
    
33.                   xx=f.x
    
34.                   yy=f.y-1
    
35.                 end
    
36.                 for i in $game_map.events.values
    
37.                   p "test"
    
38.                   if xx == i.x and yy == i.y
    
39.                     i.start
    
40.                   end
    
41.                 end
    
42.               end
    
43.             end
    
44.           end
    
45.         end
    
46.       end
    
47.     end
    
48.   #end
    
49. #end

复制代码

从新修正一下，就在12行那里设置

补充说明：设置的那个事件相当于角色，如果接触别的事件就会触发

---

作者: sai90306    时间: 2012-4-14 12:54
這是我目前設置的樣子

1.     class Scene_Map
   
2.       alias xy_HYS_main main
   
3.       def main
   
4.         xy_HYS_main
   
5.         updata
   
6.       end
   
7.       alias xy_HYS_updata update
   
8.       def update
   
9.         xy_HYS_updata
   
10.         xy_event = {}
    
11. 
    
12.         #格式：xy_event = [[A,B],[A,B]]
    
13.         #A为事件所在地图，B为事件编号
    
14.         xy_event = [[1,3],[1,4]]#地圖1上有事件3和4 都沒有設定移動路線
    
15.       
    
16.         for a in 0...xy_event.size
    
17.           if xy_event[a][0] == $game_map.map_id
    
18.             for f in $game_map.events.values
    
19.               if xy_event[a][1] == f.id
    
20.                 #if f.moving?
    
21.                  # unless $game_map.passable?(f.x,f.y,f.direction) #未实验，如判断失效，请在本行前面加“#”号
    
22.                     case f.direction
    
23.                     when 2
    
24.                       xx=f.x
    
25.                       yy=f.y+1
    
26.                     when 4
    
27.                       xx=f.x-1
    
28.                       yy=f.y
    
29.                     when 6
    
30.                       xx=f.x+1
    
31.                       yy=f.y
    
32.                     when 8
    
33.                       xx=f.x
    
34.                       yy=f.y-1
    
35.                     end
    
36.                     for i in $game_map.events.values
    
37.                       # p "test"
    
38.                       if xx == i.x and yy == i.y
    
39.                         i.start
    
40.                       end
    
41.                     end
    
42.                   end
    
43.                 end
    
44.               end
    
45.             end
    
46.           end
    
47.         end
    
48.       #end
    
49.     #end

复制代码

---

作者: hys111111    时间: 2012-4-14 14:04

1. class Game_Character
   
2.   
   
3.   alias xy_up move_up
   
4.   def move_up(turn_enabled = true)
   
5.     if self.is_a?(Game_Player)
   
6.       xy_up
   
7.     end
   
8.     if $game_player.passable?(@x,@y,8)  and self.is_a?(Game_Event)
   
9.       xy_up
   
10.     else
    
11.       turn_up
    
12.       pd
    
13.     end
    
14.   end
    
15.   
    
16.   alias xy_down move_down
    
17.   def move_down(turn_enabled = true)
    
18.     if self.is_a?(Game_Player)
    
19.       xy_down
    
20.     end
    
21.     if $game_player.passable?(@x,@y,2) and self.is_a?(Game_Event)
    
22.       xy_down
    
23.     else
    
24.       turn_down
    
25.       pd
    
26.     end
    
27.   end
    
28.   
    
29.   alias xy_left move_left
    
30.   def move_left(turn_enabled = true)
    
31.     if self.is_a?(Game_Player)
    
32.       xy_left
    
33.     end
    
34.     if $game_player.passable?(@x,@y,4) and self.is_a?(Game_Event)
    
35.       xy_left
    
36.     else
    
37.       turn_left
    
38.       pd
    
39.     end
    
40.   end
    
41.   
    
42.   alias xy_right move_right
    
43.   def move_right(turn_enabled = true)
    
44.     if self.is_a?(Game_Player)
    
45.       xy_right
    
46.     end
    
47.     if $game_player.passable?(@x,@y,6) and self.is_a?(Game_Event)
    
48.       xy_right
    
49.     else
    
50.       turn_right
    
51.       pd
    
52.     end
    
53.   end
    
54.   
    
55.   def pd
    
56.     @move_route_waiting = true
    
57.     xy_event = {}
    
58. 
    
59.     #格式：xy_event = [[A,B],[A,B]]
    
60.     #A为事件所在地图，B为事件编号
    
61.     xy_event = [[1,3]]#设置部分
    
62.    
    
63.     for a in 0...xy_event.size
    
64.       if xy_event[a][0] == $game_map.map_id and self.is_a?(Game_Event)
    
65.         if xy_event[a][1] == @id
    
66.           case @direction
    
67.           when 2
    
68.             xx=@x
    
69.             yy=@y+1
    
70.           when 4
    
71.             xx=@x-1
    
72.             yy=@y
    
73.           when 6
    
74.             xx=@x+1
    
75.             yy=@y
    
76.           when 8
    
77.             xx=@x
    
78.             yy=@y-1
    
79.           end
    
80.           for i in $game_map.events.values
    
81.             if xx == i.x and yy == i.y
    
82.               case @direction
    
83.               when 2
    
84.                 i.turn_up
    
85.               when 4
    
86.                 i.turn_right
    
87.               when 6
    
88.                 i.turn_left
    
89.               when 8
    
90.                 i.turn_down
    
91.               end
    
92.               i.start
    
93.             end
    
94.           end
    
95.         end
    
96.       end
    
97.     end
    
98.   end
    
99. end

复制代码

我现在会用alias了，测试无误，可以拿去用了（另外，执行事件的过程事件可以移动哦）
真的就像角色接触事件那样子了。自己再使用试试……已经修复……

---

作者: sai90306    时间: 2012-4-14 15:25


兩位大大太感謝你們了!
兩位的腳本都很好 功能不太一樣 都能完美運行
其實我最初想要的是Wind2010大的那種腳本
不過看到hys111111大的腳本後讓我也很感興趣...所以就一直追問了@@
所以最後選答案的時候好掙扎...原因就像我上面說的 抱歉了Wind2010大

---

作者: hys111111    时间: 2012-4-17 12:31

sai90306 发表于 2012-4-14 15:25
兩位大大太感謝你們了!
兩位的腳本都很好 功能不太一樣 都能完美運行
其實我最初想要的是Wind2010大的那種 ...

脚本已修正，见10楼
（我忘了考虑到角色了）

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1