Project1

标题: 探查技能加强 [打印本页]

---

作者: 雪流星    时间: 2008-1-27 16:17
标题: 探查技能加强
其实也没什麽，也就是把这个脚本加强了功能而已

http://rpg.blue/web/htm/news935.htm

   加强部分：
   1. 敌人的属性为[王]的话，HP和SP不会显示，直到HP少於一半才会显示。
      [王]的属性ID为夹在自然属性和种族属性中间的属性
   2. 用变数做技能等级，可以直接用事件升级、降级。
   3. 可以设置不同能力所需要的等级。等级不够时显示为????。

原作者：绿发的Eclair

1. 
   
2. #==============================================================================
   
3. #   探查技能  BY绿发的Eclair
   
4. #------------------------------------------------------------------------------  
   
5. #   使用方法：在数据库中设定一个叫“探查”的状态(想要用别的名字在下面改啦~)
   
6. #   然后把想要做成有探查效果的特技或物品附加这个状态。就这样简单~~
   
7. #   修改自然属性的个数在第16行。
   
8. #==============================================================================
   
9. #   探查技能加强  BY snstar2006
   
10. #------------------------------------------------------------------------------  
    
11. #   加强部分：
    
12. #   1. 敌人的属性为[王]的话，HP和SP不会显示，直到HP少於一半才会显示。
    
13. #      [王]的属性ID为夹在自然属性和种族属性中间的属性
    
14. #   2. 用变数做技能等级，可以直接用事件升级、降级。
    
15. #   3. 可以设置不同能力所需要的等级。等级不够时显示为????。
    
16. #==============================================================================
    
17. $探查状态名 = "探查"         # 探查状态的名字
    
18. $eye_level = 1               # 探查技能等级的变数ID
    
19. 
    
20. # 探查能力的等级
    
21. $eye_level_ability = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
    
22. # 依次为:
    
23. # 0->名称 、1->HP+SP、2->HP+SP Max、3->种族、
    
24. # 4->经验 、5->金钱 、6->掉落物   、7->攻击、
    
25. # 8->物防 、9->魔防 、10->力量    、11->灵巧、
    
26. # 12->速度、13->魔力、14->属性有效度
    
27. 
    
28. $text_4_unknown = "????" # 未知时的文字
    
29. 
    
30. class Window_cateyes < Window_Base
    
31.   def initialize
    
32.     super(120,40,400,400)
    
33.     self.contents = Bitmap.new(width - 32, height - 32)
    
34.     self.visible = false
    
35.     self.z = 9999
    
36.     self.back_opacity = 160  #信息窗口的透明度
    
37.     @element          = 8    #自然属性个数
    
38.   end
    
39.   def set_target(target)
    
40.     self.contents.clear
    
41.     self.visible = true
    
42.     @target = target
    
43.    
    
44.     # 检验是否显示HP/SP
    
45.     if @target.element_rate(@element+1) > 100
    
46.       if (@target.hp)<=(@target.maxhp/2)
    
47.         @show_hsp = true
    
48.       else
    
49.         @show_hsp = false
    
50.       end
    
51.     else
    
52.       @show_hsp = true
    
53.     end
    
54.    
    
55.     if $game_variables[$eye_level] >= $eye_level_ability[0]
    
56.       self.contents.draw_text(10,10,360-32,32,"#{@target.name}",0)
    
57.     else
    
58.       self.contents.draw_text(10,10,360-32,32,$text_4_unknown,0)
    
59.     end
    
60.         
    
61.     # 描绘HP
    
62.     draw_actor_hp(@target,10,100 - 32 - 25,160)
    
63.     # 描绘SP
    
64.     draw_actor_sp(@target,10,100 - 32,160)
    
65.    
    
66.     # 描绘种族
    
67.     self.contents.font.color = system_color
    
68.     self.contents.draw_text(10,100,180,32,"种族",0)
    
69.     self.contents.font.color = normal_color
    
70.     for i in @element + 2..$data_system.elements.size - 1
    
71.       if @target.element_rate(i) > 100
    
72.         race = $data_system.elements[i]
    
73.         break
    
74.       end
    
75.     end
    
76.     if $game_variables[$eye_level] >= $eye_level_ability[3]
    
77.       self.contents.draw_text(70,100,100,32,race,2)
    
78.     else
    
79.       self.contents.draw_text(70,100,100,32,$text_4_unknown,2)
    
80.     end
    
81.    
    
82.     # 目标是敌方角色的场合
    
83.     if @target.is_a?(Game_Enemy)
    
84.       # 描绘经验
    
85.       self.contents.font.color = system_color  
    
86.       self.contents.draw_text(190,100 - 32 - 25,180-32,32,"经验",0)
    
87.       self.contents.font.color = normal_color
    
88.       if $game_variables[$eye_level] >= $eye_level_ability[4]
    
89.         self.contents.draw_text(190,100 - 32 - 25,180 - 32,32,"#{@target.exp}",2)
    
90.       else
    
91.         self.contents.draw_text(190,100 - 32 - 25,180 - 32,32,$text_4_unknown,2)
    
92.       end
    
93.       # 描绘金钱
    
94.       self.contents.font.color = system_color  
    
95.       self.contents.draw_text(190,100 - 32 ,180-32,32,$data_system.words.gold,0)
    
96.       self.contents.font.color = normal_color
    
97.       if $game_variables[$eye_level] >= $eye_level_ability[5]
    
98.         self.contents.draw_text(190,100 - 32,180-32,32,"#{@target.gold}",2)
    
99.       else
    
100.         self.contents.draw_text(190,100 - 32,180-32,32,$text_4_unknown,2)
     
101.       end
     
102.       # 描绘掉落物
     
103.       self.contents.font.color = system_color  
     
104.       self.contents.draw_text(190,100 ,180,32,"掉落",0)
     
105.       self.contents.font.color = normal_color
     
106.       if $game_variables[$eye_level] >= $eye_level_ability[6]
     
107.         draw_item_name($data_items[@target.item_id],197,57 + 25 + 25 + 25) if @target.item_id > 0
     
108.         draw_item_name($data_weapons[@target.weapon_id],197,57 + 25 + 25 + 25) if @target.weapon_id > 0
     
109.         draw_item_name($data_armors[@target.armor_id],197,57 + 25 + 25 + 25) if @target.armor_id > 0
     
110.       else
     
111.         self.contents.draw_text(197,57 + 75,180-32,32,$text_4_unknown,2)
     
112.       end
     
113.     end
     
114.    
     
115.     # 描绘攻击
     
116.     if $game_variables[$eye_level] >= $eye_level_ability[7]
     
117.       draw_actor_parameter(@target, 10, 112 + 20, 0)
     
118.     else
     
119.       draw_actor_parameter_u(10, 112 + 20, 0)
     
120.     end
     
121.     # 描绘物理防御
     
