Leyeshot2.1线形视野系统，做暗杀类游戏的葵花宝典！

流川枫

1. 
   
2. #==============================================================================
   
3. # ■ LCF_Leyeshot (linetype eyeshot)XP 2.1    Creator LCF  Date 2008.11.3
   
4. #------------------------------------------------------------------------------
   
5. # 　线形视野系统    编者：流川枫    QQ：350773875
   
6. #==============================================================================
   
7. #【使用说明】
   
8. #------------------------------------------------------------------------------
   
9. # 视野系统开关    $game_map.events[@event_id].le_seeing = true/false
   
10. # 功能：该值为true表示该NPC视野开启，否则未开启，默认为false。
    
11. #------------------------------------------------------------------------------
    
12. # 视野透视开关    $game_map.events[@event_id].le_clairv = true/false
    
13. # 功能：该值为true表示该NPC视野不扫描视线障碍，否则扫描，默认为false。
    
14. #------------------------------------------------------------------------------
    
15. # 视线显示开关    $game_map.events[@event_id].le_show = true/false
    
16. # 功能：该值为true表示显示该NPC的视线，否则不显示，默认为false。
    
17. #------------------------------------------------------------------------------
    
18. # 侧面可视开关    $game_map.events[@event_id].le_side = true/false
    
19. # 功能：该值为true表示该NPC可以看到侧面一格内的人，否则由斜率决定，默认为true。
    
20. #------------------------------------------------------------------------------
    
21. # 视野环绕开关    $game_map.events[@event_id].le_circle = true/false
    
22. # 功能：该值为true表示该NPC为环绕视野，否则不能看见自己的身后，默认为false。
    
23. #------------------------------------------------------------------------------
    
24. # 设置视野深度    $game_map.events[@event_id].le_deepness = 深度值
    
25. # 功能：该值代表视野的能见度，默认为7。
    
26. #------------------------------------------------------------------------------
    
27. # 设置视野斜率    $game_map.events[@event_id].le_slope = 斜率值
    
28. # 功能：该值代表视野的斜率，默认为1.0。
    
29. #------------------------------------------------------------------------------
    
30. # 设置显示颜色    $game_map.events[@event_id].le_color = 颜色值
    
31. # 功能：该值代表视线显示的颜色，默认为0xf0。
    
32. #==============================================================================
    
33. # 当NPC看到主角的时候，独立开关D会被打开,否则为关闭状态。
    
34. #==============================================================================
    
35. 
    
36. #==============================================================================
    
37. # ■ Game_Event
    
38. #------------------------------------------------------------------------------
    
39. # 　重载事件类
    
40. #==============================================================================
    
41. class Game_Event
    
42.   attr_accessor   :le_seeing                 # 视野系统开关
    
43.   attr_accessor   :le_clairv                 # 视野透视开关
    
44.   attr_accessor   :le_show                   # 视线显示开关
    
45.   attr_accessor   :le_side                   # 侧面可视开关
    
46.   attr_accessor   :le_circle                 # 视野环绕开关
    
47.   attr_accessor   :le_deepness               # 视野深度
    
48.   attr_accessor   :le_slope                  # 视野斜率
    
49.   attr_accessor   :le_color                  # 显示颜色
    
50.   #--------------------------------------------------------------------------
    
51.   # ● 初始化对像
    
52.   #     map_id : 地图 ID
    
53.   #     event  : 事件 (RPG::Event)
    
54.   #--------------------------------------------------------------------------
    
55.   alias original_initialize initialize
    
56.   def initialize (map_id, event)
    
57.     original_initialize (map_id, event)
    
58.     @le_seeing   = false
    
59.     @le_clairv   = false
    
60.     @le_show     = false
    
61.     @le_side     = true
    
62.     @le_circle   = false
    
63.     @le_deepness = 7
    
64.     @le_slope    = 1.0
    
65.     @le_color    = 0xf0
    
66.     @trace = Table.new (@le_deepness,2)
    
67.     @trace[0,0] = -1
    
68.   end
    
69.   #--------------------------------------------------------------------------
    
70.   # ● 刷新
    
71.   #--------------------------------------------------------------------------
    
72.   alias original_update update
    
73.   def update
    
74.     if @le_seeing
    
75.       @trace.resize (@le_deepness,2) if @trace.xsize != @le_deepness
    
