View difference between Paste ID: A9qESqh2 and yM1wUiDG
SHOW: | | - or go back to the newest paste.
1-
alias teambath <THESE ARE THE USERS WHO CAN START TEAMBATS AND AREN'T AOPS OR HIGHER. NAMES ARE SEPARATED BY A SPACE>
1+
alias teambath Charmander
2
on *:text:!teambat:#: {
3-
  if (($nick isop # || $findtok($teambath,$nick,32)) && !%teambat) {
3+
  if (($nick isop # || $nick ishop # || $findtok($teambath,$nick,32)) && !%teambat) {
4
    set %teambat on
5
    msg # Teambat has started. Type !in to participate.
6
  }
7
}
8
on *:text:!in:#: {
9
  if (%teambat == on && !$findtok(%teambatp,$nick,32)) {
10
    set %teambatp %teambatp $nick
11
    msg # $nick has joined the teambat. Participants: %teambatp $+ .
12
  }
13
}
14
on *:text:!out:#: {
15
  if ($findtok(%teambatp,$nick,32)) {
16
    set %teambatp $deltok(%teambatp,$findtok(%teambatp,$nick,32),32)
17
    msg # $nick has left the teambat. Participants: %teambatp $+ .
18
  }
19
}
20
on *:text:!sort:#: {
21-
  if (($nick isop # || $findtok($teambath,$nick,32)) && %teambat == on) {
21+
  if (($nick isop # || $nick ishop # || $findtok($teambath,$nick,32)) && %teambat == on) {
22
    set %teambatn $round($calc($numtok(%teambatp,32)/2),0)
23
    set %teambatc 1
24
    while (%teambatc <= %teambatn) {
25
      set %team1t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32)
26
      set %team1 %team1 %team1t
27
      set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team1t,32),32)
28
      set %team2t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32)
29
      set %team2 %team2 %team2t
30
      set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team2t,32),32)
31
      inc %teambatc
32
    }
33
    msg # Team 1: %team1 $chr(124) Team 2: %team2
34
    unset %team*
35
  }
36
}