122.     if $game_variables[$eye_level] >= $eye_level_ability[8]
     
123.       draw_actor_parameter(@target, 10, 144 + 20, 1)
     
124.     else
     
125.       draw_actor_parameter_u(10, 144 + 20, 1)
     
126.     end
     
127.     # 描绘魔法防御
     
128.     if $game_variables[$eye_level] >= $eye_level_ability[9]
     
129.       draw_actor_parameter(@target, 10, 176 + 20, 2)
     
130.     else
     
131.       draw_actor_parameter_u(10, 176 + 20, 2)
     
132.     end
     
133.     # 描绘力量
     
134.     if $game_variables[$eye_level] >= $eye_level_ability[10]
     
135.       draw_actor_parameter(@target, 10, 208 + 20, 3)
     
136.     else
     
137.       draw_actor_parameter_u(10, 208 + 20, 3)
     
138.     end
     
139.     # 描绘灵巧
     
140.     if $game_variables[$eye_level] >= $eye_level_ability[11]
     
141.       draw_actor_parameter(@target, 10, 240 + 20, 4)
     
142.     else
     
143.       draw_actor_parameter_u(10, 240 + 20, 4)
     
144.     end
     
145.     # 描绘速度
     
146.     if $game_variables[$eye_level] >= $eye_level_ability[12]
     
147.       draw_actor_parameter(@target, 10, 272 + 20, 5)
     
148.     else
     
149.       draw_actor_parameter_u(10, 272 + 20, 5)
     
150.     end
     
151.     # 描绘魔力
     
152.     if $game_variables[$eye_level] >= $eye_level_ability[13]
     
153.       draw_actor_parameter(@target, 10, 304 + 20, 6)
     
154.     else
     
155.       draw_actor_parameter_u(10, 304 + 20, 6)
     
156.     end
     
157.    
     
158.     # 描绘属性抵抗度
     
159.     self.contents.font.color = system_color
     
160.     self.contents.draw_text(190,153 + 12,180,32,"属性抵抗",0)
     
161.     self.contents.font.color = normal_color
     
162.     num = @element_max == 0 ? $data_system.elements.size : @element_max
     
163.     y = 0
     
164.     weaker = ""
     
165.     weak = ""
     
166.     resist = ""
     
167.     guard = ""
     
168.     recover = ""
     
169.     race = ""
     
170.     for i in 1..@element
     
171.       case @target.element_rate(i)
     
172.       when 151..200
     
173.         weaker += $data_system.elements[i]
     
174.       when 101..150
     
175.         weak +=   $data_system.elements[i]
     
176.       when 1..99
     
177.         resist += $data_system.elements[i]
     
178.       when 0
     
179.         guard += $data_system.elements[i]
     
180.       when -200..-1
     
181.         recover += $data_system.elements[i]
     
182.       end
     
183.     end
     
184.     if $game_variables[$eye_level] >= $eye_level_ability[14]
     
185.       if weaker != ""
     
186.         weaker += "超弱"
     
187.         self.contents.draw_text(190,153 + 32+ 12,180,32,weaker,0)
     
188.         y += 1
     
189.       end
     
190.       if weak != ""
     
191.         weak += "弱点"
     
192.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,weak,0)
     
193.         y += 1
     
194.       end
     
195.       if resist != ""
     
196.         resist += "抵抗"
     
197.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,resist,0)
     
198.         y += 1
     
199.       end
     
200.       if guard != ""
     
201.         guard += "无效"
     
202.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,guard,0)
     
203.         y += 1
     
204.       end
     
205.       if recover != ""
     
206.         recover += "吸收"
     
207.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,recover,0)
     
208.       end
     
209.     else
     
210.       self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,$text_4_unknown,0)
     
211.     end
     
212.    
     
213.   end
     
214.   def draw_item_name(item, x, y)
     
215.     if item == nil
     
216.       return
     
217.     end
     
218.     bitmap = RPG::Cache.icon(item.icon_name)
     
219.     self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24))
     
220.     self.contents.font.color = normal_color
     
221.     self.contents.draw_text(x + 28, y, 150, 32, item.name)
     
222.   end
     
223.   
     
224.   def draw_actor_parameter_u(x, y, type)
     
225.     case type
     
226.     when 0
     
227.       parameter_name = $data_system.words.atk
     
228.     when 1
     
229.       parameter_name = $data_system.words.pdef
     
230.     when 2
     
231.       parameter_name = $data_system.words.mdef
     
232.     when 3
     
233.       parameter_name = $data_system.words.str
     
234.     when 4
     
235.       parameter_name = $data_system.words.dex
     
236.     when 5
     
237.       parameter_name = $data_system.words.agi
     
238.     when 6
     
239.       parameter_name = $data_system.words.int
     
240.     end
     
241.     self.contents.font.color = system_color
     
242.     self.contents.draw_text(x, y, 120, 32, parameter_name)
     
243.     self.contents.font.color = normal_color
     
244.     self.contents.draw_text(x + 120, y, 36, 32, $text_4_unknown, 2)
     
245.   end
     
246.   def draw_actor_hp(actor, x, y, width = 144)
     
247.     # Draw "HP" text string
     
248.     self.contents.font.color = system_color
     
249.     self.contents.draw_text(x, y, 32, 32, $data_system.words.hp)
     
250.     # Calculate if there is draw space for MaxHP
     
251.     if width - 32 >= 108
     
252.       hp_x = x + width - 108
     
253.       flag = true
     
254.     elsif width - 32 >= 48
     
255.       hp_x = x + width - 48
     
256.       flag = false
     
257.     end
     
258.     # Draw HP
     
259.     self.contents.font.color = actor.hp == 0 ? knockout_color :
     
260.       actor.hp <= actor.maxhp / 4 ? crisis_color : normal_color
     
261.     if $game_variables[$eye_level] >= $eye_level_ability[1] and @show_hsp
     
262.       self.contents.draw_text(hp_x, y, 48, 32, actor.hp.to_s, 2)
     
263.     else
     
264.       self.contents.draw_text(hp_x, y, 48, 32, $text_4_unknown, 2)
     
265.     end
     
266.     # Draw MaxHP
     
267.     if flag
     
268.       self.contents.font.color = normal_color
     
269.       self.contents.draw_text(hp_x + 48, y, 12, 32, "/", 1)
     
270.       if $game_variables[$eye_level] >= $eye_level_ability[2] and @show_hsp
     
271.         self.contents.draw_text(hp_x + 60, y, 48, 32, actor.maxhp.to_s)
     
272.       else
     
273.         self.contents.draw_text(hp_x + 60, y, 48, 32, $text_4_unknown)
     
274.       end
     
275.     end
     
276.   end
     
277.   def draw_actor_sp(actor, x, y, width = 144)
     
278.     # Draw "SP" text string
     