76.       original_switch = $game_self_switches[[$game_map.map_id, @id, "D"]]
    
77.       self.see
    
78.       $game_map.need_refresh = true if original_switch != $game_self_switches[[$game_map.map_id, @id, "D"]]
    
79.     end
    
80.     original_update
    
81.   end
    
82.   #--------------------------------------------------------------------------
    
83.   # ● 视野检测
    
84.   #--------------------------------------------------------------------------
    
85.   def see
    
86.     $game_self_switches[[$game_map.map_id, @id, "D"]] = false
    
87.     if ($game_player.x-@x).abs<@le_deepness and ($game_player.y-@y).abs<@le_deepness
    
88.       difference_x = $game_player.x - @x
    
89.       difference_y = $game_player.y - @y
    
90.       case @direction
    
91.       when 2
    
92.         return if @le_circle != true and $game_player.y < @y
    
93.         unless @le_side and (difference_y == 0 and difference_x.abs == 1)
    
94.           return if (difference_y/(difference_x+0.0)).abs < @le_slope
    
95.         end
    
96.       when 4
    
97.         return if @le_circle != true and $game_player.x > @x
    
98.         unless @le_side and difference_y.abs == 1 and difference_x == 0
    
99.           return if (difference_x/(difference_y+0.0)).abs < @le_slope
    
100.         end
     
101.       when 6
     
102.         return if @le_circle != true and $game_player.x < @x
     
103.         unless @le_side and difference_y.abs == 1 and difference_x == 0
     
104.           return if (difference_x/(difference_y+0.0)).abs < @le_slope
     
105.         end
     
106.       else
     
107.         return if @le_circle != true and $game_player.y > @y
     
108.         unless @le_side and difference_y == 0 and difference_x.abs == 1
     
109.           return if (difference_y/(difference_x+0.0)).abs < @le_slope
     
110.         end
     
111.       end
     
112.       $game_self_switches[[$game_map.map_id, @id, "D"]] = scan_line
     
113.     end
     
114.   end
     
115.   #--------------------------------------------------------------------------
     
116.   # ● 视线检测
     
117.   #--------------------------------------------------------------------------
     
118.   def scan_line
     
119.     difference_x = $game_player.x - @x
     
120.     difference_y = $game_player.y - @y
     
121.     direction_x = (difference_x > 0 ? 1 : -1)
     
122.     direction_y = (difference_y > 0 ? 1 : -1)
     
123.     i = 0
     
124.     if difference_x.abs > difference_y.abs
     
125.       while difference_x.abs > i+1
     
126.         i+=1
     
127.         x = @x+i*direction_x
     
128.         if direction_y>0
     
129.           y = @y+i*difference_y/(difference_x+0.0)*direction_y*direction_x+0.5
     
130.         else
     
131.           y = @y-i*difference_y/(difference_x+0.0)*direction_y*direction_x+0.5
     
132.         end
     
133.         x = x.floor
     
134.         y = y.floor
     
135.         if @le_clairv != true
     
136.           unless (direction_x > 0 ? passable?(x-1,y,6) : passable?(x+1,y,4))
     
137.             @trace[i-1,0] = -1
     
138.             return false
     
139.           end
     
140.         end
     
141.         if @le_show
     
142.           @trace[i-1,0] = x
     
143.           @trace[i-1,1] = y
     
144.           $scene.spriteset.tilemap.flash_data[x,y] = @le_color
     
145.         end
     
146.       end
     
147.     else
     
148.       while difference_y.abs > i+1
     
149.         i+=1
     
150.         y = @y+i*direction_y
     
151.         if direction_x>0
     
152.           x = @x+i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
     
153.         else
     
154.           x = @x-i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
     
155.         end
     
156.         x = x.floor
     
157.         y = y.floor
     
158.         if @le_clairv != true
     
159.           unless (direction_y > 0 ? passable?(x,y-1,2) : passable?(x,y+1,8))
     
160.             @trace[i-1,0] = -1
     
161.             return false
     
162.           end
     
163.         end
     
164.         if @le_show
     
165.           @trace[i-1,0] = x
     
166.           @trace[i-1,1] = y
     
167.           $scene.spriteset.tilemap.flash_data[x,y] = @le_color
     
168.         end
     
