*** This script negates texture panning of selected sectors.

// Parameter list begins
mov r96 1 // Negate floorxpanning
mov r97 1 // Negate floorypanning
mov r98 0 // Negate ceilingxpanning
mov r99 0 // Negate ceilingypanning
// Parameter list ends
~~~ Default parameters:
~~~ mov r96 1 // Negate floorxpanning
~~~ mov r97 1 // Negate floorypanning
~~~ mov r98 0 // Negate ceilingxpanning
~~~ mov r99 0 // Negate ceilingypanning
if r96 != 0
  mov r00 -1
  for each selected sector r00
    getsector r00 floorxpanning r01
    neg r01
    setsector r00 floorxpanning r01
  continue
endif
if r97 != 0
  mov r00 -1
  for each selected sector r00
    getsector r00 floorypanning r01
    neg r01
    setsector r00 floorypanning r01
  continue
endif
if r98 != 0
  mov r00 -1
  for each selected sector r00
    getsector r00 ceilingxpanning r01
    neg r01
    setsector r00 ceilingxpanning r01
  continue
endif
if r99 != 0
  mov r00 -1
  for each selected sector r00
    getsector r00 ceilingypanning r01
    neg r01
    setsector r00 ceilingypanning r01
  continue
endif