这里有个时间天气脚本哪位帮忙看看

394178110

感觉功能上已经比较完善了 但是管日历窗口消失的83号开关 打开窗口可以正常消失 但是关闭后窗口却回不来了 有这个bug感觉好可惜 哪位可以帮帮忙看看这个能修复好吗
  CALENDER_WINDOW_HIDE_SID = 83
    # 日付ウィンドウを消すスイッチID
    # ウィンドウが消えていても止めない限り時間は経過します

RUBY 代码复制

=begin  =======================================================================
  ☆ カレンダー機能追加  by 白雪レイカ
-------------------------------------------------------------------------------
  プロジェクトに「時刻」の概念を加えます。
  時間帯でBGMや画面の色調が切り替わり、季節ごとにランダムで天候が変化します。
  主なデータはすべて変数に格納されるので、
  それを使ってイベントを分岐させたりできます。
-------------------------------------------------------------------------------
 
  ◆使い方
    基本的に設定項目をカスタマイズして導入するだけなのですが、
    一部説明が必要な部分があるのでご説明します。
    
    ○時間帯について
    
       3:00 ～  5:59 => 早朝 (:early_morning)
       6:00 ～ 10:59 => 朝   (:morning)
      11:00 ～ 15:59 => 昼   (:noon)
      16:00 ～ 18:59 => 夕方 (:evening)
      19:00 ～ 22:59 => 夜   (:night)
      23:00 ～  2:59 => 深夜 (:midnight)
      
      となっています。
      
    
    ○時間帯ごとのBGM切り替え
      マップ設定の「BGMの自動切換え」にチェックが入っているときのみ有効。
      マップのメモ欄に以下のように記述してください。
      
      <早朝(またはearly) ファイル名, 音量, ピッチ>
      
      これで早朝のBGMが設定できます。
      早朝 の部分を 朝(またはmorning)、昼(またはnoon)、夕方(またはevening)、
      夜(またはnight)、深夜(またはmid)とすることで
      対応する時間帯のBGMを設定することができます。
      ファイル名の拡張子は省略することができます(例 Town1)。
      
      
    ○イベントでの時刻etc設定
      イベントコマンド「スクリプト」から実行
      
        set_time(hour, min)
          # 時刻を hour:min に設定します。
          # このメソッドによって日数が経過することはありません。
        
        set_date(month, date, day)
          # カレンダーを month月 date日 day曜日に設定します。
          # 曜日の経過とか完全に無視してしまうので非推奨です。
          # 曜日はシンボルで設定します。
          
          # 日曜 => :Sun  月曜 => :Mon  火曜 => :Tue
          # 水曜 => :Wed  木曜 => :Thr  金曜 => :Fri
          # 土曜 => :Sat
          
        set_year(year)
          # カレンダーをyear年に設定します。
          # 上と同じく非推奨です。
        
        shift_date(date)
          # カレンダーをdate日だけ進めます。
          # こちらは曜日もちゃんと加味します。
          
        shift_month(month)
          # カレンダーをmonth月だけ進め、
          # 進めた月の1日に設定します。
           
         shift_year(year)
          # カレンダーを指定した年数経過させます。
          # shift_monthと違って日付は変わりません。
          
        shift_date_to(month, date[, year])
          # カレンダーを指定した日付(year年 month月 date日)まで進めます。
          # yearを省略した場合は現在の年と同じ値になります。
          # 現在の日付よりも前の日付を設定すると、
          # その日まで時間が巻き戻ります。
           
         set_weather(weather)
          # 天候を設定します。
          # weatherはシンボルで指定します。
          
          # 晴れ => :fine  雨 => :rain   雪 => :snow
          # 雷 => :thunder 嵐 => :storm  晴れ(夜) => :star
          # 吹雪 => :s_storm
          
  ◆おことわり
    改造・再配布等自由です。
    再配布の際には作者の明示をお願いします。
    バグを発見したら速やかにご報告ください。
    
=end
#==============================================================================
# ■ 設定項目
#==============================================================================
module WhiteSnow
 
  # ↓↓ここから初期設定↓↓
 
  INITAL_MIN = 40
    # ゲーム開始時の「分」の値
 
  INITAL_HOUR = 7
    # ゲーム開始時の「時」の値
 
  INITAL_DATE = 6
    # ゲーム開始時の「日」の値
 
  INITAL_DAY = :Sun
    # ゲーム開始時の「曜日」の値
 
  INITAL_MONTH = 4
    # ゲーム開始時の「月」の値
 
  INITAL_YEAR = 618
    # ゲーム開始時の「年」の値
 
  # ↑↑ここまで初期設定↑↑
 
 
  TIME_COUNT_FORBID_SID = 80
    # 時間経過を禁止するスイッチID
 
  TONE_CHANGE_FORBID_SID = 81
    # 時間経過による画面の色調変更を禁止するスイッチID
 
  WEATHER_EFFECT_FORBID_SID = 82
    # 天候エフェクトを無効化するスイッチID
 
  CALENDER_WINDOW_HIDE_SID = 83
    # 日付ウィンドウを消すスイッチID
    # ウィンドウが消えていても止めない限り時間は経過します
 
  INSIDE_FLAG_SID = 84
    # 屋内フラグを立てるスイッチID
    # 色調変更、天候エフェクトをまとめて無効化します
 
  WEATHER_BGS_ENABLE = true
    # 天候によるBGS機能を使用するか
    # trueで使用する、falseで使用しないとなります
 
  INSIDE_BGS_TYPE = 1
    # 屋内フラグまたは天候エフェクト無効フラグのスイッチがONになった
    # ときのBGSのタイプ
    # BGS機能を使用するときのみ有効
    # 0で音を消す、1で音量を60%にして流す、2でそのまま流す
    # となります。
 
  WEATHER_BGS_DISABLE = 15
    # 天候BGS機能停止スイッチ
 
    # このスイッチIDがONのときは天候BGSは流れません。
    # ただしこのスイッチ単体では、今流れているBGSの再生を止める効果はありません。
    # あくまで一時的にBGS機能を無効化するだけです。
    # 屋内フラグを切り替えるスイッチと一緒に使うなりしてください。
 
    # また、このスイッチがOFFになっても止まっていたBGSが再び流れるような
    # ことはありません。
 
 
  MIN_STORE_VID = 101
    # 現在の「分」の値が格納される変数ID
 
  HOUR_STORE_VID = 102
    # 現在の「時」の値が格納される変数ID
 
  TIME_ZONE_STORE_VID = 103
    # 現在の「時間帯」が格納される変数ID
    # 早朝に0、朝に1、昼に2、夕方に3、夜に4、深夜で5になります。
 
  DATE_STORE_VID = 104
    # 現在の「日」の値が格納される変数ID
 
  DAY_STORE_VID = 105
    # 現在の「曜日」が格納される変数ID
    # 日曜のとき0、月曜のとき1、と続き土曜のとき6になります。
 
  MONTH_STORE_VID = 106
    # 現在の「月」の値が格納される変数ID
 
  SEASON_STORE_VID = 107
    # 現在の「季節」が格納される変数ID
    # 春のとき0、夏のとき1、秋のとき2、冬のとき3になります。
 
  WEATHER_STORE_VID = 108
    # 現在の「天候」が格納される変数ID
    # 晴れのとき0、雨のとき1、雪のとき2、雷のとき3、
    # 嵐のとき4、晴れ(夜)のとき5、吹雪のとき6になります。
 
  YEAR_STORE_VID = 109
    # 現在の「年」の値が格納される変数ID
 
 
  EARLY_MORNING_SCREEN_TONE = [15, 10, 0, 0]
    # 早朝の画面の色調
    # R, G, B, Darkの順に指定してください。
 
  MORNING_SCREEN_TONE = [0, 0, 0, 0]
    # 朝の画面の色調
    # R, G, B, Darkの順に指定してください。
 
  NOON_SCREEN_TONE = [15, 15, 15, 0]
    # 昼の画面の色調
    # R, G, B, Darkの順に指定してください。
 
  AFTERNOON_SCREEN_TONE = [32, -8, -32, 16]
    # 夕方の画面の色調
    # R, G, B, Darkの順に指定してください。
 
  NIGHT_SCREEN_TONE = [-64, -64, -16, 32]
    # 夜の画面の色調
    # R, G, B, Darkの順に指定してください。
 
  MIDNIGHT_SCREEN_TONE = [-72, -72, -20, 48]
    # 深夜の画面の色調
    # R, G, B, Darkの順に指定してください。
 
 
  DAYS_TABLE = {0 => 31, 1 => 31, 2 => 28, 3 => 31, 4 => 30, 5 => 31, 6 => 30,
                7 => 31, 8 => 31, 9 => 30, 10 => 31, 11 => 30, 12 => 31}
    # 月毎の日数のテーブル
    # 基本的に変更しないでください。
 
 
    # 以下天候リスト
 
    # 設定例
    # WEATHER = {:icon => 天候アイコンインデックス,
    #            :weather => [天候エフェクトの種類, 強さ]},
    #            :bgs => ["ファイル名", 音量, ピッチ](設定しない場合はnil),
    #
    # 天候エフェクトの種類  :noneで「なし」、:rainで「雨」、
    #                       :stormで「嵐」、:snowで「雪」となります。
 
  FINE = {:icon => 1, :weather => [:none, 0],
          :bgs => nil}
    # 天候：晴れ
 
  RAIN = {:icon => 2, :weather => [:rain, 5],
          :bgs => ["Rain", 20, 90]}
    # 天候：雨
 
  SNOW = {:icon => 3, :weather => [:snow, 4],
          :bgs => nil}
    # 天候：雪
 
  THUNDER = {:icon => 4, :weather => [:storm, 4],
             :bgs => ["Storm", 60, 75],
 
             :flash => [255, 255, 200, 180, 12],
             :se => ["Thunder9", 80, 95]}
    # 天候：雷
    # 雷エフェクト用の設定項目について
    # :flash => [(フラッシュの色)R, G, B, Alpha, フラッシュの長さ]
    # :se => フラッシュの後に鳴るSE
 
  STORM = {:icon => 5, :weather => [:storm, 8],
           :bgs => ["Storm", 70, 100]}
    # 天候：嵐
 
  STAR = {:icon => 6, :weather => [:none, 0],
          :bgs => nil}
    # 天候：晴れ(夜)
 
  S_STORM = {:icon => 7, :weather => [:snow, 9],
             :bgs => ["Wind", 70, 95]}
    # 天候：吹雪
end
 
#==============================================================================
# ■ Calender
#------------------------------------------------------------------------------
# 　カレンダーのクラスです。
#==============================================================================
 
