$BrazilianLaws[0] = "br?";
$BrazilianLaws[1] = "uma delicia";
$BrazilianLaws[2] = "kool kids klubkool kids klubkk";
$BrazilianLaws[3] = "come to brazil";
$BrazilianLaws[4] = "ooo oo ah ahh";
$BrazilianLawCount = 5;
function serverCmdBrazil(%client, %n1, %n2, %n3, %n4, %n5, %n6) {
if (!%client.isAdmin) return;
%name = trim(%n1 SPC %n2 SPC %n3 SPC %n4 SPC %n5 SPC %n6);
if (isObject(%target = findClientByName(%name))) {
%target.isBrazilian = true;
}
}
function serverCmdBR(%client, %n1, %n2, %n3, %n4, %n5, %n6) {
serverCmdBrazil(%client, %n1, %n2, %n3, %n4, %n5, %n6);
}
package SopaDeMacaco {
function serverCmdMessageSent(%client, %text) {
if (%client.isBrazilian)
%text = $BrazilianLaws[getRandom(0, $BrazilianLawCount-1)];
Parent::serverCmdMessageSent(%client, %text);
}
};
activatePackage(SopaDeMacaco);