Implemented CHARACTER::GetPetSystem and IsPet

CHARACTER::GetPetSystem
CHARACTER::IsPet