on *:text:!setevent*:#: {
  if ($nick isop $chan) {
    writeini -n event.ini event $chan event
    $iif($2 != $null,writeini -n event2.ini reason $chan $2-,writeini -n event2.ini reason $chan N/A)
    msg # 4[14*4Event14*4]14has been set in4 #
  }
}

on *:text:!event:#: {
  if ($readini(event.ini,n,event,$chan)) {
    notice $nick 4[14*4Event14*4]14in5 # 14 is4 $readini(event2.ini,n,reason,$chan)
  }
}

on *:text:@event:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($readini(event.ini,n,event,$chan)) {
      msg # 4[14*4Event14*4]14in5 # 14 is4 $readini(event2.ini,n,reason,$chan)
    }
  }
}

on *:text:!delevent:#: {
  if ($nick isop $chan) {
    remini event.ini event $chan
    remini event2.ini reason $chan 
    msg # 4[14*4Event14*4]14has been deleted in4 #
  }
}