#------------------------------------------------------
# ● require Taroxd基础设置，全局变量存档
#------------------------------------------------------
#
# 一条路线，包括玩家位置，队伍成员，持有物品等。
# 游戏中的变量和开关是所有路线共有的。
# 该脚本可以进行路线的切换。
# 游戏开始时，路线 id 为 0。
#
# 进入空路线时，队伍无成员，不持有任何物品。玩家的位置不变。
# 建议用以下方式来初始化一条路线：
# 淡出画面 - Route.current.id = id - 初始化路线 - 淡入画面
#
# -- 用法 -- 在事件脚本中输入 --
# Route.current.id：获取当前路线的 id。
# Route.current.id = id：
# 切换到第 id 号路线，无淡入淡出效果。
# set_route(id)：
# 切换到第 id 号路线，有淡入淡出效果。
# merge_route(id)：将第 id 号路线合并入当前路线，并清除第 id 号路线。
# Route.current.clear(id)：清除第 id 号路线。
#------------------------------------------------------
# 路线类，保存了路线 id 和数据。该类的实例会存入存档。
class Taroxd::Route
# 数据
class Contents
attr_reader :party, :map_id, :x, :y, :d
def initialize
@party = $game_party
@map_id = $game_map.map_id
@x = $game_player.x
@y = $game_player.y
@d = $game_player.direction
end
def restore
$game_party = @party
$game_player.reserve_transfer(@map_id, @x, @y, @d)
end
end
class << self
def new
Taroxd::Global[:route] ||= super
end
alias_method :current, :new
end
attr_reader :id
def initialize
@id = 0
@data = [] # Contents 实例的数组
end
def id=(id)
return if @id == id
@data[@id] = Contents.new
@id = id
contents = @data[id]
contents ? contents.restore : init_route
end
# 合并路线
def <<(id)
if @id != id && @data[id]
$game_party.merge_party(@data[id].party)
clear(id)
end
self
end
def clear(id = nil)
id ? @data[id] = nil : @data.clear
end
private
# 进入一条新路线时执行的内容
def init_route
$game_party = Game_Party.new
end
end
class Game_Interpreter
Route = Taroxd::Route
# 设置路线
def set_route(id)
return if $game_party.in_battle
command_221 # 淡出画面
Route.current.id = id
Fiber.yield while $game_player.transfer?
command_222 # 淡入画面
end
# 合并路线
def merge_route(id)
Route.current << id
$game_player.refresh
$game_map.need_refresh = true
end
end
class Game_Party < Game_Unit
# 合并金钱、角色、物品
def merge_party(other)
gold, actors, items, weapons, armors = other.merge_contents
gain_gold(gold)
@actors |= actors
merge_item @items, items, $data_items
merge_item @weapons, weapons, $data_weapons
merge_item @armors, armors, $data_armors
end
protected
def merge_contents
[@gold, @actors, @items, @weapons, @armors]
end
private
def merge_item(to, from, database)
to.merge!(from) do |id, v1, v2|
[v1 + v2, max_item_number(database[id])].min
end
end
end