integer Perms;
key Owner;
key Vendor_Key;
key Customer_Key;
key Gift_Key;
string Customer_Name;
string Gift_Name;
string Product = "test Gayngel234";
string url;
integer Paid_Amount;
string Payment_Method;
integer Discount_All;
integer Discount_Group;
string Date;
string Region;
string Sale_Start;
string Sale_End;
integer Price = 399;
integer Reward_All;
integer Reward_Group;
integer lchan;
integer lhandle;
integer dchan;
integer dhandle;
integer gdisc_chan;
integer adisc_chan;
integer lgroup_disc;
integer lall_disc;
list Investors;
key requestURL;
key checkReg;
key checkBan;
key callServer;
key returnBan;
key PayPartner;
key partner;
integer share;
list admin_btns =["Set Active","Configure","Reset","Sales Dates","Discounts","Profit Split","Ban"];
list customer_btns = ["Gift","Credit"];
integer Active = TRUE;



Dialog(key av,list btns)
{
 llListenRemove(lhandle);
 lhandle = llListen(lchan,"",av,"");
 llDialog(av,"\nSelect an option:",btns,lchan);

 Timer();
}

Timer()
{

 llSetTimerEvent(0.0);
  llSetTimerEvent(120.0);

}

init()
{

    llReleaseURL(url);
    requestURL = llRequestURL();

}


Ping()
{

 //   llHTTPRequest(app+"?"+"url="+url+"&uuid="+ llEscapeURL(llGetKey()) + "&version=" + llEscapeURL(version),[HTTP_METHOD,"GET"],"Ping");



// Ping store php

  // checkReg = llHTTPRequest();



   llHTTPRequest("http://agorasl.com/stores/include/lsl/insertproduct.php",[HTTP_METHOD,"POST",HTTP_MIMETYPE,"application/x-www-form-urlencoded"],
           "Owner="+(string)llGetOwner()+
           "&Product="+(string)Product+
           "&Price="+(string)Price+
           "&Active="+(string)Active+
           "&Region="+(string)Region+
           "&Sale_Start="+(string)Sale_Start+
           "&Sale_End="+(string)Sale_End+
            "&Date="+(string)Date+
           "&Discount_All="+(string)Discount_All+
         "&Discount_Group="+(string)Discount_Group+
            "&Reward_All="+(string)Reward_All+
            "&Reward_Group="+(string)Reward_Group
            );



}


setDiscount(integer sdisc,string smsg)
{

    if (llGetSubString(smsg, -1, -1) == llUnescapeURL("%0A") )
            smsg = llStringTrim(llGetSubString(smsg, 0, -2),STRING_TRIM_HEAD);

     integer idx = llSubStringIndex(smsg,"%");

     if(~idx)
     smsg = llGetSubString(smsg, 0, -2);


     if(sdisc = gdisc_chan)
     {
     Discount_Group = (integer)smsg;
     llInstantMessage(Owner,"Group discount has been set to " +(string)Discount_Group+ "%.");
     }
     else if(sdisc = adisc_chan)
     {
     Discount_All = (integer)smsg;
    llInstantMessage(Owner,"The discount for everyone has been set to " +(string)Discount_All+ "%.");
    }

}


