%
% get the next sms message for the next shooter
%

0 !mcounter
/*

_Clut.Shooter "Shooters" text?conn
"smsrpushb" log)(
{
%
% has the shooter reported a startup
%
 _Shooter.Number
_Aamg.Startups log)(
 <_Aamg.Startups>
"smsrpushc" log)(
%
% don't check shooters
%
 false and
 {
%
% startup was reported, get the user id of the shooter
% has a proper startup in this server session
%
  _RoleUserGuid *shootusr
"shootusr" log)(
  {
   *custshtx
   _Aamg.Pushing
"smsrpushd" log)(
   {
"&&&&&<<< T" log#
%
% now we are engaged in an fcm push action
%
    true !Clut.Active
    0 !Clut.Waiter
    true
   }
   {
%
% no push notification occurred
%
%%%"&&&&&-- T" log#
%
    false !Clut.Active
    +:Clut.Shooter
    false
   } ifelse
  }
  {
%
% no user guid
%
%
   +:Clut.Shooter
   false
  } ifelse
 }
 {
%
% not started yet in this server process
%
  +:Clut.Shooter
  false
 } ifelse
}
{

%
% shooter does not exist, reset back to first shooter
%
 0 !Clut.Shooter
 true
} ifelse

*/

true
%
% stack: exit-cycle
%