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

Get stall scripts functional

Browse source
This commit is contained in:
zontreck 2024-08-13 23:21:51 -07:00
parent b6a59a6673
commit cf5144befb
4 changed files with 204 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

108
LSL/includes/functions.lsl
View file

@ -1,10 +1,6 @@
UtilsMenu(key kAv) {
MainMenu(key kAv) list lAppend = ["Reboot", "main.."];
{
list lAppend = [];
// Check against ZNI Support roster
integer iAdmin=0; integer iAdmin=0;
string sAppend;
string sTag = llList2String(llGetObjectDetails(kAv,[OBJECT_GROUP_TAG]),0); string sTag = llList2String(llGetObjectDetails(kAv,[OBJECT_GROUP_TAG]),0);
if(llListFindList(g_lSupport, [(string)kAv])!=-1 || llListFindList(g_lAdminTag, [sTag])!=-1){ if(llListFindList(g_lSupport, [(string)kAv])!=-1 || llListFindList(g_lAdminTag, [sTag])!=-1){
if(g_kLeasedTo!=NULL)lAppend += ["PermaLease"]; if(g_kLeasedTo!=NULL)lAppend += ["PermaLease"];
@ -13,12 +9,33 @@ MainMenu(key kAv)
lAppend += ["Import", "Export", "MemStick"]; lAppend += ["Import", "Export", "MemStick"];
} }
if(g_kLeasedTo == NULL) {
}else if(g_kLeasedTo == kAv || iAdmin || g_kOwner == kAv) {
lAppend += [Checkbox(bool(g_iMask & MASK_LOGO), "Logo"), Checkbox(bool(g_iMask & MASK_CUSTOM_TEXT_COLOR), "CustomTxt"), "SetTxtC", Checkbox(bool(g_iMask & MASK_WHITEFRAME), "White Frame"), "*RESET*"];
}
string sAppend = "\nUtility Menu";
Menu(g_kAuthorized, MAIN_MENU_TEXT+sAppend, lAppend, "menu~utils");
}
MainMenu(key kAv)
{
list lAppend = ["Utils.."];
// 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){
iAdmin=1;
}
if(llListFindList(g_lManagerTag, [sTag])!=-1)iAdmin=1; if(llListFindList(g_lManagerTag, [sTag])!=-1)iAdmin=1;
if(g_kLeasedTo == NULL){ if(g_kLeasedTo == NULL){
lAppend += ["Lease"]; lAppend += ["Lease"];
}else if(g_kLeasedTo == kAv || iAdmin || g_kOwner == kAv){ }else if(g_kLeasedTo == kAv || iAdmin || g_kOwner == kAv){
lAppend += ["End Lease", sSetor((g_iFlags&4)," ", "Renew"), "Set Picture", "Set Owner", sSetor ((g_iFlags & 2),"TransferLease", " "), "Set Name", Checkbox(bool(g_iMask & MASK_WHITEFRAME), "White Frame"), Checkbox(bool(g_iMask & MASK_LOGO), "Logo"), Checkbox(bool(g_iMask & MASK_CUSTOM_TEXT_COLOR), "CustomTxt"), "SetTxtC", "*RESET*"]; lAppend += ["End Lease", sSetor((g_iFlags&4), " ", "Renew"), "Set Picture", "Set Owner", sSetor ((g_iFlags & 2),"TransferLease", " "), "Set Name"];
sAppend += "\n* CustomTxt, and SetTxtC relate to custom text colors."; sAppend += "\n* CustomTxt, and SetTxtC relate to custom text colors.";
} }
@ -146,6 +163,83 @@ DeletePayload()
RestoreFromKVP() RestoreFromKVP()
{
g_kLeasedTo = llLinksetDataRead("lease");
if(g_kLeasedTo == "")
{
g_kLeasedTo=NULL;
llMessageLinked(LINK_SET, 0, "No Restore Info", "fw_data");
llSleep(6);
g_iHaveKVP=1;
#if DEVELOPER == 0
llMessageLinked(LINK_SET, 0, "<!c=green>Vacant - Available","fw_data");
#else
llMessageLinked(LINK_SET,0,(string)llGetFreeMemory()+" bytes free", "fw_data");
#endif
return;
}
g_kTexture = llLinksetDataRead("texture");
g_iExpireAt = (integer)llLinksetDataRead("expire");
g_kOwner = llLinksetDataRead("owner");
g_iMask = (integer)llLinksetDataRead("mask");
g_iNotification = (integer)llLinksetDataRead("notif");
g_sPreferredName = llLinksetDataRead("name");
g_kTransferID = llLinksetDataRead("transfer");
g_iTransferTimeout = (integer)llLinksetDataRead("transfer_expire");
g_vCustomColorText = (vector)llLinksetDataRead("customtxtcolor");
integer iChange=0;
if(!g_iHaveKVP)
g_iState = mask(SET, g_iState, STATE_REBOOT_PENDING);
g_iHaveKVP=1;
if(g_kLeasedTo == NULL_KEY){
DeletePayload();
llSleep(10);
llResetScript();
return;
}
if(g_kTexture == ""){
g_kTexture = NULL_KEY;
iChange++;
}
if(g_kTransferID == ""){
g_kTransferID=NULL_KEY;
g_iTransferTimeout=0;
iChange++;
}
if(llStringLength(g_kOwner) != 36){
if(g_kOwner == ""){
g_kOwner = NULL_KEY;
iChange++;
}
}
if(iChange){
SavePayload();
}
llMessageLinked(LINK_SET, 0, "<!c=red>Restored Information", "fw_data");
llSleep(10);
llSetTimerEvent(5);
//state rebootfast;
}
PartialRestoreKVP()
{ {
g_kLeasedTo = llLinksetDataRead("lease"); g_kLeasedTo = llLinksetDataRead("lease");
if(g_kLeasedTo==""){ if(g_kLeasedTo==""){

2
LSL/includes/variables.lsl
View file

@ -30,7 +30,7 @@ integer LINK_MENU_TIMEOUT = 330;
string g_sDate; string g_sDate;
list MAIN_MENU_BUTTONS = ["Reboot"]; list MAIN_MENU_BUTTONS = [];
string MAIN_MENU_TEXT = ""; string MAIN_MENU_TEXT = "";
string IMPORT_MENU_TEXT = ""; string IMPORT_MENU_TEXT = "";

39
LSL/raw/Logic.lsl
View file

@ -5,7 +5,6 @@ default
{ {
state_entry() state_entry()
{ {
THIRTY_DAYS=ONE_DAY*30;
if(llGetObjectDesc() == "" || llGetObjectDesc() == "(No Description)") if(llGetObjectDesc() == "" || llGetObjectDesc() == "(No Description)")
{ {
llSetObjectDesc((string)llGenerateKey()); llSetObjectDesc((string)llGenerateKey());
@ -25,6 +24,7 @@ default
NO_TEXTURE = ""; NO_TEXTURE = "";
} }
listen(integer c,string n,key i,string m) listen(integer c,string n,key i,string m)
{ {
//llSay(0, m); //llSay(0, m);
@ -58,6 +58,7 @@ default
g_iBoot=1; g_iBoot=1;
} }
} }
link_message(integer s,integer n,string m,key i){ link_message(integer s,integer n,string m,key i){
if(i == "fw_ready") if(i == "fw_ready")
{ {
@ -78,12 +79,12 @@ default
#endif #endif
//llSetTimerEvent(1); //llSetTimerEvent(1);
} }
if(n == 0x004f) { if(n == 0x004f) {
API_SERVER = DecipherService(m,"api"); API_SERVER = DecipherService(m,"api");
} }
} }
timer() timer()
{ {
if(g_iState & STATE_REBOOT_FAST) if(g_iState & STATE_REBOOT_FAST)
@ -101,6 +102,7 @@ default
state boot; state boot;
} }
} }
changed(integer t){ changed(integer t){
if(t&CHANGED_REGION_START){ if(t&CHANGED_REGION_START){
state reboot; state reboot;
@ -111,6 +113,7 @@ default
} }
} }
state off{ state off{
state_entry(){ state_entry(){
llMessageLinked(LINK_SET, 0, "<!c=red>Currently Offline", "fw_data"); llMessageLinked(LINK_SET, 0, "<!c=red>Currently Offline", "fw_data");
@ -124,6 +127,7 @@ state off{
state reboot; state reboot;
} }
} }
state reboot state reboot
{ {
state_entry(){ state_entry(){
@ -131,6 +135,7 @@ state reboot
} }
} }
state boot{ state boot{
state_entry() state_entry()
{ {
if(g_iHaveKVP)RestoreFromKVP(); // solve some issues related to the bitmasks if(g_iHaveKVP)RestoreFromKVP(); // solve some issues related to the bitmasks
@ -203,6 +208,8 @@ state boot{
} else llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]); } else llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
} }
money( key id, integer amount ) money( key id, integer amount )
{ {
integer days = amount/g_iPricePerDay; integer days = amount/g_iPricePerDay;
@ -234,6 +241,7 @@ state boot{
} }
} }
state_exit() state_exit()
{ {
g_iState = mask(UNSET, g_iState, STATE_REBOOT_PENDING); g_iState = mask(UNSET, g_iState, STATE_REBOOT_PENDING);
@ -298,6 +306,7 @@ state boot{
} }
} }
} }
changed(integer t){ changed(integer t){
if(t&CHANGED_REGION_START){ if(t&CHANGED_REGION_START){
state reboot; state reboot;
@ -327,11 +336,19 @@ state boot{
} }
} }
} }
on_rez(integer i){ on_rez(integer i){
state reboot; state reboot;
} }
touch_start(integer i)
{
touch_end(integer n) {
if(llDetectedTouchPos(0) == ZERO_VECTOR) {
// Dragged off
if(g_lSupport == [])
checkSupport();
} else {
if(!g_iHaveKVP){ if(!g_iHaveKVP){
llRegionSayTo(llDetectedKey(0), 0, "/!\\ WARNING: The board is not done loading yet, please be patient"); llRegionSayTo(llDetectedKey(0), 0, "/!\\ WARNING: The board is not done loading yet, please be patient");
return; return;
@ -363,13 +380,6 @@ state boot{
} }
llRegionSay(70, llDumpList2String(["checkgroup", "menu", llDetectedKey(0)], "%")); llRegionSay(70, llDumpList2String(["checkgroup", "menu", llDetectedKey(0)], "%"));
} }
touch_end(integer n) {
if(llDetectedTouchPos(0) == ZERO_VECTOR) {
// Dragged off
if(g_lSupport == [])
checkSupport();
}
} }
timer() timer()
@ -422,6 +432,7 @@ state boot{
} }
} }
dataserver(key kID, string sData) dataserver(key kID, string sData)
{ {
if(HasDSRequest(kID) != -1) if(HasDSRequest(kID) != -1)
@ -464,6 +475,7 @@ state boot{
} }
} }
} }
http_response(key k,integer s,list m,string b){ http_response(key k,integer s,list m,string b){
if(HasDSRequest(k)!=-1){ if(HasDSRequest(k)!=-1){
list lMeta = GetMetaList(k); list lMeta = GetMetaList(k);
@ -471,10 +483,9 @@ state boot{
list lPar = llParseStringKeepNulls(b,[";;"],[]); list lPar = llParseStringKeepNulls(b,[";;"],[]);
if(llList2String(lPar,0)=="GetSupport"){ if(llList2String(lPar,0)=="GetSupport"){
g_lSupport = StrideOfList(llParseString2List(llList2String(lPar,1), ["~"],[]), 2, 0, -1); g_lSupport = llParseString2List(llList2String(lPar,1), ["~"],[]);
llMessageLinked(LINK_SET, 0x1D, llList2Json(JSON_ARRAY, g_lSupport), ""); llMessageLinked(LINK_SET, 0x1D, llList2Json(JSON_ARRAY, g_lSupport), "");
llWhisper(0, "Obtained support representative list");
} }
} }
} }
@ -490,7 +501,7 @@ state boot{
g_iNotification = iNotification; g_iNotification = iNotification;
llSetTimerEvent(5); llSetTimerEvent(5);
} else if(n == 0x004f) { } else if(n == 0x004f){
API_SERVER = DecipherService(m,"api"); API_SERVER = DecipherService(m,"api");
} else if(n == 0x3E) } else if(n == 0x3E)
{ {

88
LSL/raw/Menu.lsl
View file

@ -21,10 +21,9 @@ default
g_iAuthorized=1; g_iAuthorized=1;
g_kAuthorized=i; g_kAuthorized=i;
RestoreFromKVP(); PartialRestoreKVP();
MainMenu(i); MainMenu(i);
}else if(n == 0x004f) {
API_SERVER = DecipherService(m,"api");
} else if(n == 0x1D) } else if(n == 0x1D)
{ {
g_lSupport = llJson2List(m); g_lSupport = llJson2List(m);
@ -37,24 +36,21 @@ default
} }
} else if(n == LINK_MENU_RETURN) } else if(n == LINK_MENU_RETURN)
{ {
list returnMenu = llParseString2List(m,["|"],[]); string sIdent = llJsonGetValue(m, ["id"]);
string sIdent = llList2String(returnMenu,0); string sExtra = llJsonGetValue(m, ["extra"]);
string sButton = llList2String(returnMenu,1); string sButton = llJsonGetValue(m,["reply"]);
switch(sIdent) switch(sIdent)
{ {
case "menu~main":{ case "menu~main":{
switch(sButton){ switch(sButton){
case "Import":{ case "Utils..": {
GetArbitraryData(i, IMPORT_MENU_TEXT, "main~import"); UtilsMenu(i);
break; break;
} }
case "-exit-":{ case "-exit-":{
llInstantMessage(i, "Menu Closed!"); llInstantMessage(i, "Menu Closed!");
llMessageLinked(LINK_THIS, LINK_MENU_REMOVE, "", i);
break;
}
case "Export":{
llWhisper(5, llList2Json(JSON_OBJECT,["cmd","set_memstick","leasee",g_kLeasedTo,"expire_time",g_iExpireAt,"texture",g_kTexture,"owner",g_kOwner]));
break; break;
} }
case "Lease":{ case "Lease":{
@ -100,15 +96,6 @@ default
} }
break; break;
} }
case "PermaLease":{
llMessageLinked(LINK_SET, 0x3E, llList2Json(JSON_OBJECT, ["op", "perma"]), "");
break;
}
case "*RESET*":{
llMessageLinked(LINK_SET, 0x3E, llList2Json(JSON_OBJECT, ["op", "reset"]), "");
llResetScript();
break;
}
case "TimeRemain":{ case "TimeRemain":{
if(g_iExpireAt == -1){ if(g_iExpireAt == -1){
llSay(0, "No Expiration is set"); llSay(0, "No Expiration is set");
@ -130,10 +117,6 @@ default
GetArbitraryData(i, HEADER+"What is the owner's secondlife name?", "main~owner"); GetArbitraryData(i, HEADER+"What is the owner's secondlife name?", "main~owner");
break; break;
} }
case "MemStick":{
llGiveInventory(i,"Stall Board Flash Drive [ZNI]");
break;
}
case "TransferLease":{ case "TransferLease":{
GetArbitraryData(i, HEADER+"Enter the username of the person you want to transfer this lease to", "main~leasetrans"); GetArbitraryData(i, HEADER+"Enter the username of the person you want to transfer this lease to", "main~leasetrans");
break; break;
@ -142,6 +125,50 @@ default
GetArbitraryData(i, HEADER+"Enter the name you want displayed on the panel. This is useful when Unicode is showing as question marks. Please only input ASCII.\n \n* To clear the current preference, submit the leave the box empty and hit submit.", "main~name"); GetArbitraryData(i, HEADER+"Enter the name you want displayed on the panel. This is useful when Unicode is showing as question marks. Please only input ASCII.\n \n* To clear the current preference, submit the leave the box empty and hit submit.", "main~name");
break; break;
} }
default:{
MainMenu(i);
llSay(0, "Button : "+sButton+" not implemented");
break;
}
}
break;
}
case "menu~utils": {
switch(sButton) {
case "-exit-":{
llInstantMessage(i, "Menu Closed!");
break;
}
case "Import":{
GetArbitraryData(i, IMPORT_MENU_TEXT, "main~import");
break;
}
case "Reboot":{
llMessageLinked(LINK_SET, 0x3E, llList2Json(JSON_OBJECT, ["op", "reboot"]), i);
break;
}
case "PermaLease":{
llMessageLinked(LINK_SET, 0x3E, llList2Json(JSON_OBJECT, ["op", "perma"]), i);
break;
}
case "*RESET*":{
llMessageLinked(LINK_SET, 0x3E, llList2Json(JSON_OBJECT, ["op", "reset"]), i);
llResetScript();
break;
}
case "main..": {
MainMenu(i);
break;
}
case "MemStick":{
llGiveInventory(i,"Stall Board Flash Drive [ZNI]");
break;
}
case "Export":{
llWhisper(5, llList2Json(JSON_OBJECT,["cmd","set_memstick","leasee",g_kLeasedTo,"expire_time",g_iExpireAt,"texture",g_kTexture,"owner",g_kOwner]));
break;
}
case Checkbox(bool(g_iMask & MASK_WHITEFRAME), "White Frame"):{ case Checkbox(bool(g_iMask & MASK_WHITEFRAME), "White Frame"):{
g_iMask = mask(TOGGLE, g_iMask, MASK_WHITEFRAME); g_iMask = mask(TOGGLE, g_iMask, MASK_WHITEFRAME);
@ -151,10 +178,6 @@ default
break; break;
} }
case "Reboot":{
llMessageLinked(LINK_SET, 0x3E, llList2Json(JSON_OBJECT, ["op", "reboot"]), "");
break;
}
case Checkbox(bool(g_iMask & MASK_LOGO),"Logo"):{ case Checkbox(bool(g_iMask & MASK_LOGO),"Logo"):{
g_iMask = mask(TOGGLE, g_iMask, MASK_LOGO); g_iMask = mask(TOGGLE, g_iMask, MASK_LOGO);
@ -178,11 +201,6 @@ default
Menu(i, "Pick a color, or enter a custom one", ["colormenu"], "CTxt"); Menu(i, "Pick a color, or enter a custom one", ["colormenu"], "CTxt");
break; break;
} }
default:{
MainMenu(i);
llSay(0, "Button : "+sButton+" not implemented");
break;
}
} }
break; break;
} }