怎么能使人物使用了一个物品后，能在水面上行走？ - Project1

=begin
===============================================================================
===============================================================================
项目名称：水面行走（Walk On the Water）
项目主管：逸豫
更新作者：逸豫
许可协议： FSL-STS
项目版本： 1.0.0
项目分类： XP/移动辅助
衍生关系：无
建立日期： 2010-07-07
最后更新： 2010-07-07
引用网址： http://rpg.blue/forum.php?mod=viewthread&tid=141011&extra=page%3D1
===============================================================================
使用方法：设置开关ID后新建物品，设置其公共事件为打开ID为SWITCH_ID的开关，然
后在数据库，图块中把水面的地形标志设为1即可。
===============================================================================
===============================================================================
=end
$fscript = {} if $fscript == nil
$fscript["Walk On the Water"] = [ 1,0,0 ]
module FSL
module Conf
module Walk_On_the_Water
SWITCH_ID = 25
end
end
end
#==============================================================================
# ■ Game_Player （追加定义）
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
#==============================================================================
class Game_Player < Game_Character
include FSL::Conf::Walk_On_the_Water
alias pa passable?
#--------------------------------------------------------------------------
# ● 可以通行判定
# x : X 坐标
# y : Y 坐标
# d : 方向 (0,2,4,6,8) ※ 0 = 全方向不能通行的情况判定 (跳跃用)
# 追加对于地形标志的判断
#--------------------------------------------------------------------------
def passable?(x,y,d)
new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
if $game_map.valid?(new_x, new_y)
tk1 = $game_map.data[new_x,new_y,0]
tk2 = $game_map.data[new_x,new_y,1]
tk3 = $game_map.data[new_x,new_y,2]
tk4 = $game_map.data[x,y,0]
tk5 = $game_map.data[x,y,1]
tk6 = $game_map.data[x,y,2]
can_pass = false
can_pass |= $data_tilesets[$game_map.map_id].terrain_tags[tk1] == 1
can_pass |= $data_tilesets[$game_map.map_id].terrain_tags[tk2] == 1
can_pass |= $data_tilesets[$game_map.map_id].terrain_tags[tk3] == 1
can_pass |= $data_tilesets[$game_map.map_id].terrain_tags[tk4] == 1
can_pass |= $data_tilesets[$game_map.map_id].terrain_tags[tk5] == 1
can_pass |= $data_tilesets[$game_map.map_id].terrain_tags[tk6] == 1
return true if can_pass && $game_switches[SWITCH_ID]
end
pa(x,y,d)
end
end

复制代码