on *:text:!in:#ubers: {
  if (%teambat == on && !$findtok(%teambatp,$nick,32)) {
    set %teambatp %teambatp $nick
    msg # $nick has joined the teambat. Participants: %teambatp $+ .
  }
}
on *:text:!out:#ubers: {
  if ($findtok(%teambatp,$nick,32)) {
    set %teambatp $deltok(%teambatp,$findtok(%teambatp,$nick,32),32)
    msg # $nick has left the teambat. Participants: %teambatp $+ .
  }
}
alias teambat {
  set %teambat on
  msg # Teambat has started. Type !in to participate.
}
alias in {
  set %teambatp %teambatp $me
  msg # $me has joined the teambat. Participants: %teambatp $+ .
}
alias out {
  set %teambatp $deltok(%teambatp,$findtok(%teambatp,$me,32),32)
  msg # $me has left the teambat. Participants: %teambatp $+ .
}
alias sort {
  set %teambatn $round($calc($numtok(%teambatp,32)/2),0)
  set %teambatc 1
  while (%teambatc <= %teambatn) {
    set %team1t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32)
    set %team1 %team1 %team1t
    set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team1t,32),32)
    set %team2t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32)
    set %team2 %team2 %team2t
    set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team2t,32),32)
    inc %teambatc
  }
  msg # Team 1: %team1 $chr(124) Team 2: %team2
  unset %team*
}