RMVX地形标志V2.0版（过期帖） - Project1

#==============================================================================
# ■ 地形标志V2.0 By TERENCE(龙皇)
#------------------------------------------------------------------------------
# 　使用方法:
#
# 在生成区域命名的地方命名成"数字"即可
# 如果命名為文字型(字串)型式调用时回传0
# 在没有区域的情况下调用时(默认下) 也回传0
#------------------------------------------------------
# 调用方法:
#
# 获取角色当前所在地形标誌
# $game_player.terrain_tag
#
# 获取某事件当前所在地形标誌
# $game_map.events[事件编号].terrain_tag
#------------------------------------------------------
# 事件脚本中常用的使用方法:
#
# 角色当前所在地形标誌帶入某变量中
# $game_variables[变量编号] = $game_player.terrain_tag
#
# 某事件当前所在地形标誌帶入某变量中
# $game_variables[变量编号] = $game_map.events[事件编号].terrain_tag
#------------------------------------------------------
# 事件条件分歧脚本中常用的使用方法:
#
# 角色当前所在地形标誌是否等于值
# $game_player.terrain_tag == 值
#
# 某事件当前所在地形标誌是否等于值
# $game_map.events[事件编号].terrain_tag == 值
#
#==============================================================================
class Game_Map
#--------------------------------------------------------------------------
# ● 设置
#--------------------------------------------------------------------------
alias area_setup setup
def setup(map_id)
area_setup(map_id)
# 生成暂存过滤区域物件资料数组
$temp_area = []
# 过滤其它地图的区域资料
for n in 0..$data_areas.values.size-1
if $data_areas.values[n].map_id == @map_id
$temp_area.push $data_areas.values[n]
end
end
end
end
class Game_Character
#--------------------------------------------------------------------------
# ● 判断是否在区域内
#--------------------------------------------------------------------------
def area?(area)
return false if @x < area.rect.x
return false if @y < area.rect.y
return false if @x >= area.rect.x + area.rect.width
return false if @y >= area.rect.y + area.rect.height
return true
end
#--------------------------------------------------------------------------
# ● 获取地形标志
#--------------------------------------------------------------------------
def terrain_tag
# 获取地图ID
map_id = $game_map.map_id
# 回传所在地形标志的值
for area in $temp_area
if area?(area)
return area.name.to_i
end
end
# 默认下回传0
return 0
end
end

复制代码

class Scene_Map
alias passage_update update
def update
passage_update
if Input.trigger?(Input::L)
a = $game_map.map.data[$game_player.x, $game_player.y, 0]-2000
map_tile_id_0 = (a >= 0) ? a/48 : (a+593)
map_tile_id_1 = ($game_map.map.data[$game_player.x, $game_player.y, 1]-2000) / 48
map_tile_id_2 = ($game_map.map.data[$game_player.x, $game_player.y, 2]+1)
map_tile_id_0 = 0 if map_tile_id_0 == -42
map_tile_id_1 = 0 if map_tile_id_1 == -42
map_tile_id_2 = 0 if map_tile_id_2 == -42
map_tile_ids = "A: #{map_tile_id_0.to_s} " +
"1: #{map_tile_id_1.to_s} " +
"B~E: #{map_tile_id_2.to_s}"
p map_tile_ids
end
end
end
class Game_Map
def map
return @map
end
end

复制代码