on *:text:!event*:#:{
  if ($nick isreg $chan) { HALT }
  if ($read(event.txt,s,$2-)) {
    notice $nick The Event for $2- $ifmatch
  } 
  else { notice $nick No Event found for $2- }
}

on *:text:!sn91 setevent*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {  
  /write event.txt $3 $4- }
  {
    msg $chan New Event Set! Type ! or @event to see!
  }

  on *:text:!event*:#:{
    if ($nick isreg $chan) { HALT }
    if ($read(event.txt,s,$2-)) {
      notice $nick The Event for $2- $ifmatch
    } 
    else { notice $nick No Event found for $2- }
  }