class Calender
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :count
  attr_accessor :min
  attr_accessor :hour
  attr_accessor :date
  attr_accessor :day
  attr_accessor :month
  attr_accessor :season
  attr_accessor :year
  attr_accessor :weather
  attr_accessor :weather_count
  attr_accessor :time_zone
  attr_reader   :interpreter
  attr_accessor :thunder_count
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize
    @count = 0
    @weather = :fine
    @interpreter = Game_Interpreter.new
    init_calender
    change_weather
  end
  #--------------------------------------------------------------------------
  # ● カレンダーの初期化
  #--------------------------------------------------------------------------
  def init_calender
    [url=home.php?mod=space&uid=25749]@min[/url]    = WhiteSnow::INITAL_MIN
    @hour   = WhiteSnow::INITAL_HOUR
    @date   = WhiteSnow::INITAL_DATE
    [url=home.php?mod=space&uid=11519]@day[/url]    = WhiteSnow::INITAL_DAY
    [url=home.php?mod=space&uid=26122]@Month[/url]  = WhiteSnow::INITAL_MONTH
    @year   = WhiteSnow::INITAL_YEAR
    get_time_zone
 
    $game_variables[WhiteSnow::MIN_STORE_VID] = @min
    $game_variables[WhiteSnow::HOUR_STORE_VID] = @hour
    $game_variables[WhiteSnow::DATE_STORE_VID] = @date
 
    case @month
    when 1..2
      [url=home.php?mod=space&uid=31546]@season[/url] = :Winter
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3
    when 3..5
      [url=home.php?mod=space&uid=31546]@season[/url] = :Spring
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0
    when 6..8
      [url=home.php?mod=space&uid=31546]@season[/url] = :Summer
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1
    when 9..11
      @season = :Autumn
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2
    when 12
      @season = :Winter
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3
    end
 
    case @day
    when :Sun
      $game_variables[WhiteSnow::DAY_STORE_VID] = 0
    when :Mon
      $game_variables[WhiteSnow::DAY_STORE_VID] = 1
    when :Tue
      $game_variables[WhiteSnow::DAY_STORE_VID] = 2
    when :Wed
      $game_variables[WhiteSnow::DAY_STORE_VID] = 3
    when :Thr
      $game_variables[WhiteSnow::DAY_STORE_VID] = 4
    when :Fri
      $game_variables[WhiteSnow::DAY_STORE_VID] = 5
    when :Sat
      $game_variables[WhiteSnow::DAY_STORE_VID] = 6
    end
    $game_variables[WhiteSnow::MONTH_STORE_VID] = @month
    $game_variables[WhiteSnow::YEAR_STORE_VID] = @year
    change_tone_by_calender
  end
  #--------------------------------------------------------------------------
  # ● 時間帯の取得
  #--------------------------------------------------------------------------
  def get_time_zone
    case @hour
    when 0..2
      @time_zone = :midnight
      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 5
    when 3..5
      @time_zone = :early_morning
      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 0
    when 6..10
      @time_zone = :morning
      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 1
    when 11..15
      @time_zone = :noon
      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 2
    when 16..18
      @time_zone = :evening
      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 3
    when 19..22
      @time_zone = :night
      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 4
    when 23..24
      @time_zone = :midnight
      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 5
    end
  end
  #--------------------------------------------------------------------------
  # ● 天候カウントの取得
  #--------------------------------------------------------------------------
  def randomize_weather_count
    @weather_count = p_ex_rand(40, 100) + (109 - p_ex_rand(40, 110)) + 90
  end
  #--------------------------------------------------------------------------
  # ● 画面の色調変更
  #--------------------------------------------------------------------------
  def change_tone_by_calender(dur = 60)
    return if $game_switches[WhiteSnow::TONE_CHANGE_FORBID_SID]
    return if $game_switches[WhiteSnow::INSIDE_FLAG_SID]
    case @time_zone
    when :early_morning
      tone = WhiteSnow::EARLY_MORNING_SCREEN_TONE
      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)
    when :morning
      tone = WhiteSnow::MORNING_SCREEN_TONE
      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)
    when :noon
      tone = WhiteSnow::NOON_SCREEN_TONE
      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)
    when :evening
      tone = WhiteSnow::AFTERNOON_SCREEN_TONE
      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)
    when :night
      tone = WhiteSnow::NIGHT_SCREEN_TONE
      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)
    when :midnight
      tone = WhiteSnow::MIDNIGHT_SCREEN_TONE
      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)
    end
  end
  #--------------------------------------------------------------------------
  # ● 天候の変更
  #--------------------------------------------------------------------------
  def change_weather
    srand
    p_weather = @weather
    case @month
    when 1
      case rand
      when 0...0.2
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.2...0.8
        @weather = :snow
      when 0.8...1
        @weather = :s_storm
      end
    when 2
      case rand
      when 0...0.3
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.3...0.8
        @weather = :snow
      when 0.8...0.9
        @weather = :rain
      when 0.9...1
        @weather = :s_storm
      end
    when 3..4
      case rand
      when 0...0.8
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.8...0.9
        @weather = :rain
      when 0.9...1
        @weather = :storm
      end
    when 5
      case rand
      when 0...0.7
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.7...0.8
        @weather = :rain
      when 0.8...0.9
        @weather = :thunder
      when 0.9...1
        @weather = :storm
      end
    when 6
      case rand
      when 0...0.4
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.4...0.8
        @weather = :rain
      when 0.8...0.9
        @weather = :thunder
      when 0.9...1
        @weather = :storm
      end
    when 7..8
      case rand
      when 0...0.6
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.6...0.7
        @weather = :rain
      when 0.7...0.9
        @weather = :storm
      when 0.9...1
        @weather = :thunder
      end
    when 9..10
      case rand
      when 0...0.6
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.6...0.8
        @weather = :storm
      when 0.8...0.9
        @weather = :rain
      when 0.9...1
        @weather = :thunder
      end
    when 11
      if @date < 25
        case rand
        when 0...0.7
          if @hour >= 3 and @hour < 18
            @weather = :fine
          else
            @weather = :star
          end
        when 0.7...0.8
          @weather = :storm
        when 0.8...0.9
          @weather = :rain
        when 0.9...1
          @weather = :thunder
        end
      else
        case rand
        when 0...0.6
          if @hour >= 3 and @hour < 18
            @weather = :fine
          else
            @weather = :star
          end
        when 0.6...0.7
          @weather = :storm
        when 0.7...0.8
          @weather = :rain
        when 0.8...0.9
          @weather = :thunder
        when 0.9...1
          @weather = :snow
        end
      end
    when 12
      case rand
      when 0...0.2
        if @hour >= 3 and @hour < 18
          @weather = :fine
        else
          @weather = :star
        end
      when 0.2...0.8
        @weather = :snow
      when 0.8...1
        @weather = :s_storm
      end
    end
    if @weather != p_weather
      RPG::BGS.fade(10)
      perform_weather_effect
    end
    randomize_weather_count
  end
  #--------------------------------------------------------------------------
  # ● 天候エフェクト
  #--------------------------------------------------------------------------
  def perform_weather_effect(dur = 30)
    return unless SceneManager.scene_is?(Scene_Map)
    return if $game_switches[WhiteSnow::WEATHER_EFFECT_FORBID_SID]
    return if $game_switches[WhiteSnow::INSIDE_FLAG_SID]
    case @weather
    when :fine
      weather = WhiteSnow::FINE
      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])
        bgs.play
      end
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 0
 
    when :rain
      weather = WhiteSnow::RAIN
      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])
        bgs.play
      end
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 1
 
    when :snow
      weather = WhiteSnow::SNOW
      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])
        bgs.play
      end
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 2
 
    when :thunder
      weather = WhiteSnow::THUNDER
      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])
        bgs.play
      end
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 3
 
    when :storm
      weather = WhiteSnow::STORM
      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])
        bgs.play
      end
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 4
 
    when :star
      weather = WhiteSnow::STAR
      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])
        bgs.play
      end
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 5
 
    when :s_storm
      weather = WhiteSnow::S_STORM
      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])
        bgs.play
      end
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 6
    end
  end
  #--------------------------------------------------------------------------
  # ● 屋内BGSの演奏
  #--------------------------------------------------------------------------
  def play_inside_bgs
    case @weather
    when :fine
      weather = WhiteSnow::FINE
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.6, weather[:bgs][2])
        bgs.play
      end
 
    when :rain
      weather = WhiteSnow::RAIN
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])
        bgs.play
      end
 
    when :snow
      weather = WhiteSnow::SNOW
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])
        bgs.play
      end
 
    when :thunder
      weather = WhiteSnow::THUNDER
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])
        bgs.play
      end
 
    when :storm
      weather = WhiteSnow::STORM
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])
        bgs.play
      end
 
    when :star
      weather = WhiteSnow::STAR
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])
        bgs.play
      end
 
    when :s_storm
      weather = WhiteSnow::S_STORM
      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])
        bgs.play
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 天候「雷」エフェクトの実行
  #--------------------------------------------------------------------------
  def perform_thunder_effect(r, g, b, alpha, dur)
    @interpreter.perform_flash(r, g, b, alpha, dur)
  end
  #--------------------------------------------------------------------------
  # ● 曜日の更新
  #--------------------------------------------------------------------------
  def shift_day
    case @day
    when :Sun
      [url=home.php?mod=space&uid=11519]@day[/url] = :Mon
      $game_variables[WhiteSnow::DAY_STORE_VID] = 1
    when :Mon
      [url=home.php?mod=space&uid=11519]@day[/url] = :Tue
      $game_variables[WhiteSnow::DAY_STORE_VID] = 2
    when :Tue
      @day = :Wed
      $game_variables[WhiteSnow::DAY_STORE_VID] = 3
    when :Wed
      @day = :Thr
      $game_variables[WhiteSnow::DAY_STORE_VID] = 4
    when :Thr
      @day = :Fri
      $game_variables[WhiteSnow::DAY_STORE_VID] = 5
    when :Fri
      @day = :Sat
      $game_variables[WhiteSnow::DAY_STORE_VID] = 6
    when :Sat
      @day = :Sun
      $game_variables[WhiteSnow::DAY_STORE_VID] = 0
    end
  end
  #--------------------------------------------------------------------------
  # ● 曜日を戻す
  #--------------------------------------------------------------------------
  def back_day
    case @day
    when :Sun
      @day = :Sat
      $game_variables[WhiteSnow::DAY_STORE_VID] = 1
    when :Sat
      @day = :Fri
      $game_variables[WhiteSnow::DAY_STORE_VID] = 2
    when :Fri
      @day = :Thr
      $game_variables[WhiteSnow::DAY_STORE_VID] = 3
    when :Thr
      @day = :Wed
      $game_variables[WhiteSnow::DAY_STORE_VID] = 4
    when :Wed
      @day = :Tue
      $game_variables[WhiteSnow::DAY_STORE_VID] = 5
    when :Tue
      @day = :Mon
      $game_variables[WhiteSnow::DAY_STORE_VID] = 6
    when :Mon
      @day = :Sun
      $game_variables[WhiteSnow::DAY_STORE_VID] = 0
    end
  end
  #--------------------------------------------------------------------------
  # ● 月の更新
  #--------------------------------------------------------------------------
  def shift_month
    case @month
    when 1
      return unless @date > 31
      [url=home.php?mod=space&uid=26122]@Month[/url] += 1
      @date = 1
    when 2
      return unless @date > 28
      [url=home.php?mod=space&uid=26122]@Month[/url] += 1
      @season = :Spring
      @date = 1
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0
    when 3
      return unless @date > 31
      @month += 1
      @date = 1
    when 4
      return unless @date > 30
      @month += 1
      @date = 1
    when 5
      return unless @date > 31
      @month += 1
      @season = :Summer
      @date = 1
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1
    when 6
      return unless @date > 30
      @month += 1
      @date = 1
    when 7
      return unless @date > 31
      @month += 1
      @date = 1
    when 8
      return unless @date > 31
      @month += 1
      @season = :Autumn
      @date = 1
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2
    when 9
      return unless @date > 30
      @month += 1
      @date = 1
    when 10
      return unless @date > 31
      @month += 1
      @date = 1
    when 11
      return unless @date > 30
      @month += 1
      @season = :Winter
      @date = 1
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3
    when 12
      return unless @date > 31
      @year += 1
      @month = 1
      @date = 1
      $game_variables[WhiteSnow::YEAR_STORE_VID] = @year
    end
    $game_variables[WhiteSnow::DATE_STORE_VID] = @date
    $game_variables[WhiteSnow::MONTH_STORE_VID] = @month
  end
  #--------------------------------------------------------------------------
  # ● 月を戻す
  #--------------------------------------------------------------------------
  def back_month
    return unless @date < 1
    case @month
    when 1
      @month = 12
      @date = 31
      @year -= 1
      $game_variables[WhiteSnow::YEAR_STORE_VID] = @year
    when 2
      @month -= 1
      @date = 31
    when 3
      @month -= 1
      @date = 28
      @season = :Winter
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3
    when 4
      @month -= 1
      @date = 31
    when 5
      @month -= 1
      @date = 30
    when 6
      @month -= 1
      @date = 31
      @season = :Spring
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0
    when 7
      @month -= 1
      @date = 30
    when 8
      @month -= 1
      @date = 31
    when 9
      @month -= 1
      @date = 31
      @season = :Summer
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1
    when 10
      @month -= 1
      @date = 30
    when 11
      @month -= 1
      @date = 31
    when 12
      @month -= 1
      @date = 30
      @season = :Autumn
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2
    end
    $game_variables[WhiteSnow::DATE_STORE_VID] = @date
    $game_variables[WhiteSnow::MONTH_STORE_VID] = @month
  end
  #--------------------------------------------------------------------------
  # ● 日付を進める
  #--------------------------------------------------------------------------
  def shift_date
    @date += 1
    shift_day
    shift_month
    $game_variables[WhiteSnow::HOUR_STORE_VID] = @hour
    $game_variables[WhiteSnow::DATE_STORE_VID] = @date
  end
  #--------------------------------------------------------------------------
  # ● 日付を戻す
  #--------------------------------------------------------------------------
  def back_date
    @date += 1
    back_day
    back_month
    $game_variables[WhiteSnow::HOUR_STORE_VID] = @hour
    $game_variables[WhiteSnow::DATE_STORE_VID] = @date
  end
  #--------------------------------------------------------------------------
  # ● 指定された日時と現在の日時の差を求める
  #--------------------------------------------------------------------------
  def days_dif(y, m, d)
    table = WhiteSnow::DAYS_TABLE
    dy_n = (@year - 1) * 365
    dy_s = (y - 1) * 365
    dm_n = 0 ; 1.upto(@month - 1){|n| dm_n += table[n]} unless @month == 1
    dm_s = 0 ; 1.upto(m - 1){|n| dm_s += table[n]} unless m == 1
    d_n = @date - 1
    d_s = d - 1
    n = dy_n + dm_n + d_n
    s = dy_s + dm_s + d_s
    return s - n
  end
