LaserDoorKludgeV1

state door_open
{
    on_rez(integer arg) { llResetScript(); }

    state_entry()
    {
        integer getLinkWithName(string name = "InsertDoorName") {
        integer i = llGetLinkNumber() != 0;   // Start at zero (single prim) or 1 (two or more prims)
        integer x = llGetNumberOfPrims() + i; // [0, 1) or [1, llGetNumberOfPrims()]
        for (; i < x; ++i)
            if (llGetLinkName(i) == name)
                return i; // Found it! Exit loop early with result
            return -1; // No prim with that name, return -1.
        }
        func_debug("door_open state_entry");
        // make us permeable
        llListen(gLockChannel, "", "", "");
        llSetLinkPrimitiveParamsFast(i, STATUS_PHANTOM<1>);//True?
    }