// Created 09-26-2010 by JC Jones, SL name JC Zepp. Feel free to distribute or modify, but leave the header intact and leave the script full permissions. DO NOT RESELL THIS SCRIPT AS IS.Feel free to donate to JC Zepp inworld if you find this script useful. To use simply drop this script into a prim in your campfire along with a nice fire crackle sound. put the name of your sound in the script where indicated 
 
efault
{
    changed(integer change) {
     if (change & (CHANGED_REGION_START | CHANGED_REGION)) {     
            llResetScript();
        }
}
    state_entry()
 
    {
 
        llLoopSound("d6b9452a-e66a-46b7-9558-02361bda1f37", 1.0);
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.55, 7.20, 0.65]);
 
        {
 
        llSetTimerEvent(0.05);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.5, 7.8, 0.25]);
 
        {
 
        llSetTimerEvent(0.12);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.55, 6.8, 0.35]);
 
        {
 
        llSetTimerEvent(0.08);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.45, 8.0, 0.15]);
 
        {
 
        llSetTimerEvent(0.12);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.50, 7.0, 0.45]);
 
        {
 
        llSetTimerEvent(0.10);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.65, 8.0, 0.25]);
 
        {
 
        llSetTimerEvent(0.08);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.50, 7.5, 0.55]);
 
        {
 
        llSetTimerEvent(0.08);
 
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.45, 7.0, 0.25]);
 
        {
 
        llSetTimerEvent(0.12);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.6, 8.0, 0.35]);
 
        {
 
        llSetTimerEvent(0.08);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.40, 7.0, 0.15]);
 
        {
 
        llSetTimerEvent(0.12);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.65, 8.50, 0.45]);
 
        {
 
        llSetTimerEvent(0.10);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.55, 7.50, 0.25]);
 
        {
 
        llSetTimerEvent(0.08);
        }
 
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1, 0.5, 0>, 0.45, 8.90, 0.55]);
 
         llResetScript();
    } 
 
}