如何制作向驱魔香或者狂魔香一样的效果？

希望化身

现写的，拿去用……

1. #==============================================================================
   
2. #控制遇敌（暗雷）    By: 希望化身
   
3. #==============================================================================
   
4. $dis_encounter = 0      #设置驱魔变量
   
5. $muti_encounter = 0     #设置狂魔变量
   
6. $muti_times = 2         #狂魔遇敌几率倍数
   
7. #==============================================================================
   
8. #-----基本使用方法(驱魔）：
   
9. #1.在数据库=>物品 下建立物品 名字任意
   
10. #2.设置物品运行公共事件 => 比如运行a号公共事件
    
11. #3.在数据库=>公共事件=>a号事件=>执行内容双击
    
12. #4.脚本=> 输入set_dis_encounter(b)  把b代换为你想让驱魔香工作的步数，如50步就输
    
13. #  入set_dis_encounter(50)
    
14. #-----基本使用方法(狂魔）：
    
15. #1.-3. 设置方法与驱魔相同
    
16. #4.脚本=> 输入set_muti_encounter(b)  把b代换为你想让狂魔魔香工作的步数，如50步就
    
17. #  输入set_dis_encounter(50)
    
18. #==============================================================================
    
19. 
    
20. def set_dis_encounter(steps)
    
21.   if $muti_encounter > 0
    
22.     $muti_encounter = 0
    
23.   else
    
24.     $dis_encounter = steps
    
25.   end
    
26. end
    
27. def set_muti_encounter(steps)
    
28.   if $dis_encounter > 0
    
29.     $dis_encounter = 0
    
30.   else
    
31.     $muti_encounter = steps
    
32.   end
    
33. end
    
34. def set_muti_times(times)
    
35.   $muti_times = times
    
36. end
    
37. 
    
38. #==============================================================================
    
39. # ■ Game_Player
    
40. #------------------------------------------------------------------------------
    
41. # 　處理主角的類別。事件啟動的判定、以及地圖的滾動等功能。
    
42. # 　本類別的實例請參考 $game_player。
    
43. #==============================================================================
    
44. 
    
45. class Game_Player < Game_Character
    
46.   #--------------------------------------------------------------------------
    
47.   # ● 畫面更新
    
48.   #--------------------------------------------------------------------------
    
49.   def update
    
50.     # 本地變數記錄移動訊息
    
51.     last_moving = moving?
    
52.     # 移動中、事件執行中、強制移動路線中、
    
53.     # 訊息視窗一個也不顯示的時候
    
54.     unless moving? or $game_system.map_interpreter.running? or
    
55.            @move_route_forcing or $game_temp.message_window_showing
    
56.       # 如果方向鍵被按下、主角就朝那個方向移動
    
57.       case Input.dir4
    
58.       when 2
    
59.         move_down
    
60.       when 4
    
61.         move_left
    
62.       when 6
    
63.         move_right
    
64.       when 8
    
65.         move_up
    
66.       end
    
67.     end
    
68.     # 本地變數記憶座標
    
69.     last_real_x = @real_x
    
70.     last_real_y = @real_y
    
71.     super
    
72.     # 角色向下移動、畫面上的位置在中央下方的情況下
    
73.     if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
    
74.       # 畫面向下捲動
    
75.       $game_map.scroll_down(@real_y - last_real_y)
    
76.     end
    
77.     # 角色向左移動、畫面上的位置在中央左方的情況下
    
78.     if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
    
79.       # 畫面向左捲動
    
80.       $game_map.scroll_left(last_real_x - @real_x)
    
81.     end
    
82.     # 角色向右移動、畫面上的位置在中央右方的情況下
    
83.     if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
    
84.       # 畫面向右捲動
    
85.       $game_map.scroll_right(@real_x - last_real_x)
    
86.     end
    
87.     # 角色向上移動、畫面上的位置在中央上方的情況下
    
88.     if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
    
89.       # 畫面向上捲動
    
90.       $game_map.scroll_up(last_real_y - @real_y)
    
91.     end
    
92.     # 不在移動中的情況下
    
93.     unless moving?
    
94.       # 上次主角移動中的情況
    
95.       if last_moving
    
96.         # 與同位置的事件接觸就判定為事件啟動
    
97.         result = check_event_trigger_here([1,2])
    
98.         # 沒有可以啟動的事件的情況下
    
99.         if result == false
    
100.           # 偵錯模式為 ON 並且按下 CTRL 鍵的情況下除外
     
101.           unless $DEBUG and Input.press?(Input::CTRL)
     
102.             # 遇敵計數下降
     
103.             if @encounter_count > 0
     
104.               if $dis_encounter > 0
     
105.                 $dis_encounter -= 1
     
106.               elsif $muti_encounter > 0
     
107.                 @encounter_count = [@encounter_count-$muti_times,0].max
     
108.                 $muti_encounter -= 1
     
109.               else
     
110.                 @encounter_count -= 1
     
111.               end
     
112.               p @encounter_count
     
113.             end
     
114.           end
     
115.         end
     
116.       end
     
117.       # 按下 C 鍵的情況下
     
118.       if Input.trigger?(Input::C)
     
119.         # 判定為同位置以及正面的事件啟動
     
120.         check_event_trigger_here([0])
     
121.         check_event_trigger_there([0,1,2])
     
122.       end
     
123.     end
     
124.   end
     
125. end
     

复制代码

Wind2010

狂魔香的话……
Game_Player里面查找
@encounter_count -= 1
改成-=2就可以了……吧……

亿万星辰

这个要考虑明雷和暗雷
暗雷的话难点主要在增加遇敌几率方面。
明雷的设置更容易了

精灵使者

狂魔香：增加遇敌的频率……而且解除驱魔香的状态（驱魔和狂魔可以互解）