Join us in Phaze Demesnes

LSL Script Library Home   Add a script Show All
Category: Contributor: Description
Particles Anonymous Flower rezzer 1.lsl
Flower Rezzer
Flower rezzer 1.lsl

Download this script - Please use this link to get this script. If you see all the code on one long line, please use Wordpad or another editor, such as LSLEdit.exe. The .LSL file you will download is an ordinary text file.

1 // CATEGORY:Particles
2 // DESCRIPTION:Flower Rezzer
3 // ARCHIVED BY:Ferd Frederix
4
5 //1
6
7 float MAX_RADIUS = 2.5;
8 float RADIUS_INTERVAL = 0.5;
9
10 // Modified values
11 integer IS_ON = FALSE;
12 float RADIUS = 2;
13 string TEXTURE = "f42bcc2b-20c8-9df7-cf1c-69566e377fd8";
14
15 garden() {
20
21 // Texture / Size / Alpha / Color
22 PSYS_SRC_TEXTURE, "ground_vegetation_004" ,
23 PSYS_PART_START_SCALE,<0.2000, 0.2000, 0.0000>,
24 PSYS_PART_END_SCALE,<0.5000, 0.5000, 0.0000>,
25 PSYS_PART_START_ALPHA,0.000000,
26 PSYS_PART_END_ALPHA,1.000000,
27 PSYS_PART_START_COLOR, <1.0,1.0,1.0>,
28 PSYS_PART_END_COLOR, <1.0,1.0,1.0>,
29
30 // Flow
31 PSYS_PART_MAX_AGE,1000.0000,
32 PSYS_SRC_BURST_RATE,1.000000,
34 PSYS_SRC_MAX_AGE,0.000000,
35
36 // Rez position
38 PSYS_SRC_INNERANGLE,1.550000,
39 PSYS_SRC_OUTERANGLE,1.550000,
40 PSYS_SRC_OMEGA,<0.00000, 0.00000, 4>,
43 ]);
44 }
45
46 stop() {
48 }
49
50 default {
51 state_entry() {
52 if(IS_ON) {
53 llSetTimerEvent(RADIUS_INTERVAL);
54 garden();
55 } else {
56 stop();
57 }
58 }
59
60 touch_start(integer num_detected) {
61 if(IS_ON) {
62 llSetTimerEvent(0.0);
63 stop();
64 llWhisper(0, "Garden has stopped");
65 } else {
66 llSetTimerEvent(RADIUS_INTERVAL);
67 garden();
68 llWhisper(0, "Garden has started");
69 }
70 IS_ON = !IS_ON;
71 }
72
73 timer() {
75 if(max_inventory > 0) {
76 TEXTURE = llGetInventoryName(INVENTORY_TEXTURE, (integer)llFrand(max_inventory));
77 }
78 RADIUS = llFrand(MAX_RADIUS);
79 garden();
80 }
81 }// END //