#==============================================================================
# Kylock1.2+(RMDude-Kylock1.5) Time System Script
# Kylock's Time System VX 1.2 (2008/09/05) - Kylock
# Kylock 시간(밤낮) 시스템 VX 1.5 + RMdude 달력 모드 시스템 - RMDude
#==============================================================================
#==============================================================================
# 이 스크립트는 게임에 년도월일, 요일, 시간과 밤, 낮의 개념을 심어줍니다잉.
#==============================================================================
#==============================================================================
#==============================================================================
#==============================================================================
#==============================================================================
# RMDude님의 스크립트를 바탕으로 Kylock님의 스크립트 1.2를 개조했습니다.
# RMDude님의 스크립트와 달리 SojaBird님의 화면상 변수를 표시하는 스크립트와
# 함께 쓰셔야 HUD가 표시됩니다.
#==============================================================================
# 맵의 이름 앞에 [KTS]를 붙여주셔야 그 맵에서 밤과 낮이 나타납니다.
# [KTS]MAP001     <<< 요렇게
# 밤과 낮의 시간 조정은 104번째 줄, 밤과 낮의 색조 조정은136번째 줄.
#==============================================================================
#==============================================================================
# 개조자 : communnn
#==============================================================================
#==============================================================================
# Kylock's Time System VX 1.2 (2008/09/05) - Kylock
# Kylock 시간(밤낮) 시스템 VX 1.5 + RMdude 달력 모드 시스템 - RMDude
# Kylock's Time System VX 1.2 (2008/09/05) - Kylock
# Kylock 시간(밤낮) 시스템 VX 1.5 + RMdude 달력 모드 시스템 - RMDude
# Kylock's Time System VX 1.2 (2008/09/05) - Kylock
# Kylock 시간(밤낮) 시스템 VX 1.5 + RMdude 달력 모드 시스템 - RMDude
#==============================================================================
# 이벤트 작성으로 고급탭의 스크립트로 실행할 수 있습니다.
#      $kts.sec(n)                -     n초가 지남
#      $kts.min(n)                 -     n분이 지남 (n값이 120이면 2시간이 지남)
#      $kts.hours(n)             -     n시간이 지남 (n값이 48이면 2일이 지남)
#      $kts.days(n)               -     n일이 지남 (n값이 365면 1년이 지남)
#      $kts.jump_to_hour(n)   -    다음 n시간으로 점프
#                                        -    (예를 들어서 다음 21시로 점프를 하겠다면,
#                                        -    3월 15일 10시일때 3월 15일 21시로 점프
#                                        -    3월 15일 23시일때 3월 16일 21시로 점프
#                                        -    3월 15일 21시일때는 점프가 안됨.
#                                        -   *같은 시간대로는 점프가 안되네여
#                                        -   점프시 약간의 멈춤 현상이 있습니다.
#==============================================================================
#==============================================================================
#==============================================================================
#==============================================================================
#==============================================================================
#==============================================================================
#==============================================================================
#==============================================================================
module KTS
#------------------------------------------------------------------------------
# User Definable Clock Settings
#------------------------------------------------------------------------------
#==============================================================================
#==============================================================================
  SPEED      = 1000#시간 속도값입니다. 1은 현실 시간 속도, 배로 올라감.
#==============================================================================
  AMPM       = true # 오전과 오후를 표시할지 여부입니다.true:12시간제, false:24시간제.
#                          # 오전, 오후는 12시간제, true일때 표시됩니다.
  START_HOUR = 8 # 시작할 시간을 정합니다. 0 ~ 23, 24는 0으로 읽음.
  START_DAY  = 1 # 시작하는 일수입니다. 1일째, 2일째 요런거 쓰실때 좋네여
#==============================================================================
# 각 달의 마지막일을 정합니다.
  JAN = 31
  FEB =28
  MAR = 31
  APR = 30
  MAY = 31
  JUN = 30
  JUL = 31
  AUG = 31
  SEP = 30
  OCT = 31
  NOV = 30
  DEC = 31
#==============================================================================
  MON1 = JAN
  MON2 = MON1 + FEB
  MON3 = MON2 + MAR
  MON4 = MON3 + APR
  MON5 = MON4 + MAY
  MON6 = MON5 + JUN
  MON7 = MON6 + JUL
  MON8 = MON7 + AUG
  MON9 = MON8 + SEP
  MON10 = MON9 + OCT
  MON11 = MON10 + NOV
  YRDY = MON11 + DEC
#==============================================================================
    WKOS = 4 # 시작하는 요일의 값입니다. 0은 일요일, 1월요일 ~ 6토요일
  STYR =2011 # 시작하는 년도의 값입니다.
    STMON = 10 # 시작하는 월의 값입니다.
    STDAY = 20 # 시작하는 일의 값입니다.
