Welcome, guest! Login / Register - Why register?
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

Your Name: Code Language: