To meander
INITIALMEANDER
DECOY
End

To initialmeander
SetSensor [-100 50 100 -50]
Activate [8 9 10 11]
ST PU
End

To decoy
Local "VALUE
Each [IF CONTACT? WHO [SETPOS [0 0] STOP] [MAKE "VALUE RANDOM 100 FD 14 RT :VALUE * 36]]
DECOY
End

MEANDER
