on *:text:!setevent*:#:{ if ($nick isop #) || ($nick ishop #) {
    if (!$2-) { halt }
    else { set %event. $+ # $2-
      notice $nick # $+ 's event set to $($+(%event.,#),2-)
    }
  }
}
on $*:text:!event*:#:{ if (!$($+(%event.,#),2-)) notice $nick No event is set.
  else { notice %nick $($+(%event.,#),2-)
  }
}