////////////////////////////////////////////////////////////////////////////////
// sr_lycanthrope - Handles Lycanthropy for PCs
// By Deva B. Winblood.   December 22nd, 2008
////////////////////////////////////////////////////////////////////////////////
#include "prc_inc_racial"
#include "hos1_inc_were"


////////////////////////////////////////////////////////////[ MAIN ]////////////
void main()
{
    object oPC=OBJECT_SELF;
    string sRace=GetSubRace(oPC);
    string sKey=GetLycID(oPC);
    object oMod=GetModule();
    int nRace=MyPRCGetRacialType(oPC);
    if (!GetSkinInt(oPC,"bSet"+sRace+"Properties"))
    { // activate lycanthropy
        SetSkinInt(oPC,"bSet"+sRace+"Properties",TRUE);
        if (nRace==RACIAL_TYPE_HUMAN) SetLocalInt(oMod,"n"+sKey+"OA",6);   // Store original appearance
        else if (nRace==RACIAL_TYPE_HALFORC) SetLocalInt(oMod,"n"+sKey+"OA",5);
        else if (nRace==RACIAL_TYPE_HALFORC) SetLocalInt(oMod,"n"+sKey+"OA",4);
        SetLocalInt(oPC,"nIsLycanthrope",TRUE);
        AddJournalQuestEntry("Lycanthropy",1,oPC,FALSE,FALSE,TRUE);
        LycanthropyPseudoHeartbeat(oPC);
    } // activate lycanthropy
}
////////////////////////////////////////////////////////////[ MAIN ]////////////