Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Perl by adasd ( 15 years ago )
alias unpick.player {
if ($1 != random) {
elseif (!$matchtok(%c.playerpool,%u,0,32)) {
notice $nick No users found
return
}
elseif ($matchtok(%c.playerpool,%u,1,32)) {
var %u = $ifmatch
}
var %who = $pick.whopick(%c.challpickround)
if (%who == 1) {
set %c.sentinel $addtok(%c.sentinel,%u,32)
}
elseif (%who == 2) {
set %c.scourge $addtok(%c.scourge,%u,32)
}
set %c.playerpool $remtok(%c.playerpool,%u,1,32)
if ($nauth(%u)) { mode %ch -v $ifmatch }
if (%c.challpickround < 8) {
describe %ch $usercolor($($+(%,c.picker,%who),2)) has $iif($1 != random,picked,randomized) $usercolor(%u) $+ ! $usercolor($($+(%,c.picker,$pick.whopick($calc(%c.challpickround - 1))),2)) $+ 's turn to pick. Total picked3 $calc($numtok(%c.scourge,32) + $numtok(%c.sentinel,32)) $+ / $+ 10
timerrandom.pick 1 60 pick.player random
}
}
Revise this Paste