*** This script assigns random panning tags to selected walls.

// Parameter list begins
mov r98 0 // Randomize xpanning
mov r99 1 // Randomize ypanning
// Parameter list ends
~~~ Default parameters:
~~~ mov r98 0 // Randomize xpanning
~~~ mov r99 1 // Randomize ypanning
mov r00 -1
for each selected wall r00
  if r98 != 0
    rnd r01 // Get random value
    and r01 2147483647 // Only positive values
    div r01 8388608 // Take 8 major bits to provide random behavior
    setwall r00 xpanning r01
  endif
  if r99 != 0
    rnd r01 // Get random value
    and r01 2147483647 // Only positive values
    div r01 8388608 // Take 8 major bits to provide random behavior
    setwall r00 ypanning r01
  endif
continue