on $*:TEXT:/^[!.@]setevent*:#experts: {
  if ($nick isop $chan || $nick ishop $chan) {
    set %event $2
    set %etime $3
    set %stime $gmt(HH:nn:ss)
    set %date $date
    set %plnr $nick
    /timeretime 60 0 set %etime $calc(%etime - 1)
    /timerevent 60 0 %eloop
    notice $nick Clan event set to::. %event ::. Set by::. %plnr ::. Set at::. %stime ::. Held at::. %etime ::. On::. %date ::.
    msg $chan New Clan event set! To check it, hit !event.
  }
}

on $*:TEXT:/^[!.@]event*:#experts: {
  if ($nick isop $chan || $nick ishop $chan) {
    if (%event) {
      $iif(($left($1,1) == @) && ($nick isop || $nick ishop $chan),set %modes msg $chan,set %modes notice $nick) {
        %modes 14Clan event set to11::.12 %event 11::.14 Set by11::.12 %plnr 11::.14 Set at11::.12 %stime 11::.14 Held at11::.12 %etime 11::.14 On11::.12 %date 11::.
      }
    }
    else { 
      %modes There is no Clan even set yet. Have an Op or Halfop set one.
    }
  }
}

on $*:TEXT:/^[!.@]check*:#experts: {
  if (%event) {
    $iif(($left($1,1) == @) && ($nick isop || $nick ishop $chan),set %modes msg $chan,set %modes notice $nick) {
      %modes The Clan event::. %event ::. is set to be in::. %etime ::. Minutes::.
    }
  }
}

on $*:TEXT:/^[!.@]announce*:#experts: {
  if ($nick isop $chan || $nick ishop $chan) {
    if (%event) {
      set %laspe $calc(%ctime - %etime)
      msg $chan 14Clan event11::.12 %event 11::.14 Will be starting in12 $calc(%laspe / 60) 14Minutes! Join12 #XP-EVENT 14to come!
    }
  }
}