超自定义时间日期天气昼夜脚本系统（新增优化方法）

雪流星 · 发表于 2007-7-10 20:30:42

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

超自定义时间日期天气昼夜脚本系统

有人可能会说：「站上不是早就有这类脚本了吗？还发来作啥？」
但是我这与站上其他脚本不同的地方是「超自定义」四个字
啥叫「超自定义」呢？
就是说所有的东西，包括窗口座标，字形颜色、大小，显示的文字，排版的方式
都可以按照你所要的去编排

写这个脚本的起因是因为我载了站上的时间脚本系统，但是想要把他改成适合我游戏风格的样式却很很很麻烦，於是发狠自己写了一个。……刚开始也没想到会成功 =_=”

後来写成功後，考虑到可能有其他像我一样的脚本新人会有同样的问题
於是乎…就把它发上来了

功能吗…看下面的介绍吧：

snstar2006 超自定义时间日期天气昼夜系统
  站上已经有许多类似的脚本, 只是如果要修改成有游戏的特色的方式实在不容易
  所以我自己重新写一个脚本, 顺便练习脚本的写法,
  方法绝对不是最好的,可能也很复杂,但是我用了大量的变量来定义
  所以对像我一样的新手来说,要修改起来,难度应该不会很大
  只要把字符串替换掉,或是把窗口坐标修改成想要的地方就好了
  几乎所有的变量定义都在脚本最上面, 其他的我在后面有说明
  要修改的话最大的问题应该是排版问题
  我在脚本里定义了三个排版,只要把7号变量改成 1 就能切换了

参考脚本:
   kira 的    事件+脚本时间系统
   黑羽毛的    完美昼夜脚本
   灼眼的夏娜的  日期，天气，昼夜系统(养成游戏可用)
   sphinger 的带远景图的小地图(缩略图)

  我不是很熟悉脚本语法,所以参考了以上所列的脚本的内容
  snstar2006 向以上诸位致上最高的敬意, 因为我终于完成了人生中第一个脚本系统

  功能:
  1. 显示游戏内日期时间, 全部文字和位置都能自己设定.
  2. 按 A 或是 shift 可以显示真实时间, 方便全屏幕时察看时间.
  3. 全部日期时间等都使用变量, 方便在游戏中设定时间.
   (比如说: 过了几天后, 在事件中增加天数的变量就好了)
  4. 打开4号开关开启计时和显示时间功能
   打开5号开关开启天气变化
   打开6号开关开启色调功能
   打开7号开关开启自动隐藏时间窗口功能, 类似window的自动隐藏工具栏
                  与4号开关不同的是, 这个开关只是隐藏窗口, 并不取消
                  计时功能
   打开8号开关变更真实时间显示格式  true = 12小时制  false = 24小时制
  5. 季节和区域天气比例变化
   可以设定不同季节和不同区域所发生的天气
   如:冬天的时候下雪的机率较大, 夏天则多雨
   或是到了沙漠地区就多刮风少下雨, 而到了沼泽区则多下雨少刮风等等
  6. 特定日期指定天气
   如:圣诞节那天一定会下雪
  7. 综合以上两项, 可能会导致在沙漠中圣诞节时下雪囧
   所以天气选择的优先度是区域>日期>季节
  8. 模拟真实季节昼夜长短情况
   夏天的时候白天会比较长, 冬天则比较短等
  9. 地图名称自动判断是否在室内
   如果地图名称内有[内]字或在名称之后加上 [,IN], 自动关闭天气功能
10. 本脚本支持鼠标, 只要把215行的注释取消掉就好了

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
  #分两部分是因为本脚本太长了
  #第一部分脚本是主处理,不会改的话就别改了
  #第二部分脚本是自定义变量, 文字, 排版等, 要改都到那里改去
         默认定义了24节气
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
第一部分定义修改部分
148 行定义天气音效
362 行定义真实时间 AM/PM 的字
372 行定义真实时间星期的字

第二部分定义修改部分
22 行窗口自定义
38 行时间换算率
45 行时间变量ID
55 行天气机率百分比
79 行窗口字型颜色定义
131 行定义[年]的字
147 行定义[月]的字
201 行定义[日]的字
296 行定义[时]的字
328 行定义[刻]的字
192 行定义[季节]的字
273 行定义[星期]的字
346 行定义[天气]的字
367 行定义二十八星宿
451 行定义时间色调
585 行定义区域和区域天气
653 行定义窗口模式所有坐标长度等等等...
   窗口隐藏方向：2→下 4→左 6→右 8→上
800 行节日自定义

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
二十八星宿使用思路

站上有关于二十八星宿的数据, 可以参考看看
二十八星宿包含三个部分: 名称, 七耀, 对应动物
所以总共要三个部份可以拿来用, 其中七耀又包含日月 + 五行

首先我们可以设置(用公共事件)当某个星宿出现时, 开启XX功能
如: 当[胃土雉]出现时, 任何地方都可以存盘

再者我们可以设置当某个星宿出现时, X系魔法功能加倍, Y系魔法减弱
如: 当[尾火虎]出现时, 火系魔法功能加倍
当[心月狐]或[参水猿]出现时, 最适合打火系BOSS

最后我们可以设置当某个星宿出现时, X怪出线机率最频繁, 或是某张地图的入口开启
如: 当[牛金牛]出现时, 牛魔王的子孙会常常遇到
当[觜火猴]出现时, 水濂洞的入口出现

又想到另外一条思路
可以把控制二十八星宿的变量改为[月份]
然后把二十八星宿改成12生肖或是星座, 用星座的话就可以用在非东方背景的游戏了
超自定义时间日期天气昼夜脚本系统

截图：

冲突可能：其他时间系统脚本（废话～～）、其馀不确定（应该没有吧）

使用地图名称显示脚本时请注意：
本脚本有三种方法分辨角色是否在室内
1. 地图名称包含「内」字
2. 地图名称以 ,IN 结尾（注意有","）
3. 设定地图地形为 98
4. 直接关掉天气开关
看情况使用

功能增新：时段作息变数控制
类似作息开关的功能，只是改用变数控制
脚本1

