@q @program cmd-pose 1 99999 d i ( Generic Pose v2.0 by Tygryss, modified then rewritten by JaXoN then modified again by Tygryss }=> ... then modified *again* by Jessy, for compatibility with vehicles. ) : generic-pose dup if dup strlen 3 > if dup "'" 1 strncmp not if dup 4 strcut pop " " instr not if " " swap strcat then then then ". ,':!?-" over 1 strcut pop instr not if " " swap strcat then then me @ name swap strcat me @ location over notify me @ location contents begin dup while dup 3 pick notify next repeat pop pop ; . c q