设置地图通行度

taroxd

RUBY 代码复制

#--------------------------------------------------------------------------
# ● require Taroxd基础设置
#    设置地图通行度
#--------------------------------------------------------------------------
#
#  使用方法1：在“设置区域通行度”处填入一定可以通行的区域和一定不能通行的区域。
#
#    例：PASSABLE_REGIONS = [2, 5, 8..11]
#        表明区域 2, 5, 8, 9, 10, 11 可以通行，无论上面是什么图块。
#
#  使用方法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] }
 
  # 设置区域通行度。可以使用 Range。
  PASSABLE_REGIONS   = []    # 可以通行的区域
  IMPASSABLE_REGIONS = []    # 不可通行的区域
 
  # 常量，不建议改动
  DEFAULT    = 0
  PASSABLE   = 1
  IMPASSABLE = 2
  TEXTS = ['△', '○', '×']
 
  SIZE = TEXTS.size
 
  # 通行度的哈希表。以地图ID为键，以通行度的二维 Table 为值。
  @data = File.exist?(FILE) ? load_data(FILE) : {}
 
  class << self
 
    # 获取 x, y 坐标处的通行度设定。（DEFAULT/PASSABLE/IMPASSABLE）
    def [](x, y)
      return data[x, y] if data[x, y] != DEFAULT
      rid = $game_map.region_id(x, y)
      return PASSABLE   if PASSABLE_REGIONS.any?   { |e| e === rid }
      return IMPASSABLE if IMPASSABLE_REGIONS.any? { |e| e === rid }
      DEFAULT
    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
 
    # 如果表格不够大，那么重新建立表格
    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]
    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

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


# ● require Taroxd基础设置


#    设置地图通行度


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


#


#  使用方法1：在“设置区域通行度”处填入一定可以通行的区域和一定不能通行的区域。


#


#    例：PASSABLE_REGIONS = [2, 5, 8..11]


#        表明区域 2, 5, 8, 9, 10, 11 可以通行，无论上面是什么图块。


#


#  使用方法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] }


 


  # 设置区域通行度。可以使用 Range。


  PASSABLE_REGIONS   = []    # 可以通行的区域


  IMPASSABLE_REGIONS = []    # 不可通行的区域


 


  # 常量，不建议改动


  DEFAULT    = 0


  PASSABLE   = 1


  IMPASSABLE = 2


  TEXTS = ['△', '○', '×']


 


  SIZE = TEXTS.size


 


  # 通行度的哈希表。以地图ID为键，以通行度的二维 Table 为值。


  @data = File.exist?(FILE) ? load_data(FILE) : {}


 


  class << self


 


    # 获取 x, y 坐标处的通行度设定。（DEFAULT/PASSABLE/IMPASSABLE）


    def [](x, y)


      return data[x, y] if data[x, y] != DEFAULT


      rid = $game_map.region_id(x, y)


      return PASSABLE   if PASSABLE_REGIONS.any?   { |e| e === rid }


      return IMPASSABLE if IMPASSABLE_REGIONS.any? { |e| e === rid }


      DEFAULT


    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


 


    # 如果表格不够大，那么重新建立表格


    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]


    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