改下八云紫的时间脚本

zhanghao · 发表于 2009-2-7 00:55:54

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

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

x

贴：http://rpg.blue/viewthread.php?tid=107431想要加上每天的某时某分就触发同一件事，如果可以能加上星期的更好。我想要星期一到星期五触发一件事，星期六和星期天又触发其他的事
再加两个：实现睡觉，就是问下某个事件就到第二天。还有加开始与暂停和消失，暂停后又可以开始，时间是继续的

版务信息：本贴由楼主自主结贴～

八云紫 · 发表于 2009-2-7 02:47:42

#==============================================================================
# ■ 时间系统
#------------------------------------------------------------------------------
# 　 by 八云紫
#==============================================================================
#==============================================================================
# ■ Time_byz
#------------------------------------------------------------------------------
# 　定义时间相关的信息。
#==============================================================================
module Time_byz
#--------------初始化定义---------------
# 起始时间 [秒,分,时,日,月, 年]
INIT_TIME = [55,58,23,28,02,2008]
#--------------时间格式定义-------------
# 时间流失方式
# true.. 按帧数的倍数流失；false.. 按现实时间流失
TIME_MODULE = true
#---------------速度定义----------------
# 流失速度(越大速度越慢)
TIME_SPEED = 60
# 流失速度单位
# 1..时；2..分；3..秒
TIME_UNIT = 3
#---------------事件定义----------------
TIME_EVENT = {
# 事件的起始条件就是时间，但是时间的格式要与起始时间的相同。
# 事件使用的是公共事件，为了避免使用太多的公共事件，所以增加变量操作，
# 以便于在相同的公共事件里可以使用条件分歧。
# [秒,分,时,日,月, 年] => [变量ID，变量改变后的值，公共事件ID],
[00,59,23,28,02,2008] => [1, 1, 1],
} # 这个不要去掉
#---------------窗口定义----------------
WINDOW_X = 0
WINDOW_Y = 0
=begin
---------------------------------------
时间间隔的判断
---------------------------------------
1. 首先需要先定义一个计时器
$game_system.set_byz_timer(id)
其中的 id 可以是任何数字，字符串。
2. 然后在需要计算时间间隔的地方使用条件分歧里的脚本，里面可以写上
$game_system.after_time(id) > 5
这里的 id 要和定义的时候一致。这个的意思是时间经过 5秒后.....
=end
end
#==============================================================================
# ■ Game_System
#------------------------------------------------------------------------------
# 　处理系统附属数据的类。也可执行诸如交通工具、 BGM 等管理之类的功能。
# 本类的实例请参考$game_system 。
#==============================================================================
class Game_System
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_accessor :time_now
attr_accessor :byz_timer
attr_accessor :run_time
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
alias old_initialize initialize
def initialize
if Time_byz::TIME_MODULE
year = Time_byz::INIT_TIME[5];
mon = Time_byz::INIT_TIME[4];
day = Time_byz::INIT_TIME[3];
hour = Time_byz::INIT_TIME[2];
min = Time_byz::INIT_TIME[1];
sec = Time_byz::INIT_TIME[0];
@time_now = Time.local(year, mon, day, hour, min, sec);
else
@time_now = Time.new;
end
@byz_timer = [];
@run_time = true;
old_initialize
end
#--------------------------------------------------------------------------
# ● 增加时间
#--------------------------------------------------------------------------
def add_time(unit)
case unit
when 3
@time_now += 1;
when 2
@time_now += 60;
when 1
@time_now += 3600;
end
end
#--------------------------------------------------------------------------
# ● 设定时间计时器
#--------------------------------------------------------------------------
def set_byz_timer(id)
@byz_timer[id] = @time_now;
end
#--------------------------------------------------------------------------
# ● 计算时间（秒数）
#--------------------------------------------------------------------------
def after_time(id)
return 0 if @byz_timer[id] == nil;
return @time_now - @byz_timer[id];
end
#--------------------------------------------------------------------------
# ● 返回时间[秒,分,时,日,月, 年, 星期]
#--------------------------------------------------------------------------
def return_time(type, array_time)
logo = 6;
now_time = [];
loop do
counts_the_power = type /(10 ** logo);
type %= 10 ** logo;
if counts_the_power == 1;
case logo
when 6
times = @time_now.sec;
when 5
times = @time_now.min;
when 4
times = @time_now.hour;
when 3
times = @time_now.mday;
when 2
times = @time_now.mon;
when 1
times = @time_now.year;
when 0
times = @time_now.wday;
end
now_time.push(times);
end
logo -= 1;
break if logo <= 0;
end
return now_time == array_time;
end
#--------------------------------------------------------------------------
# ● 时间设置[秒,分,时,日,月, 年]
#--------------------------------------------------------------------------
def set_times(sec, min, hour, mday, mon, year)
@time_now = Time.local(year, mon, day, hour, min, sec);
end
end
#==============================================================================
# ■ Window_Byz_Time
#------------------------------------------------------------------------------
# 　调试画面、个别显示开关及变量的窗口。
#==============================================================================
class Window_Byz_Time < Window_Base
#--------------------------------------------------------------------------
# ● 初始化对像
# x : 窗口 X 座标
# y : 窗口 Y 座标
#--------------------------------------------------------------------------
def initialize(x, y)
super(x, y, 170, 87);
if Time_byz::TIME_MODULE
@time_speed = Time_byz::TIME_SPEED;
else
@time_speed = 60;
end
@time = @time_speed - 1;
refresh;
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
return unless $game_system.run_time;
@time += 1;
if @time_speed == @time;
$game_system.add_time(Time_byz::TIME_UNIT);
draw_time($game_system.time_now);
event_run;
@time = 0;
end
end
#--------------------------------------------------------------------------
# ● 描绘
#--------------------------------------------------------------------------
def draw_time(time)
self.contents.clear;
text = $game_system.time_now.strftime("%X")
self.contents.draw_text(0, 0, 105, WLH, text, 2);
text = $game_system.time_now.strftime("%Y年%m月%d日");
self.contents.draw_text(0, 32, 170, WLH, text);
end
#--------------------------------------------------------------------------
# ● 启动事件
#--------------------------------------------------------------------------
def event_run
array = ($game_system.time_now.to_a)[0,6];
if Time_byz::TIME_EVENT[array] != nil
unless !$scene.is_a?(Scene_Map) or $game_message.visible or $game_temp.in_battle
variables_id = Time_byz::TIME_EVENT[array][0];
variables_number = Time_byz::TIME_EVENT[array][1];
commonevent_id = Time_byz::TIME_EVENT[array][2];
$game_variables[variables_id] = variables_number;
$game_temp.common_event_id = commonevent_id;
end
end
end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　处理地图画面的类。
#==============================================================================
class Scene_Map < Scene_Base
alias old_start start
#--------------------------------------------------------------------------
# ● 开始处理
#--------------------------------------------------------------------------
def start
old_start;
@time_window = Window_Byz_Time.new(Time_byz::WINDOW_X, Time_byz::WINDOW_Y);
end
alias old_terminate terminate
#--------------------------------------------------------------------------
# ● 结束处理
#--------------------------------------------------------------------------
def terminate
old_terminate;
@time_window.dispose;
end
alias old_update update
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
old_update;
@time_window.refresh;
end
end

