Here's the script with playable races added and transgender thing resolved. May want to check the codes for playable races.
Also, this version looks for the command on OBJECT_SELF, not on CoA token.
May also want to rename HALF-ORC and HALF-ELF to loose the dash.

//::///////////////////////////////////////////////
//:: Polymorph Self
//:: NW_S0_PolySelf.nss
//:: Copyright (c) 2001 Bioware Corp.
//:://////////////////////////////////////////////
/*
    The PC is able to changed their form to one of
    several forms.
*/
//:://////////////////////////////////////////////
//:: Created By: Preston Watamaniuk
//:: Created On: Jan 21, 2002
//:://////////////////////////////////////////////

#include "x2_inc_spellhook"

// Returns true if sCreatureName starts with sFormID
int ComparePolyStr(string sFormID, string sCreatureName) {
    return GetStringLeft(sCreatureName, GetStringLength(sFormID)) == sFormID;
}

void main()
{

/*
  Spellcast Hook Code
  Added 2003-06-23 by GeorgZ
  If you want to make changes to all spells,
  check x2_inc_spellhook.nss to find out more

*/
    if (!X2PreSpellCastCode())
    {
        // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
        return;
    }

// End of Spell Cast Hook

    // No spell if already polymorphed.
    if (GetHasEffect(EFFECT_TYPE_POLYMORPH, OBJECT_SELF)) return;

    //Declare major variables
    object oTarget = GetSpellTargetObject();
    effect eVis = EffectVisualEffect(VFX_IMP_POLYMORPH);
    effect ePoly;
    int nPoly = 0;
    int nHD = 0;
    int isFemale = (GetGender(OBJECT_SELF) == GENDER_FEMALE);
    string sFormID = GetStringUpperCase(GetLocalString(OBJECT_SELF, "sPolyFormID"));
    int nFeatTier = 0; //used for the splitting forms apart for Spell Focus and
                      //greater spell focus transmutation. Uncomment line 226 to disable

    int nCasterLevel = GetCasterLevel(OBJECT_SELF);
    int nTargetHD = GetHitDice(oTarget);

    // Determine duration
    int nMetaMagic = GetMetaMagicFeat();
    int nDuration = nCasterLevel;
    if (nMetaMagic == METAMAGIC_EXTEND) {
        nDuration = nDuration *2; //Duration is +100%
    }

    // --------------------------------
    // --- Determine Polymorph type ---

    // HD 1
    if(ComparePolyStr(sFormID, "EYEBALL"))                        { nPoly =  213; nHD = 1; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "GOBLIN"))                    { nPoly =  157; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "HOBGOBLIN"))                 { nPoly =  163; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "KOBOLD"))                    { nPoly =  165; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "ORC"))                       { nPoly =  166; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "FIRE BEETLE"))               { nPoly =  177; nHD = 1; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "CHICKEN"))                   { nPoly =  40;  nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "FALCON"))                    { nPoly =  133; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "PENGUIN"))                   { nPoly =  26;  nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "RAVEN"))                     { nPoly =  134; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "RAT"))                       { nPoly =  144; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "OX"))                        { nPoly =  143; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "BADGER"))                    { nPoly =  25;  nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "BAT"))                       { nPoly =  140; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "COW"))                       { nPoly =  27;  nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "DEER"))                      { nPoly =  142; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "DIRE RAT"))                  { nPoly =  149; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "WHITE STAG"))                { nPoly =  145; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "PARROT"))                    { nPoly =  324; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "SEAGULL"))                   { nPoly =  325; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "HORSE"))                     { nPoly =  326; nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "PIXIE"))                     { nPoly =  328; nHD = 1; nFeatTier = 0;}

    else if(ComparePolyStr(sFormID, "HUMAN"))                     { nPoly =  (isFemale?306:164); nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "HALFLING"))                  { nPoly =  (isFemale?305:162); nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "HALF-ORC"))                  { nPoly =  (isFemale?304:161); nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "HALF-ELF"))                  { nPoly =  (isFemale?303:160); nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "GNOME"))                     { nPoly =  (isFemale?302:159); nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "ELF"))                       { nPoly =  (isFemale?301:156); nHD = 1; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "DWARF"))                     { nPoly =  (isFemale?300:155); nHD = 1; nFeatTier = 0;}

    // HD 2
    else if(ComparePolyStr(sFormID, "TROGLODYTE"))                { nPoly =  312; nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "LIZARDFOLK"))                { nPoly =  170; nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "GNOLL"))                     { nPoly =  158; nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "DEEP ROTHE"))                { nPoly =  190; nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "KRENSHAR"))                  { nPoly =  194; nHD = 2; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "BOMBARDIER BEETLE"))          { nPoly =  176; nHD = 2; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "FAERIE DRAGON"))             { nPoly =  224; nHD = 2; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "PSEUDODRAGON"))              { nPoly =  225; nHD = 2; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "DOG"))                       { nPoly =  130; nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "WOLF"))                      { nPoly =  23;  nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "SAHUAGIN"))                  { nPoly =  329; nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "DRYAD"))                     { nPoly =  330; nHD = 2; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "OCHRE JELLY"))               { nPoly =  331; nHD = 2; nFeatTier = 2;}

    // HD 3
    else if(ComparePolyStr(sFormID, "BUGBEAR"))                   { nPoly =  152; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "SEA HAG"))                   { nPoly =  168; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "STINK BEETLE"))              { nPoly =  179; nHD = 3; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "SWORD SPIDER"))              { nPoly =  181; nHD = 3; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING WHITE DRAGON"))     { nPoly =  235; nHD = 3; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "BLACK BEAR"))                { nPoly =  131; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "COUGAR"))                    { nPoly =  135; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "CRAG CAT"))                  { nPoly =  136; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "LEOPARD"))                   { nPoly =  138; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "PANTHER"))                   { nPoly =  22;  nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "BOAR"))                      { nPoly =  24;  nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "DIRE BADGER"))               { nPoly =  37;  nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "SNAKE"))                     { nPoly =  327; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "NYMPH"))                     { nPoly =  332; nHD = 3; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "GRAY OOZE"))                 { nPoly =  333; nHD = 3; nFeatTier = 2;}

    // HD 4
    else if(ComparePolyStr(sFormID, "OGRE"))                      { nPoly =  174; nHD = 4; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "STINGER"))                   { nPoly =  169; nHD = 4; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "GELATINOUS CUBE"))           { nPoly =  208; nHD = 4; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "GARGOYLE"))                  { nPoly =  191; nHD = 4; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "GIANT SPIDER"))              { nPoly =  180; nHD = 4; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING BLACK DRAGON"))     { nPoly =  226; nHD = 4; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING BRASS DRAGON"))     { nPoly =  228; nHD = 4; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WORG"))                      { nPoly =  258; nHD = 4; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "BLINK DOG"))                 { nPoly =  334; nHD = 4; nFeatTier = 1;}

    // HD 5
    else if(ComparePolyStr(sFormID, "ETTERCAP"))                  { nPoly =  212; nHD = 5; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "HOOK HORROR"))               { nPoly =  214; nHD = 5; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "COCKATRICE"))                { nPoly =  189; nHD = 5; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "WYRMLING COPPER DRAGON"))    { nPoly =  230; nHD = 5; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING GREEN DRAGON"))     { nPoly =  232; nHD = 5; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "JAGUAR"))                    { nPoly =  137; nHD = 5; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "LION"))                      { nPoly =  139; nHD = 5; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "SATYR"))                     { nPoly =  335; nHD = 5; nFeatTier = 0;}

    // HD 6
    else if(ComparePolyStr(sFormID, "DRIDER"))                    { nPoly =  (isFemale?307:211); nHD = 6; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "INTELLECT DEVOURER"))        { nPoly =  215; nHD = 6; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "TROLL"))                     { nPoly =  175; nHD = 6; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "YUAN-TI"))                   { nPoly =  171; nHD = 6; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "MINOTAUR"))                  { nPoly =  172; nHD = 6; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "MEDUSA"))                    { nPoly =  167; nHD = 6; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "BASILISK"))                  { nPoly =  197; nHD = 6; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "MANTICORE"))                 { nPoly =  195; nHD = 6; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING BLUE DRAGON"))      { nPoly =  227; nHD = 6; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING BRONZE DRAGON"))    { nPoly =  229; nHD = 6; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "BROWN BEAR"))                { nPoly =  21;  nHD = 6; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "WINTER WOLF"))               { nPoly =  257; nHD = 6; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "DIRE WOLF"))                 { nPoly =  35;  nHD = 6; nFeatTier = 0;}

    // HD 7
    else if(ComparePolyStr(sFormID, "HARPY"))                     { nPoly =  173; nHD = 7; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "STAG BEETLE"))               { nPoly =  178; nHD = 7; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING RED DRAGON"))       { nPoly =  233; nHD = 7; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING SILVER DRAGON"))    { nPoly =  234; nHD = 7; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "DIRE BOAR"))                 { nPoly =  36;  nHD = 7; nFeatTier = 0;}

    // HD 8
    else if(ComparePolyStr(sFormID, "MIND FLAYER"))               { nPoly =  216; nHD = 8; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "UMBER HULK"))                { nPoly =  217; nHD = 8; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "GORGON"))                    { nPoly =  192; nHD = 8; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "SPHINX"))                    { nPoly =  193; nHD = 8; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "WYRMLING GOLD DRAGON"))      { nPoly =  231; nHD = 8; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "POLAR BEAR"))                { nPoly =  148; nHD = 8; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "GRIZZLY BEAR"))              { nPoly =  147;  nHD = 8; nFeatTier = 0;}

    // HD 9
    else if(ComparePolyStr(sFormID, "BATTLE DEVOURER"))           { nPoly =  209; nHD = 9; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "WILL O WISP"))               { nPoly =  218; nHD = 9; nFeatTier = 2;}
    else if(ComparePolyStr(sFormID, "BULLETTE"))                  { nPoly =  313; nHD = 9; nFeatTier = 1;}

    // HD 10
    else if(ComparePolyStr(sFormID, "ETTIN"))                     { nPoly =  187; nHD = 10; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "GREY RENDER"))               { nPoly =  221; nHD = 10; nFeatTier = 1;}
    else if(ComparePolyStr(sFormID, "DIRE SPIDER"))               { nPoly =  188; nHD = 10; nFeatTier = 1;}

    // HD 11
    else if(ComparePolyStr(sFormID, "BEHOLDER"))                  { nPoly =  210; nHD = 11; nFeatTier = 2;}

    // HD 12
    else if(ComparePolyStr(sFormID, "HILL GIANT"))                { nPoly =  222; nHD = 12; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "DIRE BEAR"))                 { nPoly =  33;  nHD = 12; nFeatTier = 0;}
    else if(ComparePolyStr(sFormID, "WYVERN"))                    { nPoly =  336; nHD = 12; nFeatTier = 1;}

    // HD 13

    // HD 14
    else if(ComparePolyStr(sFormID, "FROST GIANT"))               { nPoly =  (isFemale?308:259); nHD = 14; nFeatTier = 0;}

    // HD 15
    else if(ComparePolyStr(sFormID, "FIRE GIANT"))                { nPoly =  (isFemale?309:289); nHD = 14; nFeatTier = 0;}

    // Couldn't determine the form
    if (nPoly == 0) {
        SendMessageToPC(OBJECT_SELF, "Unknown form type. Check spelling.");
        // Default to pixie! (so the spell defaults back to one of the default nwn forms)
        nPoly = 328;
    }

    // Caster level not high enough for the form
    if (nHD > nCasterLevel) {
        SendMessageToPC(OBJECT_SELF, "Caster level is too low for this form.");
        // Default to pixie! (so the spell defaults back to one of the default nwn forms)
        nPoly = 328;
    }

    // Target hasn't enough HD for the form
    if (nHD > nTargetHD) {
        SendMessageToPC(OBJECT_SELF, "Target doesn't have enough HD for this form.");
        // Default to pixie! (so the spell defaults back to one of the default nwn forms)
        nPoly = 328;
    }

    //Spell Focuses for stronger racial variants
    ////nFeatTier = 0  ///uncomment this to disable the spell focus restrictions
    if (nFeatTier == 1 && GetHasFeat(FEAT_SPELL_FOCUS_TRANSMUTATION, OBJECT_SELF) != TRUE)
    {   SendMessageToPC(OBJECT_SELF, "Selected form requires spell focus in transmutation");
        // Default to pixie! (so the spell defaults back to one of the default nwn forms)
        nPoly = 328;
    }
    if (nFeatTier == 2 && GetHasFeat(FEAT_GREATER_SPELL_FOCUS_TRANSMUTATION, OBJECT_SELF) != TRUE)
    {   SendMessageToPC(OBJECT_SELF, "Selected form requires  greater spell focus in transmutation");
        // Default to pixie! (so the spell defaults back to one of the default nwn forms)
        nPoly = 328;
    }

    ePoly = EffectPolymorph(nPoly);
    //copy their weapon properties so they don't suck completely
    int bWeapon = StringToInt(Get2DAString("polymorph","MergeW",nPoly)) == 1;
    object oWeaponOld = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF);

    //Fire cast spell at event for the specified target
    SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_POLYMORPH_SELF, FALSE));

    //Apply the VFX impact and effects
    AssignCommand(oTarget, ClearAllActions()); // prevents an exploit
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePoly, oTarget, TurnsToSeconds(nDuration));

    //copying the weapon properties
    object oWeaponNew = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF);
    if (bWeapon)
    {
            IPWildShapeCopyItemProperties(oWeaponOld,oWeaponNew, TRUE);
    }
}

