323 lines
16 KiB
Text
323 lines
16 KiB
Text
#include "peril/Peril_Constants.lsl"
|
|
|
|
// =============================================================================
|
|
// PERIL SCOREBOARD - GRID DISPLAY MANAGER (v3.2.7 Final)
|
|
// =============================================================================
|
|
// Shows current game players in grid layout (Profile Pic, Hearts, Overlay)
|
|
// Delegates persistent Leaderboard storage to Game_Leaderboard_Manager.lsl
|
|
// =============================================================================
|
|
|
|
// --- DYNAMIC LINK DISCOVERY ---
|
|
integer BACKGROUND_PRIM = -1;
|
|
integer ACTIONS_PRIM = -1;
|
|
list gridLinks = [0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0];
|
|
|
|
discoverLinks() {
|
|
integer _dl_i;
|
|
integer _dl_total = llGetNumberOfPrims();
|
|
gridLinks = [0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0];
|
|
|
|
for (_dl_i = 1; _dl_i <= _dl_total; _dl_i++) {
|
|
string _name = llGetLinkName(_dl_i);
|
|
if (_name == "backboard:0:0") BACKGROUND_PRIM = _dl_i;
|
|
else if (_name == "TitleAction:0:0") ACTIONS_PRIM = _dl_i;
|
|
else if (_name == "Scoreboard:0:0") LINK_SCOREBOARD = _dl_i;
|
|
else {
|
|
list _p = llParseString2List(_name, [":"], []);
|
|
if (llGetListLength(_p) == 3) {
|
|
string _type = llList2String(_p, 0);
|
|
integer _idx = (((integer)llList2String(_p, 1)) * 2) + ((integer)llList2String(_p, 2));
|
|
if (_idx >= 0 && _idx < 10) {
|
|
integer _gb = _idx * 3;
|
|
if (_type == "profile") gridLinks = llListReplaceList(gridLinks, [_dl_i], _gb, _gb);
|
|
else if (_type == "life") gridLinks = llListReplaceList(gridLinks, [_dl_i], _gb + 1, _gb + 1);
|
|
else if (_type == "overlay") gridLinks = llListReplaceList(gridLinks, [_dl_i], _gb + 2, _gb + 2);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
dbg("Discovery done");
|
|
if (LINK_SCOREBOARD == -1) LINK_SCOREBOARD = 1;
|
|
}
|
|
|
|
// --- Textures ---
|
|
#define LEADERBOARD_WIDTH 32
|
|
#define TEXTURE_0_HEARTS "7d8ae121-e171-12ae-f5b6-7cc3c0395c7b"
|
|
#define TEXTURE_1_HEARTS "6605d25f-8e2d-2870-eb87-77c58cd47fa9"
|
|
#define TEXTURE_2_HEARTS "7ba6cb1e-f384-25a5-8e88-a90bbd7cc041"
|
|
#define TEXTURE_3_HEARTS "a5d16715-4648-6526-5582-e8068293f792"
|
|
#define TEXTURE_DEFAULT_PROFILE "1ce89375-6c3c-3845-26b1-1dc666bc9169"
|
|
#define TEXTURE_BOT_PROFILE "62f31722-04c1-8c29-c236-398543f2a6ae"
|
|
#define BLANK_TEXTURE "5748decc-f629-461c-9a36-a35a221fe21f"
|
|
#define TEXTURE_BACKGROUND "5748decc-f629-461c-9a36-a35a221fe21f"
|
|
#define TEXTURE_TITLE "624bb7a7-e856-965c-bae8-94d75226c1bc"
|
|
#define TEXTURE_ELIMINATED_X "90524092-03b0-1b3c-bcea-3ea5118c6dba"
|
|
|
|
// Status textures
|
|
#define TEXTURE_PERIL "c5676fec-0c85-5567-3dd8-f939234e21d9"
|
|
#define TEXTURE_PERIL_SELECTED "a53ff601-3c8a-e312-9e0e-f6fa76f6773a"
|
|
#define TEXTURE_VICTORY "ec5bf10e-4970-fb63-e7bf-751e1dc27a8d"
|
|
#define TEXTURE_PUNISHMENT "acfabed0-84ad-bfd1-cdfc-2ada0aeeaa2f"
|
|
#define TEXTURE_DIRECT_HIT "ecd2dba2-3969-6c39-ad59-319747307f55"
|
|
#define TEXTURE_NO_SHIELD "2440174f-e385-44e2-8016-ac34934f11f5"
|
|
#define TEXTURE_PLOT_TWIST "ec533379-4f7f-8183-e877-e68af703dcce"
|
|
|
|
list activePlayers = []; // Stride 3: Name, Lives, UUID/Texture
|
|
string currentPerilPlayer = "";
|
|
string currentWinner = "";
|
|
list httpRequests = [];
|
|
|
|
#define PROFILE_KEY_PREFIX "<meta name=\"imageid\" content=\""
|
|
#define PROFILE_IMG_PREFIX "<img alt=\"profile image\" src=\"http://secondlife.com/app/image/\""
|
|
#define PROFILE_KEY_PREFIX_LENGTH 30
|
|
#define PROFILE_IMG_PREFIX_LENGTH 59
|
|
|
|
resetBackgroundPrim() {
|
|
if (BACKGROUND_PRIM != -1) {
|
|
llSetLinkPrimitiveParamsFast(BACKGROUND_PRIM, [PRIM_TEXTURE, ALL_SIDES, TEXTURE_BACKGROUND, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <0.0, 0.0, 0.0>, 1.0, PRIM_TEXT, "", <0,0,0>, 0.0]);
|
|
}
|
|
}
|
|
|
|
resetManagerCube() {
|
|
llSetLinkPrimitiveParamsFast(LINK_SCOREBOARD, [PRIM_TEXTURE, ALL_SIDES, BLANK_TEXTURE, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <0.0, 0.0, 0.0>, 1.0, PRIM_TEXT, "", <0,0,0>, 0.0]);
|
|
}
|
|
|
|
updateActionsPrim(string status) {
|
|
string _uap_tex = "";
|
|
if (status == "Elimination") _uap_tex = TEXTURE_PERIL;
|
|
else if (status == "Victory") _uap_tex = TEXTURE_VICTORY;
|
|
else if (status == "Punishment") _uap_tex = TEXTURE_PUNISHMENT;
|
|
else if (status == "Direct Hit") _uap_tex = TEXTURE_DIRECT_HIT;
|
|
else if (status == "No Shield") _uap_tex = TEXTURE_NO_SHIELD;
|
|
else if (status == "Peril Selected") _uap_tex = TEXTURE_PERIL_SELECTED;
|
|
else if (status == "Plot Twist") _uap_tex = TEXTURE_PLOT_TWIST;
|
|
else if (status == "Title") _uap_tex = TEXTURE_TITLE;
|
|
|
|
if (ACTIONS_PRIM != -1 && _uap_tex != "") {
|
|
llSetLinkPrimitiveParamsFast(ACTIONS_PRIM, [PRIM_TEXTURE, ALL_SIDES, _uap_tex, <1,1,0>, <0,0,0>, 0.0, PRIM_TEXT, "", <0,0,0>, 0.0]);
|
|
}
|
|
}
|
|
|
|
clearAllPlayers() {
|
|
activePlayers = [];
|
|
httpRequests = [];
|
|
integer _ca_i;
|
|
for (_ca_i = 0; _ca_i < 10; _ca_i++) {
|
|
integer _pL = getProfilePrimLink(_ca_i);
|
|
integer _hL = getHeartsPrimLink(_ca_i);
|
|
integer _oL = getOverlayPrimLink(_ca_i);
|
|
if (_pL > 0) {
|
|
// Explicitly reset textures to blank to prevent profile persistence
|
|
llSetLinkPrimitiveParamsFast(_pL, [PRIM_TEXTURE, ALL_SIDES, BLANK_TEXTURE, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
llSetLinkPrimitiveParamsFast(_hL, [PRIM_TEXTURE, ALL_SIDES, TEXTURE_0_HEARTS, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
llSetLinkPrimitiveParamsFast(_oL, [PRIM_TEXTURE, ALL_SIDES, BLANK_TEXTURE, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
}
|
|
}
|
|
}
|
|
|
|
removePlayer(string pName) {
|
|
integer _rem_idx = llListFindList(activePlayers, [pName]);
|
|
if (_rem_idx != -1) {
|
|
activePlayers = llDeleteSubList(activePlayers, _rem_idx, _rem_idx + 2);
|
|
refreshPlayerDisplay();
|
|
}
|
|
}
|
|
|
|
refreshPlayerDisplay() {
|
|
integer _rpd_num = llGetListLength(activePlayers) / 3;
|
|
integer _rpd_ri;
|
|
for (_rpd_ri = 0; _rpd_ri < 10; _rpd_ri++) {
|
|
integer _rpd_pL = getProfilePrimLink(_rpd_ri);
|
|
integer _rpd_hL = getHeartsPrimLink(_rpd_ri);
|
|
integer _rpd_oL = getOverlayPrimLink(_rpd_ri);
|
|
if (_rpd_pL > 0) {
|
|
if (_rpd_ri >= _rpd_num) {
|
|
llSetLinkPrimitiveParamsFast(_rpd_pL, [PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
llSetLinkPrimitiveParamsFast(_rpd_hL, [PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
llSetLinkPrimitiveParamsFast(_rpd_oL, [PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
} else {
|
|
integer _rpd_b = _rpd_ri * 3;
|
|
string _rpd_nm = llList2String(activePlayers, _rpd_b);
|
|
integer _rpd_lv = llList2Integer(activePlayers, _rpd_b + 1);
|
|
string _rpd_tx = llList2String(activePlayers, _rpd_b + 2);
|
|
if (isBot(_rpd_nm)) _rpd_tx = TEXTURE_BOT_PROFILE;
|
|
else if (_rpd_tx == "" || _rpd_tx == NULL_KEY) _rpd_tx = TEXTURE_DEFAULT_PROFILE;
|
|
|
|
llSetLinkPrimitiveParamsFast(_rpd_pL, [PRIM_TEXTURE, ALL_SIDES, _rpd_tx, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 1.0]);
|
|
llSetLinkPrimitiveParamsFast(_rpd_hL, [PRIM_TEXTURE, ALL_SIDES, getHeartTexture(_rpd_lv), <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 1.0]);
|
|
if (_rpd_lv <= 0) llSetLinkPrimitiveParamsFast(_rpd_oL, [PRIM_TEXTURE, ALL_SIDES, TEXTURE_ELIMINATED_X, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 1.0]);
|
|
else llSetLinkPrimitiveParamsFast(_rpd_oL, [PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
}
|
|
}
|
|
}
|
|
updatePlayerGlowEffects();
|
|
}
|
|
|
|
integer isBot(string pName) { return (llSubStringIndex(pName, "Bot") == 0); }
|
|
integer getProfilePrimLink(integer pI) { return llList2Integer(gridLinks, pI * 3); }
|
|
integer getHeartsPrimLink(integer pI) { return llList2Integer(gridLinks, (pI * 3) + 1); }
|
|
integer getOverlayPrimLink(integer pI) { return llList2Integer(gridLinks, (pI * 3) + 2); }
|
|
|
|
string getHeartTexture(integer lives) {
|
|
if (lives <= 0) return TEXTURE_0_HEARTS;
|
|
if (lives == 1) return TEXTURE_1_HEARTS;
|
|
if (lives == 2) return TEXTURE_2_HEARTS;
|
|
return TEXTURE_3_HEARTS;
|
|
}
|
|
|
|
setGlow(integer link, float glow, vector color) {
|
|
if (link > 0) llSetLinkPrimitiveParamsFast(link, [PRIM_GLOW, ALL_SIDES, glow, PRIM_COLOR, ALL_SIDES, color, 1.0]);
|
|
}
|
|
|
|
updatePlayerGlowEffects() {
|
|
integer _uge_num = llGetListLength(activePlayers) / 3;
|
|
integer _uge_gi;
|
|
for (_uge_gi = 0; _uge_gi < _uge_num; _uge_gi++) {
|
|
setGlow(getProfilePrimLink(_uge_gi), 0.0, <1,1,1>);
|
|
setGlow(getHeartsPrimLink(_uge_gi), 0.0, <1,1,1>);
|
|
}
|
|
integer _uge_idx = -1; vector _uge_col = <1,1,1>; float _uge_glow = 0.0;
|
|
if (currentWinner != "" && currentWinner != "NONE") {
|
|
_uge_idx = llListFindList(activePlayers, [currentWinner]);
|
|
if (_uge_idx != -1) { _uge_idx = _uge_idx / 3; _uge_col = <0,1,0>; _uge_glow = 0.3; }
|
|
} else if (currentPerilPlayer != "" && currentPerilPlayer != "NONE") {
|
|
_uge_idx = llListFindList(activePlayers, [currentPerilPlayer]);
|
|
if (_uge_idx != -1) { _uge_idx = _uge_idx / 3; _uge_col = <1,1,0>; _uge_glow = 0.2; }
|
|
}
|
|
if (_uge_idx != -1) {
|
|
setGlow(getProfilePrimLink(_uge_idx), _uge_glow, _uge_col);
|
|
setGlow(getHeartsPrimLink(_uge_idx), _uge_glow, _uge_col);
|
|
}
|
|
}
|
|
|
|
updatePlayerDisplay(string pName, integer pLives, string pUUID) {
|
|
integer _upd_pIdx = llListFindList(activePlayers, [pName]);
|
|
if (_upd_pIdx != -1) _upd_pIdx = _upd_pIdx / 3;
|
|
|
|
if (_upd_pIdx == -1) {
|
|
_upd_pIdx = llGetListLength(activePlayers) / 3;
|
|
if (_upd_pIdx >= 10) return;
|
|
string _upd_activeUUID = pUUID;
|
|
if (isBot(pName)) _upd_activeUUID = TEXTURE_BOT_PROFILE;
|
|
activePlayers += [pName, pLives, _upd_activeUUID];
|
|
} else {
|
|
activePlayers = llListReplaceList(activePlayers, [pLives], (_upd_pIdx * 3) + 1, (_upd_pIdx * 3) + 1);
|
|
}
|
|
|
|
integer _upd_upP = getProfilePrimLink(_upd_pIdx);
|
|
integer _upd_upH = getHeartsPrimLink(_upd_pIdx);
|
|
integer _upd_upO = getOverlayPrimLink(_upd_pIdx);
|
|
if (_upd_upP <= 0) return;
|
|
|
|
string _upd_uT; vector _upd_pC = <1,1,1>;
|
|
if (pLives <= 0) _upd_pC = <1.0, 0.3, 0.3>;
|
|
|
|
if (isBot(pName)) _upd_uT = TEXTURE_BOT_PROFILE;
|
|
else {
|
|
_upd_uT = llList2String(activePlayers, (_upd_pIdx * 3) + 2);
|
|
if (_upd_uT == "" || _upd_uT == pUUID || _upd_uT == TEXTURE_DEFAULT_PROFILE) {
|
|
_upd_uT = TEXTURE_DEFAULT_PROFILE;
|
|
key _upd_rID = llHTTPRequest("https://world.secondlife.com/resident/" + pUUID, [HTTP_METHOD, "GET"], "");
|
|
httpRequests += [_upd_rID, _upd_pIdx];
|
|
}
|
|
}
|
|
|
|
llSetLinkPrimitiveParamsFast(_upd_upP, [PRIM_TEXTURE, ALL_SIDES, _upd_uT, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, _upd_pC, 1.0, PRIM_GLOW, ALL_SIDES, 0.01]);
|
|
llSleep(DELAY_SCOREBOARD_REFRESH);
|
|
llSetLinkPrimitiveParamsFast(_upd_upP, [PRIM_GLOW, ALL_SIDES, 0.0]);
|
|
llSetLinkPrimitiveParamsFast(_upd_upH, [PRIM_TEXTURE, ALL_SIDES, getHeartTexture(pLives), <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 1.0]);
|
|
if (pLives <= 0) llSetLinkPrimitiveParamsFast(_upd_upO, [PRIM_TEXTURE, ALL_SIDES, TEXTURE_ELIMINATED_X, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 1.0]);
|
|
else llSetLinkPrimitiveParamsFast(_upd_upO, [PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0]);
|
|
|
|
updatePlayerGlowEffects();
|
|
}
|
|
|
|
default {
|
|
on_rez(integer _sp) { discoverLinks(); clearAllPlayers(); llResetScript(); }
|
|
state_entry() {
|
|
discoverLinks();
|
|
llListen(1, "", llGetOwner(), "");
|
|
REPORT_MEMORY();
|
|
clearAllPlayers(); // Ensure board is clean on initialization
|
|
resetBackgroundPrim();
|
|
resetManagerCube();
|
|
updateActionsPrim("Title");
|
|
updatePlayerGlowEffects();
|
|
dbg("Ready");
|
|
}
|
|
|
|
link_message(integer _s, integer _n, string _st, key _i) {
|
|
if (_n == MSG_GAME_STATUS) updateActionsPrim(_st);
|
|
else if (_n == MSG_PLAYER_UPDATE) {
|
|
list _parts = llParseString2List(_st, ["|"], []);
|
|
if (llGetListLength(_parts) >= 3) {
|
|
updatePlayerDisplay(llList2String(_parts, 0), (integer)llList2String(_parts, 1), llList2String(_parts, 2));
|
|
}
|
|
}
|
|
else if (_n == MSG_CLEAR_GAME) {
|
|
resetBackgroundPrim(); resetManagerCube(); clearAllPlayers(); updateActionsPrim("Title");
|
|
currentPerilPlayer = ""; currentWinner = ""; updatePlayerGlowEffects();
|
|
llMessageLinked(LINK_SET, MSG_LB_REQUEST_DISPLAY, "", NULL_KEY);
|
|
}
|
|
else if (_n == MSG_GAME_WON || _n == MSG_GAME_LOST) {
|
|
// Visual winning/losing logic is already handled by specific update messages
|
|
// Record keeping is now centralized in Main Controller
|
|
}
|
|
else if (_n == MSG_LB_DISPLAY_DATA) {
|
|
string _tl = "WORLD RANKING RECORD"; string _sp = " ";
|
|
integer _m = (LEADERBOARD_WIDTH - llStringLength(_tl)) / 2;
|
|
string _tt = llGetSubString(_sp, 0, _m - 1) + _tl;
|
|
llMessageLinked(LINK_SET, MSG_DISPLAY_LEADERBOARD, "FORMATTED_TEXT|" + _tt, NULL_KEY);
|
|
llMessageLinked(LINK_SET, MSG_DISPLAY_LEADERBOARD, "COLUMNS|" + _st, NULL_KEY);
|
|
}
|
|
else if (_n == MSG_LB_LOAD_COMPLETE) llMessageLinked(LINK_SET, MSG_LB_REQUEST_DISPLAY, "", NULL_KEY);
|
|
else if (_n == MSG_REMOVE_PLAYER) removePlayer(_st);
|
|
else if (_n == MSG_UPDATE_PERIL_PLAYER) {
|
|
if (_st == "NONE") currentPerilPlayer = "";
|
|
else currentPerilPlayer = _st;
|
|
updatePlayerGlowEffects();
|
|
}
|
|
else if (_n == MSG_UPDATE_WINNER) {
|
|
if (_st == "NONE") currentWinner = "";
|
|
else currentWinner = _st;
|
|
updatePlayerGlowEffects();
|
|
}
|
|
else if (_n == MSG_RESET_ALL) llResetScript();
|
|
}
|
|
|
|
http_response(key _rid, integer _status, list _meta, string _body) {
|
|
integer _rIdx = llListFindList(httpRequests, [_rid]);
|
|
if (_rIdx != -1) {
|
|
integer _pIdx = llList2Integer(httpRequests, _rIdx + 1);
|
|
httpRequests = llDeleteSubList(httpRequests, _rIdx, _rIdx + 1);
|
|
if (_status == 200 && _pIdx < llGetListLength(activePlayers) / 3) {
|
|
string _pU = "";
|
|
integer _mS = llSubStringIndex(_body, PROFILE_KEY_PREFIX);
|
|
if (_mS != -1) {
|
|
_mS += PROFILE_KEY_PREFIX_LENGTH;
|
|
string _rem = llGetSubString(_body, _mS, -1);
|
|
integer _mE = llSubStringIndex(_rem, "\"");
|
|
if (_mE != -1) _pU = llGetSubString(_rem, 0, _mE - 1);
|
|
}
|
|
if (_pU == "" || _pU == NULL_KEY) {
|
|
integer _iS = llSubStringIndex(_body, PROFILE_IMG_PREFIX);
|
|
if (_iS != -1) {
|
|
_iS += PROFILE_IMG_PREFIX_LENGTH;
|
|
string _rem = llGetSubString(_body, _iS, -1);
|
|
integer _iE = llSubStringIndex(_rem, "/");
|
|
if (_iE != -1) _pU = llGetSubString(_rem, 0, _iE - 1);
|
|
}
|
|
}
|
|
if (_pU != "" && _pU != NULL_KEY) {
|
|
activePlayers = llListReplaceList(activePlayers, [_pU], (_pIdx * 3) + 2, (_pIdx * 3) + 2);
|
|
integer _pL = getProfilePrimLink(_pIdx);
|
|
if (_pL > 0) {
|
|
llSetLinkPrimitiveParamsFast(_pL, [PRIM_TEXTURE, ALL_SIDES, _pU, <1,1,0>, <0,0,0>, 0.0, PRIM_COLOR, ALL_SIDES, <1,1,1>, 1.0, PRIM_GLOW, ALL_SIDES, 0.01]);
|
|
llSleep(DELAY_SCOREBOARD_REFRESH);
|
|
llSetLinkPrimitiveParamsFast(_pL, [PRIM_GLOW, ALL_SIDES, 0.0]);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|