Pay and give random object?

I've seen the give random object script in forums but I haven't seen and would like a script where an avatar pays and then it gives you a random object... Any help?

Jenee

Try something like this:

// Lucky dip script
// Ordinal Malaprop
// 2006-04-12

string random_object_name()
{
   integer n = llGetInventoryNumber(INVENTORY_OBJECT);
   integer random = llFloor(llFrand((float)n));
   return llGetInventoryName(INVENTORY_OBJECT, random);
}

default
{
   state_entry()
   {
      llSetText("Lucky Dip\nPay Me L$1", <1.0, 1.0, 1.0>, 1.0);
      llSetPayPrice(PAY_HIDE, [1, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
   }

   money(key giver, integer amount)
   {
      // amount should always be 1
      llGiveInventory(giver, random_object_name());
   }
}

That will pick a random object from the inventory and give it whenever it's paid.