Two Object Vendor 2.0

Written by: Headmaster

Put in object with 2 products and info note & set price. Owner can check to see total earned. 

Put this script along with TWO OBJECTS and an optional information Notecard.

Users will get a notecard on Touch and get item when a correct amount is paid.

Owner will get IM for each sale with user's name and can Touch to see how much money earned at any time.

 

 

// Begin variables
integer price = 100; //price for single (first item)
integer copyprice = 400; //price for copyable (second item)
string single = "Full Object Name"; //must match exact item name
string copyable = "Copyable Full Object Name"; //must match exact item name
string thanks = "Thank you for your purchase. Please accept your product.";
// End variables
//--------------------------------------------

integer totalsold = 0;
integer totalsoldcopy = 0;
integer totalamount = 0;
integer totalamountcopy = 0;

string startdate;
string ts;
list now;

default
{
    on_rez(integer start_param)
    {
        llResetScript();
    }
    
    state_entry()
    {
        llRequestPermissions(llGetOwner(),PERMISSION_DEBIT);
        llSetPayPrice(PAY_HIDE, [price, copyprice, PAY_HIDE, PAY_HIDE]);
        
        ts = llGetDate();
        now = llParseString2List( ts, ["-"], [] ) ;
        integer nyear = (integer)llList2String( now, 0 ) ;   
        integer nmonth = (integer)llList2String( now, 1 ) ;
        integer nday = (integer)llList2String( now, 2 ) ;
        if (nmonth == 1)
        {
            string smonth = "January";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 2)
        {
            string smonth = "February";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 3)
        {
            string smonth = "March";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 4)
        {
            string smonth = "April";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 5)
        {
            string smonth = "May";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 6)
        {
            string smonth = "June";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 7)
        {
            string smonth = "July";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 8)
        {
            string smonth = "August";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 9)
        {
            string smonth = "September";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 10)
        {
            string smonth = "October";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 11)
        {
            string smonth = "November";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
        else if  (nmonth == 12)
        {
            string smonth = "December";
            startdate = smonth + " " + (string)nday + ", " + (string)nyear;
        }
    }
     
    touch_start(integer total_number)
    {
        if ( llDetectedKey(0) != llGetOwner() )
        {
            llInstantMessage(llDetectedKey(0), "Pay this object L$" + (string)price + " for '" + single + "' or L$" + (string)copyprice + " for '" + copyable + ".'");
            if (llGetInventoryNumber(INVENTORY_NOTECARD) > 0) //notecard available
            {
                llGiveInventory(llDetectedKey(0),llGetInventoryName(INVENTORY_NOTECARD, 0));
            }
        }
        else if ( llDetectedKey(0) == llGetOwner() ) //object owner
        {
            llOwnerSay((string)totalsold +" Single units have been sold, L$" + (string)totalamount +" since " + startdate + ".");
            llOwnerSay((string)totalsoldcopy +" Copyable units have been sold, L$" + (string)totalamountcopy +" since " + startdate + ".");
            integer alltotal = totalamount + totalamountcopy;
            llOwnerSay("L$" + (string)alltotal +" collected total so far.");
        }
    } 
    
    money(key id, integer amount)
    {
        if (amount == price) // single amount paid
        {
            llInstantMessage(id, thanks);
            llGiveInventory(id, single); //single version
            totalsold = totalsold + 1;
            totalamount = amount * totalsold;
            llInstantMessage(llGetOwner(), (string)llKey2Name(id) + " has paid " +  (string)amount + " in "+ llGetRegionName());
        }
        
        else if (amount == copyprice) // copyable amount paid
        {
            llInstantMessage(id, thanks);
            llGiveInventory(id, copyable); //copyable version
            totalsoldcopy = totalsoldcopy + 1;
            totalamountcopy = amount * totalsoldcopy;
            llInstantMessage(llGetOwner(), (string)llKey2Name(id) + " has paid " +  (string)amount + " in "+ llGetRegionName());
        }
        
        else // Not a correct amount, Refund amount
        {
            llInstantMessage(id, "Sorry that is not the correct amount. Refunding you L$" + (string)amount + ".");
            llGiveMoney(id, amount);
        }
    }
}

 

 

 

Category: