%
% get the reg tree tokens for the next shooter
%
_Clup.Active
{
"&&--- P" log#
}
{
 _Clup.Shooter "Shooters" text?conn
 {
"&&&&&<<< P" log#
  _Clup.RegN *cloudpre
  "*camerclf" *shootcld
  *cloudsuf
  _Clup.RegU *cloudadt
  +:Clup.Shooter
  true !Clup.Active
 }
 {
  0 !Clup.Shooter
 } ifelse
} ifelse