on *:text:!setevent*:#:{ if ($nick isop $chan) || ($nick ishop $chan) {
    set %site.event4 [ $+ [ $chan ] ] $2-
    msg $chan Event has been set to  $+ $2- for $chan
  } 
}

on *:text:!event*:#:{  
  notice $nick The current event for $chan is: %site.event4 [ $+ [ $chan ] ] 
}

on *:text:!delevent*:#:{ 
  unset %site.event4 [ $+ [ $chan ] ]
  msg $chan Event has been deleted for this channel, type !setevent for new event. 
}

on *:text:!invite*:#:{ if ($nick ishop $chan) || ($nick isop $chan) {
    invite $2 $chan 
  } 
  else { 
    notice $nick sorry you have HalfOP or higher
  } 
}