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

Version 1.0.0.0008

Browse source
This commit is contained in:
Tara 2022-12-25 12:49:23 -07:00
parent 281b7f6e8a
commit b969d852f0
6 changed files with 379 additions and 121 deletions
Download patch file Download diff file Expand all files Collapse all files

72
SOURCE/LSL/Reward.lsl Normal file
View file

@ -0,0 +1,72 @@
integer DEBUG = FALSE;
list g_lReqs;
string URL = "https://api.zontreck.dev/zni";
Send(string Req,string method){
g_lReqs += [Req,method];
Sends();
}
Sends(){
if(g_kCurrentReq == NULL_KEY){
DoNextRequest();
}
//g_lReqs += [llHTTPRequest(URL + llList2String(lTmp,0), [HTTP_METHOD, "POST", HTTP_MIMETYPE, "application/x-www-form-urlencoded"], llDumpList2String(llList2List(lTmp,1,-1), "?"))];
}
key g_kCurrentReq = NULL_KEY;
DoNextRequest(){
if(llGetListLength(g_lReqs)==0)return;
list lTmp = llParseString2List(llList2String(g_lReqs,0),["?"],[]);
//if(DEBUG)llSay(0, "SENDING "+llList2String(g_lReqs,1)+" REQUEST: "+URL+llList2String(g_lReqs,0));
string append = "";
if(llList2String(g_lReqs,1) == "GET")append = "?"+llDumpList2String(llList2List(lTmp,1,-1),"?");
g_kCurrentReq = llHTTPRequest(URL + llList2String(lTmp,0) + append, [HTTP_METHOD, llList2String(g_lReqs,1), HTTP_MIMETYPE, "application/x-www-form-urlencoded"], llDumpList2String(llList2List(lTmp,1,-1),"?"));
}
key g_kID = NULL_KEY;
default
{
state_entry()
{
llSetMemoryLimit(13000);
llWhisper(0, "Game Rewards Ready ("+(string)llGetFreeMemory()+"b Free)");
//llMessageLinked(LINK_SET, -30, "10", llGetOwner());
}
http_response(key r,integer s,list m,string b){
//llWhisper(0, b);
if(r==g_kCurrentReq){
g_kCurrentReq=NULL_KEY;
g_lReqs=llDeleteSubList(g_lReqs,0,1);
list lTmp = llParseString2List(b,[";;",";"],[]);
if(llList2String(lTmp,0)=="Get_Server_URL"){
string URL = llList2String(lTmp,2);
llHTTPRequest(URL, [HTTP_METHOD, "POST", HTTP_MIMETYPE, "application/x-www-form-urlencoded"], llList2Json(JSON_OBJECT, ["product", "Playing Card [ZNI]", "owner", g_kID]));
llHTTPRequest(URL, [HTTP_METHOD, "POST", HTTP_MIMETYPE, "application/x-www-form-urlencoded"], llList2Json(JSON_OBJECT, ["product", "Playing Card [ZNI]", "owner", g_kID]));
llMessageLinked(LINK_SET,-2,"","");
}
Sends();
}
}
link_message(integer s,integer n,string m,key i){
if(n==-30){
integer points=(integer)m;
if(points>=10){
// begin
llWhisper(0, "Stand by... sending reward : 2 Blank Cards");
g_kID=i;
Send("/Get_Server_URL.php?NAME=CRAFT", "GET");
}else{
llSay(0, "Sorry. A reward can only be sent if you won the game with 10 or more points. Try again next time!");
llMessageLinked(LINK_SET,-2,"","");
}
}else if(n==-1){
llResetScript();
}
}
}