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