There are two chickens.
BoMbardier beetle has a typo.
Grizzly turns to water elemental. Check code.

Regarding the transgender thing - it only applies to level 14+ so far, so it can't matter much. If you want to add the gender control I suggest doing it like so:

else if(ComparePolyStr(sFormID, "FROST GIANT"))        { nPoly =  (nFemale?308:259); nHD = 14; }
```Just set nFemale at the start to either TRUE or FALSE.

Added proper feedback.
Prevented casting the spell while already polymorphed.

#include "x2_inc_spellhook"

// Returns true if sCreatureName starts with sFormID
int ComparePolyStr(string sFormID, string sCreatureName) {
    return GetStringLeft(sCreatureName, GetStringLength(sFormID)) == sFormID;
}

void main()
{

/*
  Spellcast Hook Code
  Added 2003-06-23 by GeorgZ
  If you want to make changes to all spells,
  check x2_inc_spellhook.nss to find out more

*/
    if (!X2PreSpellCastCode())
    {
        // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
        return;
    }

// End of Spell Cast Hook

    // No spell if already polymorphed.
    if (GetHasEffect(EFFECT_TYPE_POLYMORPH, OBJECT_SELF)) return;

    //Declare major variables
    object oTarget = GetSpellTargetObject();
    effect eVis = EffectVisualEffect(VFX_IMP_POLYMORPH);
    effect ePoly;
    int nPoly = 0;
    int nHD = 0;
    string sFormID = GetStringUpperCase(GetLocalString(OBJECT_SELF, "sPolyFormID"));

    int nCasterLevel = GetCasterLevel(OBJECT_SELF);
    int nTargetHD = GetHitDice(oTarget);

    // Determine duration
    int nMetaMagic = GetMetaMagicFeat();
    int nDuration = nCasterLevel;
    if (nMetaMagic == METAMAGIC_EXTEND) {
        nDuration = nDuration *2; //Duration is +100%
    }

    // --------------------------------
    // --- Determine Polymorph type ---

    // HD 1
    if(ComparePolyStr(sFormID, "EYEBALL"))                        { nPoly =  213; nHD = 1; }
    else if(ComparePolyStr(sFormID, "GOBLIN"))                    { nPoly =  157; nHD = 1; }
    else if(ComparePolyStr(sFormID, "HOBGOBLIN"))                 { nPoly =  163; nHD = 1; }
    else if(ComparePolyStr(sFormID, "KOBOLD"))                    { nPoly =  165; nHD = 1; }
    else if(ComparePolyStr(sFormID, "ORC"))                       { nPoly =  166; nHD = 1; }
    else if(ComparePolyStr(sFormID, "FIRE BEETLE"))               { nPoly =  177; nHD = 1; }
    else if(ComparePolyStr(sFormID, "CHICKEN"))                   { nPoly =  40;  nHD = 1; }
    else if(ComparePolyStr(sFormID, "FALCON"))                    { nPoly =  133; nHD = 1; }
    else if(ComparePolyStr(sFormID, "PENGUIN"))                   { nPoly =  26;  nHD = 1; }
    else if(ComparePolyStr(sFormID, "RAVEN"))                     { nPoly =  134; nHD = 1; }
    else if(ComparePolyStr(sFormID, "RAT"))                       { nPoly =  144; nHD = 1; }
    else if(ComparePolyStr(sFormID, "OX"))                        { nPoly =  143; nHD = 1; }
    else if(ComparePolyStr(sFormID, "BADGER"))                    { nPoly =  25;  nHD = 1; }
    else if(ComparePolyStr(sFormID, "BAT"))                       { nPoly =  140; nHD = 1; }
    else if(ComparePolyStr(sFormID, "COW"))                       { nPoly =  27;  nHD = 1; }
    else if(ComparePolyStr(sFormID, "DEER"))                      { nPoly =  142; nHD = 1; }
    else if(ComparePolyStr(sFormID, "DIRE RAT"))                  { nPoly =  149; nHD = 1; }
    else if(ComparePolyStr(sFormID, "CHICKEN"))                   { nPoly =  40;  nHD = 1; }
    else if(ComparePolyStr(sFormID, "WHITE STAG"))                { nPoly =  145; nHD = 1; }

    // HD 2
    else if(ComparePolyStr(sFormID, "TROGLODYTE"))                { nPoly =  312; nHD = 2; }
    else if(ComparePolyStr(sFormID, "LIZARDFOLK"))                { nPoly =  170; nHD = 2; }
    else if(ComparePolyStr(sFormID, "GNOLL"))                     { nPoly =  158; nHD = 2; }
    else if(ComparePolyStr(sFormID, "DEEP ROTHE"))                { nPoly =  190; nHD = 2; }
    else if(ComparePolyStr(sFormID, "KRENSHAR"))                  { nPoly =  194; nHD = 2; }
    else if(ComparePolyStr(sFormID, "BOMBADIER BEETLE"))          { nPoly =  176; nHD = 2; }
    else if(ComparePolyStr(sFormID, "FAERIE DRAGON"))             { nPoly =  224; nHD = 2; }
    else if(ComparePolyStr(sFormID, "PSEUDODRAGON"))              { nPoly =  225; nHD = 2; }
    else if(ComparePolyStr(sFormID, "DOG"))                       { nPoly =  130; nHD = 2; }
    else if(ComparePolyStr(sFormID, "WOLF"))                      { nPoly =  23;  nHD = 2; }

    // HD 3
    else if(ComparePolyStr(sFormID, "BUGBEAR"))                   { nPoly =  152; nHD = 3; }
    else if(ComparePolyStr(sFormID, "SEA HAG"))                   { nPoly =  168; nHD = 3; }
    else if(ComparePolyStr(sFormID, "STINK BEETLE"))              { nPoly =  179; nHD = 3; }
    else if(ComparePolyStr(sFormID, "SWORD SPIDER"))              { nPoly =  181; nHD = 3; }
    else if(ComparePolyStr(sFormID, "WYRMLING WHITE DRAGON"))     { nPoly =  235; nHD = 3; }
    else if(ComparePolyStr(sFormID, "BLACK BEAR"))                { nPoly =  131; nHD = 3; }
    else if(ComparePolyStr(sFormID, "COUGAR"))                    { nPoly =  135; nHD = 3; }
    else if(ComparePolyStr(sFormID, "CRAG CAT"))                  { nPoly =  136; nHD = 3; }
    else if(ComparePolyStr(sFormID, "LEOPARD"))                   { nPoly =  138; nHD = 3; }
    else if(ComparePolyStr(sFormID, "PANTHER"))                   { nPoly =  22;  nHD = 3; }
    else if(ComparePolyStr(sFormID, "BOAR"))                      { nPoly =  24;  nHD = 3; }
    else if(ComparePolyStr(sFormID, "DIRE BADGER"))               { nPoly =  37;  nHD = 3; }

    // HD 4
    else if(ComparePolyStr(sFormID, "OGRE"))                      { nPoly =  174; nHD = 4; }
    else if(ComparePolyStr(sFormID, "STINGER"))                   { nPoly =  169; nHD = 4; }
    else if(ComparePolyStr(sFormID, "GELATINOUS CUBE"))           { nPoly =  208; nHD = 4; }
    else if(ComparePolyStr(sFormID, "GARGOYLE"))                  { nPoly =  191; nHD = 4; }
    else if(ComparePolyStr(sFormID, "GIANT SPIDER"))              { nPoly =  180; nHD = 4; }
    else if(ComparePolyStr(sFormID, "WYRMLING BLACK DRAGON"))     { nPoly =  226; nHD = 4; }
    else if(ComparePolyStr(sFormID, "WYRMLING BRASS DRAGON"))     { nPoly =  228; nHD = 4; }
    else if(ComparePolyStr(sFormID, "WORG"))                      { nPoly =  258; nHD = 4; }

    // HD 5
    else if(ComparePolyStr(sFormID, "ETTERCAP"))                  { nPoly =  212; nHD = 5; }
    else if(ComparePolyStr(sFormID, "HOOK HORROR"))               { nPoly =  214; nHD = 5; }
    else if(ComparePolyStr(sFormID, "COCKATRICE"))                { nPoly =  189; nHD = 5; }
    else if(ComparePolyStr(sFormID, "WYRMLING COPPER DRAGON"))    { nPoly =  230; nHD = 5; }
    else if(ComparePolyStr(sFormID, "WYRMLING GREEN DRAGON"))     { nPoly =  232; nHD = 5; }
    else if(ComparePolyStr(sFormID, "JAGUAR"))                    { nPoly =  137; nHD = 5; }
    else if(ComparePolyStr(sFormID, "LION"))                      { nPoly =  139; nHD = 5; }

    // HD 6
    else if(ComparePolyStr(sFormID, "DRIDER"))                    { nPoly =  211; nHD = 6; }
    else if(ComparePolyStr(sFormID, "FEMALE DRIDER"))             { nPoly =  307; nHD = 6; }
    else if(ComparePolyStr(sFormID, "INTELLECT DEVOURER"))        { nPoly =  215; nHD = 6; }
    else if(ComparePolyStr(sFormID, "TROLL"))                     { nPoly =  175; nHD = 6; }
    else if(ComparePolyStr(sFormID, "YUAN-TI"))                   { nPoly =  171; nHD = 6; }
    else if(ComparePolyStr(sFormID, "MINOTAUR"))                  { nPoly =  172; nHD = 6; }
    else if(ComparePolyStr(sFormID, "MEDUSA"))                    { nPoly =  167; nHD = 6; }
    else if(ComparePolyStr(sFormID, "BASILISK"))                  { nPoly =  197; nHD = 6; }
    else if(ComparePolyStr(sFormID, "MANTICORE"))                 { nPoly =  195; nHD = 6; }
    else if(ComparePolyStr(sFormID, "WYRMLING BLUE DRAGON"))      { nPoly =  227; nHD = 6; }
    else if(ComparePolyStr(sFormID, "WYRMLING BRONZE DRAGON"))    { nPoly =  229; nHD = 6; }
    else if(ComparePolyStr(sFormID, "BROWN BEAR"))                { nPoly =  21;  nHD = 6; }
    else if(ComparePolyStr(sFormID, "WINTER WOLF"))               { nPoly =  257; nHD = 6; }
    else if(ComparePolyStr(sFormID, "DIRE WOLF"))                 { nPoly =  35;  nHD = 6; }

    // HD 7
    else if(ComparePolyStr(sFormID, "HARPY"))                     { nPoly =  173; nHD = 7; }
    else if(ComparePolyStr(sFormID, "STAG BEETLE"))               { nPoly =  178; nHD = 7; }
    else if(ComparePolyStr(sFormID, "WYRMLING RED DRAGON"))       { nPoly =  233; nHD = 7; }
    else if(ComparePolyStr(sFormID, "WYRMLING SILVER DRAGON"))    { nPoly =  234; nHD = 7; }
    else if(ComparePolyStr(sFormID, "DIRE BOAR"))                 { nPoly =  36;  nHD = 7; }

    // HD 8
    else if(ComparePolyStr(sFormID, "MIND FLAYER"))               { nPoly =  216; nHD = 8; }
    else if(ComparePolyStr(sFormID, "UMBER HULK"))                { nPoly =  217; nHD = 8; }
    else if(ComparePolyStr(sFormID, "GORGON"))                    { nPoly =  192; nHD = 8; }
    else if(ComparePolyStr(sFormID, "SPHINX"))                    { nPoly =  193; nHD = 8; }
    else if(ComparePolyStr(sFormID, "WYRMLING GOLD DRAGON"))      { nPoly =  231; nHD = 8; }
    else if(ComparePolyStr(sFormID, "POLAR BEAR"))                { nPoly =  148; nHD = 8; }
    else if(ComparePolyStr(sFormID, "GRIZZLY BEAR"))              { nPoly =  14;  nHD = 8; }

    // HD 9
    else if(ComparePolyStr(sFormID, "BATTLE DEVOURER"))           { nPoly =  209; nHD = 9; }
    else if(ComparePolyStr(sFormID, "WILL O WISP"))               { nPoly =  218; nHD = 9; }
    else if(ComparePolyStr(sFormID, "BULLETTE"))                  { nPoly =  313; nHD = 9; }

    // HD 10
    else if(ComparePolyStr(sFormID, "ETTIN"))                     { nPoly =  187; nHD = 10; }
    else if(ComparePolyStr(sFormID, "GREY RENDER"))               { nPoly =  221; nHD = 10; }
    else if(ComparePolyStr(sFormID, "DIRE SPIDER"))               { nPoly =  188; nHD = 10; }

    // HD 11
    else if(ComparePolyStr(sFormID, "BEHOLDER"))                  { nPoly =  210; nHD = 11; }

    // HD 12
    else if(ComparePolyStr(sFormID, "HILL GIANT"))                { nPoly =  222; nHD = 12; }
    else if(ComparePolyStr(sFormID, "DIRE BEAR"))                 { nPoly =  33;  nHD = 12; }

    // HD 13

    // HD 14
    else if(ComparePolyStr(sFormID, "FROST GIANT"))               { nPoly =  259; nHD = 14; }
    else if(ComparePolyStr(sFormID, "FROST GIANT FEMALE"))        { nPoly =  308; nHD = 14; }

    // HD 15
    else if(ComparePolyStr(sFormID, "FIRE GIANT"))                { nPoly =  289; nHD = 14; }
    else if(ComparePolyStr(sFormID, "FIRE GIANT FEMALE"))         { nPoly =  309; nHD = 15; }

    // Couldn't determine the form
    if (nPoly == 0) {
        SendMessageToPC(OBJECT_SELF, "Unknown form type. Check spelling.");
        // Default to chicken!
        nPoly = 40;
    }

    // Caster level not high enough for the form
    if (nHD > nCasterLevel) {
        SendMessageToPC(OBJECT_SELF, "Caster level is too low for this form.");
        // Default to chicken!
        nPoly = 40;
    }

    // Target hasn't enough HD for the form
    if (nHD > nTargetHD) {
        SendMessageToPC(OBJECT_SELF, "Target doesn't have enough HD for this form.");
        // Default to chicken!
        nPoly = 40;
    }

    ePoly = EffectPolymorph(nPoly);
    //Fire cast spell at event for the specified target
    SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_POLYMORPH_SELF, FALSE));

    //Apply the VFX impact and effects
    AssignCommand(oTarget, ClearAllActions()); // prevents an exploit
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePoly, oTarget, TurnsToSeconds(nDuration));
}

To provide proper feedback (is it bad spelling or not enough caster levels, or not enough target HD), the script needs to be changed like so:

if(ComparePolyStr(sFormID, "EYEBALL"))                        { nPoly =  213; nHD = 1; } 
else if(ComparePolyStr(sFormID, "GOBLIN"))                    { nPoly =  157; nHD = 1; }
//...
```The top level conditions (if nMaxHD >= <n>) need to be removed, and the check for HD done after you know which form caster desires. I think that would keep the script readable, so we may want to do it. Any takers?</n>

