请问如何在使用虚拟日历脚本后正常更改色调？ - Project1

#==============================================================================
# ** 虚拟日历
#  作者：影月千秋
#  适用：VA
#------------------------------------------------------------------------------
# * 简介：
#  模拟时间流逝，并在地图（菜单）进行显示
#  可以自定义计时规则和显示效果
#  请为本脚本准备变量和开关，在下方进行设定
#  不出意外的话本脚本不再维护
#------------------------------------------------------------------------------
# * 使用方法：
#  将此脚本插入到其他脚本以下，Main 以上，在下面给出的设定区进行设定后即可
#  在事件中操作指定的变量和开关，便可以获取和改变时间
#  也可以通过事件脚本进行操作
#  允许的脚本呼叫：
#    Smomo.calendar(type) 取得日历的内部数据
#   参数说明：type 想要获得的数据名
#       【:all】 获取所有数据的数组 依次为：时段 色调 刷新标志 周期历时 周期序号
#       【:zone】获取当前时段的名称（如："早晨"）
#       【:tone】不常用，获取当前色调（Tone色调类的实例）
#       【:need_change】没有任何实用意义，不常用，可以获取需要刷新的标志
#       【:period】当前周期经过的时间（如：1366）
#       【:prd】当前周期的序号，对应在周期名字（如:3）
#       【:pname】当前周期的名字，与prd是对应的（如:周三）
#   例：【Smomo.calendar(:zone)】获取时段名
#  发布帖：
#   [url]http://rm.66rpg.com/thread-330684-1-1.html[/url]
#------------------------------------------------------------------------------
# * 版本
#   V 4.0 2017.02.05 删掉了估计没什么人用的 routine；修复了周期更新异常的 bug
#   V 3.4 2016.08.01 增加了一个人性化的报错提示: 未设置 Speed 对应变量
#   V 3.3 2014.09.30 解决了时段计时与时间在变量干涉下不同步的问题
#   V 3.2 2014.09.07 添加了公共接口routine
#   V 3.1 2014.09.07 优化了室内地图的标记方式 修正了暂停计时时色调的转换问题
#   V 3.0 2014.07.31 修正了2.7以为成功实际上未修正成功的问题 并做了一些其他调整
#   V 2.9 2014.07.28 修正了Map不能为:none从2.3版延续过来的睿智错误
#   V 2.8 2014.07.26 对2.7的小修正 并修改了自定义提示语
#   V 2.7 2014.07.24 修正了事件推进时不刷新周期的问题
#   V 2.6 2014.05.24 修正了日期出现0的BUG
#   V 2.5 2014.04.06 规范化脚本 消除冗余 重建逻辑结构 需要依赖Smomo脚本核心
#   V 2.4 2014.01.31 修正读档时报错的BUG
#   V 2.3 2014.01.29 可以自定义地图窗体的位置
#   V 2.2 2013.12.27 修正Window_MoVMe的错误
#   V 2.1 2013.12.15 修正过卡的BUG
#   V 2.0 2013.10.04 基本重写
#   V 1.0 2013.08.31 公开
#------------------------------------------------------------------------------
# * 声明：
#   本脚本由来自【影月千秋】，使用和转载请保留此信息
#==============================================================================
 
$smomo ||= {}
if $smomo["Calendar"].nil?
$smomo["Calendar"] = 4.0
 
