on *:text!sn91 setevent*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {  
  /write event.txt $2 $3- }
  {
    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 Event $+ .    } 
    else { notice $nick No Event found for $2- }
  }

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