teambat script

on *:text:!in:#neverused: {
  if (%teambat == on && !$findtok(%teambatp,$nick,32)) {
    set %teambatp %teambatp $nick
    msg # $+ $nick has joined the teambat. Participants: %teambatp $+ .
  }
}
on *:text:!out:#neverused: {
  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 # Neverused 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 # #team1: %team1 $chr(124) #team2: %team2
  unset %team*
}

20:49] Furai: test it please
[20:49] Furai: just a note
[20:49] Furai: the HOST
[20:50] Furai: joins by /in
[20:50] Furai: sorts by /sort
[20:50] Furai: and hosts by /host
20:50] Furai: leaves by /out
[20:50] shnen: huh
[20:50] shnen: what does /host do
[20:50] Furai: start the teambat!!!