void set_bp(int amt) {
   if(this_object()->query_race() != "vampire") return;
   if(amt+query_bp() > query_max_bp()) player_data["general"]["bp"]=query_max_bp();
   player_data["general"]["bp"] += amt;
}

int query_bp() { 
   if(this_object()->query_race() != "vampire") return 0;
   return player_data["general"]["bp"]; 
}

int query_max_bp() {
   if(this_object()->query_race() != "vampire") return 0;
   
}

