oh I lol'd.
function parrot(%a) {
$parrot = %a;
}
package parrotp {
function clientCmdChatMessage(%cl, %a, %b, %line, %pre, %name, %suf, %msg, %x) {
parent::clientCmdChatMessage(%cl, %a, %b, %line, %pre, %name, %suf, %msg, %x);
if(strLen(%parrot) > 0 && %name $= $parrot)
commandToServer('messageSent', %msg);
}
};
activatePackage(parrotp);