void ShapeChange(object oPC, int iType);

void main()
{
object oPC = GetPCSpeaker();
string sThousand = GetLocalString(oPC, "THOUSAND");
string sHundred = GetLocalString(oPC, "HUNDRED");
string sTen = GetLocalString(oPC, "TEN");
string sOne = GetLocalString(oPC, "ONE");
string sType = sThousand + sHundred + sTen + sOne;
int iType = StringToInt(sType);
if  (
    31<iType && iType<34        ||
    iType==7                    ||
    iType==16                   ||
    64<iType && iType<68        ||
    iType==118                  ||
    iType==143                  ||
    iType==149                  ||
    iType==169                  ||
    iType==178                  ||
    iType==183                  ||
    iType==194                  ||
    290<iType && iType<293      ||
    iType==299                  ||
    306<iType && iType<350      ||
    370<iType && iType<374      ||
    392<iType && iType<401      ||
    iType==417                  ||
    446<iType && iType<451      ||
    454<iType && iType<468      ||
    481<iType && iType<1000     ||
    1031<iType && iType<1044    ||
    iType==1051                 ||
    iType==1054                 ||
    iType==1059                 ||
    1068<iType && iType<1073    ||
    1077<iType && iType<1088    ||
    iType==1092                 ||
    iType==1105                 ||
    1124<iType && iType<1132    ||
    1165<iType && iType<1168    ||
    1236<iType && iType<1243    ||
    iType==1254                 ||
    iType==1260                 ||
    iType==1264                 ||
    iType==1276                 ||
    iType==1301                 ||
    1308<iType && iType<1311    ||
    1319<iType && iType<1324    ||
    iType==1331                 ||
    1411<iType && iType<1418    ||
    1418<iType && iType<1421    ||
    iType==1423                 ||
    iType==1438                 ||
    iType==1450                 ||
    iType==1452                 ||
    iType>1504
    )
    {
    ExecuteScript("clear_app",OBJECT_SELF);
    ActionResumeConversation();
    return;
    }

ShapeChange(oPC, iType);
ExecuteScript("clear_app",OBJECT_SELF);
ActionResumeConversation();
}

void ShapeChange(object oPC, int iType)
{
effect eVis = EffectVisualEffect(VFX_FNF_GREATER_RUIN);
ActionPauseConversation();
ActionCastFakeSpellAtObject(SPELL_INCENDIARY_CLOUD, oPC);
DelayCommand(2.5, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC));
DelayCommand(3.3, SetCreatureAppearanceType(oPC, iType));
}