integer LAND_UNEDITABLE = 1;
integer LAND_PUBLIC     = 2;
integer LAND_NO_SCRIPT  = 4;
// Returns as much data as possible about
// the status of the land at the position
// because llScriptDanger is so limited, 
// the integer it returns is a "best guess"
// to the reason for the danger.
integer landStatus(vector pos) {
    if (llGetLandOwnerAt(pos) == NULL_KEY) {
        return LAND_PUBLIC;
    }
    
    integer scriptDanger = llScriptDanger(pos);
    if (!scriptDanger)
        return 0;
    
    integer status = LAND_UNEDITABLE;
    // Check if the position is below the no-script height limit.
    // (Note: no-script land will be set as no-script anywhere over it,
    // but only scripts that attempt to START running under
    // 45m above the ground height will be disabled.
    // Scripts already running when they enter the parcel,
    // or those that start OVER 45m above the parcel will
    // all run within the no-script zone.)
    if (llGround(pos - llGetPos()) <= 45) {
        status = status | LAND_NO_SCRIPT;
    }
    return status;
}