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
Tip Jar ALIZmediaScript  

ALIZmediaScript

ALIZmediaScript.lsl

Category: Tip Jar
By : Ali Virgo
Created: 2010-01-10 Edited: 2010-01-10
Worlds: Second Life

the Zip file

Download all files for ALIZmediaScript
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.
Get file # 1. ALIZmediaScript_1.lsl
Get file # 2. ALIZmediaScript_2.lsl
1
2 list amounts = [ 10,20,25,30,40,50,100,200]; // Up to 12 amounts - must be integer, no commas or periods.
3 string d_msg = "This is donation If you can, please donate to Ali Virgo "; // Dialog message.
4 key payee = "34ad4985-bcc7-4f93-a65e-6ecd87c935cd"; // Insert your key here. (I will have provided a script that gives you your key.)
5
6 // =======================================================
7 // == Don't worry about here down if you don't want to. ==
8 // =======================================================
9
10 // Other globals
11 list amt_string = [];
12 string owner = "";
13 integer lhan;
14
15 integer don_amt = 0;
16
17 list stringify(list amt)
18 {
19 integer n = llGetListLength(amt);
20 integer i;
21 list temp = [];
22 for(i=0; i<n; i++)
23 {
24 temp += "L$" + (string)llList2Integer(amt,i);
25 }
26 return temp;
27 }
28
29 default
30 {
32 {
33 owner = llKey2Name(llGetOwner());
34 amt_string = stringify(amounts);
35 lhan = llListen(990099, "", llGetOwner(), "");
36 llDialog(llGetOwner(), d_msg, amt_string, 990099);
37 llSetTimerEvent(300);
38 }
39
41 {
43 }
44
45 listen(integer chan, string name, key id, string msg)
46 {
47 llListenRemove(lhan);
48 integer index = llListFindList(amt_string, [msg]);
49 if( index > -1 ) // valid
50 {
51 don_amt = llList2Integer(amounts, index);
53 }
54 }
55
57 {
58 if( perm & PERMISSION_DEBIT )
59 {
60 llOwnerSay("Processing donation... please wait!");
61 llGiveMoney(payee, don_amt);
62 llInstantMessage(payee, owner + " has donated L$" + (string)don_amt + ".");
63 llOwnerSay("Thank you for your donation!");
64 }
65 else
66 {
67 llOwnerSay("Thanks for considering a donation!");
68 }
69 }
70
71 timer()
72 {
73 llListenRemove(lhan);
74 llOwnerSay("Thanks for considering a donation!");
75 }
76 }
77 // END //

ALIZmediaScript

This script produces your avatar key. Click it, then add the key it prints to "key payee = "your key" in the other script.

Category: Tip Jar
By : Ali Virgo
Created: 2010-01-10 Edited: 2010-01-10
Worlds: Second Life

1
2
3 1// Remove this number for this script to work
4
5
6 default
7 {
9 {
10 llSay(0, "AV Key");
11 }
12
13 touch_start(integer total_number)
14 {
16 }
17 on_rez(integer start_param)
18 {
20 }
21 }
22 // END //

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