Fast Pay Script...

Does anyone know how to go about a Fast Pay script? One where when you click on an object to buy it has one price choice that says Fast Pay and the amount? Thanks for any help!

Read all about it: http://www.lslwiki.net/lslwiki/wakka.php?wakka=llSetPayPrice

This may work..

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);
}

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);
}
}
}