#------------------------------------------------------------------------------
#==============================================================================
# 각 요일의 이름을 정합니다.
  DAY_NAMES = ["일요일","월요일","화요일","수요일","목요일","금요일","토요일"]
  DAY_ABR = ["(일)","(월)","(화)","(수)","(목)","(금)","(토)"]
#------------------------------------------------------------------------------
# 각 시간의 부분을 정합니다. 5단계가 있네요. 아래 정한 시간이 되면 색조가 변합니다.
#------------------------------------------------------------------------------
  T1 = [ 0,4 ] # 0시부터 4시까지           -136번째 줄에서 단계별 색조를 조정할 수 있어요.
  T2 = [ 5,11] # 5시부터 11시까지
  T3 = [12,18] # 12시부터 18시까지
  T4 = [19,22] # 19시부터 22시까지
  T5 = [23,24] # 23시부터 24시까지
#------------------------------------------------------------------------------
#==============================================================================
#-
#==============================================================================
  VARIABLES_OUTPUT = true
######### 아래는 변수 번호입니다. 꼭 자신의 게임에 맞게 변경해주세요!!! #######
  TIME    = 1 # 시간을 표시하는 변수 번호입니다. \V[n] 으로 표시 가능
  SECONDS = 6 # 초의 값을 받는 변수 번호입니다.
  MINUTES = 5 # 분의 값을 받는 변수 번호입니다.
  HOURS   = 4 # 시의 값을 받는 변수 번호입니다. START_HOUR 로 시작 시를 변경 가능
  DAYS    = 10 # 지난 일수의 값을 받는 변수 번호입니다. START_DAY 로 시작 일수 변경 가능
  PERIOD  = 11 # 시간의 5단계 부분 값을 받는 변수 번호입니다. 1단계는 값이 1...5단계는 5
  DAYNAME = 3 # 월화수목금토일을 표시하는 변수 번호입니다. \V[n] 으로 표시 가능
  CALDAYNAME = 12 # 월화수목금토일의 값을 받는 변수 번호입니다. WKOS 로 시작 요일 변경 가능
#                            #PERIOD와 같이 일요일엔 값이 0, 월요일엔 1...식으로
  CALENDARDAY = 9 # 일의 값을 받는 변수 번호입니다. STDAY 로 시작 일 변경 가능
  CALENDARMONTH = 8 # 월의 값을 받는 변수 번호입니다. STMON 로 시작 월 변경 가능
  CALENDARYEAR = 7 # 년도의 값을 받는 변수 번호입니다. STYR 로 시작 년도 변경 가능
  DATE = 2 # 년도/월/일 을 표시하는 변수 번호입니다. \V[n] 으로 표시 가능
###############################################################################
  # 
  #-----------------------------------------------------------------------
  #
  USE_TONE = true
  #
  FADE_LENGTH = 120
  # 각 시간의 부분에 조정되는 색조 수치입니다.
  #              RED, GREEN, BLUE, GREY
  C1 = Tone.new(-187,  -119,  -17,  68)
  C2 = Tone.new(  17,   -51, -102,   0)
  C3 = Tone.new(   0,     0,    0,   0)
  C4 = Tone.new( -68,  -136,  -34,   0)
  C5 = Tone.new(-187,  -119,  -17,  68)
end

