[练手]事件执行条件扩展+独立变量

feizhaodan

嘛，前天昨天一直在和Ace的帮助文档瞪眼，看着看着对自己突然有种说不出来的不信感，所以写了这个脚本。

这个脚本的大体工作方法嘛，其实就是读取每页第一个事件指令，假如这个事件指令是注释，则按照内容来添加条件。

在注释内按照下面的格式输入，用“|”分开。大概可以用这些条件：
1，变量

1. 变量,id,num

复制代码

id输入要判断的变量ID，num输入是几以上。

2，开关

1. 开关,id,ft

复制代码

id输入要判断的开关ID，ft输入开启关闭状态（true为开启，false为关闭）如果省略则为true

3，独立开关

1. 独立开关,type,tf

复制代码

type输入药判断的独立开关，用A-D的英文大写字母。tf同上。

4，角色

1. 角色,id,tf

复制代码

ID输入要判断是否在队伍内的角色ID，tf输入要判定是在(true)还是不在(false)

5，物品

1. 物品,id,num

复制代码

ID输入要判定的道具ID，num输入时几以上。若省略为则1

6，独立变量

1. 独立变量,type,num

复制代码

type输入要判定的独立变量类型，用A-D的英文大写字母。num为判定几以上。

独立变量：
一个新的类，可以在保存在存档内，操作时使用一下的命令，在事件指令第三页中的脚本输入：
1，设置值

1. self_vary_control(key,num)

复制代码

key输入独立变量类型，使用A-D的英文大写字母，用""包上。
num输入要代入的值。

2，增加值

1. self_vary_plus(key, num)

复制代码

key同上，
num输入要增加的值。

3，减少值

1. self_vary_minus(key, num)

复制代码

key同上，
num输入要减少的值。

4，获取值

1. self_vary(key)

复制代码

key同上，用这个来获取该独立变量的值，用于条件分歧等。

最后上脚本：

1. module RPG
   
2.   class Event
   
3.     class Page
   
4.       class Condition
   
5.         alias extra_condition_initialize initialize
   
6.         def initialize
   
7.           extra_condition_initialize
   
8.           @extra_condition = []
   
9.         end
   
10.         attr_accessor :extra_condition
    
11.       end
    
12.     end
    
13.   end
    
14. end
    
15. module RPG
    
16.   class Event
    
17.     class Page
    
18.       def get_extra_conditions
    
19.         @condition.extra_condition = []
    
20.         i = 0
    
21.         loop do
    
22.           break if @list[i].code != 108
    
23.           note = @list[i].parameters
    
24.           note.each{|arr|
    
25.           arr.each_line{|line|
    
26.           line.split(/\|/).each{|str|
    
27.           pa = str.split(/\,/)
    
28.           case pa[0]
    
29.           when "角色"
    
30.             pa[2] = pa[2] == "false" ? false : true
    
31.             @condition.extra_condition.push(["actor",pa[1].to_i, pa[2]])
    
32.           when "变量"
    
33.             @condition.extra_condition.push(["var",pa[1].to_i,pa[2].to_i])
    
34.           when "开关"
    
35.             pa[2] = pa[2] == "false" ? false : true
    
36.             @condition.extra_condition.push(["swi",pa[1].to_i,pa[2]])
    
37.           when "独立开关"
    
38.             pa[2] = pa[2] == "false" ? false : true
    
39.             @condition.extra_condition.push(["seswi",pa[1],pa[2]])
    
40.           when "独立变量"
    
41.             @condition.extra_condition.push(["sevar",pa[1],pa[2].to_i])
    
42.           when "物品"
    
43.             pa[2] = pa[2] == nil ? 1 : pa[2]
    
44.             @condition.extra_condition.push(["item",pa[1].to_i,pa[2].to_i])
    
45.           end
    
46.           }
    
47.           }
    
48.           }
    
49.           i += 1
    
50.         end
    
51.       end
    
52.     end
    
53.   end
    
54. end
    
55. #==============================================================================
    
56. # ■ Game_SelfVariables
    
57. #------------------------------------------------------------------------------
    
58. # 　处理独立开关的类。编入的是类 Hash 的外壳。本类的实例请参考 $game_self_variables
    
59. #==============================================================================
    
60. 
    
61. class Game_SelfVaribales
    
62.   #--------------------------------------------------------------------------
    
63.   # ● 初始化对像
    
64.   #--------------------------------------------------------------------------
    
65.   def initialize
    
66.     @data = {}
    
67.   end
    
68.   #--------------------------------------------------------------------------
    
69.   # ● 获取独立变量
    
70.   #     key : 键
    
71.   #--------------------------------------------------------------------------
    
72.   def [](key)
    
73.     return @data[key] == nil ? 0 : @data[key]
    
74.   end
    
75.   #--------------------------------------------------------------------------
    
76.   # ● 设置独立变量
    
77.   #     key   : 键
    
78.   #     value : 值
    
79.   #--------------------------------------------------------------------------
    
80.   def []=(key, value)
    
81.     @data[key] = value
    
82.   end
    
83. end
    
84. #==============================================================================
    
85. # ■ Game_Interpreter
    
86. #------------------------------------------------------------------------------
    
87. # 　执行事件命令的解释器。本类在 Game_Map 类、Game_Troop 类、与
    
