多路线系统

taroxd · 发表于 2014-9-27 08:41:45

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由 taroxd 于 2014-10-1 07:36 编辑

主要是用事件指令来调用的。有空再写注释吧。
可以实现游戏在多条路线中切换的效果

RUBY 代码复制

#----------------------------------------------------------------------------
# ● 使用方法：事件脚本，见 Game_Interpreter 部分。
#----------------------------------------------------------------------------
 
module Taroxd end
 
module Taroxd::Route
  #--------------------------------------------------------------------------
  # ● 设置路线
  #--------------------------------------------------------------------------
  def set_route
    current_route[route_type] = make_route
    restore_route(current_route[route_type])
  end
  #--------------------------------------------------------------------------
  # ● 清除路线
  #--------------------------------------------------------------------------
  def clear_route(id = nil)
    current_route.clear(id)
  end
  #--------------------------------------------------------------------------
  # ● 获取当前的路线
  #--------------------------------------------------------------------------
  def current_route
    $game_party.current_route
  end
 
  class Routes
    #------------------------------------------------------------------------
    # ● 初始化
    #------------------------------------------------------------------------
    def initialize
      @id = @last_id = 0
      @routes = []
    end
    #------------------------------------------------------------------------
    # ● 切换路线
    #------------------------------------------------------------------------
    def id=(id)
      @last_id = @id
      @id = id
    end
    #------------------------------------------------------------------------
    # ● 清除路线
    #------------------------------------------------------------------------
    def clear(id = nil)
      if id
        @routes[id] = nil
      else
        @routes.clear
      end
    end
    #------------------------------------------------------------------------
    # ● 获取路线
    #------------------------------------------------------------------------
    def route(id)
      @routes[id] ||= {}
    end
    #------------------------------------------------------------------------
    # ● 保存上次路线数据
    #------------------------------------------------------------------------
    def []=(type, data)
      route(@last_id)[type] = data
    end
    #------------------------------------------------------------------------
    # ● 获取当前路线数据
    #------------------------------------------------------------------------
    def [](type)
      route(@id)[type]
    end
  end
end
 
class Game_Interpreter
  include Taroxd::Route
  #--------------------------------------------------------------------------
  # ● 设置路线
  #    suspend：自动淡入淡出，并保存当前事件状态
  #--------------------------------------------------------------------------
  def set_route(id, suspend = true)
    return if $game_party.in_battle
    command_221 if suspend            # 淡出画面
    current_route.id = id
    $game_party.set_route
    $game_player.set_route
    $game_player.refresh
    $game_map.need_refresh = true
    Fiber.yield while $game_player.transfer?
    return unless suspend
    command_222                       # 淡入画面
    $game_map.set_route
    Fiber.yield
  end
  #--------------------------------------------------------------------------
  # ● 合并路线
  #--------------------------------------------------------------------------
  def merge_route(id)
    $game_party.merge_route(id)
    $game_player.refresh
    $game_map.need_refresh = true
    clear_route(id)
  end
end
 
class Game_Map
  include Taroxd::Route
  #--------------------------------------------------------------------------
  # ● 路线类型
  #--------------------------------------------------------------------------
  def route_type
    :interpreter
  end
  #--------------------------------------------------------------------------
  # ● 路线数据
  #--------------------------------------------------------------------------
  def make_route
    interpreter = @interpreter
    @interpreter = Game_Interpreter.new
    interpreter
  end
  #--------------------------------------------------------------------------
  # ● 恢复路线数据
  #--------------------------------------------------------------------------
  def restore_route(data)
    @interpreter = data if data
  end
end
 
class Game_Player
  include Taroxd::Route
  #--------------------------------------------------------------------------
  # ● 路线类型
  #--------------------------------------------------------------------------
  def route_type
    :position
  end
  #--------------------------------------------------------------------------
  # ● 路线数据
  #--------------------------------------------------------------------------
  def make_route
    [$game_map.map_id, x, y, direction]
  end
  #--------------------------------------------------------------------------
  # ● 恢复路线数据
  #--------------------------------------------------------------------------
  def restore_route(data)
    return unless data
    reserve_transfer(*data)
    refresh
  end
end
 
class Game_Party < Game_Unit
  include Taroxd::Route
  #--------------------------------------------------------------------------
  # ● 存储当前路线（存档用）
  #--------------------------------------------------------------------------
  attr_reader :current_route
  alias init_20141001 initialize
  def initialize
    init_20141001
    @current_route = Routes.new
  end
  #--------------------------------------------------------------------------
  # ● 路线类型
  #--------------------------------------------------------------------------
  def route_type
    :party
  end
  #--------------------------------------------------------------------------
  # ● 路线数据
  #--------------------------------------------------------------------------
  def make_route
    [@gold, @actors, @items, @weapons, @armors]
  end
  #--------------------------------------------------------------------------
  # ● 恢复路线数据
  #--------------------------------------------------------------------------
  def restore_route(data)
    if data
      @gold, @actors, @items, @weapons, @armors = data
    else
      @gold = 0
      @actors = []
      init_all_items
    end
  end
  #--------------------------------------------------------------------------
  # ● 合并路线
  #--------------------------------------------------------------------------
  def merge_route(id)
    data = current_route.route(id)[route_type]
    return unless data
    gold, actors, items, weapons, armors = data
    gain_gold(gold)
    @actors |= actors
    merge_item @items,   items,   $data_items
    merge_item @weapons, weapons, $data_weapons
    merge_item @armors,  armors,  $data_armors
  end
  #--------------------------------------------------------------------------
  # ● 合并物品
  #--------------------------------------------------------------------------
  def merge_item(to, from, database)
    to.merge!(from) do |id, v1, v2|
      [v1 + v2, max_item_number(database[id])].min
    end
  end