#==============================================================================
# Core Time System Engine
#==============================================================================
class Kylock_Time_System
  # sets instance variables
  def initialize
    $kts_map_data = load_data("Data/MapInfos.rvdata")
    @event_offset = (KTS::START_HOUR * 3600) + (KTS::START_DAY * 86400)
    $kts_event_tone = false
    $kts_battle_tone = true
  end
  
  # Computes current time and updates variables if used
  def update
    @total_seconds = (Graphics.frame_count * KTS::SPEED / 60) + @event_offset
    @seconds = (@total_seconds) % 60
    @minutes = (@total_seconds / 60) % 60
    @hours   = (@total_seconds / 3600) % 24
    @days    = (@total_seconds / 86400)
    
 # Calculate past days before game    KTS::STDAY -     
    @psday = KTS::STYR*365 + KTS::STDAY - KTS::START_DAY
    if KTS::STMON == 2
      @psday += KTS::MON1
    elsif KTS::STMON ==3
      @psday += KTS::MON2
    elsif KTS::STMON == 4
      @psday += KTS::MON3
       elsif KTS::STMON == 5
      @psday += KTS::MON4
       elsif KTS::STMON == 6
      @psday += KTS::MON5
       elsif KTS::STMON == 7
      @psday += KTS::MON6
       elsif KTS::STMON == 8
      @psday += KTS::MON7
       elsif KTS::STMON == 9
      @psday += KTS::MON8
       elsif KTS::STMON == 10
      @psday += KTS::MON9
       elsif KTS::STMON == 11
      @psday += KTS::MON10
       elsif KTS::STMON == 12
      @psday += KTS::MON11
    else
      @psday += 0
    end
    
 # calculate calendar     
  @yearday = @days + @psday
  @yearday %= KTS::YRDY
  @calendaryear = @days + @psday - @yearday
  @calendaryear /= KTS::YRDY
  if @yearday > KTS::MON11
    @calendarmonth = 12
    @calendarday = @yearday - KTS::MON11
  elsif @yearday > KTS::MON10
    @calendarmonth = 11
        @calendarday = @yearday - KTS::MON10
    elsif @yearday > KTS::MON9
    @calendarmonth = 10
        @calendarday = @yearday - KTS::MON9
      elsif @yearday > KTS::MON8
    @calendarmonth = 9
           @calendarday = @yearday - KTS::MON8
      elsif @yearday > KTS::MON7
    @calendarmonth = 8
    @calendarday = @yearday - KTS::MON7
      elsif @yearday > KTS::MON6
    @calendarmonth = 7
    @calendarday = @yearday - KTS::MON6
      elsif @yearday > KTS::MON5
    @calendarmonth = 6
    @calendarday = @yearday - KTS::MON5
      elsif @yearday > KTS::MON4
    @calendarmonth = 5
    @calendarday = @yearday - KTS::MON4
      elsif @yearday > KTS::MON3
    @calendarmonth = 4
    @calendarday = @yearday - KTS::MON3
      elsif @yearday > KTS::MON2
    @calendarmonth = 3
    @calendarday = @yearday - KTS::MON2
      elsif @yearday > KTS::MON1
    @calendarmonth = 2
    @calendarday = @yearday - KTS::MON1
  else
    @calendarmonth = 1
    @calendarday = @yearday
  end

    update_tint
    if KTS::VARIABLES_OUTPUT
      $game_variables[KTS::TIME]    = getTime
      $game_variables [KTS::DATE] = getDate
      $game_variables[KTS::SECONDS] = @seconds
      $game_variables[KTS::MINUTES] = @minutes
      $game_variables[KTS::HOURS]   = @hours
      $game_variables[KTS::DAYS]    = @days
      $game_variables[KTS::PERIOD]  = @period
      $game_variables[KTS::DAYNAME] = getDayName
      $game_variables[KTS::CALENDARDAY] = @calendarday
      $game_variables[KTS::CALENDARMONTH] = @calendarmonth
      $game_variables[KTS::CALENDARYEAR] = @calendaryear    
    end
  end
    
  def getTime
    if KTS::AMPM
      # Formats a 12-Hour Clock
      if @hours > 12
        hours1 = @hours - 12
        if hours1 > 9
          time = sprintf("오후" + "%02d시 %02d분", hours1, @minutes)
        else
          time = sprintf("오후" + "%01d시 %02d분", hours1, @minutes)#"%01d:%02d" + " PM"
        end
      else
        if @hours > 9
          time = sprintf("오전" + "%02d시 %02d분", @hours, @minutes)#"%02d:%02d" + " AM"
        else
          time = sprintf("오전" + "%01d시 %02d분", @hours, @minutes)#"%01d:%02d" + " AM"
        end
      end
      return time
    else
      # Formats a 24-Hour Clock
      time = sprintf("%02d시 %02d분", @hours, @minutes)
      return time
    end
  end
  def getDate
      if @calendaryear >999
      date = sprintf("%04d년 %02d/%02d", @calendaryear, @calendarmonth, @calendarday )
      elsif @calendaryear >99
       date = sprintf("%03d년 %02d/%02d", @calendaryear, @calendarmonth, @calendarday)
      elsif @calendaryear >9
       date = sprintf("%02d년 %02d/%02d", @calendaryear, @calendarmonth, @calendarday)
      else
       date = sprintf("%01d년 %02d/%02d", @calendaryear, @calendarmonth, @calendarday)
       end
       return date
     end
  #-----------------------------------------------------------------------
  # Script Command Functions
  #-----------------------------------------------------------------------
  def stop
    @time_stopped = @total_seconds
  end
  def go
    @event_offset -= (@total_seconds - @time_stopped)
  end
  def sec(sec = 0)
    @event_offset += sec
  end
  def min(min = 0)
    @event_offset += min * 60
  end
  def hours(hours = 0)
    @event_offset += hours * 3600
  end
  def days(days = 0)
    @event_offset += days * 86400
  end
  def jump_to_hour(jhour = 0)
    while @hours != jhour
      @event_offset += 1
      $kts.update
    end
  end
  #-----------------------------------------------------------------------
  # Script Support/Misc Functions
  #-----------------------------------------------------------------------
  def getDayName
    weekday = @days + KTS::WKOS - KTS::START_DAY
    weekday %= KTS::DAY_NAMES.length
    return KTS::DAY_NAMES[weekday]
  end
  def getDayNamespr
    weekdayspr = @days + KTS::WKOS - KTS::START_DAY
    weekdayspr %= KTS::DAY_NAMES.length
    return KTS::DAY_ABR[weekdayspr]
  end
  #-----------------------------------------------------------------------
  # Screen Tone Functions
  #-----------------------------------------------------------------------
  def update_tint(duration = KTS::FADE_LENGTH)
    if KTS::USE_TONE && !$kts_event_tone && $kts_map_data[$game_map.map_id].outside_tint?
      if @hours >= KTS::T1[0] and @hours <= KTS::T1[1]
        @period = 1
        screen.start_tone_change(KTS::C1,duration)
      elsif @hours >= KTS::T2[0] and @hours <= KTS::T2[1]
        @period = 2
        screen.start_tone_change(KTS::C2,duration)
      elsif @hours >= KTS::T3[0] and @hours <= KTS::T3[1]
        @period = 3
        screen.start_tone_change(KTS::C3,duration)
      elsif @hours >= KTS::T4[0] and @hours <= KTS::T4[1]
        @period = 4
        screen.start_tone_change(KTS::C4,duration)
      elsif @hours >= KTS::T5[0] and @hours <= KTS::T5[1]
        @period = 5
        screen.start_tone_change(KTS::C5,duration)
      end
    else
      # no tone if indoors
      if !$kts_map_data[$game_map.map_id].outside_tint?
        screen.start_tone_change(Tone.new(0,0,0,0),duration)
      end
    end
  end
  def screen
    if $game_temp.in_battle
      return $game_troop.screen
    else
      return $game_map.screen
    end
  end