end
 
#==============================================================================
# ■ Window_Calender
#------------------------------------------------------------------------------
# 　カレンダーの内容を表示するウィンドウです。
#==============================================================================
 
class Window_Calender < Window_Base
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(x = Graphics.width - 208, y = 0, w = 208)
    super(x, y, w, fitting_height(2))
    refresh
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  def update
    self.visible = false if $game_switches[WhiteSnow::CALENDER_WINDOW_HIDE_SID]
    super
    refresh if $calender.count == 0
  end
  #--------------------------------------------------------------------------
  # ● リフレッシュ
  #--------------------------------------------------------------------------
  def refresh
    contents.clear
    draw_year
    draw_date
    draw_time
    draw_weather_icon
  end
  #--------------------------------------------------------------------------
  # ● 年・季節の描画
  #--------------------------------------------------------------------------
  def draw_year
    season = $calender.season.to_s
    season.gsub!("Spring"){"春"}
    season.gsub!("Summer"){"夏"}
    season.gsub!("Autumn"){"秋"}
    season.gsub!("Winter"){"冬"}
    draw_text(0, 0, contents_width, line_height, "#{$calender.year}" + "年")
    draw_text(0, 0, contents_width, line_height, season, 1)
  end
  #--------------------------------------------------------------------------
  # ● 月・日付・曜日の描画
  #--------------------------------------------------------------------------
  def draw_date
    w = contents_width
    h = line_height
    month = $calender.month
    if (0..9).to_a.include?(month)
      month = "0" + month.to_s
    else
      month = month.to_s
    end
    date = $calender.date
    if (0..9).to_a.include?(date)
      date = "0" + date.to_s
    else
      date = date.to_s
    end
    day = $calender.day.to_s
    day.gsub!("Sun"){"\\c[2]日\\c[0]"}
    day.gsub!("Mon"){"月"}
    day.gsub!("Tue"){"火"}
    day.gsub!("Wed"){"水"}
    day.gsub!("Thr"){"木"}
    day.gsub!("Fri"){"金"}
    day.gsub!("Sat"){"土"}
    draw_text_ex(0, h, month + "月" + date + "日" + "(" + day + ")")
  end
  #--------------------------------------------------------------------------
  # ● 時・分の描画
  #--------------------------------------------------------------------------
  def draw_time
    w = contents_width - 6
    h = line_height
    hour = "#{$calender.hour}"
    min = $calender.min
    if (0..9).to_a.include?(min)
      min = "0" + min.to_s
    else
      min = min.to_s
    end
    draw_text(0, h, w, h, hour + ":" + min, 2)
  end
  #--------------------------------------------------------------------------
  # ● 天候アイコンの描画
  #--------------------------------------------------------------------------
  def draw_weather_icon
    case $calender.weather
    when :fine
      icon_index = WhiteSnow::FINE[:icon]
    when :rain
      icon_index = WhiteSnow::RAIN[:icon]
    when :snow
      icon_index = WhiteSnow::SNOW[:icon]
    when :thunder
      icon_index = WhiteSnow::THUNDER[:icon]
    when :storm
      icon_index = WhiteSnow::STORM[:icon]
    when :star
      icon_index = WhiteSnow::STAR[:icon]
    when :s_storm
      icon_index = WhiteSnow::S_STORM[:icon]
    end
    draw_icon(icon_index, contents_width - 30, 0)
  end
end
 
#==============================================================================
# ■ Window_MenuCalender
#------------------------------------------------------------------------------
# 　カレンダーの内容を表示するウィンドウです(メニュー画面用)。
#==============================================================================
 
class Window_MenuCalender < Window_Base
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(x = Graphics.width - 220, y = 0, w = 220)
    super(x, y, w, fitting_height(3))
    refresh
  end
  #--------------------------------------------------------------------------
  # ● リフレッシュ
  #--------------------------------------------------------------------------
  def refresh
    contents.clear
    draw_year
    draw_date
    draw_time
    draw_weather_icon
  end
  #--------------------------------------------------------------------------
  # ● 年の描画
  #--------------------------------------------------------------------------
  def draw_year
    season = $calender.season.to_s
    season.gsub!("Spring"){"春"}
    season.gsub!("Summer"){"夏"}
    season.gsub!("Autumn"){"秋"}
    season.gsub!("Winter"){"冬"}
    draw_text(0, 0, contents_width, line_height, "#{$calender.year}" + "年")
    draw_text(0, 0, contents_width + 12, line_height, season, 1)
  end
  #--------------------------------------------------------------------------
  # ● 月・日付・曜日の描画
  #--------------------------------------------------------------------------
  def draw_date
    w = contents_width
    h = line_height
    month = $calender.month
    if (0..9).to_a.include?(month)
      month = "0" + month.to_s
    else
      month = month.to_s
    end
    date = $calender.date
    if (0..9).to_a.include?(date)
      date = "0" + date.to_s
    else
      date = date.to_s
    end
    day = $calender.day.to_s
    day.gsub!("Sun"){"\\c[2]日\\c[0]"}
    day.gsub!("Mon"){"月"}
    day.gsub!("Tue"){"火"}
    day.gsub!("Wed"){"水"}
    day.gsub!("Thr"){"木"}
    day.gsub!("Fri"){"金"}
    day.gsub!("Sat"){"土"}
    draw_text_ex(12, h, month + "月" + date + "日" + "(" + day + ")")
  end
  #--------------------------------------------------------------------------
  # ● 時・分の描画
  #--------------------------------------------------------------------------
  def draw_time
    w = contents_width - 12
    h = line_height
    hour = "#{$calender.hour}"
    min = $calender.min
    if (0..9).to_a.include?(min)
      min = "0" + min.to_s
    else
      min = min.to_s
    end
    draw_text(0, h * 2, w, h, hour + ":" + min, 2)
  end
  #--------------------------------------------------------------------------
  # ● 天候アイコンの描画
  #--------------------------------------------------------------------------
  def draw_weather_icon
    case $calender.weather
    when :fine
      icon_index = WhiteSnow::FINE[:icon]
    when :rain
      icon_index = WhiteSnow::RAIN[:icon]
    when :snow
      icon_index = WhiteSnow::SNOW[:icon]
    when :thunder
      icon_index = WhiteSnow::THUNDER[:icon]
    when :storm
      icon_index = WhiteSnow::STORM[:icon]
    when :star
      icon_index = WhiteSnow::STAR[:icon]
    when :s_storm
      icon_index = WhiteSnow::S_STORM[:icon]
    end
    draw_icon(icon_index, contents_width - 30, 0)
  end
end
 
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　マップ画面の処理を行うクラスです。
#==============================================================================
 
class Scene_Map < Scene_Base
  #--------------------------------------------------------------------------
  # ● 全ウィンドウの作成
  #--------------------------------------------------------------------------
  alias calender_create_all_windows create_all_windows
  def create_all_windows
    calender_create_all_windows
    create_calender_window
  end
  #--------------------------------------------------------------------------
  # ● 日付表示ウィンドウの作成
  #--------------------------------------------------------------------------
  def create_calender_window
    @calender_window = Window_Calender.new
  end
end
 
#==============================================================================
# ■ Scene_Base
#------------------------------------------------------------------------------
# 　ゲーム中の全てのシーンのスーパークラスです。
#==============================================================================
 
class Scene_Base
  #--------------------------------------------------------------------------
  # ● フレーム更新（基本）
  #--------------------------------------------------------------------------
  alias calender_update_basic update_basic
  def update_basic
    calender_update_basic
    update_calender
  end
  #--------------------------------------------------------------------------
  # ● 時刻の更新
  #--------------------------------------------------------------------------
  def update_calender
    return unless SceneManager.scene_is?(Scene_Map)
    return if $game_switches[10]
    $calender.count += 1
    if $calender.weather == :thunder and !($game_switches[WhiteSnow::WEATHER_EFFECT_FORBID_SID] or $game_switches[WhiteSnow::INSIDE_FLAG_SID])
      $calender.thunder_count ||= [Graphics.frame_rate * 5 + (rand * Graphics.frame_rate * 10).floor, false]
      $calender.thunder_count[0] -= 1
      if $calender.thunder_count[1]
        if $calender.thunder_count[0] == 0
          se = RPG::SE.new(WhiteSnow::THUNDER[:se][0], WhiteSnow::THUNDER[:se][1], WhiteSnow::THUNDER[:se][2])
          se.play
          $calender.thunder_count = nil
        end
      elsif $calender.thunder_count[0] < 12 + rand(43)
        flash = WhiteSnow::THUNDER[:flash]
        $calender.perform_thunder_effect(flash[0], flash[1], flash[2], flash[3], flash[4])
        $calender.thunder_count[1] = true
      end
    else
      $calender.thunder_count = nil
    end
    if $calender.count % Graphics.frame_rate == 0
      $calender.min += 1
      $calender.count = 0
      $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.min
      $calender.weather_count -= 1
      $calender.change_weather if $calender.weather_count <= 0
    end
    if $calender.min == 60
      $calender.hour += 1
      $calender.min = 0
      if $calender.hour >= 3 and $calender.hour < 19
        $calender.weather = :fine if $calender.weather == :star
      else
        $calender.weather = :star if $calender.weather == :fine
      end
      $calender.get_time_zone
      $calender.change_tone_by_calender
      $game_map.autoplay
      $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.min
      $game_variables[WhiteSnow::HOUR_STORE_VID] = $calender.hour
    end
    if $calender.hour == 24
      $calender.hour = 0
      $calender.shift_date
    end
  end
end
 
#==============================================================================
# ■ Scene_Menu
#------------------------------------------------------------------------------
# 　メニュー画面の処理を行うクラスです。
#==============================================================================
 
