Difference between revisions of "LlGetParcelPrimCount"
Jump to navigation
Jump to search
m (new styling) |
Rolig Loon (talk | contribs) |
||
Line 38: | Line 38: | ||
} | } | ||
}</lsl> | }</lsl> | ||
<lsl> | |||
//Sim-wide scanner to count prim use in each parcel | |||
list gPrclID; | |||
integer gTotPrims; | |||
float gX; | |||
float gY; | |||
string gObjName; | |||
integer gNUM; | |||
default | |||
{ | |||
state_entry() | |||
{ | |||
gObjName = llGetObjectName(); | |||
gPrclID = []; | |||
gTotPrims = 0; | |||
// Begin scanning at the SW <0.0,0.0,0.0> corner of the sim | |||
gX = 4.0; | |||
gY = 4.0; | |||
} | |||
on_rez(integer start) | |||
{ | |||
llSetPos(llGetPos() + <0.0,0.0,0.5>); | |||
llSetText("Touch to start scan",<1.0,1.0,0.0>,1.0); | |||
} | |||
touch_start(integer total_number) | |||
{ | |||
llSetText("Scanning ....",<1.0,1.0,0.0>,1.0); | |||
gNUM = 0; | |||
llRegionSayTo(llGetOwner(),0,"Scan started on " + llGetRegionName()); | |||
llSetTimerEvent(0.1); | |||
} | |||
timer() | |||
{ | |||
//Grab the parcel's ID and name at position <gX, gY, 100.0> | |||
list parcel = llGetParcelDetails(<gX,gY,100.0>,[PARCEL_DETAILS_ID,PARCEL_DETAILS_NAME]); | |||
key temp = llList2Key(parcel,0); | |||
string parcel_name = llList2String(parcel,1); | |||
if (parcel_name == "") | |||
{ | |||
parcel_name = "(no name)"; | |||
} | |||
if (!~llListFindList(gPrclID,[temp])) //Scan at this location if this parcel was not scanned earlier | |||
{ | |||
++gNUM; | |||
llSetObjectName((string)gNUM); | |||
integer Count = llGetParcelPrimCount(<gX,gY,100>,PARCEL_COUNT_TOTAL,FALSE); //Do not include other parcels owned by llGetOwner() | |||
gTotPrims += Count; | |||
llRegionSayTo(llGetOwner(),0, "/me "+ parcel_name + " @ <"+(string)gX+","+(string)gY+",Z> = " + (string)Count); | |||
gPrclID += [temp]; //Add this parcel to the "previously scanned" list | |||
} | |||
// Increment X and Y in successive scans to look at the entire sim in 8m square blocks | |||
if (gX < 256.0) | |||
{ | |||
gX +=8.0; | |||
} | |||
if (gX > 256.0) | |||
{ | |||
gY += 8.0; | |||
gX = 4.0; | |||
} | |||
if (gY > 256.0) // Reached NE corner | |||
{ | |||
llSetObjectName(gObjName); | |||
llRegionSayTo(llGetOwner(),0,"Scan finished. Total Prims = " + (string)gTotPrims + " in " + (string)llGetListLength(gPrclID) + " parcels (not counting temp rez prims)."); | |||
llSetText("Touch to start scan",<1.0,1.0,0.0>,1.0); | |||
llResetScript(); | |||
} | |||
} | |||
} | |||
</lsl> | |||
|helpers | |helpers | ||
|also_functions= | |also_functions= |
Revision as of 06:47, 8 October 2012
LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
Summary
Function: integer llGetParcelPrimCount( vector pos, integer category, integer sim_wide );0.0 | Forced Delay |
10.0 | Energy |
Returns an integer that is the number of prims on the parcel at pos of the given category
• vector | pos | – | position in region coordinates (z component is ignored) | |
• integer | category | – | a PARCEL_COUNT_* flag | |
• integer | sim_wide | – | boolean, TRUE[1] searches parcels in the region with the same owner as the targeted parcel, FALSE searches only the targeted parcel |
Specification
Examples
<lsl>//gives prim usage information when touched. default {
touch_start(integer total_number) { vector pos = llGetPos(); llSay(0, "There are " + (string)llGetParcelPrimCount(pos, PARCEL_COUNT_TOTAL, FALSE) + " total prims on this parcel"); llSay(0, (string)llGetParcelPrimCount(pos, PARCEL_COUNT_OWNER, FALSE) + " prims are owned by the parcel owner"); llSay(0, (string)llGetParcelPrimCount(pos, PARCEL_COUNT_GROUP, FALSE) + " prims set to or owned by the parcel's group."); llSay(0, (string)llGetParcelPrimCount(pos, PARCEL_COUNT_OTHER, FALSE) + " prims that are not set to the parcel group or owned by the parcel owner"); llSay(0, (string)llGetParcelPrimCount(pos, PARCEL_COUNT_SELECTED, FALSE) + " prims are selected"); llSay(0, (string)llGetParcelPrimCount(pos, PARCEL_COUNT_TEMP, FALSE) + " prims are temp-on-rez"); }
}</lsl> <lsl> //Sim-wide scanner to count prim use in each parcel list gPrclID; integer gTotPrims; float gX; float gY; string gObjName; integer gNUM;
default {
state_entry() { gObjName = llGetObjectName(); gPrclID = []; gTotPrims = 0; // Begin scanning at the SW <0.0,0.0,0.0> corner of the sim gX = 4.0; gY = 4.0; } on_rez(integer start) { llSetPos(llGetPos() + <0.0,0.0,0.5>); llSetText("Touch to start scan",<1.0,1.0,0.0>,1.0); }
touch_start(integer total_number) { llSetText("Scanning ....",<1.0,1.0,0.0>,1.0); gNUM = 0; llRegionSayTo(llGetOwner(),0,"Scan started on " + llGetRegionName()); llSetTimerEvent(0.1); } timer() { //Grab the parcel's ID and name at position <gX, gY, 100.0> list parcel = llGetParcelDetails(<gX,gY,100.0>,[PARCEL_DETAILS_ID,PARCEL_DETAILS_NAME]); key temp = llList2Key(parcel,0); string parcel_name = llList2String(parcel,1); if (parcel_name == "") { parcel_name = "(no name)"; } if (!~llListFindList(gPrclID,[temp])) //Scan at this location if this parcel was not scanned earlier { ++gNUM; llSetObjectName((string)gNUM); integer Count = llGetParcelPrimCount(<gX,gY,100>,PARCEL_COUNT_TOTAL,FALSE); //Do not include other parcels owned by llGetOwner() gTotPrims += Count; llRegionSayTo(llGetOwner(),0, "/me "+ parcel_name + " @ <"+(string)gX+","+(string)gY+",Z> = " + (string)Count); gPrclID += [temp]; //Add this parcel to the "previously scanned" list } // Increment X and Y in successive scans to look at the entire sim in 8m square blocks if (gX < 256.0) { gX +=8.0; } if (gX > 256.0) { gY += 8.0; gX = 4.0; } if (gY > 256.0) // Reached NE corner { llSetObjectName(gObjName); llRegionSayTo(llGetOwner(),0,"Scan finished. Total Prims = " + (string)gTotPrims + " in " + (string)llGetListLength(gPrclID) + " parcels (not counting temp rez prims)."); llSetText("Touch to start scan",<1.0,1.0,0.0>,1.0); llResetScript(); } }
}
</lsl>See Also
Functions
• | llGetParcelMaxPrims |