279.     self.contents.font.color = system_color
     
280.     self.contents.draw_text(x, y, 32, 32, $data_system.words.sp)
     
281.     # Calculate if there is draw space for MaxHP
     
282.     if width - 32 >= 108
     
283.       sp_x = x + width - 108
     
284.       flag = true
     
285.     elsif width - 32 >= 48
     
286.       sp_x = x + width - 48
     
287.       flag = false
     
288.     end
     
289.     # Draw SP
     
290.     self.contents.font.color = actor.sp == 0 ? knockout_color :
     
291.     actor.sp <= actor.maxsp / 4 ? crisis_color : normal_color
     
292.     if $game_variables[$eye_level] >= $eye_level_ability[1] and @show_hsp
     
293.       self.contents.draw_text(sp_x, y, 48, 32, actor.sp.to_s, 2)
     
294.     else
     
295.       self.contents.draw_text(sp_x, y, 48, 32, $text_4_unknown, 2)
     
296.     end
     
297.     # Draw MaxSP
     
298.     if flag
     
299.       self.contents.font.color = normal_color
     
300.       self.contents.draw_text(sp_x + 48, y, 12, 32, "/", 1)
     
301.       if $game_variables[$eye_level] >= $eye_level_ability[2] and @show_hsp
     
302.         self.contents.draw_text(sp_x + 60, y, 48, 32, actor.maxsp.to_s)
     
303.       else
     
304.         self.contents.draw_text(sp_x + 60, y, 48, 32, $text_4_unknown)
     
305.       end
     
306.     end
     
307.   end
     
308. end
     
309. class Scene_Battle
     
310.   alias update_phase4_step5_eclair2 :update_phase4_step5
     
311.   def update_phase4_step5
     
312.     for i in 1..$data_states.size - 1
     
313.       if $data_states[i].name == $探查状态名
     
314.         $探查状态ID = i
     
315.         break
     
316.       end
     
317.     end
     
318.     if (@active_battler.current_action.kind == 1 and $data_skills[@active_battler.current_action.skill_id].plus_state_set.include?($探查状态ID)) or (@active_battler.current_action.kind == 2 and $data_items[@active_battler.current_action.skill_id].plus_state_set.include?($探查状态ID))
     
319.       @eye_window = Window_cateyes.new
     
320.     for target in @target_battlers
     
321.     target.damage = ""
     
322.     @eye_window.set_target(target)
     
323.     for i in 0...120
     
324.     Input.update
     
325.     @eye_window.update
     
326.     Graphics.update
     
327.     @spriteset.update
     
328.     if Input.trigger?(Input::C) or Input.trigger?(Input::B)
     
329.     $game_system.se_play($data_system.decision_se)
     
330.     break  
     
331.     end
     
332.     end
     
333.   end
     
334.     @eye_window.dispose
     
335.     @eye_window = nil
     
336. end
     
337.     update_phase4_step5_eclair2
     
338.   end
     
339. end  
     
340. #==============================================================================
     
341. #   探查技能  BY绿发的Eclair
     
342. #   加強      BY snstar2006
     
343. #==============================================================================
     

复制代码

---

作者: superufo    时间: 2008-1-27 17:21
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 雪流星    时间: 2008-1-27 17:49
是绿发的脚本没错（我可是有标明原作者喔！！）
我只是加了一些分岐，让它有等级的效果而已

---

作者: superufo    时间: 2008-1-27 18:17
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 雪流星    时间: 2008-1-27 19:32
多谢LS的提醒，已经修改好了
不过因为我正在把那个脚本和其他脚本整合在一起
所以晚些在贴上来

---

作者: Eclair    时间: 2008-1-28 03:07
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 雪流星    时间: 2008-1-28 03:43
哇～～原作者出现了{/qiao}

现在要战战兢兢的改了{/fendou}

我现在正在把这个脚本和另外一个稍微有冲突的脚本整合

呃～还有就是现在正在改绿发的另一个脚本{/tp}

飞飞…（消失中）

---

作者: 雪流星    时间: 2008-1-30 07:55
完成！！
探查＋偷窃＋四格掉宝

可探查怪物身上所能偷窃的宝物，不能被偷窃的宝物用四格掉宝来掉

探查与偷窃部分是修改绿发的脚本
掉宝部分是修改SailCat大的脚本

探查部分：

1. #==============================================================================
   
2. #   探查技能  BY绿发的Eclair
   
3. #------------------------------------------------------------------------------  
   
4. #   使用方法：在数据库中设定一个叫“探查”的状态(想要用别的名字在下面改啦~)
   
5. #   然后把想要做成有探查效果的特技或物品附加这个状态。就这样简单~~
   
6. #   修改自然属性的个数在第16行。
   
7. #==============================================================================
   
8. #   探查技能加强  BY snstar2006
   
9. #------------------------------------------------------------------------------  
   
10. #   加强部分：
    
11. #   1. 敌人的属性为[王]的话，HP和SP不会显示，直到HP少於一半才会显示。
    
12. #   2. 用变数做技能等级，可以直接用事件升级、降级。
    
13. #   3. 可以设置不同能力所需要的等级。等级不够时显示为????。
    
14. #   4. 设置为四格掉宝内的宝物看不见。
    
15. #==============================================================================
    
16. $探查状态名 = "探查"         # 探查状态的名字
    
17. $eye_level = 1               # 探查技能等级的变数ID
    
18. 
    
19. $头目属性名 = "王"
    
20. 
    
21. # 探查能力的等级
    
22. $eye_level_ability = [0, 1, 2, 3, 4, 5, 0, 7, 8, 9, 10, 11, 12, 13, 14]
    
23. # 依次为:
    
24. # 0->名称 、1->HP+SP、2->HP+SP Max、3->种族、
    
25. # 4->经验 、5->金钱 、6->掉落物   、7->攻击、
    
26. # 8->物防 、9->魔防 、10->力量    、11->灵巧、
    
27. # 12->速度、13->魔力、14->属性有效度
    
28. 
    
29. $text_4_unknown = "????" # 未知时的文字
    
30. 
    
31. class Window_cateyes < Window_Base
    
32.   def initialize
    
33.     super(120,40,400,400)
    
34.     self.contents = Bitmap.new(width - 32, height - 32)
    
35.     self.visible = false
    
36.     self.z = 9999
    
37.     self.back_opacity = 160  #信息窗口的透明度
    
38.     @element          = 8    #自然属性个数
    
39.     @race             = 8
    
40.   end
    
41.   def set_target(target)
    
42.     self.contents.clear
    
43.     self.visible = true
    
44.     @target = target
    
45.    
    
46.     if $game_variables[$eye_level] >= $eye_level_ability[0]
    
47.       self.contents.draw_text(10,10,360-32,32,"#{@target.name}",0)
    
48.     else
    
49.       self.contents.draw_text(10,10,360-32,32,$text_4_unknown,0)
    