class Scene_Menu
  #--------------------------------------------------------------------------
  # ● 開始処理
  #--------------------------------------------------------------------------
  alias calender_start start
  def start
    calender_start
    create_calender_window
  end
  #--------------------------------------------------------------------------
  # ● 日付ウィンドウの作成
  #--------------------------------------------------------------------------
  def create_calender_window
    x = 0
    w = @gold_window.width
    @calender_window = Window_MenuCalender.new(x, 0, w)
    @calender_window.y = Graphics.height - @gold_window.height - @calender_window.height
  end
end
 
#==============================================================================
# ■ DataManager
#------------------------------------------------------------------------------
# 　データベースとゲームオブジェクトを管理するモジュールです。ゲームで使用する
# ほぼ全てのグローバル変数はこのモジュールで初期化されます。
#==============================================================================
 
module DataManager
  #--------------------------------------------------------------------------
  # ● エイリアス用特異メソッド
  #--------------------------------------------------------------------------
  class << self
    alias :calender_create_game_objects :create_game_objects
    alias :calender_extract_save_contents :extract_save_contents
  end
  #--------------------------------------------------------------------------
  # ● 各種ゲームオブジェクトの作成
  #--------------------------------------------------------------------------
  def self.create_game_objects
    calender_create_game_objects
    $calender = Calender.new
  end
  #--------------------------------------------------------------------------
  # ● セーブ内容の作成 (再定義)
  #--------------------------------------------------------------------------
  def self.make_save_contents
    contents = {}
    contents[:system]           = $game_system
    contents[:timer]            = $game_timer
    contents[:message]          = $game_message
    contents[:switches]         = $game_switches
    contents[:variables]        = $game_variables
    contents[:self_switches]    = $game_self_switches
    contents[:actors]           = $game_actors
    contents[:party]            = $game_party
    contents[:troop]            = $game_troop
    contents[:map]              = $game_map
    contents[:player]           = $game_player
    contents[:calender]         = $calender
    contents
  end
  #--------------------------------------------------------------------------
  # ● セーブ内容の作成
  #--------------------------------------------------------------------------
  def self.extract_save_contents(contents)
    calender_extract_save_contents(contents)
    $calender = contents[:calender]
  end
end
 
#==============================================================================
# ■ Game_Interpreter
#------------------------------------------------------------------------------
# 　イベントコマンドを実行するインタプリタです。このクラスは Game_Map クラス、
# Game_Troop クラス、Game_Event クラスの内部で使用されます。
#==============================================================================
 
class Game_Interpreter
  #--------------------------------------------------------------------------
  # ● 画面の色調変更(引数指定)
  #--------------------------------------------------------------------------
  def change_tone(r, g, b, gray = 0, dur = 60)
    tone = Tone.new(r, g, b, gray)
    screen.start_tone_change(tone, dur)
  end
  #--------------------------------------------------------------------------
  # ● 天候の変更(引数指定)
  #--------------------------------------------------------------------------
  def change_weather(type, power, dur = 30)
    return if $game_party.in_battle
    screen.change_weather(type, power, dur)
  end
  #--------------------------------------------------------------------------
  # ● 時間を設定
  #--------------------------------------------------------------------------
  def set_time(hour, min)
    hour = 23 if hour > 23
    hour = 0 if hour < 0
    min = 59 if min > 59
    min = 0 if min < 0
    $calender.hour = hour
    $calender.min = min
    $calender.get_time_zone
    $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.min
    $game_variables[WhiteSnow::HOUR_STORE_VID] = $calender.hour
    $game_variables[WhiteSnow::DATE_STORE_VID] = $calender.date
    $game_map.autoplay
    $calender.change_weather
    $calender.change_tone_by_calender
    if $calender.hour >= 3 and $calender.hour < 19
      $calender.weather = :fine if $calender.weather == :star
    else
      $calender.weather = :star if $calender.weather == :fine
    end
  end
  #--------------------------------------------------------------------------
  # ● 日付を設定
  #--------------------------------------------------------------------------
  def set_date(month, date, day)
    $calender.month = month
    $calender.date = date
    $calender.day = day
    $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.month
    $game_variables[WhiteSnow::DATE_STORE_VID] = $calender.date
    case $calender.day
    when :Sun
      $game_variables[WhiteSnow::DAY_STORE_VID] = 0
    when :Mon
      $game_variables[WhiteSnow::DAY_STORE_VID] = 1
    when :Tue
      $game_variables[WhiteSnow::DAY_STORE_VID] = 2
    when :Wed
      $game_variables[WhiteSnow::DAY_STORE_VID] = 3
    when :Thr
      $game_variables[WhiteSnow::DAY_STORE_VID] = 4
    when :Fri
      $game_variables[WhiteSnow::DAY_STORE_VID] = 5
    when :Sat
      $game_variables[WhiteSnow::DAY_STORE_VID] = 6
    end
 
    case $calender.month
    when 1..2
      $calender.season = :Winter
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3
    when 3..5
      $calender.season = :Spring
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0
    when 6..8
      $calender.season = :Summer
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1
    when 9..11
      $calender.season = :Autumn
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2
    when 12
      $calender.season = :Winter
      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3
    end
    $calender.change_weather
  end
  #--------------------------------------------------------------------------
  # ● 年を設定
  #--------------------------------------------------------------------------
  def set_year(year)
    $calender.year = year
    $game_variables[WhiteSnow::YEAR_STORE_VID] = year
    $calender.change_weather
  end
  #--------------------------------------------------------------------------
  # ● 天候を設定
  #--------------------------------------------------------------------------
  def set_weather(weather)
    $calender.weather = weather
    $calender.randomize_weather_count
    $calender.perform_weather_effect
    case weather
    when :fine
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 0
    when :rain
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 1
    when :snow
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 2
    when :thunder
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 3
    when :storm
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 4
    when :star
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 5
    when :s_storm
      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 6
    end
  end
  #--------------------------------------------------------------------------
  # ● 天候エフェクトを発生させる
  #--------------------------------------------------------------------------
  def perform_weather_effect
    $calender.perform_weather_effect
  end
  #--------------------------------------------------------------------------
  # ● 画面のフラッシュ(引数指定)
  #--------------------------------------------------------------------------
  def perform_flash(r, g, b, alpha, dur = 12)
    color = Color.new(r, g, b, alpha)
    screen.start_flash(color, dur)
  end
  #--------------------------------------------------------------------------
  # ● 日付を進める
  #--------------------------------------------------------------------------
  def shift_date(num)
    num.times{$calender.shift_date}
    $calender.change_weather
  end
  #--------------------------------------------------------------------------
  # ● 月を進める
  #--------------------------------------------------------------------------
  def shift_month(num)
    table = WhiteSnow::DAYS_TABLE
    days = table[$calender.month] - $calender.date + 1
    for i in 1..num
      days += table[($calender.month + i) % 12]
    end
    days.times{$calender.shift_date}
    $calender.change_weather
  end
  #--------------------------------------------------------------------------
  # ● 年を進める
  #--------------------------------------------------------------------------
  def shift_year(num)
    (num * 365).times{$calender.shift_date}
    $calender.change_weather
  end
  #--------------------------------------------------------------------------
  # ● 指定した日まで日付を進める
  #--------------------------------------------------------------------------
  def shift_date_to(m, d, y = -1)
    y = $calender.year if y == -1
    if $calender.days_dif(y, m, d) > 0
      $calender.days_dif(y, m, d).times{$calender.shift_date}
    else
      $calender.days_dif(y, m, d).abs.times{$calender.back_date}
    end
    $calender.change_weather
  end
end
 
#==============================================================================
# ■ SceneManager
#------------------------------------------------------------------------------
# 　シーン遷移を管理するモジュールです。たとえばメインメニューからアイテム画面
# を呼び出し、また戻るというような階層構造を扱うことができます。
#==============================================================================
 
module SceneManager
  #--------------------------------------------------------------------------
  # ● エイリアス用特異メソッド
  #--------------------------------------------------------------------------
  class << self
    alias :calender_goto   :goto
    alias :calender_call   :call
    alias :calender_return :return
  end
  #--------------------------------------------------------------------------
  # ● 直接遷移
  #--------------------------------------------------------------------------
  def self.goto(scene_class)
    calender_goto(scene_class)
    if scene_class == Scene_Map
      $calender.perform_weather_effect
      $calender.change_tone_by_calender
    end
  end
  #--------------------------------------------------------------------------
  # ● 呼び出し
  #--------------------------------------------------------------------------
  def self.call(scene_class)
    calender_call(scene_class)
    if scene_class == Scene_Map
      $calender.perform_weather_effect
      $calender.change_tone_by_calender
    end
  end
  #--------------------------------------------------------------------------
  # ● 呼び出し元へ戻る
  #--------------------------------------------------------------------------
  def self.return
    calender_return
    if @scene.class == Scene_Map
      $calender.perform_weather_effect
      $calender.change_tone_by_calender
    end
  end
end
 
#==============================================================================
# ■ Game_Switches
#------------------------------------------------------------------------------
# 　スイッチを扱うクラスです。組み込みクラス Array のラッパーです。このクラス
# のインスタンスは $game_switches で参照されます。
#==============================================================================
 
class Game_Switches
  #--------------------------------------------------------------------------
  # ● スイッチの設定 (再定義)
  #     value : ON (true) / OFF (false)
  #--------------------------------------------------------------------------
  def []=(switch_id, value)
    @data[switch_id] = value
    on_change
    if switch_id == WhiteSnow::TONE_CHANGE_FORBID_SID or switch_id == WhiteSnow::INSIDE_FLAG_SID
      case value
      when true
        $calender.interpreter.change_tone(0, 0, 0, 0, 0)
      when false
        $calender.change_tone_by_calender(0)
      end
    end
    if switch_id == WhiteSnow::WEATHER_EFFECT_FORBID_SID or switch_id == WhiteSnow::INSIDE_FLAG_SID
      case value
      when true
        $calender.interpreter.change_weather(:none, 0, 0)
        RPG::BGS.stop if (WhiteSnow::WEATHER_BGS_ENABLE and [0, 1].include?(WhiteSnow::INSIDE_BGS_TYPE)) or $game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
        $calender.play_inside_bgs if WhiteSnow::WEATHER_BGS_ENABLE and WhiteSnow::INSIDE_BGS_TYPE == 1 and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]
      when false
        $calender.perform_weather_effect(0)
      end
    end
  end
end
 
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　プレイヤーを扱うクラスです。イベントの起動判定や、マップのスクロールなどの
# 機能を持っています。このクラスのインスタンスは $game_player で参照されます。
#==============================================================================
 
class Game_Player
  #--------------------------------------------------------------------------
  # ● 場所移動の実行
  #--------------------------------------------------------------------------
  alias calender_perform_transfer perform_transfer
  def perform_transfer
    if transfer?
      $calender.perform_weather_effect(0)
      $calender.change_tone_by_calender(0)
    end
    calender_perform_transfer
  end
end
 
#==============================================================================
# ■ RPG::Map
#------------------------------------------------------------------------------
# 　マップのデータクラスです。
#==============================================================================
 
class RPG::Map
  #--------------------------------------------------------------------------
  # ● マップBGM
  #--------------------------------------------------------------------------
  def bgm
    bgm = Hash.new(@bgm)
    @note.each_line do |line|
      case line
      when /<(?:早朝|early)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/
        bgm[:early_morning] = RPG::BGM.new($1, $2.to_i, $3.to_i)
      when /<(?:朝|morning)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/
        bgm[:morning] = RPG::BGM.new($1, $2.to_i, $3.to_i)
      when /<(?:昼|noon)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/
        bgm[:noon] = RPG::BGM.new($1, $2.to_i, $3.to_i)
      when /<(?:夕方|evening)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/
        bgm[:evening] = RPG::BGM.new($1, $2.to_i, $3.to_i)
      when /<(?:夜|night)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/
        bgm[:night] = RPG::BGM.new($1, $2.to_i, $3.to_i)
      when /<(?:深夜|mid)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/
        bgm[:midnight] = RPG::BGM.new($1, $2.to_i, $3.to_i)
      end
    end
    return bgm
  end