Here are the scripts with some modifications:

• Fixed spelling on basilisk and intellect devourer
• Added an option to cast spell right away (end cmd with "!")
• Now checking only for start of string (so ".ps mino" is as good as ".ps minotaur")
• Some feedback if you type ".ps" with no param, some defensive checks
• If bad param or no param, defaults to chicken. This will be a pixie.
• Reduced the number of ifs each time spell is cast to a perfectly acceptable amount, in average case.
• sFormID converted to uppercase at the start

Remaining to be considered:

• Currently no feedback after chat command, only after spell is cast
• Currently can't use number (i.e. .ps 140). Since it still has to be checked for HD and existence, it's same as alias.
• Add aliases as OR conditions.
• Better feedback (Bad spelling or not enough HD?)

// -------- From onPlayerChat -----------
    object oPC = GetPCChatSpeaker();
    string sCommand = GetPCChatMessage();

    if (GetStringLeft(sCommand, 3) == ".ps")
    {
        int nCmdLength = GetStringLength(sCommand);
        int nCastNow = FALSE;

        // Check if there's any param to the chat command
        if (nCmdLength <= 4) {
            SendMessageToPC(oPC, "Usage: .ps <shape>");
            return;
        }

        // Does it end with "!"?
        if (GetStringRight(sCommand, 1) == "!") nCastNow = TRUE;

        string sPolyFormID = GetSubString(sCommand, 4, nCmdLength - (nCastNow?5:4));
        SetLocalString(oPC, "sPolyFormID", sPolyFormID);
        SendMessageToPC(oPC, "Poly set at: " + sPolyFormID);

        // Assign cast spell if ends with "!"
        if (nCastNow) AssignCommand(oPC, ActionCastSpellAtObject(SPELL_POLYMORPH_SELF, oPC));
    }</shape>

