可以控制N个人物运动

a761531566198

如题，求大神说怎么做

喵呜喵5

说明

脚本插入到main以上，然后按照脚本开头的设置执行事件内容

截图

脚本

1. =begin
   
2. ===============================================================================
   
3.   共同移动 By喵呜喵5
   
4. ===============================================================================
   
5. 
   
6. 【说明】
   
7.   
   
8.   在事件中的脚本编辑器里输入
   
9.   
   
10.     movetog(1,2,3)
    
11.   
    
12.   1,2,3换成地图事件的ID，用英文逗号隔开，数量不限
    
13.   
    
14.   接着按方向键时指定ID的事件就会跟着玩家的操作一起移动
    
15.   
    
16. =end
    
17. $m5script = {} if $m5script.nil?
    
18. $m5script["M5MoveTogether"] = true
    
19. module M5MoveTogether
    
20. #==============================================================================
    
21. # 设定部分
    
22. #==============================================================================
    
23. 
    
24.   
    
25.   VAR = 1
    
26.   
    
27.   #这里设置一个变量的ID，在游戏中请不要随意修改这个ID对应的变量
    
28.   
    
29.   
    
30. #==============================================================================
    
31. # 脚本部分
    
32. #==============================================================================   
    
33. end
    
34. class Game_Interpreter  
    
35.   def movetog(*eve)
    
36.     $game_variables[M5MoveTogether::VAR] = eve.clone
    
37.   end
    
38. end
    
39. class Game_Event
    
40.   def movable?
    
41.     return false if moving?
    
42.     return false if $game_message.busy? || $game_message.visible
    
43.     return true
    
44.   end
    
45. end
    
46. class Game_Player
    
47.   alias m5_20140617_move_by_input move_by_input
    
48.   def move_by_input
    
49.     m5_20140617_move_by_input
    
50.     return unless $game_variables[M5MoveTogether::VAR].is_a?(Array)
    
51.     return if $game_map.interpreter.running?
    
52.     return unless Input.dir4 > 0
    
53.     $game_variables[M5MoveTogether::VAR].each do |id|
    
54.       next unless $game_map.events[id]
    
55.       next unless $game_map.events[id].movable?
    
56.       $game_map.events[id].move_straight(Input.dir4)      
    
57.     end
    
58.   end
    
59. end

复制代码