@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