#==============================================================================
# ** Smomo::Calendar
#==============================================================================
module Smomo
module Calendar
 
  # 一般情况下可以不予配置直接使用本系统
  # 但为了获得比较理想的效果，建议仔细进行配置
  # 配置比较繁琐，请务必耐心阅读注释
 
  Use = 41
  # [开关 ID] 只有当此开关打开时，才会计时
   # 打开开关前，请确保下方 Speed 对应的变量不为 0
 
  Speed = 40
  # [变量 ID] 此变量的值代表经过多少帧后最小计时单位增加一
   # 一般情况下，1 秒 = 60 帧
 
  System = [
    # ["单位名", 满多少进一, 是否以零起始],
    ["分", 60, true],
    ["时", 24, true],
    ["日", 30],
    ["月", 12],
    ["年", 9999],
  ]
  # 设定计时制，排在前面的单位小于后面的单位
   # 有的单位允许零值，比如 3:00，有的不行，比如 3 月 1 日
    # 默认不允许零值，如果允许，请将“是否以零起始”填为[true]
   # 称第一个单位为最小计时单位
 
  Var = 41
  # [变量 ID] 设定记时制占用变量的起始编号
   # 会占用以这个号码为首的连续数个变量
    # 占用的变量个数即之前 System 中设置的单位的个数
 
  Start = [39, 7, 27, 5, 3518]
  # 设置游戏起始时间，与上面 System 中的单位从上到下依次对应
 
  PeriodName = ["周日", "周一", "周二", "周三", "周四", "周五", "周六"]
  # 周期
   # 每经过一定长度的最小计时单位，会循环推进到下一个周期
   # 具体经过的最小计时单位数在 Zone 中设定
 
  Start_PeriodName = 5
  # 游戏起始时的周期，用序号指代（从 0 开始数）
 
  TimeZone = true
  # [true/false] 是否启用时段功能，即一个周期内是否有各时段的区分
 
  Zone = [
  # [时段长度, Tone.new(红, 绿, 蓝, 灰), "名称"],
    [120, Tone.new( -75,-100,   0,  75), "夜晚"], # 0...120
    [120, Tone.new(-125,-125, -10, 125), "深夜"], # 120...240
    [120, Tone.new( -75,-100,   0,  75), "黎明"], # 240...360
    [300, Tone.new(   0,   0,   0,   0), "上午"], # 360...660
    [240, Tone.new(  50,  50,  10, -30), "中午"], # 660...900
    [120, Tone.new(   0,   0,   0,   0), "下午"], # 900...1020
    [120, Tone.new(  34, -34, -68, 170), "黄昏"], # 1020...1140
    [300, Tone.new( -75,-100,   0,  75), "夜晚"], # 1140...1440 则1440为周期长度
  ]
  # 设置时段周期内各时段的长度、色调及名称
   # 时段长度以最小计时单位为单位
   # 到达对应时段时 会自动改变画面的色调
   # 所有时段的长度加起来就是周期长度
    # 所以，就算不需要使用时段功能，也一定要保证时段长度之和是一个合适的值
 
  IndoorMap = /<IndoorMap>/i
  # 用于匹配室内地图备注的正则式
   # 默认为 /<IndoorMap>/i
    # 即在地图的备注上写 <IndoorMap> 就可以标记其为室内地图，不区分大小写
   # 处于室内地图时，不会受到时段色调的影响
 
  Menu = false
  # [true/false] 是否在菜单内显示日历
   # true 使用  false 不使用
   # 如果预设不能满足要求 请自行在下方自定义区更改
 
  Map = :bottom
  # [:top/:bottom/:none] 是否在地图上显示日历
   # :top 顶部  :bottom 底部  :none 不使用
   # 如果预设不能满足要求 请自行在下方自定义区更改
 
  Format = {
    # 菜单日历用的格式
    menu: %W!
            <4年>.<2月>.<2日>
            \\I[149]___<Period>
            <2时>:<2分>_<Zone>
          !,
    # 地图日历用的格式
    map:  %W!
            \\I[149]羊历<4年>年<2月>月<2日>日___<Period>___<Zone>_<2时>:<2分>
          !
  }
  # 日历输出格式，此处写多少行，游戏内就会依次对应输出多少行
   # 每一行的内部不要使用空格（ ），空格用下划线（_）代替
   # 尽量不要使用英文感叹号(!)，如果一定要用请在之前加上反斜杠（\!）
   # 使用 <符号> 的形式来代替指定的数据，其他的文字用于修饰
   # 可用的符号：
    # 在上面计时制中设定的单位 可以加上一个数字来代表格式化位数
     # 如：<2时>:<2分> 显示 09:33，<时>:<分> 显示 9:33 
    # <Period> 当前周期的名字（如：星期三）
    # <Zone>   当前时段的名字（如：早晨）
   # 两个符号必须用两对<>分别括起来 不能写在同一对<>内
   # 允许使用转义字符 但是必须有两个反斜杠
    # 如 显示图标 \I[3] 应写成 \\I[3]
end
end
 
#==============================================================================
# 如果你懂脚本，可以在下面调整时间窗口的显示方式
#==============================================================================
 