169.       end
     
170.     end
     
171.     return true
     
172.   end
     
173.   #--------------------------------------------------------------------------
     
174.   # ● 清楚痕迹
     
175.   #--------------------------------------------------------------------------
     
176.   def clear
     
177.     for i in 0 .. @trace.xsize-1
     
178.       break if @trace[i,0] == -1
     
179.       $scene.spriteset.tilemap.flash_data[@trace[i,0],@trace[i,1]] = 0
     
180.     end
     
181.     @trace[0,0] = -1
     
182.   end
     
183. end
     
184. #==============================================================================
     
185. # ■ Spriteset_Map
     
186. #------------------------------------------------------------------------------
     
187. #    重载地图显示
     
188. #==============================================================================
     
189. class Spriteset_Map
     
190.   attr_reader:tilemap
     
191.   alias :original_ini :initialize
     
192.   def initialize
     
193.     original_ini
     
194.     @tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)
     
195.   end  
     
196. end
     
197. #==============================================================================
     
198. # ■ Scene_Map
     
199. #------------------------------------------------------------------------------
     
200. #    重载地图场景
     
201. #==============================================================================
     
202. class Scene_Map
     
203.   attr_reader:spriteset
     
204. end
     
205. #==============================================================================
     
206. # ■ Game_Map
     
207. #------------------------------------------------------------------------------
     
208. # 　重载地图类
     
209. #==============================================================================
     
210. class Game_Map
     
211.   alias original_update update
     
212.   def update
     
213.     # 清除视线痕迹
     
214.     for event in @events.values
     
215.       event.clear
     
216.     end
     
217.     original_update
     
218.   end
     
219. end
     

复制代码

-------------------------------
范例下载：
ftp://[email protected]/game ... �统范例v2.10.rar
-------------------------------

LE2.1优化了视线痕迹清除的程序，这样一来地图不管有多大，都不会影响到效率了！

{/cy}
本次系统的革新已经完全打破了传统的束缚！
和过去的RE系统比起来，全新的LE视野系统简直太好太强大了！
同屏这么多人联动，但是FPS仍然这么流畅~~
最棒的是，虽然效率如此之高，但是却一点都
没有影响 视野障碍检测 的精确度！
之所以这个视野系统能够这么强大，正是因
为该系统采用了国际领先的视线扫描算法！
全程只需要扫描一条 NPC与主角相连 的视线
即可，因此效率和视野逻辑都是最好的！

原来的RE算法我已经完全推翻了，现在的LE是一种新的算法，
所以我又开了一个新帖。

截图：



复制全部脚本内容，在Main脚本之前按insert，插入此脚本全部内容。请详见脚本里的使用说明和范例。
脚本冲突：一些地图类。其实可能性比较小。

塑望

{/gg}{/gg}

不知道怎么说了。。。。。很好

流川枫

以下引用Sora于2008-11-3 16:44:27的发言：

怎么让NPC攻击视野范围内的目标啊

当NPC看到主角的时候，独立开关D会被打开。
你可以设置一个事件层，当独立开关D打开的时候，
就代表看的了主角，你在里面写上看到主角后的 指令就行了。
例如：触发 战斗{/cy}

CortesDevil

{/hx}研究研究

流川枫

范例中有一个人在房间里巡逻，玩家必须神不知鬼不觉地走到那人身后（包括侧面），然后马上按确定键，就表示这次偷袭成功了。
放到成品的游戏里，可以在那个时候显示一段动画，干掉那个人，就变成了一款有趣的忍者暗杀游戏了。{/cy}

纯子

{/se}{/dk}范例貌似不能下啊

水迭澜

速度是关键~~
原本FDR大人也写过一个
但是那个速度太慢太慢了
这个视野系统目前有几格？
如果是30x30的地图，放20个事件，会卡吗？

流川枫

以下引用水迭澜于2008-11-4 10:12:48的发言：

速度是关键~~
原本FDR大人也写过一个
但是那个速度太慢太慢了
这个视野系统目前有几格？
如果是30x30的地图，放20个事件，会卡吗？


[本贴由作者于 2008-11-4 10:13:10 最后编辑]

我刚才测试了一下 LE2.1，地图大小在500*500 并且NPC 20人的情况下，
FPS平均率仍然保持在40左右。{/hx}