显示地图通行度

taroxd

RUBY 代码复制

#--------------------------------------------------------------------------
# ● require Taroxd基础设置，修复bug
#    使用方法：游戏测试中按下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

#--------------------------------------------------------------------------


# ● require Taroxd基础设置，修复bug


#    使用方法：游戏测试中按下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