Returns whether the specified mobile has the ISPET act2 flag set on it.
if(is_pet(bearer(%o)), msg_room(room(%o),'Bearer of Object is a pet!'), msg_room(room(%o),'Bearer of Object is NOT a pet!') ) @