on *:TEXT:!setevent*:#:{
  if ($nick isop #) {
    set %event. [ $+ [ $chan ] ] $2-
    notice $nick Event set to: $2-
  }
}
on *:TEXT:!delevent*:#:{
  if ($nick isop #) {
    unset %event. [ $+ [ $chan ] ]
    notice $nick Event deleted
  }
}
on *:TEXT:!event*:#:{ if (%event. [ $+ [ $chan ] ] == $null) { notice $nick There's no Event currently set in $chan | halt }
  notice $nick %event. [ $+ [ $chan ] ]
}