pchat macro

$${

// Bind to onSendChatMessage

IF(%KEYNAME%!="onSendChatMessage")


// Copy and paste the following into the chat filter:

//Chat Filter
      IFMATCHES(%CHATCLEAN%,"^\(");
        IF(!@pchat)
            FILTER()
        ENDIF
      ENDIF
//Chat Filter

ELSE

    STRIP(&chat,%CHAT%)
    IFMATCHES(%&chat%,"^/pchat")
        IFMATCHES(%&chat%,"^/pchat on$")
            SET(@pchat)
            LOG("&6[&4Party&6] &aParty Chat On")
        ELSE
         IFMATCHES(%&chat%,"^/pchat off$")
            UNSET(@pchat)
            ECHO("/p off")
            LOG("&6[&4Party&6] &aParty Chat Off")
         ELSE
            IF(@pchat)
                UNSET(@pchat)
                ECHO("/p off")
                LOG("&6[&4Party&6] &aParty Chat Off")
            ELSE
                SET(@pchat)
                LOG("&6[&4Party&6] &aParty Chat On")
            ENDIF
         ENDIF
        ENDIF
        FILTER
    ENDIF

    IFMATCHES(%&chat%,"\/p\b")
        IF(!@pchat)
            LOG("&6[&4Party&6] &cERROR: &aParty Chat is off.)
        FILTER
        ENDIF
    ENDIF
ENDIF
}$$