Anonymous

on *:text:!setevent*:#: {
  if ($nick isop $chan) {
    if 
    inc %event.inc
    set %event $replace($2,-,$chr(32))
    set %enoticer $nick
    msg $chan 14An event has been updated! Type 12!event14 to see it!
    if (-t isin $3-) {
      if (-w isin $3) {
        set %etime $remove($4-,-t)
        set %eworld $remove($3,-w)
      }
      else set %etime $remove($3-,-t)
    }
    else set %etime $time
  }
  elseif ($nick !isop $chan) {
    Notice $nick 14You can't use this command with your 12status.
  }
}

on $*:text:/^[!@](event|events)/Si:#: {
  notice $nick 14< Event >12 %event $iif(%eworld, 14< World >12 %eworld) 14< Set By:12 %enoticer 14> < Time:12 %etime 14>
}