【ULDS】无限图层显示系统 Unlimited Layers Display System - Project1

#----------------------------------------------------------------------------
# ● require Taroxd基础设置
#    无限图层显示系统 Unlimited Layers Display System By Taroxd
#----------------------------------------------------------------------------
#
#  使用方法：导入此脚本后，在地图上备注如下内容。
#
#  <ulds=filename>
#    x: X坐标
#      公式，默认为 0
#    y: Y坐标
#      公式，默认为 0
#    z: Z坐标
#      公式，只计算一次，默认为 10，可以设置为 -100 来当作远景图使用
#    zoom: 缩放倍率
#      公式，默认为 1。缩放的原点为画面左上角。
#    zoom_x: 横向缩放倍率
#      公式，默认为 zoom
#    zoom_y: 纵向缩放倍率
#      公式，默认为 zoom
#    opacity: 不透明度
#      公式，默认为 255
#    blend_type: 合成方式
#      公式，只计算一次。默认为 0 （0：正常、1：加法、2：减法）
#    scroll: 图像跟随地图卷动的速度
#      实数，默认为 32
#    scroll_x: 图像跟随地图横向卷动的速度
#      实数，默认为 scroll
#    scroll_y：图像跟随地图纵向卷动的速度
#      实数，默认为 scroll
#    loop: 循环
#      冒号后面不需要填写任何东西。
#    visible: 图像是否显示
#      公式，默认为 true
#    path: 图像的路径名
#      默认为 Parallaxes
#    color: 合成的颜色
#      公式，只计算一次。默认为 Color.new(0, 0, 0, 0)
#    tone: 色调
#      公式，只计算一次。默认为 Tone.new(0, 0, 0, 0)
#    eval: 初始化后，以 sprite 或 plane 为 self 执行的代码。
#      公式，默认为空
#    update: 图片显示时，每帧执行的更新代码
#      公式，默认为 t += 1
#  </ulds>
#
#  其中 filename 是图片文件名（无需扩展名），放入 Parallaxes 文件夹内
#  这个文件夹可以通过 path 设置更改
#
#  在 <ulds=filename> 和 </ulds> 中间的部分均为选填。不填则自动设为默认值。
#  每一个设置项只能写一行。（地图备注没有单行长度限制）
#  每一行只能写一个设置项。
#  一般来说，正常使用时大部分都是不需要设置的。
#
#  设置项目中的“公式”表示，这一个设置项可以像技能的伤害公式一样填写。
#  “只计算一次”表示，该公式只会在刚刚进入地图时计算一次，之后不会更新。
#  可用 t 表示当前已经显示的帧数，s[n], v[n] 分别表示 n 号开关和 n 号变量。
#  width 表示图片宽度，height 表示图片高度。
#
#  例：
#   <ulds=BlueSky>
#     x: t
#     scroll_x: 16
#     scroll_y: 64
#     loop:
#   </ulds>
#
#  需要多行公式时，可以重复备注。
#  例：
#   <ulds=Slime>
#     path: Battlers
#     x: width / 2
#     y: height / 2
#     eval: self.ox = width / 2
#     eval: self.oy = height / 2
#     eval: self.angle = 180
#   </ulds>
#
#--------------------------------------------------------------------
 
