@program birthday.muf
1 1000 d
i
$include $lib/alynna
lvar param

: birthday
var x
param @ not if "Format: @birthday MM/DD/YYYY" "Birthday" pretty tellme exit then
param @ "[01][0-9]/[0123][0-9]/[12][0-9][0-9][0-9]" smatch not if "Invalid format. You must set your birthday in the format: MM/DD/YYYY" "Birthday" pretty tellme exit then 
str 
"[!] By the rules set forth in the AUP, the birthdate you entered [" 
param @ "] must be your true date of birth.  If this is, type YES in "
"all capital letters to confirm.  Anything else aborts." 
cat tellme
"Is the birthdate shown above correct?" tellme read x !
x @ "YES" strcmp not if 
 me @ "/@/bday" param @ setprop
 "Confirmed and entered, you will now pass age locks of your age or lesser." tellme
else
 "Aborted." tellme
then
;

: email
var x
param @ not if "Format: @email <user>@<domainname>" "Email" pretty tellme exit then
param @ "*@*" smatch not if "Invalid format.  Must contain an @ sign somewhere." "Email" pretty tellme exit then 
str 
"[!] By the rules set forth in the AUP, the email address you entered [" 
param @ "] must be valid and current.  If this is, type YES in "
"all capital letters to confirm.  Anything else aborts." 
cat tellme
"Is the email shown above correct?" tellme read x !
x @ "YES" strcmp not if 
 me @ "/@/email" param @ setprop
 "Confirmed and entered." tellme
else
 "Aborted." tellme
then
;


: main
param !
command @ tolower case
 "@birthday" smatch when birthday end
 "@email" smatch when email end
endcase
;
.
c
q
@act @birthday;@email=#0,birthday.muf