// -------- nw_s0_polyself -------
#include "x2_inc_spellhook"

// Returns true if sCreatureName starts with sFormID
int ComparePolyStr(string sFormID, string sCreatureName) {
return GetStringLeft(sCreatureName, GetStringLength(sFormID)) == sFormID;
}

void main()
{

/*
Spellcast Hook Code
Added 2003-06-23 by GeorgZ
If you want to make changes to all spells,
check x2_inc_spellhook.nss to find out more

*/
if (!X2PreSpellCastCode())
{
// If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
return;
}

// End of Spell Cast Hook

//Declare major variables
int nSpell = GetSpellId();
object oTarget = GetSpellTargetObject();
effect eVis = EffectVisualEffect(VFX_IMP_POLYMORPH);
effect ePoly;
int nPoly = 0;
string sFormID = GetStringUpperCase(GetLocalString(OBJECT_SELF, "sPolyFormID"));

int nCasterLevel = GetCasterLevel(OBJECT_SELF);
int nTargetHD = GetHitDice(oTarget);
int nMaxHD = (nCasterLevel < nTargetHD) ? nCasterLevel : nTargetHD;

// Determine duration
int nMetaMagic = GetMetaMagicFeat();
int nDuration = nCasterLevel;
if (nMetaMagic == METAMAGIC_EXTEND) {
    nDuration = nDuration *2; //Duration is +100%
}

// --------------------------------
// --- Determine Polymorph type ---

// HD 1
if (nMaxHD >= 1 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "EYEBALL"))                        { nPoly =  213; }
    else if(ComparePolyStr(sFormID, "GOBLIN"))                    { nPoly =  157; }
    else if(ComparePolyStr(sFormID, "HOBGOBLIN"))                 { nPoly =  163; }
    else if(ComparePolyStr(sFormID, "KOBOLD"))                    { nPoly =  165; }
    else if(ComparePolyStr(sFormID, "ORC"))                       { nPoly =  166; }
    else if(ComparePolyStr(sFormID, "FIRE BEETLE"))               { nPoly =  177; }
    else if(ComparePolyStr(sFormID, "CHICKEN"))                   { nPoly =  40; }
    else if(ComparePolyStr(sFormID, "FALCON"))                    { nPoly =  133; }
    else if(ComparePolyStr(sFormID, "PENGUIN"))                   { nPoly =  26; }
    else if(ComparePolyStr(sFormID, "RAVEN"))                     { nPoly =  134; }
    else if(ComparePolyStr(sFormID, "RAT"))                       { nPoly =  144; }
    else if(ComparePolyStr(sFormID, "OX"))                        { nPoly =  143; }
    else if(ComparePolyStr(sFormID, "BADGER"))                    { nPoly =  25; }
    else if(ComparePolyStr(sFormID, "BAT"))                       { nPoly =  140; }
    else if(ComparePolyStr(sFormID, "COW"))                       { nPoly =  27; }
    else if(ComparePolyStr(sFormID, "DEER"))                      { nPoly =  142; }
    else if(ComparePolyStr(sFormID, "DIRE RAT"))                  { nPoly =  149; }
    else if(ComparePolyStr(sFormID, "CHICKEN"))                   { nPoly =  40; }
    else if(ComparePolyStr(sFormID, "WHITE STAG"))                { nPoly =  145; }
}