#================================================================================#
#****Window_Time #
#--------------------------------------------------------------------------------#
# 显示时间的窗口类 #
#================================================================================#
class Window_Time < Window_Base
#----------------------#
#*初始化对象 #
#----------------------#
def initialize
#更新窗口坐标
$game_variables[$time_window_pattern] = $default_pattern
@pattern_now = $default_pattern
time_date_window_update
#设定窗口
super($time_date_X, $time_date_Y, $time_date_W, $time_date_H)
self.contents = Bitmap.new($time_date_W - 32, $time_date_H - 32)
#self.contents.font.name = (["标楷体"]) #防错用
self.opacity = $time_window_opacity
#开关初始化 -- 预设防错的不喜欢再用事件初始化
$game_switches[$time_date_running] = true #时间功能开启
$game_switches[$time_date_tone] = true #色调功能开启
$game_switches[$hide_window] = false #隐藏功能关闭
$game_switches[$real_time_format] = true #真实时间12小时制
$game_switches[$time_date_weather] = true #天气功能开启
$game_switches[$time_map_region] = true #区域功能开启
#变数归零
$weather_hour = nil
$weather_type_rand = 0
$hour_count = 0
$weather_hour = 0
$game_variables[$week] = 1
@id = $game_map.map_id
for i in [$min, $hour, $day, $month, $year]
if $game_variables[i] == 0
$game_variables[i] = 1
i+=1
end # end if
end # end for
#刷新窗口
refresh
end # end def initialize
#----------------------#
#*刷新 #
#----------------------#
def refresh
self.contents.clear
self.contents.font.size = $time_window_font_size
self.contents.font.color = game_date
#计算时间
if $game_switches[$time_date_running] == true
@total_sec = Graphics.frame_count
if @total_sec % $min_rate ==0
$game_variables[$min] += 1
end
if $game_variables[$min] >= $hour_rate + 1
$game_variables[$min] = 1
$game_variables[$hour] += 1
$hour_count += 1
end
if $game_variables[$hour] >= $day_rate + 1
$game_variables[$hour] = 1
$game_variables[$day] += 1
$game_variables[$week] += 1
if $game_variables[$week] == 8
$game_variables[$week] = 1
end
end
if $game_variables[$day] >= $month_rate + 1
$game_variables[$day] = 1
$game_variables[$month] += 1
end
if $game_variables[$month] >= $year_rate + 1
$game_variables[$month] = 1
$game_variables[$year] += 1
end
end
#判断是否在室内
newid = $game_map.map_id #获取地图ID
if newid != @id
@id = newid
end
$mapnames = load_data("Data/MapInfos.rxdata") #读取地图名称
map_name = $mapnames[@id].name
if map_name.include?("内") or map_name.include?(",IN")
#如果地图名称包含"内"或",IN"
$game_switches[$time_date_weather] = false #则不显示天气
$weather_hour = 0
$weather_type = 99 #99是让窗口不会显示天气
#应该不会有人定义99种天气吧
$game_variables[$time_map_region] = 98
end
time_date_window_update #窗口文字坐标调整
print_date #显示文字
get_season_weather #计算季节天气机率
show_festival #显示节日
get_region_weather #计算区域天气机率
get_time_range #计算时段
#时段控制
case $game_variables[$time_range]
when 1 # 午夜
$tone_R, $tone_G, $tone_B, $tone_K = [-187, -153, -102, 119]
when 2 # 日出
$tone_R, $tone_G, $tone_B, $tone_K = [-51, -51, -51, 170]
when 3 # 凌晨
$tone_R, $tone_G, $tone_B, $tone_K = [0, 0, 0, 40]
when 4 # 天亮
$tone_R, $tone_G, $tone_B, $tone_K = [0, 0, 0, 0]
when 5 # 中午
$tone_R, $tone_G, $tone_B, $tone_K = [68, 68, 44, 204]
when 6 # 天亮
$tone_R, $tone_G, $tone_B, $tone_K = [0, 0, 0, 0]
when 7 # 黄昏
$tone_R, $tone_G, $tone_B, $tone_K = [68, 0, -17, 204]
when 8 # 日落
$tone_R, $tone_G, $tone_B, $tone_K = [68, 17, -17, 204]
when 9 # 天黑
$tone_R, $tone_G, $tone_B, $tone_K = [-51, -51, -51, 170]
when 10 # 午夜
$tone_R, $tone_G, $tone_B, $tone_K = [-187, -153, -102, 119]
end
if $game_switches[$time_date_weather] == true #天气功能开关为ON时
#如果天气需要归零
if $hour_count >= $weather_hour or $weather_hour == 0
$hour_count = 0 #天气持续时间归零
$weather_type_rand = rand(100) + 1 #随机数生成天气类型
$weather_power = rand(9) + 1 #随机数生成天气强度
$weather_hour = rand($weather_hour_max) + 1 #随机数出现天气时间
$weather_dur = 50
else
$weather_1_min = 1 #天气一最低机率
$weather_1_max = $weather_1_rate #天气一最高机率
$weather_2_min = $weather_1_max + 1 #天气二最低机率
$weather_2_max = $weather_2_min + $weather_2_rate #天气二最高机率
$weather_3_min = $weather_2_max + 1 #天气三最低机率
$weather_3_max = $weather_3_min + $weather_3_rate #天气三最高机率
$weather_4_min = $weather_3_max + 1 #天气四最低机率
$weather_4_max = $weather_4_min + $weather_4_rate #天气四最高机率
if $weather_1_rate != 0
if $weather_type_rand >= $weather_1_min and $weather_type_rand <=$weather_1_max
$weather_type = 0 #无
end
end
if $weather_2_rate != 0
if $weather_type_rand >= $weather_2_min and $weather_type_rand <=$weather_2_max
$weather_type = 1 #雨
end
end
if $weather_3_rate != 0
if $weather_type_rand >= $weather_3_min and $weather_type_rand <=$weather_3_max
$weather_type = 2 #风
end
end
if $weather_4_rate != 0
if $weather_type_rand >= $weather_4_min and $weather_type_rand <=$weather_4_max
$weather_type = 3 #雪
end
end
#播放天气BGS
#Audio.bgs_play("文件名",音量,节奏速度)
case $weather_type #当天气
when 0
Audio.bgs_stop
when 1 #是雨的情况下
Audio.bgs_play("Audio/BGS/005-Rain01", 60)
when 2 #是风的情况下
Audio.bgs_play("Audio/BGS/001-Wind01", 70)
when 3 #是雪的情况下
Audio.bgs_play("Audio/BGS/003-Wind03", 80)
end# end case
end # end if
$weather_dur = 50
else #如果天气开关为off
$weather_type, $weather_power, $weather_dur = [0,0,0]#将天气回复为无
end # end if
$game_screen.weather($weather_type, $weather_power, $weather_dur) #显示天气
if $game_switches[$time_date_tone] == true #如果色调开关为on
$game_screen.start_tone_change(Tone.new($tone_R, $tone_G, $tone_B, $tone_K), 50)
else #如果为off
#色调回复正常
$game_screen.start_tone_change(Tone.new(0, 0, 0, 0), 1)
end # end if
#当人物走到窗口坐标时移动时间窗口
if $game_player.screen_x >= ($time_date_X - 16) && $game_player.screen_x <= ($time_date_X + $time_date_W + 16)
if $game_player.screen_y >= ($time_date_Y - 16) && $game_player.screen_y <= ($time_date_Y + $time_date_H + 16)
# +/- 16 像素是调整手感
self.x = $time_date_XM
self.y = $time_date_YM
time_date_screen_moved = true #避免与自动隐藏功能互相冲突
case $hide_direction #将隐藏方向改为相反的方向
when 2
$hide_direction = 8
when 4
$hide_direction = 6
when 6
$hide_direction = 4
when 8
$hide_direction = 2
end # end case
else #窗口回到原位
self.x = $time_date_X
self.y = $time_date_Y
time_date_screen_moved = false #避免与自动隐藏功能互相冲突
end # end if
else #窗口回到原位
self.x = $time_date_X
self.y = $time_date_Y
time_date_screen_moved = false #避免与自动隐藏功能互相冲突
end # end if
mouse_x, mouse_y = [-1, -1] #没使用鼠标脚本时防错
#如果使用鼠标脚本的话就取消注释
#如果不使用鼠标脚本的话就注释掉,否则会报错
#mouse_x, mouse_y = Mouse.get_mouse_pos #获得鼠标位置
#当按住A键时
#显示现实时间
if Input.press?(Input::A)
show_real_time
end # end if
#当鼠标移动到窗口时位置或是按下Z键时
#显示已自动隐藏的时间窗口
if $game_switches[$hide_window] == true
case $hide_direction #调整隐藏方向
when 2
self.y = $time_date_Y + $time_date_H - $hide_window_width
when 4
self.x = -($time_date_W) + $hide_window_width
when 6
self.x = $time_date_X + $time_date_W - $hide_window_width
when 8
self.y = -($time_date_H) + $hide_window_width
end # end case
if Input.press?(Input::Z) or (mouse_x >= $time_date_X && mouse_x <= ($time_date_X + $time_date_W)) && (mouse_y >= $time_date_Y and mouse_y <= ($time_date_Y + $time_date_H))
if time_date_screen_moved == false #避免与自动移动功能互相冲突
self.x = $time_date_X
self.y = $time_date_Y
else
self.x = $time_date_XM
self.y = $time_date_YM
end
end # end if
else
if time_date_screen_moved == false #避免与自动移动功能互相冲突
self.x = $time_date_X
self.y = $time_date_Y
end
end # end if
#更新窗口坐标等
if $game_variables[$time_window_pattern] != @pattern_now
time_date_window_update
self.x = $time_date_X
self.y = $time_date_Y
self.z = $time_window_z
self.width = $time_date_W
self.height = $time_date_H
self.contents = Bitmap.new($time_date_W - 32, $time_date_H - 32)
@pattern_now = $game_variables[$time_window_pattern]
end
end # end def refresh
#----------------------#
#*刷新画面 #
#----------------------#
def update
super
refresh
end # end def update
end# end class Window_time
#================================================================================#
#****Scene_Map #
#--------------------------------------------------------------------------------#
# 处理地图画面的类别。 #
#================================================================================#
class Scene_Map
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
alias timedate_main main
def main
# 产生活动区块
@spriteset = Spriteset_Map.new
# 产生讯息窗口
@message_window = Window_Message.new
# 产生时间窗口
@time_window = Window_Time.new
if $game_switches[$time_date_running] == false
@time_window.visible = false
end # end if
# 执行过渡
Graphics.transition
# 主循环
loop do
# 更新游戏画面
Graphics.update
# 更新输入讯息
Input.update
# 更新画面
update
# 如果画面切换的话就中断循环
if $scene != self
break
end # end if
end # end loop
# 准备过渡
Graphics.freeze
# 释放活动区块
@spriteset.dispose
# 释放讯息窗口
@message_window.dispose
# 释放时间窗口
@time_window.dispose
# 标题画面切换中的情况下
if $scene.is_a?(Scene_Title)
# 淡入淡出画面
Graphics.transition
Graphics.freeze
end # end if
end # end def main
alias timedate_update update
def update
#如果时间日期功能开关为OFF则不显示时间窗口
if $game_switches[$time_date_running] == false
@time_window.visible = false
else
@time_window.visible = true
end # end if
@time_window.refresh
timedate_update
end # end def update
end #end class Scene_Map
#================================================================================#
#****Window_Time #
#--------------------------------------------------------------------------------#
# 显示时间的窗口类 #
#================================================================================#
class Window_Time < Window_Base
def show_real_time
@time = Time.now
@time_hour = @time.hour # 用来计算十二小时制的注意 . 和 _ 的差别
#text = sprintf("%02d年%02d月%02d日 [ ] %02d:%002d ", @time.year, @time.month, @time.day, @time_hour, @time.min)
self.contents.clear
self.contents.font.color = real_date
self.contents.font.size = 22
if $game_switches[$real_time_format] == true
if @time_hour >= 12
@time_hour -= 12
text = "PM"
else
text = "AM"
end # end if
else
text = ""
end # end if
self.contents.draw_text($APM_x, $APM_y, 128, 32, text)
self.contents.draw_text($year_x, $year_y, 128, $year_font_size + 14, @time.year.to_s + "年")
self.contents.draw_text($month_x, $month_y, 128, $month_font_size + 14, @time.month.to_s + "月")
self.contents.draw_text($day_x, $day_y, 128, $day_font_size + 14, @time.day.to_s + "日")
self.contents.draw_text($hour_x , $hour_y, 128, $hour_font_size + 14, @time_hour.to_s)
self.contents.draw_text($hour_x + 26, $hour_y - 3, 128, $hour_font_size + 14, ":")
@time_min = sprintf("%02d", @time.min.to_s)
self.contents.draw_text($min_x - 3, $min_y, 128, $min_font_size + 14, @time_min)
#!!!!注意!!!!
#这里是真实时间的星期名称,
#若是要改变游戏时间的星期名称,请到第二部分282行
case @time.wday
when 0
weektxt = "周日"
when 1
weektxt = "周一"
when 2
weektxt = "周二"
when 3
weektxt = "周三"
when 4
weektxt = "周四"
when 5
weektxt = "周五"
when 6
weektxt = "周六"
end # end case
self.contents.draw_text($week_x, $week_y, 128, $week_font_size + 14, weektxt)
end# end def show_real_time
def get_season_weather
# 用季节区分天气类型出现机率
# 春天
case $game_variables[$season]
when 1
$weather_1_rate = $spring_none
$weather_2_rate = $spring_rain
$weather_3_rate = $spring_wind
$weather_4_rate = $spring_snow
# 夏天
when 2
$weather_1_rate = $summer_none
$weather_2_rate = $summer_rain
$weather_3_rate = $summer_wind
$weather_4_rate = $summer_snow
# 秋天
when 3
$weather_1_rate = $autumn_none
$weather_2_rate = $autumn_rain
$weather_3_rate = $autumn_wind
$weather_4_rate = $autumn_snow
# 冬天
when 4
$weather_1_rate = $winter_none
$weather_2_rate = $winter_rain
$weather_3_rate = $winter_wind
$weather_4_rate = $winter_snow
end # end case
end #end definition
end

