alias todate {
var %month = 11
var %day = 30
var %year = 2015
var %todate = $calc($ctime($+(%day,-,%month,-,%year) 14:00:00) - $ctime)
if (%todate < 0) {
inc %year
%todate = $calc($ctime($+(%day,-,%month,-,%year) 14:00:00) - $ctime)
}
return %todate
}
alias -l fixdate {
if (!$1-) { return }
var %t = $replace($1-,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s)
if (*m* iswm %t) {
var %min = $gettok($gettok(%t,1,109),$numtok($gettok(%t,1,109),32),32)
var %fm = %min $+ m
var %fm2 = 0 $+ %fm
if ($len(%fm2) == 3) {
var %rep = $replace(%t,%fm,%fm2)
var %t = $replace(%t,%t,%rep)
}
}
if (*s* iswm %t) {
var %s = $gettok(%t,$numtok(%t,32),32)
var %t = $puttok(%t,and,$numtok(%t,32),32) %s
}
if (*h* iswm %t) { var %t = $replace(%t,h,h $+ $chr(44)) }
if (%t) { return %t }
elseif (!%t) { return 0 }
}
ON *:TEXT:*stream*:#yznb: {
tokenize 32 $strip($1-)
if ((%floodtest) || ($($+(%,floodtest.,$nick),2))) || (!$2) || (!$3) { return }
set -u30 %floodtest On
set -u60 %floodtest. $+ $nick On
var %d = $duration($todate($2,$3))
if (%d) { var %dur = $fixdate(%d) }
if (%dur) { msg $chan @ $+ $nick Next stream starts in about $+ %dur $+ }
}