module Taroxd::ULDS
 
  DEFAULT_PATH = 'Parallaxes'               # 图片文件的默认路径
  DEFAULT_Z = 10                            # 默认的 z 值
  RE_OUTER = /<ulds=(.+?)>(.*?)<\/ulds>/mi  # 读取备注用的正则表达式
  RE_INNER = /(\w+) *: *(.*)/               # 读取设置用的正则表达式
 
  module Base
    include Math
 
    attr_accessor :scroll_x, :scroll_y
 
    def dispose
      bitmap.dispose
      super
    end
 
    def adjust_x(x)
      $game_map.adjust_x(x.fdiv(@scroll_x)) * @scroll_x
    end
 
    def adjust_y(y)
      $game_map.adjust_y(y.fdiv(@scroll_y)) * @scroll_y
    end
  end
 
  class Sprite < ::Sprite
    include Base
 
    def x=(x)
      super(adjust_x(x))
    end
 
    def y=(y)
      super(adjust_y(y))
    end
  end
 
  class Plane < ::Plane
    include Base
 
    attr_reader :visible
 
    def x=(x)
      self.ox = -adjust_x(x)
    end
 
    def y=(y)
      self.oy = -adjust_y(y)
    end
 
    def visible=(visible)
      super
      @visible = visible
    end
 
    def width
      bitmap.width
    end
 
    def height
      bitmap.height
    end
  end
 
  class << self
 
    # 从备注中读取设置，并生成数组
    def from_note(note, viewport)
      note.scan(RE_OUTER).map do |name, contents|
        settings = {nil => name}
        contents.scan(RE_INNER) do |key, value|
          (settings[key] ||= '') << value << "\n"
        end
        new(settings, viewport)
      end
    end
 
    # 返回一个 ULDS::Sprite 或 ULDS::Plane 的实例
    def new(settings, viewport)
      @settings = settings
      holder(viewport)
    end
 
    private
 
    def holder(viewport)
      (extract('loop') ? Plane : Sprite).new(viewport).tap do |holder|
        holder.bitmap = Bitmap.new(bitmap_filename)
        holder.instance_eval(init_holder_code, __FILE__, __LINE__)
      end
    end
 
    # 在一个 sprite 或 plane 的上下文中执行的代码。
    # 如果难以理解，请尝试输出这段代码来查看。
    def init_holder_code
      "#{binding_code}
      #{init_attr_code}
      #{define_update_code}
      #{extract 'eval'}"
    end
 
    # 定义变量的代码
    def binding_code
      's = $game_switches
      v = $game_variables
      t = 0'
    end
 
    # 只计算一次的初始化代码
    def init_attr_code
      "#{set_attr_code 'z', DEFAULT_Z}
      #{set_attr_code 'scroll_x', 32}
      #{set_attr_code 'scroll_y', 32}
      #{set_attr_code 'blend_type'}
      #{set_attr_code 'color'}
      #{set_attr_code 'tone'}"
    end
 
    # 更新的代码
    def define_update_code
      %{
        define_singleton_method :update do
          #{set_attr_code 'visible'}
          return unless visible
          #{set_attr_code 'zoom_x'}
          #{set_attr_code 'zoom_y'}
          #{set_attr_code 'opacity'}
          #{set_attr_code 'x', 0}
          #{set_attr_code 'y', 0}
          #{set_t_code}
        end
      }
    end
 
    # 设置属性的代码
    def set_attr_code(key, default = nil)
      formula = extract(key, default)
      formula && "self.#{key} = (#{formula})"
    end
 
    # 设置时间的代码
    def set_t_code
      extract('update', 't += 1')
    end
 
    # 位图文件名
    def bitmap_filename
      "Graphics/#{extract('path', DEFAULT_PATH).chomp}/#{extract(nil)}"
    end
 
    # 获取备注中的设定值
    def extract(key, default = nil)
      @settings[key] || /(.+)_[xy]\Z/ =~ key && @settings[$1] || default
    end
  end
end
 
class Spriteset_Map
 
  private
 
  def create_ulds
    @ulds = Taroxd::ULDS.from_note($game_map.note, @viewport1)
    @ulds_map_id = $game_map.map_id
  end
 
  def refresh_ulds
    dispose_ulds
    create_ulds
  end
 
  def update_ulds
    refresh_ulds if @ulds_map_id != $game_map.map_id
    @ulds.each(&:update)
  end
 
  def dispose_ulds
    @ulds.each(&:dispose)
  end
 
  def_before :create_parallax,  :create_ulds
  def_before :update_parallax,  :update_ulds
  def_before :dispose_parallax, :dispose_ulds
 
