void main()
{
    object oTarget = GetPCSpeaker();
    effect eStone = EffectPetrify();
    float nDelay = IntToFloat(Random(60)+1);

    AssignCommand(oTarget, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_DUR_PETRIFY), GetLocation(oTarget)));
    AssignCommand(oTarget, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eStone, oTarget));
    DelayCommand(nDelay, ActionCastSpellAtObject(SPELL_STONE_TO_FLESH, oTarget, METAMAGIC_NONE, TRUE));
}