ON *:INPUT:#: {
if ($left($1,1) !== $comchar) && (!$ctrlenter) {
if ($1- == Good morning) { set %last_good_morning $ctime $fulldate }
}
}
alias last_good_morning {
if (!%last_good_morning) { echo -a You did NOT said 'Good morning' yet! }
elseif (%last_good_morning) { echo -a You said 'Good morning' on $gettok(%last_good_morning,2-,32) in $timeago($calc($ctime - $gettok(%last_good_morning,1,32))) . }
}
alias timeago { ; by SReject
if (!$1) { return 0 }
if ($1 !isnum) { return 0 }
var %i = 31557600year, 2592000month, 604800week, 86400day, 3600hour, 60min, 1sec
set -e %_tas $1
var %r = $regsubex($regsubex(%i,/(\d+)([a-z]+)/g, $timeago_temp(\1,\2)),^(?:\b0\D+)+,)
unset %_tas
if ($prop !== all) { var %r = $gettok(%r,1-2,44) }
var %ret = $regsubex(%r,/(?:^|\x2c )\b0[^\x2c]+/g,)
var %ret = $replacex(%ret,years,$chr(32) years,year,$chr(32) year,months,$chr(32) months,month,$chr(32) month,weeks,$chr(32) weeks,week,$chr(32) week,days,$chr(32) days,day,$chr(32) day,hours,$chr(32) hours,hour,$chr(32) hour,mins,$chr(32) minutes,min,$chr(32) minute,secs,$chr(32) seconds,sec,$chr(32) second)
return $iif(%ret,%ret ago,0)
}
alias timeago_temp { ; by SReject
var %r = $floor($calc(%_tas / $1))
dec %_tas $calc(%r * $1)
return %r $+ $iif(%r == 1, $2, $2s)
}