Flexi prim script

From Dreamworld Virtual World

An interesting script to experiment with flexible prims.

default
{
    state_entry()
    {
        llSensorRepeat("",NULL_KEY,AGENT,10,PI,1.0);
    }

    sensor(integer num)
    {
        key target = llDetectedKey(0);
        vector mypos = llGetPos();
        vector targetpos = llDetectedPos(0);
        vector test = llVecNorm(targetpos-mypos);
        llSetPrimitiveParams([PRIM_FLEXIBLE, TRUE, 3,0.55,0.0,0.0,5.0,test]);
        
    }
    no_sensor()
    {
        vector mypos = llGetPos();
        vector targetpos = llDetectedPos(0);
        vector test = llVecNorm(targetpos-mypos);

llSetPrimitiveParams([PRIM_FLEXIBLE, FALSE, 3,0.5,0.0,0.0,1.0,test]);
    }
    link_message(integer sn, integer num, string str, key id)
    {
        if(str == "OFF")
        {
            state off;
        }
    }
}

state off
{
      state_entry()
    {
        key target = llDetectedKey(0);
        vector mypos = llGetPos();
        vector targetpos = llDetectedPos(0);
        vector test = llVecNorm(targetpos-mypos);
           
        llSensorRemove();
        llSetPrimitiveParams([PRIM_FLEXIBLE, FALSE, 3,0.5,0.0,0.0,1.0,test]);
    }
    
    link_message(integer sn, integer num, string str, key id)
    {
        if(str == "ON")
        {
            state default;
        }   
    } 
}