*** This script selects/deselects walls with lengths less than entered value.

// Parameter list begins
mov r98 0 // 0 - deselect, 1 - select
mov r99 32 // Max length
// Parameter list ends
~~~ Default parameters:
~~~ mov r98 0 // 0 - deselect, 1 - select
~~~ mov r99 32 // Max length
deselectvertices
mov r00 -1
for each nonignored wall r00
  getwall r00 point2 r01
  getwall r00 x r10
  getwall r00 y r11
  getwall r01 x r12
  getwall r01 y r13
  sub r12 r10
  sub r13 r11
  hypot r03 r12 r13
  if r03 < r99
    selectwall r00 r98
  endif
continue