on *:TEXT:!setevent:#:{ 
  if ($nick isop $chan) {
  set %event [ $+ [ $chan ] ] $2-
  notice $nick 4The event for $chan has been set to:12 $2-
  msg # 14[[7-Event-14]]: 12There is a new event for # $+ !! Use the !event command to check it out! 
} 
on $*:TEXT:/^[!@]event/Si:#:{  
if (%event [ $+ [ $chan ] ]) {
$iif(@* iswm $1,msg #,notice $nick) 14[[7-Event-14]]: 12The event for $chan is:4 %event [ $+ [ $chan ] ]
}
else notice $nick No event set for # $iif($nick isop $chan,Type !setevent to set one)
}