# @taroxd metadata 1.0
# @id show_passage
# @display 显示地图通行度
# @require taroxd_core
# @require rgss_bugfix
# @help 游戏测试中按下F6即可启用，再按一次关闭
class Taroxd::PlanePassage < Plane
ENABLE = $TEST # 是否启用功能
KEY = :F6 # 控制显示通行度的按键
VISIBLE = false # 起始时是否可见
OPACITY = 150 # 不透明度
NG = Color.new(255, 0, 0, OPACITY) # 不可通行的颜色
OK = Color.new(0, 0, 255, OPACITY) # 可以通行的颜色
NG_WIDTH = 4 # 不可通行方向显示的宽度
include Taroxd::DisposeBitmap
include Taroxd::BugFix::PlaneVisible
def initialize(_)
super
self.visible = VISIBLE
self.z = 200
refresh
update
end
def update
self.visible ^= true if Input.trigger?(KEY)
self.ox = $game_map.display_x * 32
self.oy = $game_map.display_y * 32
end
def refresh
bitmap.dispose if bitmap
self.bitmap = Bitmap.new($game_map.width * 32, $game_map.height * 32)
$game_map.width.times do |x|
$game_map.height.times do |y|
draw_point(x, y)
end
end
end
# 绘制地图上的点 (x, y)
def draw_point(x, y)
ng_dirs = [2, 4, 6, 8].reject { |d| $game_map.passable?(x, y, d) }
if ng_dirs.size == 4
bitmap.fill_rect(x * 32, y * 32, 32, 32, NG)
return
end
bitmap.fill_rect(x * 32, y * 32, 32, 32, OK)
ng_dirs.each do |d|
dx = d == 6 ? 32 - NG_WIDTH : 0
dy = d == 2 ? 32 - NG_WIDTH : 0
if d == 2 || d == 8
width = 32
height = NG_WIDTH
else
width = NG_WIDTH
height = 32
end
bitmap.fill_rect(x * 32 + dx, y * 32 + dy, width, height, NG)
end
end
end
class Spriteset_Map
def_before :create_parallax do
@passage_plane = Taroxd::PlanePassage.new(@viewport3)
end
def_before(:update_parallax) { @passage_plane.update }
def_before(:refresh_characters) { @passage_plane.refresh }
def_before(:dispose_parallax) { @passage_plane.dispose }
end if Taroxd::PlanePassage::ENABLE
显示地图通行度
Shift 功能反转
# @taroxd metadata 1.0
# @id shift_reverse
# @require taroxd_core
# @display Shift 功能反转
module Taroxd
ShiftReverse = true
end
class Game_Player < Game_Character
def dash?
!@move_route_forcing && !$game_map.disable_dash? &&
!vehicle && !Input.press?(:A)
end
end
设置地图通行度
# @taroxd metadata 1.0
# @require taroxd_core
# @display 设置地图通行度
# @id set_passage
# @help
#
# 使用方法2：** require 显示地图通行度 **
#
# 测试模式下，把 EDIT_MODE 设为 true，
# 然后在地图上按下确定键即可改变当前位置的通行度。
# 该模式下，角色可以自由穿透。
#
# △表示不改变，○表示可以通行，×表示不可通行。颜色表示最终的通行度。
#
# 需要清空设置的话，删除设置文件（见 FILE 常量）即可。
#
# 需要重置一张地图的设置的话，可以调用如下脚本：
# Taroxd::Passage.clear(map_id)
# 其中 map_id 为地图 ID。若要清除当前地图的通行度，map_id 可以不填。
# 注意，清除后，通行度的显示并不会立即改变。重新打开游戏即可看到效果。
module Taroxd::Passage
# 地图通行度信息会保存到这个文件。建议每次编辑前备份该文件。
FILE = 'Data/MapPassage.rvdata2'
# 是否打开编辑模式。需要前置脚本“显示地图通行度”才可打开。
EDIT_MODE = false
# 编辑方式（可整合鼠标脚本）
EDIT_TRIGGER = -> { Input.trigger?(:C) }
EDIT_POINT = -> { [$game_player.x, $game_player.y] }
# 常量，不建议改动
DEFAULT = 0
PASSABLE = 1
IMPASSABLE = 2
TEXTS = ['△', '○', '×']
SIZE = TEXTS.size
# 设置区域通行度。一个以区域ID为键的哈希表。(未设置的区域，ID为0)
# 哈希表值的意义如下
# PASSABLE / true：该区域强制可以通行。
# IMPASSABLE / false：该区域强制不可通行。
# [区域ID1, 区域ID2, ...]：该区域只能通行至指定的区域。
# 设置例：
# REGIONS = {
# 1 => PASSABLE,
# 2 => false,
# 3 => [3, 4], # 只有通过4号区域才能出入3号区域
# 5 => [*0..63] - [6] # 5号区域与6号区域的边界线不可通行
# }
REGIONS = {}
# 通行度的哈希表。以地图ID为键，以通行度的二维 Table 为值。
@data = File.exist?(FILE) ? load_data(FILE) : {}
class << self
# 获取 x, y 坐标处的 d 方向通行度设定。（DEFAULT/PASSABLE/IMPASSABLE）
def [](x, y, d)
data[x, y] == DEFAULT ? region_passable(x, y, d) : data[x, y]
end
# 更新，编辑模式下应每帧调用一次
def update
return unless EDIT_TRIGGER.call
x, y = EDIT_POINT.call
data[x, y] = (data[x, y] + 1) % SIZE
save
end
# 获取当前地图的数据
def data
table = @data[map_id] ||= Table.new(width, height)
if table.xsize < width || table.ysize < height
update_table(table)
else
table
end
end
# 清除一个地图的设置
def clear(map_id = $game_map.map_id)
@data.delete(map_id)
save
end
private
# 区域设置中能否通行（DEFAULT/PASSABLE/IMPASSABLE）
def region_passable(x, y, d)
settings = REGIONS[$game_map.region_id(x, y)]
case settings
when true, PASSABLE then PASSABLE
when false, IMPASSABLE then IMPASSABLE
when Enumerable
x2 = $game_map.round_x_with_direction(x, d)
y2 = $game_map.round_y_with_direction(y, d)
settings.include?($game_map.region_id(x2, y2)) ? DEFAULT : IMPASSABLE
else DEFAULT
end
end
# 如果表格不够大，那么重新建立表格
def update_table(table)
@data[map_id] = new_table = Table.new(width, height)
table.xsize.times do |x|
table.ysize.times do |y|
new_table[x, y] = table[x, y]
end
end
new_table
end
# 将所有数据保存到文件
def save
save_data(@data, FILE)
end
# 获取当前地图信息
def map_id
$game_map.map_id
end
def width
$game_map.width
end
def height
$game_map.height
end
end
end
class Game_Map
psg = Taroxd::Passage
def_chain :passable? do |old, x, y, d|
case psg[x, y, d]
when psg::DEFAULT then old.call(x, y, d)
when psg::PASSABLE then true
when psg::IMPASSABLE then false
end
end
end
if $TEST && Taroxd::Passage::EDIT_MODE
class Game_Player < Game_Character
# 每帧调用一次 Taroxd::Passage.update
def_after :update, Taroxd::Passage.method(:update)
def debug_through?
true
end
end
class Taroxd::PlanePassage < Plane
TEXT_RECT = Rect.new(0, 0, 32, 32)
const_set :VISIBLE, true
psg = Taroxd::Passage
include psg
# 通行度文字的位图缓存
def text_bitmaps
@text_bitmap_cache ||= TEXTS.map do |text|
bitmap = Bitmap.new(TEXT_RECT.width, TEXT_RECT.height)
bitmap.draw_text(TEXT_RECT, text, 1)
bitmap
end
end
# 绘制通行度的设置情况
def_after :draw_point do |x, y|
bitmap.blt(x * 32, y * 32, text_bitmaps[psg.data[x, y]], TEXT_RECT)
end
# 更新通行度的变化
def_after :update do
return unless EDIT_TRIGGER.call
x, y = EDIT_POINT.call
bitmap.clear_rect(x * 32, y * 32, 32, 32)
draw_point(x, y)
end
def_before :dispose do
@text_bitmaps_cache.each(&:dispose) if @text_bitmaps
end
end
end