Mine

on $*:text:/^[!@.]setetp*/Si:#:{ 
  if ($nick ishop $chan || $nick isop $chan) { 
    set %event [ $+ [ $chan ] ] $+($2- $chr(160),$nick,$chr(160),$ctime)
    msg $chan $nick has changed the current events: Please look to see what events are. By using command !event  
    notice $nick the events are set as: $gettok(%event [ $+ [ $chan ] ],1,160)  
  } 

} 
on $*:TEXT:/^[!@.]event/Si:#: { 
  notice $nick $nick the current events for today are: $gettok(%event [ $+ [ $chan ] ],1,160) 
}