Advertisement
Guest User

Untitled

a guest
Mar 27th, 2019
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.     string url = "https://domain.com/";
  3.     string readurl="ReadSG.php";
  4.     string writeurl="WriteSG.php";
  5.     string deleteurl="DeleteSG.php";
  6. string phpmode;
  7. key myHTTPRequest;
  8. list params = [HTTP_METHOD, "POST", HTTP_MIMETYPE, "application/x-www-form-urlencoded"];
  9. key who;
  10. integer points;
  11. default
  12. {
  13.     state_entry()
  14.     {
  15.         llSay(0, "Hello, Avatar!");
  16.     }
  17.  
  18.     touch_start(integer total_number)
  19.     {
  20.         phpmode="load";
  21.         myHTTPRequest = llHTTPRequest(url+readurl, params,"uuid=" +(string) llDetectedKey(0) );
  22.         who=llDetectedKey(0);
  23.         llSetTimerEvent(30);
  24.     }
  25.     timer()
  26.     {
  27.         llSay(0,(string)points);
  28.         phpmode="write";
  29.         myHTTPRequest = llHTTPRequest(url+deleteurl, params,"uuid=" +(string) who );
  30.         llSetTimerEvent(0);
  31.     }
  32.     http_response(key request_id, integer status, list metadata, string body)
  33.     {
  34.         if(request_id == myHTTPRequest)
  35.         {
  36.              llReleaseURL(url);
  37.             llSay(0,"B: "+body);
  38.             if(phpmode=="written")
  39.             {
  40.                 llSay(0,"Written");
  41.                 phpmode="";
  42.             }
  43.             if(phpmode=="write")
  44.             {
  45.                
  46.                 phpmode="written";
  47.                 myHTTPRequest = llHTTPRequest(url+writeurl, params, "A=" +(string)who+"&B="+llKey2Name(who)+"&C="+(string)points);
  48.             }
  49.             if (phpmode=="delete")//not needed?
  50.             {
  51.                 phpmode="write";
  52.                myHTTPRequest = llHTTPRequest(url+deleteurl, params,"uuid=" +(string) who );
  53.             }
  54.             if (phpmode=="load")
  55.             {
  56.             if(llList2String(llCSV2List(body),0)!="Load")//is not on list create new
  57.             {
  58.                // llReleaseURL(url);
  59.                 //llSay(0,"x: "+body);
  60.                // llSleep(1);
  61.                 points=10000;
  62.                 phpmode="written";
  63.                 myHTTPRequest = llHTTPRequest(url+writeurl, params, "A=" +(string)who+"&B="+llKey2Name(who)+"&C="+(string)points);
  64.             }
  65.            
  66.             if(llList2String(llCSV2List(body),0)=="Load")
  67.             {
  68.                // llReleaseURL(url);
  69.                 llInstantMessage(llGetOwner(), body);
  70.                  points=llList2Integer(llCSV2List(body),-1);
  71.                  llSay(0,(string)points);
  72.                 // points=750;
  73.                  phpmode="";
  74.                // llReleaseURL(url);
  75.             }
  76.             }
  77.         }
  78.     }
  79. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement