on *:TEXT:!setevent *:#: {
  if ($nick isop $chan) {
    set %event $2-
    notice $nick Event are setted to : $2-
    msg $chan $nick are changed the Events , !event to view it.
  }
  else notice $nick Sorry , but only ops can change the topic
}

on *:TEXT:!event:#: {
  if ($nick isreg $chan) notice $nick Sorry you must be a voice or higher
  else notice $nick $+($chr(91),Event,$chr(93)) The event are now : %event
}

on *:TEXT:!clearevent:#: {
  if ($nick isop $chan) {
    unset %event
    msg $chan The event has now been cleared.
  }
  else notice $nick Sorry , but only ops can clear the topic
}