%
% look up user id shooter role
%
% stack: user-id
%
 _Rdr.Role @_MroleI=
 {
  @_Rdr++ not ?
%
% check if this users role is shooter
%
  "RoleName" @_Rdr@@ "Shooter" atleft?
  {
   dup !Role
   -7 left !Shooter.Number
   true ?
  } if
 } loop
 @^Rdr//