#============================================================================
# ** Window_MoMenuCalendar 菜单画面中，显示当前游戏内部虚拟日历的窗口
#============================================================================
class Window_MoMenuCalendar < Window_Base
  include Smomo::Calendar
 
  def initialize(gold_window)
    unless $game_switches[Use]
      super(0, 0, 1, 1)
      self.opacity = 0
      return
    end
    height = Format[:menu].size * 30 + 20
    super(0, gold_window.y - height, gold_window.width, height)
    format = Marshal.load Marshal.dump(Format[:menu])
    format.each_with_index do |t, l|
      t.gsub!(/_/){" "}
      System.each_with_index do |(u, m), i|
        t.gsub!(/<(\d*)#{u}>/){
          format("%0#{$1 ? $1.to_i : nil}d", $game_variables[Var + i])
        }
      end
      t.gsub!(/<Period>/){"#{PeriodName[Smomo::Calendar.prd]}"}
      t.gsub!(/<Zone>/){"#{Smomo::Calendar.zone}"}
      draw_text_ex(0, l * 30, t)
    end
  end
end
#============================================================================
# ** Window_MoMapCalendar 地图画面中，显示当前游戏内部虚拟日历的窗口
#                         但本质上是一个精灵
#============================================================================
class Window_MoMapCalendar < Window_Base
  include Smomo::Calendar
 
  def initialize
    height = Format[:map].size * 30 + 10
    @sprite = Sprite.new
    @sprite.y = Smomo::Calendar::Map == :top ? 0 : Graphics.height - height
    @sprite.bitmap = Bitmap.new Graphics.width, height
    @use = true
    update
    refresh
  end
 
  def update
    unless @use == $game_switches[Use]
      @use = $game_switches[Use]
      @sprite.x = @use ? 0 : Graphics.width
      refresh
    else
      if @use && $game_variables[Speed].zero?
        raise "请先将 Speed 对应变量设为非零值!"
      end
      refresh if @use && Graphics.frame_count % $game_variables[Speed] == 0 ||
      $game_map.need_refresh
    end
  end
 
  def dispose
    @sprite.bitmap.dispose if @sprite.bitmap
    @sprite.dispose
  end
 
  def refresh
    contents.clear
    contents.gradient_fill_rect(0, 0, @sprite.width, @sprite.height,
    Color.new(30, 30, 30), Color.new(0, 0, 0, 0))
    format = Marshal.load Marshal.dump(Format[:map])
    format.each_with_index do |t, l|
      t.gsub!(/_/){" "}
      System.each_with_index do |(u, m), i|
        t.gsub!(/<(\d*)#{u}>/){
          format("%0#{$1 ? $1.to_i : nil}d", $game_variables[Var + i])
        }
      end
      t.gsub!(/<Period>/){"#{PeriodName[Smomo::Calendar.prd]}"}
      t.gsub!(/<Zone>/){"#{Smomo::Calendar.zone}"}
      draw_text_ex(0, l * 30 + 5, t)
    end
  end
  #------------------------------------------------------------------------
  # * 偷梁换柱 如果不明白这段的意义 请勿随意删除
  #------------------------------------------------------------------------
  def contents
    @sprite.bitmap
  end
  def windowskin
    Cache.system "Window"
  end
end
#==============================================================================
# ** Scene_Menu 建立菜单场景的窗口
#==============================================================================
class Scene_Menu
  alias ewc_start start
  def start
    ewc_start
    return unless Smomo::Calendar::Menu
    # 在下面添加自定义内容
    @mocalendar_window = Window_MoMenuCalendar.new(@gold_window)
  end
end
#==============================================================================
# ** Scene_Map 建立地图场景的窗口
#==============================================================================
class Scene_Map
  alias ewc_create_all_windows create_all_windows
  def create_all_windows
    ewc_create_all_windows
    return if Smomo::Calendar::Map == :none
    # 在下面添加自定义内容
    @mocalendar_window = Window_MoMapCalendar.new 
  end
end
#=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+#
#------------------------------------------------------------------------------#
                               "请勿跨过这块区域"
#------------------------------------------------------------------------------#
#+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=#
 
