split players into two diffrent teams (variables)

[Cristian]

This script will split $1- into two diffrent teams %terrorist and %counter-terrorist
fx.

Code: Select all

/mixplayers nickname1 nickname2 nickname3 nickname4

I hope you can use it.

Code: Select all

alias mixplayers {
  var %players = $1-
  var %x = $numtok($1-,32)
  var %ct 
  var %t 
  var %used 

  while ($numtok(%ct %t,32) < %x) {
    var %r = $r(1,%x)
    if (!$istok(%used,%r,32)) {
      var %player = $gettok($1-,%r,32)
      if (2 // %r) { var %ct = $addtok(%ct,%player,32) }
      else { var %t = $addtok(%t,%player,32) }
      var %used = $addtok(%used,%r,32)
    }
  }
  set %terrorist %t
  set %counter-terrorist %ct
}

[Cristian]

Just another example to split multiple tokens into 2 variables.

Code: Select all

alias mixplayers {
  var %players = $1-
  var %totalPlayers = $numtok($1-,32)

  var %team.1 
  var %team.2

  var %totalTeams = $var(%team.*,0)
  var %used 

  while ($numtok(%team.1 %team.2,32) < %totalPlayers) {
    var %r = $r(1,%totalPlayers)
    var %r2 = $r(1,%totalTeams)
    if (!$istok(%used,%r,32)) {
      var %player = $gettok($1-,%r,32)
      if ($numtok($eval($var(%team.*,%r2),2),32) < $calc(%totalPlayers /2)) {
        set $var(%team.*,%r2) $eval($var(%team.*,%r2),2) %player
        var %used = $addtok(%used,%r,32)
      }
    }
  }
  set %terrorist %team.1
  set %counter-terrorist %team.2
}