复制代码

　　　　　　　　　　　　　　[本贴由 K’ 于 2007-7-31 8:28:00 进行了编辑]

雪流星 · 发表于 2007-7-10 20:30:42

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

超自定义时间日期天气昼夜脚本系统

有人可能会说：「站上不是早就有这类脚本了吗？还发来作啥？」
但是我这与站上其他脚本不同的地方是「超自定义」四个字
啥叫「超自定义」呢？
就是说所有的东西，包括窗口座标，字形颜色、大小，显示的文字，排版的方式
都可以按照你所要的去编排

写这个脚本的起因是因为我载了站上的时间脚本系统，但是想要把他改成适合我游戏风格的样式却很很很麻烦，於是发狠自己写了一个。……刚开始也没想到会成功 =_=”

後来写成功後，考虑到可能有其他像我一样的脚本新人会有同样的问题
於是乎…就把它发上来了

功能吗…看下面的介绍吧：

snstar2006 超自定义时间日期天气昼夜系统
  站上已经有许多类似的脚本, 只是如果要修改成有游戏的特色的方式实在不容易
  所以我自己重新写一个脚本, 顺便练习脚本的写法,
  方法绝对不是最好的,可能也很复杂,但是我用了大量的变量来定义
  所以对像我一样的新手来说,要修改起来,难度应该不会很大
  只要把字符串替换掉,或是把窗口坐标修改成想要的地方就好了
  几乎所有的变量定义都在脚本最上面, 其他的我在后面有说明
  要修改的话最大的问题应该是排版问题
  我在脚本里定义了三个排版,只要把7号变量改成 1 就能切换了

参考脚本:
   kira 的    事件+脚本时间系统
   黑羽毛的    完美昼夜脚本
   灼眼的夏娜的  日期，天气，昼夜系统(养成游戏可用)
   sphinger 的带远景图的小地图(缩略图)

  我不是很熟悉脚本语法,所以参考了以上所列的脚本的内容
  snstar2006 向以上诸位致上最高的敬意, 因为我终于完成了人生中第一个脚本系统

  功能:
  1. 显示游戏内日期时间, 全部文字和位置都能自己设定.
  2. 按 A 或是 shift 可以显示真实时间, 方便全屏幕时察看时间.
  3. 全部日期时间等都使用变量, 方便在游戏中设定时间.
   (比如说: 过了几天后, 在事件中增加天数的变量就好了)
  4. 打开4号开关开启计时和显示时间功能
   打开5号开关开启天气变化
   打开6号开关开启色调功能
   打开7号开关开启自动隐藏时间窗口功能, 类似window的自动隐藏工具栏
                  与4号开关不同的是, 这个开关只是隐藏窗口, 并不取消
                  计时功能
   打开8号开关变更真实时间显示格式  true = 12小时制  false = 24小时制
  5. 季节和区域天气比例变化
   可以设定不同季节和不同区域所发生的天气
   如:冬天的时候下雪的机率较大, 夏天则多雨
   或是到了沙漠地区就多刮风少下雨, 而到了沼泽区则多下雨少刮风等等
  6. 特定日期指定天气
   如:圣诞节那天一定会下雪
  7. 综合以上两项, 可能会导致在沙漠中圣诞节时下雪囧
   所以天气选择的优先度是区域>日期>季节
  8. 模拟真实季节昼夜长短情况
   夏天的时候白天会比较长, 冬天则比较短等
  9. 地图名称自动判断是否在室内
   如果地图名称内有[内]字或在名称之后加上 [,IN], 自动关闭天气功能
10. 本脚本支持鼠标, 只要把215行的注释取消掉就好了

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
  #分两部分是因为本脚本太长了
  #第一部分脚本是主处理,不会改的话就别改了
  #第二部分脚本是自定义变量, 文字, 排版等, 要改都到那里改去
         默认定义了24节气
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
第一部分定义修改部分
148 行定义天气音效
362 行定义真实时间 AM/PM 的字
372 行定义真实时间星期的字

第二部分定义修改部分
22 行窗口自定义
38 行时间换算率
45 行时间变量ID
55 行天气机率百分比
79 行窗口字型颜色定义
131 行定义[年]的字
147 行定义[月]的字
201 行定义[日]的字
296 行定义[时]的字
328 行定义[刻]的字
192 行定义[季节]的字
273 行定义[星期]的字
346 行定义[天气]的字
367 行定义二十八星宿
451 行定义时间色调
585 行定义区域和区域天气
653 行定义窗口模式所有坐标长度等等等...
   窗口隐藏方向：2→下 4→左 6→右 8→上
800 行节日自定义

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
二十八星宿使用思路

站上有关于二十八星宿的数据, 可以参考看看
二十八星宿包含三个部分: 名称, 七耀, 对应动物
所以总共要三个部份可以拿来用, 其中七耀又包含日月 + 五行

首先我们可以设置(用公共事件)当某个星宿出现时, 开启XX功能
如: 当[胃土雉]出现时, 任何地方都可以存盘

再者我们可以设置当某个星宿出现时, X系魔法功能加倍, Y系魔法减弱
如: 当[尾火虎]出现时, 火系魔法功能加倍
当[心月狐]或[参水猿]出现时, 最适合打火系BOSS

最后我们可以设置当某个星宿出现时, X怪出线机率最频繁, 或是某张地图的入口开启
如: 当[牛金牛]出现时, 牛魔王的子孙会常常遇到
当[觜火猴]出现时, 水濂洞的入口出现

又想到另外一条思路
可以把控制二十八星宿的变量改为[月份]
然后把二十八星宿改成12生肖或是星座, 用星座的话就可以用在非东方背景的游戏了
超自定义时间日期天气昼夜脚本系统

截图：

冲突可能：其他时间系统脚本（废话～～）、其馀不确定（应该没有吧）

使用地图名称显示脚本时请注意：
本脚本有三种方法分辨角色是否在室内
1. 地图名称包含「内」字
2. 地图名称以 ,IN 结尾（注意有","）
3. 设定地图地形为 98
4. 直接关掉天气开关
看情况使用

功能增新：时段作息变数控制
类似作息开关的功能，只是改用变数控制
脚本1

