1 // From the book:
  2 //
  3 // Scripting Recipes for Second Life
  4 // by Jeff Heaton (Encog Dod in SL)
  5 // ISBN: 160439000
  6 X// Copyright 2007 by Heaton Research, Inc.
  7 //
  8 // This script may be freely copied and modified so long as this header
  9 // remains unmodified.
 10 //
 11 // For more information about this book visit the following web site:
 12 //
 13 // http://www.heatonresearch.com/articles/series/22/
 14 
 15 default
 16 {
 17     state_entry()
 18     {
 19         llSetTextureAnim(ANIM_ON | ROTATE | LOOP | SMOOTH, ALL_SIDES, 0, 0, 0, 100, .05);
 20         llVolumeDetect(TRUE);
 21     }
 22     
 23     collision_start( integer num_detected )
 24     {
 25         llTriggerSound("splash", 1); 
 26     }
 27 
 28 }

  1 
  2 
  3 
  4 default
  5 {
  6 	state_entry()
  7 	{
  8 		llParticleSystem([]);
  9 
 10 		llSetPrimitiveParams([PRIM_SIZE , <1.0,1.0,1.0>]);
 11 		llSetAlpha(0.0, ALL_SIDES); // set entire prim 0% visible.
 12 		llTargetOmega(<0.0,1.0,0.0>,TWO_PI,1.0);
 13 		llPreloadSound("thunder1");
 14 		llPreloadSound("thunder2");
 15 		llPreloadSound("thunder3");
 16 
 17 		llListen(0, "", "", "");
 18 	}
 19 
 20 
 21 	listen(integer channel, string name, key id, string message)
 22 	{
 23 		// check if the message corresponds to a predefined string.
 24 		// llToLower converts the message to lowercase.
 25 
 26 		list words = llParseString2List(message, [",",".",","," "], []);
 27 		integer count = llGetListLength(words);
 28 		integer total = 0;
 29 		//llOwnerSay("Count = " + (string) count);
 30 		integer j;
 31 		for ( j = 0; j < count; j++)
 32 		{
 33 			string aword = llList2String(words,j);
 34 			if(llToLower(aword) == "thee")
 35 				total++;
 36 		}
 37 		// llOwnerSay("total = " + (string) total);
 38 		integer max;
 39 
 40 		if(total> 0 )
 41 		{
 42 			llSetAlpha(0.5, ALL_SIDES); // set entire prim 100% visible.
 43 
 44 
 45 
 46 
 47 			if(total == 1 )
 48 			{
 49 				llWhisper(0, "a small ripple of absolute truth spreads throughout the land.....then slowly vanishes.");
 50 				llPlaySound("thunder1",0.4);
 51 				max = 5;
 52 
 53 			}
 54 			if(total == 2 )
 55 			{
 56 				llSay(0, "a ripple spreads throughout the land, anticipating.....what?");
 57 				max = 7;
 58 				llPlaySound("thunder3",0.6);
 59 			}
 60 			if(total >= 3  )
 61 			{
 62 				llShout(0, "a ripple of truth,  with the force of an oath spreads throughout the land....and explodes in sound and fury!");
 63 				max =10;
 64 				llPlaySound("thunder2",1.0);
 65 			}
 66 
 67 
 68 			float  i;
 69 
 70 
 71 			for ( i = 1; i < max; i += 1)
 72 			{
 73 				vector size;
 74 				size.x = i;
 75 				size.y = i;
 76 				size.z = i;
 77 				llSetPrimitiveParams([PRIM_SIZE , size]);
 78 				llSleep(0.05);
 79 			}
 80 
 81 			if(total == 1  )
 82 			{
 83 				llSetAlpha(0.66, ALL_SIDES); // set entire prim 0% visible.
 84 				llSleep(0.5);
 85 				llSetAlpha(0.33, ALL_SIDES); // set entire prim 0% visible.
 86 				llSleep(0.5);
 87 			}
 88 
 89 			if(total == 2  )
 90 			{
 91 				llSetAlpha(0.8, ALL_SIDES); // set entire prim 0% visible.
 92 				llSleep(0.5);
 93 				llSetAlpha(0.6, ALL_SIDES); // set entire prim 0% visible.
 94 				llSleep(0.5);
 95 				llSetAlpha(0.4, ALL_SIDES); // set entire prim 0% visible.
 96 				llSleep(0.5);
 97 				llSetAlpha(0.2, ALL_SIDES); // set entire prim 0% visible.
 98 				llSleep(0.5);
 99 			}
100 
101 			if(total >= 3  )
102 			{
103 				llSetAlpha(0.8, ALL_SIDES); // set entire prim 0% visible.
104 				llSleep(0.5);
105 				llSetAlpha(0.7, ALL_SIDES); // set entire prim 0% visible.
106 				llSleep(0.5);
107 				llSetAlpha(0.6, ALL_SIDES); // set entire prim 0% visible.
108 				llSleep(0.5);
109 				llSetAlpha(0.5, ALL_SIDES); // set entire prim 0% visible.
110 				llSleep(0.5);
111 				llSetAlpha(0.4, ALL_SIDES); // set entire prim 0% visible.
112 				llSleep(0.5);
113 				llSetAlpha(0.3, ALL_SIDES); // set entire prim 0% visible.
114 				llSleep(0.5);
115 				llSetAlpha(0.2, ALL_SIDES); // set entire prim 0% visible.
116 				llSleep(0.5);
117 				llSetAlpha(0.1, ALL_SIDES); // set entire prim 0% visible.
118 				llSleep(0.5);
119 			}
120 
121 
122 
123 			llSetAlpha(0.0, ALL_SIDES); // set entire prim 0% visible.
124 			llSetPrimitiveParams([PRIM_SIZE , <0.010,0.010,0.010>]);
125 
126 		}
127 	}
128 
129 
130 
131 
132 
133 	/////////////////////// on_rez() //////////////////////////////
134 
135 	on_rez(integer start_param)
136 	{
137 		llResetScript();
138 	}
139 
140 	/////////////////////// changed() ////////////////////////////
141 
142 	changed(integer mask)
143 	{
144 		if(mask & CHANGED_INVENTORY)
145 		{
146 			llResetScript();
147 		}
148 	}
149 }