#==============================================================================
# ** Smomo::Calendar
#==============================================================================
module Smomo::Calendar
  #
  PeriodSize = Zone.inject(0){|s, (l)| s + l}
  Zone.each_with_index{|z, i| z[0] += i == 0 ? 0 : Zone[i - 1][0]}
  _ = Marshal.load Marshal.dump Zone
  _.each_with_index{|z, i| Zone[i][0] = (i == 0 ? 0 : _[i - 1][0])...z[0]}
  _ = 1
  System.each_with_index do |u, i|
    _ *= i == 0 ? 1 : System[i - 1][1]
    u[2] = !!u[2]
    u[3] = _
  end
  #
  class << self
    attr_reader :zone, :prd
    attr_accessor :period
    define_method(:data){[@zone, @tone, @need_change, @period, @prd]}
    define_method(:data=){|d| @zone, @tone, @need_change, @period, @prd = d}
    define_method(:function){|type| type == :all ? data : eval(type.to_s)}
    #
    def pname
      PeriodName[@prd]
    end
    #
    def ini
      $game_variables.instance_exec do
        System.each_index{|i| @data[Var + i] = Start[i]}
      end
      @tone = Tone.new 0, 0, 0, 0
      @need_change = false
      @prd = Start_PeriodName
      set_period
      fire_in_the_hole
    end
    #
    def set_period
      u = System.each_index.map{|i| $game_variables[Var + i]}
      v = System.map{|a| a[3]}
      @period =
        u.zip(v).each_with_object(:*).map(&:inject).inject(:+) % PeriodSize
    end
    #
    def i_look_into_the_sky_as_time_passes_by
      return unless $game_switches[Use]
      return if $game_message.visible
      raise "请先将 Speed 对应变量设为非零值!" if $game_variables[Speed].zero?
      return unless Graphics.frame_count % $game_variables[Speed] == 0
      $game_variables[Var] += 1
      fire_in_the_hole
    end
    #
    def wtf var, ori, lat
      @period += System[var - Var][3] * (lat - ori)
      fire_in_the_hole
    end
    #
    def fire_in_the_hole
      ensure_time_legal
      ensure_period_legal
      check_period_and_zone
      change_tone if TimeZone
    end
    #
    def ensure_time_legal
      $game_variables.instance_exec do
        System.each_with_index do |(u, m, o), i|
          while @data[Var + i] > m - (o ? 1 : 0)
            @data[Var + i] -= m
            @data[Var + i + 1] += 1
          end
          while @data[Var + i] < 1 - (o ? 1 : 0)
            @data[Var + i] += m
            @data[Var + i + 1] -= 1
          end
        end
      end
    end
    #
    def ensure_period_legal
      @prd += @period / PeriodSize
      @period = @period % PeriodSize
      @prd = @prd % PeriodName.size
    end
    #
    def check_period_and_zone
      tone, @zone = Zone.find{|(r, t, n)| r.include?(@period)}[1, 2]
      @tone == tone ? nil : [@tone = tone, @need_change = true]
    end
    #
    def change_tone im = false, reset = false
      return unless @need_change || im
      @need_change = false
      if indoor? || !$game_switches[Use] && reset
        $game_map.screen.start_tone_change Tone.new(0, 0, 0, 0), 0
      else
        return unless $game_switches[Use]
        $game_map.screen.start_tone_change @tone, im ? 0 : 60
      end
    end
    #
    def indoor?
      $game_map.instance_exec{ @map }.note =~ IndoorMap
    end
  end
end
#==============================================================================
# ** Smomo.calendar(*a, &b)
#==============================================================================
def Smomo.calendar *a, &b
  Smomo::Calendar.function *a, &b
end
#==============================================================================
# ** Game_Switches
#==============================================================================
class Game_Switches
  alias ewc_on_change on_change
  def on_change
    ewc_on_change
    Smomo::Calendar.change_tone true, true
  end
end
#==============================================================================
# ** Game_Variables
#==============================================================================
class Game_Variables
  alias :ewc_set_var :[]=
  def []= variable_id, value
    min = Smomo::Calendar::Var
    max = min + Smomo::Calendar::System.size - 1
    if variable_id.between? min, max
      Smomo::Calendar.wtf variable_id, @data[variable_id], value
    end
    ewc_set_var variable_id, value
  end
end
#==============================================================================
# ** Scene_Map
#==============================================================================
class Scene_Map
  alias ewc_update update
  def update
    ewc_update
    Smomo::Calendar.i_look_into_the_sky_as_time_passes_by
  end
  alias ewc_post_transfer post_transfer
  def post_transfer
    Smomo::Calendar.change_tone(true)
    ewc_post_transfer
  end
end
#==============================================================================
# ** DataManager
#==============================================================================
class << DataManager
  alias ewc_setup_new_game setup_new_game
  def setup_new_game
    ewc_setup_new_game
    Smomo::Calendar.ini
  end
  alias ewc_make_save_contents make_save_contents
  def make_save_contents
    contents = ewc_make_save_contents
    contents[:mocalendar] = Smomo::Calendar.data
    contents
  end
  alias ewc_extract_save_contents extract_save_contents
  def extract_save_contents contents
    ewc_extract_save_contents contents
    Smomo::Calendar.data = contents[:mocalendar]
  end
end
 
else # if $smomo
  msgbox "请不要重复加载此脚本 : )\n【虚拟日历】"