default
{


    state_entry()
    {

      Owner = llGetOwner();
      Vendor_Key = llGetKey();
      lchan = ((integer)("0x"+llGetSubString((string)Vendor_Key,-8,-1)) - 723) | 0x8000000;
      dchan = ((integer)("0x"+llGetSubString((string)Vendor_Key,-8,-1)) - 3472) | 0x8000000;

      gdisc_chan = ((integer)("0x"+llGetSubString((string)Vendor_Key,-8,-1)) - 47687) | 0x8000000;

      adisc_chan = ((integer)("0x"+llGetSubString((string)Vendor_Key,-8,-1)) - 255) | 0x8000000;

        //llRequestPermissions(Owner,PERMISSION_DEBIT);
        init();


    }


    run_time_permissions(integer perm)
    {

      if(perm & PERMISSION_DEBIT)
      {

          Perms = TRUE;
          init();



        }

        else
        {
        llInstantMessage(Owner,"This vendor can not be used without granting debit permissions.");
        Perms = FALSE;

        }


    }


    touch_end(integer total_number)
    {
         key Toucher = llDetectedKey(0);
      if(Perms)
      {



       if(Toucher == Owner)
       Dialog(Toucher,admin_btns);

       else
       Dialog(Toucher,customer_btns);
       }

       else
       {

          if(Toucher == Owner)
          {
              llRequestPermissions(Owner,PERMISSION_DEBIT);
          }

        }

    }


     http_request(key id, string method, string body)
    {

         if ((method == URL_REQUEST_GRANTED) && (id == requestURL) )
        {
            // An URL has been assigned to me.
            url = body;
            requestURL = NULL_KEY;
            Ping();
        }
        else if ((method == URL_REQUEST_DENIED) && (id == requestURL))
        {
            // I could not obtain a URL
            llOwnerSay("There was a problem, and an URL was not assigned: " + body);
            requestURL = NULL_KEY;
        }

        else if(id == checkBan)
        {

           if(body == "Yes")
           {

              llInstantMessage(Customer_Key,"You are banned from this store, you can not buy items from this vendor.");
              returnBan = llTransferLindenDollars(Customer_Key,Paid_Amount);


            }


           else if(body == "No")
            {

               integer itemcheck = llGetInventoryType(Product);

               if(itemcheck == INVENTORY_NONE)
               {
                   callServer = llHTTPRequest("serverurl.com",[HTTP_METHOD,"POST",HTTP_MIMETYPE,"application/x-www-form-urlencoded"],
             "Owner="+(string)llGetOwner()+
             "&Product="+(string)Product);

                }

               else
                llGiveInventory(Customer_Key,Product);




            }


         }
    }

    http_response(key id, integer status, list metadata, string body)
    {

        if(id == checkReg)
        {

            if(body == "Yes")
            {
                llOwnerSay("Please go to the web portal to set up this vendor.");
               //  llLoadURL(Owner, "You need to register your store before setting up this vendor. Click this link to register.", "https://agorasl.com/stores/signup.php." );
             }


            else if(body == "No")
            {
              llOwnerSay("You need to register your store before setting up this vendor. Please register at https://agorasl.com/stores/signup.php.");
              llLoadURL(Owner, "You need to register your store before setting up this vendor. Click this link to register.", "https://agorasl.com/stores/signup.php." );


             }

        }

        llOwnerSay((string)id + "+" + (string)status +"+ List=" +llList2CSV(metadata)+"+"+body);

    }



    listen(integer chan, string name, key id, string msg)
{


    //list admin_btns =["Set Active","Configure","Reset","Sales Dates","Discounts","Profit Split"];
//list customer_btns = ["Gift","Credit"];

    if(chan == lchan)
    {

        if(msg == "Set Active")
        {

           if(Active)
           {
               Active = FALSE;
                llSetPayPrice(PAY_HIDE,[PAY_HIDE,PAY_HIDE,PAY_HIDE,PAY_HIDE]);
                llSetClickAction(CLICK_ACTION_TOUCH);

               llOwnerSay("You have set this vendor to inactive. No one can buy products from it.");

            }

           else if(!Active)
            {
               Active = TRUE;
              llSetClickAction(CLICK_ACTION_PAY);
                llSetPayPrice(Price,[PAY_HIDE,PAY_HIDE,PAY_HIDE,PAY_HIDE]);

                llOwnerSay("You have set this vendor to active. Evertone can buy from it.");

                }


        }


        else if (msg == "Configure")
        {

            llOwnerSay("Please go to the web portal to set up this vendor.");


        }

        else if (msg == "Reset")
        {

          // llResetScript();

        }


        else if (msg == "Sales Dates")
        {
            llListenRemove(lhandle);
           llMessageLinked(LINK_SET,0,"SetSale","");

        }

        else if (msg == "Discounts")
        {

            llListenRemove(lhandle);
            llListenRemove(dhandle);
            dhandle = llListen(dchan,"",id,"");

            llDialog(id,"\nSelect to set a discount for group and/or everyone.",["Group","Everyone"],dchan);

        }

        else if (msg == "Profit Split")
        {

            llListenRemove(lhandle);
            llMessageLinked(LINK_SET,0,"SetProfit","");

        }




     }


     else if(chan == dchan)
     {

        if(msg == "Group")
        {
            llListenRemove(dhandle);
            llListenRemove(lgroup_disc);
            lgroup_disc = llListen(gdisc_chan,"",id,"");

         llTextBox(id,"\nSet the discount rate for group members. Type the percentage into the text box.",gdisc_chan);


        }

        else if(msg == "Everyone")
        {
           llListenRemove(dhandle);
            llListenRemove(lall_disc);
             lall_disc = llListen(adisc_chan,"",id,"");
             llTextBox(id,"\nSet the discount rate for everyone. Type the percentage into the text box.",adisc_chan);

        }

      }


      else if(chan == gdisc_chan)
      {

          setDiscount(gdisc_chan,msg);
      }


      else if(chan == adisc_chan)
      {

        setDiscount(adisc_chan,msg);

      }


}


    money(key id, integer amount)
    {
        if(Active)
        {

          //check banlist checkBan = llHTTPRequest();

        }

        else
        {


        }


     }

     link_message(integer sender, integer num, string msg, key id)
     {

       if(msg == "PayP")
       {
         partner = id;
         share = num;
         PayPartner = llTransferLindenDollars(id,num);


        }

     }


    changed(integer change)
    {
        //  note that it's & and not &&... it's bitwise!
        if (change & (CHANGED_REGION | CHANGED_REGION_START | CHANGED_TELEPORT))
        {
            init();
        }

        else if (change & (CHANGED_OWNER))
        llResetScript();

    }

    transaction_result(key id, integer success, string data)
    {

        if(id == returnBan)
            {

              if(!success)
              {

                llInstantMessage(Customer_Key,"There was an error returning your money. Please contact "+"secondlife:///app/agent/" + (string)Owner + "/about"+" to get your money back.");

                 llInstantMessage(Owner,"There was an error returning L$"+(string)Paid_Amount+" to "+"secondlife:///app/agent/" + (string)Customer_Key + "/about"+". Please return the money to them manually.\n\n Reason for error: " + data +".\nYou can view what this reason means here: http://wiki.secondlife.com/wiki/Transaction_result");


              }



            }


            else if(id == PayPartner)
            {


              if(!success)
              {

                llInstantMessage(partner,"There was an error paying your share from this vendor. Please contact "+"secondlife:///app/agent/" + (string)Owner + "/about"+" to receive your share.");

                 llInstantMessage(Owner,"There was an error paying "+"secondlife:///app/agent/" + (string)partner + "/about"+" their share of the profits from this vendor. Please manually pay them  L$"+(string)share+"\n\n Reason for error: " + data +".\nYou can view what this reason means here: http://wiki.secondlife.com/wiki/Transaction_result");


               }

               else
                {


                 }



            }


    }

  timer()
  {

     llSetTimerEvent(0.0);
     llListenRemove(lhandle);

  }

}