SHOW:
|
|
- or go back to the newest paste.
| 1 | - | alias teambath <Omicron Birkal mostwanted lust ala> |
| 1 | + | alias teambath Charmander Omicron Birkal mostwanted lust ala |
| 2 | - | on *:text:!teambat:#: { |
| 2 | + | on *:text:!teambat:#: {
|
| 3 | - | if (($nick isop # || $findtok($teambath,$nick,32)) && !%teambat) { |
| 3 | + | if (($nick isop # || $findtok($teambath,$nick,32)) && !%teambat) {
|
| 4 | - | set %teambat on |
| 4 | + | set %teambat on |
| 5 | - | msg # Teambat has started. Type !in to participate. |
| 5 | + | msg # Teambat has started. Type !in to participate. |
| 6 | - | } |
| 6 | + | } |
| 7 | elseif (%teambat == on) msg # There is already a teambat running. Type !sort to reset the script. | |
| 8 | - | on *:text:!in:#: { |
| 8 | + | } |
| 9 | - | if (%teambat == on && !$findtok(%teambatp,$nick,32)) { |
| 9 | + | on *:text:!in:#: {
|
| 10 | - | set %teambatp %teambatp $nick |
| 10 | + | if (%teambat == on && !$findtok(%teambatp,$nick,32)) {
|
| 11 | - | msg # $nick has joined the teambat. Participants: %teambatp $+ . |
| 11 | + | set %teambatp %teambatp $nick |
| 12 | - | } |
| 12 | + | msg # $nick has joined the teambat. Participants: %teambatp $+ . |
| 13 | } | |
| 14 | - | on *:text:!out:#: { |
| 14 | + | } |
| 15 | - | if ($findtok(%teambatp,$nick,32)) { |
| 15 | + | on *:text:!out:#: {
|
| 16 | - | set %teambatp $deltok(%teambatp,$findtok(%teambatp,$nick,32),32) |
| 16 | + | if ($findtok(%teambatp,$nick,32)) {
|
| 17 | - | msg # $nick has left the teambat. Participants: %teambatp $+ . |
| 17 | + | set %teambatp $deltok(%teambatp,$findtok(%teambatp,$nick,32),32) |
| 18 | - | } |
| 18 | + | msg # $nick has left the teambat. Participants: %teambatp $+ . |
| 19 | } | |
| 20 | - | on *:text:!sort:#: { |
| 20 | + | } |
| 21 | - | if (($nick isop # || $findtok($teambath,$nick,32)) && %teambat == on) { |
| 21 | + | on *:text:!sort:#: {
|
| 22 | - | set %teambatn $round($calc($numtok(%teambatp,32)/2),0) |
| 22 | + | if (($nick isop # || $findtok($teambath,$nick,32)) && %teambat == on) {
|
| 23 | - | set %teambatc 1 |
| 23 | + | set %teambatn $round($calc($numtok(%teambatp,32)/2),0) |
| 24 | - | while (%teambatc <= %teambatn) { |
| 24 | + | set %teambatc 1 |
| 25 | - | set %team1t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32) |
| 25 | + | while (%teambatc <= %teambatn) {
|
| 26 | - | set %team1 %team1 %team1t |
| 26 | + | set %team1t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32) |
| 27 | - | set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team1t,32),32) |
| 27 | + | set %team1 %team1 %team1t |
| 28 | - | set %team2t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32) |
| 28 | + | set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team1t,32),32) |
| 29 | - | set %team2 %team2 %team2t |
| 29 | + | set %team2t $gettok(%teambatp,$r(1,$numtok(%teambatp,32)),32) |
| 30 | - | set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team2t,32),32) |
| 30 | + | set %team2 %team2 %team2t |
| 31 | - | inc %teambatc |
| 31 | + | set %teambatp $deltok(%teambatp,$findtok(%teambatp,%team2t,32),32) |
| 32 | - | } |
| 32 | + | inc %teambatc |
| 33 | - | msg # Team 1: %team1 $chr(124) Team 2: %team2 |
| 33 | + | } |
| 34 | - | unset %team* |
| 34 | + | msg # Team 1: %team1 $chr(124) Team 2: %team2 |
| 35 | - | } |
| 35 | + | unset %team* |
| 36 | } | |
| 37 | } |
