Age Code

This bit of code is designed to be pasted into a desc, to display age in a vague manner, something more along the lines of what someone might be able to guess by looking at a person.

It is designed for PCs, so, while it works for children under the age of ten, it really only says one thing for that entire time, 'a small child'.

[setq(0,switch(first(age(v(birthsecs))),*0,in [poss(me)] early%b,*1,in [poss(me)] early%b,*2,in [poss(me)] early%b,*3,in [poss(me)] early%b,*4,in [poss(me)] mid-,*5,in [poss(me)] mid-,*6,in [poss(me)] mid-,*7,in [poss(me)] late%b,*8,in [poss(me)] late%b,*9,in [poss(me)] late%b))][switch(first(age(v(birthsecs))),?,a small child,10,a child,11,a child,12,a child,13,a young teen,14,a young teen,15,in [poss(me)] teens,16,in [poss(me)] mid-teens,17,in [poss(me)] mid-teens,18,in [poss(me)] late teens,19,in [poss(me)] late teens,2*,%q0twenties,3*,%q0thirties,4*,%q0forties,[switch(first(age(v(birthsecs))),5*,%q0fifties,6*,%q0sixties,7*,%q0seventies,8*,%q0eighties,9*,%q0nineties,1??,positively ancient,ageless)])]

X'hil