[发布]锥形视野系统，带有障碍判断

FantasyDR · 发表于 2005-10-25 09:04:08

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

这个想法来源于不久前一位朋友发的脚本，不过好像换论坛后不见了。有人问能不能加入障碍判断，于是研究了下，目前实现了这个功能，测试了下还好用。

这个系统不是以人为中心，半径某个距离的视野，而是和人物面向方向有关的一个锥形视野，并且可以设定是否被障碍遮挡，可以设定是否显示视野范围。

喜欢的朋友可以拿去研究使用。

----这里下载样本工程----

使用方法在样本工程里面说明，下面是关键脚本[ViewRange]

#==============================================================================
# 作者: 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[x,y] = 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 and y == $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[j,0]-@x,@rock[j,1]-@y,@view[i,0]-@x,@view[i,1]-@y,32,dy.abs,dx.abs)
can_see = false
break
end
end
flash[@view[i,0],@view[i,1]] = @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[j,0] != $game_player.x or @rock[j,0] != $game_player.y) and
self.be_covered(0,0, @rock[j,0]-@x,@rock[j,1]-@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

复制代码

　　　　　　　　　　　　　　[本贴由柳柳于 2005-10-28 7:26:49 最后编辑]

FantasyDR · 发表于 2005-10-25 09:04:08

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

这个想法来源于不久前一位朋友发的脚本，不过好像换论坛后不见了。有人问能不能加入障碍判断，于是研究了下，目前实现了这个功能，测试了下还好用。

这个系统不是以人为中心，半径某个距离的视野，而是和人物面向方向有关的一个锥形视野，并且可以设定是否被障碍遮挡，可以设定是否显示视野范围。

喜欢的朋友可以拿去研究使用。

----这里下载样本工程----

使用方法在样本工程里面说明，下面是关键脚本[ViewRange]

#==============================================================================
# 作者: 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[x,y] = 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 and y == $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[j,0]-@x,@rock[j,1]-@y,@view[i,0]-@x,@view[i,1]-@y,32,dy.abs,dx.abs)
can_see = false
break
end
end
flash[@view[i,0],@view[i,1]] = @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[j,0] != $game_player.x or @rock[j,0] != $game_player.y) and
self.be_covered(0,0, @rock[j,0]-@x,@rock[j,1]-@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

复制代码

　　　　　　　　　　　　　　[本贴由柳柳于 2005-10-28 7:26:49 最后编辑]

柳柳 · 发表于 2005-10-25 15:18:16

1.02的工程{/gg}……
打不开……{/gg}

亿万星辰 · 发表于 2005-10-25 15:46:28

改下ini，放个1.01的rxproj……{/pz}

kira · 发表于 2005-10-25 17:17:40

这个东东强的,可以拿来做潜入类的游戏了

缺牙de兔子 · 发表于 2005-10-25 18:09:05

OH YE 是关于战棋的资料我喜欢还有没有？？

FantasyDR · 发表于 2005-10-25 19:49:14

更换1.01的rxproj就可以，我还以为大家都升级了的说-_-b

汗。

FantasyDR · 发表于 2005-10-25 20:05:09

以下引用缺牙de兔子于2005-10-25 10:09:05的发言：

OH YE 是关于战棋的资料我喜欢还有没有？？

这个不是为SLG做的脚本。
如果你要开发SLG，可以看看关于Tilemap的flash_data属性，这个属性可以让地图上面块按照要求闪烁，其实是为SLG的开发预留的^_^

其他方面么，还得自己动手了。

黑羽毛 · 发表于 2005-10-25 22:51:35

不错

黑羽毛 · 发表于 2005-10-25 22:51:35

不错，但还只是个雏形，希望完善，比如当人站在上面应该让其判断面向主角，应该追着主角用那个范围扫描，有物体挡住了才罢休，要不然当npc发现主角，我只要不动，他自己可能就把视线移到看不到我的位置了

帐号		自动登录	找回密码
密码			注册会员

[原创发布] [发布]锥形视野系统，带有障碍判断

加入我们，或者，欢迎回来。

加入我们，或者，欢迎回来。

RMVX自由创作大赛亚军

第2届短篇游戏比赛亚军

第5届短篇游戏比赛冠军

贵宾