%
% absorb texts directed to shooter sms
%
% stack: shooter-sms-phone
%
&"_" _Arching.TwidSpec "??????????_" slice ^3)
dup log#
!wilder
ofconn
empty
{
 nextfile ?
"nextsms" log)(
 filed !Sms.Filed
 "_MM" found? !Sms.MM
 reading
 dup !Sms.Raw
%
% sms message analysis
%
 "From" elem( !Sms.From
 "To" elem( !Sms.To
 "Body" elem( !Sms.Body
 pop

/*
 "Message" elem$
 basenow *ymlxsurr
 "Sms" web!
*/

_Arching.ServName
<
|Aamg

 _Sms.To
"smsmonab" log)(
 <
 | "A" !Twi _Arching.TwiNumberA eq$ | *twilshot
 | "B" !Twi _Arching.TwiNumberB eq$ | *twilshot
 | "C" !Twi _Arching.TwiNumberC eq$ | *twilshot
 | "D" !Twi _Arching.TwiNumberD eq$ | *twilshot
 | "E" !Twi _Arching.TwiNumberE eq$ | *twilshot
 | "F" !Twi _Arching.TwiNumberF eq$ | *twilshot
 | "G" !Twi _Arching.TwiNumberG eq$ | *twilshot
 | "H" !Twi _Arching.TwiNumberH eq$ | *twilshot
 | "I" !Twi _Arching.TwiNumberI eq$ | *twilshot
 > not
 {
%
% this number was not a valid target
%
 } if

> pop

"smsmonz" &_Twi.Error log)(
 _Twi.Error
 {
  _Sms.Filed asc2hex dup _ zeronull + dup rot !
  5 gt
  {
   "(*(*(MMS ERROR)*)*)" log)(
   finaled
  } if
 }
 {
  finaled
 } ifelse
} loop
filing)