Avatar Alt Loan Script

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