50.     end
    
51.         
    
52.    
    
53.     # 描绘种族
    
54.     self.contents.font.color = system_color
    
55.     self.contents.draw_text(10,100,180,32,"种族",0)
    
56.     self.contents.font.color = normal_color
    
57.     for i in @element + 1..@element+1+@race
    
58.       if @target.element_rate(i) > 100
    
59.         race = $data_system.elements[i]
    
60.         break
    
61.       end
    
62.     end
    
63.    
    
64.     # 獲取是否為頭目
    
65.     for i in @element + 2 + @race..$data_system.elements.size
    
66.       unless $data_system.elements[i] == $头目属性名
    
67.         # 检验是否显示HP/SP
    
68.         if (@target.hp)<=(@target.maxhp/2)
    
69.           @show_hsp = true
    
70.         else
    
71.           @show_hsp = false
    
72.         end
    
73.       else
    
74.         @show_hsp = true
    
75.       end
    
76.     end
    
77.    
    
78.     # 描绘HP
    
79.     draw_actor_hp(@target,10,100 - 32 - 25,160)
    
80.     # 描绘SP
    
81.     draw_actor_sp(@target,10,100 - 32,160)
    
82.    
    
83.    
    
84.     if $game_variables[$eye_level] >= $eye_level_ability[3]
    
85.       self.contents.draw_text(70,100,100,32,race,2)
    
86.     else
    
87.       self.contents.draw_text(70,100,100,32,$text_4_unknown,2)
    
88.     end
    
89.    
    
90.     # 目标是敌方角色的场合
    
91.     if @target.is_a?(Game_Enemy)
    
92.       # 描绘经验
    
93.       self.contents.font.color = system_color  
    
94.       self.contents.draw_text(190,100 - 32 - 25,180-32,32,"经验",0)
    
95.       self.contents.font.color = normal_color
    
96.       if $game_variables[$eye_level] >= $eye_level_ability[4]
    
97.         self.contents.draw_text(190,100 - 32 - 25,180 - 32,32,"#{@target.exp}",2)
    
98.       else
    
99.         self.contents.draw_text(190,100 - 32 - 25,180 - 32,32,$text_4_unknown,2)
    
100.       end
     
101.       # 描绘金钱
     
102.       self.contents.font.color = system_color  
     
103.       self.contents.draw_text(190,100 - 32 ,180-32,32,$data_system.words.gold,0)
     
104.       self.contents.font.color = normal_color
     
105.       if $game_variables[$eye_level] >= $eye_level_ability[5]
     
106.         self.contents.draw_text(190,100 - 32,180-32,32,"#{@target.gold}",2)
     
107.       else
     
108.         self.contents.draw_text(190,100 - 32,180-32,32,$text_4_unknown,2)
     
109.       end
     
110.       # 描绘掉落物
     
111.       self.contents.font.color = system_color  
     
112.       self.contents.draw_text(190,100 ,180,32,"携带",0)
     
113.       self.contents.font.color = normal_color
     
114.       if $game_variables[$eye_level] >= $eye_level_ability[6]
     
115.         if (target.item_id > 0 or target.weapon_id != 0 or target.armor_id != 0)
     
116.           draw_item_name($data_items[@target.item_id],197,57 + 25 + 25 + 25) if @target.item_id > 0
     
117.           draw_item_name($data_weapons[@target.weapon_id],197,57 + 25 + 25 + 25) if @target.weapon_id > 0
     
118.           draw_item_name($data_armors[@target.armor_id],197,57 + 25 + 25 + 25) if @target.armor_id > 0
     
119.         else
     
120.           self.contents.draw_text(190,57+75,180-32,32,"无",2)
     
121.         end
     
122.       else
     
123.         self.contents.draw_text(197,57 + 75,180-32,32,$text_4_unknown,2)
     
124.       end
     
125.     end
     
126.    
     
127.     # 描绘攻击
     
128.     if $game_variables[$eye_level] >= $eye_level_ability[7]
     
129.       draw_actor_parameter(@target, 10, 112 + 20, 0)
     
130.     else
     
131.       draw_actor_parameter_u(10, 112 + 20, 0)
     
132.     end
     
133.     # 描绘物理防御
     
134.     if $game_variables[$eye_level] >= $eye_level_ability[8]
     
135.       draw_actor_parameter(@target, 10, 144 + 20, 1)
     
136.     else
     
137.       draw_actor_parameter_u(10, 144 + 20, 1)
     
138.     end
     
139.     # 描绘魔法防御
     
140.     if $game_variables[$eye_level] >= $eye_level_ability[9]
     
141.       draw_actor_parameter(@target, 10, 176 + 20, 2)
     
142.     else
     
143.       draw_actor_parameter_u(10, 176 + 20, 2)
     
144.     end
     
145.     # 描绘力量
     
146.     if $game_variables[$eye_level] >= $eye_level_ability[10]
     
147.       draw_actor_parameter(@target, 10, 208 + 20, 3)
     
148.     else
     
149.       draw_actor_parameter_u(10, 208 + 20, 3)
     
150.     end
     
151.     # 描绘灵巧
     
152.     if $game_variables[$eye_level] >= $eye_level_ability[11]
     
153.       draw_actor_parameter(@target, 10, 240 + 20, 4)
     
154.     else
     
155.       draw_actor_parameter_u(10, 240 + 20, 4)
     
156.     end
     
157.     # 描绘速度
     
158.     if $game_variables[$eye_level] >= $eye_level_ability[12]
     
159.       draw_actor_parameter(@target, 10, 272 + 20, 5)
     
160.     else
     
161.       draw_actor_parameter_u(10, 272 + 20, 5)
     
162.     end
     
163.     # 描绘魔力
     
164.     if $game_variables[$eye_level] >= $eye_level_ability[13]
     
165.       draw_actor_parameter(@target, 10, 304 + 20, 6)
     
166.     else
     
167.       draw_actor_parameter_u(10, 304 + 20, 6)
     
168.     end
     
169.    
     
170.     # 描绘属性抵抗度
     
171.     self.contents.font.color = system_color
     
172.     self.contents.draw_text(190,153 + 12,180,32,"属性抵抗",0)
     
173.     self.contents.font.color = normal_color
     
174.     num = @element_max == 0 ? $data_system.elements.size : @element_max
     
175.     y = 0
     
176.     weaker = ""
     
177.     weak = ""
     
178.     resist = ""
     
179.     guard = ""
     
180.     recover = ""
     
181.     race = ""
     
182.     for i in 1..@element
     
183.       case @target.element_rate(i)
     
184.       when 151..200
     
185.         weaker += $data_system.elements[i]
     
186.       when 101..150
     
187.         weak +=   $data_system.elements[i]
     
188.       when 1..99
     
189.         resist += $data_system.elements[i]
     