88. # Game_Event 类的内部使用。
    
89. #==============================================================================
    
90. 
    
91. class Game_Interpreter
    
92.   def self_vary_control(key, num)
    
93.     if @original_event_id > 0
    
94.       keys = [@map_id, @original_event_id, key]
    
95.       $game_self_variables[keys] = num
    
96.     end
    
97.     $game_map.need_refresh = true
    
98.     return true
    
99.   end
    
100.   def self_vary_plus(key, num)
     
101.     if @original_event_id > 0
     
102.       keys = [@map_id, @original_event_id, key]
     
103.       n = $game_self_variables[keys] + num
     
104.       $game_self_variables[keys] = n
     
105.     end
     
106.     $game_map.need_refresh = true
     
107.     return true
     
108.   end
     
109.   def self_vary_minus(key, num)
     
110.     if @original_event_id > 0
     
111.       keys = [@map_id, @original_event_id, key]
     
112.       n = $game_self_variables[keys] - num
     
113.       $game_self_variables[keys] = n
     
114.     end
     
115.     $game_map.need_refresh = true
     
116.     return true
     
117.   end
     
118.   def self_vary(key)
     
119.     if @original_event_id > 0
     
120.       keys = [@map_id, @original_event_id, key]
     
121.       num = $game_self_variables[keys]
     
122.     end
     
123.     return num == nil ? 0 : num
     
124.   end
     
125. end
     
126. #==============================================================================
     
127. # ■ Scene_Title
     
128. #------------------------------------------------------------------------------
     
129. # 　处理标题画面的类。
     
130. #==============================================================================
     
131. 
     
132. class Scene_Title < Scene_Base
     
133.   alias self_variable_create_game_objects create_game_objects
     
134.   #--------------------------------------------------------------------------
     
135.   # ● 生成各种游戏对象
     
136.   #--------------------------------------------------------------------------
     
137.   def create_game_objects
     
138.     $game_self_variables = Game_SelfVaribales.new
     
139.     self_variable_create_game_objects
     
140.   end
     
141. end
     
142. #==============================================================================
     
143. # ■ Scene_File
     
144. #------------------------------------------------------------------------------
     
145. # 　存档画面及读档画面的类。
     
146. #==============================================================================
     
147. 
     
148. class Scene_File < Scene_Base
     
149.   alias self_variable_write_save_data write_save_data
     
150.   #--------------------------------------------------------------------------
     
151.   # ● 写入存档数据
     
152.   #     file : 写入存档对象（已开启）
     
153.   #--------------------------------------------------------------------------
     
154.   def write_save_data(file)
     
155.     self_variable_write_save_data(file)
     
156.     Marshal.dump($game_self_variables,  file)
     
157.   end
     
158.   alias self_variable_read_save_data read_save_data
     
159.   #--------------------------------------------------------------------------
     
160.   # ● 读出存档数据
     
161.   #     file : 读出存档对象（已开启）
     
162.   #--------------------------------------------------------------------------
     
163.   def read_save_data(file)
     
164.     self_variable_read_save_data(file)
     
165.     $game_self_variables  = Marshal.load(file)
     
166.   end
     
167. end
     
168. #==============================================================================
     
169. # ■ Game_Event
     
170. #------------------------------------------------------------------------------
     
171. # 　处理事件的类。条件判断、事件页的切换、并行处理、执行事件功能
     
172. # 在 Game_Map 类的内部使用。
     
173. #==============================================================================
     
174. 
     
175. class Game_Event < Game_Character
     
176.   alias extra_conditions_conditions_met? conditions_met?
     
177.   #--------------------------------------------------------------------------
     
178.   # ● 判断事件页出现条件
     
179.   #--------------------------------------------------------------------------
     
180.   def conditions_met?(page)
     
181.     result = extra_conditions_conditions_met?(page)
     
182.     return false if result == false
     
183.     page.get_extra_conditions
     
184.     c = page.condition.extra_condition
     
185.     for con in c
     
186.       case con[0]
     
187.       when "actor"
     
188.         actor = $game_actors[con[1]]
     
189.         if $game_party.members.include?(actor) != con[2]
     
190.           result = false
     
191.           break
     
192.         end
     
193.       when "var"
     
194.         vari = $game_variables[con[1]]
     
195.         if vari < con[2]
     
196.           result = false
     
197.           break
     
198.         end
     
199.       when "swi"
     
200.         swi = $game_switches[con[1]]
     
201.         if swi != con[2]
     
202.           result = false
     
203.           break
     
204.         end
     
205.       when "seswi"
     
206.         key = [@map_id, @event.id, con[1]]
     
207.         seswi = $game_self_switches[key]
     
208.         if seswi != con[2]
     
209.           result = false
     
210.           break
     
211.         end
     
212.       when "item"
     
213.         item = $game_party.item_number($data_items[con[1]])
     
214.         if item < con[2]
     
215.           result = false
     
216.           break
     
217.         end
     
218.       when "sevar"
     
219.         key = [@map_id, @event.id, con[1]]
     
220.         sevar = $game_self_variables[key]
     
221.         if sevar < con[2]
     
222.           result = false
     
223.           break
     
224.         end
     
225.       end
     
226.     end
     
227.     return result
     
228.   end
     
229. end
     

复制代码