[설명]
Kylock 씨가 만든 시간 (밤낮전환) 스크립트에 달력 날짜 계산 및 표시 기능을 추가한 스크립트입니다.
원본 스크립트는 Kylock's Time System VX 1.5 인데 Kylock 씨가 귀찮다고 연도 및 날짜 계산 기능을 넣지 않아서 제가 추가해봤습니다.
아울러 Sojabird씨의 변수표시 HUD 스크립트를 개조해 결합시킴으로써 달력을 화면 오른쪽 상단부에 표시시킬수 있게 했습니다.
(스위치 30번을 키면 달력도 켜짐)
Kylock의 원본 스크립트 중 윗 부분을 부분 한글화 하고 날짜 및 시간 표시를 한국식으로 바꾸었으니 해당설명을 참고하시기 바랍니다.
그 외에도 초기 시작 요일을 변경하고 시작 연월일을 지정하는 등 몇가지 기능을 첨가했습니다.
오류나 호환성에 문제가 생기면 댓글로 연락주시기 바랍니다.
스크린샷
스크립트
#==============================================================================
# ■ Kylock's Time System VX 1.5(6.3.2008) + Calendar Mode (2009/2/14 by RMdude: RMdude@hotmail.com)
# Kylock 시간(밤낮) 시스템 VX 1.5 + RMdude 달력 모드 시스템
# Calendar Mode Version : BETA 1.00
#------------------------------------------------------------------------------
# Original Kylock's Time System VX 1.5 Script by: Kylock
# Calendar modification by: RMdude
# [Note] This script is created by combining and modifying Kylock's Time system and
# Sojabird's ten variables HUD script. I would keep Kylock's nots on script.
# However, Sojabird's script has been extensively modified to fit the purpose
# I also changed some variables so that you can also use Sojabird's script
#
# 원본 KTS VX 1.5 스크립트 제작: Kylock
# 달력 모드 업그레이드: RMDude
# [알림] 이 스크립트는 Kylock의 Kylock's Time System Script 와 Sojabird 의 변수 표시 HUD
# 스크립트를 결합, 변형시켜 제작한 것입니다.
#
#==============================================================================
# Mostly rewritten since XP version. Cleaner code and less intrusive (more
# compatible). This is my comprehensive time and day/night system. This
# script adds a new window to the game menu, so if you use a CMS, then place
# this script ABOVE it so that it won't mess up your CMS. If you use a custom
# script that makes changes to the battle background, place KTS below it so
# that you don't get the delayed-tone effect in you battles. Other than that,
# there shouldn't be any other script compatibility issues.
# I've tried to make this script as customizable as possible, the settings
# are found immediately following this header. Although time output to game
# variables is optional, I strongly suggest using it so that its easier to
# build your events based on the time in the game.
#==============================================================================
# ● Change Log
#------------------------------------------------------------------------------
# 1.0 - Original Release.
# 1.1 - Corrected tinting issue at the start of a battle. Place this script
# below any battle background scripts if you experience "jumpy tinting"
# 1.2 - Corrected the accuracy of $kts.stop and $kts.go
# 1.3 - $kts.stop really stops everything now. Also added game switches for
# even easier eventing.
# 1.4 - Fixed Battle Test compatibility (simulates normal daylight for battle
# test instead of darkness).
# Now switches and variables will only update when the map loads so that
# events don't suddenly dissappear when their time is up.
# Added $kts_anti_tone - returns an inverse tone color to allow sprites
# to appear normally on a tinted screen.
# 1.5 - Rewrote the regexp that finds the [KTS] in the map name. Hopefully
# this resolves the wrong maps being tinted problem.
#==============================================================================
# ● Auto-tone Instructions
#------------------------------------------------------------------------------
# Maps designated as outdoors are the only maps to be affected by this
# scripts use of auto-toning. To signify a map to be "outdoors", you must
# include [KTS] In the name of the map. For example, you world map could be
# named "World Map [KTS]" or "[KTS] World Map". Provisions are made later in
# the script to remove [KTS] from the map name when it's read by another
# script. This means that "[KTS]" won't show up in your Map Name Popup
# windows.
# 맵 이름에 [KTS]라고 들어가야만 밤낮 전환기능이 적용됩니다.
#==============================================================================
# ● Script Function Calls
#------------------------------------------------------------------------------
# The following are script commands that can be executed by using the
# "Script..." command in your events.
# ● $kts.stop - Stops time (can be used for cutscenes) 시간 정지
# ● $kts.go - Resumes time (don't forget to use this!) 시간 정지 해제
# ● $kts.sec(n) - progresses time forward (n) seconds n초 만큼 진행
# ● $kts.min(n) - progresses time forward (n) minutes n분 만큼 진행
# ● $kts.hours(n) - progresses time forward (n) hours n시간 만큼 진행
# ● $kts.days(n) - progresses time forward (n) days n일 만큼 진행
# ● $kts.jump_to_hour(n) - progresses time forward TO the specified hour.
# n 시로 이동
# Particularly useful in a situation where you
# want a certain event to happen at a certain time,
# or an Innkeeper who should wake the party up at
# a certain hour. This command MAY cause your game
# to appear to freeze for a few seconds on slower
# computers.
#==============================================================================
# ● Game Database Setup
#------------------------------------------------------------------------------
# This script, by defult, uses the following game variables and switches:
# 다음과 같은 변수 및 스위치를 사용합니다.
# Database Variables:
# [1] The Current Time 현재시각 [4] The Current Hour 현재 시간
# [2] The Current Second 현재 초 [5] The Current Day 현재 일
# [3] The Current Minute 현재 분 [6] Name of the Current Day 요일
# Database Switches 다음 시간에 켜지는 스위치들
# [1] ON during night hours (2200-0400)(10pm-4am) 밤
# [2] ON during dawn hours (0500-0800)( 5am-8am) 새벽
# [3] ON during daytime hours (0900-1800)( 9am-6pm) 낮
# [4] ON during sunset hours (1900-2100)( 7pm-9pm) 해질녘
#==============================================================================
#==============================================================================
# Stores variables and user defined settings for the time system.
#==============================================================================
module KTS
#-----------------------------------------------------------------------
# User Definable Clock Settings
#-----------------------------------------------------------------------
# 현실 시간보다 몇배 빨리 타이머가 돌아갈 것인지 지정합니다.
SPEED = 5000
#AMPM (True: 12시간 시스템(오전 오후 구분), False: 24시간 시스템)
AMPM = true
# 시작시 날짜와 시간 지정
START_HOUR = 1
START_DAY = 1
# designate number of days for each month 각 달의 일수
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 = 0 # 요일 보정. 0으로 하면 일요일로 시작. 1식 더하면 각각 월화수목금토
STYR =2009 # 시작하는 연도
STMON = 2 # 시작 하는 달
STDAY = 14 # 시작하는 일
HUD_SWITCH = 30 # 달력 표시 스위치번호
FILE = "Window" # 윈도우 스타일 파일이름 지정
#표시 위치
X_PLACEMENT = 2 # 왼쪽=1, 오른쪽=2
Y_PLACEMENT = 1 # 위쪽=1, 가운데=2, 아래쪽=3
WIDTH = 180 # HUD 창의 너비
#-----------------------------------------------------------------------
# If you want custom day names, edit away!
#-----------------------------------------------------------------------
# 요일 이름
DAY_NAMES = ["일요일","월요일","화요일","수요일","목요일","금요일","토요일"]
# 요일 약칭
DAY_ABR = ["(일)","(월)","(화)","(수)","(목)","(금)","(토)"]
#-----------------------------------------------------------------------
# Settings for Time Periods
#-----------------------------------------------------------------------
T1 = [ 0,5 ] # 밤 # Sets time periods for tinting effects
T2 = [ 6,8 ] # 새벽 # [Start Hour, End Hour] for time period
T3 = [ 9,18] # 일 # Use 24-hour values for time periods
T4 = [19,21] # 황혼
T5 = [22,24] # 저녁 # <- Ex: Night is between 23:00 and 24:00
#-----------------------------------------------------------------------
# Settings for Output to Game Variables option.
#-----------------------------------------------------------------------
# Set this to true to output the current time to game variables.
DATABASE_OUTPUT = true
# Game Variable to be used for time output.
# 각각의 요소들을 저장하는 변수를 지정합니다.
TIME = 1 #(Time in string format. Ex: "2:48 AM" or "02:48")
SECONDS = 2
MINUTES = 3
HOURS = 4
DAYS = 5
DAYNAME = 6
CALDAYNAME = 7
CALENDARDAY = 8
CALENDARMONTH = 9
CALENDARYEAR = 10
DATE = 11
# Game Switches to be used for time output.
# 가 시간대 별로 꺼지고 켜지는 스위치들
NIGHT = 1 # This switch is on during night hours (2200-0400)(10pm-4am)
DAWN = 2 # This switch is on during dawn hours (0500-0800)( 5am-8am)
DAY = 3 # This switch is on during daytime hours (0900-1800)( 9am-6pm)
SUNSET = 4 # This switch is on during sunset hours (1900-2100)( 7pm-9pm)
#-----------------------------------------------------------------------
# Settings for time controlled screen toning
#-----------------------------------------------------------------------
# True will enable screen toning to be used by the script.
USE_TONE = true
# Sets the duration of tone changes (in frames)
FADE_LENGTH = 120
# Defines tones to be used in the corresponding time periods defined above.
# 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)
# Defines anti-tones
A1 = Tone.new( 187, 119, 17, -68)
A2 = Tone.new( -17, 51, 102, 0)
A3 = Tone.new( 0, 0, 0, 0)
A4 = Tone.new( 68, 136, 34, 0)
A5 = 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_stop = false
$kts_event_tone = false
$kts_battle_tone = true
$kts_anti_tone = Tone.new(0,0,0,0)
end
# Computes current time and updates variables if used
def update
if !@kts_stop
@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
@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::DATABASE_OUTPUT
$game_variables[KTS::TIME] = getTime
$game_variables [KTS::DATE] = getDate
$game_variables[KTS::CALDAYNAME] = getDayNamespr
$game_variables[KTS::DAYNAME] = getDayName
end
end
end
def update_variables
$game_variables[KTS::SECONDS] = @seconds
$game_variables[KTS::MINUTES] = @minutes
$game_variables[KTS::HOURS] = @hours
$game_variables[KTS::DAYS] = @days
$game_variables[KTS::CALENDARDAY] = @calendarday
$game_variables[KTS::CALENDARMONTH] = @calendarmonth
$game_variables[KTS::CALENDARYEAR] = @calendaryear
end
def update_switches
if @period == 1 || @period == 5
$game_switches[KTS::NIGHT] = true
else
$game_switches[KTS::NIGHT] = false
end
if @period == 2
$game_switches[KTS::DAWN] = true
else
$game_switches[KTS::DAWN] = false
end
if @period == 3
$game_switches[KTS::DAY] = true
else
$game_switches[KTS::DAY] = false
end
if @period == 4
$game_switches[KTS::SUNSET] = true
else
$game_switches[KTS::SUNSET] = false
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)
end
else
if @hours > 9
time = sprintf("오전" + " %02d시 %02d분", @hours, @minutes)
else
time = sprintf("오전" + " %01d시 %02d분", @hours, @minutes)
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
@kts_stop = true
end
def go
total_seconds = (Graphics.frame_count * KTS::SPEED / 60) + @event_offset
@event_offset -= (total_seconds - @time_stopped)
@kts_stop = false
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)
return if $BTEST
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)
$kts_anti_tone = KTS::A1
elsif @hours >= KTS::T2[0] and @hours <= KTS::T2[1]
@period = 2
screen.start_tone_change(KTS::C2,duration)
$kts_anti_tone = KTS::A2
elsif @hours >= KTS::T3[0] and @hours <= KTS::T3[1]
@period = 3
screen.start_tone_change(KTS::C3,duration)
$kts_anti_tone = KTS::A3
elsif @hours >= KTS::T4[0] and @hours <= KTS::T4[1]
@period = 4
screen.start_tone_change(KTS::C4,duration)
$kts_anti_tone = KTS::A4
elsif @hours >= KTS::T5[0] and @hours <= KTS::T5[1]
@period = 5
screen.start_tone_change(KTS::C5,duration)
$kts_anti_tone = KTS::A5
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
class Spriteset_Map
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
alias kts_initialize initialize
def initialize
$kts.update_switches if !@kts_stop && KTS::DATABASE_OUTPUT
$kts.update_variables if !@kts_stop && KTS::DATABASE_OUTPUT
kts_initialize
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
# old regexp: 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
class Window_HUD_VARS < Window_Base
def initialize
super(0, 0, KTS::WIDTH, 80)
case KTS::X_PLACEMENT
when 1
self.x = 0
when 2
self.x = 544 - KTS::WIDTH
end
case KTS::Y_PLACEMENT
when 1
self.y = 0
when 2
self.y = 208-(80)/2
when 3
self.y = 416-(80)
end
self.windowskin = Cache.system(KTS::FILE)
self.visible = $game_switches[KTS::HUD_SWITCH]
refresh
end
def refresh
contents.clear
# get values
@v1 = $game_variables[KTS::DATE]
@v2 = $game_variables[KTS::TIME]
@v3 = $game_variables[KTS::CALDAYNAME]
# draw values
contents.draw_text(0, 0, contents.width - 0, WLH, @v1, 0)
contents.draw_text(0, 24, contents.width - 0, WLH, @v2, 2)
contents.draw_text(0, 0, contents.width - 0, WLH, @v3, 2)
end
def update
self.visible = $game_switches[KTS::HUD_SWITCH]
return if !self.visible
if @v1 != $game_variables[KTS::DATE] or
@v2 != $game_variables[KTS::TIME] or
@v3 != $game_variables[KTS::CALDAYNAME]
refresh
end
end
end
#------------------------------------------------------------
# * Scene_Map: Attach HUD to map
#------------------------------------------------------------
class Scene_Map < Scene_Base
alias soja_scemap_sta_hudv start
alias soja_scemap_ter_hudv terminate
alias soja_scemap_upd_hudv update
def start
soja_scemap_sta_hudv
@soj_hudv = Window_HUD_VARS.new
end
def terminate
@soj_hudv.dispose
soja_scemap_ter_hudv
end
def update
soja_scemap_upd_hudv
@soj_hudv.update
end
end
모그메뉴 스킨입니다.