#================================================================================#
#****Window_Time #
#--------------------------------------------------------------------------------#
# 显示时间的窗口类 #
#================================================================================#
class Window_Time < Window_Base
#----------------------#
#*初始化对象 #
#----------------------#
def initialize
#更新窗口坐标
$game_variables[$time_window_pattern] = $default_pattern
@pattern_now = $default_pattern
time_date_window_update
#设定窗口
super($time_date_X, $time_date_Y, $time_date_W, $time_date_H)
self.contents = Bitmap.new($time_date_W - 32, $time_date_H - 32)
#self.contents.font.name = (["标楷体"]) #防错用
self.opacity = $time_window_opacity
#开关初始化 -- 预设防错的不喜欢再用事件初始化
$game_switches[$time_date_running] = true #时间功能开启
$game_switches[$time_date_tone] = true #色调功能开启
$game_switches[$hide_window] = false #隐藏功能关闭
$game_switches[$real_time_format] = true #真实时间12小时制
$game_switches[$time_date_weather] = true #天气功能开启
$game_switches[$time_map_region] = true #区域功能开启
#变数归零
$weather_hour = nil
$weather_type_rand = 0
$hour_count = 0
$weather_hour = 0
$game_variables[$week] = 1
@id = $game_map.map_id
for i in [$min, $hour, $day, $month, $year]
if $game_variables[i] == 0
$game_variables[i] = 1
i+=1
end # end if
end # end for
#刷新窗口
refresh
end # end def initialize
#----------------------#
#*刷新 #
#----------------------#
def refresh
self.contents.clear
self.contents.font.size = $time_window_font_size
self.contents.font.color = game_date
#计算时间
if $game_switches[$time_date_running] == true
@total_sec = Graphics.frame_count
if @total_sec % $min_rate ==0
$game_variables[$min] += 1
end
if $game_variables[$min] >= $hour_rate + 1
$game_variables[$min] = 1
$game_variables[$hour] += 1
$hour_count += 1
end
if $game_variables[$hour] >= $day_rate + 1
$game_variables[$hour] = 1
$game_variables[$day] += 1
$game_variables[$week] += 1
if $game_variables[$week] == 8
$game_variables[$week] = 1
end
end
if $game_variables[$day] >= $month_rate + 1
$game_variables[$day] = 1
$game_variables[$month] += 1
end
if $game_variables[$month] >= $year_rate + 1
$game_variables[$month] = 1
$game_variables[$year] += 1
end
end
#判断是否在室内
newid = $game_map.map_id #获取地图ID
if newid != @id
@id = newid
end
$mapnames = load_data("Data/MapInfos.rxdata") #读取地图名称
map_name = $mapnames[@id].name
if map_name.include?("内") or map_name.include?(",IN")
#如果地图名称包含"内"或",IN"
$game_switches[$time_date_weather] = false #则不显示天气
$weather_hour = 0
$weather_type = 99 #99是让窗口不会显示天气
#应该不会有人定义99种天气吧
$game_variables[$time_map_region] = 98
end
time_date_window_update #窗口文字坐标调整
print_date #显示文字
get_season_weather #计算季节天气机率
show_festival #显示节日
get_region_weather #计算区域天气机率
get_time_range #计算时段
#时段控制
case $game_variables[$time_range]
when 1 # 午夜
$tone_R, $tone_G, $tone_B, $tone_K = [-187, -153, -102, 119]
when 2 # 日出
$tone_R, $tone_G, $tone_B, $tone_K = [-51, -51, -51, 170]
when 3 # 凌晨
$tone_R, $tone_G, $tone_B, $tone_K = [0, 0, 0, 40]
when 4 # 天亮
$tone_R, $tone_G, $tone_B, $tone_K = [0, 0, 0, 0]
when 5 # 中午
$tone_R, $tone_G, $tone_B, $tone_K = [68, 68, 44, 204]
when 6 # 天亮
$tone_R, $tone_G, $tone_B, $tone_K = [0, 0, 0, 0]
when 7 # 黄昏
$tone_R, $tone_G, $tone_B, $tone_K = [68, 0, -17, 204]
when 8 # 日落
$tone_R, $tone_G, $tone_B, $tone_K = [68, 17, -17, 204]
when 9 # 天黑
$tone_R, $tone_G, $tone_B, $tone_K = [-51, -51, -51, 170]
when 10 # 午夜
$tone_R, $tone_G, $tone_B, $tone_K = [-187, -153, -102, 119]
end
if $game_switches[$time_date_weather] == true #天气功能开关为ON时
#如果天气需要归零
if $hour_count >= $weather_hour or $weather_hour == 0
$hour_count = 0 #天气持续时间归零
$weather_type_rand = rand(100) + 1 #随机数生成天气类型
$weather_power = rand(9) + 1 #随机数生成天气强度
$weather_hour = rand($weather_hour_max) + 1 #随机数出现天气时间
$weather_dur = 50
else
$weather_1_min = 1 #天气一最低机率
$weather_1_max = $weather_1_rate #天气一最高机率
$weather_2_min = $weather_1_max + 1 #天气二最低机率
$weather_2_max = $weather_2_min + $weather_2_rate #天气二最高机率
$weather_3_min = $weather_2_max + 1 #天气三最低机率
$weather_3_max = $weather_3_min + $weather_3_rate #天气三最高机率
$weather_4_min = $weather_3_max + 1 #天气四最低机率
$weather_4_max = $weather_4_min + $weather_4_rate #天气四最高机率
if $weather_1_rate != 0
if $weather_type_rand >= $weather_1_min and $weather_type_rand <=$weather_1_max
$weather_type = 0 #无
end
end
if $weather_2_rate != 0
if $weather_type_rand >= $weather_2_min and $weather_type_rand <=$weather_2_max
$weather_type = 1 #雨
end
end
if $weather_3_rate != 0
if $weather_type_rand >= $weather_3_min and $weather_type_rand <=$weather_3_max
$weather_type = 2 #风
end
end
if $weather_4_rate != 0
if $weather_type_rand >= $weather_4_min and $weather_type_rand <=$weather_4_max
$weather_type = 3 #雪
end
end
#播放天气BGS
#Audio.bgs_play("文件名",音量,节奏速度)
case $weather_type #当天气
when 0
Audio.bgs_stop
when 1 #是雨的情况下
Audio.bgs_play("Audio/BGS/005-Rain01", 60)
when 2 #是风的情况下
Audio.bgs_play("Audio/BGS/001-Wind01", 70)
when 3 #是雪的情况下
Audio.bgs_play("Audio/BGS/003-Wind03", 80)
end# end case
end # end if
$weather_dur = 50
else #如果天气开关为off
$weather_type, $weather_power, $weather_dur = [0,0,0]#将天气回复为无
end # end if
$game_screen.weather($weather_type, $weather_power, $weather_dur) #显示天气
if $game_switches[$time_date_tone] == true #如果色调开关为on
$game_screen.start_tone_change(Tone.new($tone_R, $tone_G, $tone_B, $tone_K), 50)
else #如果为off
#色调回复正常
$game_screen.start_tone_change(Tone.new(0, 0, 0, 0), 1)
end # end if
#当人物走到窗口坐标时移动时间窗口
if $game_player.screen_x >= ($time_date_X - 16) && $game_player.screen_x <= ($time_date_X + $time_date_W + 16)
if $game_player.screen_y >= ($time_date_Y - 16) && $game_player.screen_y <= ($time_date_Y + $time_date_H + 16)
# +/- 16 像素是调整手感
self.x = $time_date_XM
self.y = $time_date_YM
time_date_screen_moved = true #避免与自动隐藏功能互相冲突
case $hide_direction #将隐藏方向改为相反的方向
when 2
$hide_direction = 8
when 4
$hide_direction = 6
when 6
$hide_direction = 4
when 8
$hide_direction = 2
end # end case
else #窗口回到原位
self.x = $time_date_X
self.y = $time_date_Y
time_date_screen_moved = false #避免与自动隐藏功能互相冲突
end # end if
else #窗口回到原位
self.x = $time_date_X
self.y = $time_date_Y
time_date_screen_moved = false #避免与自动隐藏功能互相冲突
end # end if
mouse_x, mouse_y = [-1, -1] #没使用鼠标脚本时防错
#如果使用鼠标脚本的话就取消注释
#如果不使用鼠标脚本的话就注释掉,否则会报错
#mouse_x, mouse_y = Mouse.get_mouse_pos #获得鼠标位置
#当按住A键时
#显示现实时间
if Input.press?(Input::A)
show_real_time
end # end if
#当鼠标移动到窗口时位置或是按下Z键时
#显示已自动隐藏的时间窗口
if $game_switches[$hide_window] == true
case $hide_direction #调整隐藏方向
when 2
self.y = $time_date_Y + $time_date_H - $hide_window_width
when 4
self.x = -($time_date_W) + $hide_window_width
when 6
self.x = $time_date_X + $time_date_W - $hide_window_width
when 8
self.y = -($time_date_H) + $hide_window_width
end # end case
if Input.press?(Input::Z) or (mouse_x >= $time_date_X && mouse_x <= ($time_date_X + $time_date_W)) && (mouse_y >= $time_date_Y and mouse_y <= ($time_date_Y + $time_date_H))
if time_date_screen_moved == false #避免与自动移动功能互相冲突
self.x = $time_date_X
self.y = $time_date_Y
else
self.x = $time_date_XM
self.y = $time_date_YM
end
end # end if
else
if time_date_screen_moved == false #避免与自动移动功能互相冲突
self.x = $time_date_X
self.y = $time_date_Y
end
end # end if
#更新窗口坐标等
if $game_variables[$time_window_pattern] != @pattern_now
time_date_window_update
self.x = $time_date_X
self.y = $time_date_Y
self.z = $time_window_z
self.width = $time_date_W
self.height = $time_date_H
self.contents = Bitmap.new($time_date_W - 32, $time_date_H - 32)
@pattern_now = $game_variables[$time_window_pattern]
end
end # end def refresh
#----------------------#
#*刷新画面 #
#----------------------#
def update
super
refresh
end # end def update
end# end class Window_time
#================================================================================#
#****Scene_Map #
#--------------------------------------------------------------------------------#
# 处理地图画面的类别。 #
#================================================================================#
class Scene_Map
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
alias timedate_main main
def main
# 产生活动区块
@spriteset = Spriteset_Map.new
# 产生讯息窗口
@message_window = Window_Message.new
# 产生时间窗口
@time_window = Window_Time.new
if $game_switches[$time_date_running] == false
@time_window.visible = false
end # end if
# 执行过渡
Graphics.transition
# 主循环
loop do
# 更新游戏画面
Graphics.update
# 更新输入讯息
Input.update
# 更新画面
update
# 如果画面切换的话就中断循环
if $scene != self
break
end # end if
end # end loop
# 准备过渡
Graphics.freeze
# 释放活动区块
@spriteset.dispose
# 释放讯息窗口
@message_window.dispose
# 释放时间窗口
@time_window.dispose
# 标题画面切换中的情况下
if $scene.is_a?(Scene_Title)
# 淡入淡出画面
Graphics.transition
Graphics.freeze
end # end if
end # end def main
alias timedate_update update
def update
#如果时间日期功能开关为OFF则不显示时间窗口
if $game_switches[$time_date_running] == false
@time_window.visible = false
else
@time_window.visible = true
end # end if
@time_window.refresh
timedate_update
end # end def update
end #end class Scene_Map
#================================================================================#
#****Window_Time #
#--------------------------------------------------------------------------------#
# 显示时间的窗口类 #
#================================================================================#
class Window_Time < Window_Base
def show_real_time
@time = Time.now
@time_hour = @time.hour # 用来计算十二小时制的注意 . 和 _ 的差别
#text = sprintf("%02d年%02d月%02d日 [ ] %02d:%002d ", @time.year, @time.month, @time.day, @time_hour, @time.min)
self.contents.clear
self.contents.font.color = real_date
self.contents.font.size = 22
if $game_switches[$real_time_format] == true
if @time_hour >= 12
@time_hour -= 12
text = "PM"
else
text = "AM"
end # end if
else
text = ""
end # end if
self.contents.draw_text($APM_x, $APM_y, 128, 32, text)
self.contents.draw_text($year_x, $year_y, 128, $year_font_size + 14, @time.year.to_s + "年")
self.contents.draw_text($month_x, $month_y, 128, $month_font_size + 14, @time.month.to_s + "月")
self.contents.draw_text($day_x, $day_y, 128, $day_font_size + 14, @time.day.to_s + "日")
self.contents.draw_text($hour_x , $hour_y, 128, $hour_font_size + 14, @time_hour.to_s)
self.contents.draw_text($hour_x + 26, $hour_y - 3, 128, $hour_font_size + 14, ":")
@time_min = sprintf("%02d", @time.min.to_s)
self.contents.draw_text($min_x - 3, $min_y, 128, $min_font_size + 14, @time_min)
#!!!!注意!!!!
#这里是真实时间的星期名称,
#若是要改变游戏时间的星期名称,请到第二部分282行
case @time.wday
when 0
weektxt = "周日"
when 1
weektxt = "周一"
when 2
weektxt = "周二"
when 3
weektxt = "周三"
when 4
weektxt = "周四"
when 5
weektxt = "周五"
when 6
weektxt = "周六"
end # end case
self.contents.draw_text($week_x, $week_y, 128, $week_font_size + 14, weektxt)
end# end def show_real_time
def get_season_weather
# 用季节区分天气类型出现机率
# 春天
case $game_variables[$season]
when 1
$weather_1_rate = $spring_none
$weather_2_rate = $spring_rain
$weather_3_rate = $spring_wind
$weather_4_rate = $spring_snow
# 夏天
when 2
$weather_1_rate = $summer_none
$weather_2_rate = $summer_rain
$weather_3_rate = $summer_wind
$weather_4_rate = $summer_snow
# 秋天
when 3
$weather_1_rate = $autumn_none
$weather_2_rate = $autumn_rain
$weather_3_rate = $autumn_wind
$weather_4_rate = $autumn_snow
# 冬天
when 4
$weather_1_rate = $winter_none
$weather_2_rate = $winter_rain
$weather_3_rate = $winter_wind
$weather_4_rate = $winter_snow
end # end case
end #end definition
end

