on $*:text:/^[!@]setcountdown/Si:#: { 
  if ( $nick($chan,$nick,oh) ) {  
    set %cd.time $2 
    set %cd.event $3-
  set %cd.on on }
  else { //notice $nick You need half-op plus to do that command! }
}

on $*:text:/^[@!]countdown/Si:#: { 
  if ( %cd.on ) {  
    set %cd1.method $iif($left($1,1) == @, //msg $chan, //notice $nick)
  %cd1.method The event for $chan is currently: $c1(%cd.event) in $c2($duration($calc($ctime - $ctime($date %cd.time)))) | unset cd1.* | halt }
  else { %cd1.method There is currently no event set for $c3($chan) $+ ! | unset cd1.* | halt }
}

on $*:text:/^[@!]del(ete)?countdown/Si:#: { 
  if ( $nick($chan,$nick,oh) ) { unset cd.* | //notice $nick Event has been unset for $chan | halt }
  else { notice $nick You need halfop + do use that command! }
}