Peril_Dice/Game_Calculator.lsl

// === Game Calculator Module (Max 10 players) ===
// Calculates dice types, pick requirements, and other game mechanics
// This version chooses a dice size based on the number of players,
// ensuring at least three numbers are available per player.

integer MSG_GET_DICE_TYPE = 1001;
integer MSG_DICE_TYPE_RESULT = 1005;
integer MSG_GET_PICKS_REQUIRED = 1002;
integer MSG_GET_PICKER_INDEX = 1003;
integer MSG_SERIALIZE_GAME_STATE = 1004;
integer MSG_SYNC_GAME_STATE = 107;
integer MSG_SYNC_PICKQUEUE = 2001;

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

// List of supported dice sizes; ensure the last entry can accommodate 10 players × 3 picks = 30
list STANDARD_DICE = [6, 12, 20, 30];

// Determine which die to use based on player count.
// Each player should have at least 3 numbers available to choose from.
integer getDiceType(integer playerCount) {
    integer minimumSides = playerCount * 3;
    integer i;
    for (i = 0; i < llGetListLength(STANDARD_DICE); i++) {
        integer sides = llList2Integer(STANDARD_DICE, i);
        if (sides >= minimumSides) {
            return sides;
        }
    }
    // If no predefined die has enough sides, return the largest supported die (d30)
    return llList2Integer(STANDARD_DICE, llGetListLength(STANDARD_DICE) - 1);
}

// Determine how many picks a player should make based on the peril player's lives
integer getPicksRequiredFromName(string name) {
    integer idx = llListFindList(names, [name]);
    if (idx == -1) {
        integer i;
        for (i = 0; i < llGetListLength(names); i++) {
            string testName = llList2String(names, i);
            if (llSubStringIndex(testName, name) != -1) {
                idx = i;
                i = llGetListLength(names);
            }
        }
    }
    if (idx == -1) return 0;
    integer lifeCount = (integer)llList2String(lives, idx);
    // Pick count = 4 - peril player's lives (3 lives=1 pick, 2 lives=2 picks, 1 life=3 picks)
    return 4 - lifeCount;
}

// Find the index of a player in the pickQueue by name
integer getPickerIndex(string name) {
    return llListFindList(pickQueue, [name]);
}

// Serialize the current game state for syncing with other scripts
string serializeGameState() {
    return llList2CSV(lives) + "~" + llList2CSV(picksData) + "~" + perilPlayer + "~" + llList2CSV(names);
}

// Show a pick management dialog for the owner.
// LSL does not support a void return type, so this returns an integer which is ignored.
integer showPickManager(string player, key id) {
    string searchName = player;
    if (llSubStringIndex(searchName, "~") != -1) {
        list parts = llParseString2List(searchName, ["~"], []);
        searchName = llList2String(parts, 1);
    }

    integer idx = llListFindList(names, [searchName]);
    if (idx == -1) {
        integer i;
        for (i = 0; i < llGetListLength(names); i++) {
            string testName = llList2String(names, i);
            if (llSubStringIndex(testName, searchName) != -1) {
                idx = i;
                llOwnerSay("✅ Matched pick list for: " + testName);
                i = llGetListLength(names);
            }
        }
        if (idx == -1) {
            llOwnerSay("⚠️ Could not find player: " + player);
            return 0;
        }
    }

    integer maxPicks = getPicksRequiredFromName(llList2String(names, idx));

    string currentData = llList2String(picksData, idx);
    list parts = llParseString2List(currentData, ["|"], []);
    list currentPicks = [];
    if (llGetListLength(parts) > 1) {
        currentPicks = llParseString2List(llList2String(parts, 1), [","], []);
    }

    list buttons = [];
    integer i;
    for (i = 1; i <= 6; i++) {
        string numStr = (string)i;
        if (llListFindList(currentPicks, [numStr]) != -1) {
            buttons += ["❌ " + numStr];
        } else if (llGetListLength(currentPicks) < maxPicks) {
            buttons += ["➕ " + numStr];
        }
    }

    // Don't show hardcoded dialog - let the Owner Dialog Handler manage this
    llOwnerSay("🧮 Calculator delegating pick management to dialog handler for: " + (string)id);
    // Return without showing dialog - this should be handled by the proper dialog handler

    // Return dummy value since LSL does not have a void return type
    return 0;
}

default {
    state_entry() {
        // Initialize/reset all state variables
        lives = [];
        picksData = [];
        perilPlayer = "";
        names = [];
        pickQueue = [];
        llOwnerSay("🧮 Game Calculator ready!");
    }
    
    on_rez(integer start_param) {
        llOwnerSay("🔄 Game Calculator rezzed - reinitializing...");
        
        // Reset all state variables on rez
        lives = [];
        picksData = [];
        perilPlayer = "";
        names = [];
        pickQueue = [];
        
        llOwnerSay("✅ Game Calculator reset complete after rez!");
    }
    
    link_message(integer sender, integer num, string str, key id) {
        // Handle full reset from main controller
        if (num == -99999 && str == "FULL_RESET") {
            // Reset helper state
            lives = [];
            picksData = [];
            perilPlayer = "";
            names = [];
            pickQueue = [];
            llOwnerSay("🧮 Calculator Module reset!");
            return;
        }
        
        if (num == MSG_SYNC_GAME_STATE) {
            list parts = llParseString2List(str, ["~"], []);
            if (llGetListLength(parts) < 4) {
                llOwnerSay("⚠️ Game Calculator: Incomplete sync message received, parts: " + (string)llGetListLength(parts));
                return;
            }
            lives = llCSV2List(llList2String(parts, 0));
            // Use ^ delimiter for picksData to avoid comma conflicts
            string picksDataStr = llList2String(parts, 1);
            if (picksDataStr == "" || picksDataStr == "EMPTY") {
                picksData = [];
            } else {
                picksData = llParseString2List(picksDataStr, ["^"], []);
            }
            string receivedPeril = llList2String(parts, 2);
            if (receivedPeril == "NONE") {
                perilPlayer = "";
            } else {
                perilPlayer = receivedPeril;
            }
            names = llCSV2List(llList2String(parts, 3));
            
        }
        else if (num == MSG_SYNC_PICKQUEUE) {
            pickQueue = llCSV2List(str);
        }
        else if (num == MSG_GET_DICE_TYPE) {
            integer playerCount = (integer)str;
            llOwnerSay("📈 Calculator: Calculating dice type for " + (string)playerCount + " players");
            integer result = getDiceType(playerCount);
            // Send result only to the requester (sender), not broadcast to everyone
            llMessageLinked(sender, MSG_DICE_TYPE_RESULT, (string)result, NULL_KEY);
        }
        else if (num == MSG_GET_PICKS_REQUIRED) {
            integer result = getPicksRequiredFromName(str);
            llMessageLinked(LINK_THIS, MSG_GET_PICKS_REQUIRED, (string)result, NULL_KEY);
        }
        else if (num == MSG_GET_PICKER_INDEX) {
            integer result = getPickerIndex(str);
            llMessageLinked(LINK_THIS, MSG_GET_PICKER_INDEX, (string)result, NULL_KEY);
        }
        else if (num == MSG_SERIALIZE_GAME_STATE) {
            llMessageLinked(LINK_THIS, MSG_SERIALIZE_GAME_STATE, serializeGameState(), NULL_KEY);
        }
        else if (num == 206) {
            llOwnerSay("📨 MSG 206 received for: " + str + " from: " + (string)id);
            showPickManager(str, id);
        }
    }
}