function CheckPetLimit(who)
    var conf := ReadConfigFile("::npcdesc");
    var pets := GetObjProperty(who, "Pets");
    var newpets := {};
    foreach char in pets
        char := SystemFindObjectBySerial(char);
        if(char.script == "tamed" && GetObjProperty(char, "master") == who.serial)
            newpets.append(char.serial);
        endif
    endforeach
    if(newpets.size() >= 2)
      return 1;
    endif
    return 0;
endfunction