*** This script shifts the wall selection mask to next (right-side) walls.

mov r00 -1
for each wall r00
  getselwall r00 r01
  getwall r00 point2 r02
  setpntb1x r02 r01
continue
mov r00 -1
for each wall r00
  getpntb1x r00 r01
  selectwall r00 r01
continue