复制代码

新增加了三个功能，不过都没有测试。

用法：

1.判断时间
调用函数： $game_system.return_time(标志, 判断的时间)
用法：
   按照 [秒,分,时,日,月, 年, 星期] 的顺序设置标准。比如要判断年月，就这么写
  [秒,分,时,日,月, 年, 星期]
0  0  0  0  1 1 0       所以，标志就是 0000110 。
   然后判断的时间写上要判断的具体时间上例就是 [5, 2009]，注意，一定要用  [] 括起来。

2.设置时间
调用函数： $game_system.set_times(秒,分,时,日,月, 年)
用法：调用就可以了。

3.时间流动暂停开关
改变 $game_system.run_time 的值就可以了。
true:  流动
false: 暂停

zhanghao · 发表于 2009-2-7 05:55:50

放在事件的脚本没用啊!且判断时间和设置时间有什么用啊。最后那个不会改是加“=”吗？

使用第二个时出错：◆ 2009-02-06 21:56:50
错误类型 :
变量未定义
错误信息 :
Section097:153:in `set_times'undefined local variable or method `day' for #<Game_System:0x1017080>
错误可能发生的相关位置 :
Game_Interpreter : 第 1685 行 : command_355
腳本加載控制 : 第行
Game_Interpreter : 第 388 行 : eval
Game_Interpreter : 第 1685 行 : command_355
Game_Interpreter : 第 388 行 : execute_command
Game_Interpreter : 第 134 行 : update
Game_Interpreter : 第 99 行 : loop
Game_Interpreter : 第 136 行 : update
Scene_Map : 第 56 行 : ani_update
任务 : 第 7 行 : old_update
sj : 第 247 行 : _update
T地图名显示 : 第 258 行 : update
Scene_Base : 第 19 行 : main
Scene_Base : 第 16 行 : loop
Scene_Base : 第 21 行 : main
腳本錯誤回溯 : 第 33 行 : run
腳本錯誤回溯 : 第 147 行
-------------66RPG-------------------
◆ 2009-02-06 21:57:08
错误类型 :
变量未定义
错误信息 :
Section097:153:in `set_times'undefined local variable or method `day' for #<Game_System:0x1017080>
错误可能发生的相关位置 :
Game_Interpreter : 第 1685 行 : command_355
腳本加載控制 : 第行
Game_Interpreter : 第 388 行 : eval
Game_Interpreter : 第 1685 行 : command_355
Game_Interpreter : 第 388 行 : execute_command
Game_Interpreter : 第 134 行 : update
Game_Interpreter : 第 99 行 : loop
Game_Interpreter : 第 136 行 : update
Scene_Map : 第 56 行 : ani_update
任务 : 第 7 行 : old_update
sj : 第 247 行 : _update
T地图名显示 : 第 258 行 : update
Scene_Base : 第 19 行 : main
Scene_Base : 第 16 行 : loop
Scene_Base : 第 21 行 : main
腳本錯誤回溯 : 第 33 行 : run
腳本錯誤回溯 : 第 147 行
-------------66RPG-------------------