// HD 2
if (nMaxHD >= 2 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "TROGLODYTE"))                     { nPoly =  312; }
    else if(ComparePolyStr(sFormID, "LIZARDFOLK"))                { nPoly =  170; }
    else if(ComparePolyStr(sFormID, "GNOLL"))                     { nPoly =  158; }
    else if(ComparePolyStr(sFormID, "DEEP ROTHE"))                { nPoly =  190; }
    else if(ComparePolyStr(sFormID, "KRENSHAR"))                  { nPoly =  194; }
    else if(ComparePolyStr(sFormID, "BOMBADIER BEETLE"))          { nPoly =  176; }
    else if(ComparePolyStr(sFormID, "FAERIE DRAGON"))             { nPoly =  224; }
    else if(ComparePolyStr(sFormID, "PSEUDODRAGON"))              { nPoly =  225; }
    else if(ComparePolyStr(sFormID, "DOG"))                       { nPoly =  130; }
    else if(ComparePolyStr(sFormID, "WOLF"))                      { nPoly =  23; }
}

// HD 3
if (nMaxHD >= 3 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "BUGBEAR"))                        { nPoly =  152; }
    else if(ComparePolyStr(sFormID, "SEA HAG"))                   { nPoly =  168; }
    else if(ComparePolyStr(sFormID, "STINK BEETLE"))              { nPoly =  179; }
    else if(ComparePolyStr(sFormID, "SWORD SPIDER"))              { nPoly =  181; }
    else if(ComparePolyStr(sFormID, "WYRMLING WHITE DRAGON"))     { nPoly =  235; }
    else if(ComparePolyStr(sFormID, "BLACK BEAR"))                { nPoly =  131; }
    else if(ComparePolyStr(sFormID, "COUGAR"))                    { nPoly =  135; }
    else if(ComparePolyStr(sFormID, "CRAG CAT"))                  { nPoly =  136; }
    else if(ComparePolyStr(sFormID, "LEOPARD"))                   { nPoly =  138; }
    else if(ComparePolyStr(sFormID, "PANTHER"))                   { nPoly =  22; }
    else if(ComparePolyStr(sFormID, "BOAR"))                      { nPoly =  24; }
    else if(ComparePolyStr(sFormID, "DIRE BADGER"))               { nPoly =  37; }
}

