# @taroxd metadata 1.0
# @id web
# @display 打开网页
# @require taroxd_core
# @help 增加打开网页的功能。
module Taroxd::Web
API = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')
module_function
# 打开网页
def open(uri)
API.call(0, 'open', uri, 0, 0, 1)
end
end
打开网页
无限图层显示系统
# @taroxd metadata 1.0
# @require taroxd_core
# @display 无限图层显示系统
# @id ulds
# @help
# 使用方法：导入此脚本后，在地图上备注如下内容。
#
# <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
# dispose: 图片释放前执行的代码
# 公式，默认为空
# </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 if bitmap
super
end
def adjust_x(x)
return x if !@scroll_x || @scroll_x.abs < Float::EPSILON
$game_map.adjust_x(x.fdiv(@scroll_x)) * @scroll_x
end
def adjust_y(y)
return y if !@scroll_y || @scroll_y.abs < Float::EPSILON
$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 initialize(_)
super
@visible = true
end
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
container(viewport)
end
private
def container(viewport)
(extract('loop') ? Plane : Sprite).new(viewport).tap do |container|
container.bitmap = make_bitmap
container.instance_eval(init_container_code, __FILE__, __LINE__)
end
end
# 在一个 sprite 或 plane 的上下文中执行的代码。
# 如果难以理解，请尝试输出这段代码来查看。
def init_container_code
"#{binding_code}
#{init_attr_code}
#{define_update_code}
#{define_dispose_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 define_dispose_code
code = extract('dispose')
!code ? "" : %{
define_singleton_method :dispose do
#{code}
super()
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 make_bitmap
basename = extract(nil)
if !basename.empty?
folder_name = "Graphics/#{extract('path', DEFAULT_PATH).chomp}"
Bitmap.new("#{folder_name}/#{basename}")
else
nil
end
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
非测试游戏的控制台
# @taroxd metadata 1.0
# @display 非测试游戏的控制台
# @id test_with_console
# @help 在直接使用 Game.exe 打开游戏时，同时打开控制台
unless $TEST
Win32API.new('kernel32', 'AllocConsole', 'v', 'v').call
$stdout = File.open('CONOUT$', 'w')
$stdin = File.open('CONIN$')
end