%
% MMS_3524436787_20210502_140035_0_A_1_6_312048656C6C6F.jpg
% verf  subj   date   time seq twi prod sms-body
%
% this was an SMS
%
_Sms.To -2 left !Shooter.Sms
"Twid\MMS_"
_Shooter.Subject
dup !Subject
&
Time.Now Time.FullOrder &
&"_"
false !Shooter.ValidCap
%
% stack: new-mms-prefix
%
*smsdecod

%
% stack: new-mms-prefix body-text
%

*twiphsnd
dup !Shooter.AdjCap

*custxcap
%
% stack: new-mms-pefix adj-caption
%
trim
!Shooter.Caption
_Shooter.ValidCap
"smsvalcap" log)(
%
% stack: new-mms-pefix valid-cap
%
{
%
% valid format for SMS, respond with ack SMS
%
 &_Shooter.Tem
 &"_"
 _Twi
%
% indicate no background with lower case twi route
%
 lower &
 &"_" &_Shooter.Color
 &"_" &_Shooter.ProdType
 &"_"
 _Shooter.Caption
 60 left asc2hex &
 jpg
 ofconn
 -1 left ^"c"
 "Tem0.jpg" oftem exch copyfile
 "Thanks for trying Text My Name
We received your lettering request and will send you a custom Photo Creation shortly . . ."
"cvnm" log)(
 "L2" !Customer.Mailer
 *twilrcvd

}
{
"sendchoose" log)(
 pop
/*
 _Twi upper?
 {
%
% mms image sent, caption was not valid, defaults to template D
%
  *xactumm
 }
 {
*/
%
% send this Twilio channels selection menu
%
 "Please select font and color, reply to this number.
For the picture fonts, only need to send the letter,
followed by your caption text, like:   c Those Clowns
Example: reply with   h8 Text Caption   for the
script font in light blue.
Example: reply with   c My Name  for the clown picture font.
" !Customer.Message
 "C1" !Customer.Mailer
 "ThChoose" *custvirz
"after choose" log)(
/*
 } ifelse
*/
} ifelse