end
#==============================================================================#
#=====                        =================================================#
            "脚 本 尾"
#=====                        =================================================#
#==============================================================================#

#==============================================================================


# ** 虚拟日历


#  作者：影月千秋


#  适用：VA


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


# * 简介：


#  模拟时间流逝，并在地图（菜单）进行显示


#  可以自定义计时规则和显示效果


#  请为本脚本准备变量和开关，在下方进行设定


#  不出意外的话本脚本不再维护


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


# * 使用方法：


#  将此脚本插入到其他脚本以下，Main 以上，在下面给出的设定区进行设定后即可


#  在事件中操作指定的变量和开关，便可以获取和改变时间


#  也可以通过事件脚本进行操作


#  允许的脚本呼叫：


#    Smomo.calendar(type) 取得日历的内部数据


#   参数说明：type 想要获得的数据名


#       【:all】 获取所有数据的数组 依次为：时段 色调 刷新标志 周期历时 周期序号


#       【:zone】获取当前时段的名称（如："早晨"）


#       【:tone】不常用，获取当前色调（Tone色调类的实例）


#       【:need_change】没有任何实用意义，不常用，可以获取需要刷新的标志


#       【:period】当前周期经过的时间（如：1366）


#       【:prd】当前周期的序号，对应在周期名字（如:3）


#       【:pname】当前周期的名字，与prd是对应的（如:周三）


#   例：【Smomo.calendar(:zone)】获取时段名


#  发布帖：


#   [url]http://rm.66rpg.com/thread-330684-1-1.html[/url]


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


# * 版本


#   V 4.0 2017.02.05 删掉了估计没什么人用的 routine；修复了周期更新异常的 bug


#   V 3.4 2016.08.01 增加了一个人性化的报错提示: 未设置 Speed 对应变量


#   V 3.3 2014.09.30 解决了时段计时与时间在变量干涉下不同步的问题


#   V 3.2 2014.09.07 添加了公共接口routine


#   V 3.1 2014.09.07 优化了室内地图的标记方式 修正了暂停计时时色调的转换问题


#   V 3.0 2014.07.31 修正了2.7以为成功实际上未修正成功的问题 并做了一些其他调整


#   V 2.9 2014.07.28 修正了Map不能为:none从2.3版延续过来的睿智错误


#   V 2.8 2014.07.26 对2.7的小修正 并修改了自定义提示语


#   V 2.7 2014.07.24 修正了事件推进时不刷新周期的问题


#   V 2.6 2014.05.24 修正了日期出现0的BUG


#   V 2.5 2014.04.06 规范化脚本 消除冗余 重建逻辑结构 需要依赖Smomo脚本核心


#   V 2.4 2014.01.31 修正读档时报错的BUG


#   V 2.3 2014.01.29 可以自定义地图窗体的位置


#   V 2.2 2013.12.27 修正Window_MoVMe的错误


#   V 2.1 2013.12.15 修正过卡的BUG


#   V 2.0 2013.10.04 基本重写


#   V 1.0 2013.08.31 公开


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


# * 声明：


#   本脚本由来自【影月千秋】，使用和转载请保留此信息


#==============================================================================


 


$smomo ||= {}


if $smomo["Calendar"].nil?


$smomo["Calendar"] = 4.0


 


#==============================================================================


# ** Smomo::Calendar


#==============================================================================


module Smomo