end
 
#==============================================================================
# ■ Game_Map
#------------------------------------------------------------------------------
# 　マップを扱うクラスです。スクロールや通行可能判定などの機能を持っています。
# このクラスのインスタンスは $game_map で参照されます。
#==============================================================================
 
class Game_Map
  #--------------------------------------------------------------------------
  # ● BGM / BGS 自動切り替え (再定義)
  #--------------------------------------------------------------------------
  def autoplay
    case $calender.time_zone
    when :early_morning
      @map.bgm[:early_morning].play if @map.autoplay_bgm
    when :morning
      @map.bgm[:morning].play if @map.autoplay_bgm
    when :noon
      @map.bgm[:noon].play if @map.autoplay_bgm
    when :evening
      @map.bgm[:evening].play if @map.autoplay_bgm
    when :night
      @map.bgm[:night].play if @map.autoplay_bgm
    when :midnight
      @map.bgm[:midnight].play if @map.autoplay_bgm
    end
    @map.bgs.play if @map.autoplay_bgs
  end
end
 
module Kernel
  #--------------------------------------------------------------------------
  # ● 重み付きの乱数を生成
  #--------------------------------------------------------------------------
  def p_ex_rand(rate, n = 0)
    srand
    rate = 99 if rate == 100
    if n == 0
      r = 1 - rand ** (1 - rate * 0.01)
      if r == 1
        return 0
      else
        return r
      end
    else
      num = n.truncate
      r = 1 - rand ** (1 - rate * 0.01)
      r = 0 if r == 1
      return (r * num).floor
    end
  end
end

=begin  =======================================================================


  ☆ カレンダー機能追加  by 白雪レイカ


-------------------------------------------------------------------------------


  プロジェクトに「時刻」の概念を加えます。


  時間帯でBGMや画面の色調が切り替わり、季節ごとにランダムで天候が変化します。


  主なデータはすべて変数に格納されるので、


  それを使ってイベントを分岐させたりできます。


-------------------------------------------------------------------------------


 


  ◆使い方


    基本的に設定項目をカスタマイズして導入するだけなのですが、


    一部説明が必要な部分があるのでご説明します。


    


    ○時間帯について


    


       3:00 ～  5:59 => 早朝 (:early_morning)


       6:00 ～ 10:59 => 朝   (:morning)


      11:00 ～ 15:59 => 昼   (:noon)


      16:00 ～ 18:59 => 夕方 (:evening)


      19:00 ～ 22:59 => 夜   (:night)


      23:00 ～  2:59 => 深夜 (:midnight)


      


      となっています。


      


    


    ○時間帯ごとのBGM切り替え


      マップ設定の「BGMの自動切換え」にチェックが入っているときのみ有効。


      マップのメモ欄に以下のように記述してください。


      


      <早朝(またはearly) ファイル名, 音量, ピッチ>


      


      これで早朝のBGMが設定できます。


      早朝 の部分を 朝(またはmorning)、昼(またはnoon)、夕方(またはevening)、


      夜(またはnight)、深夜(またはmid)とすることで


      対応する時間帯のBGMを設定することができます。


      ファイル名の拡張子は省略することができます(例 Town1)。


      


      


    ○イベントでの時刻etc設定


      イベントコマンド「スクリプト」から実行


      


        set_time(hour, min)


          # 時刻を hour:min に設定します。


          # このメソッドによって日数が経過することはありません。


        


        set_date(month, date, day)


          # カレンダーを month月 date日 day曜日に設定します。


          # 曜日の経過とか完全に無視してしまうので非推奨です。


          # 曜日はシンボルで設定します。


          


          # 日曜 => :Sun  月曜 => :Mon  火曜 => :Tue


          # 水曜 => :Wed  木曜 => :Thr  金曜 => :Fri


          # 土曜 => :Sat


          


        set_year(year)


          # カレンダーをyear年に設定します。


          # 上と同じく非推奨です。


        


        shift_date(date)


          # カレンダーをdate日だけ進めます。


          # こちらは曜日もちゃんと加味します。


          


        shift_month(month)


          # カレンダーをmonth月だけ進め、


          # 進めた月の1日に設定します。


           


         shift_year(year)


          # カレンダーを指定した年数経過させます。


          # shift_monthと違って日付は変わりません。


          


        shift_date_to(month, date[, year])


          # カレンダーを指定した日付(year年 month月 date日)まで進めます。


          # yearを省略した場合は現在の年と同じ値になります。


          # 現在の日付よりも前の日付を設定すると、


          # その日まで時間が巻き戻ります。


           


         set_weather(weather)


          # 天候を設定します。


          # weatherはシンボルで指定します。


          


          # 晴れ => :fine  雨 => :rain   雪 => :snow


          # 雷 => :thunder 嵐 => :storm  晴れ(夜) => :star


          # 吹雪 => :s_storm


          


  ◆おことわり


    改造・再配布等自由です。


    再配布の際には作者の明示をお願いします。


    バグを発見したら速やかにご報告ください。


    


=end


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


# ■ 設定項目


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


module WhiteSnow


 


  # ↓↓ここから初期設定↓↓


 


  INITAL_MIN = 40


    # ゲーム開始時の「分」の値


 


  INITAL_HOUR = 7


    # ゲーム開始時の「時」の値


 


  INITAL_DATE = 6


    # ゲーム開始時の「日」の値


 


  INITAL_DAY = :Sun


    # ゲーム開始時の「曜日」の値


 


  INITAL_MONTH = 4


    # ゲーム開始時の「月」の値


 


  INITAL_YEAR = 618


    # ゲーム開始時の「年」の値


 


  # ↑↑ここまで初期設定↑↑


 


 


  TIME_COUNT_FORBID_SID = 80


    # 時間経過を禁止するスイッチID


 


  TONE_CHANGE_FORBID_SID = 81


    # 時間経過による画面の色調変更を禁止するスイッチID


 


  WEATHER_EFFECT_FORBID_SID = 82


    # 天候エフェクトを無効化するスイッチID


 


  CALENDER_WINDOW_HIDE_SID = 83


    # 日付ウィンドウを消すスイッチID


    # ウィンドウが消えていても止めない限り時間は経過します


 


  INSIDE_FLAG_SID = 84


    # 屋内フラグを立てるスイッチID


    # 色調変更、天候エフェクトをまとめて無効化します


 


  WEATHER_BGS_ENABLE = true


    # 天候によるBGS機能を使用するか


    # trueで使用する、falseで使用しないとなります


 


  INSIDE_BGS_TYPE = 1


    # 屋内フラグまたは天候エフェクト無効フラグのスイッチがONになった


    # ときのBGSのタイプ


    # BGS機能を使用するときのみ有効


    # 0で音を消す、1で音量を60%にして流す、2でそのまま流す


    # となります。


 


  WEATHER_BGS_DISABLE = 15


    # 天候BGS機能停止スイッチ


 


    # このスイッチIDがONのときは天候BGSは流れません。


    # ただしこのスイッチ単体では、今流れているBGSの再生を止める効果はありません。


    # あくまで一時的にBGS機能を無効化するだけです。


    # 屋内フラグを切り替えるスイッチと一緒に使うなりしてください。


 


    # また、このスイッチがOFFになっても止まっていたBGSが再び流れるような


    # ことはありません。


 


 


  MIN_STORE_VID = 101


    # 現在の「分」の値が格納される変数ID


 


  HOUR_STORE_VID = 102


    # 現在の「時」の値が格納される変数ID


 


  TIME_ZONE_STORE_VID = 103


    # 現在の「時間帯」が格納される変数ID


    # 早朝に0、朝に1、昼に2、夕方に3、夜に4、深夜で5になります。


 


  DATE_STORE_VID = 104


    # 現在の「日」の値が格納される変数ID


 


  DAY_STORE_VID = 105


    # 現在の「曜日」が格納される変数ID


    # 日曜のとき0、月曜のとき1、と続き土曜のとき6になります。


 


  MONTH_STORE_VID = 106


    # 現在の「月」の値が格納される変数ID


 


  SEASON_STORE_VID = 107


    # 現在の「季節」が格納される変数ID


    # 春のとき0、夏のとき1、秋のとき2、冬のとき3になります。


 


  WEATHER_STORE_VID = 108


    # 現在の「天候」が格納される変数ID


    # 晴れのとき0、雨のとき1、雪のとき2、雷のとき3、


    # 嵐のとき4、晴れ(夜)のとき5、吹雪のとき6になります。


 


  YEAR_STORE_VID = 109


    # 現在の「年」の値が格納される変数ID


 


 


  EARLY_MORNING_SCREEN_TONE = [15, 10, 0, 0]


    # 早朝の画面の色調


    # R, G, B, Darkの順に指定してください。


 


  MORNING_SCREEN_TONE = [0, 0, 0, 0]


    # 朝の画面の色調


    # R, G, B, Darkの順に指定してください。


 


  NOON_SCREEN_TONE = [15, 15, 15, 0]


    # 昼の画面の色調


    # R, G, B, Darkの順に指定してください。


 


  AFTERNOON_SCREEN_TONE = [32, -8, -32, 16]


    # 夕方の画面の色調


    # R, G, B, Darkの順に指定してください。


 


  NIGHT_SCREEN_TONE = [-64, -64, -16, 32]


    # 夜の画面の色調


    # R, G, B, Darkの順に指定してください。


 


  MIDNIGHT_SCREEN_TONE = [-72, -72, -20, 48]


    # 深夜の画面の色調


    # R, G, B, Darkの順に指定してください。


 


 


  DAYS_TABLE = {0 => 31, 1 => 31, 2 => 28, 3 => 31, 4 => 30, 5 => 31, 6 => 30,


                7 => 31, 8 => 31, 9 => 30, 10 => 31, 11 => 30, 12 => 31}


    # 月毎の日数のテーブル


    # 基本的に変更しないでください。


 


 


    # 以下天候リスト


 


    # 設定例


    # WEATHER = {:icon => 天候アイコンインデックス,


    #            :weather => [天候エフェクトの種類, 強さ]},


    #            :bgs => ["ファイル名", 音量, ピッチ](設定しない場合はnil),


    #


    # 天候エフェクトの種類  :noneで「なし」、:rainで「雨」、


    #                       :stormで「嵐」、:snowで「雪」となります。


 


  FINE = {:icon => 1, :weather => [:none, 0],


          :bgs => nil}


    # 天候：晴れ


 


  RAIN = {:icon => 2, :weather => [:rain, 5],


          :bgs => ["Rain", 20, 90]}


    # 天候：雨


 


  SNOW = {:icon => 3, :weather => [:snow, 4],


          :bgs => nil}


    # 天候：雪


 


  THUNDER = {:icon => 4, :weather => [:storm, 4],


             :bgs => ["Storm", 60, 75],


 


             :flash => [255, 255, 200, 180, 12],


             :se => ["Thunder9", 80, 95]}


    # 天候：雷


    # 雷エフェクト用の設定項目について


    # :flash => [(フラッシュの色)R, G, B, Alpha, フラッシュの長さ]


    # :se => フラッシュの後に鳴るSE


 


  STORM = {:icon => 5, :weather => [:storm, 8],


           :bgs => ["Storm", 70, 100]}


    # 天候：嵐


 


  STAR = {:icon => 6, :weather => [:none, 0],


          :bgs => nil}


    # 天候：晴れ(夜)


 


  S_STORM = {:icon => 7, :weather => [:snow, 9],


             :bgs => ["Wind", 70, 95]}


    # 天候：吹雪


