///////////////////////////////////////////////////////////////////////////
//  Copyright (C) Wizardry and Steamworks 2013 - License: GNU GPLv3      //
//  Please see: http://www.gnu.org/licenses/gpl.html for legal details,  //
//  rights of fair usage, the disclaimer and warranty conditions.        //
///////////////////////////////////////////////////////////////////////////
 
default
{
    state_entry() {
        llSensorRepeat("", "", AGENT, 10, TWO_PI, 1);
    }
    sensor(integer num) {
        float d = llFabs(llVecDist(llDetectedPos(0),llGetPos()));
        llParticleSystem([0,295,PSYS_PART_MAX_AGE,3.800000,PSYS_PART_START_COLOR,<1,.98431,.04706>,3,<.98431,.00000,.00000>,PSYS_PART_START_SCALE,<.20213,.20213,.20213>,6,<.27788,.59734,2.66495>/d,PSYS_SRC_PATTERN,2,13,.050000,8,<.00000,.00000,.10000>,PSYS_SRC_BURST_PART_COUNT,10,16,.350000,PSYS_SRC_BURST_SPEED_MIN,.100000,18,.100000,20,llGetKey(),22,1,PSYS_SRC_ANGLE_END,1,PSYS_SRC_OMEGA,<.00000,.00000,.00000>,PSYS_SRC_TEXTURE,"Flame",PSYS_SRC_MAX_AGE,.000000,2,.501961,PSYS_PART_END_ALPHA,.098039]);
        llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1,.5,0>, 2 / d, 10, .75]);
    }
    no_sensor() {
        llParticleSystem([0,1|PSYS_PART_INTERP_SCALE_MASK|PSYS_PART_EMISSIVE_MASK,PSYS_SRC_PATTERN,4,PSYS_PART_START_COLOR,<1,1,1>,3,<.8,.8,.8>,2,.3,PSYS_PART_END_ALPHA,.0,PSYS_PART_START_SCALE,<.025,.035,.0>,6,<1,1.125,.0>,PSYS_PART_MAX_AGE,30.0,8,<.0,.0,.01>,PSYS_SRC_TEXTURE,"Smoke",13,.75,22,3.141593,PSYS_SRC_ANGLE_END,(3.141593-.1),PSYS_SRC_BURST_PART_COUNT,1,16,.01,PSYS_SRC_BURST_SPEED_MIN,.0,18,.01,PSYS_SRC_OMEGA,<.3,.3,0>]);
        llSetPrimitiveParams([PRIM_POINT_LIGHT, FALSE, <1,.5,0>, 1, 10, .75]);
    }
    on_rez(integer num) {
        llResetScript();
    }
    changed(integer change) {
        llResetScript();
    }
}