//Set local integer for use in the wild shape radial menu
/*
Secret shapes!
63    POLYMORPH_TYPE_BEHOLDER
30    POLYMORPH_IMP
38    POLYMORPH_TYPE_CELESTIAL_AVENGER
74    POLYMORPH_TYPE_VAMPIRE_MALE
77    POLYMORPH_TYPE_VAMPIRE_FEMALE
28    POLYMORPH_DOOM_KNIGHT
*/
void main()
{
    if( GetAlignmentGoodEvil( GetPCSpeaker() ) == ALIGNMENT_GOOD )
        SetLocalInt(GetPCSpeaker(), "DMEL_DRUIDSHAPES_" + IntToString( GetLocalInt(GetPCSpeaker(), "DMEL_REMAP_WSHAPE" ) ), 38+1);
    else if (GetAlignmentGoodEvil( GetPCSpeaker() ) == ALIGNMENT_EVIL)
        SetLocalInt(GetPCSpeaker(), "DMEL_DRUIDSHAPES_" + IntToString( GetLocalInt(GetPCSpeaker(), "DMEL_REMAP_WSHAPE" ) ), 28+1);
    else switch(Random(2) )
    {
        case 0: SetLocalInt(GetPCSpeaker(), "DMEL_DRUIDSHAPES_" + IntToString( GetLocalInt(GetPCSpeaker(), "DMEL_REMAP_WSHAPE" ) ), 38+1); break;
        case 1: SetLocalInt(GetPCSpeaker(), "DMEL_DRUIDSHAPES_" + IntToString( GetLocalInt(GetPCSpeaker(), "DMEL_REMAP_WSHAPE" ) ), 28+1); break;
    }
//    ExecuteScript("dmel_druidshapes",GetPCSpeaker() );
}