NWScript:
void main()
{
object oPC = GetLastOpenedBy();
if ( GetIsPC( oPC ) )
{
effect epolymorph = EffectPolymorph(POLYMORPH_TYPE_PENGUIN );
ActionWait(0.5);
ActionCastSpellAtObject( SPELL_POLYMORPH_SELF , oPC);
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, epolymorph, oPC, 20.0);
SendMessageToPC(oPC, "You feel funky!");
}
}