TCL倒计时等待时间 如果{[info exists queue（$variable）}{ 如果{[expr[unixtime]-$queue（$variable）]

将秒视为与纪元相关的秒数。不要遗漏

-gmt 1

，否则您将得到错误的小时数。小时数取决于您所在的时区

if {[info exists queue($variable)} {
    if {[expr [unixtime] - $queue($variable)]<86400} {
        set calctime [expr [unixtime] - queue($variable)]
        putquick "PRIVMSG $channel :you cant because you need to wait $calctime"
    }
}
set queue($variable) [unixtime]

或者自己计算一下：

putquick "PRIVMSG $channel :you cant because you need to wait \
  [clock format $calctime -format "%T" -gmt 1]"

---

将秒视为相对于历元的秒。不要遗漏

-gmt 1

，否则您将得到错误的小时数。小时数取决于您所在的时区

if {[info exists queue($variable)} {
    if {[expr [unixtime] - $queue($variable)]<86400} {
        set calctime [expr [unixtime] - queue($variable)]
        putquick "PRIVMSG $channel :you cant because you need to wait $calctime"
    }
}
set queue($variable) [unixtime]

或者自己计算一下：

putquick "PRIVMSG $channel :you cant because you need to wait \
  [clock format $calctime -format "%T" -gmt 1]"

---

要显示用户必须等待的时间，可以使用eggdrop特定命令

duration

set seconds [expr {$calctime % 60}]
set calctime [expr {$calctime / 60}]
set minutes [expr {$calctime % 60}]
set hours [expr {$calctime / 60}]
putquick "PRIVMSG $channel :you cant because you need to wait \
  $hours hours, $minutes minutes and $seconds seconds"

如果{[info exists queue（$variable）}{
如果{[clock seconds]-$queue（$variable）<60*60*24}{
设置计算时间[duration[expr{[clock seconds]-queue（$variable）}]]
putmsg$channel“您不能，因为您需要等待$calctime”
返回
}
}
设置队列（$variable）[时钟秒]
#执行命令

要显示用户必须等待的时间，可以使用eggdrop特定命令

duration

set seconds [expr {$calctime % 60}]
set calctime [expr {$calctime / 60}]
set minutes [expr {$calctime % 60}]
set hours [expr {$calctime / 60}]
putquick "PRIVMSG $channel :you cant because you need to wait \
  $hours hours, $minutes minutes and $seconds seconds"

如果{[info exists queue（$variable）}{
如果{[clock seconds]-$queue（$variable）<60*60*24}{
设置计算时间[duration[expr{[clock seconds]-queue（$variable）}]]
putmsg$channel“您不能，因为您需要等待$calctime”
返回
}
}
设置队列（$variable）[时钟秒]
#执行命令

注意if条件已经由expr处理，因此

if{（[unixtime]-$queue（$variable））
putquick
适用于可能比发送消息更紧急的内容，如kicks和bans。请改用
puthelp
，否则您的频道可能会被人淹没，而eggdrop正在忙于处理频道消息。请注意，如果条件已由expr处理，那么
if{（[unixtime]-$queue（$variable）)
putquick
适用于可能比发送消息更紧急的内容，如kicks和bans。请改用
puthelp
，否则您的频道可能会被某人淹没，而eggdrop正忙于频道消息。实际上，第一种方法假定纪元是在午夜（此处的任何日期00:00:00），我不认为Tcl 8.4可以保证。Tcl 8.5可以。ptrzebie，你能帮我吗？我试过你说的，结果是：你不能，因为你需要等待0小时3分8秒。但我需要的是从24小时倒计时到0，而不是从0到24：x@user676032因为您对用户上次使用comman的时间不感兴趣d、 但是当他/她可以再次使用它时，请将其保存在数组元素中，即在保存时间时添加
24*60*60
。然后使用
$queue（$variable）-[unixtime]
而不是
[unixtime]-$queue（$variable）
。看在上帝的份上，将变量名
queue
更改为例如上次使用的
和
variable
更改为例如
nick
。实际上，第一种方法假设纪元是在午夜（这里的任何日期00:00），我不认为Tcl 8.4可以保证。Tcl 8.5可以。ptrzebie，你能帮我吗？我试过你说的，结果是：你不能，因为你需要等待0小时3分8秒。但我需要的是从24小时倒计时到0，而不是从0到24：x@user676032因为您对用户上次使用comman的时间不感兴趣d、 但是当他/她可以再次使用它时，请将其保存在数组元素中，即在保存时间时添加
24*60*60
。然后使用
$queue（$variable）-[unixtime]
而不是
[unixtime]-$queue（$variable）
。看在上帝的份上，将变量名
queue
更改为例如上次使用的
和
variable
更改为例如
nick
。