@program #3884
1 1000 d
i
$include $lib/alynna
lvar param
 
: aborted
{
"Aborted.  This script will run again until you complete it."
"Use @ftl to run this script again without reconnecting."
} array_make atellme
;
 
: main
var dob
var email
READ_WANTS_BLANKS
foreground
param !
param @ "reset" smatch if me @ "@/ftl" 0 setprop then
me @ "@/ftl" getprop not if
3 sleep
"First time login script" header tellme
{
"You must do a few simple things before you have a character here."
"This script will bring you through the steps of setting up."
">>> Press ENTER to continue <<<"
} array_make atellme read pop
 
"Acceptable usage policy" header tellme
{
"1)  You must read and accept the Acceptable Usage Policy."
"    Would you like to do this now? (Y/n)"
} array_make atellme read "n*" smatch if aborted exit then
"$help" match "AUP" array_get_proplist atellme
{
">>> Do you agree to the AUP?"
">>> type AGREE to agree to the AUP, anything else will abort."
} array_make atellme read "AGREE" strcmp if aborted exit then
me @ "@aup" "1" setprop
">>> You are set as having agreed to the AUP."
 
"Birthday" header tellme
{
"2)  You must specify your date of birth.  This date of birth must"
"    be given in the form MM/DD/YYYY with leading zeros (07/21/1976)"
"    and MUST be correct.  If you provide a misleading birthdate"
"    you can be removed without warning or second chance."
">>> Please enter your date of birth below in the form MM/DD/YYYY"
} array_make atellme read dup dob ! "[01][0-9]/[0123][0-9]/[12][0-9][0-9][0-9]" smatch not if
  "The birthdate was invalid." tellme aborted exit then
me @ "/@/bday" dob @ setprop
">>> Your birthday is set."
 
"Email" header tellme
{
"3)  You must submit a valid email address.  This will not be"
"    confirmed now but may be at any time in the future.  Please"
"    use @email command if this ever changes from what you are"
"    about to set it to now.  This email address must be the same"
"    for all of your alts."
">>> Please enter a valid email address:"
} array_make atellme read email ! me @ "/@/email" email @ setprop
">>> Your birthday is set."
 
"ANSI Color" header tellme
me @ "COLOR" set
"4)  ^RED^RED^NORMAL^ ^GREEN^GREEN^NORMAL^ ^BLUE^BLUE^NORMAL^" tellme
me @ "!COLOR" set
{
"    If the above text is in color and you prefer to see the world"
"    in living color, answer 'yes' to the question below."
"    If it is not in color, if there are garbage codes like [0m in the"
"    line, or you prefer to see the world in monochrom, answer 'no'."
">>> Do you wish to turn ANSI color on? (Y/n)"
} array_make atellme read "n*" smatch not if 
 me @ "COLOR" set 
  ">>> ^RED^A^GREEN^N^CYAN^S^BLUE^I^NORMAL^ color was turned ^BLINK^^YELLOW^ON^NORMAL^" tellme
 else
  ">>> ANSI color was turned OFF" tellme
 then
 
"Form setup" header tellme
{
"5)  At this time it would be a great idea to enter the editor"
"    and set your gender, species, desc, and other things.  You may"
"    skip doing this at this time by not responding 'yes' to the"
"    following question."
">>> Would you like to enter the form editor to set yourself up?  (Y/n)"
} array_make atellme read "y*" smatch not if 
 ">>> Skipped for now.  Eventually you have to do this though, so dont forget." tellme
 ">>> use 'editplayer' to edit your form information at any time." tellme
else
 "" #144 call
 ">>> Done.." tellme
then
">>> End script.  Use @ftl RESET to run it again." tellme
me @ "@/ftl" 1 setprop
then
;
.
c
q