end


 


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


# ■ Calender


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


# 　カレンダーのクラスです。


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


 


class Calender


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


  # ● 公開インスタンス変数


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


  attr_accessor :count


  attr_accessor :min


  attr_accessor :hour


  attr_accessor :date


  attr_accessor :day


  attr_accessor :month


  attr_accessor :season


  attr_accessor :year


  attr_accessor :weather


  attr_accessor :weather_count


  attr_accessor :time_zone


  attr_reader   :interpreter


  attr_accessor :thunder_count


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


  # ● オブジェクト初期化


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


  def initialize


    @count = 0


    @weather = :fine


    @interpreter = Game_Interpreter.new


    init_calender


    change_weather


  end


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


  # ● カレンダーの初期化


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


  def init_calender


    [url=home.php?mod=space&uid=25749]@min[/url]    = WhiteSnow::INITAL_MIN


    @hour   = WhiteSnow::INITAL_HOUR


    @date   = WhiteSnow::INITAL_DATE


    [url=home.php?mod=space&uid=11519]@day[/url]    = WhiteSnow::INITAL_DAY


    [url=home.php?mod=space&uid=26122]@Month[/url]  = WhiteSnow::INITAL_MONTH


    @year   = WhiteSnow::INITAL_YEAR


    get_time_zone


 


    $game_variables[WhiteSnow::MIN_STORE_VID] = @min


    $game_variables[WhiteSnow::HOUR_STORE_VID] = @hour


    $game_variables[WhiteSnow::DATE_STORE_VID] = @date


 


    case @month


    when 1..2


      [url=home.php?mod=space&uid=31546]@season[/url] = :Winter


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3


    when 3..5


      [url=home.php?mod=space&uid=31546]@season[/url] = :Spring


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0


    when 6..8


      [url=home.php?mod=space&uid=31546]@season[/url] = :Summer


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1


    when 9..11


      @season = :Autumn


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2


    when 12


      @season = :Winter


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3


    end


 


    case @day


    when :Sun


      $game_variables[WhiteSnow::DAY_STORE_VID] = 0


    when :Mon


      $game_variables[WhiteSnow::DAY_STORE_VID] = 1


    when :Tue


      $game_variables[WhiteSnow::DAY_STORE_VID] = 2


    when :Wed


      $game_variables[WhiteSnow::DAY_STORE_VID] = 3


    when :Thr


      $game_variables[WhiteSnow::DAY_STORE_VID] = 4


    when :Fri


      $game_variables[WhiteSnow::DAY_STORE_VID] = 5


    when :Sat


      $game_variables[WhiteSnow::DAY_STORE_VID] = 6


    end


    $game_variables[WhiteSnow::MONTH_STORE_VID] = @month


    $game_variables[WhiteSnow::YEAR_STORE_VID] = @year


    change_tone_by_calender


  end


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


  # ● 時間帯の取得


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


  def get_time_zone


    case @hour


    when 0..2


      @time_zone = :midnight


      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 5


    when 3..5


      @time_zone = :early_morning


      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 0


    when 6..10


      @time_zone = :morning


      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 1


    when 11..15


      @time_zone = :noon


      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 2


    when 16..18


      @time_zone = :evening


      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 3


    when 19..22


      @time_zone = :night


      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 4


    when 23..24


      @time_zone = :midnight


      $game_variables[WhiteSnow::TIME_ZONE_STORE_VID] = 5


    end


  end


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


  # ● 天候カウントの取得


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


  def randomize_weather_count


    @weather_count = p_ex_rand(40, 100) + (109 - p_ex_rand(40, 110)) + 90


  end


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


  # ● 画面の色調変更


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


  def change_tone_by_calender(dur = 60)


    return if $game_switches[WhiteSnow::TONE_CHANGE_FORBID_SID]


    return if $game_switches[WhiteSnow::INSIDE_FLAG_SID]


    case @time_zone


    when :early_morning


      tone = WhiteSnow::EARLY_MORNING_SCREEN_TONE


      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)


    when :morning


      tone = WhiteSnow::MORNING_SCREEN_TONE


      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)


    when :noon


      tone = WhiteSnow::NOON_SCREEN_TONE


      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)


    when :evening


      tone = WhiteSnow::AFTERNOON_SCREEN_TONE


      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)


    when :night


      tone = WhiteSnow::NIGHT_SCREEN_TONE


      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)


    when :midnight


      tone = WhiteSnow::MIDNIGHT_SCREEN_TONE


      @interpreter.change_tone(tone[0], tone[1], tone[2], tone[3], dur)


    end


  end


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


  # ● 天候の変更


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


  def change_weather


    srand


    p_weather = @weather


    case @month


    when 1


      case rand


      when 0...0.2


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.2...0.8


        @weather = :snow


      when 0.8...1


        @weather = :s_storm


      end


    when 2


      case rand


      when 0...0.3


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.3...0.8


        @weather = :snow


      when 0.8...0.9


        @weather = :rain


      when 0.9...1


        @weather = :s_storm


      end


    when 3..4


      case rand


      when 0...0.8


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.8...0.9


        @weather = :rain


      when 0.9...1


        @weather = :storm


      end


    when 5


      case rand


      when 0...0.7


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.7...0.8


        @weather = :rain


      when 0.8...0.9


        @weather = :thunder


      when 0.9...1


        @weather = :storm


      end


    when 6


      case rand


      when 0...0.4


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.4...0.8


        @weather = :rain


      when 0.8...0.9


        @weather = :thunder


      when 0.9...1


        @weather = :storm


      end


    when 7..8


      case rand


      when 0...0.6


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.6...0.7


        @weather = :rain


      when 0.7...0.9


        @weather = :storm


      when 0.9...1


        @weather = :thunder


      end


    when 9..10


      case rand


      when 0...0.6


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.6...0.8


        @weather = :storm


      when 0.8...0.9


        @weather = :rain


      when 0.9...1


        @weather = :thunder


      end


    when 11


      if @date < 25


        case rand


        when 0...0.7


          if @hour >= 3 and @hour < 18


            @weather = :fine


          else


            @weather = :star


          end


        when 0.7...0.8


          @weather = :storm


        when 0.8...0.9


          @weather = :rain


        when 0.9...1


          @weather = :thunder


        end


      else


        case rand


        when 0...0.6


          if @hour >= 3 and @hour < 18


            @weather = :fine


          else


            @weather = :star


          end


        when 0.6...0.7


          @weather = :storm


        when 0.7...0.8


          @weather = :rain


        when 0.8...0.9


          @weather = :thunder


        when 0.9...1


          @weather = :snow


        end


      end


    when 12


      case rand


      when 0...0.2


        if @hour >= 3 and @hour < 18


          @weather = :fine


        else


          @weather = :star


        end


      when 0.2...0.8


        @weather = :snow


      when 0.8...1


        @weather = :s_storm


      end


    end


    if @weather != p_weather


      RPG::BGS.fade(10)


      perform_weather_effect


    end


    randomize_weather_count


  end


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


  # ● 天候エフェクト


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


  def perform_weather_effect(dur = 30)


    return unless SceneManager.scene_is?(Scene_Map)


    return if $game_switches[WhiteSnow::WEATHER_EFFECT_FORBID_SID]


    return if $game_switches[WhiteSnow::INSIDE_FLAG_SID]


    case @weather


    when :fine


      weather = WhiteSnow::FINE


      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])


        bgs.play


      end


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 0


 


    when :rain


      weather = WhiteSnow::RAIN


      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])


        bgs.play


      end


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 1


 


    when :snow


      weather = WhiteSnow::SNOW


      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])


        bgs.play


      end


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 2


 


    when :thunder


      weather = WhiteSnow::THUNDER


      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])


        bgs.play


      end


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 3


 


    when :storm


      weather = WhiteSnow::STORM


      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])


        bgs.play


      end


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 4


 


    when :star


      weather = WhiteSnow::STAR


      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])


        bgs.play


      end


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 5


 


    when :s_storm


      weather = WhiteSnow::S_STORM


      @interpreter.change_weather(weather[:weather][0], weather[:weather][1], dur)


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1], weather[:bgs][2])


        bgs.play


      end


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 6


    end


  end


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


  # ● 屋内BGSの演奏


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


  def play_inside_bgs


    case @weather


    when :fine


      weather = WhiteSnow::FINE


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.6, weather[:bgs][2])


        bgs.play


      end


 


    when :rain


      weather = WhiteSnow::RAIN


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])


        bgs.play


      end


 


    when :snow


      weather = WhiteSnow::SNOW


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])


        bgs.play


      end


 


    when :thunder


      weather = WhiteSnow::THUNDER


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])


        bgs.play


      end


 


    when :storm


      weather = WhiteSnow::STORM


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])


        bgs.play


      end


 


    when :star


      weather = WhiteSnow::STAR


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])


        bgs.play


      end


 


    when :s_storm


      weather = WhiteSnow::S_STORM


      if weather[:bgs] and WhiteSnow::WEATHER_BGS_ENABLE and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        bgs = RPG::BGS.new(weather[:bgs][0], weather[:bgs][1] * 0.7, weather[:bgs][2])


        bgs.play


      end


    end


  end


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


  # ● 天候「雷」エフェクトの実行


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


  def perform_thunder_effect(r, g, b, alpha, dur)


    @interpreter.perform_flash(r, g, b, alpha, dur)


  end


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


  # ● 曜日の更新


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


  def shift_day


    case @day


    when :Sun


      [url=home.php?mod=space&uid=11519]@day[/url] = :Mon


      $game_variables[WhiteSnow::DAY_STORE_VID] = 1


    when :Mon


      [url=home.php?mod=space&uid=11519]@day[/url] = :Tue


      $game_variables[WhiteSnow::DAY_STORE_VID] = 2


    when :Tue


      @day = :Wed


      $game_variables[WhiteSnow::DAY_STORE_VID] = 3


    when :Wed


      @day = :Thr


      $game_variables[WhiteSnow::DAY_STORE_VID] = 4


    when :Thr


      @day = :Fri


      $game_variables[WhiteSnow::DAY_STORE_VID] = 5


    when :Fri


      @day = :Sat


      $game_variables[WhiteSnow::DAY_STORE_VID] = 6


    when :Sat


      @day = :Sun


      $game_variables[WhiteSnow::DAY_STORE_VID] = 0


    end


  end


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


  # ● 曜日を戻す


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


  def back_day


    case @day


    when :Sun


      @day = :Sat


      $game_variables[WhiteSnow::DAY_STORE_VID] = 1


    when :Sat


      @day = :Fri


      $game_variables[WhiteSnow::DAY_STORE_VID] = 2


    when :Fri


      @day = :Thr


      $game_variables[WhiteSnow::DAY_STORE_VID] = 3


    when :Thr


      @day = :Wed


      $game_variables[WhiteSnow::DAY_STORE_VID] = 4


    when :Wed


      @day = :Tue


      $game_variables[WhiteSnow::DAY_STORE_VID] = 5


    when :Tue


      @day = :Mon


      $game_variables[WhiteSnow::DAY_STORE_VID] = 6


    when :Mon


      @day = :Sun


      $game_variables[WhiteSnow::DAY_STORE_VID] = 0


    end


  end


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


  # ● 月の更新


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


  def shift_month


    case @month


    when 1


      return unless @date > 31


      [url=home.php?mod=space&uid=26122]@Month[/url] += 1


      @date = 1


    when 2


      return unless @date > 28


      [url=home.php?mod=space&uid=26122]@Month[/url] += 1


      @season = :Spring


      @date = 1


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0


    when 3


      return unless @date > 31


      @month += 1


      @date = 1


    when 4


      return unless @date > 30


      @month += 1


      @date = 1


    when 5


      return unless @date > 31


      @month += 1


      @season = :Summer


      @date = 1


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1


    when 6


      return unless @date > 30


      @month += 1


      @date = 1


    when 7


      return unless @date > 31


      @month += 1


      @date = 1


    when 8


      return unless @date > 31


      @month += 1


      @season = :Autumn


      @date = 1


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2


    when 9


      return unless @date > 30


      @month += 1


      @date = 1


    when 10


      return unless @date > 31


      @month += 1


      @date = 1


    when 11


      return unless @date > 30


      @month += 1


      @season = :Winter


      @date = 1


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3


    when 12


      return unless @date > 31


      @year += 1


      @month = 1


      @date = 1


      $game_variables[WhiteSnow::YEAR_STORE_VID] = @year


    end


    $game_variables[WhiteSnow::DATE_STORE_VID] = @date


    $game_variables[WhiteSnow::MONTH_STORE_VID] = @month


  end


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


  # ● 月を戻す


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


  def back_month


    return unless @date < 1


    case @month


    when 1


      @month = 12


      @date = 31


      @year -= 1


      $game_variables[WhiteSnow::YEAR_STORE_VID] = @year


    when 2


      @month -= 1


      @date = 31


    when 3


      @month -= 1


      @date = 28


      @season = :Winter


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3


    when 4


      @month -= 1


      @date = 31


    when 5


      @month -= 1


      @date = 30


    when 6


      @month -= 1


      @date = 31


      @season = :Spring


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0


    when 7


      @month -= 1


      @date = 30


    when 8


      @month -= 1


      @date = 31


    when 9


      @month -= 1


      @date = 31


      @season = :Summer


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1


    when 10


      @month -= 1


      @date = 30


    when 11


      @month -= 1


      @date = 31


    when 12


      @month -= 1


      @date = 30


      @season = :Autumn


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2


    end


    $game_variables[WhiteSnow::DATE_STORE_VID] = @date


    $game_variables[WhiteSnow::MONTH_STORE_VID] = @month


  end


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


  # ● 日付を進める


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


  def shift_date


    @date += 1


    shift_day


    shift_month


    $game_variables[WhiteSnow::HOUR_STORE_VID] = @hour


    $game_variables[WhiteSnow::DATE_STORE_VID] = @date


  end


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


  # ● 日付を戻す


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


  def back_date


    @date += 1


    back_day


    back_month


    $game_variables[WhiteSnow::HOUR_STORE_VID] = @hour


    $game_variables[WhiteSnow::DATE_STORE_VID] = @date


  end


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


  # ● 指定された日時と現在の日時の差を求める


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


  def days_dif(y, m, d)


    table = WhiteSnow::DAYS_TABLE


    dy_n = (@year - 1) * 365


    dy_s = (y - 1) * 365


    dm_n = 0 ; 1.upto(@month - 1){|n| dm_n += table[n]} unless @month == 1


    dm_s = 0 ; 1.upto(m - 1){|n| dm_s += table[n]} unless m == 1


    d_n = @date - 1


    d_s = d - 1


    n = dy_n + dm_n + d_n


    s = dy_s + dm_s + d_s


    return s - n


  end


