N@Door Bomb
I@Find Friend FriendDist FindDist Self SelfDist
O@Explode FriendD FindD
schedule(10)
Range=100
Min=Range+20
FriendD=(FriendDist<Min&FriendDist)|(SelfDist<Min&SelfDist)
FindD=FindDist<Range&FindDist

Find&FindD->
!FriendD->Explode=1;
FriendD->Explode=0;
;
!FindD->Explode=0;
!Find&!FindD->Expode=0;