alias committurn {
var %players = $gamevalue($1,$2,$3,<,players), %text = $gettok(player1action player2action player3action player4action player5action player6action player7action player8action,$+(1-,%players),32), %order . . . . . . . .
while (%players) {
var %r = $r(1,%players), %order = $puttok(%order,$gettok(%text,%r,32),%players,32), %text = $deltok(%text,%r,32)
dec %players
}
tokenize 32 $1 $2 $3 $gamevalue($1,$2,$3,<,$gettok(%order,1,32)) $gamevalue($1,$2,$3,<,$gettok(%order,2,32)) $gamevalue($1,$2,$3,<,$gettok(%order,3,32)) $gamevalue($1,$2,$3,<,$gettok(%order,4,32)) $gamevalue($1,$2,$3,<,$gettok(%order,5,32)) $gamevalue($1,$2,$3,<,$gettok(%order,6,32)) $gamevalue($1,$2,$3,<,$gettok(%order,7,32)) $gamevalue($1,$2,$3,<,$gettok(%order,8,32))
commitactions $1-
}