190.       when 0
     
191.         guard += $data_system.elements[i]
     
192.       when -200..-1
     
193.         recover += $data_system.elements[i]
     
194.       end
     
195.     end
     
196.     if $game_variables[$eye_level] >= $eye_level_ability[14]
     
197.       if weaker != ""
     
198.         weaker += "超弱"
     
199.         self.contents.draw_text(190,153 + 32+ 12,180,32,weaker,0)
     
200.         y += 1
     
201.       end
     
202.       if weak != ""
     
203.         weak += "弱点"
     
204.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,weak,0)
     
205.         y += 1
     
206.       end
     
207.       if resist != ""
     
208.         resist += "抵抗"
     
209.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,resist,0)
     
210.         y += 1
     
211.       end
     
212.       if guard != ""
     
213.         guard += "无效"
     
214.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,guard,0)
     
215.         y += 1
     
216.       end
     
217.       if recover != ""
     
218.         recover += "吸收"
     
219.         self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,recover,0)
     
220.       end
     
221.     else
     
222.       self.contents.draw_text(190,153 + 32+ 12 + 32 * y,180,32,$text_4_unknown,0)
     
223.     end
     
224.    
     
225.   end
     
226.   def draw_item_name(item, x, y)
     
227.     if item == nil
     
228.       return
     
229.     end
     
230.     bitmap = RPG::Cache.icon(item.icon_name)
     
231.     self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24))
     
232.     self.contents.font.color = normal_color
     
233.     self.contents.draw_text(x + 28, y, 150, 32, item.name)
     
234.   end
     
235.   
     
236.   def draw_actor_parameter_u(x, y, type)
     
237.     case type
     
238.     when 0
     
239.       parameter_name = $data_system.words.atk
     
240.     when 1
     
241.       parameter_name = $data_system.words.pdef
     
242.     when 2
     
243.       parameter_name = $data_system.words.mdef
     
244.     when 3
     
245.       parameter_name = $data_system.words.str
     
246.     when 4
     
247.       parameter_name = $data_system.words.dex
     
248.     when 5
     
249.       parameter_name = $data_system.words.agi
     
250.     when 6
     
251.       parameter_name = $data_system.words.int
     
252.     end
     
253.     self.contents.font.color = system_color
     
254.     self.contents.draw_text(x, y, 120, 32, parameter_name)
     
255.     self.contents.font.color = normal_color
     
256.     self.contents.draw_text(x + 120, y, 36, 32, $text_4_unknown, 2)
     
257.   end
     
258.   def draw_actor_hp(actor, x, y, width = 144)
     
259.     # Draw "HP" text string
     
260.     self.contents.font.color = system_color
     
261.     self.contents.draw_text(x, y, 32, 32, $data_system.words.hp)
     
262.     # Calculate if there is draw space for MaxHP
     
263.     if width - 32 >= 108
     
264.       hp_x = x + width - 108
     
265.       flag = true
     
266.     elsif width - 32 >= 48
     
267.       hp_x = x + width - 48
     
268.       flag = false
     
269.     end
     
270.     # Draw HP
     
271.     self.contents.font.color = actor.hp == 0 ? knockout_color :
     
272.       actor.hp <= actor.maxhp / 4 ? crisis_color : normal_color
     
273.     if $game_variables[$eye_level] >= $eye_level_ability[1] and @show_hsp
     
274.       self.contents.draw_text(hp_x, y, 48, 32, actor.hp.to_s, 2)
     
275.     else
     
276.       self.contents.draw_text(hp_x, y, 48, 32, $text_4_unknown, 2)
     
277.     end
     
278.     # Draw MaxHP
     
279.     if flag
     
280.       self.contents.font.color = normal_color
     
281.       self.contents.draw_text(hp_x + 48, y, 12, 32, "/", 1)
     
282.       if $game_variables[$eye_level] >= $eye_level_ability[2] and @show_hsp
     
283.         self.contents.draw_text(hp_x + 60, y, 48, 32, actor.maxhp.to_s)
     
284.       else
     
285.         self.contents.draw_text(hp_x + 60, y, 48, 32, $text_4_unknown)
     
286.       end
     
287.     end
     
288.   end
     
289.   def draw_actor_sp(actor, x, y, width = 144)
     
290.     # Draw "SP" text string
     
291.     self.contents.font.color = system_color
     
292.     self.contents.draw_text(x, y, 32, 32, $data_system.words.sp)
     
293.     # Calculate if there is draw space for MaxHP
     
294.     if width - 32 >= 108
     
295.       sp_x = x + width - 108
     
296.       flag = true
     
297.     elsif width - 32 >= 48
     
298.       sp_x = x + width - 48
     
299.       flag = false
     
300.     end
     
301.     # Draw SP
     
302.     self.contents.font.color = actor.sp == 0 ? knockout_color :
     
303.     actor.sp <= actor.maxsp / 4 ? crisis_color : normal_color
     
304.     if $game_variables[$eye_level] >= $eye_level_ability[1] and @show_hsp
     
305.       self.contents.draw_text(sp_x, y, 48, 32, actor.sp.to_s, 2)
     
306.     else
     
307.       self.contents.draw_text(sp_x, y, 48, 32, $text_4_unknown, 2)
     
308.     end
     
309.     # Draw MaxSP
     
310.     if flag
     
311.       self.contents.font.color = normal_color
     
312.       self.contents.draw_text(sp_x + 48, y, 12, 32, "/", 1)
     
313.       if $game_variables[$eye_level] >= $eye_level_ability[2] and @show_hsp
     
314.         self.contents.draw_text(sp_x + 60, y, 48, 32, actor.maxsp.to_s)
     
315.       else
     
316.         self.contents.draw_text(sp_x + 60, y, 48, 32, $text_4_unknown)
     
317.       end
     
318.     end
     
319.   end
     
320. end
     
321. class Scene_Battle
     
322.   alias update_phase4_step5_eclair2 :update_phase4_step5
     
323.   def update_phase4_step5
     
324.     for i in 1..$data_states.size - 1
     
325.       if $data_states[i].name == $探查状态名
     
326.         $探查状态ID = i
     
327.         break
     
328.       end
     
329.     end
     
330.     if (@active_battler.current_action.kind == 1 and $data_skills[@active_battler.current_action.skill_id].plus_state_set.include?($探查状态ID)) or (@active_battler.current_action.kind == 2 and $data_items[@active_battler.current_action.skill_id].plus_state_set.include?($探查状态ID))
     
331.       @eye_window = Window_cateyes.new
     
332.     for target in @target_battlers
     
333.     target.damage = ""
     
334.     @eye_window.set_target(target)
     
335.     for i in 0...120
     
336.     Input.update
     
337.     @eye_window.update
     
338.     Graphics.update
     
339.     @spriteset.update
     