end

#==============================================================================
# Instantly updates screen tone when a new map is loaded.
#==============================================================================
class Game_Map
  alias kts_setup setup
  def setup(map_id)
    kts_setup(map_id)
    $kts_event_tone = false
    $kts.update
    $kts.update_tint(0)
  end
end

#==============================================================================
# Instantly updates screen tone when a battle starts.
#==============================================================================
class Spriteset_Battle
  alias kts_create_battleback create_battleback
  def create_battleback
    $kts.update_tint(0)
    kts_create_battleback
  end
end

#==============================================================================
# Temporarily disables auto-toning if an event tints the screen.
#==============================================================================
class Game_Interpreter
  alias kts_Interpreter_command_223 command_223
  def command_223
    $kts_event_tone = true
    kts_Interpreter_command_223
  end
end

#==============================================================================
# Integrates the Time System into the Game System.
#==============================================================================
class Game_System
  # inits a KTS object
  alias kts_initialize initialize
  def initialize
    $kts=Kylock_Time_System.new
    kts_initialize
  end
  # Updates kts every game frame
  alias kts_update update
  def update
    $kts.update
    kts_update
  end
end

#==============================================================================
# Scans Map Names for Toning
#==============================================================================
class RPG::MapInfo
  def name # Definition prevents location scripts from reading anything within
    return @name.gsub(/\[.*\]/) {""} # brackets, including the brackets
  end
  def original_name
    return @name
  end
  def outside_tint?
    return @name.scan(/[\KTS]/).size > 0
  end
end

#==============================================================================
# Sets up the time window for the menu.
#==============================================================================
class Window_KTS < Window_Base
  def initialize(x, y)
    super(x, y, 160, WLH + 32)
    refresh
  end
  def refresh
    self.contents.clear
    self.contents.draw_text(4, -6, 120, 32, $kts.getTime, 2)
  end
  def update
    super
    $kts.update
    self.contents.clear
    self.contents.draw_text(4, -6, 120, 32, $kts.getTime, 2)
  end
end

#==============================================================================
# Adds the time window to the menu.
#==============================================================================
class Scene_Menu < Scene_Base
  alias kts_start start
  def start
    kts_start
    @kts_window = Window_KTS.new(0,305)
  end
  alias kts_terminate terminate
  def terminate
    kts_terminate
    @kts_window.dispose
  end
  alias kts_update update
  def update
    kts_update
    @kts_window.update
  end
end

#==============================================================================
# Saves and Loads game time to/from save game file.
#==============================================================================
class Scene_File
  alias kts_write_save_data write_save_data
  def write_save_data(file)
    kts_write_save_data(file)
    Marshal.dump($kts, file)
  end
  alias kts_read_save_data read_save_data
  def read_save_data(file)
    kts_read_save_data(file)
    $kts = Marshal.load(file)
  end
end