@prog begin.lock.muf
1 9999 d
1 i
: main
     pop loc @ #33 dbcmp not if 1 exit then
     me @ "C" flag? if 1 exit then
     me @ "*I'm-a-guest" prop-exists? if 1 exit then
     me @ "_sex" getpropstr "" stringcmp not
     me @ "@email" prop-exists? me @ "~email" prop-exists? or not
     or if
          me @ ">" notify
          me @ "> As a new player, read below:" notify
          me @ ">" notify
          me @ "_sex" getpropstr "" stringcmp not if
               me @ "> @set me=_sex:male|female|neuter" notify then
          me @ "@email" prop-exists? me @ "~email" prop-exists? or not if
               me @ "> register <email address>" notify then
          me @ ">" notify
          me @ "> You must provide the above information" notify
          me @ "> before you can begin playing the game." notify
          me @ " " notify
          me @ "> It's also strongly recommended that you set" notify
          me @ "> a description using:  @desc me=<desc>." notify
          me @ "me" lock
          0
     else
          1
     then
;
.
c
q