340.     if Input.trigger?(Input::C) or Input.trigger?(Input::B)
     
341.     $game_system.se_play($data_system.decision_se)
     
342.     break  
     
343.     end
     
344.     end
     
345.   end
     
346.     @eye_window.dispose
     
347.     @eye_window = nil
     
348. end
     
349.     update_phase4_step5_eclair2
     
350.   end
     
351. end  
     
352. #==============================================================================
     
353. #   探查技能  BY绿发的Eclair
     
354. #   加強      BY snstar2006
     
355. #==============================================================================
     

复制代码

掉宝部分：

1. #==============================================================================
   
2. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
   
3. #==============================================================================
   
4. 
   
5. # ============================================================================
   
6. # 四格掉宝设定 by SailCat
   
7. #          fix by snstar2006
   
8. # ============================================================================
   
9. # 脚本使用说明:
   
10. # 1.复制后插入到Main前面
    
11. # 2.数据库设定额外掉宝的概率，在敌人名称那里
    
12. #   格式: 敌人名称,宝物1,宝物2,宝物3,宝物4
    
13. #   宝物写法: (I|W|A)n 分别对应: n号道具，n号武器，n号防具 I W A必须大写
    
14. #   例: Cockatrice,A5,I5,W3
    
15. #       Fishman,I2,I3
    
16. #   三栏中任一栏留空不写时，取前一格的设定，全都不写时，就没有宝物。
    
17. # 3.186行是四格概率比设定，在那里填上4个数字就可以更改概率了，该行内容:
    
18. #         rarity = [178, 51, 15, 12]
    
19. # ============================================================================
    
20. # 修改部分：
    
21. # 1. 掉的宝物设置在敌人名称之後，设置4个
    
22. # 2. 默认的宝物栏用来当作偷窃用的「携带物」,不会掉落。
    
23. #--------------------------------------------------------------------------
    
24. # □ RPG::Enemy
    
25. #--------------------------------------------------------------------------
    
26. module RPG
    
27. class Enemy
    
28.    def name
    
29.      name = @name.split(/,/)[0]
    
30.      return name != nil ? name : ""
    
31.    end
    
32.    def treasure1
    
33.      treasure = @name.split(/,/)[1]
    
34.      return treasure.to_s
    
35.    end
    
36.    def treasure2
    
37.      treasure = @name.split(/,/)[2]
    
38.      return treasure.to_s
    
39.    end
    
40.    def treasure3
    
41.      treasure = @name.split(/,/)[3]
    
42.      return treasure.to_s
    
43.    end
    
44.    def treasure4
    
45.      treasure = @name.split(/,/)[4]
    
46.      return treasure.to_s
    
47.    end
    
48. end
    
49. end
    
50. 
    
51. #==============================================================================
    
52. # ■ Game_Enemy
    
53. #------------------------------------------------------------------------------
    
54. # 　处理敌人的类。本类在 Game_Troop 类 ($game_troop) 的
    
55. # 内部使用。
    
56. #==============================================================================
    
57. class Game_Enemy < Game_Battler
    
58. #--------------------------------------------------------------------------
    
59. # ● 获取物品 ID1
    
60. #--------------------------------------------------------------------------
    
61. def item1_id
    
62.    if $data_enemies[@enemy_id].treasure1 == ""
    
63.      return item_id
    
64.    elsif $data_enemies[@enemy_id].treasure1[0,1] != "I"
    
65.      return 0
    
66.    else
    
67.      return $data_enemies[@enemy_id].treasure1[/[0-9]+/].to_i
    
68.    end
    
69. end
    
70. #--------------------------------------------------------------------------
    
71. # ● 获取武器 ID1
    
72. #--------------------------------------------------------------------------
    
73. def weapon1_id
    
74.    if $data_enemies[@enemy_id].treasure1 == ""
    
75.      return weapon_id
    
76.    elsif $data_enemies[@enemy_id].treasure1[0,1] != "W"
    
77.      return 0
    
78.    else
    
79.      return $data_enemies[@enemy_id].treasure1[/[0-9]+/].to_i
    
80.    end
    
81. end
    
82. #--------------------------------------------------------------------------
    
83. # ● 获取防具 ID1
    
84. #--------------------------------------------------------------------------
    
85. def armor1_id
    
86.    if $data_enemies[@enemy_id].treasure1 == ""
    
87.      return armor_id
    
88.    elsif $data_enemies[@enemy_id].treasure1[0,1] != "A"
    
89.      return 0
    
90.    else
    
91.      return $data_enemies[@enemy_id].treasure1[/[0-9]+/].to_i
    
92.    end
    
93. end
    
94. #--------------------------------------------------------------------------
    
95. # ● 获取物品 ID2
    
96. #--------------------------------------------------------------------------
    
97. def item2_id
    
98.    if $data_enemies[@enemy_id].treasure2 == ""
    
99.      return item_id
    
100.    elsif $data_enemies[@enemy_id].treasure2[0,1] != "I"
     
101.      return 0
     
102.    else
     
103.      return $data_enemies[@enemy_id].treasure2[/[0-9]+/].to_i
     
104.    end
     
105. end
     
106. #--------------------------------------------------------------------------
     
107. # ● 获取武器 ID2
     
108. #--------------------------------------------------------------------------
     
109. def weapon2_id
     
110.    if $data_enemies[@enemy_id].treasure2 == ""
     
111.      return weapon_id
     
112.    elsif $data_enemies[@enemy_id].treasure2[0,1] != "W"
     
113.      return 0
     
114.    else
     
115.      return $data_enemies[@enemy_id].treasure2[/[0-9]+/].to_i
     
116.    end
     
117. end
     
118. #--------------------------------------------------------------------------
     
119. # ● 获取防具 ID2
     
120. #--------------------------------------------------------------------------
     
121. def armor2_id
     
122.    if $data_enemies[@enemy_id].treasure2 == ""
     
123.      return armor_id
     
124.    elsif $data_enemies[@enemy_id].treasure2[0,1] != "A"
     
125.      return 0
     
126.    else
     
127.      return $data_enemies[@enemy_id].treasure2[/[0-9]+/].to_i
     
128.    end
     
129. end
     
130. #--------------------------------------------------------------------------
     
131. # ● 获取物品 ID3
     
132. #--------------------------------------------------------------------------
     
133. def item3_id
     
134.    if $data_enemies[@enemy_id].treasure3 == ""
     
135.      return item2_id
     
136.    elsif $data_enemies[@enemy_id].treasure3[0,1] != "I"
     
137.      return 0
     
138.    else
     
139.      return $data_enemies[@enemy_id].treasure3[/[0-9]+/].to_i
     
140.    end
     
141. end
     
142. #--------------------------------------------------------------------------
     
143. # ● 获取武器 ID3
     
144. #--------------------------------------------------------------------------
     
145. def weapon3_id
     
