Peril_Dice/PlayerStatus_Float.lsl

#include "Peril_Constants.lsl"

// === Player Status Float - Enhanced Display ===

key target;
string displayText;
string myName;
integer listenHandle = -1;


default {
    state_entry() {
        REPORT_MEMORY();
        string currentDesc = llGetObjectDesc();
        
        llSetText("⏳ Waiting...", <1,1,1>, 1.0);
        llSetTimerEvent(1.0);
    }

    on_rez(integer start_param) {
        REPORT_MEMORY();
        if (listenHandle != -1) llListenRemove(listenHandle);
        listenHandle = llListen(start_param, "", NULL_KEY, "");
        myName = "";
        llSetRemoteScriptAccessPin(1337); 
        // Forced sync for v3.2.5 diagnostic
        dbg("📊 [Status Float] Listener active on channel: " + (string)start_param);
    }

    attach(key id) {
        if (id != NULL_KEY) {
            // HUD MODE: Stop following target in-world
            llSetTimerEvent(0.0);
            
            // RE-REQUEST PERMISSIONS: Ownership transfers on attach, which resets permissions.
            // We refresh them here silently so CLEANUP can detach us later.
            llRequestExperiencePermissions(id, "");
            
            // HUD Scaling & Rotation (Center 2 focus)
            llSetLinkPrimitiveParamsFast(LINK_THIS, [
                PRIM_SIZE, <0.05, 0.05, 0.05>,
                PRIM_ROTATION, ZERO_ROTATION,
                PRIM_POSITION, <0.0, 0.0, 0.0> 
            ]);
            
            dbg("📊 [Status Float] HUD Attached to " + llKey2Name(id));
        } else {
            // BACK TO WORLD: Restore size and follow logic
            llSetLinkPrimitiveParamsFast(LINK_THIS, [PRIM_SIZE, <0.2, 0.2, 0.2>]);
        }
    }

    experience_permissions(key av) {
        // ATTACH_HUD_CENTER_2 = 31
        llAttachToAvatarTemp(31); 
    }

    listen(integer channel, string name, key id, string message) {
        // Universal Floater API - Format: CMD:avKey|T=Text|G=Glow|C=Color|H=HeartTexture
        if (llSubStringIndex(message, "CMD:") == 0) {
            list parts = llParseString2List(message, ["|"], []);
            if (llGetListLength(parts) < 1) return;
            
            string header = llList2String(parts, 0);
            target = (key)llGetSubString(header, 4, -1);
            
            integer i;
            for (i = 1; i < llGetListLength(parts); i++) {
                string pair = llList2String(parts, i);
                integer eqIdx = llSubStringIndex(pair, "=");
                if (eqIdx != -1) {
                    string keyStr = llGetSubString(pair, 0, eqIdx - 1);
                    string valStr = llGetSubString(pair, eqIdx + 1, -1);
                    
                    if (keyStr == "T") {
                        displayText = valStr;
                        llSetText(displayText, <1,1,1>, 1.0);
                    }
                    else if (keyStr == "G") {
                        llSetLinkPrimitiveParamsFast(LINK_THIS, [PRIM_GLOW, ALL_SIDES, (float)valStr]);
                    }
                    else if (keyStr == "C") {
                        llSetLinkPrimitiveParamsFast(LINK_THIS, [PRIM_COLOR, ALL_SIDES, (vector)valStr, 1.0]);
                    }
                    else if (keyStr == "H") {
                        llSetLinkPrimitiveParamsFast(LINK_THIS, [
                            PRIM_TEXTURE, 1, valStr, <1,1,0>, ZERO_VECTOR, 0.0,
                            PRIM_TEXTURE, 2, valStr, <1,1,0>, ZERO_VECTOR, 0.0,
                            PRIM_TEXTURE, 3, valStr, <1,1,0>, ZERO_VECTOR, 0.0,
                            PRIM_TEXTURE, 4, valStr, <1,1,0>, ZERO_VECTOR, 0.0
                        ]);
                    }
                }
            }
        }
        else if (message == "CLEANUP") {
            dbg("🧹 [Status Float] CLEANUP signal received.");
            
            // Only attempt to detach if actually attached to avoid errors
            if (llGetAttached() != 0) {
                if (llGetPermissions() & PERMISSION_ATTACH) {
                    dbg("🔗 [Status Float] Detaching from avatar...");
                    llDetachFromAvatar();
                } else {
                    // Fallback: Just hide the floater if we can't detach
                    dbg("⚠️ [Status Float] No PERMISSION_ATTACH - hiding display.");
                    llSetText("", <1,1,1>, 0.0);
                }
            } else {
                // If in-world, we can safely die
                llSleep(DELAY_FLOAT_UPDATE);
                llDie();
            }
        }
        else if (llSubStringIndex(message, "ATTACH_TO:") == 0) {
            key avKey = (key)llGetSubString(message, 10, -1);
            if (avKey != NULL_KEY) {
                // VERIFY AGENT: Bots are not agents, so only request permissions for real users.
                // llGetAgentSize returns ZERO_VECTOR if the key is not a valid Agent in the region.
                if (llGetAgentSize(avKey) != ZERO_VECTOR) {
                    llRequestExperiencePermissions(avKey, "");
                } else {
                    dbg("📊 [Status Float] Bot or non-local agent detected. Following in-world instead.");
                }
            }
        }
        else if (llSubStringIndex(message, "SET_NAME:") == 0) {
            myName = llGetSubString(message, 9, -1);
            llSetObjectDesc(myName);
        }
    }

    timer() {
        if (target != NULL_KEY) {
            list details = llGetObjectDetails(target, [OBJECT_POS]);
            if (llGetListLength(details) > 0) {
                vector pos = llList2Vector(details, 0) + <1,0,1>;
                llSetRegionPos(pos);
            }
        }
    }
}