Try this:
package WordTest
{
	function clientcmdChatMessage(%a,%b,%c,%fmsg,%cp,%name,%cs,%msg)
	{
	Parent::clientcmdChatMessage(%a,%b,%c,%fmsg,%cp,%name,%cs,%msg);
	     switch$(%msg)
	     {
	          case "Hi there":
	          if(%name $= $Pref::Player::NetName)
	          {
	               %wordvar = getWord(%msg, 4);
                       commandToServer('messagesent',"[RedBot]: This " @ %wordvar);
	          }
                  else
                  {
                       commandToServer('messagesent',"dumb");   
                  }
	     }
	}
};
activatePackage(WordTest);Or you could try replacing $Pref::Player::NetName with your name.