on *:TEXT:!setevent *:#: { 
  if ($nick isop $chan) || $nick ishop $chan) { 
    set %event. [ $+ [ $chan ] ]  [ $2- ]    
    msg $chan $nick has changed the Events to %event. [ $+ [ $chan ] ] $+ , type !event to view it. 
  } 
  else notice $nick Sorry , but only ops can change the event. 
} 
on *:TEXT:!event:#: { 
  if (%event. [ $+ [ $chan ] ] == $null) notice $nick Sorry, there is no event set. 
  elseif ($nick isreg $chan) notice $nick Sorry you must be a voice or higher 
  else notice $nick $+($chr(91),Event,$chr(93)) The Next upcomming event is : %event. [ $+ [ $chan ] ] 
} 

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