end

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


# ● 使用方法：事件脚本，见 Game_Interpreter 部分。


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


 


module Taroxd end


 


module Taroxd::Route


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


  # ● 设置路线


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


  def set_route


    current_route[route_type] = make_route


    restore_route(current_route[route_type])


  end


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


  # ● 清除路线


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


  def clear_route(id = nil)


    current_route.clear(id)


  end


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


  # ● 获取当前的路线


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


  def current_route


    $game_party.current_route


  end


 


  class Routes


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


    # ● 初始化


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


    def initialize


      @id = @last_id = 0


      @routes = []


    end


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


    # ● 切换路线


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


    def id=(id)


      @last_id = @id


      @id = id


    end


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


    # ● 清除路线


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


    def clear(id = nil)


      if id


        @routes[id] = nil


      else


        @routes.clear


      end


    end


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


    # ● 获取路线


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


    def route(id)


      @routes[id] ||= {}


    end


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


    # ● 保存上次路线数据


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


    def []=(type, data)


      route(@last_id)[type] = data


    end


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


    # ● 获取当前路线数据


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


    def [](type)


      route(@id)[type]


    end


  end


end


 


class Game_Interpreter


  include Taroxd::Route


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


  # ● 设置路线


  #    suspend：自动淡入淡出，并保存当前事件状态


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


  def set_route(id, suspend = true)


    return if $game_party.in_battle


    command_221 if suspend            # 淡出画面


    current_route.id = id


    $game_party.set_route


    $game_player.set_route


    $game_player.refresh


    $game_map.need_refresh = true


    Fiber.yield while $game_player.transfer?


    return unless suspend


    command_222                       # 淡入画面


    $game_map.set_route


    Fiber.yield


  end


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


  # ● 合并路线


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


  def merge_route(id)


    $game_party.merge_route(id)


    $game_player.refresh


    $game_map.need_refresh = true


    clear_route(id)


  end


end


 


class Game_Map


  include Taroxd::Route


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


  # ● 路线类型


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


  def route_type


    :interpreter


  end


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


  # ● 路线数据


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


  def make_route


    interpreter = @interpreter


    @interpreter = Game_Interpreter.new


    interpreter


  end


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


  # ● 恢复路线数据


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


  def restore_route(data)


    @interpreter = data if data


  end


end


 


class Game_Player


  include Taroxd::Route


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


  # ● 路线类型


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


  def route_type


    :position


  end


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


  # ● 路线数据


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


  def make_route


    [$game_map.map_id, x, y, direction]


  end


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


  # ● 恢复路线数据


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


  def restore_route(data)


    return unless data


    reserve_transfer(*data)


    refresh


  end


end


 


class Game_Party < Game_Unit


  include Taroxd::Route


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


  # ● 存储当前路线（存档用）


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


  attr_reader :current_route


  alias init_20141001 initialize


  def initialize


    init_20141001


    @current_route = Routes.new


  end


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


  # ● 路线类型


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


  def route_type


    :party


  end


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


  # ● 路线数据


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


  def make_route


    [@gold, @actors, @items, @weapons, @armors]


  end


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


  # ● 恢复路线数据


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


  def restore_route(data)


    if data


      @gold, @actors, @items, @weapons, @armors = data


    else


      @gold = 0


      @actors = []


      init_all_items


    end


  end


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


  # ● 合并路线


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


  def merge_route(id)


    data = current_route.route(id)[route_type]


    return unless data


    gold, actors, items, weapons, armors = data


    gain_gold(gold)


    @actors |= actors


    merge_item @items,   items,   $data_items


    merge_item @weapons, weapons, $data_weapons


    merge_item @armors,  armors,  $data_armors


  end


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


  # ● 合并物品


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


  def merge_item(to, from, database)


    to.merge!(from) do |id, v1, v2|


      [v1 + v2, max_item_number(database[id])].min


    end


  end


end

taroxd · 发表于 2014-9-27 12:09:31

本帖最后由 taroxd 于 2014-10-1 07:37 编辑

整合了两个脚本的功能。反正之前的也没什么用，就占这个地方发了吧。

kuerlulu · 发表于 2014-9-27 19:39:26

公共事件: 说得好有道理，我竟无言以对

帐号		自动登录	找回密码
密码			注册会员

[RMVA发布] 多路线系统

加入我们，或者，欢迎回来。

点评

点评

开拓者

贵宾