@verb #7171:"real-birthday real_birthday real-bday real_bday birthday bday" any any any rxdo #7407
@program #7171:"real-birthday real_birthday real-bday real_bday birthday bday" any any any
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
player:tell("Okay, ready to set your birthday...")
player:tell("Remember if you mess up, you can always re-run the verb :)")
player:tell("The date is in the format: \"MMM DD hh:mm:ss YYYY TZN\"")
player:tell("For example, Feb 02 16:25:00 1983 PST is a valid date of birth. Sorry it's so confusing...")
date = $command_utils:read("The date you were born, in the format above.")
time = $time_utils:from_ctime(tostr("bla ", date))
if (typeof(time) != $INT)
  return player:tell("Error: ", time)
endif
`add_property(player, "real_bday", 0, {player, "rc"}) ! ANY'
if ($command_utils:yes_or_no(tostr("Is ", ctime(time), " the correct date? ")))
  player.real_bday = time
endif
"Last modified by Dax (#789) on Wed May  4 06:45:17 2005 MDT."
.