module Calendar


 


  # 一般情况下可以不予配置直接使用本系统


  # 但为了获得比较理想的效果，建议仔细进行配置


  # 配置比较繁琐，请务必耐心阅读注释


 


  Use = 41


  # [开关 ID] 只有当此开关打开时，才会计时


   # 打开开关前，请确保下方 Speed 对应的变量不为 0


 


  Speed = 40


  # [变量 ID] 此变量的值代表经过多少帧后最小计时单位增加一


   # 一般情况下，1 秒 = 60 帧


 


  System = [


    # ["单位名", 满多少进一, 是否以零起始],


    ["分", 60, true],


    ["时", 24, true],


    ["日", 30],


    ["月", 12],


    ["年", 9999],


  ]


  # 设定计时制，排在前面的单位小于后面的单位


   # 有的单位允许零值，比如 3:00，有的不行，比如 3 月 1 日


    # 默认不允许零值，如果允许，请将“是否以零起始”填为[true]


   # 称第一个单位为最小计时单位


 


  Var = 41


  # [变量 ID] 设定记时制占用变量的起始编号


   # 会占用以这个号码为首的连续数个变量


    # 占用的变量个数即之前 System 中设置的单位的个数


 


  Start = [39, 7, 27, 5, 3518]


  # 设置游戏起始时间，与上面 System 中的单位从上到下依次对应


 


  PeriodName = ["周日", "周一", "周二", "周三", "周四", "周五", "周六"]


  # 周期


   # 每经过一定长度的最小计时单位，会循环推进到下一个周期


   # 具体经过的最小计时单位数在 Zone 中设定


 


  Start_PeriodName = 5


  # 游戏起始时的周期，用序号指代（从 0 开始数）


 


  TimeZone = true


  # [true/false] 是否启用时段功能，即一个周期内是否有各时段的区分


 


  Zone = [


  # [时段长度, Tone.new(红, 绿, 蓝, 灰), "名称"],


    [120, Tone.new( -75,-100,   0,  75), "夜晚"], # 0...120


    [120, Tone.new(-125,-125, -10, 125), "深夜"], # 120...240


    [120, Tone.new( -75,-100,   0,  75), "黎明"], # 240...360


    [300, Tone.new(   0,   0,   0,   0), "上午"], # 360...660


    [240, Tone.new(  50,  50,  10, -30), "中午"], # 660...900


    [120, Tone.new(   0,   0,   0,   0), "下午"], # 900...1020


    [120, Tone.new(  34, -34, -68, 170), "黄昏"], # 1020...1140


    [300, Tone.new( -75,-100,   0,  75), "夜晚"], # 1140...1440 则1440为周期长度


  ]


  # 设置时段周期内各时段的长度、色调及名称


   # 时段长度以最小计时单位为单位


   # 到达对应时段时 会自动改变画面的色调


   # 所有时段的长度加起来就是周期长度


    # 所以，就算不需要使用时段功能，也一定要保证时段长度之和是一个合适的值


 


  IndoorMap = /<IndoorMap>/i


  # 用于匹配室内地图备注的正则式


   # 默认为 /<IndoorMap>/i


    # 即在地图的备注上写 <IndoorMap> 就可以标记其为室内地图，不区分大小写


   # 处于室内地图时，不会受到时段色调的影响


 


  Menu = false


  # [true/false] 是否在菜单内显示日历


   # true 使用  false 不使用


   # 如果预设不能满足要求 请自行在下方自定义区更改


 


  Map = :bottom


  # [:top/:bottom/:none] 是否在地图上显示日历


   # :top 顶部  :bottom 底部  :none 不使用


   # 如果预设不能满足要求 请自行在下方自定义区更改


 


  Format = {


    # 菜单日历用的格式


    menu: %W!


            <4年>.<2月>.<2日>


            \\I[149]___<Period>


            <2时>:<2分>_<Zone>


          !,


    # 地图日历用的格式


    map:  %W!


            \\I[149]羊历<4年>年<2月>月<2日>日___<Period>___<Zone>_<2时>:<2分>


          !


  }


  # 日历输出格式，此处写多少行，游戏内就会依次对应输出多少行


   # 每一行的内部不要使用空格（ ），空格用下划线（_）代替


   # 尽量不要使用英文感叹号(!)，如果一定要用请在之前加上反斜杠（\!）


   # 使用 <符号> 的形式来代替指定的数据，其他的文字用于修饰


   # 可用的符号：


    # 在上面计时制中设定的单位 可以加上一个数字来代表格式化位数


     # 如：<2时>:<2分> 显示 09:33，<时>:<分> 显示 9:33 


    # <Period> 当前周期的名字（如：星期三）


    # <Zone>   当前时段的名字（如：早晨）


   # 两个符号必须用两对<>分别括起来 不能写在同一对<>内


   # 允许使用转义字符 但是必须有两个反斜杠


    # 如 显示图标 \I[3] 应写成 \\I[3]


end


end


 


#==============================================================================


# 如果你懂脚本，可以在下面调整时间窗口的显示方式


#==============================================================================


 


#============================================================================


# ** Window_MoMenuCalendar 菜单画面中，显示当前游戏内部虚拟日历的窗口


#============================================================================


