事件脚本扩展

taroxd

RUBY 代码复制

#--------------------------------------------------------------------------
# ● require Taroxd基础设置
#    偷懒用的事件脚本。
#--------------------------------------------------------------------------
#
#    添加了以下方法：
#
#    Game_Interpreter
#      this_event: 获取本事件。如果事件不在当前地图上，返回 nil。
#      add_battlelog(text): 追加战斗信息。
#      shake_for(power = 5, speed = 5) { block }:
#        震动画面直到 block 执行完毕。没有 block 时，画面会无限震动下去。
#        不要在 block 中 return。
#        如果一定需要的话，记得加上 stop_shake 来停止震动。
#      stop_shake: 停止画面震动。
#      self_switch
#      self_switch(event_id)
#      self_switch(event_id, map_id):
#        返回对应事件的 SelfSwitch 对象。
#
#    SelfSwitch
#      由 Game_Interpreter#self_switch 获取。
#      方法：
#      self[letter]：获取对应独立开关的值。letter: 'A'、'B'、'C'、'D' 之一。
#      self[letter] = value：设置对应独立开关的值。
#      属性 a, b, c, d：分别代表对应的独立开关。
#
#    Game_Switches/Game_Variables/Game_SelfSwitches
#       clear / reset: 清空数据
#
#    Game_CharacterBase
#       zoom_x, zoom_y, angle, mirror, opacity 属性: 控制对应 Sprite 的属性。
#       zoom=: 同时设置 zoom_x 与 zoom_y。
#       force_pattern(pattern):
#         将行走图强制更改为对应的 pattern。
#         pattern 从左到右分别为 0, 1, 2。
#         使用此功能时，建议勾选固定朝向，并且取消步行动画。
#       force_bush_depth(depth):
#         将人物的 bush_depth 属性固定为 depth，不受地形的影响。
#
#    Game_Player
#       waiting 属性：设为真值时，禁止玩家移动
#       disable_scroll 属性：设为真值时，禁止地图卷动
#
#    Game_Party
#       +(gold), -(gold): 增加/减少金钱，并返回 self。
#       <<(actor), <<(actor_id): 加入指定队员，并返回 self。
#
#--------------------------------------------------------------------------
 
module Taroxd::EventHelper
 
  # 定义了清除数据的方法
  module ClearData
 
    Game_Switches.send     :include, self
    Game_Variables.send    :include, self
    Game_SelfSwitches.send :include, self
 
    def clear
      @data.clear
      on_change
      self
    end
 
    alias_method :reset, :clear
  end
 
  # 代表独立开关的对象
  SelfSwitch = Struct.new(:map_id, :event_id) do
    def [](letter)
      $game_self_switches[[map_id, event_id, letter]]
    end
 
    def []=(letter, value)
      $game_self_switches[[map_id, event_id, letter]] = value
    end
 
    def a; self['A']; end
    def b; self['B']; end
    def c; self['C']; end
    def d; self['D']; end
 
    def a=(v); self['A'] = v; end
    def b=(v); self['B'] = v; end
    def c=(v); self['C'] = v; end
    def d=(v); self['D'] = v; end
  end
end
 
 
class Game_Interpreter
 
  include Taroxd::EventHelper
 
  def this_event
    $game_map.events[@event_id] if same_map?
  end
 
  def add_battlelog(text)
    if SceneManager.scene_is?(Scene_Battle)
      SceneManager.scene.add_battlelog(text)
    end
  end
 
  def self_switch(event_id = @event_id, map_id = @map_id)
    SelfSwitch.new(map_id, event_id)
  end
 
  def stop_shake
    screen.start_shake(0, 0, 0)
  end
 
  # 为了在事件解释器的 fiber 中使用，因此没有 ensure。
  def shake_for(power = 5, speed = 5)
    screen.start_shake(power, speed, Float::INFINITY)
    return unless block_given?
    yield
    stop_shake
  end
end
 
class Game_CharacterBase
 
  attr_accessor :zoom_x, :zoom_y, :angle, :mirror, :opacity
 
  def zoom=(zoom)
    @zoom_x = @zoom_y = zoom
  end
 
  def force_pattern(pattern)
    @original_pattern = @pattern = pattern
  end
 
  def force_bush_depth(depth)
    @force_bush_depth = @bush_depth = depth
  end
 
  def_unless(:update_bush_depth) { @force_bush_depth }
end
 
 
class Game_Player < Game_Character
 
  attr_accessor :waiting, :disable_scroll
 
  def_unless :movable?, :waiting
  def_unless(:update_scroll) { |_, _| @disable_scroll }
end
 
class Game_Party < Game_Unit
 
  def +(gold)
    gain_gold(gold)
    self
  end
 
  def -(gold)
    lose_gold(gold)
    self
  end
 
  def <<(actor)
    add_actor(actor.id)
    self
  end
end
 
class Sprite_Character < Sprite_Base
 
  # 更新对应属性
  def_after :update_other do
    self.zoom_x = @character.zoom_x if @character.zoom_x
    self.zoom_y = @character.zoom_y if @character.zoom_y
    self.angle  = @character.angle  if @character.angle
    self.mirror = @character.mirror unless @character.mirror.nil?
  end
end
 