// HD 4
if (nMaxHD >= 4 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "OGRE"))                           { nPoly =  174; }
    else if(ComparePolyStr(sFormID, "STINGER"))                   { nPoly =  169; }
    else if(ComparePolyStr(sFormID, "GELATINOUS CUBE"))           { nPoly =  208; }
    else if(ComparePolyStr(sFormID, "GARGOYLE"))                  { nPoly =  191; }
    else if(ComparePolyStr(sFormID, "GIANT SPIDER"))              { nPoly =  180; }
    else if(ComparePolyStr(sFormID, "WYRMLING BLACK DRAGON"))     { nPoly =  226; }
    else if(ComparePolyStr(sFormID, "WYRMLING BRASS DRAGON"))     { nPoly =  228; }
    else if(ComparePolyStr(sFormID, "WORG"))                      { nPoly =  258; }
}

// HD 5
if (nMaxHD >= 5 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "ETTERCAP"))                       { nPoly =  212; }
    else if(ComparePolyStr(sFormID, "HOOK HORROR"))               { nPoly =  214; }
    else if(ComparePolyStr(sFormID, "COCKATRICE"))                { nPoly =  189; }
    else if(ComparePolyStr(sFormID, "WYRMLING COPPER DRAGON"))    { nPoly =  230; }
    else if(ComparePolyStr(sFormID, "WYRMLING GREEN DRAGON"))     { nPoly =  232; }
    else if(ComparePolyStr(sFormID, "JAGUAR"))                    { nPoly =  137; }
    else if(ComparePolyStr(sFormID, "LION"))                      { nPoly =  139; }
}

// HD 6
if (nMaxHD >= 6 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "DRIDER"))                         { nPoly =  211; }
    else if(ComparePolyStr(sFormID, "FEMALE DRIDER"))             { nPoly =  307; }
    else if(ComparePolyStr(sFormID, "INTELLECT DEVOURER"))        { nPoly =  215; }
    else if(ComparePolyStr(sFormID, "TROLL"))                     { nPoly =  175; }
    else if(ComparePolyStr(sFormID, "YUAN-TI"))                   { nPoly =  171; }
    else if(ComparePolyStr(sFormID, "MINOTAUR"))                  { nPoly =  172; }
    else if(ComparePolyStr(sFormID, "MEDUSA"))                    { nPoly =  167; }
    else if(ComparePolyStr(sFormID, "BASILISK"))                  { nPoly =  197; }
    else if(ComparePolyStr(sFormID, "MANTICORE"))                 { nPoly =  195; }
    else if(ComparePolyStr(sFormID, "WYRMLING BLUE DRAGON"))      { nPoly =  227; }
    else if(ComparePolyStr(sFormID, "WYRMLING BRONZE DRAGON"))    { nPoly =  229; }
    else if(ComparePolyStr(sFormID, "BROWN BEAR"))                { nPoly =  21; }
    else if(ComparePolyStr(sFormID, "WINTER WOLF"))               { nPoly =  257; }
    else if(ComparePolyStr(sFormID, "DIRE WOLF"))                 { nPoly =  35; }
}

// HD 7
if (nMaxHD >= 7 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "HARPY"))                          { nPoly =  173; }
    else if(ComparePolyStr(sFormID, "STAG BEETLE"))               { nPoly =  178; }
    else if(ComparePolyStr(sFormID, "WYRMLING RED DRAGON"))       { nPoly =  233; }
    else if(ComparePolyStr(sFormID, "WYRMLING SILVER DRAGON"))    { nPoly =  234; }
    else if(ComparePolyStr(sFormID, "DIRE BOAR"))                 { nPoly =  36; }
}

// HD 8
if (nMaxHD >= 8 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "MIND FLAYER"))                    { nPoly =  216; }
    else if(ComparePolyStr(sFormID, "UMBER HULK"))                { nPoly =  217; }
    else if(ComparePolyStr(sFormID, "GORGON"))                    { nPoly =  192; }
    else if(ComparePolyStr(sFormID, "SPHINX"))                    { nPoly =  193; }
    else if(ComparePolyStr(sFormID, "WYRMLING GOLD DRAGON"))      { nPoly =  231; }
    else if(ComparePolyStr(sFormID, "POLAR BEAR"))                { nPoly =  148; }
    else if(ComparePolyStr(sFormID, "GRIZZLY BEAR"))              { nPoly =  14; }
}

// HD 9
if (nMaxHD >= 9 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "BATTLE DEVOURER"))                { nPoly =  209; }
    else if(ComparePolyStr(sFormID, "WILL O WISP"))               { nPoly =  218; }
    else if(ComparePolyStr(sFormID, "BULLETTE"))                  { nPoly =  313; }
}

// HD 10
if (nMaxHD >= 10 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "ETTIN"))                          { nPoly =  187; }
    else if(ComparePolyStr(sFormID, "GREY RENDER"))               { nPoly =  221; }
    else if(ComparePolyStr(sFormID, "DIRE SPIDER"))               { nPoly =  188; }
}

// HD 11
if (nMaxHD >= 11 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "BEHOLDER"))                       { nPoly =  210; }
}

// HD 12
if (nMaxHD >= 12 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "HILL GIANT"))                     { nPoly =  222; }
    else if(ComparePolyStr(sFormID, "DIRE BEAR"))                 { nPoly =  33; }
}

// HD 13
if (nMaxHD >= 13 && nPoly == 0) {

}

// HD 14
if (nMaxHD >= 14 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "FROST GIANT"))                    { nPoly =  259; }
    else if(ComparePolyStr(sFormID, "FROST GIANT FEMALE"))        { nPoly =  308; }
}

// HD 15
if (nMaxHD >= 15 && nPoly == 0) {
    if(ComparePolyStr(sFormID, "FIRE GIANT"))                     { nPoly =  289; }
    else if(ComparePolyStr(sFormID, "FIRE GIANT FEMALE"))         { nPoly =  309; }
}

//couldn't determine the form and npoly is still 0
if (nPoly == 0) {
    SendMessageToPC(OBJECT_SELF, "Unknown form type or not enough HD. Check spelling.");
    // Default to chicken!
    nPoly = 40;
}

ePoly = EffectPolymorph(nPoly);
//Fire cast spell at event for the specified target
SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_POLYMORPH_SELF, FALSE));

//Apply the VFX impact and effects
AssignCommand(oTarget, ClearAllActions()); // prevents an exploit
ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePoly, oTarget, TurnsToSeconds(nDuration));

}

Um… yes. I did use a python script to generate the nwscript, but it's just bad practice to repeat the same code twice. Nwscript doesn't support hashtables, and arrays have to be done via a string codec or some similar hack.

