Abductorus

integer onguard=0;
vector cut = <0,1,0>;
float hollow = 0;
vector twist = <0,0,0>;
vector topshear = <0.0, 0.0, 0.0>;
vector taper_a = <0,0,0>;
float revolutions = 1.0;
float radiusoffset = 0.0;
float skew = 0.0;
vector atk_scale = <1.72352, 1.83, 3.21098>;
vector lurekut = <0.6,0.9,0>;
vector atkkut = <0,1,0>;
vector origpos;
rotation origrot;
key gotchasucker;

morph(float gasp, vector kutcha){
    llSetPrimitiveParams([PRIM_TYPE, PRIM_TYPE_TORUS, 0,
                        cut, hollow, twist, <1,gasp,0>, topshear,
                        kutcha, taper_a, revolutions,
                        radiusoffset, skew]);
}

disarm(){
    onguard=0;
    llSetTimerEvent(0);
    morph(0.05,lurekut);
    llSetScale(atk_scale);
    llSetForce(<0,0,0>,0);
    llSetPrimitiveParams([PRIM_PHYSICS,FALSE]);
    llSetRot(origrot);
    while(llGetPos()!=origpos)
        llSetPrimitiveParams([PRIM_POSITION,origpos]);
    llSleep(2);
    llSensorRepeat("","",AGENT,0.5,PI,0.2);
}

default{
    on_rez(integer param){
        llResetScript();
    }
    state_entry(){
        llSetStatus(STATUS_DIE_AT_EDGE,TRUE);
        origpos = llGetPos();
        origrot = llGetRot();
        disarm();
    }
    sensor(integer num_det){
        if(!onguard){
            llSetTimerEvent(7);
            onguard=1;
            gotchasucker = llDetectedKey(0);
            morph(0.5,atkkut);
            llSetScale(atk_scale);
            llSensorRemove();
            llSetPrimitiveParams([PRIM_PHYSICS,TRUE]);
            llSetForce(<0,0,1000>,0);
            llSensorRepeat("",gotchasucker,AGENT,5,PI,2);
        }
    }
    timer(){
        if(onguard)
            disarm();
    }
}