// === StatFloat Enhanced ===
key target;
string displayText;
string myName;

integer MSG_SYNC_GAME_STATE = 107;

list lives;
list picksData;
string perilPlayer;
list names;

list getPicksFor(string nameInput) {
    integer i;
    for (i = 0; i < llGetListLength(picksData); i++) {
        string entry = llList2String(picksData, i);
        if (llSubStringIndex(entry, nameInput + "|") == 0) {
            list parts = llParseString2List(entry, ["|"], []);
            if (llGetListLength(parts) >= 2) {
                return llParseString2List(llList2String(parts, 1), [","], []);
            }
        }
    }
    return [];
}

default {
    state_entry() {
        llSetText("⏳ Waiting...", <1,1,1>, 1.0);
        llSetTimerEvent(1.0);
    }

    on_rez(integer start_param) {
        llListen(start_param, "", NULL_KEY, "");
        myName = llGetObjectDesc();
        llOwnerSay("📱 Listening on channel " + (string)start_param + " for " + myName);
    }

    listen(integer channel, string name, key id, string message) {
        if (llSubStringIndex(message, "FLOAT:") == 0) {
            list parts = llParseString2List(message, ["|"], []);
            if (llGetListLength(parts) >= 2) {
                target = (key)llGetSubString(llList2String(parts, 0), 6, -1);
                displayText = llList2String(parts, 1);
                llSetText(displayText, <1,1,1>, 1.0);
                llOwnerSay("✅ StatFloat updated for: " + (string)target);
            }
        }
        else if (message == "CLEANUP") {
            llOwnerSay("🪟 Cleaning up...");
            llDie();
        }
    }

    link_message(integer sender, integer num, string str, key id) {
        if (num == MSG_SYNC_GAME_STATE) {
            list parts = llParseString2List(str, ["~"], []);
            if (llGetListLength(parts) < 4) return;
            lives = llCSV2List(llList2String(parts, 0));
            list rawPicks = llCSV2List(llList2String(parts, 1));
            picksData = [];
            integer i;
            for (i = 0; i < llGetListLength(rawPicks); i++) {
                string entry = llList2String(rawPicks, i);
                if (llSubStringIndex(entry, "|") != -1) {
                    picksData += [entry];
                } else {
                    llOwnerSay("⚠️ Ignored malformed picksData during sync: " + entry);
                }
            }
            perilPlayer = llList2String(parts, 2);
            names = llCSV2List(llList2String(parts, 3));

            integer nameIdx = llListFindList(names, [myName]);
            if (nameIdx == -1) return;

            list picks = getPicksFor(myName);
            integer lifeCount = llList2Integer(lives, nameIdx);

            string perilDisplay;
            if (perilPlayer != "") {
                perilDisplay = perilPlayer;
            } else {
                perilDisplay = "Waiting for peril...";
            }

            string picksDisplay = llList2CSV(picks);

            string txt = "🎲 Peril Dice\n👤 " + myName + "\n❤️ Lives: " + (string)lifeCount + "\n🢍 Peril: " + perilDisplay + "\n🔢 Picks: " + picksDisplay;
            llSetText(txt, <1,1,1>, 1.0);
        }
    }

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