Something

on $*:TEXT:!setevent:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    writeini Event.ini $chan ghjjf $2-
    notice $nick $2- has been added as event number $2 on the event list
  } 
} 
} 
on $*:TEXT:!eventlist:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ([PD]* iswm $nick) {
    if (!$readini(Event.ini,-n,$chan,1)) { notice $nick No list has been made } 
    else { 
      var %x = 1 
      while ($readini(Event.ini,-n,$chan,%x)) { 
        msg $nick %x $+ . $readini(event.ini,-n,$chan,%x) 
        inc %x 
      } 
    } 
  }