29 lines
1.2 KiB
Plaintext
29 lines
1.2 KiB
Plaintext
////////////////////////////////////////////////////////////////////////////////
|
|
// 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 ]////////////
|