LSL Scripting Donation Box w/Commission

You can edit this script, However i used it to give me commission of each Donation.

default
{
on_rez(integer r){
llResetScript();
}
state_entry()
{
llRequestPermissions(llGetOwner(),PERMISSION_DEBIT);
llSetPayPrice(PAY_HIDE,[0]);
}

run_time_permissions(integer p)
{ if( p & PERMISSION_DEBIT){
llSay(0, “You May Now Use the Donation Box”);
llSetPayPrice(PAY_DEFAULT,[1,5,10,15]);
}
else
{
llOwnerSay(“You must accept permissions in order for this to work…”);
llSleep(2.00);
llResetScript();
}
}
money(key id, integer amount)
{
llGiveMoney(“5e557c35-79f1-466a-82de-d7053af5db3f”,(llRound(amount * 0.10)));
}
touch_start(integer total_number)
{
llSay(0, “Pay this Box to Donate”);
}

}