on $*:TEXT:/^[@!](set|add)event/Si:#:{ 
  if (!$isdate($2)) { notice $nick You need a date. | halt }
  if (!$3) { notice $nick You need a time. | halt }
  if (!$4) { notice $nick You need to call the event something. | halt }
  if (!$5) { notice $nick You need a description about the event. | halt }
  if ($nick !isop #) { notice $nick You must be op in #BsK to set an event. | halt }
  if ($nick isop #) && ($isdate($2)) { notice $nick New event " $+ $4 $+ " set for $2 $3 $+ . | $iif(%eventno, inc %eventno, set %eventno 2) | set %event [ $+ [ %eventno ] ] $2- | halt }
}

on *:TEXT:!addmember*:#:{ if ($nick isop #bsk) { set %members %members $2- | notice $nick Member(s) $2- added. | halt } }

on $*:TEXT:/^[!@]event/Si:#:{ if ($nick isin %members) && ($isdate($2)) { 
    set %x 1
    while (%x <= %eventno) {
      if ($gettok(%event [ $+ [ %x ] ],3,32) == $2) {
        notice $nick 1Information for 4 $+ $gettok(%event [ $+ [ %x ] ],2,32) $+ 01: Date: 04 $+ $gettok(%event [ $+ [ %x ] ],1,32) 01Time 04 $+ $gettok(%event [ $+ [ %x ] ],2,32) 01Description 04 $+ $gettok(%event [ $+ [ %x ] ],4-,32)
      }
      inc %x
    }
  }
  else { notice $nick You are not a BsK Member. | halt }
}

alias isdate return $iif($regex($1,/\d?\d\/\d?\d\/\d\d\d\d/),$true,$false)