end

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


# ● require Taroxd基础设置


#    无限图层显示系统 Unlimited Layers Display System By Taroxd


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


#


#  使用方法：导入此脚本后，在地图上备注如下内容。


#


#  <ulds=filename>


#    x: X坐标


#      公式，默认为 0


#    y: Y坐标


#      公式，默认为 0


#    z: Z坐标


#      公式，只计算一次，默认为 10，可以设置为 -100 来当作远景图使用


#    zoom: 缩放倍率


#      公式，默认为 1。缩放的原点为画面左上角。


#    zoom_x: 横向缩放倍率


#      公式，默认为 zoom


#    zoom_y: 纵向缩放倍率


#      公式，默认为 zoom


#    opacity: 不透明度


#      公式，默认为 255


#    blend_type: 合成方式


#      公式，只计算一次。默认为 0 （0：正常、1：加法、2：减法）


#    scroll: 图像跟随地图卷动的速度


#      实数，默认为 32


#    scroll_x: 图像跟随地图横向卷动的速度


#      实数，默认为 scroll


#    scroll_y：图像跟随地图纵向卷动的速度


#      实数，默认为 scroll


#    loop: 循环


#      冒号后面不需要填写任何东西。


#    visible: 图像是否显示


#      公式，默认为 true


#    path: 图像的路径名


#      默认为 Parallaxes


#    color: 合成的颜色


#      公式，只计算一次。默认为 Color.new(0, 0, 0, 0)


#    tone: 色调


#      公式，只计算一次。默认为 Tone.new(0, 0, 0, 0)


#    eval: 初始化后，以 sprite 或 plane 为 self 执行的代码。


#      公式，默认为空


#    update: 图片显示时，每帧执行的更新代码


#      公式，默认为 t += 1


#  </ulds>


#


#  其中 filename 是图片文件名（无需扩展名），放入 Parallaxes 文件夹内


#  这个文件夹可以通过 path 设置更改


#


#  在 <ulds=filename> 和 </ulds> 中间的部分均为选填。不填则自动设为默认值。


#  每一个设置项只能写一行。（地图备注没有单行长度限制）


#  每一行只能写一个设置项。


#  一般来说，正常使用时大部分都是不需要设置的。


#


#  设置项目中的“公式”表示，这一个设置项可以像技能的伤害公式一样填写。


#  “只计算一次”表示，该公式只会在刚刚进入地图时计算一次，之后不会更新。


#  可用 t 表示当前已经显示的帧数，s[n], v[n] 分别表示 n 号开关和 n 号变量。


#  width 表示图片宽度，height 表示图片高度。


#


#  例：


#   <ulds=BlueSky>


#     x: t


#     scroll_x: 16


#     scroll_y: 64


#     loop:


#   </ulds>


#


#  需要多行公式时，可以重复备注。


#  例：


#   <ulds=Slime>


#     path: Battlers


#     x: width / 2


#     y: height / 2


#     eval: self.ox = width / 2


#     eval: self.oy = height / 2


#     eval: self.angle = 180


#   </ulds>


#


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


 


