notecard reader, online status checker

General/osc.lsl

@@ -0,0 +1,208 @@
+//reads through a notecard with UUID then name line by line
+//then it checks if they're online and shows it
+
+
+// Generated by 'particles-lsl-generator.bashora.com', Zeja Pyle, 2008.
+
+// DECLARATION ==============================
+string Texture;
+integer Interpolate_Scale;
+vector Start_Scale;
+vector End_Scale;
+integer Interpolate_Colour;
+vector Start_Colour;
+vector End_Colour;
+float Start_Alpha;
+float End_Alpha;
+integer Emissive;
+float Age;
+float Rate;
+integer Count;
+float Life;
+integer Pattern;
+float Radius;
+float Begin_Angle;
+float End_Angle;
+vector Omega;
+integer Follow_Source;
+integer Follow_Velocity;
+integer Wind;
+integer Bounce;
+float Minimum_Speed;
+float Maximum_Speed;
+vector Acceleration;
+integer Target;
+key Target_Key;
+
+
+// BASIC FUNCTION ==============================
+
+Particle_System()
+{
+list Parameters = 
+[
+PSYS_PART_FLAGS,
+(
+(Emissive * PSYS_PART_EMISSIVE_MASK) |
+(Bounce * PSYS_PART_BOUNCE_MASK) |
+(Interpolate_Colour * PSYS_PART_INTERP_COLOR_MASK) |
+(Interpolate_Scale * PSYS_PART_INTERP_SCALE_MASK) |
+(Wind * PSYS_PART_WIND_MASK) |
+(Follow_Source * PSYS_PART_FOLLOW_SRC_MASK) |
+(Follow_Velocity * PSYS_PART_FOLLOW_VELOCITY_MASK) |
+(Target * PSYS_PART_TARGET_POS_MASK)
+),
+PSYS_PART_START_COLOR, Start_Colour,
+PSYS_PART_END_COLOR, End_Colour,
+PSYS_PART_START_ALPHA, Start_Alpha,
+PSYS_PART_END_ALPHA, End_Alpha,
+PSYS_PART_START_SCALE, Start_Scale,
+PSYS_PART_END_SCALE, End_Scale,
+PSYS_SRC_PATTERN, Pattern,
+PSYS_SRC_BURST_PART_COUNT, Count,
+PSYS_SRC_BURST_RATE, Rate,
+PSYS_PART_MAX_AGE, Age,
+PSYS_SRC_ACCEL, Acceleration,
+PSYS_SRC_BURST_RADIUS, Radius,
+PSYS_SRC_BURST_SPEED_MIN, Minimum_Speed,
+PSYS_SRC_BURST_SPEED_MAX, Maximum_Speed,
+PSYS_SRC_TARGET_KEY, Target_Key,
+PSYS_SRC_ANGLE_BEGIN, Begin_Angle,
+PSYS_SRC_ANGLE_END, End_Angle,
+PSYS_SRC_OMEGA, Omega,
+PSYS_SRC_MAX_AGE, Life,
+PSYS_SRC_TEXTURE, Texture
+];
+llParticleSystem (Parameters);
+}
+
+// YOUR PARTICLES FUNCTION ==============================
+
+particles(){
+Interpolate_Scale = FALSE;
+Start_Scale = <0.04,0.04, 0>;
+End_Scale = <0.04,0.04, 0>;
+Interpolate_Colour = FALSE;
+Start_Colour = color;
+End_Colour = color;
+Start_Alpha = 0.5;
+End_Alpha =1;
+Emissive = TRUE;
+Age = theAge;
+Rate = 0;
+Count = 1;
+Life = 0;
+Pattern = PSYS_SRC_PATTERN_EXPLODE;
+Radius = 0.1;
+Begin_Angle = 0;
+End_Angle = 3.14159;
+Omega = < 0, 0, 0 >;
+Follow_Source = TRUE;
+Follow_Velocity = FALSE;
+Wind = TRUE;
+Bounce = FALSE;
+Minimum_Speed = 0.1;
+Maximum_Speed = 1;
+Acceleration = < 0.1, 0.1, 0.1 >;
+Target = TRUE;
+Target_Key = llGetKey();
+
+Particle_System();
+}
+
+update() {
+color = llGetColor(ALL_SIDES);
+vector size = llGetScale();
+theAge = (size.x * 100) / 5;
+particles();
+}
+
+vector color;
+float theAge;
+
+list keys;
+list names;
+list status;
+
+integer name;
+
+key oQ;
+integer x;
+
+key ncQ;
+string ncN = "units";
+integer ncL;
+list ncC;
+
+integer time;
+start() {
+    llSetTimerEvent(1.0);
+    update();
+    keys = [];
+    names = [];
+    status = [];
+    name = FALSE;
+    ncC = [];
+    ncL = 0;
+    ncQ = llGetNotecardLine(ncN, ncL);
+}
+
+next() {
+    name = !name;
+    ++ncL;
+    ncQ = llGetNotecardLine(ncN, ncL);
+}
+
+checkOnline() {
+        if (x > llGetListLength(keys)) { displayStatus(); }
+        else {
+                oQ = llRequestAgentData(llList2Key(keys,x),DATA_ONLINE);
+        }
+}
+
+displayStatus() {
+        string text = "Units Online\n----------\n";
+        integer n;
+        for (n = 0; n < llGetListLength(status)-1; n++) {
+                if (llList2Integer(status,n) == TRUE) {
+                        text += llList2String(names,n) + "\n";
+                }
+        }
+        llSetText(text, <1,1,1>, 1.0);
+}
+
+default {
+        state_entry() {
+                start();
+        }
+
+        touch_end(integer n) {
+                start();
+        }
+
+        dataserver(key q, string d) {
+                if (q == ncQ) {
+                        if (d == EOF) {
+                                x = 0;
+                                checkOnline();
+                        }
+                        else if (!name) { keys += (key)d; next(); }
+                        else { names += d; next(); }
+                }
+                if (q == oQ) {
+                        status = llListInsertList(status, [d], x);
+                        ++x;
+                        checkOnline();
+                }
+        }
+        
+        changed(integer c) {
+            if (c && CHANGED_SCALE) { update(); }
+            if (c && CHANGED_INVENTORY) { start(); }
+        }
+        
+        timer() {
+            ++time;
+            if (time%300 == 0) { start(); }
+        }
+}