146.    if $data_enemies[@enemy_id].treasure3 == ""
     
147.      return weapon2_id
     
148.    elsif $data_enemies[@enemy_id].treasure3[0,1] != "W"
     
149.      return 0
     
150.    else
     
151.      return $data_enemies[@enemy_id].treasure3[/[0-9]+/].to_i
     
152.    end
     
153. end
     
154. #--------------------------------------------------------------------------
     
155. # ● 获取防具 ID3
     
156. #--------------------------------------------------------------------------
     
157. def armor3_id
     
158.    if $data_enemies[@enemy_id].treasure3 == ""
     
159.      return armor2_id
     
160.    elsif $data_enemies[@enemy_id].treasure3[0,1] != "A"
     
161.      return 0
     
162.    else
     
163.      return $data_enemies[@enemy_id].treasure3[/[0-9]+/].to_i
     
164.    end
     
165. end
     
166. #--------------------------------------------------------------------------
     
167. # ● 获取物品 ID4
     
168. #--------------------------------------------------------------------------
     
169. def item4_id
     
170.    if $data_enemies[@enemy_id].treasure4 == ""
     
171.      return item3_id
     
172.    elsif $data_enemies[@enemy_id].treasure4[0,1] != "I"
     
173.      return 0
     
174.    else
     
175.      return $data_enemies[@enemy_id].treasure4[/[0-9]+/].to_i
     
176.    end
     
177. end
     
178. #--------------------------------------------------------------------------
     
179. # ● 获取武器 ID4
     
180. #--------------------------------------------------------------------------
     
181. def weapon4_id
     
182.    if $data_enemies[@enemy_id].treasure4 == ""
     
183.      return weapon3_id
     
184.    elsif $data_enemies[@enemy_id].treasure4[0,1] != "W"
     
185.      return 0
     
186.    else
     
187.      return $data_enemies[@enemy_id].treasure4[/[0-9]+/].to_i
     
188.    end
     
189. end
     
190. #--------------------------------------------------------------------------
     
191. # ● 获取防具 ID4
     
192. #--------------------------------------------------------------------------
     
193. def armor4_id
     
194.    if $data_enemies[@enemy_id].treasure4 == ""
     
195.      return armor3_id
     
196.    elsif $data_enemies[@enemy_id].treasure4[0,1] != "A"
     
197.      return 0
     
198.    else
     
199.      return $data_enemies[@enemy_id].treasure4[/[0-9]+/].to_i
     
200.    end
     
201. end
     
202. end
     
203. 
     
204. #==============================================================================
     
205. # ■ Scene_Battle
     
206. #------------------------------------------------------------------------------
     
207. # 　处理战斗画面的类。
     
208. #==============================================================================
     
209. class Scene_Battle
     
210. #--------------------------------------------------------------------------
     
211. # ● 开始结束战斗回合
     
212. #--------------------------------------------------------------------------
     
213. def start_phase5
     
214.    # 转移到回合 5
     
215.    @phase = 5
     
216.    # 演奏战斗结束 ME
     
217.    $game_system.me_play($game_system.battle_end_me)
     
218.    # 还原为战斗开始前的 BGM
     
219.    $game_system.bgm_play($game_temp.map_bgm)
     
220.    # 初始化 EXP、金钱、宝物
     
221.    exp = 0
     
222.    gold = 0
     
223.    treasures = []
     
224.    # 循环
     
225.    for enemy in $game_troop.enemies
     
226.      # 敌人不是隐藏状态的情况下
     
227.      unless enemy.hidden
     
228.        # 获得 EXP、增加金钱
     
229.        exp += enemy.exp
     
230.        gold += enemy.gold
     
231.        # 出现宝物判定
     
232.        if rand(100) < enemy.treasure_prob
     
233.          rarity = [178, 51, 15, 12]
     
234.          case rand(rarity[0] + rarity[1] + rarity[2]+ rarity[3])
     
235.          when 0..rarity[0] - 1
     
236.            if enemy.item1_id > 0
     
237.             treasures.push($data_items[enemy.item1_id])
     
238.            end
     
239.            if enemy.weapon1_id > 0
     
240.             treasures.push($data_weapons[enemy.weapon1_id])
     
241.            end
     
242.            if enemy.armor1_id > 0
     
243.              treasures.push($data_armors[enemy.armor1_id])
     
244.            end
     
245.          when rarity[0]..rarity[0] + rarity[1] - 1
     
246.            if enemy.item2_id > 0
     
247.              treasures.push($data_items[enemy.item2_id])
     
248.            end
     
249.            if enemy.weapon2_id > 0
     
250.             treasures.push($data_weapons[enemy.weapon2_id])
     
251.            end
     
252.            if enemy.armor2_id > 0
     
253.              treasures.push($data_armors[enemy.armor2_id])
     
254.            end
     
255.          when rarity[0] + rarity[1]..rarity[0] + rarity[1] + rarity[2] - 1
     
256.            if enemy.item3_id > 0
     
257.              treasures.push($data_items[enemy.item3_id])
     
258.            end
     
259.            if enemy.weapon3_id > 0
     
260.             treasures.push($data_weapons[enemy.weapon3_id])
     
261.            end
     
262.            if enemy.armor3_id > 0
     
263.              treasures.push($data_armors[enemy.armor3_id])
     
264.            end
     
265.          else
     
266.            if enemy.item4_id > 0
     
267.              treasures.push($data_items[enemy.item4_id])
     
268.            end
     
269.            if enemy.weapon4_id > 0
     
270.             treasures.push($data_weapons[enemy.weapon4_id])
     
271.            end
     
272.            if enemy.armor4_id > 0
     
273.              treasures.push($data_armors[enemy.armor4_id])
     
274.            end
     
275.          end
     
276.        end
     
277.      end
     
278.    end
     
279.    # 限制宝物数为 8 个
     
280.    treasures = treasures[0..7]
     
281.    # 获得 EXP
     
282.    for i in 0...$game_party.actors.size
     
283.      actor = $game_party.actors[i]
     
284.      if actor.cant_get_exp? == false
     
285.        last_level = actor.level
     
286.        actor.exp += exp
     
287.        if actor.level > last_level
     
288.          @status_window.level_up(i)
     
289.        end
     
290.      end
     
291.    end
     
292.    # 获得金钱
     
293.    $game_party.gain_gold(gold)
     
294.    # 获得宝物
     
295.    for item in treasures
     
296.      case item
     
297.      when RPG::Item
     
298.        $game_party.gain_item(item.id, 1)
     
299.      when RPG::Weapon
     
300.        $game_party.gain_weapon(item.id, 1)
     
301.      when RPG::Armor
     
302.        $game_party.gain_armor(item.id, 1)
     
303.      end
     
304.    end
     
305.    # 生成战斗结果窗口
     
306.    @result_window = Window_BattleResult.new(exp, gold, treasures)
     