It's easy to check if 0 < nPoly < MAX_POLY_ID, but the unexpected can occur if it's a valid value not found in the ploymorph.2da

If we get a valid nPoly into the polymorph spell script, we don't need a switch. Not unless CoA wishes to maintain two separate, identical tables.

That said, I vote to keep it simple. On each restart, reset the nPoly to zero, which keeps the original spell working as it is. If someone uses the chat command to change it, they risk miss-spelling, or using a wrong number. And they will find out when the poly spell is cast - it will end up being a normal poly spell. Wizardry is a dangerous business and miscasts happen. :)

I'll do the changes tomorrow.

@luteijn:

I still think you want to make sure the value set is valid at the time it is being set or the caster will get a nasty surprise when polymorphing in the heat of battle

Very good thinking. I suppose we can extract a function to check and determine the form and place it in a already included script, if CoA wishes to avoid new scripts.
But… If we don't include the same function call in the polymorph spell script, a non-valid form ID may its way to the poly spell script and the spell will fail or something strange will happen. Still, I dunno how anything but zero or undefined can make its way there, unless the 2da file is altered. We can check for those two and default to some neutral form.

A feedback message if they try and store a form they don't enough HD to turn into too.

convert the string to uppercase once at the start

detect if the sFormID is already a number and try to use it as is

some 'aliases' for commonly misspelled names

Great ideas. I did want to implement the first two, but was eager to get it working.

What about converting to the poly-number and the HD-needed for it right away when the ".ps WhatEver" is given, and storing those two numbers instead of the string?

I wanted to keep OnPlayerChat clean, and put the list in the polymorph spell script. This idea would save very little processing time I think - best keep it this way for readability.

Here's the scripts. They work, but need adjusting:

• Local variable names
• Store variable on token, not on pc
• Shuffle critters around for balance
• Not optimized (goes through each if each time) - best way to do it is "if (nMaxHD >= && nPoly == 0)"
• Add more critters once they are in the 2da
• Merge item properties?
• Assign action cast spell if ends with "!" or something similar
• Merge with other CoA changes?

In the onPlayerChat event:

object oPC = GetPCChatSpeaker();
    string sCommand = GetPCChatMessage();

    if (GetSubString(sCommand, 1, 2) == "ps")
    {
        string sPolyFormID = GetSubString(sCommand, 4, GetStringLength(sCommand) - 4);
        SetLocalString(oPC, "sPolyFormID", sPolyFormID);
        SendMessageToPC(oPC, "Poly set at: " + sPolyFormID);
        //AssignCommand(oPC, ActionCastSpellAtObject(SPELL_POLYMORPH_SELF));
    }

