[发布]锥形视野系统，带有障碍判断
http://rpg. blue/upload_program/files/vr_01.jpg这个想法来源于不久前一位朋友发的脚本，不过好像换论坛后不见了。有人问能不能加入障碍判断，于是研究了下，目前实现了这个功能，测试了下还好用。
这个系统不是以人为中心，半径某个距离的视野，而是和人物面向方向有关的一个锥形视野，并且可以设定是否被障碍遮挡，可以设定是否显示视野范围。
喜欢的朋友可以拿去研究使用。
----这里下载样本工程----
使用方法在样本工程里面说明，下面是关键脚本
#==============================================================================
# 作者: FantasyDR
#
# 版本: v1.0
#
# 2005.10.25
#==============================================================================
#==============================================================================
# ■ Table
#------------------------------------------------------------------------------
# 加入fill方法
#==============================================================================
class Table
def fill(c)
for y in 0..self.ysize
for x in 0..self.xsize
self = c
end
end
end
end
#==============================================================================
# ■ Spriteset_Map
#------------------------------------------------------------------------------
# 重载地图显示
#==============================================================================
class Spriteset_Map
attr_reader:tilemap
alias :original_ini :initialize
def initialize
original_ini
# 设置地图闪烁列表
@tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)
end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 重载地图场景
#==============================================================================
class Scene_Map
attr_reader:spriteset
end
#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 重载事件的类
#==============================================================================
class Game_Event < Game_Character
alias :origin_initialize :initialize
alias :origin_update :update
attr_reader :switch_no#控制开关号
attr_reader :deep #视野深度
attr_reader :test_block #是否检测障碍
attr_reader :is_always#是否一直跟随
attr_reader :show_grid#是否显示范围
attr_accessor:flash_color #闪烁颜色
#--------------------------------------------------------------------------
# ●初始化
#--------------------------------------------------------------------------
def initialize(map_id, event)
origin_initialize(map_id, event)
# 敌人朝向是2/4/6/8中的一个。
# 下左右上
# 建立Hash表,表示方向变量:
@dx_lib ={2=>0,4=>-1,6=>1,8=>0}
@dy_lib ={2=>1,4=>0,6=>0,8=>-1}
# 闪烁颜色
@flash_color=0xf0
end
#--------------------------------------------------------------------------
# ●画面更新
#--------------------------------------------------------------------------
def update
if moving? or @original_direction != @direction
$scene.spriteset.tilemap.flash_data.fill(0)
@original_direction = @direction
end
self.test_view
origin_update
end
#--------------------------------------------------------------------------
# ●判断是否被遮挡
# 参数:原点、障碍点、目标点、宽度
#--------------------------------------------------------------------------
def be_covered(sx,sy, cx,cy, px,py, width, x_fix,y_fix)
#坐标转换
sx = sx * width/1.0
sy = sy * width/1.0
cx = cx * width/1.0
cy = cy * width/1.0
px = px * width/1.0
py = py * width/1.0
#转换两个遮挡点
cx_a = cx - width*x_fix/2.0
cx_b = cx + width*x_fix/2.0
cy_a = cy - width*y_fix/2.0
cy_b = cy + width*y_fix/2.0
# 求斜率
kp = (py-sy)/(px-sx)
if x_fix != 0 #横向遮挡
if px == sx #在垂直方向
tx = 0
else
tx = cy/kp
end
if (cy-sy).abs<(py-sy).abs and tx>=cx_a and tx<=cx_b
return true #被挡住
end
else #纵向遮挡,面向水平方向
ty = cx*kp
if (cx-sx).abs<(px-sx).abs and ty>=cy_a and ty<=cy_b
return true #被挡住
end
end
return false #没有被挡住
end
#--------------------------------------------------------------------------
# ● 保存数据
# x,y:
# 数据位置
#--------------------------------------------------------------------------
def pack(x,y,test)
if x == $game_player.x andy == $game_player.y
$game_switches[@switch_no] = true
end
if self.passable?(x,y,0)
@view[@vp,0] = x
@view[@vp,1] = y
@vp += 1
else
@rock[@rp,0] = x
@rock[@rp,1] = y
@rp += 1
end
end
#--------------------------------------------------------------------------
# ● 移动类型 : 敌人视界判断
# @deep:
# 视野深度
# @test_block:
# 是否检测障碍
#--------------------------------------------------------------------------
def test_view
return if @deep == nil
flash = $scene.spriteset.tilemap.flash_data
# 求得方向变量参数
dx=@dx_lib[@direction]
dy=@dy_lib[@direction]
# 求得与主角座标的差值
sx = @x - $game_player.x
sy = @y - $game_player.y
# 判定是否一直跟踪
if @is_always and $game_switches[@switch_no]
if (sx**2 + sy**2)>((@deep+1)**2)
$game_switches[@switch_no]=false
end
else
$game_switches[@switch_no]=false
end
@view = Table.new(flash.xsize*flash.ysize,2)
@rock = Table.new(flash.xsize*flash.ysize,2)
@rp = 0
@vp = 0
# 设置周围视野
if dy != 0 #纵向视野
pack(@x+1,@y,false)
pack(@x-1,@y,false)
else
pack(@x,@y+1,false)
pack(@x,@y-1,false)
end
# 扫描所有视野上的点
for i in 1..@deep
for j in -i..i
if dy != 0
cy = @y + dy*i
cx = @x + j
else
cx = @x + dx*i
cy = @y + j
end
pack(cx,cy,true)
end
end
# 判断障碍
for i in 0..@vp-1
can_see = true
for j in 0..@rp-1
if @test_block and self.be_covered(0,0, @rock-@x,@rock-@y,@view-@x,@view-@y,32,dy.abs,dx.abs)
can_see = false
break
end
end
flash[@view,@view] = @flash_color if can_see and @show_grid
end
#探测玩家有没有被遮挡
if $game_switches[@switch_no] and @test_block
for j in 0..@rp-1
if (@rock != $game_player.x or @rock != $game_player.y) and
self.be_covered(0,0, @rock-@x,@rock-@y,\
$game_player.x-@x,$game_player.y-@y,32,dy.abs,dx.abs)
$game_switches[@switch_no]=false
break
end
end
end
end
#--------------------------------------------------------------------------
# ●移动类型
#--------------------------------------------------------------------------
def em_view(switch_no,deep=4,test_block=true,is_always=true,show_grid=true)
@switch_no = switch_no
@deep = deep
@test_block = test_block
@is_always = is_always
@show_grid = show_grid
# 根据$game_switches[@switch_no]移动
if $game_switches[@switch_no]
# 被发现的情况，跟随主角
move_toward_player
else
# 没有被发现的情况，随机转向
turn_random
end
end
end
页:
[1]