Anonymous

chal {
  var %i = 1, %j = 1, %bucket, %bucket1, %bucket2, %bucket3, %bucket4
  if ($$1 == A) { say 3Grupa 12A3:4 #TriviaMax %bucket }
  elseif ($1 == B) { say 3Grupa 12B3:4 #Cellabela %bucket }
  elseif ($1 == C) { say 3Grupa 12C3:4 #Rotrivia %bucket }
  elseif ($1 == D) { say 3Grupa 12D3:4 #Trivi %bucket }
  else {
    %team1 = #StylesOfBeyond
    %team2 = #chance
    %team3 = #seriosii
    %team4 = #idilis2
    %team5 = #oldtimes
    %team6 = #triviasound
    %team7 = #cripta
    %team8 = #futurenet
    %team9 = #cocos_nebun
    %team10 = #icetrivia
    %team11 = #quit
    %team12 = #anarhia
    %team13 = #msg
    %team14 = #triviana
    %team15 = #asterix
    %team16 = #triviuta
    ;%team17 = #Chiul
    ;%team18 = #julio199
    while (%i <= 16) {
      %bucket = %bucket %team [ $+ [ %i ] ]
      inc %i
    }
    %i = 1
    while (%i <= 4) {
      %j = 1
      while (%j <= 4) {
        %r = $rand(1, $numtok(%bucket, 32))
        %bucket [ $+ [ %j ] ] = %bucket [ $+ [ %j ] ] $gettok(%bucket, %r, 32)
        %bucket = $deltok(%bucket, %r, 32)
        inc %j
      }
      inc %i
    }
  }
}