class Window_MoMenuCalendar < Window_Base


  include Smomo::Calendar


 


  def initialize(gold_window)


    unless $game_switches[Use]


      super(0, 0, 1, 1)


      self.opacity = 0


      return


    end


    height = Format[:menu].size * 30 + 20


    super(0, gold_window.y - height, gold_window.width, height)


    format = Marshal.load Marshal.dump(Format[:menu])


    format.each_with_index do |t, l|


      t.gsub!(/_/){" "}


      System.each_with_index do |(u, m), i|


        t.gsub!(/<(\d*)#{u}>/){


          format("%0#{$1 ? $1.to_i : nil}d", $game_variables[Var + i])


        }


      end


      t.gsub!(/<Period>/){"#{PeriodName[Smomo::Calendar.prd]}"}


      t.gsub!(/<Zone>/){"#{Smomo::Calendar.zone}"}


      draw_text_ex(0, l * 30, t)


    end


  end


end


#============================================================================


# ** Window_MoMapCalendar 地图画面中，显示当前游戏内部虚拟日历的窗口


#                         但本质上是一个精灵


#============================================================================


class Window_MoMapCalendar < Window_Base


  include Smomo::Calendar


 


  def initialize


    height = Format[:map].size * 30 + 10


    @sprite = Sprite.new


    @sprite.y = Smomo::Calendar::Map == :top ? 0 : Graphics.height - height


    @sprite.bitmap = Bitmap.new Graphics.width, height


    @use = true


    update


    refresh


  end


 


  def update


    unless @use == $game_switches[Use]


      @use = $game_switches[Use]


      @sprite.x = @use ? 0 : Graphics.width


      refresh


    else


      if @use && $game_variables[Speed].zero?


        raise "请先将 Speed 对应变量设为非零值!"


      end


      refresh if @use && Graphics.frame_count % $game_variables[Speed] == 0 ||


      $game_map.need_refresh


    end


  end


 


  def dispose


    @sprite.bitmap.dispose if @sprite.bitmap


    @sprite.dispose


  end


 


  def refresh


    contents.clear


    contents.gradient_fill_rect(0, 0, @sprite.width, @sprite.height,


    Color.new(30, 30, 30), Color.new(0, 0, 0, 0))


    format = Marshal.load Marshal.dump(Format[:map])


    format.each_with_index do |t, l|


      t.gsub!(/_/){" "}


      System.each_with_index do |(u, m), i|


        t.gsub!(/<(\d*)#{u}>/){


          format("%0#{$1 ? $1.to_i : nil}d", $game_variables[Var + i])


        }


      end


      t.gsub!(/<Period>/){"#{PeriodName[Smomo::Calendar.prd]}"}


      t.gsub!(/<Zone>/){"#{Smomo::Calendar.zone}"}


      draw_text_ex(0, l * 30 + 5, t)


    end


  end


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


  # * 偷梁换柱 如果不明白这段的意义 请勿随意删除


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


  def contents


    @sprite.bitmap


  end


  def windowskin


    Cache.system "Window"


  end


end


#==============================================================================


# ** Scene_Menu 建立菜单场景的窗口


#==============================================================================


class Scene_Menu


  alias ewc_start start


  def start


    ewc_start


    return unless Smomo::Calendar::Menu


    # 在下面添加自定义内容


    @mocalendar_window = Window_MoMenuCalendar.new(@gold_window)


  end


end


#==============================================================================


# ** Scene_Map 建立地图场景的窗口


#==============================================================================


class Scene_Map


  alias ewc_create_all_windows create_all_windows


  def create_all_windows


    ewc_create_all_windows


    return if Smomo::Calendar::Map == :none


    # 在下面添加自定义内容


    @mocalendar_window = Window_MoMapCalendar.new 


  end


end


#=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+#


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


                               "请勿跨过这块区域"


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


#+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=#


 


#==============================================================================


# ** Smomo::Calendar


#==============================================================================


