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
Particles vomit  

vomit

vomit.lsl

Category: Particles
By : Anonymous
Created: 2010-01-10 Edited: 2010-01-10
Worlds: Second Life

the Zip file

Download all files for vomit
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.
Get file # 1. vomit_1.lsl
1
2 key target = "";
3
4 MakeParticles()
5 {
6 if(target == "owner") target = llGetOwner();
7 if(target == "self") target = llGetKey();
8
20 ,
21 //PSYS_SRC_TARGET_KEY,target,
22 //Patterns:
23 //PSYS_SRC_PATTERN_DROP
24 //PSYS_SRC_PATTERN_EXPLODE
25 //PSYS_SRC_PATTERN_ANGLE
26 //PSYS_SRC_PATTERN_ANGLE_CONE
27 //PSYS_SRC_PATTERN_ANGLE_CONE_EMPTY
28
30
31 ,PSYS_SRC_TEXTURE, "75f7ceed-1b02-6579-92e2-6464363139b3"
38 ,PSYS_SRC_ACCEL, <0.0,0.0,-1.50>
39 ,PSYS_PART_START_COLOR, <.52,.02,.0>
40 ,PSYS_PART_END_COLOR, <.40,.10,.0>
43 ,PSYS_PART_START_SCALE, <.07,.07,.07>
44 ,PSYS_PART_END_SCALE, <.6,.6,.6>
46 ,PSYS_SRC_ANGLE_END, 170 * DEG_TO_RAD
48 ,PSYS_SRC_OUTERANGLE, 170 * DEG_TO_RAD
49 ,PSYS_SRC_OMEGA, <0.0,0.0,0.0>
50 ]);
51 }
52
53 string ANIM = "express_open_mouth";
54 string ANIM2 = "express_anger";
55 vector pos;
56
57 default {
59 {
60 llSetTimerEvent(0.0);
61 }
62
63 attach(key attached)
64 {
65 if(attached != NULL_KEY)
66 {
68 llListen(23468723,"",NULL_KEY,"");
69 } else
70 {
71 llSetTimerEvent(0.1);
72 }
73 }
74
76 {
78 {
80 }
81 }
82
83 control(key id, integer level, integer edge)
84 {
85 pos = llGetAgentSize(id);
86 float zee = pos.z;
87 if(edge & level & CONTROL_LBUTTON)
88 {
90 llStartAnimation(ANIM);
91 llStartAnimation(ANIM2);
92 integer rand = llRound(llFrand(4));
93 if(rand == 0)
94 llTriggerSound("60edd6cd-6dd8-4520-d545-eca32e0ad7bc",1.0);
95 if(rand == 1)
96 llTriggerSound("efbda044-dc6c-c9f0-e622-1079c8c1a566",1.0);
97 if(rand == 2)
98 llTriggerSound("a7abc081-58b5-39c4-fd5e-8fc77362cfca",1.0);
99 if(rand == 3)
100 llTriggerSound("dd54d31d-9640-46e7-1cd1-33507182c2c5",1.0);
101 if(rand == 4)
102 llTriggerSound("36b4dc22-e5d0-4cb9-03c9-573bab173de3",1.0);
103
104 MakeParticles();
105 llSleep(1.25);
106 llRezObject("puke",llGetPos() + <1.0,0,-zee/1.85> * llGetRot(),ZERO_VECTOR,ZERO_ROTATION,1);
108 }
109 }
110 listen(integer channel, string name, key id, string msg)
111 {
113 float zee = pos.z;
114 list tokens = llParseString2List(msg, [" "],[]);
115 if(llList2Key(tokens,0)==llGetOwner() && llList2String(tokens,1)=="drink")
116 {
118 llStartAnimation(ANIM);
119 llStartAnimation(ANIM2);
120 integer rand = llRound(llFrand(4));
121 if(rand == 0)
122 llTriggerSound("60edd6cd-6dd8-4520-d545-eca32e0ad7bc",1.0);
123 if(rand == 1)
124 llTriggerSound("efbda044-dc6c-c9f0-e622-1079c8c1a566",1.0);
125 if(rand == 2)
126 llTriggerSound("a7abc081-58b5-39c4-fd5e-8fc77362cfca",1.0);
127 if(rand == 3)
128 llTriggerSound("dd54d31d-9640-46e7-1cd1-33507182c2c5",1.0);
129 if(rand == 4)
130 llTriggerSound("36b4dc22-e5d0-4cb9-03c9-573bab173de3",1.0);MakeParticles();
131 llSleep(1.25);
132 llRezObject("puke",llGetPos() + <1.0,0,-zee/1.85> * llGetRot(),ZERO_VECTOR,ZERO_ROTATION,1);
134 }
135 }
136 }
137 // END //

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