复制代码

　　　　　　　　　　　　　　[本贴由 K’ 于 2007-7-31 8:28:00 进行了编辑]

雪流星 · 发表于 2007-7-10 20:31:25

脚本2

=begin
之所以分两段脚本是因为......
这个脚本时在太长了
要修改的时后恐怕找不到正确的地方
所以...要修改的文字, 要自定义的地方都在这里了
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
#除了在这格解释的行, 其他的尽量别动,除非你会改
#1. 显示节日在806行设定月份和日期及节日名即可.
# 节日可以设置天气, 此天气会覆盖随机数出现的天气.
#2. 改年, 月, 日, 时, 刻等行的紫色字的时候,如果字数超过默认的数目,
# 请在同一分歧内添加如: $month_space = ?? 范例请看"十一月"的注释.
#3. 请注意在修改星期名称的时候, 本脚本内有三处, 一是默认用28星宿代替星期名
# 二是真实时间的星期名称, 三才是显示非默认星期名称的地方在274行
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
=end
#================================================================================#
#****Variable Self Define #
#--------------------------------------------------------------------------------#
# 自定义的变量 #
#================================================================================#
#窗口自定义
$time_date_running = 4 #自定义的时间功能开关
$time_date_weather = 5 #自定义的天气功能开关
$time_date_tone = 6 #自定义的色调功能开关
$hide_window = 7 #自定义的隐藏窗口功能开关
$real_time_format = 8 #真实时间的模式开关编号
$time_window_pattern = 9 #时间窗口的样式变量ID
$time_map_region = 10 #自定义的地图局部变量ID
$time_range = 11 #自定义的时段变量ID
$time_window_opacity = 255 #时间窗口不透明度
$time_window_z = 3000 #时间窗口高度
$time_window_font_size = 18 #时间窗口字号,建议不要动,否则版面要重排
$default_pattern = 0 #默认的窗口样式
$weather_hour_max = 5 #天气持续最长时间
$hide_window_width = 8 #隐藏窗口残留宽度
#自定义的时间换算率
$min_rate = 2400 #换算为一刻的祯数
$hour_rate = 5 #换算为一时的刻数
$day_rate = 12 #换算为一日的时数
$month_rate = 28 #换算为一月的日数
$year_rate = 12 #换算为一年的月数
#自定义的时间变量, 默认2, 3, 4, 5, 6, 7, 8为刻,时,日,月,年,星期,季节
#用变量是为了能在游戏中任意改变时间
$min = 2 #定义[刻]
$hour = 3 #定义[时]
$day = 4 #定义[日]
$month = 5 #定义[月]
$year = 6 #定义[年]
$week = 7 #定义[星]
$season = 8 #定义[季节]
#自定义的天气比例百分比,总和最好是100
$spring_none = 50 #春天天气为[无]的比例
$spring_rain = 22 #春天天气为[雨]的比例
$spring_wind = 25 #春天天气为[风]的比例
$spring_snow = 3 #春天天气为[雪]的比例
$summer_none = 35 #夏天天气为[无]的比例
$summer_rain = 35 #夏天天气为[雨]的比例
$summer_wind = 30 #夏天天气为[风]的比例
$summer_snow = 0 #夏天天气为[雪]的比例
#这项其实设为0就好了,之所以还弄个变量
#是为了让版面看起来整齐....还有也许有
#人会像要让异世界的夏天下雪 =_="
$autumn_none = 50 #秋天天气为[无]的比例
$autumn_rain = 12 #秋天天气为[雨]的比例
$autumn_wind = 35 #秋天天气为[风]的比例
$autumn_snow = 3 #秋天天气为[雪]的比例
$winter_none = 35 #冬天天气为[无]的比例
$winter_rain = 15 #冬天天气为[雨]的比例
$winter_wind = 15 #冬天天气为[风]的比例
$winter_snow = 35 #冬天天气为[雪]的比例
#自定义字型颜色,这是让想要时间窗口色彩丰富一点的人设计的
def game_date #游戏内的时间颜色
return Color.new(0, 0, 0, 255)
end
def real_date #现实的时间颜色
return Color.new(127, 127, 0, 255)
end
def year_color #描写[年]的颜色
return Color.new(0, 0, 0, 255)
end
def month_color #描写[月]的颜色
return Color.new(0, 0, 0, 255)
end
def day_color #描写[日]的颜色
return Color.new(0, 0, 0, 255)
end
def week_color #描写[星期]的颜色
return Color.new(0, 0, 0, 255)
end
def hour_color #描写[时]的颜色
return Color.new(0, 0, 0, 255)
end
def min_color #描写[刻]的颜色
return Color.new(0, 0, 0, 255)
end
def fes_color #描写[节日]的颜色
return Color.new(0, 0, 0, 255)
end
def weather_color #描写[天气]的颜色
return Color.new(0, 0, 0, 255)
end
def region_color #描写[区域]的颜色
return Color.new(0, 0, 0, 255)
end
#预设的时间排版间隔, 排版用, 建议别动, 除非要自己重新排版
$year_space =74 #[年]的间隔
$month_space = 38 #[月]的间隔
$day_space = 38 #[日]的间隔
$hour_space = 38 #[时]的间隔
$min_space = 38 #[刻]的间隔
#================================================================================#
# ■ Window_Time #
#--------------------------------------------------------------------------------#
# 　显示时间的窗口类 #
#================================================================================#
class Window_Time < Window_Base
def print_date
#定义显示[年]
self.contents.font.color = year_color
self.contents.font.size = $year_font_size
case $game_variables[$year]
when 1
yeartxt = "江湖一年"
when 2
yeartxt = "江湖二年"
when 3
yeartxt = "江湖三年"
when 4
yeartxt = "江湖四年"
end
self.contents.draw_text($year_x, $year_y, 128, $year_font_size + 14, yeartxt)
#其实根本不需要那么多,一年就要跑很久了
#定义显示[月]
self.contents.font.color = month_color
self.contents.font.size = $month_font_size
#$month_x = $year_x + $year_space
case $game_variables[$month]
when 1
monthtxt = "正月" #一月
$game_variables[$season] = 4
when 2
monthtxt = "杏月" #二月
$game_variables[$season] = 1
when 3
monthtxt = "桃月" #三月
$game_variables[$season] = 1
when 4
monthtxt = "槐月" #四月
$game_variables[$season] = 1
when 5
monthtxt = "榴月" #五月
$game_variables[$season] = 2
when 6
monthtxt = "荷月" #六月
$game_variables[$season] = 2
when 7
monthtxt = "桐月" #七月
$game_variables[$season] = 2
when 8
monthtxt = "桂月" #八月
$game_variables[$season] = 3
when 9
monthtxt = "菊月" #九月
$game_variables[$season] = 3
when 10
monthtxt = "梅月" #十月
$game_variables[$season] = 3
when 11
monthtxt = "葭月" #十一月
$game_variables[$season] = 4
$month_space = 54 # 如果打[十一月]的话, 间隔须为 54
when 12
monthtxt = "腊月" #十二月
$game_variables[$season] = 4
end
self.contents.draw_text($month_x, $month_y, 128, $month_font_size + 14, monthtxt)
#定义显示[季节]
self.contents.font.size = $season_font_size
case $game_variables[$season]
when 1
self.contents.font.color = Color.new (0, 160, 75, 255)
seasontxt = "春"
when 2
self.contents.font.color = Color.new (255, 50, 50, 255)
seasontxt = "夏"
when 3
self.contents.font.color = Color.new (250, 240, 130, 255)
seasontxt = "秋"
when 4
self.contents.font.color = Color.new (40, 140, 200, 255)
seasontxt = "冬"
end
self.contents.draw_text($season_x, $season_y, 120, $season_font_size + 14, seasontxt)
#定义显示[日]
self.contents.font.color = day_color
self.contents.font.size = $day_font_size
#$day_x = $month_x + $month_space
case $game_variables[$day]
when 1
daytxt = "初一"
when 2
daytxt = "初二"
when 3
daytxt = "初三"
when 4
daytxt = "初四"
when 5
daytxt = "初五"
when 6
daytxt = "初六"
when 7
daytxt = "初七"
when 8
daytxt = "初八"
when 9
daytxt = "初九"
when 10
daytxt = "初十"
when 11
daytxt = "十一"
when 12
daytxt = "十二"
when 13
daytxt = "十三"
when 14
daytxt = "十四"
when 15
daytxt = "十五"
when 16
daytxt = "十六"
when 17
daytxt = "十七"
when 18
daytxt = "十八"
when 19
daytxt = "十九"
when 20
daytxt = "二十"
when 21
daytxt = "二一"
when 22
daytxt = "二二"
when 23
daytxt = "二三"
when 24
daytxt = "二四"
when 25
daytxt = "二五"
when 26
daytxt = "二六"
when 27
daytxt = "二七"
when 28
daytxt = "二八"
end
self.contents.draw_text($day_x, $day_y, 120, $day_font_size + 14, daytxt)
#定义显示[星期]
self.contents.font.color = week_color
self.contents.font.size = $week_font_size
if $game_variables[$time_window_pattern] != $default_pattern
case $game_variables[$week]
when 1
weektxt = "星期一"
when 2
weektxt = "星期二"
when 3
weektxt = "星期三"
when 4
weektxt = "星期四"
when 5
weektxt = "星期五"
when 6
weektxt = "星期六"
when 7
weektxt = "星期日"
end
self.contents.draw_text($week_x, $week_y, 128, $week_font_size + 14, weektxt)
end
#定义显示[时]
self.contents.font.color = hour_color
self.contents.font.size = $hour_font_size
#$hour_x = $day_x + $day_space
case $game_variables[$hour]
when 1
hourtxt = "子时"#11pm ~ 1am
when 2
hourtxt = "丑时"#1am ~ 3am
when 3
hourtxt = "寅时"#3am ~ 5am
when 4
hourtxt = "卯时"#5am ~ 7am
when 5
hourtxt = "辰时"#7am ~ 9am
when 6
hourtxt = "巳时"#9am ~ 11am
when 7
hourtxt = "午时"#11am ~ 1pm
when 8
hourtxt = "未时"#1pm ~ 3pm
when 9
hourtxt = "申时"#3pm ~ 5pm
when 10
hourtxt = "酉时"#5pm ~ 7pm
when 11
hourtxt = "戌时"#7pm ~ 9pm
when 12
hourtxt = "亥时"#9pm ~ 11pm
end
self.contents.draw_text($hour_x, $hour_y, 128, $hour_font_size + 14, hourtxt)
#定义显示[刻]
self.contents.font.color = min_color
self.contents.font.size = $min_font_size
#$min_x = $hour_x + $hour_space
case $game_variables[$min]
when 1
mintxt = "初刻"
when 2
mintxt = "二刻"
when 3
mintxt = "三刻"
when 4
mintxt = "四刻"
when 5
mintxt = "五刻"
end
self.contents.draw_text($min_x, $min_y, 128, $min_font_size + 14, mintxt)
#定义显示[天气]
self.contents.font.color = weather_color
self.contents.font.size = $weather_font_size
case $weather_type
when 0
weathertxt = "晴"
self.contents.font.color = Color.new(130, 202, 156)
when 1
weathertxt = "雨"
self.contents.font.color = Color.new(109, 205, 187)
when 2
weathertxt = "风"
self.contents.font.color = Color.new(120, 200, 240)
when 3
weathertxt = "雪"
self.contents.font.color = Color.new(255, 255, 255)
else
weathertxt = ""
end
self.contents.draw_text($weather_x, $weather_y, 128, $weather_font_size + 14, weathertxt)
#定义显示[星]
#!!!!注意!!!!
#这里是默认的二十八星宿代替星期名称.
#如果要修改游戏内星期名称, 请到???行.
#呵呵,因为太长了所以丢到后面来写了^^
case ($game_variables[$day] % 7) #色彩按七耀显示
when 1
self.contents.font.color = Color.new (0, 160, 75, 255) # 木
when 2
self.contents.font.color = Color.new (250, 240, 130, 255) # 金
when 3
self.contents.font.color = Color.new (225, 178, 0, 255) # 土
when 4
self.contents.font.color = Color.new (255, 255, 40, 255) # 日
when 5
self.contents.font.color = Color.new (255, 255, 150, 255) # 月
when 6
self.contents.font.color = Color.new (255, 50, 50, 255) # 火
when 0
self.contents.font.color = Color.new (40, 140, 200, 255) # 水
end
if $game_variables[$time_window_pattern] == $default_pattern
case $game_variables[$day]
when 1
weektxt = "角木蛟"
when 2
weektxt = "亢金龙"
when 3
weektxt = "氐土貉"
when 4
weektxt = "房日兔"
when 5
weektxt = "心月狐"
when 6
weektxt = "尾火虎"
when 7
weektxt = "箕水豹"
when 8
weektxt = "斗木獬"
when 9
weektxt = "牛金牛"
when 10
weektxt = "女土蝠"
when 11
weektxt = "虚日鼠"
when 12
weektxt = "危月燕"
when 13
weektxt = "室火猪"
when 14
weektxt = "壁水貐"
when 15
weektxt = "奎木狼"
when 16
weektxt = "娄金狗"
when 17
weektxt = "胃土雉"
when 18
weektxt = "昴日鸡"
when 19
weektxt = "毕月乌"
when 20
weektxt = "觜火猴"
when 21
weektxt = "参水猿"
when 22
weektxt = "井木犴"
when 23
weektxt = "鬼金羊"
when 24
weektxt = "柳土獐"
when 25
weektxt = "星日马"
when 26
weektxt = "张月鹿"
when 27
weektxt = "翼火蛇"
when 28
weektxt = "轸水蚓"
end
self.contents.draw_text($week_x, $week_y, 128, $week_font_size + 14, weektxt)
end
end
def get_time_range
case $game_variables[$season]
#春天的时段
when 1
case $game_variables[$hour]
when 1
$game_variables[$time_range] = 1
when 3
$game_variables[$time_range] = 2
when 4
$game_variables[$time_range] = 3
when 5
$game_variables[$time_range] = 4
when 6
if $game_variables[$min] >= 3
$game_variables[$time_range] = 5
end
when 7
$game_variables[$time_range] = 6
when 9
if $game_variables[$min] >= 3
$game_variables[$time_range] = 7
end
when 10
$game_variables[$time_range] = 8
when 11
if $game_variables[$min] < 3
$game_variables[$time_range] = 9
elsif $game_variables[$min] >= 3
$game_variables[$time_range] = 10
end
end #end case
#夏天的时段
when 2
case $game_variables[$hour]
when 1
$game_variables[$time_range] = 1
when 3
if $game_variables[$min] < 3
$game_variables[$time_range] = 2
elsif $game_variables[$min] >= 3
$game_variables[$time_range] = 3
end
when 4
if $game_variables[$min] >= 3
$game_variables[$time_range] = 4
end
when 6
if $game_variables[$min] >= 3
$game_variables[$time_range] = 5
end
when 7
$game_variables[$time_range] = 6
when 10
if $game_variables[$min] == 4
$game_variables[$time_range] = 7
elsif $game_variables[$min] < 3
$game_variables[$time_range] = 8
end
when 11
if $game_variables[$min] < 3
$game_variables[$time_range] = 9
elsif $game_variables[$min] >= 3
$game_variables[$time_range] = 10
end
end #end case
#秋天的时段
when 3
case $game_variables[$hour]
when 1
$game_variables[$time_range] = 1
when 2
$game_variables[$time_range] = 2
when 4
$game_variables[$time_range] = 3
when 5
$game_variables[$time_range] = 4
when 6
if $game_variables[$min] >= 3
$game_variables[$time_range] = 5
end
when 7
$game_variables[$time_range] = 6
when 9
if $game_variables[$min] >= 3
$game_variables[$time_range] = 7
end
when 10
$game_variables[$time_range] = 8
when 11
if $game_variables[$min] < 3
$game_variables[$time_range] = 9
elsif $game_variables[$min] >= 3
$game_variables[$time_range] = 10
end
end #end case
when 4
#冬天的时间色调
case $game_variables[$hour]
when 1
$game_variables[$time_range] = 1
when 2
$game_variables[$time_range] = 2
when 4
if $game_variables[$min] >= 3
$game_variables[$time_range] = 3
end
when 5
$game_variables[$time_range] = 4
when 6
if $game_variables[$min] >= 3
$game_variables[$time_range] = 5
end
when 7
$game_variables[$time_range] = 6
when 9
if $game_variables[$min] >= 3
$game_variables[$time_range] = 7
end
when 10
$game_variables[$time_range] = 8
when 11
if $game_variables[$min] < 3
$game_variables[$time_range] = 9
elsif $game_variables[$min] >= 3
$game_variables[$time_range] = 10
end
end #end case
end # end case
end
def get_region_weather
self.contents.font.color = region_color
# 用地图区域区分天气类型出现机率
case $game_variables[$time_map_region]
# 1 为雪地 2 为沙漠 3 为山区 4 为海边 5 为湿地
# 第一个变数为晴天第二个为雨第三个为风第四个为雪
when 0
regiontxt = ""
when 1
$weather_1_rate = 20
$weather_2_rate = 5
$weather_3_rate = 5
$weather_4_rate = 70
regiontxt = "雪地"
self.contents.font.color = Color.new(255, 255, 255)
when 2
$weather_1_rate = 30
$weather_2_rate = 2
$weather_3_rate = 68
$weather_4_rate = 0
regiontxt = "沙漠"
self.contents.font.color = Color.new(255, 247, 153)
when 3
$weather_1_rate = 30
$weather_2_rate = 30
$weather_3_rate = 30
$weather_4_rate = 10
regiontxt = "山区"
self.contents.font.color = Color.new(0, 195, 95)
when 4
$weather_1_rate = 40
$weather_2_rate = 25
$weather_3_rate = 45
$weather_4_rate = 30
regiontxt = "海边"
self.contents.font.color = Color.new(90, 155, 225)
when 5
$weather_1_rate = 40
$weather_2_rate = 55
$weather_3_rate = 25
$weather_4_rate = 20
regiontxt = "湿地"
self.contents.font.color = Color.new(100, 155, 55)
when 98 #这是多加一种天气消失的方法
$weather_1_rate = 100
$weather_2_rate = 0
$weather_3_rate = 0
$weather_4_rate = 0
regiontxt = "室内" #显示颜色为设定好的region色
when 99
$weather_1_rate = 100
$weather_2_rate = 0
$weather_3_rate = 0
$weather_4_rate = 0
regiontxt = "平原" #显示颜色为设定好的region色
end # end case
self.contents.draw_text($region_x, $region_y, 128, $region_font_size + 14, regiontxt)
end # end definition
def time_date_window_update
#防错误
if $game_variables[$time_window_pattern] < 0
$game_variables[$time_window_pattern] = 0
end # end if
#自定义日期窗口排版样式
case $game_variables[$time_window_pattern]
when 0
# x 坐标
$year_x = 4 #年的 x 坐标
$month_x = $year_x + $year_space #月的 x 坐标
$day_x = $month_x + $month_space #日的 x 坐标
$hour_x = $day_x + $day_space #时的 x 坐标
$min_x = $hour_x + $hour_space #刻的 x 坐标
$fes_x = $min_x + $min_space #节日的 x 坐标
$season_x = 450 #季节的 x 坐标
$week_x = 480 #星期的 x 坐标
$weather_x = 538 #天气的 x 坐标
$region_x = 320 #地形的X坐标
$APM_x = $min_x + 32 #真实时间AM/PM X座标
# y 坐标
$year_y = -5 #年的 y 坐标
$month_y = -5 #月的 y 坐标
$day_y = -5 #日的 y 坐标
$hour_y = -5 #时的 y 坐标
$min_y = -5 #刻的 y 坐标
$fes_y = -5 #节日的 y 坐标
$season_y = -5 #季节的 y 坐标
$week_y = -5 #星期的 y 坐标
$weather_y = -5 #天气的 y 坐标
$region_y = -5 #地形的 y 坐标
$APM_y = $min_y #真实时间AM/PM y座标
#字号
$year_font_size = $time_window_font_size #年的文字大小
$month_font_size = $time_window_font_size #月的文字大小
$day_font_size = $time_window_font_size #日的文字大小
$hour_font_size = $time_window_font_size #时的文字大小
$min_font_size = $time_window_font_size #刻的文字大小
$fes_font_size = $time_window_font_size #节日的文字大小
$season_font_size = $time_window_font_size #季节的文字大小
$week_font_size = $time_window_font_size #星期的文字大小
$weather_font_size = $time_window_font_size #天气的文字大小
$region_font_size = $time_window_font_size #天气的文字大小
$time_date_X = 0 #时间窗口X坐标
$time_date_Y = 425 #时间窗口Y坐标
$time_date_W = 640 #时间窗口宽度
$time_date_H = 55 #时间窗口高度
$time_date_XM = 0 #时间窗口移动后X坐标
$time_date_YM = 0 #时间窗口移动后Y坐标
$hide_direction = 2 #时间窗口隐藏方向 -- 下
when 1
# x 坐标
$year_x = 56 #年的 x 坐标
$month_x = $year_x + $year_space #月的 x 坐标
$day_x = $month_x + $month_space #日的 x 坐标
$hour_x = 56 #时的 x 坐标
$min_x = $hour_x + $hour_space #刻的 x 坐标
$fes_x = $min_x + $min_space + 3 #节日的 x 坐标
$season_x = 4 #季节的 x 坐标
$week_x = -2 #星期的 x 坐标
$weather_x = $week_x + 65 #天气的 x 坐标
$region_x = $weather_x +65 #地形的X坐标
$APM_x = $min_x + 32 #真实时间AM/PM X座标
# y 坐标
$year_y = -5 #年的 y 坐标
$month_y = $year_y #月的 y 坐标
$day_y = $year_y #日的 y 坐标
$hour_y = 17 #时的 y 坐标
$min_y = $hour_y #刻的 y 坐标
$fes_y = $hour_y #节日的 y 坐标
$season_y = $year_y #季节的 y 坐标
$week_y = 39 #星期的 y 坐标
$weather_y = $week_y #天气的 y 坐标
$region_y = $week_y #地形的 y 坐标
$APM_y = $min_y #真实时间AM/PM y座标
#字号
$year_font_size = 18 #年的文字大小
$month_font_size = 18 #月的文字大小
$day_font_size = 18 #日的文字大小
$hour_font_size = 18 #时的文字大小
$min_font_size = 18 #刻的文字大小
$fes_font_size = 18 #节日的文字大小
$season_font_size = 40 #季节的文字大小
$week_font_size = 18 #星期的文字大小
$weather_font_size = 18 #天气的文字大小
$region_font_size = 18 #天气的文字大小
#窗口样式
$time_date_X = 0 #时间窗口X坐标
$time_date_Y = 0 #时间窗口Y坐标
$time_date_W = 250 #时间窗口宽度
$time_date_H = 95 #时间窗口高度
$time_date_XM = 320 #时间窗口移动后X坐标
$time_date_YM = 0 #时间窗口移动后Y坐标
$time_window_opacity = 255 #时间窗口不透明度
$hide_direction = 8 #时间窗口隐藏方向 -- 上
when 2
# x 坐标
$year_x = 4 #年的 x 坐标
$month_x = 4 #月的 x 坐标
$day_x = 20 #日的 x 坐标
$hour_x = 4 #时的 x 坐标
$min_x = $hour_x + $hour_space #刻的 x 坐标
$fes_x = 4 #节日的 x 坐标
$season_x = 60 #季节的 x 坐标
$week_x = 14 #星期的 x 坐标
$weather_x = 30 #天气的 x 坐标
$region_x = 14 #地形的X坐标
$APM_x = $min_x + 18 #真实时间AM/PM X座标
# y 坐标
$year_y = -5 #年的 y 坐标
$month_y = 20 #月的 y 坐标
$day_y = 41 #日的 y 坐标
$hour_y = 121 #时的 y 坐标
$min_y = $hour_y #刻的 y 坐标
$fes_y = 66 #节日的 y 坐标
$season_y = $month_y #季节的 y 坐标
$week_y = 93 #星期的 y 坐标
$weather_y = 181 #天气的 y 坐标
$region_y = 148 #地形的 y 坐标
$APM_y = $min_y #真实时间AM/PM y座标
#字号
$year_font_size = 18 #年的文字大小
$month_font_size = 18 #月的文字大小
$day_font_size = 18 #日的文字大小
$hour_font_size = 18 #时的文字大小
$min_font_size = 18 #刻的文字大小
$fes_font_size = 18 #节日的文字大小
$season_font_size = 22 #季节的文字大小
$week_font_size = 18 #星期的文字大小
$weather_font_size = 18 #天气的文字大小
$region_font_size = 18 #天气的文字大小
#窗口样式
$time_date_X = 520 #时间窗口X坐标
$time_date_Y = 0 #时间窗口Y坐标
$time_date_W = 120 #时间窗口宽度
$time_date_H = 240 #时间窗口高度
$time_date_XM = 0 #时间窗口移动后X坐标
$time_date_YM = 0 #时间窗口移动后Y坐标
$time_window_opacity = 255 #时间窗口不透明度
$game_switches[$hide_window] = true #隐藏功能关闭
#注意!! 加了以上那行脚本, 就无法关闭隐藏功能
#如果还想让隐藏功能在游戏中自由开关的话, 请用事件初始化
$hide_direction = 6 #时间窗口隐藏方向 -- 右
#可以一直加 when下去
end # end case
end # end def time_date_window_update
def show_festival
#$game_screen.start_tone_change(Tone.new(R,G,B,A),祯数) 色调
#$game_screen.weather(type, power, duration) 天气
#--------------------------------------------------------------------------
# ● 设定天气
# type : 类型 0 无 1 下雨 2 刮风 3 下雪
# power : 强度 1~9
# duration : 时间 10~200 祯数
#--------------------------------------------------------------------------
#定义[节日/节气]
#$fes_x = $min_x + $min_space
# 月份
# 日期
self.contents.font.color = fes_color
case $game_variables[$month]
when 1
case $game_variables[$day]
when 6
festxt = "[小寒]"
when 21
festxt = "[大寒]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 2
case $game_variables[$day]
when 5
festxt = "[立春]"
when 19
festxt = "[雨水]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 3
case $game_variables[$day]
when 5
festxt = "[惊蛰]"
when 20
festxt = "[春分]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 4
case $game_variables[$day]
when 5
festxt = "[清明]"
when 20
festxt = "[谷雨]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 5
case $game_variables[$day]
when 5
festxt = "[立夏]"
#festxt = "[端午]"
when 21
festxt = "[小满]"
else
festxt = "[无节日]"
festxt != ""
end # end case day
# 月份
# 日期
when 6
case $game_variables[$day]
when 6
festxt = "[芒种]"
when 21
festxt = "[夏至]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 7
case $game_variables[$day]
when 7
festxt = "[小暑]"
when 23
festxt = "[大暑]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 8
case $game_variables[$day]
when 7
festxt = "[立秋]"
when 15
festxt = "[中秋]"
$weather_type, $weather_power, $weather_dur = [0,0,0]
when 23
festxt = "[处暑]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 9
case $game_variables[$day]
when 8
festxt = "[白露]"
when 23
festxt = "[秋分]"
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 10
case $game_variables[$day]
when 8
festxt = "[寒露]"
$weather_type, $weather_power, $weather_dur = [3,1,20]#雪
when 23
festxt = "[霜降]"
$weather_type, $weather_power, $weather_dur = [3,2,20]#雪
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 11
case $game_variables[$day]
when 7
festxt = "[立冬]"
$weather_type, $weather_power, $weather_dur = [3,6,20]#雪
when 22
festxt = "[小雪]"
$weather_type, $weather_power, $weather_dur = [3,7,20]#雪
else
festxt = "[无节日]"
end # end case day
# 月份
# 日期
when 12
case $game_variables[$day]
when 7
festxt = "[大雪]"
$weather_type, $weather_power, $weather_dur = [3,9,20]#雪
when 21
festxt = "[冬至]"
$weather_type, $weather_power, $weather_dur = [3,8,20]#雪
else
festxt = "[无节日]"
end # end case day
end# end case month
#--------------------------复制贴上在此线之上即可-------------------------------
self.contents.draw_text($fes_x, $fes_y, 128, $fes_font_size + 14, festxt)
end # end def show_festival
end #end class

