LlGetParcelFlags

De DigiWiki.

Version du 5 novembre 2013 à 14:10 (voir la source) Djphil (discuter | contributions) ← Modification précédente		Version actuelle en date du 6 novembre 2013 à 11:48 (voir la source) Djphil (discuter | contributions)
Ligne 1 :		Ligne 1 :
	<lsl>		<lsl>
-	// llGetParcelFlags v0.1 by djphil (BY-BC-SA)	+	if (!(llGetParcelFlags(llGetPos()) & PARCEL_FLAG_ALLOW_FLY))
		+	llSay(0,"You are not allowed to fly here!, Sorry!.");
		+	</lsl>
		+	<lsl>
		+	// Show all the parcel flags for land the object is currently over.
	default		default
	{		{
-	touch_start(integer total_number)	+	state_entry ()
	{		{
-	string TEXT;	+	integer Parcel_Flags = llGetParcelFlags(llGetPos ());
-	integer PARCEL_FLAGS = llGetParcelFlags(llGetPos());	+	if (PARCEL_FLAG_ALLOW_FLY & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_FLY)	+	llOwnerSay ("Parcel allows flying.");
-	TEXT += "\nPARCEL_FLAG_ALLOW_FLY > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_ALLOW_FLY > NO";	+	if (PARCEL_FLAG_ALLOW_SCRIPTS & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_SCRIPTS)	+	llOwnerSay ("Parcel allows outside scripts.");
-	TEXT += "\nPARCEL_FLAG_ALLOW_SCRIPTS > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_ALLOW_SCRIPTS > NO";	+	if (PARCEL_FLAG_ALLOW_TERRAFORM & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_LANDMARK)	+	llOwnerSay ("Parcel allows terraforming.");
-	TEXT += "\nPARCEL_FLAG_ALLOW_LANDMARK > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_ALLOW_LANDMARK > NO";	+	if (PARCEL_FLAG_ALLOW_DAMAGE & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_TERRAFORM)	+	llOwnerSay ("Parcel allows damage.");
-	TEXT += "\nPARCEL_FLAG_ALLOW_TERRAFORM > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_ALLOW_TERRAFORM > NO";	+	if (PARCEL_FLAG_ALLOW_CREATE_OBJECTS & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_DAMAGE)	+	llOwnerSay ("Parcel allows creating objects.");
-	TEXT += "\nPARCEL_FLAG_ALLOW_DAMAGE > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_ALLOW_DAMAGE > NO";	+	if (PARCEL_FLAG_USE_ACCESS_GROUP & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_CREATE_OBJECTS)	+	llOwnerSay ("Parcel limits access to a group.");
-	TEXT += "\nPARCEL_FLAG_ALLOW_CREATE_OBJECTS > YES";	+	}
-	else  TEXT += "\nPARCEL_FLAG_ALLOW_CREATE_OBJECTS > NO";	+	if (PARCEL_FLAG_USE_ACCESS_LIST & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_USE_ACCESS_GROUP)	+	llOwnerSay ("Parcel limits access to a list of residents .");
-	TEXT += "\nPARCEL_FLAG_USE_ACCESS_GROUP > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_USE_ACCESS_GROUP > NO";	+	if (PARCEL_FLAG_USE_BAN_LIST & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_USE_ACCESS_LIST)	+	llOwnerSay ("Parcel uses a ban list.");
-	TEXT += "\nPARCEL_FLAG_USE_ACCESS_LIST > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_USE_ACCESS_LIST > NO";	+	if (PARCEL_FLAG_USE_LAND_PASS_LIST & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_USE_BAN_LIST)	+	llOwnerSay ("Parcel allows passes to be purchased.");
-	TEXT += "\nPARCEL_FLAG_USE_BAN_LIST > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_USE_BAN_LIST > NO";	+	if (PARCEL_FLAG_LOCAL_SOUND_ONLY & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_USE_LAND_PASS_LIST)	+	llOwnerSay ("Parcel restricts spatialised sound to the parcel.");
-	TEXT += "\nPARCEL_FLAG_USE_LAND_PASS_LIST > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_USE_LAND_PASS_LIST > NO";	+	if (PARCEL_FLAG_RESTRICT_PUSHOBJECT & Parcel_Flags)
-		+	{
-	if (PARCEL_FLAGS & PARCEL_FLAG_LOCAL_SOUND_ONLY)	+	llOwnerSay ("Parcel restricts llPushObject.");
-	TEXT += "\nPARCEL_FLAG_LOCAL_SOUND_ONLY > YES";	+	}
-	else TEXT += "\nPARCEL_FLAG_LOCAL_SOUND_ONLY > NO";	+	}
-		+	touch_end (integer n)
-	if (PARCEL_FLAGS & PARCEL_FLAG_RESTRICT_PUSHOBJECT)	+	{
-	TEXT += "\nPARCEL_FLAG_RESTRICT_PUSHOBJECT > YES";	+	llResetScript ();
-	else TEXT += "\nPARCEL_FLAG_RESTRICT_PUSHOBJECT > NO";	+
-		+
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_GROUP_SCRIPTS)	+
-	TEXT += "\nPARCEL_FLAG_ALLOW_GROUP_SCRIPTS > YES";	+
-	else TEXT += "\nPARCEL_FLAG_ALLOW_GROUP_SCRIPTS > NO";	+
-		+
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_CREATE_GROUP_OBJECTS)	+
-	TEXT += "\nPARCEL_FLAG_ALLOW_CREATE_GROUP_OBJECTS > YES";	+
-	else TEXT += "\nPARCEL_FLAG_ALLOW_CREATE_GROUP_OBJECTS > NO";	+
-		+
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_ALL_OBJECT_ENTRY)	+
-	TEXT += "\nPARCEL_FLAG_ALLOW_ALL_OBJECT_ENTRY > YES";	+
-	else TEXT += "\nPARCEL_FLAG_ALLOW_ALL_OBJECT_ENTRY > NO";	+
-		+
-	if (PARCEL_FLAGS & PARCEL_FLAG_ALLOW_GROUP_OBJECT_ENTRY)	+
-	TEXT += "\nPARCEL_FLAG_ALLOW_GROUP_OBJECT_ENTRY > YES";	+
-	else TEXT += "\nPARCEL_FLAG_ALLOW_GROUP_OBJECT_ENTRY > NO";	+
-	llOwnerSay(TEXT);	+
	}		}
	}		}