module Taroxd::ULDS


 


  DEFAULT_PATH = 'Parallaxes'               # 图片文件的默认路径


  DEFAULT_Z = 10                            # 默认的 z 值


  RE_OUTER = /<ulds=(.+?)>(.*?)<\/ulds>/mi  # 读取备注用的正则表达式


  RE_INNER = /(\w+) *: *(.*)/               # 读取设置用的正则表达式


 


  module Base


    include Math


 


    attr_accessor :scroll_x, :scroll_y


 


    def dispose


      bitmap.dispose


      super


    end


 


    def adjust_x(x)


      $game_map.adjust_x(x.fdiv(@scroll_x)) * @scroll_x


    end


 


    def adjust_y(y)


      $game_map.adjust_y(y.fdiv(@scroll_y)) * @scroll_y


    end


  end


 


  class Sprite < ::Sprite


    include Base


 


    def x=(x)


      super(adjust_x(x))


    end


 


    def y=(y)


      super(adjust_y(y))


    end


  end


 


  class Plane < ::Plane


    include Base


 


    attr_reader :visible


 


    def x=(x)


      self.ox = -adjust_x(x)


    end


 


    def y=(y)


      self.oy = -adjust_y(y)


    end


 


    def visible=(visible)


      super


      @visible = visible


    end


 


    def width


      bitmap.width


    end


 


    def height


      bitmap.height


    end


  end


 


  class << self


 


    # 从备注中读取设置，并生成数组


    def from_note(note, viewport)


      note.scan(RE_OUTER).map do |name, contents|


        settings = {nil => name}


        contents.scan(RE_INNER) do |key, value|


          (settings[key] ||= '') << value << "\n"


        end


        new(settings, viewport)


      end


    end


 


    # 返回一个 ULDS::Sprite 或 ULDS::Plane 的实例


    def new(settings, viewport)


      @settings = settings


      holder(viewport)


    end


 


    private


 


    def holder(viewport)


      (extract('loop') ? Plane : Sprite).new(viewport).tap do |holder|


        holder.bitmap = Bitmap.new(bitmap_filename)


        holder.instance_eval(init_holder_code, __FILE__, __LINE__)


      end


    end


 


    # 在一个 sprite 或 plane 的上下文中执行的代码。


    # 如果难以理解，请尝试输出这段代码来查看。


    def init_holder_code


      "#{binding_code}


      #{init_attr_code}


      #{define_update_code}


      #{extract 'eval'}"


    end


 


    # 定义变量的代码


    def binding_code


      's = $game_switches


      v = $game_variables


      t = 0'


    end


 


    # 只计算一次的初始化代码


    def init_attr_code


      "#{set_attr_code 'z', DEFAULT_Z}


      #{set_attr_code 'scroll_x', 32}


      #{set_attr_code 'scroll_y', 32}


      #{set_attr_code 'blend_type'}


      #{set_attr_code 'color'}


      #{set_attr_code 'tone'}"


    end


 


    # 更新的代码


    def define_update_code


      %{


        define_singleton_method :update do


          #{set_attr_code 'visible'}


          return unless visible


          #{set_attr_code 'zoom_x'}


          #{set_attr_code 'zoom_y'}


          #{set_attr_code 'opacity'}


          #{set_attr_code 'x', 0}


          #{set_attr_code 'y', 0}


          #{set_t_code}


        end


      }


    end


 


    # 设置属性的代码


    def set_attr_code(key, default = nil)


      formula = extract(key, default)


      formula && "self.#{key} = (#{formula})"


    end


 


    # 设置时间的代码


    def set_t_code


      extract('update', 't += 1')


    end


 


    # 位图文件名


    def bitmap_filename


      "Graphics/#{extract('path', DEFAULT_PATH).chomp}/#{extract(nil)}"


    end


 


    # 获取备注中的设定值


    def extract(key, default = nil)


      @settings[key] || /(.+)_[xy]\Z/ =~ key && @settings[$1] || default


    end


  end


end


 


class Spriteset_Map


 


  private


 


  def create_ulds


    @ulds = Taroxd::ULDS.from_note($game_map.note, @viewport1)


    @ulds_map_id = $game_map.map_id


  end


 


  def refresh_ulds


    dispose_ulds


    create_ulds


  end


 


  def update_ulds


    refresh_ulds if @ulds_map_id != $game_map.map_id


    @ulds.each(&:update)


  end


 


  def dispose_ulds


    @ulds.each(&:dispose)


  end


 


  def_before :create_parallax,  :create_ulds


  def_before :update_parallax,  :update_ulds


  def_before :dispose_parallax, :dispose_ulds


 


end