steamroll sux

alias teambath Charmander
on *:text:!teambat:#: {
  if (($nick isop # || $nick ishop # || $findtok($teambath,$nick,32)) && !%teambat) {
    set %teambat on
    msg # Teambat has started. Type !in to participate.
  }
}
on *:text:!in:#: {
  if (%teambat == on && !$findtok(%teambatp,$nick,32)) {
    set %teambatp %teambatp $nick
    msg # $nick has joined the teambat. Participants: %teambatp $+ .
  }
}
on *:text:!out:#: {
  if ($findtok(%teambatp,$nick,32)) {
    set %teambatp $deltok(%teambatp,$findtok(%teambatp,$nick,32),32)
    msg # $nick has left the teambat. Participants: %teambatp $+ .
  }
}
on *:text:!sort:#: {
  if (($nick isop # || $nick ishop # || $findtok($teambath,$nick,32)) && %teambat == on) {
    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*
  }
}