-	</lsl>
-	<lsl>
-	if (!(llGetParcelFlags(llGetPos()) & PARCEL_FLAG_ALLOW_FLY))
-	llSay(0,"You are not allowed to fly here!, Sorry!.");
	</lsl>		</lsl>

---

Version actuelle en date du 6 novembre 2013 à 11:48

if (!(llGetParcelFlags(llGetPos()) & PARCEL_FLAG_ALLOW_FLY))
    llSay(0,"You are not allowed to fly here!, Sorry!.");

// Show all the parcel flags for land the object is currently over.
default
{
    state_entry ()
    {
        integer Parcel_Flags = llGetParcelFlags(llGetPos ());
        if (PARCEL_FLAG_ALLOW_FLY & Parcel_Flags)
        {
            llOwnerSay ("Parcel allows flying.");
        }
        if (PARCEL_FLAG_ALLOW_SCRIPTS & Parcel_Flags)
        {
            llOwnerSay ("Parcel allows outside scripts.");
        }
        if (PARCEL_FLAG_ALLOW_TERRAFORM & Parcel_Flags)
        {
            llOwnerSay ("Parcel allows terraforming.");
        }
        if (PARCEL_FLAG_ALLOW_DAMAGE & Parcel_Flags)
        {
            llOwnerSay ("Parcel allows damage.");
        }
        if (PARCEL_FLAG_ALLOW_CREATE_OBJECTS & Parcel_Flags)
        {
            llOwnerSay ("Parcel allows creating objects.");
        }
        if (PARCEL_FLAG_USE_ACCESS_GROUP & Parcel_Flags)
        {
            llOwnerSay ("Parcel limits access to a group.");
        }
        if (PARCEL_FLAG_USE_ACCESS_LIST & Parcel_Flags)
        {
            llOwnerSay ("Parcel limits access to a list of residents .");
        }
        if (PARCEL_FLAG_USE_BAN_LIST & Parcel_Flags)
        {
            llOwnerSay ("Parcel uses a ban list.");
        }
        if (PARCEL_FLAG_USE_LAND_PASS_LIST & Parcel_Flags)
        {
            llOwnerSay ("Parcel allows passes to be purchased.");
        }
        if (PARCEL_FLAG_LOCAL_SOUND_ONLY & Parcel_Flags)
        {
            llOwnerSay ("Parcel restricts spatialised sound to the parcel.");
        }
        if (PARCEL_FLAG_RESTRICT_PUSHOBJECT & Parcel_Flags)
        {
            llOwnerSay ("Parcel restricts llPushObject.");
        }
    }
    touch_end (integer n)
    {
        llResetScript ();
    }
}