307.    # 设置等待计数
     
308.    @phase5_wait_count = 100
     
309. end
     
310. end
     
311. 
     
312. 
     
313. #==============================================================================
     
314. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
     
315. #==============================================================================
     

复制代码

偷窃部分：

1. #==============================================================================
   
2. #  简易偷盗系统 By 绿发的Eclair
   
3. #------------------------------------------------------------------------------
   
4. #  在数据库中设定一个叫“偷盗”的属性，让想要做偷盗效果的技能附带这个属性
   
5. #  就可以了*^_^*
   
6. #  
   
7. #  $偷盗属性名 ：       数据库中偷盗属性的名字
   
8. #  $偷盗几率修正：      偷盗成功率修正
   
9. #  $不可偷盗敌人：      在这个数组中的敌人不能被偷盗，用于一些掉落唯一物品的敌人。
   
10. #  数组中两个元素间要用英文半角逗号隔开~~~
    
11. #  $偷盗失败损失P比例：偷盗失败时角色HP的减少量和最大HP的比例，为0就是不减少。
    
12. #==============================================================================
    
13. #==============================================================================
    
14. #  简易偷盗系统加強 By snstar2006
    
15. #------------------------------------------------------------------------------
    
16. #  加强部分
    
17. #  1. 偷盗後物品就会归零。
    
18. #  2. 四格掉宝设置的宝物无法偷盗。
    
19. #  3. 用探查技能可以看见能够偷得到的宝物。
    
20. #  4. 增加偷取金钱的功能。
    
21. #  5. 金钱只能偷取一次，偷窃後便无法在战斗结束时获得。
    
22. #  6. $偷盗金钱的机率：偷取时所得到的是物品还是金钱的机率。
    
23. #  7. 不想被偷的掉落物就用四格掉宝来掉落。
    
24. #     数据库设置的掉落物不会掉落。
    
25. #  8. 增加了修改敌人掉落物品时的方法，调用$game_enemy.item_id、.weapon_id、
    
26. #     .armor_id 和 .gold 时要注意。
    
27. #  这是考虑到像仙剑的
    
28. #==============================================================================
    
29. 
    
30. $偷盗属性名 = "偷盜"
    
31. $偷盗几率修正 = 0.5
    
32. $不可偷盗敌人 = [2]
    
33. $偷盗失败损失HP比例 = 0.01
    
34. $偷盗金钱的机率 = 50      # 百分比
    
35. class Game_Party
    
36.   attr_accessor :items
    
37.   attr_accessor :weapons
    
38.   attr_accessor :armors
    
39. end
    
40. class Scene_Battle
    
41.   attr_accessor :help_window
    
42.   #改名法重定义特技效果
    
43.   alias update_phase4_step5_Eclairsteal :update_phase4_step5
    
44.   def update_phase4_step5
    
45.     if @active_battler.current_action.kind == 1 and $data_skills[@active_battler.current_action.skill_id].element_set.include?($data_system.elements.index($偷盗属性名)) and @active_battler.is_a?(Game_Actor)
    
46.       for target in @target_battlers
    
47.         next if target.is_a?(Game_Actor)
    
48.         target.damage = "" if target.damage == "Miss"
    
49.         if (target.item_id == 0 and target.weapon_id == 0 and
    
50.           target.armor_id == 0 and target.gold == 0) or ($不可偷盗敌人.include?(target.id))
    
51.           #帮助窗口显示"没有可偷盗的物品",对齐方式为中间对齐
    
52.           @help_window.set_text("没有可偷盗的物品",1)
    
53.           for i in 0...20
    
54.             Graphics.update
    
55.             @help_window.update
    
56.             @spriteset.update
    
57.           end
    
58.           #直接结束
    
59.           next
    
60.         end
    
61.         final = (@active_battler.dex.to_f + @active_battler.agi.to_f) / (target.dex.to_f + target.agi.to_f)
    
62.         final *= target.treasure_prob
    
63.         final *= $偷盗几率修正
    
64.         final = final.round
    
65.         
    
66.         if rand(100) < final
    
67.           if (rand(100) < $偷盗金钱的机率)
    
68.             if target.item_id != 0
    
69.               $game_party.gain_item(target.item_id,1)
    
70.               text = "偷得：" + $data_items[target.item_id].name
    
71.               target.item_id = 0
    
72.             end
    
73.             if target.weapon_id != 0
    
74.               $game_party.gain_weapon(target.weapon_id,1)
    
75.               text = "偷得：" + $data_weapons[target.weapon_id].name
    
76.               target.weapon_id = 0
    
77.             end
    
78.             if target.armor_id != 0
    
79.               $game_party.gain_armor(target.armor_id,1)
    
80.               text = "偷得：" + $data_armors[target.armor_id].name
    
81.               target.armor_id = 0
    
82.             end
    
83.           else
    
84.             if target.gold != 0
    
85.               $game_party.gain_gold(target.gold)
    
86.               text = "偷得：" + target.gold.to_s + " " +$data_system.words.gold
    
87.               target.gold = 0
    
88.             end
    
89.           end
    
90.           @help_window.set_text(text,1)
    
91.           for i in 0...20
    
92.             Graphics.update
    
93.             @help_window.update
    
94.             @spriteset.update
    
95.           end
    
96.         else  
    
97.           @help_window.set_text("偷盗失败",1)
    
98.           @active_battler.hp -= (@active_battler.maxhp * $偷盗失败损失HP比例).round
    
99.           for i in 0...20
    
100.             Graphics.update
     
101.             @help_window.update
     
102.             @spriteset.update
     
103.           end
     
104.         end
     
105.       end
     
106.     end
     
107.     update_phase4_step5_Eclairsteal
     
108.   end
     
109. end
     
110. class Game_Enemy < Game_Battler
     
111.   def item_id=(id)
     
112.     $data_enemies[@enemy_id].item_id = id
     
113.   end
     
114.   def weapon_id=(id)
     
115.     $data_enemies[@enemy_id].weapon_id = id
     
116.   end
     
117.   def armor_id=(id)
     
118.     $data_enemies[@enemy_id].armor_id = id
     
119.   end
     
120.   def gold=(g)
     
121.     $data_enemies[@enemy_id].gold = g
     
122.   end
     
123. end
     
124. #==============================================================================
     
125. # 简易偷盗系统 By 绿发的Eclair
     
126. #==============================================================================
     

复制代码

---

作者: 英俊de狗    时间: 2008-1-30 20:39
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 御灵    时间: 2008-4-4 11:01
发布完毕。
vip+4
http://rpg.blue/web/htm/news1037.htm

---

作者: alicemim    时间: 2008-4-5 01:40
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 死武王    时间: 2008-5-27 20:29
提示: 作者被禁止或删除 内容自动屏蔽

---

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

Powered by Discuz! X3.1