ON *:text:!setevent:#:{ 
  if ($nick == isop) 
  set %event [ $+ [ $chan ] ] $2-
  notice $nick 4The event for $chan has been set to:12 $2-
  msg $chan 14[[7-Event-14]]: 12There is a new event for $chan $+ !! Use the !event command to check it out! 
} 

ON $*:TEXT:/^[!@event](event)/Si:#:{  
  inc %eventcounter
  if ($1 == @event) { msg $chan 14[[7-Event-14]]: 12The event for $chan is:4 %event
  }
  else { notice $nick 4The event is:12 %event [ $+ [ $chan ] ] 4This event command has been used7 %eventcounter 4times! 
  } 
}