SLUniverse Forums

// SMM-Ghost Prim Detector 0.1

integer gScanType = PASSIVE;
float gScanRange = 50.0;
float gScanRate = 10.0;
float gScanArc = PI;

vector gTextColour = <1,1,1>;
key gOwner;
integer gScanOn;



default
{
    on_rez(integer start_param)
    {
        llResetScript();
    }
    
    state_entry()
    {
        gScanOn = FALSE;
        llSetObjectName(llGetScriptName());
        gOwner = llGetOwner();
        llSetText("Inactive", gTextColour, 1.0);
    }

    touch_start(integer total_number)
    {
        if (gScanOn == FALSE)
        {
            llSetTimerEvent(gScanRate);
            gScanOn = TRUE;
            llOwnerSay("nType: " + (string)gScanType
                        + "nRange: " + (string)gScanRange
                        + "nRate: " + (string)gScanRate);
                        
        }
        else if (gScanOn == TRUE)
        {
            llSetTimerEvent(0);
            gScanOn = FALSE;
            llSetText("Inactive", gTextColour, 1.0);
        }
    }
    
    timer()
    {
        llSensor("", NULL_KEY, gScanType, gScanRange, gScanArc);
    }
    sensor(integer num_detected)
    {
        integer ghostcount = 0;
        integer normalcount = 0;
        string output = "";
        integer x;
        for(x = 0 ; x < num_detected ; x++)
        {
            list a = llGetObjectDetails(llDetectedKey(x), ([OBJECT_NAME, 
                    OBJECT_DESC, OBJECT_POS, OBJECT_ROT, OBJECT_VELOCITY,
                    OBJECT_OWNER, OBJECT_GROUP, OBJECT_CREATOR]));
            if ((llList2String(a,3) == "") && (llList2String(a,2) == "") && (llList2String(a,5) == "") && (llList2String(a,7) == ""))
            {
                ghostcount = ghostcount + 1;
            }
            else if ((llList2String(a,3) != "") && (llList2String(a,2) != "") && (llList2String(a,5) != "") && (llList2String(a,7) != ""))
            {
                normalcount = normalcount + 1;
        }
        
        llSetText("Objects within " + llGetSubString((string)gScanRange, 0,4) +  "m:"
            + "nGhost objects: " + (string)ghostcount
            + "nNormal objects: " + (string)normalcount , gTextColour, TRUE);
        }
    }

    no_sensor()
    {
        llSetText("No ghost objects detected", <1.0,0.5,0.5>,1.0);
    }
}