NOTANGRY
#define ANGRY(mon) !NOTANGRY(mon)
NOTANGRY(shopkeeper) = 1;
NOTANGRY(shopkeeper) = 1;
if(shkp != shopkeeper && NOTANGRY(shkp)) {
NOTANGRY(shkp) = 1;
NOTANGRY(shopkeeper) = 1;
NOTANGRY(shopkeeper) = 1;