//::///////////////////////////////////////////////
//:: Turns player into a wolf
//:: prc_wwformwolf
//:: Copyright (c) 2004 Shepherd Soft
//:://////////////////////////////////////////////
/*

*/
//:://////////////////////////////////////////////
//:: Created By: Russell S. Ahlstrom
//:: Created On: May 11, 2004
//:://////////////////////////////////////////////

//Modified for use with Hound Archon

#include "pnp_shft_poly"

void main()
{
    object oPC = OBJECT_SELF;

    if(!GetLocalInt(oPC, "WWWolf"))
    {
        LycanthropePoly(oPC, POLYMORPH_TYPE_WOLF_2);
        SetLocalInt(oPC, "WWWolf", TRUE);
    }
    else
    {
        ExecuteScript("prc_wwunpoly", oPC);
        SetLocalInt(oPC, "WWWolf", FALSE);
    }
}