on $*:TEXT:/[@!](set)?event/Si:#:{
  var %disp = $iif($left($1,1) == !,notice $nick,msg $chan)
  if ($right($1,2) == setevent) {
    if ((!$readini(chanevents.ini,events,$chan)) && ($2)) {
      writeini chanevents.ini events $chan $2-
      %disp new event set for $chan $+ !!!
    }
    else %disp there is already an event set for $chan $+ .
  }
  else %disp $iif($readini(chanevents.ini,events,$chan),event for $chan $+ : $v1,there is no event set for $chan)
}