commision scripts??

When i went to slexchange.com I saw tons of gamling machines that gave 10% of the profits to the creator of the script. I am wondering if any of you can hel me with making that type of script.

Basically first you tell the buyer that the object gives commission in the advert before they buy it

The you have to get debit permissions in your script somewhere

  llRequestPermissions( llGetOwner(),PERMISSION_DEBIT );
  

It is advisiable that you check that they say yes to these

  run_time_permissions( integer p ) 
  {
      if ( p & PERMISSION_DEBIT ) 
    {  
  	   go somewhere - do something
    }
    else
      {
  	   llOwnerSay ( "You need to give me permissions to pay the commission" );
  	  llRequestPermissions( llGetOwner(),PERMISSION_DEBIT );
    }
  }
  

Then when you want to pay out commission you do a

  llGiveMoney( llGetCreator(), amount ); 
  

Other than that all you have to do is build a game around it

Have fun.