zhanghao · 发表于 2009-2-7 18:18:55

莫非没人会，还是懒得改啊。求各位帮下，应该不是很复杂啊

zh99998 · 发表于 2009-2-7 19:28:02

问一下LZ用的什么查错脚本
好强大……

那个错误貌似是脚本的故障

暂停开关用法
$game_system.run_time = true
$game_system.run_time = false

zhanghao · 发表于 2009-2-7 19:47:34

回LS用原来的脚本出错，使用八云蓝的脚本没反应。。
不要暂停也可以只求睡觉和第一个

只好等待了..............

zh99998 · 发表于 2009-2-7 20:09:24

现在八云大人貌似没有RM……所以脚本没有测试……有错误也正常
差不多还有1个星期了
如果不急用就等几天，急用的话就悬赏吧……

八云紫 · 发表于 2009-2-7 21:49:39

不好意思呀，是吾写错单词了，用这个替换：

#==============================================================================
# ■ 时间系统
#------------------------------------------------------------------------------
# 　 by 八云紫
#==============================================================================
#==============================================================================
# ■ Time_byz
#------------------------------------------------------------------------------
# 　定义时间相关的信息。
#==============================================================================
module Time_byz
#--------------初始化定义---------------
# 起始时间 [秒,分,时,日,月, 年]
INIT_TIME = [55,58,23,28,02,2008]
#--------------时间格式定义-------------
# 时间流失方式
# true.. 按帧数的倍数流失；false.. 按现实时间流失
TIME_MODULE = true
#---------------速度定义----------------
# 流失速度(越大速度越慢)
TIME_SPEED = 60
# 流失速度单位
# 1..时；2..分；3..秒
TIME_UNIT = 3
#---------------事件定义----------------
TIME_EVENT = {
# 事件的起始条件就是时间，但是时间的格式要与起始时间的相同。
# 事件使用的是公共事件，为了避免使用太多的公共事件，所以增加变量操作，
# 以便于在相同的公共事件里可以使用条件分歧。
# [秒,分,时,日,月, 年] => [变量ID，变量改变后的值，公共事件ID],
[00,59,23,28,02,2008] => [1, 1, 1],
} # 这个不要去掉
#---------------窗口定义----------------
WINDOW_X = 0
WINDOW_Y = 0
=begin
---------------------------------------
时间间隔的判断
---------------------------------------
1. 首先需要先定义一个计时器
$game_system.set_byz_timer(id)
其中的 id 可以是任何数字，字符串。
2. 然后在需要计算时间间隔的地方使用条件分歧里的脚本，里面可以写上
$game_system.after_time(id) > 5
这里的 id 要和定义的时候一致。这个的意思是时间经过 5秒后.....
=end
end
#==============================================================================
# ■ Game_System
#------------------------------------------------------------------------------
# 　处理系统附属数据的类。也可执行诸如交通工具、 BGM 等管理之类的功能。
# 本类的实例请参考$game_system 。
#==============================================================================
class Game_System
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_accessor :time_now
attr_accessor :byz_timer
attr_accessor :run_time
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
alias old_initialize initialize
def initialize
if Time_byz::TIME_MODULE
year = Time_byz::INIT_TIME[5];
mon = Time_byz::INIT_TIME[4];
day = Time_byz::INIT_TIME[3];
hour = Time_byz::INIT_TIME[2];
min = Time_byz::INIT_TIME[1];
sec = Time_byz::INIT_TIME[0];
@time_now = Time.local(year, mon, day, hour, min, sec);
else
@time_now = Time.new;
end
@byz_timer = [];
@run_time = true;
old_initialize
end
#--------------------------------------------------------------------------
# ● 增加时间
#--------------------------------------------------------------------------
def add_time(unit)
case unit
when 3
@time_now += 1;
when 2
@time_now += 60;
when 1
@time_now += 3600;
end
end
#--------------------------------------------------------------------------
# ● 设定时间计时器
#--------------------------------------------------------------------------
def set_byz_timer(id)
@byz_timer[id] = @time_now;
end
#--------------------------------------------------------------------------
# ● 计算时间（秒数）
#--------------------------------------------------------------------------
def after_time(id)
return 0 if @byz_timer[id] == nil;
return @time_now - @byz_timer[id];
end
#--------------------------------------------------------------------------
# ● 返回时间[秒,分,时,日,月, 年, 星期]
#--------------------------------------------------------------------------
def return_time(type, array_time)
logo = 6;
now_time = [];
loop do
counts_the_power = type /(10 ** logo);
type %= 10 ** logo;
if counts_the_power == 1;
case logo
when 6
times = @time_now.sec;
when 5
times = @time_now.min;
when 4
times = @time_now.hour;
when 3
times = @time_now.mday;
when 2
times = @time_now.mon;
when 1
times = @time_now.year;
when 0
times = @time_now.wday;
end
now_time.push(times);
end
logo -= 1;
break if logo <= 0;
end
return now_time == array_time;
end
#--------------------------------------------------------------------------
# ● 时间设置[秒,分,时,日,月, 年]
#--------------------------------------------------------------------------
def set_times(sec, min, hour, day, mon, year)
@time_now = Time.local(year, mon, day, hour, min, sec);
end
end
#==============================================================================
# ■ Window_Byz_Time
#------------------------------------------------------------------------------
# 　调试画面、个别显示开关及变量的窗口。
#==============================================================================
class Window_Byz_Time < Window_Base
#--------------------------------------------------------------------------
# ● 初始化对像
# x : 窗口 X 座标
# y : 窗口 Y 座标
#--------------------------------------------------------------------------
def initialize(x, y)
super(x, y, 170, 87);
if Time_byz::TIME_MODULE
@time_speed = Time_byz::TIME_SPEED;
else
@time_speed = 60;
end
@time = @time_speed - 1;
refresh;
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
@time += 1;
if @time_speed == @time;
$game_system.add_time(Time_byz::TIME_UNIT) unless $game_system.run_time;
draw_time($game_system.time_now);
event_run;
@time = 0;
end
end
#--------------------------------------------------------------------------
# ● 描绘
#--------------------------------------------------------------------------
def draw_time(time)
self.contents.clear;
text = $game_system.time_now.strftime("%X")
self.contents.draw_text(0, 0, 105, WLH, text, 2);
text = $game_system.time_now.strftime("%Y年%m月%d日");
self.contents.draw_text(0, 32, 170, WLH, text);
end
#--------------------------------------------------------------------------
# ● 启动事件
#--------------------------------------------------------------------------
def event_run
array = ($game_system.time_now.to_a)[0,6];
if Time_byz::TIME_EVENT[array] != nil
unless !$scene.is_a?(Scene_Map) or $game_message.visible or $game_temp.in_battle
variables_id = Time_byz::TIME_EVENT[array][0];
variables_number = Time_byz::TIME_EVENT[array][1];
commonevent_id = Time_byz::TIME_EVENT[array][2];
$game_variables[variables_id] = variables_number;
$game_temp.common_event_id = commonevent_id;
end
end
end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　处理地图画面的类。
#==============================================================================
class Scene_Map < Scene_Base
alias old_start start
#--------------------------------------------------------------------------
# ● 开始处理
#--------------------------------------------------------------------------
def start
old_start;
@time_window = Window_Byz_Time.new(Time_byz::WINDOW_X, Time_byz::WINDOW_Y);
end
alias old_terminate terminate
#--------------------------------------------------------------------------
# ● 结束处理
#--------------------------------------------------------------------------
def terminate
old_terminate;
@time_window.dispose;
end
alias old_update update
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
old_update;
@time_window.refresh;
end
end

复制代码

zhanghao · 发表于 2009-2-7 21:57:24

LS好棒
判断时间脚本没用。怎么回事？
判断时间有什么用啊？能增加睡觉功能吗？想要加上每天的某时某分就触发同一件事，如果可以能加上星期的更好。我想要星期一到星期五触发一件事，星期六和星期天又触发其他的事，能实现吗？

八云紫 · 发表于 2009-2-7 22:01:20

以下引用zhanghao于2009-2-7 13:57:24的发言：

LS好棒
判断时间脚本没用。怎么回事？
判断时间有什么用啊？能增加睡觉功能吗？想要加上每天的某时某分就触发同一件事，如果可以能加上星期的更好。我想要星期一到星期五触发一件事，星期六和星期天又触发其他的事，能实现吗？

没有 RM 无法测试啊，只有按照记忆来写了。

LZ 如果不急的哈，等吾回家后在帮汝写一个完整的吧~~~~

实在是不好意思~~~

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

改下八云紫的时间脚本

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

贵宾

烫烫烫