AriasCreations/StallBoard
3
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix compile chain, and add final FFF version of boards

Browse source
This commit is contained in:
zontreck 2024-08-13 20:31:56 -07:00
parent b1fc57b931
commit a1a93ea994
17 changed files with 421 additions and 172 deletions
Download patch file Download diff file Expand all files Collapse all files

96
LSL/includes/functions.lsl Normal file
View file

@ -0,0 +1,96 @@
MainMenu(key kAv)
{
list lAppend = [];
// Check against ZNI Support roster
integer iAdmin=0;
string sAppend;
string sTag = llList2String(llGetObjectDetails(kAv,[OBJECT_GROUP_TAG]),0);
if(llListFindList(g_lSupport, [(string)kAv])!=-1 || llListFindList(g_lAdminTag, [sTag])!=-1){
if(g_kLeasedTo!=NULL)lAppend += ["PermaLease"];
iAdmin=1;
lAppend += ["Import", "Export", "MemStick"];
}
if(llListFindList(g_lManagerTag, [sTag])!=-1)iAdmin=1;
if(g_kLeasedTo == NULL){
lAppend += ["Lease"];
}else if(g_kLeasedTo == kAv || iAdmin || g_kOwner == kAv){
lAppend += ["End Lease", "Renew", "Set Picture", "Set Owner", "TransferLease", "Set Name", Checkbox(g_iWhiteFrame, "White Frame"), Checkbox(g_iLogo, "Logo"), Checkbox(g_iCustomTextColor, "CustomTxt"), "SetTxtC", "*RESET*"];
sAppend += "\n* CustomTxt, and SetTxtC relate to custom text colors.";
}
if(g_kLeasedTo != NULL){
lAppend += ["TimeRemain", "WhoLeased"];
}
if(g_kOwner!=NULL)sAppend+="\nOwner is : secondlife:///app/agent/"+(string)g_kOwner+"/about";
Menu(g_kAuthorized, MAIN_MENU_TEXT+sAppend, MAIN_MENU_BUTTONS+lAppend, "menu~main");
}
Menu(key kAv, string sText, list lButtons, string sIdent)
{
llMessageLinked(LINK_THIS, LINK_MENU_DISPLAY, llDumpList2String([sIdent, "TRUE", sText, llDumpList2String(lButtons, "~")], "|"), kAv);
}
GetArbitraryData(key kAv, string sText, string sIdent){
llMessageLinked(LINK_THIS, LINK_MENU_DISPLAY, llDumpList2String([sIdent, "FALSE", sText, ""], "|"), kAv);
}
string StripResident(string a)
{
list lParam = llParseString2List(a,[" ", "."],[]);
if(llGetListLength(lParam)==0 || llGetListLength(lParam)==1)return a;
if(llToLower(llList2String(lParam,1)) == "resident"){
lParam = llDeleteSubList(lParam,1,1);
}else return a;
return llDumpList2String(lParam, " ");
}
Text(){
string sColor = GetColorStr(g_iWhiteFrame);
g_sName = StripResident(g_sName);
if(g_sPreferredName == ""){
if(g_sDisplayName != g_sName)
llMessageLinked(LINK_SET, 0,"<!c="+sColor+">"+ llGetSubString(g_sDisplayName+" ("+g_sName+")",0,23), "fw_data");
else
llMessageLinked(LINK_SET,0,"<!c="+sColor+">"+llGetSubString(g_sName,0,23),"fw_data");
} else llMessageLinked(LINK_SET,0,"<!c="+sColor+">"+g_sPreferredName, "fw_data");
}
CleanInventory()
{
list lDefaults = ["Board [ZNI]", "Dialog Module", "Text", "FFF Stall Board Flash Drive [ZNI]", "Update Module [ZNI]"];
integer i=0;
integer end = llGetInventoryNumber(INVENTORY_ALL);
for(i=0;i<end;i++){
string sName = llGetInventoryName(INVENTORY_ALL,i);
if(llListFindList( lDefaults, [sName] ) == -1) {
llRemoveInventory(sName);
i=-1;
end = llGetInventoryNumber(INVENTORY_ALL);
}
}
}
SavePayload(){
llRegionSay(0x99f9, llList2Json(JSON_OBJECT, ["op", "request", "get", "kvp_store", "var", "$.FFF."+llGetObjectDesc(), "val", llList2Json(JSON_OBJECT, ["lease", g_kLeasedTo, "texture", g_kTexture, "expire", g_iExpireAt, "owner", g_kOwner, "notif", g_iNotification, "name", g_sPreferredName, "whiteframe", g_iWhiteFrame, "logo", g_iLogo, "transfer", g_kTransferID, "transfer_expire", g_iTransferTimeout, "customtxtcolor", g_vCustomColorText, "usecustomtxt", g_iCustomTextColor])]));
}
DeletePayload(){
llRegionSay(0x99f9, llList2Json(JSON_OBJECT, ["op", "request", "get", "kvp_del", "var", "$.FFF."+llGetObjectDesc()]));
}
string GetColorStr(integer iWhite)
{
if(g_iCustomTextColor){
return (((string)g_vCustomColorText.x)+","+((string)g_vCustomColorText.y)+","+((string)g_vCustomColorText.z));
}else {
if(iWhite)return "0,0,0.5";
else return "white"; // black frame
}
}