HI I'M MAKING A CHATBOT PLZ HELP ME MY CODE IS NOT WORKING
PACKAGE CHATBOAT
{
FUNCTION NHM_TYPE::SEND(%THIS)
{
IF GETSUBSTR(%THIS.VALUE, 0, 6) $= "BOT SAY")
{
COMMANDTOSERVER("MESSAGESENT","BOT: ",GETSUBSTR(%THIS.VALUE , 6,STRLEN(%THIS.VALUE)));
}
ELSE IF(%THIS.VALUE, 0, 6) $= "BOT ADD")
{
COMMANDTOSERVER("MESSAGESENT","BOT: ", EVAL(%THIS));
}
ELSE IF(%THIS.VALUE, 0, 6) $= "BOT GREET")
{
SAYHI();
}
ELSE IF(%THIS.VALUE, 0, 6) $= "BOT POOP")
{
POOP();
}
ELSE
{
PARENT FUNCTION NHM_TYPE::SEND(%THIS);
}
}
};
ACTIVATEPACKAGE(CHATBOAT);