Spell script I used and tested:```
#include "x2_inc_spellhook"

void main()
{

/*
Spellcast Hook Code
Added 2003-06-23 by GeorgZ
If you want to make changes to all spells,
check x2_inc_spellhook.nss to find out more

*/
if (!X2PreSpellCastCode())
{
// If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
return;
}

// End of Spell Cast Hook

//Declare major variables
int nSpell = GetSpellId();
object oTarget = GetSpellTargetObject();
effect eVis = EffectVisualEffect(VFX_IMP_POLYMORPH);
effect ePoly;
int nPoly = 0;
string sFormID = GetLocalString(OBJECT_SELF, "sPolyFormID");

int nCasterLevel = GetCasterLevel(OBJECT_SELF);
int nTargetHD = GetHitDice(oTarget);
int nMaxHD = (nCasterLevel < nTargetHD) ? nCasterLevel : nTargetHD;

int nMetaMagic = GetMetaMagicFeat();
int nDuration = nCasterLevel;
//Enter Metamagic conditions
if (nMetaMagic == METAMAGIC_EXTEND) {
    nDuration = nDuration *2; //Duration is +100%
}

//Determine Polymorph type

// HD 1
if (nMaxHD >= 1) {
    if(GetStringUpperCase(sFormID) == "EYEBALL")            { nPoly =  213; }
    else if(GetStringUpperCase(sFormID) == "GOBLIN")        { nPoly =  157; }
    else if(GetStringUpperCase(sFormID) == "HOBGOBLIN")     { nPoly =  163; }
    else if(GetStringUpperCase(sFormID) == "KOBOLD")        { nPoly =  165; }
    else if(GetStringUpperCase(sFormID) == "ORC")           { nPoly =  166; }
    else if(GetStringUpperCase(sFormID) == "FIRE BEETLE")   { nPoly =  177; }
    else if(GetStringUpperCase(sFormID) == "CHICKEN")       { nPoly =  40; }
    else if(GetStringUpperCase(sFormID) == "FALCON")        { nPoly =  133; }
    else if(GetStringUpperCase(sFormID) == "PENGUIN")       { nPoly =  26; }
    else if(GetStringUpperCase(sFormID) == "RAVEN")         { nPoly =  134; }
    else if(GetStringUpperCase(sFormID) == "RAT")           { nPoly =  144; }
    else if(GetStringUpperCase(sFormID) == "OX")            { nPoly =  143; }
    else if(GetStringUpperCase(sFormID) == "BADGER")        { nPoly =  25; }
    else if(GetStringUpperCase(sFormID) == "BAT")           { nPoly =  140; }
    else if(GetStringUpperCase(sFormID) == "COW")           { nPoly =  27; }
    else if(GetStringUpperCase(sFormID) == "DEER")          { nPoly =  142; }
    else if(GetStringUpperCase(sFormID) == "DIRE RAT")      { nPoly =  149; }
    else if(GetStringUpperCase(sFormID) == "CHICKEN")       { nPoly =  40; }
    else if(GetStringUpperCase(sFormID) == "WHITE STAG")    { nPoly =  145; }
}

// HD 2
if (nMaxHD >= 2) {
    if(GetStringUpperCase(sFormID) == "TROGLODYTE")         { nPoly =  312; }
    else if(GetStringUpperCase(sFormID) == "LIZARDFOLK")    { nPoly =  170; }
    else if(GetStringUpperCase(sFormID) == "GNOLL")         { nPoly =  158; }
    else if(GetStringUpperCase(sFormID) == "DEEP ROTHE")    { nPoly =  190; }
    else if(GetStringUpperCase(sFormID) == "KRENSHAR")      { nPoly =  194; }
    else if(GetStringUpperCase(sFormID) == "BOMBADIER BEETLE") { nPoly =  176; }
    else if(GetStringUpperCase(sFormID) == "FAERIE DRAGON") { nPoly =  224; }
    else if(GetStringUpperCase(sFormID) == "PSEUDODRAGON")  { nPoly =  225; }
    else if(GetStringUpperCase(sFormID) == "DOG")           { nPoly =  130; }
    else if(GetStringUpperCase(sFormID) == "WOLF")          { nPoly =  23; }
}

// HD 3
if (nMaxHD >= 3) {
    if(GetStringUpperCase(sFormID) == "BUGBEAR")            { nPoly =  152; }
    else if(GetStringUpperCase(sFormID) == "SEA HAG")       { nPoly =  168; }
    else if(GetStringUpperCase(sFormID) == "STINK BEETLE")  { nPoly =  179; }
    else if(GetStringUpperCase(sFormID) == "SWORD SPIDER")  { nPoly =  181; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING WHITE DRAGON") { nPoly =  235; }
    else if(GetStringUpperCase(sFormID) == "BLACK BEAR")    { nPoly =  131; }
    else if(GetStringUpperCase(sFormID) == "COUGAR")        { nPoly =  135; }
    else if(GetStringUpperCase(sFormID) == "CRAG CAT")      { nPoly =  136; }
    else if(GetStringUpperCase(sFormID) == "LEOPARD")       { nPoly =  138; }
    else if(GetStringUpperCase(sFormID) == "PANTHER")       { nPoly =  22; }
    else if(GetStringUpperCase(sFormID) == "BOAR")          { nPoly =  24; }
    else if(GetStringUpperCase(sFormID) == "DIRE BADGER")   { nPoly =  37; }
}

// HD 4
if (nMaxHD >= 4) {
    if(GetStringUpperCase(sFormID) == "OGRE")               { nPoly =  174; }
    else if(GetStringUpperCase(sFormID) == "STINGER")       { nPoly =  169; }
    else if(GetStringUpperCase(sFormID) == "GELATINOUS CUBE") { nPoly =  208; }
    else if(GetStringUpperCase(sFormID) == "GARGOYLE")      { nPoly =  191; }
    else if(GetStringUpperCase(sFormID) == "GIANT SPIDER")  { nPoly =  180; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING BLACK DRAGON") { nPoly =  226; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING BRASS DRAGON") { nPoly =  228; }
    else if(GetStringUpperCase(sFormID) == "WORG")          { nPoly =  258; }
}

// HD 5
if (nMaxHD >= 5) {
    if(GetStringUpperCase(sFormID) == "ETTERCAP")           { nPoly =  212; }
    else if(GetStringUpperCase(sFormID) == "HOOK HORROR")   { nPoly =  214; }
    else if(GetStringUpperCase(sFormID) == "COCKATRICE")    { nPoly =  189; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING COPPER DRAGON") { nPoly =  230; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING GREEN DRAGON") { nPoly =  232; }
    else if(GetStringUpperCase(sFormID) == "JAGUAR")        { nPoly =  137; }
    else if(GetStringUpperCase(sFormID) == "LION")          { nPoly =  139; }
}

// HD 6
if (nMaxHD >= 6) {
    if(GetStringUpperCase(sFormID) == "DRIDER")             { nPoly =  211; }
    else if(GetStringUpperCase(sFormID) == "FEMALE DRIDER") { nPoly =  307; }
    else if(GetStringUpperCase(sFormID) == "INTELLECT DEVOURERER") { nPoly =  215; }
    else if(GetStringUpperCase(sFormID) == "TROLL")         { nPoly =  175; }
    else if(GetStringUpperCase(sFormID) == "YUAN-TI")       { nPoly =  171; }
    else if(GetStringUpperCase(sFormID) == "MINOTAUR")      { nPoly =  172; }
    else if(GetStringUpperCase(sFormID) == "MEDUSA")        { nPoly =  167; }
    else if(GetStringUpperCase(sFormID) == "BAISLISK")      { nPoly =  197; }
    else if(GetStringUpperCase(sFormID) == "MANTICORE")     { nPoly =  195; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING BLUE DRAGON") { nPoly =  227; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING BRONZE DRAGON") { nPoly =  229; }
    else if(GetStringUpperCase(sFormID) == "BROWN BEAR")    { nPoly =  21; }
    else if(GetStringUpperCase(sFormID) == "WINTER WOLF")   { nPoly =  257; }
    else if(GetStringUpperCase(sFormID) == "DIRE WOLF")     { nPoly =  35; }
}

// HD 7
if (nMaxHD >= 7) {
    if(GetStringUpperCase(sFormID) == "HARPY")              { nPoly =  173; }
    else if(GetStringUpperCase(sFormID) == "STAG BEETLE")   { nPoly =  178; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING RED DRAGON") { nPoly =  233; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING SILVER DRAGON") { nPoly =  234; }
    else if(GetStringUpperCase(sFormID) == "DIRE BOAR")     { nPoly =  36; }
}

// HD 8
if (nMaxHD >= 8) {
    if(GetStringUpperCase(sFormID) == "MIND FLAYER")        { nPoly =  216; }
    else if(GetStringUpperCase(sFormID) == "UMBER HULK")    { nPoly =  217; }
    else if(GetStringUpperCase(sFormID) == "GORGON")        { nPoly =  192; }
    else if(GetStringUpperCase(sFormID) == "SPHINX")        { nPoly =  193; }
    else if(GetStringUpperCase(sFormID) == "WYRMLING GOLD DRAGON") { nPoly =  231; }
    else if(GetStringUpperCase(sFormID) == "POLAR BEAR")    { nPoly =  148; }
    else if(GetStringUpperCase(sFormID) == "GRIZZLY BEAR")  { nPoly =  14; }
}

// HD 9
if (nMaxHD >= 9) {
    if(GetStringUpperCase(sFormID) == "BATTLE DEVOURER")    { nPoly =  209; }
    else if(GetStringUpperCase(sFormID) == "WILL O WISP")   { nPoly =  218; }
    else if(GetStringUpperCase(sFormID) == "BULLETTE")      { nPoly =  313; }
}

// HD 10
if (nMaxHD >= 10) {
    if(GetStringUpperCase(sFormID) == "ETTIN")              { nPoly =  187; }
    else if(GetStringUpperCase(sFormID) == "GREY RENDER")   { nPoly =  221; }
    else if(GetStringUpperCase(sFormID) == "DIRE SPIDER")   { nPoly =  188; }
}

// HD 11
if (nMaxHD >= 11) {
    if(GetStringUpperCase(sFormID) == "BEHOLDER") { nPoly =  210; }
}

// HD 12
if (nMaxHD >= 12) {
    if(GetStringUpperCase(sFormID) == "HILL GIANT")     { nPoly =  222; }
    else if(GetStringUpperCase(sFormID) == "DIRE BEAR") { nPoly =  33; }
}

// HD 13
if (nMaxHD >= 14) {

}

// HD 14
if (nMaxHD >= 14) {
    if(GetStringUpperCase(sFormID) == "FROST GIANT")            { nPoly =  259; }
    else if(GetStringUpperCase(sFormID) == "FROST GIANT FEMALE"){ nPoly =  308; }
}

// HD 15
if (nMaxHD >= 15) {
    if(GetStringUpperCase(sFormID) == "FIRE GIANT")            { nPoly =  289; }
    else if(GetStringUpperCase(sFormID) == "FIRE GIANT FEMALE"){ nPoly =  309; }
}

//couldn't determine the form and npoly is still 0
if (nPoly == 0) {
    SendMessageToPC(OBJECT_SELF, "Unknown form type. Check spelling");}
else if (nPoly > 0) {
    ePoly = EffectPolymorph(nPoly);
    //Fire cast spell at event for the specified target
    SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_POLYMORPH_SELF, FALSE));

    //Apply the VFX impact and effects
    AssignCommand(oTarget, ClearAllActions()); // prevents an exploit
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePoly, oTarget, TurnsToSeconds(nDuration));
}

}