复制代码

两个脚本可以贴在一起，或分开贴也可以

精灵使者 · 发表于 2007-7-10 20:45:59

赞一个{/qiang}
未来的魔神战记中将要应用这些内容。
另外。你的RM版本不兼容，是英文版的，和我们汉化版的不兼容。
请下载工程后把那个game.ini修改成以下再打开工程

[Game]
Library=RGSS102J.dll
Scripts=Data\Scripts.rxdata
Title=增强型时间/日期窗口
RTP1=Standard
RTP2=
RTP3=

另外在把MAIN里面的
Font.default_name = (["標楷體"])
改成为
Font.default_name = (["黑体"])
另外里面的东西都是英文的，可以参考一下rmxp里面的默认rtp的英文写法。（p.s.连脚本注释和开始菜单都被英文化了，寒啊。）

雪流星 · 发表于 2007-7-10 20:57:24

抱歉
没注意到这些
因为我的机器是繁体的，所以测试时改成了标楷体
发帖时往了改回来

谢谢精灵的提醒

更新的连结：
http://rpg.blue/UP_PIC/200707/timedatewindow_chs2.rar

　　　　　　　　　　　　　　[本贴由 K’ 于 2007-8-5 8:51:31 最后编辑]

雪流星 · 发表于 2007-7-14 14:58:41

自顶

版主可以帮忙发布一下吗？

越前リョーマ · 发表于 2007-7-14 20:09:32

那个……

能帮我调整一下吗……？

雪流星 · 发表于 2007-7-16 05:16:14

LS的…
是想调整什麽？

zero2 · 发表于 2007-7-18 12:55:58

我想调整时间窗口像七夕小雨的那样，还有怎样更改时间进制，不用真实时间，用游戏中的时间，比如5帧就是1分钟。谢谢！！{/wx}

雪流星 · 发表于 2007-7-18 16:30:30

我这个说明已经很详尽了
LS应该看的懂吧

不要真实时间的话只要把脚本1的
$game_switches[$time_date_weather] = true #天气功能开启
改成false

脚本2 653 行定义窗口模式所有坐标长度等等等...
修改成你要的地方就行了

BTW
LS的发个截图，看看难的话我帮你调

帐号		自动登录	找回密码
密码			注册会员

超自定义时间日期天气昼夜脚本系统（新增优化方法）

加入我们，或者，欢迎回来。

加入我们，或者，欢迎回来。

贵宾

开拓者

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军