*** Use this script to fix incorrect shading of bottom parts of walls shaded automatically.

mov r00 -1
for each selected wall r00
  getwall r00 nextwall r01
  if r01 >= 0
    getwall r01 shade r02
    setwall r00 shade r02
  endif
continue