Discussion: Vending script

// vendor
// Wednesday Grimm
// June 10, 2003
//
// Simple vending script, gives correct change.

integer gPrice = 5;  // cost of the item

 // name of the item in object's inventory, to vend
string itemName = "test_note"; 

// two summary lines to describe the object
string summary1 = "this is a test note, it tests this script";
string summary2 = "it is very interesting.  Cost is $5";

// give the item to a customer
dispense(key toWhom)
{
    llGiveInventory(toWhom, itemName);
}

default
{
    state_entry()
    {
        // we need this permission to give change
        llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
    }

    touch_end(integer total_number)
    {
        // if someone touches object describe what's for sale
        llWhisper(0, summary1);
        llWhisper(0, summary2);
    }
    
    money(key id, integer amt)
    {
        if (amt >= gPrice)
        {
            // customer has given us at least enough money
            amt -= gPrice;
            dispense(id);
        }
        if (amt > 0) // give back change
        {
            llGiveMoney(id, amt);
        }            
    }
}

 and