//THIS IS A VERY DANGEROUS SCRIPT.  MAKE SURE YOU 100%
//TRUST ANYONE IN THIS SCRIPT'S ALTS LIST.  ONCE YOU
//GIVE PERMISSIONS FOR THIS SCRIPT TO TAKE MONEY, IT
//IS VERY EASY FOR ANYONE IN THE ALTS LIST TO WIPE OUT
//YOUR ACCOUNT WITH A FEW CLICKS.

//Modified from the single use transfer example script
//at http://wiki.secondlife.com/wiki/LlGiveMoney

//replace the NULL_KEYs with your alts' UUIDs
list alts= ["00000000-0000-0000-0000-000000000000", "00000000-0000-0000-0000-000000000000", "00000000-0000-0000-0000-000000000000", "00000000-0000-0000-0000-000000000000", "00000000-0000-0000-0000-000000000000"];

integer transfer = 50; 
integer debitPermission;
 
default
{
    state_entry()
    {
        //THIS GIVES ANYONE IN YOUR ALTS LIST PERMISSION TO
		//TAKE MONEY OUT OF YOUR ACCOUNT.
        llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
    }
 
    run_time_permissions (integer perm)
    {
        if  (perm & PERMISSION_DEBIT) debitPermission = TRUE;
    }
 
    touch_start(integer num_detected)
    {
		//This compares the person touching the prim against your
		//list of alts.
		string convertkey = (string)llDetectedKey(0);
		integer authorized = (~llListFindList(alts, [convertkey]));

		//If you haven't given permissions, or the avatar touching
		//the prim is not on the list, nothing happens.
        if (!debitPermission) return;
        if (!authorized) return;
 
		//if both permissions and the alt are approved, the alt
		//receives $50L
        key id = (key)convertkey; 
        llGiveMoney(id, transfer);
    }
}