on $*:TEXT:/[@!](set)?event/Si:#:{
  var %disp = $iif($left($1,1) == !,notice $nick,msg $chan)
  if ($right($1,2) == delevent) {
    if ($nick($chan,$nick,oh)) {
      if ($readini(chanevents.ini,events,$chan)) {
        remini chanevents.ini events $chan
        %disp you have removed $chan $+ 's event.
      }
    }
  }
  else {
    if ($right($1,2) == setevent) {
      if ($nick($chan,$nick,oh)) {
        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)
  }
}