{COSE}dungeonofpsychologicaltorture

key target="";
integer dethclok;

default{
    on_rez(integer param){
        llResetScript();
    }
    state_entry(){
        llSetText("",<1,1,1>,1);
        if(target=="")
            llSensor("","",AGENT,2,PI);
        else{
            llSensorRepeat("",target,AGENT,200,PI,1);
            dethclok=30;
        }
    }
    sensor(integer num_det){
        llSetText("",<1,1,1>,1);
        target = llDetectedKey(0);
        llOwnerSay("Acquired target... "+llKey2Name(target));
        state pester;
    }
    no_sensor(){
        if(target!=""){
            llSetText("Target lost... dying in "+(string)(--dethclok)
                    ,<0.219,0.555,0.555>,1);
            if(dethclok==0){
                llOwnerSay("X__X");
                llDie();
            }
        }
    }
}

state pester
{
    state_entry(){
        llSensorRepeat("",target,AGENT,200,PI,1);
    }
    sensor(integer num_det){
        vector mypos = llGetPos();
        vector tpos = llDetectedPos(0);
        float dist = llVecDist(mypos,tpos);
        if(dist>3)
            llSetPos(tpos+<0,0,0.5>);
    }
    no_sensor(){
        llOwnerSay("Target lost. Waiting for possible return.");
        state default;
    }
}