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);