Miscellany

on $*:text:/^[!@](event)/Si:#:{
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  %output The current event is: %news. [ $+ [ $chan ] ] $+ , Set by %eventnick. [ $+ [ $chan ] ] $+ . When: $duration($calc($ctime - $eval($+(%,dated.,$chan),2))) ago.
}
on *:text:!setevent*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %news. [ $+ [ $chan ] ] $2-
    set %dated. [ $+ [ $chan ] ] $ctime
    set %eventnick. [ $+ [ $chan ] ] $nick
    msg $chan new event set by $nick $+ , type !event to see it!
  }
  else notice $nick op or hop only.
}