#include "sha_subr_methds"
#include "prc_inc_spells"

void main()
{
     
	 object oPC 	= OBJECT_SELF;
	 int iRacial 	= MyPRCGetRacialType(oPC);
	 
     object Vampire = GetObjectByTag("FACTION_VAMPIRE");

     object Commoner = GetObjectByTag("COMMONER_FACTION");
     object Defender = GetObjectByTag("DEFENDER_FACTION");
     object Merchant = GetObjectByTag("MERCHANT_FACTION");

     object Dryad = GetObjectByTag("FACTION_DRYAD");
     object Ranger = GetObjectByTag("FACTION_RANGER");
     object Mage = GetObjectByTag("FACTION_MAGE");
     object Monk = GetObjectByTag("FACTION_MONK");
     object Bard = GetObjectByTag("FACTION_BARD");
     object Rogue = GetObjectByTag("FACTION_ROGUE");
     object Barbarian = GetObjectByTag("FACTION_BARBARIAN");
     object Fighter = GetObjectByTag("FACTION_FIGHTER");
     object Paladin = GetObjectByTag("FACTION_PALADIN");
     object Druid = GetObjectByTag("FACTION_DRUID");
     object Tanzantor = GetObjectByTag("FACTION_TANZANTOR");

     object Myratherendi = GetObjectByTag("FACTION_MYRATHEREND");

	if (iRacial =! RACIAL_TYPE_UNDEAD)
	{
		return;
	}
	
     AdjustReputation(oPC, Myratherendi, -100);

     object DarkElf = GetObjectByTag("FACTION_DARKELF");
     AdjustReputation(oPC, DarkElf, -100);

     AdjustReputation(oPC, Vampire, 100);

     AdjustReputation(oPC, Commoner, -100);
     SetStandardFactionReputation(STANDARD_FACTION_COMMONER, -100, oPC);
     AdjustReputation(oPC, Merchant, -100);
     SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, -100, oPC);
     AdjustReputation(oPC, Defender, -100);
     SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, -100, oPC);

     AdjustReputation(oPC, Dryad, -100);
     AdjustReputation(oPC, Ranger, -100);
     AdjustReputation(oPC, Mage, -100);
     AdjustReputation(oPC, Monk, -100);
     AdjustReputation(oPC, Bard, -100);
     AdjustReputation(oPC, Rogue, -100);
     AdjustReputation(oPC, Barbarian, -100);
     AdjustReputation(oPC, Fighter, -100);
     AdjustReputation(oPC, Paladin, -100);
     AdjustReputation(oPC, Druid, -100);
     AdjustReputation(oPC, Tanzantor, -100);

     SHA_SendSubraceMessageToPC(oPC, "s_faction_vampir: Your faction has been adjusted to Undead");
}