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 | } |