end


 


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


# ■ Window_Calender


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


# 　カレンダーの内容を表示するウィンドウです。


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


 


class Window_Calender < Window_Base


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


  # ● オブジェクト初期化


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


  def initialize(x = Graphics.width - 208, y = 0, w = 208)


    super(x, y, w, fitting_height(2))


    refresh


  end


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


  # ● フレーム更新


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


  def update


    self.visible = false if $game_switches[WhiteSnow::CALENDER_WINDOW_HIDE_SID]


    super


    refresh if $calender.count == 0


  end


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


  # ● リフレッシュ


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


  def refresh


    contents.clear


    draw_year


    draw_date


    draw_time


    draw_weather_icon


  end


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


  # ● 年・季節の描画


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


  def draw_year


    season = $calender.season.to_s


    season.gsub!("Spring"){"春"}


    season.gsub!("Summer"){"夏"}


    season.gsub!("Autumn"){"秋"}


    season.gsub!("Winter"){"冬"}


    draw_text(0, 0, contents_width, line_height, "#{$calender.year}" + "年")


    draw_text(0, 0, contents_width, line_height, season, 1)


  end


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


  # ● 月・日付・曜日の描画


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


  def draw_date


    w = contents_width


    h = line_height


    month = $calender.month


    if (0..9).to_a.include?(month)


      month = "0" + month.to_s


    else


      month = month.to_s


    end


    date = $calender.date


    if (0..9).to_a.include?(date)


      date = "0" + date.to_s


    else


      date = date.to_s


    end


    day = $calender.day.to_s


    day.gsub!("Sun"){"\\c[2]日\\c[0]"}


    day.gsub!("Mon"){"月"}


    day.gsub!("Tue"){"火"}


    day.gsub!("Wed"){"水"}


    day.gsub!("Thr"){"木"}


    day.gsub!("Fri"){"金"}


    day.gsub!("Sat"){"土"}


    draw_text_ex(0, h, month + "月" + date + "日" + "(" + day + ")")


  end


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


  # ● 時・分の描画


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


  def draw_time


    w = contents_width - 6


    h = line_height


    hour = "#{$calender.hour}"


    min = $calender.min


    if (0..9).to_a.include?(min)


      min = "0" + min.to_s


    else


      min = min.to_s


    end


    draw_text(0, h, w, h, hour + ":" + min, 2)


  end


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


  # ● 天候アイコンの描画


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


  def draw_weather_icon


    case $calender.weather


    when :fine


      icon_index = WhiteSnow::FINE[:icon]


    when :rain


      icon_index = WhiteSnow::RAIN[:icon]


    when :snow


      icon_index = WhiteSnow::SNOW[:icon]


    when :thunder


      icon_index = WhiteSnow::THUNDER[:icon]


    when :storm


      icon_index = WhiteSnow::STORM[:icon]


    when :star


      icon_index = WhiteSnow::STAR[:icon]


    when :s_storm


      icon_index = WhiteSnow::S_STORM[:icon]


    end


    draw_icon(icon_index, contents_width - 30, 0)


  end


end


 


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


# ■ Window_MenuCalender


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


# 　カレンダーの内容を表示するウィンドウです(メニュー画面用)。


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


 


class Window_MenuCalender < Window_Base


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


  # ● オブジェクト初期化


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


  def initialize(x = Graphics.width - 220, y = 0, w = 220)


    super(x, y, w, fitting_height(3))


    refresh


  end


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


  # ● リフレッシュ


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


  def refresh


    contents.clear


    draw_year


    draw_date


    draw_time


    draw_weather_icon


  end


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


  # ● 年の描画


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


  def draw_year


    season = $calender.season.to_s


    season.gsub!("Spring"){"春"}


    season.gsub!("Summer"){"夏"}


    season.gsub!("Autumn"){"秋"}


    season.gsub!("Winter"){"冬"}


    draw_text(0, 0, contents_width, line_height, "#{$calender.year}" + "年")


    draw_text(0, 0, contents_width + 12, line_height, season, 1)


  end


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


  # ● 月・日付・曜日の描画


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


  def draw_date


    w = contents_width


    h = line_height


    month = $calender.month


    if (0..9).to_a.include?(month)


      month = "0" + month.to_s


    else


      month = month.to_s


    end


    date = $calender.date


    if (0..9).to_a.include?(date)


      date = "0" + date.to_s


    else


      date = date.to_s


    end


    day = $calender.day.to_s


    day.gsub!("Sun"){"\\c[2]日\\c[0]"}


    day.gsub!("Mon"){"月"}


    day.gsub!("Tue"){"火"}


    day.gsub!("Wed"){"水"}


    day.gsub!("Thr"){"木"}


    day.gsub!("Fri"){"金"}


    day.gsub!("Sat"){"土"}


    draw_text_ex(12, h, month + "月" + date + "日" + "(" + day + ")")


  end


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


  # ● 時・分の描画


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


  def draw_time


    w = contents_width - 12


    h = line_height


    hour = "#{$calender.hour}"


    min = $calender.min


    if (0..9).to_a.include?(min)


      min = "0" + min.to_s


    else


      min = min.to_s


    end


    draw_text(0, h * 2, w, h, hour + ":" + min, 2)


  end


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


  # ● 天候アイコンの描画


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


  def draw_weather_icon


    case $calender.weather


    when :fine


      icon_index = WhiteSnow::FINE[:icon]


    when :rain


      icon_index = WhiteSnow::RAIN[:icon]


    when :snow


      icon_index = WhiteSnow::SNOW[:icon]


    when :thunder


      icon_index = WhiteSnow::THUNDER[:icon]


    when :storm


      icon_index = WhiteSnow::STORM[:icon]


    when :star


      icon_index = WhiteSnow::STAR[:icon]


    when :s_storm


      icon_index = WhiteSnow::S_STORM[:icon]


    end


    draw_icon(icon_index, contents_width - 30, 0)


  end


end


 


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


# ■ Scene_Map


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


# 　マップ画面の処理を行うクラスです。


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


 


class Scene_Map < Scene_Base


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


  # ● 全ウィンドウの作成


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


  alias calender_create_all_windows create_all_windows


  def create_all_windows


    calender_create_all_windows


    create_calender_window


  end


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


  # ● 日付表示ウィンドウの作成


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


  def create_calender_window


    @calender_window = Window_Calender.new


  end


end


 


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


# ■ Scene_Base


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


# 　ゲーム中の全てのシーンのスーパークラスです。


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


 


class Scene_Base


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


  # ● フレーム更新（基本）


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


  alias calender_update_basic update_basic


  def update_basic


    calender_update_basic


    update_calender


  end


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


  # ● 時刻の更新


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


  def update_calender


    return unless SceneManager.scene_is?(Scene_Map)


    return if $game_switches[10]


    $calender.count += 1


    if $calender.weather == :thunder and !($game_switches[WhiteSnow::WEATHER_EFFECT_FORBID_SID] or $game_switches[WhiteSnow::INSIDE_FLAG_SID])


      $calender.thunder_count ||= [Graphics.frame_rate * 5 + (rand * Graphics.frame_rate * 10).floor, false]


      $calender.thunder_count[0] -= 1


      if $calender.thunder_count[1]


        if $calender.thunder_count[0] == 0


          se = RPG::SE.new(WhiteSnow::THUNDER[:se][0], WhiteSnow::THUNDER[:se][1], WhiteSnow::THUNDER[:se][2])


          se.play


          $calender.thunder_count = nil


        end


      elsif $calender.thunder_count[0] < 12 + rand(43)


        flash = WhiteSnow::THUNDER[:flash]


        $calender.perform_thunder_effect(flash[0], flash[1], flash[2], flash[3], flash[4])


        $calender.thunder_count[1] = true


      end


    else


      $calender.thunder_count = nil


    end


    if $calender.count % Graphics.frame_rate == 0


      $calender.min += 1


      $calender.count = 0


      $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.min


      $calender.weather_count -= 1


      $calender.change_weather if $calender.weather_count <= 0


    end


    if $calender.min == 60


      $calender.hour += 1


      $calender.min = 0


      if $calender.hour >= 3 and $calender.hour < 19


        $calender.weather = :fine if $calender.weather == :star


      else


        $calender.weather = :star if $calender.weather == :fine


      end


      $calender.get_time_zone


      $calender.change_tone_by_calender


      $game_map.autoplay


      $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.min


      $game_variables[WhiteSnow::HOUR_STORE_VID] = $calender.hour


    end


    if $calender.hour == 24


      $calender.hour = 0


      $calender.shift_date


    end


  end


end


 


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


# ■ Scene_Menu


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


# 　メニュー画面の処理を行うクラスです。


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


 