class Scene_Battle < Scene_Base
 
  def add_battlelog(text)
    @log_window.add_text(text)
  end
end

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


# ● require Taroxd基础设置


#    偷懒用的事件脚本。


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


#


#    添加了以下方法：


#


#    Game_Interpreter


#      this_event: 获取本事件。如果事件不在当前地图上，返回 nil。


#      add_battlelog(text): 追加战斗信息。


#      shake_for(power = 5, speed = 5) { block }:


#        震动画面直到 block 执行完毕。没有 block 时，画面会无限震动下去。


#        不要在 block 中 return。


#        如果一定需要的话，记得加上 stop_shake 来停止震动。


#      stop_shake: 停止画面震动。


#      self_switch


#      self_switch(event_id)


#      self_switch(event_id, map_id):


#        返回对应事件的 SelfSwitch 对象。


#


#    SelfSwitch


#      由 Game_Interpreter#self_switch 获取。


#      方法：


#      self[letter]：获取对应独立开关的值。letter: 'A'、'B'、'C'、'D' 之一。


#      self[letter] = value：设置对应独立开关的值。


#      属性 a, b, c, d：分别代表对应的独立开关。


#


#    Game_Switches/Game_Variables/Game_SelfSwitches


#       clear / reset: 清空数据


#


#    Game_CharacterBase


#       zoom_x, zoom_y, angle, mirror, opacity 属性: 控制对应 Sprite 的属性。


#       zoom=: 同时设置 zoom_x 与 zoom_y。


#       force_pattern(pattern):


#         将行走图强制更改为对应的 pattern。


#         pattern 从左到右分别为 0, 1, 2。


#         使用此功能时，建议勾选固定朝向，并且取消步行动画。


#       force_bush_depth(depth):


#         将人物的 bush_depth 属性固定为 depth，不受地形的影响。


#


#    Game_Player


#       waiting 属性：设为真值时，禁止玩家移动


#       disable_scroll 属性：设为真值时，禁止地图卷动


#


#    Game_Party


#       +(gold), -(gold): 增加/减少金钱，并返回 self。


#       <<(actor), <<(actor_id): 加入指定队员，并返回 self。


#


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


 


module Taroxd::EventHelper


 


  # 定义了清除数据的方法


  module ClearData


 


    Game_Switches.send     :include, self


    Game_Variables.send    :include, self


    Game_SelfSwitches.send :include, self


 


    def clear


      @data.clear


      on_change


      self


    end


 


    alias_method :reset, :clear


  end


 


  # 代表独立开关的对象


  SelfSwitch = Struct.new(:map_id, :event_id) do


    def [](letter)


      $game_self_switches[[map_id, event_id, letter]]


    end


 


    def []=(letter, value)


      $game_self_switches[[map_id, event_id, letter]] = value


    end


 


    def a; self['A']; end


    def b; self['B']; end


    def c; self['C']; end


    def d; self['D']; end


 


    def a=(v); self['A'] = v; end


    def b=(v); self['B'] = v; end


    def c=(v); self['C'] = v; end


    def d=(v); self['D'] = v; end


  end


end


 


 


class Game_Interpreter


 


  include Taroxd::EventHelper


 


  def this_event


    $game_map.events[@event_id] if same_map?


  end


 


  def add_battlelog(text)


    if SceneManager.scene_is?(Scene_Battle)


      SceneManager.scene.add_battlelog(text)


    end


  end


 


  def self_switch(event_id = @event_id, map_id = @map_id)


    SelfSwitch.new(map_id, event_id)


  end


 


  def stop_shake


    screen.start_shake(0, 0, 0)


  end


 


  # 为了在事件解释器的 fiber 中使用，因此没有 ensure。


  def shake_for(power = 5, speed = 5)


    screen.start_shake(power, speed, Float::INFINITY)


    return unless block_given?


    yield


    stop_shake


  end


end


 


class Game_CharacterBase


 


  attr_accessor :zoom_x, :zoom_y, :angle, :mirror, :opacity


 


  def zoom=(zoom)


    @zoom_x = @zoom_y = zoom


  end


 


  def force_pattern(pattern)


    @original_pattern = @pattern = pattern


  end


 


  def force_bush_depth(depth)


    @force_bush_depth = @bush_depth = depth


  end


 


  def_unless(:update_bush_depth) { @force_bush_depth }


end


 


 


class Game_Player < Game_Character


 


  attr_accessor :waiting, :disable_scroll


 


  def_unless :movable?, :waiting


  def_unless(:update_scroll) { |_, _| @disable_scroll }


end


 


class Game_Party < Game_Unit


 


  def +(gold)


    gain_gold(gold)


    self


  end


 


  def -(gold)


    lose_gold(gold)


    self


  end


 


  def <<(actor)


    add_actor(actor.id)


    self


  end


end


 


class Sprite_Character < Sprite_Base


 


  # 更新对应属性


  def_after :update_other do


    self.zoom_x = @character.zoom_x if @character.zoom_x


    self.zoom_y = @character.zoom_y if @character.zoom_y


    self.angle  = @character.angle  if @character.angle


    self.mirror = @character.mirror unless @character.mirror.nil?


  end


end


 


class Scene_Battle < Scene_Base


 


  def add_battlelog(text)


    @log_window.add_text(text)


  end


end