module Smomo::Calendar


  #


  PeriodSize = Zone.inject(0){|s, (l)| s + l}


  Zone.each_with_index{|z, i| z[0] += i == 0 ? 0 : Zone[i - 1][0]}


  _ = Marshal.load Marshal.dump Zone


  _.each_with_index{|z, i| Zone[i][0] = (i == 0 ? 0 : _[i - 1][0])...z[0]}


  _ = 1


  System.each_with_index do |u, i|


    _ *= i == 0 ? 1 : System[i - 1][1]


    u[2] = !!u[2]


    u[3] = _


  end


  #


  class << self


    attr_reader :zone, :prd


    attr_accessor :period


    define_method(:data){[@zone, @tone, @need_change, @period, @prd]}


    define_method(:data=){|d| @zone, @tone, @need_change, @period, @prd = d}


    define_method(:function){|type| type == :all ? data : eval(type.to_s)}


    #


    def pname


      PeriodName[@prd]


    end


    #


    def ini


      $game_variables.instance_exec do


        System.each_index{|i| @data[Var + i] = Start[i]}


      end


      @tone = Tone.new 0, 0, 0, 0


      @need_change = false


      @prd = Start_PeriodName


      set_period


      fire_in_the_hole


    end


    #


    def set_period


      u = System.each_index.map{|i| $game_variables[Var + i]}


      v = System.map{|a| a[3]}


      @period =


        u.zip(v).each_with_object(:*).map(&:inject).inject(:+) % PeriodSize


    end


    #


    def i_look_into_the_sky_as_time_passes_by


      return unless $game_switches[Use]


      return if $game_message.visible


      raise "请先将 Speed 对应变量设为非零值!" if $game_variables[Speed].zero?


      return unless Graphics.frame_count % $game_variables[Speed] == 0


      $game_variables[Var] += 1


      fire_in_the_hole


    end


    #


    def wtf var, ori, lat


      @period += System[var - Var][3] * (lat - ori)


      fire_in_the_hole


    end


    #


    def fire_in_the_hole


      ensure_time_legal


      ensure_period_legal


      check_period_and_zone


      change_tone if TimeZone


    end


    #


    def ensure_time_legal


      $game_variables.instance_exec do


        System.each_with_index do |(u, m, o), i|


          while @data[Var + i] > m - (o ? 1 : 0)


            @data[Var + i] -= m


            @data[Var + i + 1] += 1


          end


          while @data[Var + i] < 1 - (o ? 1 : 0)


            @data[Var + i] += m


            @data[Var + i + 1] -= 1


          end


        end


      end


    end


    #


    def ensure_period_legal


      @prd += @period / PeriodSize


      @period = @period % PeriodSize


      @prd = @prd % PeriodName.size


    end


    #


    def check_period_and_zone


      tone, @zone = Zone.find{|(r, t, n)| r.include?(@period)}[1, 2]


      @tone == tone ? nil : [@tone = tone, @need_change = true]


    end


    #


    def change_tone im = false, reset = false


      return unless @need_change || im


      @need_change = false


      if indoor? || !$game_switches[Use] && reset


        $game_map.screen.start_tone_change Tone.new(0, 0, 0, 0), 0


      else


        return unless $game_switches[Use]


        $game_map.screen.start_tone_change @tone, im ? 0 : 60


      end


    end


    #


    def indoor?


      $game_map.instance_exec{ @map }.note =~ IndoorMap


    end


  end


end


#==============================================================================


# ** Smomo.calendar(*a, &b)


#==============================================================================


def Smomo.calendar *a, &b


  Smomo::Calendar.function *a, &b


end


#==============================================================================


# ** Game_Switches


#==============================================================================


class Game_Switches


  alias ewc_on_change on_change


  def on_change


    ewc_on_change


    Smomo::Calendar.change_tone true, true


  end


end


#==============================================================================


# ** Game_Variables


#==============================================================================


class Game_Variables


  alias :ewc_set_var :[]=


  def []= variable_id, value


    min = Smomo::Calendar::Var


    max = min + Smomo::Calendar::System.size - 1


    if variable_id.between? min, max


      Smomo::Calendar.wtf variable_id, @data[variable_id], value


    end


    ewc_set_var variable_id, value


  end


end


#==============================================================================


# ** Scene_Map


#==============================================================================


class Scene_Map


  alias ewc_update update


  def update


    ewc_update


    Smomo::Calendar.i_look_into_the_sky_as_time_passes_by


  end


  alias ewc_post_transfer post_transfer


  def post_transfer


    Smomo::Calendar.change_tone(true)


    ewc_post_transfer


  end


end


#==============================================================================


# ** DataManager


#==============================================================================


class << DataManager


  alias ewc_setup_new_game setup_new_game


  def setup_new_game


    ewc_setup_new_game


    Smomo::Calendar.ini


  end


  alias ewc_make_save_contents make_save_contents


  def make_save_contents


    contents = ewc_make_save_contents


    contents[:mocalendar] = Smomo::Calendar.data


    contents


  end


  alias ewc_extract_save_contents extract_save_contents


  def extract_save_contents contents


    ewc_extract_save_contents contents


    Smomo::Calendar.data = contents[:mocalendar]


  end


end


 


else # if $smomo


  msgbox "请不要重复加载此脚本 : )\n【虚拟日历】"


end


#==============================================================================#


#=====                        =================================================#


            "脚 本 尾"


#=====                        =================================================#


#==============================================================================#