class Scene_Menu


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


  # ● 開始処理


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


  alias calender_start start


  def start


    calender_start


    create_calender_window


  end


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


  # ● 日付ウィンドウの作成


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


  def create_calender_window


    x = 0


    w = @gold_window.width


    @calender_window = Window_MenuCalender.new(x, 0, w)


    @calender_window.y = Graphics.height - @gold_window.height - @calender_window.height


  end


end


 


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


# ■ DataManager


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


# 　データベースとゲームオブジェクトを管理するモジュールです。ゲームで使用する


# ほぼ全てのグローバル変数はこのモジュールで初期化されます。


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


 


module DataManager


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


  # ● エイリアス用特異メソッド


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


  class << self


    alias :calender_create_game_objects :create_game_objects


    alias :calender_extract_save_contents :extract_save_contents


  end


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


  # ● 各種ゲームオブジェクトの作成


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


  def self.create_game_objects


    calender_create_game_objects


    $calender = Calender.new


  end


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


  # ● セーブ内容の作成 (再定義)


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


  def self.make_save_contents


    contents = {}


    contents[:system]           = $game_system


    contents[:timer]            = $game_timer


    contents[:message]          = $game_message


    contents[:switches]         = $game_switches


    contents[:variables]        = $game_variables


    contents[:self_switches]    = $game_self_switches


    contents[:actors]           = $game_actors


    contents[:party]            = $game_party


    contents[:troop]            = $game_troop


    contents[:map]              = $game_map


    contents[:player]           = $game_player


    contents[:calender]         = $calender


    contents


  end


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


  # ● セーブ内容の作成


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


  def self.extract_save_contents(contents)


    calender_extract_save_contents(contents)


    $calender = contents[:calender]


  end


end


 


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


# ■ Game_Interpreter


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


# 　イベントコマンドを実行するインタプリタです。このクラスは Game_Map クラス、


# Game_Troop クラス、Game_Event クラスの内部で使用されます。


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


 


class Game_Interpreter


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


  # ● 画面の色調変更(引数指定)


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


  def change_tone(r, g, b, gray = 0, dur = 60)


    tone = Tone.new(r, g, b, gray)


    screen.start_tone_change(tone, dur)


  end


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


  # ● 天候の変更(引数指定)


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


  def change_weather(type, power, dur = 30)


    return if $game_party.in_battle


    screen.change_weather(type, power, dur)


  end


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


  # ● 時間を設定


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


  def set_time(hour, min)


    hour = 23 if hour > 23


    hour = 0 if hour < 0


    min = 59 if min > 59


    min = 0 if min < 0


    $calender.hour = hour


    $calender.min = min


    $calender.get_time_zone


    $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.min


    $game_variables[WhiteSnow::HOUR_STORE_VID] = $calender.hour


    $game_variables[WhiteSnow::DATE_STORE_VID] = $calender.date


    $game_map.autoplay


    $calender.change_weather


    $calender.change_tone_by_calender


    if $calender.hour >= 3 and $calender.hour < 19


      $calender.weather = :fine if $calender.weather == :star


    else


      $calender.weather = :star if $calender.weather == :fine


    end


  end


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


  # ● 日付を設定


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


  def set_date(month, date, day)


    $calender.month = month


    $calender.date = date


    $calender.day = day


    $game_variables[WhiteSnow::MIN_STORE_VID] = $calender.month


    $game_variables[WhiteSnow::DATE_STORE_VID] = $calender.date


    case $calender.day


    when :Sun


      $game_variables[WhiteSnow::DAY_STORE_VID] = 0


    when :Mon


      $game_variables[WhiteSnow::DAY_STORE_VID] = 1


    when :Tue


      $game_variables[WhiteSnow::DAY_STORE_VID] = 2


    when :Wed


      $game_variables[WhiteSnow::DAY_STORE_VID] = 3


    when :Thr


      $game_variables[WhiteSnow::DAY_STORE_VID] = 4


    when :Fri


      $game_variables[WhiteSnow::DAY_STORE_VID] = 5


    when :Sat


      $game_variables[WhiteSnow::DAY_STORE_VID] = 6


    end


 


    case $calender.month


    when 1..2


      $calender.season = :Winter


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3


    when 3..5


      $calender.season = :Spring


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 0


    when 6..8


      $calender.season = :Summer


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 1


    when 9..11


      $calender.season = :Autumn


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 2


    when 12


      $calender.season = :Winter


      $game_variables[WhiteSnow::SEASON_STORE_VID] = 3


    end


    $calender.change_weather


  end


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


  # ● 年を設定


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


  def set_year(year)


    $calender.year = year


    $game_variables[WhiteSnow::YEAR_STORE_VID] = year


    $calender.change_weather


  end


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


  # ● 天候を設定


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


  def set_weather(weather)


    $calender.weather = weather


    $calender.randomize_weather_count


    $calender.perform_weather_effect


    case weather


    when :fine


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 0


    when :rain


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 1


    when :snow


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 2


    when :thunder


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 3


    when :storm


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 4


    when :star


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 5


    when :s_storm


      $game_variables[WhiteSnow::WEATHER_STORE_VID] = 6


    end


  end


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


  # ● 天候エフェクトを発生させる


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


  def perform_weather_effect


    $calender.perform_weather_effect


  end


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


  # ● 画面のフラッシュ(引数指定)


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


  def perform_flash(r, g, b, alpha, dur = 12)


    color = Color.new(r, g, b, alpha)


    screen.start_flash(color, dur)


  end


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


  # ● 日付を進める


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


  def shift_date(num)


    num.times{$calender.shift_date}


    $calender.change_weather


  end


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


  # ● 月を進める


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


  def shift_month(num)


    table = WhiteSnow::DAYS_TABLE


    days = table[$calender.month] - $calender.date + 1


    for i in 1..num


      days += table[($calender.month + i) % 12]


    end


    days.times{$calender.shift_date}


    $calender.change_weather


  end


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


  # ● 年を進める


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


  def shift_year(num)


    (num * 365).times{$calender.shift_date}


    $calender.change_weather


  end


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


  # ● 指定した日まで日付を進める


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


  def shift_date_to(m, d, y = -1)


    y = $calender.year if y == -1


    if $calender.days_dif(y, m, d) > 0


      $calender.days_dif(y, m, d).times{$calender.shift_date}


    else


      $calender.days_dif(y, m, d).abs.times{$calender.back_date}


    end


    $calender.change_weather


  end


end


 


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


# ■ SceneManager


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


# 　シーン遷移を管理するモジュールです。たとえばメインメニューからアイテム画面


# を呼び出し、また戻るというような階層構造を扱うことができます。


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


 


module SceneManager


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


  # ● エイリアス用特異メソッド


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


  class << self


    alias :calender_goto   :goto


    alias :calender_call   :call


    alias :calender_return :return


  end


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


  # ● 直接遷移


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


  def self.goto(scene_class)


    calender_goto(scene_class)


    if scene_class == Scene_Map


      $calender.perform_weather_effect


      $calender.change_tone_by_calender


    end


  end


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


  # ● 呼び出し


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


  def self.call(scene_class)


    calender_call(scene_class)


    if scene_class == Scene_Map


      $calender.perform_weather_effect


      $calender.change_tone_by_calender


    end


  end


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


  # ● 呼び出し元へ戻る


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


  def self.return


    calender_return


    if @scene.class == Scene_Map


      $calender.perform_weather_effect


      $calender.change_tone_by_calender


    end


  end


end


 


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


# ■ Game_Switches


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


# 　スイッチを扱うクラスです。組み込みクラス Array のラッパーです。このクラス


# のインスタンスは $game_switches で参照されます。


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


 


class Game_Switches


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


  # ● スイッチの設定 (再定義)


  #     value : ON (true) / OFF (false)


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


  def []=(switch_id, value)


    @data[switch_id] = value


    on_change


    if switch_id == WhiteSnow::TONE_CHANGE_FORBID_SID or switch_id == WhiteSnow::INSIDE_FLAG_SID


      case value


      when true


        $calender.interpreter.change_tone(0, 0, 0, 0, 0)


      when false


        $calender.change_tone_by_calender(0)


      end


    end


    if switch_id == WhiteSnow::WEATHER_EFFECT_FORBID_SID or switch_id == WhiteSnow::INSIDE_FLAG_SID


      case value


      when true


        $calender.interpreter.change_weather(:none, 0, 0)


        RPG::BGS.stop if (WhiteSnow::WEATHER_BGS_ENABLE and [0, 1].include?(WhiteSnow::INSIDE_BGS_TYPE)) or $game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


        $calender.play_inside_bgs if WhiteSnow::WEATHER_BGS_ENABLE and WhiteSnow::INSIDE_BGS_TYPE == 1 and !$game_switches[WhiteSnow::WEATHER_BGS_DISABLE]


      when false


        $calender.perform_weather_effect(0)


      end


    end


  end


end


 


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


# ■ Game_Player


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


# 　プレイヤーを扱うクラスです。イベントの起動判定や、マップのスクロールなどの


# 機能を持っています。このクラスのインスタンスは $game_player で参照されます。


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


 


class Game_Player


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


  # ● 場所移動の実行


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


  alias calender_perform_transfer perform_transfer


  def perform_transfer


    if transfer?


      $calender.perform_weather_effect(0)


      $calender.change_tone_by_calender(0)


    end


    calender_perform_transfer


  end


end


 


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


# ■ RPG::Map


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


# 　マップのデータクラスです。


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


 


class RPG::Map


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


  # ● マップBGM


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


  def bgm


    bgm = Hash.new(@bgm)


    @note.each_line do |line|


      case line


      when /<(?:早朝|early)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/


        bgm[:early_morning] = RPG::BGM.new($1, $2.to_i, $3.to_i)


      when /<(?:朝|morning)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/


        bgm[:morning] = RPG::BGM.new($1, $2.to_i, $3.to_i)


      when /<(?:昼|noon)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/


        bgm[:noon] = RPG::BGM.new($1, $2.to_i, $3.to_i)


      when /<(?:夕方|evening)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/


        bgm[:evening] = RPG::BGM.new($1, $2.to_i, $3.to_i)


      when /<(?:夜|night)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/


        bgm[:night] = RPG::BGM.new($1, $2.to_i, $3.to_i)


      when /<(?:深夜|mid)\s*(.+)\s*\,\s*(\d+)\s*\,\s*(\d+)>/


        bgm[:midnight] = RPG::BGM.new($1, $2.to_i, $3.to_i)


      end


    end


    return bgm


  end


end


 


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


# ■ Game_Map


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


# 　マップを扱うクラスです。スクロールや通行可能判定などの機能を持っています。


# このクラスのインスタンスは $game_map で参照されます。


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


 


class Game_Map


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


  # ● BGM / BGS 自動切り替え (再定義)


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


  def autoplay


    case $calender.time_zone


    when :early_morning


      @map.bgm[:early_morning].play if @map.autoplay_bgm


    when :morning


      @map.bgm[:morning].play if @map.autoplay_bgm


    when :noon


      @map.bgm[:noon].play if @map.autoplay_bgm


    when :evening


      @map.bgm[:evening].play if @map.autoplay_bgm


    when :night


      @map.bgm[:night].play if @map.autoplay_bgm


    when :midnight


      @map.bgm[:midnight].play if @map.autoplay_bgm


    end


    @map.bgs.play if @map.autoplay_bgs


  end


end


 


module Kernel


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


  # ● 重み付きの乱数を生成


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


  def p_ex_rand(rate, n = 0)


    srand


    rate = 99 if rate == 100


    if n == 0


      r = 1 - rand ** (1 - rate * 0.01)


      if r == 1


        return 0


      else


        return r


      end


    else


      num = n.truncate


      r = 1 - rand ** (1 - rate * 0.01)


      r = 0 if r == 1


      return (r * num).floor


    end


  end


end