/*   Script generated by
Lilac Soul's NWN Script Generator, v. 1.2

For download info, please visit:
http://www.angelfire.com/space/lilacsoul    */
#include "prc_inc_racial"

//Put this OnOpen
void main()
{

object oPC = GetLastOpenedBy();

int iArcane	= GetLevelByClass(CLASS_TYPE_WIZARD, oPC)
			+ GetLevelByClass(CLASS_TYPE_SORCERER, oPC)
			+ GetLevelByClass(CLASS_TYPE_DRAGONFIRE_ADEPT, oPC)
			+ GetLevelByClass(CLASS_TYPE_DRAGON_SHAMAN, oPC)			
			+ GetLevelByClass(CLASS_TYPE_DREAD_NECROMANCER, oPC)
			+ GetLevelByClass(CLASS_TYPE_BEGUILER, oPC)
			+ GetLevelByClass(CLASS_TYPE_SHADOWCASTER, oPC)
			+ GetLevelByClass(CLASS_TYPE_WARMAGE, oPC)
			+ GetLevelByClass(CLASS_TYPE_BINDER, oPC)
			+ GetLevelByClass(CLASS_TYPE_TRUENAMER, oPC)			
			+ GetLevelByClass(CLASS_TYPE_WARLOCK, oPC);		

if (!GetIsPC(oPC)) return;

if (GetItemPossessedBy(oPC, "BloodGem")== OBJECT_INVALID)
   return;

	if (iArcane == 0)
		return;
	
/* if (!(GetClassByPosition(1, oPC) == CLASS_TYPE_SORCERER | CLASS_TYPE_WIZARD ||
      GetClassByPosition(2, oPC) == CLASS_TYPE_SORCERER | CLASS_TYPE_WIZARD ||
      GetClassByPosition(3, oPC) == CLASS_TYPE_SORCERER | CLASS_TYPE_WIZARD))
   return; */

if (!(MyPRCGetRacialType(oPC) == RACIAL_TYPE_HUMAN))
   return;

object oItem;
oItem = GetItemPossessedBy(oPC, "BloodGem");

if (GetIsObjectValid(oItem)) DestroyObject(oItem);

CreateItemOnObject("nethereseweirdin", oPC);

object oTarget;
oTarget = oPC;

ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_WORD), GetLocation(oTarget));

ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(200, DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_ENERGY), oPC);

oTarget = oPC;

ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_PWKILL), GetLocation(oTarget));

}