@program cmd-pose.muf
1 1000 d
i
(
  Generic Pose v2.0
  by Tygryss, modified then rewritten by JaXoN
  then modified again by Tygryss }=>
  and modified a third time by Loxorion
)
$include $lib/alynna

: 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 #-1 rot 
  me @ "_say/color" getprop dup if "^" swap "^" strcat strcat swap strcat "^ ^" strcat else pop then
  ansi_notify_except
;
.
c
q

@program cmd-say.muf
1 1000 d
i
(
  Generic Say with color support v2.0
  by Alynna
)
$include $lib/alynna

: generic-say
var! param
{
 me @ "_say/color" getprop dup if "^" swap "^" strcat strcat else pop then
 "You "
 me @ "_say/def/say" getprop dup not if pop "say" then
 ", \"" param @ "\"^NORMAL^"
}tell
{
 me @ "_say/color" getprop dup if "^" swap "^" strcat strcat else pop then
 me @ name
 " "
 me @ "_say/def/osay" getprop dup not if pop "says" then
 ", \"" param @ "\"^NORMAL^"
}otell
;
.
c
q