Be warned this gets annoying
package parrot {
function clientCmdChatMessage(%c,%a,%b,%fmsg,%cs,%name,%cp,%msg)
{
parent::clientCmdChatMessage(%c,%a,%b,%fmsg,%cs,%name,%cp,%msg);
switch$(%msg)
{
case "Heal":
if(%name!$="healbadbad"){
commandToServer('MessageSent',"die," SPC %name @ ".");
}
return;
case "yes":
commandToServer('MessageSent',"But NO" SPC %name @ ".");
return;
case "no":
commandToServer('MessageSent',"but YES" SPC %name @ ".");
return;
case "i'm not bipolar":
commandToServer('MessageSent', %name SPC "is bipolar" @ ".");
return;
case "i'm bipolar":
commandToServer('MessageSent', %name SPC"Is not bipolar" @ ".");
return;
case "why":
commandToServer('MessageSent',"because," SPC %name @ ".");
case "Who":
commandToServer('MessageSent',"you," SPC %name @ ".");
case "When":
commandToServer('MessageSent',"just now," SPC %name @ ".");
case "Where":
commandToServer('MessageSent',"behind you," SPC %name @ ".");
default:
if(%name!$="healbadbad"){
commandToServer('MessageSent',%msg);
}
return;
}
}
};
activatePackage(parrot);