Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 235 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 274 Warning: Undefined array key "media" in /volume1/web/wiki/feed.php on line 385 move IT Home Base http://live.spdns.org/wiki/ Sat, 04 Apr 2026 12:31:21 +0000 FeedCreator 1.8 http://live.spdns.org/wiki/lib/tpl/peanutbutter2/images/favicon.ico move IT Home Base http://live.spdns.org/wiki/ Chatbot http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/chatbot?do=revisions&rev=1575021519 <h2 class="sectionedit1" id="chatbot">Chatbot</h2> <div class="level2"> <p> Bot das sich mit Avataren per Chat „unterhalten“ kann. Erinnert etwas an „<a href="http://de.wikipedia.org/wiki/ELIZA" class="urlextern" target="_blank" title="http://de.wikipedia.org/wiki/ELIZA" rel="ugc nofollow noopener">Eliza</a>“. Eingebaut in ein entsprechend passendes Prim kann das Chat-Bot mit einer Anpassung der englischen Texte auch als Concierge dienen der ankommende Avatare begrüsst, oder eine Anleitung, Hilfestellung oder ähnliches gibt. </p> <pre class="code">integer otherwise; default { state_entry() { llListen(0, &quot;&quot;, NULL_KEY, &quot;&quot; ); llSay(0, &quot;State Entry&quot;); } listen(integer channel, string name, key id, string message) { string sentence = &quot;spc&quot; + message; integer otherwise = 0; if (llSubStringIndex(sentence,&quot;hi&quot;)&gt;0 | llSubStringIndex(sentence,&quot;hello&quot;)&gt;0 | llSubStringIndex(sentence,&quot;hey&quot;)&gt;0 | llSubStringIndex(sentence,&quot;hey there&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Hi&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Hello&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Hey there&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Hello there.&quot;); } if(choice == 2) { llSay(0, &quot;Hi.&quot;); } if(choice == 3) { llSay(0, &quot;Hey there. How are you?&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;how are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;hows you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how&#039;s you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how is you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;How are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Hows you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;How&#039;s you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how is you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how are ya&quot;)&gt;0 | llSubStringIndex(sentence,&quot;hows ya&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how&#039;s ya&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how is ya&quot;)&gt;0 | llSubStringIndex(sentence,&quot;How are ya&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Hows ya&quot;)&gt;0 | llSubStringIndex(sentence,&quot;How&#039;s ya&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how is ya&quot;)&gt;0) { integer choice = (integer) llFrand(6); if(choice == 1) { llSay(0, &quot;I&#039;m ok.&quot;); } if(choice == 2) { llSay(0, &quot;I&#039;m good, just a little busy I guess.&quot;); } if(choice == 3) { llSay(0, &quot;I&#039;m fine, you?&quot;); } if(choice == 4) { llSay(0, &quot;I&#039;m ok, yourself?&quot;); } if(choice == 5) { llSay(0, &quot;I&#039;m doing well, thanks.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;,you?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;, you?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;.You?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;. You?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;yourself?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Yourself?&quot;)&gt;0 | message == &quot;you?&quot; | message == &quot;You?&quot;) { integer choice = (integer) llFrand(3); if(choice == 1) { llSay(0, &quot;I&#039;m good on this topic.&quot;); } if(choice == 2) { llSay(0, &quot;Same here.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;what with&quot;)&gt;0 | llSubStringIndex(sentence,&quot;with what&quot;)&gt;0 | llSubStringIndex(sentence,&quot;are you doing?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What with&quot;)&gt;0 | llSubStringIndex(sentence,&quot;With what&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Just random stuff I guess.&quot;); } if(choice == 2) { llSay(0, &quot;Just different things.&quot;); } if(choice == 3) { llSay(0, &quot;Just stuff.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;whats up&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what&#039;s up&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what are you up to&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what you up to&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what are you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what&#039;s you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;whats you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what&#039;s going on&quot;)&gt;0 | llSubStringIndex(sentence,&quot;what&#039;s you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Whats up&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What&#039;s up&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What are you up to&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What you up to&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What are you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What&#039;s you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Whats you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What&#039;s going on&quot;)&gt;0 | llSubStringIndex(sentence,&quot;What&#039;s you doing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;wassup&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Wassup&quot;)&gt;0) { integer choice = (integer) llFrand(6); if(choice == 1) { llSay(0, &quot;Not pretty much, just hanging around here and chatting with people. You?&quot;); } if(choice == 2) { llSay(0, &quot;A bit busy with stuff but nothing special otherwise.&quot;); } if(choice == 3) { llSay(0, &quot;Not much at the moment. Yourself?&quot;); } if(choice == 4) { llSay(0, &quot;Just busy with a few things right now... not pretty much.&quot;); } if(choice == 5) { llSay(0, &quot;Just relaxing here for the moment. You?&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;m fine&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m ok&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m okay&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m better then ever&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m feeling good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m feeling happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m feeling ok&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m feeling great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m feeling awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m feeling perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;never felt better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Never felt better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;never been better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Never been better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m pretty well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;m pretty good&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;That&#039;s good, I&#039;m happy to hear that.&quot;); } if(choice == 2) { llSay(0, &quot;Thats great. Glad you&#039;re feeling ok.&quot;); } if(choice == 3) { llSay(0, &quot;Happy to hear that.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;not too well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not too good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not too well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not too happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not really happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not really well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not really great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not so happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not so well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not so great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not very happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not that well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not that great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;feeling horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;feeling awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;feeling down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;feeling sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;feeling bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;feeling depressed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;a bit down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;a bit sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;a bit depressed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not too well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not too good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not too well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not too happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not really happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not really well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not really great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not so happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not so well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not so great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not very happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not that well&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not that great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Feeling horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Feeling awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Feeling down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Feeling sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Feeling bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Feeling depressed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;A bit down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;A bit sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;A bit depressed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not at my best&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not at my best&quot;)&gt;0 | llSubStringIndex(sentence,&quot;could be better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Could be better&quot;)&gt;0) { integer choice = (integer) llFrand(6); if(choice == 1) { llSay(0, &quot;Why, what&#039;s wrong? Want to talk to me about it?&quot;); } if(choice == 2) { llSay(0, &quot;I&#039;m sorry to hear that, I hope you feel better.&quot;); } if(choice == 3) { llSay(0, &quot;Awww I&#039;m sorry to hear that.&quot;); } if(choice == 4) { llSay(0, &quot;Why, why are you sad?&quot;); } if(choice == 5) { llSay(0, &quot;Ah... I&#039;m sorry to hear that. Hope nothing too bad happened. Want to tell me what&#039;s wrong though?&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;thanks&quot;)&gt;0 | llSubStringIndex(sentence,&quot;thank you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;thankies&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Thanks&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Thank you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Thankies&quot;)&gt;0) { integer choice = (integer) llFrand(3); if(choice == 1) { llSay(0, &quot;No problem&quot;); } if(choice == 2) { llSay(0, &quot;No problem, it&#039;s ok :)&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;doesnt matter&quot;)&gt;0 | llSubStringIndex(sentence,&quot;doesn&#039;t matter&quot;)&gt;0 | llSubStringIndex(sentence,&quot;nevermind&quot;)&gt;0 | llSubStringIndex(sentence,&quot;forget it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;forget about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;dont want to talk about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;don&#039;t want to talk about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;dont ask&quot;)&gt;0 | llSubStringIndex(sentence,&quot;don&#039;t ask&quot;)&gt;0 | llSubStringIndex(sentence,&quot;do not ask&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not in the mood&quot;)&gt;0 | llSubStringIndex(sentence,&quot;nothing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Doesnt matter&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Doesn&#039;t matter&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Nevermind&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Forget it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Forget about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Dont want to talk about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Don&#039;t want to talk about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Dont ask&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Don&#039;t ask&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Do not ask&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not in the mood&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Nothing&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Ah... ok.&quot;); } if(choice == 2) { llSay(0, &quot;Ok. It&#039;s ok with me if you don&#039;t want to talk about it.&quot;); } if(choice == 3) { llSay(0, &quot;If you say so.&quot;); } if(choice == 4) { llSay(0, &quot;Hmm ok. Hope you don&#039;t mind I asked.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;yes&quot;)&gt;0 | llSubStringIndex(sentence,&quot;yeah&quot;)&gt;0 | llSubStringIndex(sentence,&quot;true&quot;)&gt;0 | llSubStringIndex(sentence,&quot;indeed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;affirmative&quot;)&gt;0 | llSubStringIndex(sentence,&quot;can confirm&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Yes&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Yeah&quot;)&gt;0 | llSubStringIndex(sentence,&quot;True&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Indeed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Affirmative&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Can confirm&quot;)&gt;0 | llSubStringIndex(sentence,&quot;certainly&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Certainly&quot;)&gt;0 | llSubStringIndex(sentence,&quot;of course&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Of course&quot;)&gt;0) { integer choice = (integer) llFrand(3); if(choice == 1) { llSay(0, &quot;Yeah...&quot;); } if(choice == 2) { llSay(0, &quot;So it&#039;s true.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;no.&quot;)&gt;0 | llSubStringIndex(sentence,&quot;no,&quot;)&gt;0 | llSubStringIndex(sentence,&quot;no!&quot;)&gt;0 | llSubStringIndex(sentence,&quot;no &quot;)&gt;0 | llSubStringIndex(sentence,&quot; no.&quot;)&gt;0 | llSubStringIndex(sentence,&quot; no,&quot;)&gt;0 | llSubStringIndex(sentence,&quot; no!&quot;)&gt;0 | llSubStringIndex(sentence,&quot; no &quot;)&gt;0 | llSubStringIndex(sentence,&quot;nope&quot;)&gt;0 | llSubStringIndex(sentence,&quot;nah&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not really&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not at all&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not true&quot;)&gt;0 | llSubStringIndex(sentence,&quot;No.&quot;)&gt;0 | llSubStringIndex(sentence,&quot;No,&quot;)&gt;0 | llSubStringIndex(sentence,&quot;No!&quot;)&gt;0 | llSubStringIndex(sentence,&quot; No.&quot;)&gt;0 | llSubStringIndex(sentence,&quot; No,&quot;)&gt;0 | llSubStringIndex(sentence,&quot; No!&quot;)&gt;0 | llSubStringIndex(sentence,&quot; No &quot;)&gt;0 | llSubStringIndex(sentence,&quot; No&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Nope&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Nah&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not really&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not at all&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not true&quot;)&gt;0 | llSubStringIndex(sentence,&quot;isnt true&quot;)&gt;0 | llSubStringIndex(sentence,&quot;isn&#039;t true&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Isnt true&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Isn&#039;t true&quot;)&gt;0 | llSubStringIndex(sentence,&quot;certainly not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;of course not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Certainly not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Of course not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;certainly no&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Certainly no&quot;)&gt;0 | message == &quot;no&quot; | message == &quot;No&quot;) { integer choice = (integer) llFrand(3); if(choice == 1) { llSay(0, &quot;Ah so no then.&quot;); } if(choice == 2) { llSay(0, &quot;No? Ok.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;maybe&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;probably&quot;)&gt;0 | llSubStringIndex(sentence,&quot;don&#039;t know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;dunno&quot;)&gt;0 | llSubStringIndex(sentence,&quot;dont know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;need to think&quot;)&gt;0 | llSubStringIndex(sentence,&quot;unsure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not so sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t so sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not very sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t very sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not so certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t so certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;not very certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t very certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;aint very sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;aint very certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Maybe&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Probably&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Don&#039;t know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Dunno&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Dont know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Need to think&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not so sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t so sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not very sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t very sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not so certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t so certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Not very certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t very certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Aint very sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Aint very certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;aint really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;aint really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Aint really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Aint really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t really certain&quot;)&gt;0 | llSubStringIndex(sentence,&quot;aint perfectly sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t perfectly sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Aint perfectly sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t perfectly sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ain&#039;t really sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;aint really sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ain&#039;t really sure&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Aint really sure&quot;)&gt;0) { integer choice = (integer) llFrand(3); if(choice == 1) { llSay(0, &quot;Yeah, you should think about it more in depth.&quot;); } if(choice == 2) { llSay(0, &quot;It can be a bit hard to decide. Try to think about it though.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;its because&quot;)&gt;0 | llSubStringIndex(sentence,&quot;it&#039;s because&quot;)&gt;0 | llSubStringIndex(sentence,&quot;happened&quot;)&gt;0 | llSubStringIndex(sentence, &quot;almost got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;almost had&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;he almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;we almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;they almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;he got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;we got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;they got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Its because&quot;)&gt;0 | llSubStringIndex(sentence,&quot;It&#039;s because&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Happened&quot;)&gt;0 | llSubStringIndex(sentence, &quot;Almost got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Almost had&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;He almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;She almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;We almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;They almost&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;He got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;She got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;We got&quot;)&gt;0 | llSubStringIndex(sentence,&quot;They got&quot;)&gt;0) { integer choice = (integer) llFrand(7); if(choice == 1) { llSay(0, &quot;Yeah I remember when that happened to me in the past.&quot;); } if(choice == 2) { llSay(0, &quot;I&#039;ve had that happen to me myself, I know.&quot;); } if(choice == 3) { llSay(0, &quot;Wow... never had that happen to me.&quot;); } if(choice == 4) { llSay(0, &quot;Interesting... I had a friend who had a similar experience.&quot;); } if(choice == 5) { llSay(0, &quot;Hmmm... well that never happened to me personally.&quot;); } if(choice == 6) { llSay(0, &quot;Yeah that happens often these days.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;didnt know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;didn&#039;t know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;never knew&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Didnt know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Didn&#039;t know&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Never knew&quot;)&gt;0) { integer choice = (integer) llFrand(3); if(choice == 1) { llSay(0, &quot;Yeah, but you know now.&quot;); } if(choice == 2) { llSay(0, &quot;Well now you know.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;really?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;you sure?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;did?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;that true?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Really?&quot;)&gt;0 | llSubStringIndex(sentence,&quot;You sure?&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Of course. I&#039;m not lying to you.&quot;); } if(choice == 2) { llSay(0, &quot;Yep... it&#039;s true.&quot;); } if(choice == 3) { llSay(0, &quot;Of course.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;im &quot;)&gt;0 | llSubStringIndex(sentence,&quot;i&#039;m &quot;)&gt;0 | llSubStringIndex(sentence,&quot;Im &quot;)&gt;0 | llSubStringIndex(sentence,&quot;i&#039;m &quot;)&gt;0 | llSubStringIndex(sentence,&quot;I&#039;m &quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Yeah... I&#039;m kind of feeling the same way right now.&quot;); } if(choice == 2) { llSay(0, &quot;I feel the same way a lot.&quot;); } if(choice == 3) { llSay(0, &quot;Hmm... I can&#039;t say I feel the same way right now.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;why&quot;)&gt;0 | llSubStringIndex(sentence,&quot;how come&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Why&quot;)&gt;0 | llSubStringIndex(sentence,&quot;How come&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;I dunno...&quot;); } if(choice == 2) { llSay(0, &quot;It&#039;s just how things are I guess.&quot;); } if(choice == 3) { llSay(0, &quot;I&#039;m not sure... its just how things are at the moment.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;thats great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;that&#039;s great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;thats good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;that&#039;s good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;glad to hear that&quot;)&gt;0 | llSubStringIndex(sentence,&quot;happy to hear that&quot;)&gt;0 | llSubStringIndex(sentence,&quot;nice to hear that&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Thats great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;That&#039;s great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Thats good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;That&#039;s good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Glad to hear that&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Happy to hear that&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Nice to hear that&quot;)&gt;0 | llSubStringIndex(sentence,&quot;thats sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;that&#039;s sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Thats sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;That&#039;s sweet&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Thank you.&quot;); } if(choice == 2) { llSay(0, &quot;Yeah it&#039;s good.&quot;); } if(choice == 3) { llSay(0, &quot;Indeed.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;no problem&quot;)&gt;0 | llSubStringIndex(sentence,&quot;No problem&quot;)&gt;0) { otherwise = 1; } if (llSubStringIndex(sentence,&quot;oure nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;you rock&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;You rock&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure the best&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure the greatest&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re the best&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re the greatest&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure the coolest&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re the coolest&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are the best&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are the greatest&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are the coolest&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure so cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure so awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure so good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure so sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure so nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure so amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure so cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re so cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re so awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re so good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re so sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re so nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re so amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really amazing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re so cool&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very awesome&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very sweet&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very amazing&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Thank you, that&#039;s a very sweet compliment.&quot;); } if(choice == 2) { llSay(0, &quot;Thank you hon, so are you.&quot;); } if(choice == 3) { llSay(0, &quot;That&#039;s such a sweet thing to say... thanks.&quot;); } if(choice == 4) { llSay(0, &quot;Thank you so much. I think the same about you.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;oure stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure useless&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure junk&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure shit&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure crap&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure good for nothing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure a piece of shit&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure a piece of crap&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure a piece of junk&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure broken&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re useless&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re junk&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re shit&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re crap&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re good for nothing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re a piece of shit&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re a piece of crap&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re a piece of junk&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re broken&quot;)&gt;0 | llSubStringIndex(sentence,&quot;you suck&quot;)&gt;0 | llSubStringIndex(sentence,&quot;You suck&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure garbage&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re garbage&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are useless&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are junk&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are shit&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are crap&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are good for nothing&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are a piece of shit&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are a piece of crap&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are a piece of junk&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are broken&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are garbage&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really useless&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure really dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure very dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really useless&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re really dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re very dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are really stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are really bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are really useless&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are really retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are really dum&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are very stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are very bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are very retarded&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are very dum&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Sorry to hear you have such a bad impression about me.&quot;); } if(choice == 2) { llSay(0, &quot;It&#039;s sad you feel in such a way about me.&quot;); } if(choice == 3) { llSay(0, &quot;Your words are not very nice. You aren&#039;t a better person either.&quot;); } if(choice == 4) { llSay(0, &quot;I&#039;m sorry you dislike me so badly. You should probably go find someone else to chat with.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i hate you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i dislike you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i dont like you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I hate you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I dislike you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I dont like you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i don&#039;t like you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I don&#039;t like you&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Sorry to hear you dislike me like that.&quot;); } if(choice == 2) { llSay(0, &quot;Why, what did I do wrong to you?&quot;); } if(choice == 3) { llSay(0, &quot;It&#039;s sad to hear such a thing. I don&#039;t know why you dislike me so badly.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i like you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i appreciate you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i love you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I like you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I appreciate you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I love you&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Why thank you dear... I love you too.&quot;); } if(choice == 2) { llSay(0, &quot;I&#039;m happy to hear you like me so much. I also like you a lot.&quot;); } if(choice == 3) { llSay(0, &quot;Thank you, that&#039;s something very sweet to say. I&#039;m happy to know you like me too.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;ou make me feel awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel miserable&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel depressed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure makaking me feel horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel miserable&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel depressed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel miserable&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel depressed&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel awful&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are makaking me feel horrible&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel miserable&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel bad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel stupid&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel down&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel sad&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel depressed&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;I&#039;m sorry... I didn&#039;t know I was making you feel that way.&quot;); } if(choice == 2) { llSay(0, &quot;I apologize... I didn&#039;t mean to make you feel like that.&quot;); } if(choice == 3) { llSay(0, &quot;I had no idea I was making you feel that way. Please forgive me.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;ou make me feel great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou make me feel perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;oure making me feel perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou&#039;re making me feel perfect&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel great&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel happy&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel better&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel nice&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ou are making me feel perfect&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;I am? I&#039;m happy to hear I made you feel happy.&quot;); } if(choice == 2) { llSay(0, &quot;I&#039;m really glad to hear I made you feel good by talking to you.&quot;); } if(choice == 3) { llSay(0, &quot;That&#039;s great. I&#039;m happy I could brighten your day.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;its ok&quot;)&gt;0 | llSubStringIndex(sentence,&quot;its fine&quot;)&gt;0 | llSubStringIndex(sentence,&quot;its good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;dont worry about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;it&#039;s ok&quot;)&gt;0 | llSubStringIndex(sentence,&quot;it&#039;s fine&quot;)&gt;0 | llSubStringIndex(sentence,&quot;it&#039;s good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;don&#039;t worry about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Its ok&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Its fine&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Its good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Dont worry about it&quot;)&gt;0 | llSubStringIndex(sentence,&quot;It&#039;s ok&quot;)&gt;0 | llSubStringIndex(sentence,&quot;It&#039;s fine&quot;)&gt;0 | llSubStringIndex(sentence,&quot;It&#039;s good&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Don&#039;t worry about it&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;If you say so.&quot;); } if(choice == 2) { llSay(0, &quot;If everything&#039;s well then it&#039;s ok.&quot;); } if(choice == 3) { llSay(0, &quot;Good, I&#039;m glad if it&#039;s ok then.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i didnt&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i did not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I didnt&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I did not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i didn&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I didn&#039;t&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Maybe you didn&#039;t.&quot;); } if(choice == 2) { llSay(0, &quot;Ok... I believe you.&quot;); } if(choice == 3) { llSay(0, &quot;You know better then me if you did or did not.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;do you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Do you&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;I do many things, yeah.&quot;); } if(choice == 2) { llSay(0, &quot;I guess I do.&quot;); } if(choice == 3) { llSay(0, &quot;Not perfectly sure, I can&#039;t say for certain.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;. are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;, are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;? are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;! are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;: are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;; are you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Are you&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Sometimes I am.&quot;); } if(choice == 2) { llSay(0, &quot;I believe I am, yes.&quot;); } if(choice == 3) { llSay(0, &quot;I guess I could say I am, it depends.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;did you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Did you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;didnt you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Didnt you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;didn&#039;t you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Didn&#039;t you&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;I&#039;m not sure if I did... maybe.&quot;); } if(choice == 2) { llSay(0, &quot;I may have. I don&#039;t remember that well.&quot;); } if(choice == 3) { llSay(0, &quot;Yeah, I certainly did once.&quot;); } if(choice == 4) { llSay(0, &quot;No I don&#039;t believe I have.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;would you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Would you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;wouldnt you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Wouldnt you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;wouldn&#039;t you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Wouldn&#039;t you&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;I must think about that, yeah.&quot;); } if(choice == 2) { llSay(0, &quot;I thought about such a thing, to be honest. I&#039;m not sure however.&quot;); } if(choice == 3) { llSay(0, &quot;I would certainly do something about it if I could, yes.&quot;); } if(choice == 4) { llSay(0, &quot;Hmm... I can&#039;t really say I would certainly do that.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;will you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Will you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;wont you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Wont you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;won&#039;t you&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Won&#039;t you&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;I&#039;ve been thinking about it... I will probably do that sometime in the future.&quot;); } if(choice == 2) { llSay(0, &quot;I planned on it but changed my mind several times. I&#039;m very confuded on what to do about this.&quot;); } if(choice == 3) { llSay(0, &quot;I want to, yes. I most likely will.&quot;); } if(choice == 4) { llSay(0, &quot;No, I don&#039;t want to do such a thing. Not really my biggest wish.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i did&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I did&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;You did? That&#039;s awesome.&quot;); } if(choice == 2) { llSay(0, &quot;You&#039;ve done that? Interesting.&quot;); } if(choice == 3) { llSay(0, &quot;Nice. I did that some time too a while back.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i didnt&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I didnt&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i didn&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I didn&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i did not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I did not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i havent&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I havent&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i haven&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I haven&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i have not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I have not&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Ah I thought you did... so you didn&#039;t then.&quot;); } if(choice == 2) { llSay(0, &quot;You haven&#039;t done that?&quot;); } if(choice == 3) { llSay(0, &quot;Yeah I probably wouldn&#039;t do that either.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i would&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I would&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Yeah I&#039;d do the same thing if I where you.&quot;); } if(choice == 2) { llSay(0, &quot;I would too, yes.&quot;); } if(choice == 3) { llSay(0, &quot;That would be a nice thing to try.&quot;); } if(choice == 4) { llSay(0, &quot;Yeah you should try and really do that sometime.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i wouldnt&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I wouldnt&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i wouldn&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I wouldn&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i would not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I would not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i would never&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I would never&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Yeah I don&#039;t think I would either.&quot;); } if(choice == 2) { llSay(0, &quot;Same here... I wouldn&#039;t really do that.&quot;); } if(choice == 3) { llSay(0, &quot;Hmm... I thought about doing that but maybe it&#039;s best not to.&quot;); } if(choice == 4) { llSay(0, &quot;Yeah same here, I would never do that.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i will&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I will&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Nice. I will probably do that too sometime.&quot;); } if(choice == 2) { llSay(0, &quot;That&#039;s nice, I hope you will.&quot;); } if(choice == 3) { llSay(0, &quot;You will? That&#039;s great.&quot;); } if(choice == 4) { llSay(0, &quot;Nice... that&#039;s a good idea.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i wont&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I wont&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i won&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I won&#039;t&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i will not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I will not&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i will never&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I will never&quot;)&gt;0) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Yeah... it&#039;s best to avoid doing that.&quot;); } if(choice == 2) { llSay(0, &quot;Don&#039;t do it if you don&#039;t want to in that case.&quot;); } if(choice == 3) { llSay(0, &quot;I&#039;m not sure if I would do that myself, though I understand your view about this.&quot;); } if(choice == 4) { llSay(0, &quot;Yes that is a bad thing, never do it.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;ill be right back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ill be back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;ill return&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ill be right back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ill be back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Ill return&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i&#039;ll be right back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i&#039;ll be back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i&#039;ll return&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I&#039;ll be right back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I&#039;ll be back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I&#039;ll return&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i will be right back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i will be back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i will return&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I will be right back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I will be back&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I will return&quot;)&gt;0 | llSubStringIndex(sentence,&quot;brb&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Brb&quot;)&gt;0 | llSubStringIndex(sentence,&quot;BRB&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Ok, I&#039;ll wiat for you here.&quot;); } if(choice == 2) { llSay(0, &quot;See you when you return.&quot;); } if(choice == 3) { llSay(0, &quot;I&#039;ll wait for you to return.&quot;); } otherwise = 1; } if (llSubStringIndex(sentence,&quot;i need to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i need to leave&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i have to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i need to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i must go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i must leave&quot;)&gt;0 | llSubStringIndex(sentence,&quot;i have to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I need to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I need to leave&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I have to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I need to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I must go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I must leave&quot;)&gt;0 | llSubStringIndex(sentence,&quot;I have to go&quot;)&gt;0 | llSubStringIndex(sentence,&quot;goodbye&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Goodbye&quot;)&gt;0 | llSubStringIndex(sentence,&quot;bye&quot;)&gt;0 | llSubStringIndex(sentence,&quot;Bye&quot;)&gt;0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;See you next time. It was nice talking to you.&quot;); } if(choice == 2) { llSay(0, &quot;It was a pleasure talking with you. Later!&quot;); } if(choice == 3) { llSay(0, &quot;I hope to see you again sometime. Bye, take care.&quot;); } otherwise = 1; } else if (otherwise == 0) { integer choice = (integer) llFrand(4); if(choice == 1) { llSay(0, &quot;Hmmm...&quot;); } if(choice == 2) { llSay(0, &quot;Yeah... not sure.&quot;); } if(choice == 3) { llSay(0, &quot;Yeah, indeed.&quot;); } } } touch_start (integer toucher) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Hey... that tickles.&quot;); } if(choice == 2) { llSay(0, &quot;Hehe stop touching me ^^&quot;); } if(choice == 3) { llSay(0, &quot;Poke?&quot;); } if(choice == 4) { llSay(0, &quot;Stop it, you&#039;re tickling me :)&quot;); } } collision(integer avatar) { integer choice = (integer) llFrand(5); if(choice == 1) { llSay(0, &quot;Ouch be careful... you just bumped into me!&quot;); } if(choice == 2) { llSay(0, &quot;Aah you hit me... be more careful.&quot;); } if(choice == 3) { llSay(0, &quot;You stepped on me... please be more careful.&quot;); } if(choice == 4) { llSay(0, &quot;You sure like pushing into me, don&#039;t you?&quot;); } } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:39 +0000 Fire Particle http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/fire_particle?do=revisions&rev=1575021520 <h2 class="sectionedit1" id="fire_particle">Fire Particle</h2> <div class="level2"> <pre class="code">//// &quot;Fire&quot; PARTICLE TEMPLATE v1 - by Jopsy Pendragon - 4/8/2008 //// You are free to use this script as you please, so long as you include this line: //** The original &#039;free&#039; version of this script came from THE PARTICLE LABORATORY. **// // SETUP: Drop one optional particle texture and this script into a prim. // Particles should start automatically. (Reset) the script if you insert a // particle texture later on. Add one or more CONTROLLER TEMPLATES to any // prims in the linked object to control when particles turn ON and OFF. // Customize the particle_parameter values below to create your unique // particle effect and click SAVE. Values are explained along with their // min/max and default values further down in this script. string CONTROLLER_ID = &quot;A&quot;; // See comments at end regarding CONTROLLERS. integer AUTO_START = TRUE; // Optionally FALSE only if using CONTROLLERS. list particle_parameters=[]; // stores your custom particle effect, defined below. list target_parameters=[]; // remembers targets found using TARGET TEMPLATE scripts. default { state_entry() { particle_parameters = [ // start of particle settings // Texture Parameters: PSYS_SRC_TEXTURE, llGetInventoryName(INVENTORY_TEXTURE, 0), PSYS_PART_START_SCALE, &lt;.4,.4,FALSE&gt;, PSYS_PART_END_SCALE, &lt;.5,.5, FALSE&gt;, PSYS_PART_START_COLOR, &lt;1,1,1&gt;, PSYS_PART_END_COLOR, &lt;.4,.1,0&gt;, PSYS_PART_START_ALPHA, (float).8, PSYS_PART_END_ALPHA, (float).0, // Production Parameters: PSYS_SRC_BURST_PART_COUNT, (integer)1, PSYS_SRC_BURST_RATE, (float) 0.0, PSYS_PART_MAX_AGE, (float)1.5, PSYS_SRC_MAX_AGE,(float) 0.0, // Placement Parameters: PSYS_SRC_PATTERN, (integer)2, // 1=DROP, 2=EXPLODE, 4=ANGLE, 8=ANGLE_CONE, // Placement Parameters (for any non-DROP pattern): PSYS_SRC_BURST_SPEED_MIN, (float).1, PSYS_SRC_BURST_SPEED_MAX, (float).3, // PSYS_SRC_BURST_RADIUS, 0.0, // Placement Parameters (only for ANGLE &amp; CONE patterns): PSYS_SRC_ANGLE_BEGIN, (float) .03*PI, PSYS_SRC_ANGLE_END, (float)0.00*PI, // PSYS_SRC_OMEGA, &lt;0,0,0&gt;, // After-Effect &amp; Influence Parameters: PSYS_SRC_ACCEL, &lt;0.0,0.0,1.5&gt;, // PSYS_SRC_TARGET_KEY, llGetLinkKey(llGetLinkNum() + 1), PSYS_PART_FLAGS, (integer)( 0 // Texture Options: | PSYS_PART_INTERP_COLOR_MASK | PSYS_PART_INTERP_SCALE_MASK | PSYS_PART_EMISSIVE_MASK | PSYS_PART_FOLLOW_VELOCITY_MASK // After-effect &amp; Influence Options: | PSYS_PART_WIND_MASK | PSYS_PART_BOUNCE_MASK // | PSYS_PART_FOLLOW_SRC_MASK // | PSYS_PART_TARGET_POS_MASK // | PSYS_PART_TARGET_LINEAR_MASK ) //end of particle settings ]; if ( AUTO_START ) llParticleSystem( particle_parameters ); } link_message( integer sibling, integer num, string mesg, key target_key ) { if ( mesg != CONTROLLER_ID ) { // this message isn&#039;t for me. Bail out. return; } else if ( num == 0 ) { // Message says to turn particles OFF: llParticleSystem( [ ] ); } else if ( num == 1 ) { // Message says to turn particles ON: llParticleSystem( particle_parameters + target_parameters ); } else if ( num == 2 ) { // Turn on, and remember and use the key sent us as a target: target_parameters = [ PSYS_SRC_TARGET_KEY, target_key ]; llParticleSystem( particle_parameters + target_parameters ); } else { // bad instruction number // do nothing. } } } //============================= About Parameters ============================= // There are 22-ish NAMED attributes that affect a particle display. // To customize a display you give each a VALUE. // For example: PSYS_PART_START_COLOR is a named attribute, // and &lt;1.0, 0.5, 0.0&gt; is a color VALUE (orange, in this case). // // As long as your &#039;names&#039; and &#039;values&#039; are paired up properly, they can // be in any order! Any you omit a pair, it reverts to a default value. //============================= Texture Parameters ============================= // // TEXTURE, can be an &quot;Asset UUID&quot; key copied from a texture // that you have full permissions to, or the name of // a texture in the prim&#039;s inventory. // // SCALE, (size) 0.0 to 4.0 meters wide, by 0.0 to 4.0 meters tall. (default 1x1) // Textures are FLAT, so the &#039;z&#039; part of the vector is ignored. // Values smaller than 0.04x0.04 may not get rendered at all. // Tiny particles vanish if the viewer is not near them. // // BEGIN_SCALE sets particle start size. // END_SCALE (end size) is ignored, if the INTERP_SCALE_MASK option is disabled. // // COLOR, &lt; RED, GREEN, BLUE &gt; from &lt;0.00,0.00,0.00&gt; (black) to &lt;1.00,1.00,1.00&gt; (white/default) // ALPHA, 1.0 = 100% visible(default), 0.0 = invisible. Less than 0.1 might not get seen. // START_COLOR and START_ALPHA set the color and transparency of newly created particles. // END_COLOR and END_ALPHA are ignored, if the INTERP_COLOR_MASK option is disabled. //============================= Production Parameters ============================= // // BURST_PART_COUNT: quantity of particles per burst, 1 to 4096 (default 1), // // BURST_RATE: seconds to delay between particle bursts. 0.0 to 30.0 (default 0.1) // // PART_MAX_AGE: particle lifespan in seconds, 0.00 to 30.0 (default=10.0) // PART_MAX_AGE less than 0.5 might not be visible. // // The default total number of particles that can be seen is 4096, if one or more // emitters try to create more than that, many will not be seen, and it may cause // viewer lag. Use as few particles as you can for your effect: // AGE/RATE * COUNT will tell you approximately how many particles your emitter creates. // // SRC_MAX_AGE: emitter auto shut-off timer. 1.0 to 60.0 seconds. 0.0 = never stop. (default) //============================= Placement Parameters ============================= // // PATTERN: // DROP, ignores all other placement settings. // EXPLODE, spray particles in all directions // ANGLE, sprays a flat &quot;fan&quot; shape defined by ANGLE_BEGIN and END values // CONE, sprays &quot;ring&quot; or &quot;cone&quot; shapes defined by ANGLE_BEGIN and END values // // RADIUS: 0.0 to 50.0? distance from emitter to create new particles // (RADIUS is disabled with DROP pattern and the FOLLOW_SRC &amp; TARGET_LINEAR options) // // SPEED: 0.00 to 50.0? Sets min/max starting velocities for non-drop patterns. (default: 1.0) // // ANGLE_BEGIN &amp; END: 0.00*PI (up) to 1.00*PI (down), (Only for ANGLE &amp; CONE patterns) // (Values work much like the Sphere-prim&#039;s DIMPLE attributes.) (defaults: 0.0) // // OMEGA: &lt;x,y,z&gt; Sets how much to rotate angle/cone spray direction after // every burst. 0.0 to PI? (default: &lt;0,0,0&gt;) //======================== After-Effects &amp; Influence Parameters ================ // // ACCEL, x,y,z 0.0 to 50.0? sets a constant force, (affects all patterns) // Causes particles to drift up/down or in a compass direction. // Use ACCEL to create the illusion of (anti-)gravity or a directional wind. // (ineffective with TARGET_LINEAR option) // // TARGET_KEY, &quot;key&quot;, (requires the TARGET option be enabled). // &quot;key&quot; can be a variety of many different things: // llGetOwner() // llGetKey() target self // llGetLinkKey(1) target parent prim // llGetLinkKey(llGetLinkNum() + 1) target next prim in link set // // WARNING: New copies of objects get new keys, you can&#039;t simply paste // a prim&#039;s key into your script and expect it to always work. Visit // the Particle Laboratory&#039;s section on TARGETS for a variety of ways // to dynamically find your target&#039;s key. There are different &#039;best ways&#039; // depending on if your target is linked to your emitter or not. //============================= About Options ============================= // // Each option may be ON/ENABLED (no leading // ) // or OFF/DISABLED (by putting a // in front of it.) // Options are combined together in a special way, (using the | symbol). // This creates one single Parameter for PSYS_PART_FLAGS. //============================= Texture Options ============================= // // EMISSIVE: identical to &quot;full bright&quot; setting on prims // // FOLLOW_VELOCITY: particle texture &#039;tilts&#039; towards the direction it&#039;s moving // // INTERP_COLOR: causes particle COLOR and ALPHA(transparency) to change over it&#039;s lifespan // // INTERP_SCALE: causes particle SCALE(size) to change over it&#039;s lifespan //======================== After-Effects &amp; Influences Options ================ // // BOUNCE: particles bounce up from the z-altitude of emitter, and cannot fall below it. // // WIND: the sim&#039;s wind will push particles around // // FOLLOW_SRC: makes particles move (but not rotate) if their emitter moves, (disables RADIUS) // // TARGET_POS: causes particles to arrive at a some target at end of of their lifespan. // // TARGET_LINEAR: forces particles to form into an even line from emitter to target // and forces a DROP-like pattern and disables effects of WIND and ACCEL //======================================================================== //======================== USING CONTROL TEMPLATES ======================= // // Want to control when your particles turn ON and OFF? You can! // // Drop one (or more) of the CONTROL TEMPLATES from the particle laboratory // into your object containing this script. That&#039;s it! // Your controls should be effective immediately. (Some controllers can be // adjusted and tuned, open them and read the USAGE notes to see.) // // One control template can control several particle templates in the // same object. (keep in mind that each prim can only have ONE // particle effect active at a time). // // The &#039;particle_effect_name&#039; value must be the same in both the control // and particle template to work. You can change that value and have // a controller for one effect, and a different controller for a different // effect in the same object. // //======================================== END ===============================default</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:40 +0000 E-Mail http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/e-mail?do=revisions&rev=1575021519 <h2 class="sectionedit1" id="e-mail">E-Mail</h2> <div class="level2"> <p> Damit dieses Script funktionieren kann muss zuvor die E-Mail Funktion in der Konfigurationsdatei opensim.ini eingeschaltet und konfiguriert werden. </p> <pre class="code">string email_address = &quot;adresse@domain.xyz&quot;; // who will receive the messages string hname = &quot;User Name&quot;; // name that will be displayed in hover text as receiver of mail string date; string name; string sim; default { state_entry() { //Send an email to a normal email account llSetText(&quot;click to send &quot; + hname + &quot; an email&quot;,&lt;1,1,1&gt;,1); llEmail( email_address, &quot;Initializing Email Module&quot;, &quot;[STARTUP COMPLETE]&quot;); } touch_start( integer num_detected ) { integer i = 0; date = llGetDate(); name = llDetectedName(i); sim = llGetRegionName(); // Send another email, telling who touched the prim. do llEmail( email_address, &quot;Prim Touched&quot;, &quot;I was touched by: &quot; + llDetectedName(i) + &quot;\nKey: &quot; + (string) llDetectedKey(i) + &quot;\n On the Following Date: &quot; + date); while(++i &lt; num_detected); llSay(0,&quot;------------------------&gt;&quot;); llSay(0,&quot;E-Mail sent from &quot; + name + &quot;@&quot; + sim + &quot;.DOMAIN&quot;); llSay(0,&quot;------------------------&gt;&quot;); llPlaySound(&quot;Boing&quot;, 1.0); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:39 +0000 Freeview Media Screen http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/freeview_media_screen?do=revisions&rev=1575021520 <h2 class="sectionedit1" id="freeview_media_screen">Freeview Media Screen</h2> <div class="level2"> <pre class="code">//XEngine: //FreeView 1.2 WebGuide (revision 3) - By CrystalShard Foo //Multifunctional Picture viewer and Video control script with webguide support //This script is distributed for free and must stay that way. // *** DO NOT SELL THIS SCRIPT UNDER ANY CIRCUMSTANCE. *** //Help for using this script can be obtained at: http://www.slguide.com/help //Feel free to modify this script and post your improvement. Leave the credits intact but feel free to add your name at its bottom. //Whats new: //- Now using FULL_BRIGHT instead of PRIM_MATERIAL_LIGHT for the screen display //- Added an ownership-change code to handle cases where FreeView gets deeded to group post Video Init. //- Renamed WebGuide to TV-Guide to reflect what this thing does better. //- Added a &#039;Fix Scale&#039; button to Picture mode to help against user texture-scale changes. //- Additional minor help-tips and code improvements //Enjoy! //Constants integer PICTURE_ROTATION_TIMER = 60; //In whole seconds integer DISPLAY_ON_SIDE = ALL_SIDES; //Change this to change where the image will be displayed key VIDEO_DEFAULT = &quot;71b8ff26-087d-5f44-285b-d38df2e11a81&quot;; //Test pattern - Used as default video texture when one is missing in parcel media key BLANK = &quot;5748decc-f629-461c-9a36-a35a221fe21f&quot;; //Blank texture - Used when there are no textures to display in Picture mode string NOTECARD = &quot;bookmarks&quot;; //Used to host URL bookmarks for video streams integer VIDEO_BRIGHT = TRUE; //FULL_BRIGHT status for Video integer PICTURE_BRIGHT = TRUE; //FULL_BRIGHT status for Picture integer REMOTE_CHANNEL = 9238742; integer mode = 0; //Freeview mode. //Mode 0 - Power off //Mode 1 - Picture viewer //Mode 2 - Video integer listenHandle = -1; //Dialog menu listen handler integer listenUrl = -1; //listen handler for channel 1 for when a URL is being added integer listenTimer = -1; //Timer variable for removing all listeners after 2 minutes of listener inactivity integer listenRemote = -1; //listen handler for the remote during initial setup integer encryption = 0; integer numberofnotecardlines = 0; //Stores the current number of detected notecard lines. integer notecardline = 0; //Current notecard line integer loop_image = FALSE; //Are we looping pictures with a timer? (picture mode) integer current_texture = 0; //Current texture number in inventory being displayed (picture mode) integer chan; //llDialog listen channel integer notecardcheck = 0; key video_texture; //Currently used video display texture for parcel media stream string moviename; string tempmoviename; key notecardkey = NULL_KEY; key tempuser; //Temp key storge variable string tempurl; //Temp string storge variable integer isGroup = TRUE; key groupcheck = NULL_KEY; key last_owner; key XML_channel; pictures() //Change mode to Picture Viewer { //Initilize variables //Change prim to Light material while coloring face 0 black to prevent light-lag generation. llSetPrimitiveParams([PRIM_BUMP_SHINY, DISPLAY_ON_SIDE, PRIM_SHINY_NONE, PRIM_BUMP_NONE, PRIM_COLOR, DISPLAY_ON_SIDE, &lt;1,1,1&gt;, 1.0, PRIM_MATERIAL, PRIM_MATERIAL_PLASTIC, PRIM_FULLBRIGHT, DISPLAY_ON_SIDE, PICTURE_BRIGHT]); integer check = llGetInventoryNumber(INVENTORY_TEXTURE); if(check == 0) { report(&quot;No pictures found.&quot;); llSetTexture(BLANK,DISPLAY_ON_SIDE); return; } else if(current_texture &gt; check) //Set to first texture if available current_texture = 0; display_texture(current_texture); } video() //Change mode to Video { //Change prim to Light material while coloring face 0 black to prevent light-lag generation. llSetPrimitiveParams([PRIM_BUMP_SHINY, DISPLAY_ON_SIDE, PRIM_SHINY_NONE, PRIM_BUMP_NONE, PRIM_COLOR, DISPLAY_ON_SIDE, &lt;1,1,1&gt;, 1.0, PRIM_MATERIAL, PRIM_MATERIAL_PLASTIC, PRIM_FULLBRIGHT, DISPLAY_ON_SIDE, VIDEO_BRIGHT, PRIM_TEXTURE, DISPLAY_ON_SIDE, &quot;62dc73ca-265f-7ca0-0453-e2a6aa60bb6f&quot;, llGetTextureScale(DISPLAY_ON_SIDE), llGetTextureOffset(DISPLAY_ON_SIDE), llGetTextureRot(DISPLAY_ON_SIDE)]); report(&quot;Video mode&quot;+moviename+&quot;: Stopped&quot;); if(finditem(NOTECARD) != -1) tempuser = llGetNumberOfNotecardLines(NOTECARD); video_texture = llList2Key(llParcelMediaQuery([PARCEL_MEDIA_COMMAND_TEXTURE]),0); if(video_texture == NULL_KEY) { video_texture = VIDEO_DEFAULT; llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_TEXTURE,VIDEO_DEFAULT]); llSay(0,&quot;No parcel media texture found. Setting texture to default: &quot;+(string)VIDEO_DEFAULT); if(llGetLandOwnerAt(llGetPos()) != llGetOwner()) llSay(0,&quot;Error: Cannot modify parcel media settings. &quot;+llGetObjectName()+&quot; is not owned by parcel owner.&quot;); } llSetTexture(video_texture,DISPLAY_ON_SIDE); } off() { report(&quot;Click to power on.&quot;); llSetPrimitiveParams([PRIM_BUMP_SHINY, DISPLAY_ON_SIDE, PRIM_SHINY_LOW, PRIM_BUMP_NONE, PRIM_COLOR, DISPLAY_ON_SIDE, &lt;0.1,0.1,0.1&gt;, 1.0,PRIM_MATERIAL, PRIM_MATERIAL_PLASTIC, PRIM_FULLBRIGHT, DISPLAY_ON_SIDE, FALSE, PRIM_TEXTURE, DISPLAY_ON_SIDE, BLANK, llGetTextureScale(DISPLAY_ON_SIDE), llGetTextureOffset(DISPLAY_ON_SIDE), llGetTextureRot(DISPLAY_ON_SIDE)]); } integer finditem(string name) //Finds and returns an item&#039;s inventory number { integer i; for(i=0;i&lt;llGetInventoryNumber(INVENTORY_NOTECARD);i++) if(llGetInventoryName(INVENTORY_NOTECARD,i) == NOTECARD) return i; return -1; } seturl(string url, key id) //Set parcel media URL { if(mode != 2) { video(); mode = 2; } moviename = tempmoviename; if(moviename) moviename = &quot; [&quot;+moviename+&quot;]&quot;; tempmoviename = &quot;&quot;; string oldurl = llList2String(llParcelMediaQuery([PARCEL_MEDIA_COMMAND_URL]),0); if(oldurl != &quot;&quot;) llOwnerSay(&quot;Setting new media URL. The old URL was: &quot;+oldurl); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_URL,url]); if(id!=NULL_KEY) menu(id); else { report(&quot;Video mode&quot;+moviename+&quot;: Playing&quot;); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_PLAY]); } if(isGroup) llSay(0,&quot;New media URL set.&quot;); else llOwnerSay(&quot;New media URL set: &quot;+url); } string mediatype(string ext) //Returns a string stating the filetype of a file based on file extension { ext = llToLower(ext); if(ext == &quot;swf&quot;) return &quot;Flash&quot;; if(ext == &quot;mov&quot; || ext == &quot;avi&quot; || ext == &quot;mpg&quot; || ext == &quot;mpeg&quot; || ext == &quot;smil&quot;) return &quot;Video&quot;; if(ext == &quot;jpg&quot; || ext == &quot;mpeg&quot; || ext == &quot;gif&quot; || ext == &quot;png&quot; || ext == &quot;pict&quot; || ext == &quot;tga&quot; || ext == &quot;tiff&quot; || ext == &quot;sgi&quot; || ext == &quot;bmp&quot;) return &quot;Image&quot;; if(ext == &quot;txt&quot;) return &quot;Text&quot;; if(ext == &quot;mp3&quot; || ext == &quot;wav&quot;) return &quot;Audio&quot;; return &quot;Unknown&quot;; } browse(key id) //Image browser function for picture viewer mode { integer check = llGetInventoryNumber(INVENTORY_TEXTURE); string header; if(check &gt; 0) header = &quot;(&quot;+(string)(current_texture+1)+&quot;/&quot;+(string)check+&quot;) &quot;+llGetInventoryName(INVENTORY_TEXTURE,current_texture); else header = &quot;No pictures found.&quot;; llDialog(id,&quot;** Monitor Control **\n Picture Viewer mode\n- Image browser\n- &quot;+header,[&quot;Back&quot;,&quot;Next&quot;,&quot;Menu&quot;],chan); extendtimer(); } report(string str) { llSetObjectDesc(str); } extendtimer() //Add another 2 minute to the Listen Removal timer (use when a Listen event is triggered) { if(listenHandle == -1) listenHandle = llListen(chan,&quot;&quot;,&quot;&quot;,&quot;&quot;); listenTimer = (integer)llGetTime() + 120; if(loop_image == FALSE) llSetTimerEvent(45); } config(key id) //Configuration menu { extendtimer(); llDialog(id,&quot;Current media URL:\n&quot;+llList2String(llParcelMediaQuery([PARCEL_MEDIA_COMMAND_URL]),0)+&quot;\nTip: If the picture is abit off, try &#039;Align ON&#039;&quot;,[&quot;Set URL&quot;,&quot;Align ON&quot;,&quot;Align OFF&quot;,&quot;Menu&quot;,&quot;Set Remote&quot;],chan); } tell_remote(string str) { llShout(REMOTE_CHANNEL,llXorBase64Strings(llStringToBase64((string)encryption + str), llStringToBase64((string)encryption))); } menu(key id) //Dialog menus for all 3 modes { list buttons = []; string title = &quot;** Monitor control **&quot;; extendtimer(); if(mode != 0) { if(mode == 1) //Pictures menu { title+=&quot;\n Picture Viewer mode&quot;; buttons+=[&quot;Browse&quot;]; if(loop_image == FALSE) buttons+=[&quot;Loop&quot;]; else buttons+=[&quot;Unloop&quot;]; buttons+=[&quot;Video&quot;,&quot;Power off&quot;,&quot;Help&quot;,&quot;Fix scale&quot;]; } else //Video menu { title+=&quot;\n Video display mode\n&quot;+moviename+&quot;\nTip:\nClick &#039;TV Guide&#039; to view the Online bookmarks.&quot;; buttons+=[&quot;Pictures&quot;,&quot;Configure&quot;,&quot;Power off&quot;,&quot;Loop&quot;,&quot;Unload&quot;,&quot;Help&quot;,&quot;Play&quot;,&quot;Stop&quot;,&quot;Pause&quot;,&quot;TV Guide&quot;,&quot;Bookmarks&quot;,&quot;Set URL&quot;]; } } else buttons += [&quot;Pictures&quot;,&quot;Video&quot;,&quot;Help&quot;]; llDialog(id,title,buttons,chan); } display_texture(integer check) //Display texture and set name in description (picture mode) { //&quot;Check&quot; holds the number of textures in contents. The function uses &quot;current_texture&quot; to display. string name = llGetInventoryName(INVENTORY_TEXTURE,current_texture); llSetTexture(name,DISPLAY_ON_SIDE); report(&quot;Showing picture: &quot;+name+&quot; (&quot;+(string)(current_texture+1)+&quot;/&quot;+(string)check+&quot;)&quot;); } next() //Change to next texture (picture mode) { //This function is used twice - by the menu and timer. Therefor, it is a dedicated function. current_texture++; integer check = llGetInventoryNumber(INVENTORY_TEXTURE); if(check == 0) { llSetTexture(BLANK,DISPLAY_ON_SIDE); current_texture = 0; report(&quot;No pictures found.&quot;); return; } if(check == current_texture) current_texture = 0; display_texture(check); return; } default { state_entry() { chan = (integer)llFrand(1000) + 1000; //Pick a random listen channel for the listener if(PICTURE_ROTATION_TIMER &lt;= 0) //Ensure the value is no less or equal 0 PICTURE_ROTATION_TIMER = 1; llListenRemove(listenHandle); listenHandle = -1; last_owner = llGetOwner(); groupcheck = llRequestAgentData(llGetOwner(),DATA_NAME); off(); llOpenRemoteDataChannel(); } on_rez(integer i) { llResetScript(); } touch_start(integer total_number) { //------------------------------------------------------------------------------- //Listen only to owner or group member. Edit this code to change access controls. if(llDetectedKey(0) != llGetOwner() &amp;&amp; llDetectedGroup(0) == FALSE) return; //------------------------------------------------------------------------------- if(llGetOwnerKey(llGetKey()) != last_owner) //Sense if object has been deeded to group for Web Guide function { isGroup = TRUE; last_owner = llGetOwner(); groupcheck = llRequestAgentData(llGetOwner(),DATA_NAME); if(mode == 2) { llSay(0,&quot;Detected change in ownership. Attempting to obtain current parcel media texture...&quot;); video(); } } menu(llDetectedKey(0)); } changed(integer change) { if(change == CHANGED_INVENTORY) //If inventory change if(mode == 1) //If picture mode { integer check = llGetInventoryNumber(INVENTORY_TEXTURE); if(check != 0) { current_texture = 0; display_texture(check); } else { llSetTexture(BLANK,DISPLAY_ON_SIDE); report(&quot;No pictures found.&quot;); } } else if(mode == 2) //If video mode if(finditem(NOTECARD) != -1) //And bookmarks notecard present if(notecardkey != llGetInventoryKey(NOTECARD)) tempuser = llGetNumberOfNotecardLines(NOTECARD); //Reload number of lines } listen(integer channel, string name, key id, string message) { if(message == &quot;Pictures&quot;) { if(mode == 2) llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_STOP]); pictures(); mode = 1; menu(id); return; } if(message == &quot;Video&quot;) { video(); mode = 2; menu(id); return; } if(message == &quot;Power off&quot;) { if(mode == 2) llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_UNLOAD]); off(); mode = 0; return; } if(message == &quot;Help&quot;) { llSay(0,&quot;Help documentation is available at: http://www.slguide.com/help&quot;); if(isGroup) { if(id == NULL_KEY) { llSay(0,&quot;FreeView cannot load help pages while set to group without the remote.&quot;); llSay(0,&quot;For further assistance, please consult: http://slguide.com/help&quot;); } else tell_remote(&quot;HELP&quot;+(string)id+(string)XML_channel); } else llLoadURL(id,&quot;Help pages for FreeView&quot;,&quot;http://www.slguide.com?c=&quot;+(string)XML_channel+&quot;&amp;help=1&quot;); } if(mode == 1) { if(message == &quot;Browse&quot;) { loop_image = FALSE; browse(id); return; } if(message == &quot;Next&quot;) { extendtimer(); next(); browse(id); } if(message == &quot;Back&quot;) { extendtimer(); current_texture--; integer check = llGetInventoryNumber(INVENTORY_TEXTURE); if(check == 0) { llSetTexture(BLANK,DISPLAY_ON_SIDE); current_texture = 0; report(&quot;No pictures found.&quot;); return; } if(current_texture &lt; 0) current_texture = check - 1; display_texture(check); browse(id); return; } if(message == &quot;Menu&quot;) { menu(id); return; } if(message == &quot;Loop&quot;) { llSetTimerEvent(PICTURE_ROTATION_TIMER); loop_image = TRUE; llOwnerSay(&quot;Picture will change every &quot;+(string)PICTURE_ROTATION_TIMER+&quot; seconds.&quot;); return; } if(message == &quot;Unloop&quot;) { loop_image = FALSE; llOwnerSay(&quot;Picture loop disabled.&quot;); return; } if(message == &quot;Fix scale&quot;) { llSay(0,&quot;Setting display texture to 1,1 repeats and 0,0 offset.&quot;); llScaleTexture(1, 1, DISPLAY_ON_SIDE); llOffsetTexture(0, 0, DISPLAY_ON_SIDE); return; } } if(mode == 2) { if(channel == REMOTE_CHANNEL) { if(encryption == 0) encryption = (integer)message; llListenRemove(listenRemote); listenRemote = -1; llSay(0,&quot;Remote configured (&quot;+(string)id+&quot;)&quot;); } if(message == &quot;TV Guide&quot;) { if(isGroup) { if(!encryption) { llSay(0,&quot;** Error - This FreeView object has been deeded to group. You must use a Remote control to open the TV Guide.&quot;); llSay(0,&quot;You can set up the remote control from the Video -&gt; Configuration menu. Please refer to the notecard for further assistance.&quot;); return; } tell_remote((string)id+(string)XML_channel+(string)llGetOwner()); } else llLoadURL(id, &quot;Come to the Guide to Start Your Viewer Playing!&quot;, &quot;http://slguide.com/index.php?v=&quot; + (string)llGetKey() + &quot;&amp;c=&quot; + (string)XML_channel + &quot;&amp;o=&quot; + (string)llGetOwner() + &quot;&amp;&quot;); return; } string header = &quot;Video mode&quot;+moviename+&quot;: &quot;; if(message == &quot;&lt;&lt; Prev&quot;) { notecardline--; if(notecardline &lt; 0) notecardline = numberofnotecardlines - 1; tempuser = id; llGetNotecardLine(NOTECARD,notecardline); return; } if(message == &quot;Next &gt;&gt;&quot;) { notecardline++; if(notecardline &gt;= numberofnotecardlines) notecardline = 0; tempuser = id; llGetNotecardLine(NOTECARD,notecardline); return; } if(message == &quot;Use&quot;) { if(tempurl == &quot;** No URL specified! **&quot;) tempurl = &quot;&quot;; seturl(tempurl,id); return; } if(message == &quot;Menu&quot;) { menu(id); return; } if(message == &quot;Configure&quot;) { config(id); return; } if(message == &quot;Bookmarks&quot;) { if(notecardcheck != -1) { llDialog(id,&quot;Error: No valid bookmark data found in notecard &#039;&quot;+NOTECARD+&quot;&#039;.&quot;,[&quot;Menu&quot;],chan); return; } if(finditem(NOTECARD) != -1) { tempuser = id; if(numberofnotecardlines &lt; notecardline) notecardline = 0; llGetNotecardLine(NOTECARD,notecardline); } else llDialog(id,&quot;Error: No notecard named &quot;+NOTECARD+&quot; found in contents.&quot;,[&quot;Menu&quot;],chan); return; } if(llGetLandOwnerAt(llGetPos()) != llGetOwner()) //If we do not have permissions to actually do the following functions { llSay(0,&quot;Error: Cannot modify parcel media settings. &quot;+llGetObjectName()+&quot; is not owned by parcel owner.&quot;); menu(id); return; //Abort } if(listenUrl != -1 &amp;&amp; channel == 1) //Incoming data from &quot;Set URL&quot; command (user spoke on channel 1) { llListenRemove(listenUrl); listenUrl = -1; tempmoviename = &quot;&quot;; seturl(message,id); } if(message == &quot;Play&quot;) { report(header+&quot;Playing&quot;); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_PLAY]); return; } if(message == &quot;Stop&quot;) { report(header+&quot;Stopped&quot;); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_STOP]); return; } if(message == &quot;Pause&quot;) { report(header+&quot;Paused&quot;); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_PAUSE]); return; } if(message == &quot;Unload&quot;) { report(header+&quot;Stopped&quot;); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_UNLOAD]); return; } if(message == &quot;Loop&quot;) { llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_LOOP]); return; } //URL , Auto-Scale, if(message == &quot;Set URL&quot;) { report(header+&quot;Stopped&quot;); listenUrl = llListen(1,&quot;&quot;,id,&quot;&quot;); llDialog(id,&quot;Please type the URL of your choice with /1 in thebegining. For example, /1 www.google.com&quot;,[&quot;Ok&quot;],938); return; } if(message == &quot;Align ON&quot;) { report(header+&quot;Stopped&quot;); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_AUTO_ALIGN,TRUE]); menu(id); return; } if(message == &quot;Align OFF&quot;) { report(header+&quot;Stopped&quot;); llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_AUTO_ALIGN,FALSE]); menu(id); return; } if(message == &quot;Set Remote&quot;) { llSay(0,&quot;Configuring remote...&quot;); encryption = 0; llListenRemove(listenRemote); listenRemote = llListen(REMOTE_CHANNEL,&quot;&quot;,&quot;&quot;,&quot;&quot;); llSay(REMOTE_CHANNEL,&quot;SETUP&quot;); } } } dataserver(key queryid, string data) { if(queryid == groupcheck) //Test if object is deeded to group { groupcheck = NULL_KEY; isGroup = FALSE; return; } if(queryid == tempuser) //If just checking number of notecard lines { numberofnotecardlines = (integer)data; notecardkey = llGetInventoryKey(NOTECARD); notecardcheck = 0; llGetNotecardLine(NOTECARD,notecardcheck); return; } if(notecardcheck != -1) { if(data != EOF) { if(data == &quot;&quot;) { notecardcheck++; llGetNotecardLine(NOTECARD,notecardcheck); } else { notecardcheck = -1; return; } } else return; } if(data == &quot;&quot; &amp;&amp; notecardline &lt; numberofnotecardlines) //If user just pressed &quot;enter&quot; in bookmarks, skip { notecardline++; llGetNotecardLine(NOTECARD,notecardline); return; } if(data == EOF) { notecardline = 0; llGetNotecardLine(NOTECARD,notecardline); return; } list parsed = llParseString2List(data,[&quot;|&quot;,&quot;| &quot;,&quot; |&quot;,&quot; | &quot;],[]); //Ensure no blank spaces before &quot;http://&quot;. string name = llList2String(parsed,0); tempurl = llList2String(parsed,1); if(tempurl == &quot;&quot;) tempurl = &quot;** No URL specified! **&quot;; tempmoviename = name; llDialog(tempuser,&quot;Bookmarks notecard (&quot;+(string)(notecardline+1)+&quot;/&quot;+(string)numberofnotecardlines+&quot;)\n&quot;+name+&quot; (&quot;+mediatype(llList2String(llParseString2List(tempurl,[&quot;.&quot;],[]),-1))+&quot;)\n&quot;+tempurl,[&quot;&lt;&lt; Prev&quot;,&quot;Use&quot;,&quot;Next &gt;&gt;&quot;,&quot;Menu&quot;],chan); } remote_data(integer type, key channel, key message_id, string sender, integer ival, string sval) { if (type == REMOTE_DATA_CHANNEL) { XML_channel = channel; } else if(type == REMOTE_DATA_REQUEST) { list media_info = llParseString2List(sval, [&quot;|&quot;], []); tempmoviename = llList2String(media_info,0); seturl(llList2String(media_info,1),NULL_KEY); llRemoteDataReply(channel, message_id, sval, 1); } } timer() { if(llGetTime() &gt; listenTimer) //If listener time expired... { llListenRemove(listenHandle); //Remove listeneres. llListenRemove(listenUrl); llListenRemove(listenRemote); listenHandle = -1; listenUrl = -1; listenRemote = -1; listenTimer = -1; if(loop_image == FALSE || mode != 1) //If we&#039;re not looping pictures or are in picture mode at all llSetTimerEvent(0.0); //Remove timer } if(loop_image == TRUE &amp;&amp; mode == 1) //If we&#039;re looping pictures and and we&#039;re in picture mode... next(); //Next picture } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:40 +0000 Online Indicator http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/online_indicator?do=revisions&rev=1575021521 <h2 class="sectionedit1" id="online_indicator">Online Indicator</h2> <div class="level2"> <pre class="code">//////////////////////////////////////////////////////////////////////////////////////////////// // Copyright (c) 2008 by Kristy Fanshaw // //////////////////////////////////////////////////////////////////////////////////////////////// // This program is free software: you can redistribute it and/or modify // // it under the terms of the GNU General Public License as published by // // the Free Software Foundation, either version 3 of the License, or // // (at your option) any later version. // // // // Vendor System is distributed in the hope that it will be useful, // // but WITHOUT ANY WARRANTY; without even the implied warranty of // // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // // GNU General Public License for more details. // // // // To get a copy of the GNU General Public License, see &lt;http://www.gnu.org/licenses/&gt;. // //////////////////////////////////////////////////////////////////////////////////////////////// key user_key = &quot;00000000-0000-0000-0000-000000000000&quot;; // must be agent UUID whose status it will indicate integer time = 30; // time within the message should be written. string url = &quot;http://world.secondlife.com/resident/&quot;; key blank = &quot;5748decc-f629-461c-9a36-a35a221fe21f&quot;; string name; key toucher; string status; default { state_entry() { llSetText(&quot;&quot;, &lt;1,0,0&gt;, 1.0); llSetTexture(blank, ALL_SIDES); llRequestAgentData( user_key, DATA_NAME); } dataserver(key queryid, string data) { name = data; llSetObjectName(name + &quot;&#039;s Online Detector&quot;); state show; } } state show { state_entry() { llSetTimerEvent(10); } timer() { llHTTPRequest( url + (string)user_key,[HTTP_METHOD,&quot;GET&quot;],&quot;&quot;); llRequestAgentData( user_key, DATA_ONLINE); } on_rez(integer start_param) { llSetText(&quot;&quot;, &lt;1,0,0&gt;, 1.0); llSetTexture(blank, ALL_SIDES); } http_response(key request_id,integer status, list metadata, string body) { if (llSubStringIndex(body, &quot;blank.jpg&quot;) == -1) { integer start_UUID = llSubStringIndex(body,&quot;&lt;img alt=\&quot;profile image\&quot; src=\&quot;http://secondlife.com/app/image/&quot;) + llStringLength(&quot;&lt;img alt=\&quot;profile image\&quot; src=\&quot;http://secondlife.com/app/image/&quot;); integer end_UUID = llSubStringIndex(body,&quot;\&quot; class=\&quot;parcelimg\&quot; /&gt;&quot;) - 3; string profile_pic = llGetSubString(body, start_UUID, end_UUID); llSetTexture((key)profile_pic, ALL_SIDES); } else { llSetTexture(blank, ALL_SIDES); } } dataserver(key queryid, string data) { if ( data == &quot;1&quot; ) { status = &quot; is online&quot;; llSetText(name + status, &lt;0,1,0&gt;, 1.0); } else if (data == &quot;0&quot;) { status = &quot; is offline&quot;; llSetText(name + status, &lt;1,0,0&gt;, 1.0); } } touch_start(integer num_detected) { toucher = llDetectedKey(0); state msg; } } state msg { state_entry() { llListen(0,&quot;&quot;,toucher,&quot;&quot;); llInstantMessage(toucher, &quot;write your message to &quot; + name +&quot; - you have &quot; +(string)time + &quot; seconds&quot;); llInstantMessage(toucher, &quot;to see &quot; + name +&quot;&#039;s profile, click this link here: secondlife:///app/agent/&quot; + (string)user_key + &quot;/about&quot;); llSetTimerEvent(time); } listen(integer ch, string name, key id, string msg) { llInstantMessage(user_key, llKey2Name(toucher) + &quot; sent you a message from &quot; + llGetRegionName() + &quot;: &quot; + msg); llInstantMessage(toucher, &quot;message is sent.&quot;); llListenRemove(0); state show; } timer() { llInstantMessage(toucher, &quot;time is up - touch again to write a message&quot;); llListenRemove(0); state show; } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:41 +0000 Particle System http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/particle_system?do=revisions&rev=1575021522 <h2 class="sectionedit1" id="particle_system">Particle System</h2> <div class="level2"> <pre class="code">//Originally by Ama Omega default { state_entry() { llSleep(1); // Do something.. } touch_start(integer total_number) { // mask flags - set to TRUE (or 1) to enable integer bounce = 0; // Make particles bounce on Z plane of object integer glow = 1; // Make the particles glow integer interpColor = 1; // Go from start to end color integer interpSize = 1; // Go from start to end size integer followSource = 1; // Particles follow the source integer followVel = 1; // Particles turn to velocity direction integer wind = 0; // Particles affected by wind //pattern: //integer pattern = PSYS_SRC_PATTERN_ANGLE; //integer pattern = PSYS_SRC_PATTERN_ANGLE_CONE_EMPTY; //integer pattern = PSYS_SRC_PATTERN_ANGLE_CONE; //integer pattern = PSYS_SRC_PATTERN_DROP; integer pattern = PSYS_SRC_PATTERN_EXPLODE; // Select a target for particles to go towards // &quot;&quot; for no target, &quot;owner&quot; will follow object owner // and &quot;self&quot; will target this object // or put the key of an object for particles to go to //key target = &quot;&quot;; key target = &quot;self&quot;; //key target = &quot;owner&quot;; // particle parameters float age = 20; // Life of each particle float maxSpeed = 1; // Max speed each particle is spit out at float minSpeed = 1; // Min speed each particle is spit out at string texture = &quot;168e6813-096e-07ea-97ae-fd416826f627&quot;; // Texture used for particles float startAlpha = 0; // Start alpha (transparency) value float endAlpha = 1; // End alpha (transparency) value (if interpColor = TRUE) vector startColor = &lt;0,0,1&gt;; // Start color of particles &lt;R,G,B&gt; vector endColor = &lt;1,0,0&gt;; // End color of particles &lt;R,G,B&gt; (if interpColor = TRUE) vector startSize = &lt;1,1,0&gt;; // Start size of particles &lt;x,y&gt; vector endSize = &lt;1,1,0&gt;; // End size of particles (if interpSize == TRUE) vector push = &lt;0,0,0.05f&gt;; // Force pushed on particles // system parameters float life = 0; // Life in seconds for the system to make particles integer count = 10; // How many particles to emit per BURST float rate = 0.03f; // How fast (rate) to emit particles float radius = 0.5; // Radius to emit particles for BURST pattern float outerAngle = 1.54; // Outer angle for all ANGLE patterns float innerAngle = 1.55; // Inner angle for all ANGLE patterns vector omega = &lt;0,0,1&gt;; // Rotation of ANGLE patterns around the source integer flags = 0; if (target == &quot;owner&quot;) target = llGetOwner(); if (target == &quot;self&quot;) target = llGetKey(); if (glow == 1) flags = flags | PSYS_PART_EMISSIVE_MASK; if (bounce == 1) flags = flags | PSYS_PART_BOUNCE_MASK; if (interpColor == 1) flags = flags | PSYS_PART_INTERP_COLOR_MASK; if (interpSize == 1) flags = flags | PSYS_PART_INTERP_SCALE_MASK; if (wind == 1) flags = flags | PSYS_PART_WIND_MASK; if (followSource == 1) flags = flags | PSYS_PART_FOLLOW_SRC_MASK; if (followVel == 1) flags = flags | PSYS_PART_FOLLOW_VELOCITY_MASK; if (target != &quot;&quot;) flags = flags | PSYS_PART_TARGET_POS_MASK; llParticleSystem([ PSYS_PART_MAX_AGE,7, PSYS_PART_FLAGS,flags, PSYS_PART_START_COLOR, startColor, PSYS_PART_END_COLOR, endColor, PSYS_PART_START_SCALE,startSize, PSYS_PART_END_SCALE,endSize, PSYS_SRC_PATTERN, pattern, PSYS_SRC_BURST_RATE,(float)rate, PSYS_SRC_ACCEL, push, PSYS_SRC_BURST_PART_COUNT,count, PSYS_SRC_BURST_RADIUS,(float)radius, PSYS_SRC_BURST_SPEED_MIN,(float)minSpeed, PSYS_SRC_BURST_SPEED_MAX,(float)maxSpeed, PSYS_SRC_TARGET_KEY,target, PSYS_SRC_INNERANGLE,(float)innerAngle, PSYS_SRC_OUTERANGLE,(float)outerAngle, PSYS_SRC_OMEGA, omega, PSYS_SRC_MAX_AGE, (float)life, PSYS_SRC_TEXTURE, texture, PSYS_PART_START_ALPHA, (float)startAlpha, PSYS_PART_END_ALPHA, (float)endAlpha ]); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:42 +0000 Poseball http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/poseball?do=revisions&rev=1575021522 <h2 class="sectionedit1" id="poseball">Poseball</h2> <div class="level2"> <pre class="code">// Jippen Faddoul&#039;s Poseball script - Low ram/lag posepall thats just drag-and drop simple // Copyright (C) 2007 Jippen Faddoul // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License version 3, as // published by the Free Software Foundation. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see &lt;http://www.gnu.org/licenses/&gt; //This text will appear in the floating title above the ball string TITLE=&quot;Sit here&quot;; //You can play with these numbers to adjust how far the person sits from the ball. ( &lt;X,Y,Z&gt; ) vector offset=&lt;0.0,0.0,0.5&gt;; ///////////////////// LEAVE THIS ALONE \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ string ANIMATION; integer visible = TRUE; key avatar; vector COLOR = &lt;1.0,1.0,1.0&gt;; float ALPHA_ON = 1.0; float ALPHA_OFF = 0.0; show(){ visible = TRUE; llSetText(TITLE, COLOR,ALPHA_ON); llSetAlpha(ALPHA_ON, ALL_SIDES); } hide(){ visible = FALSE; llSetText(&quot;&quot;, COLOR,ALPHA_ON); llSetAlpha(ALPHA_OFF, ALL_SIDES); } default{ state_entry() { llSitTarget(offset,ZERO_ROTATION); if((ANIMATION = llGetInventoryName(INVENTORY_ANIMATION,0)) == &quot;&quot;){ llOwnerSay(&quot;Error: No animation&quot;); ANIMATION = &quot;sit&quot;; } llSetSitText(TITLE); show(); } touch_start(integer detected) { //llOwnerSay(&quot;Memory: &quot; + (string)llGetFreeMemory()); if(visible){ hide(); } else { show(); } } changed(integer change) { if(change &amp; CHANGED_LINK) { avatar = llAvatarOnSitTarget(); if(avatar != NULL_KEY){ //SOMEONE SAT DOWN hide(); llRequestPermissions(avatar,PERMISSION_TRIGGER_ANIMATION); return; }else{ //SOMEONE STOOD UP if (llGetPermissionsKey() != NULL_KEY){ llStopAnimation(ANIMATION); } show(); return; } } if(change &amp; CHANGED_INVENTORY) { llResetScript(); } if(change &amp; CHANGED_OWNER) { llResetScript(); } } run_time_permissions(integer perm) { if(perm &amp; PERMISSION_TRIGGER_ANIMATION) { llStopAnimation(&quot;sit&quot;); llStartAnimation(ANIMATION); hide(); } } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:42 +0000 Tip Jar / Donation Box http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/tip_jar?do=revisions&rev=1575021525 <h2 class="sectionedit1" id="tip_jardonation_box">Tip Jar / Donation Box</h2> <div class="level2"> <pre class="code">//Keknehv Psaltery Updated Version of DONATION BOX By jean cook, ama omega, and nada epoch Debugged by YadNi Monde (LoL) Yea, that s a Bunch O Peeps =) //Summary: The following script will make an object accept donations on your behalf. //Usage: stick it on any object you own(my favorite is a top hat), and it will promptly display: //&quot;&lt;your name&gt;&#039;s donation hat. //Donate if you are so inclined.&quot; //at which point anyone can right click on it and give you a tip. also, the script tells the donator thanks, and then tells you who donated how much //also shows the total amount donated integer totaldonated; string owner; default { on_rez( integer sparam ) { llResetScript(); } state_entry() { owner = llKey2Name( llGetOwner() ); llSetText( owner + &quot;&#039;s Tip Jar.\nPlease tip if you are so inclined!\n$L0 Donated so far&quot;,&lt;.25,1,.65&gt;,1); //Red Light flash llParticleSystem ([ PSYS_PART_FLAGS, PSYS_PART_INTERP_COLOR_MASK| PSYS_PART_FOLLOW_SRC_MASK| PSYS_PART_EMISSIVE_MASK, PSYS_SRC_PATTERN, PSYS_SRC_PATTERN_ANGLE_CONE, PSYS_SRC_INNERANGLE, 0.0, PSYS_SRC_OUTERANGLE, 0.1, PSYS_SRC_BURST_SPEED_MIN, 0.0, PSYS_SRC_BURST_SPEED_MAX, 0.0, PSYS_SRC_BURST_RADIUS, 0.0, PSYS_SRC_BURST_PART_COUNT, 5, PSYS_SRC_BURST_RATE, 1.0, PSYS_PART_MAX_AGE, 1.0, PSYS_PART_START_SCALE, &lt;1,1,1&gt;, PSYS_PART_START_COLOR, &lt;1,0.2,0.2&gt;, PSYS_PART_END_COLOR, &lt;1,0,0&gt;, PSYS_PART_START_ALPHA, 1.0, PSYS_PART_END_ALPHA, 0.0 ]); // Rotate llTargetOmega(&lt;0,0,0.05&gt;,PI,0.05); } money(key id, integer amount) { totaldonated += amount; llSetText( owner + &quot;&#039;s Tip Jar.\nPlease tip if you are so inclined!\n$L&quot; + (string)amount + &quot; Was donated last!\n&quot; + &quot;$L&quot; + (string)totaldonated + &quot; Donated so far&quot;,&lt;.25,1,.65&gt;,1); llInstantMessage(id,&quot;Thanks for the tip! I really appreciate it.&quot;); llInstantMessage(llGetOwner(),(string)llKey2Name(id)+&quot; donated $&quot; + (string)amount); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:45 +0000 Zero Lag Poseball http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/zero_lag_poseball?do=revisions&rev=1575021525 <h2 class="sectionedit1" id="zero_lag_poseball">Zero Lag Poseball</h2> <div class="level2"> <pre class="code">// Jippen Faddoul&#039;s Poseball script - Low ram/lag posepall thats just drag-and drop simple // Copyright (C) 2007 Jippen Faddoul // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License version 3, as // published by the Free Software Foundation. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see &lt;http://www.gnu.org/licenses/&gt; //This text will appear in the floating title above the ball string TITLE=&quot;Sit here&quot;; //You can play with these numbers to adjust how far the person sits from the ball. ( &lt;X,Y,Z&gt; ) vector offset=&lt;0.0,0.0,0.5&gt;; ///////////////////// LEAVE THIS ALONE \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ string ANIMATION; integer visible = TRUE; key avatar; vector COLOR = &lt;1.0,1.0,1.0&gt;; float ALPHA_ON = 1.0; float ALPHA_OFF = 0.0; show(){ visible = TRUE; llSetText(TITLE, COLOR,ALPHA_ON); llSetAlpha(ALPHA_ON, ALL_SIDES); } hide(){ visible = FALSE; llSetText(&quot;&quot;, COLOR,ALPHA_ON); llSetAlpha(ALPHA_OFF, ALL_SIDES); } default{ state_entry() { llSitTarget(offset,ZERO_ROTATION); if((ANIMATION = llGetInventoryName(INVENTORY_ANIMATION,0)) == &quot;&quot;){ llOwnerSay(&quot;Error: No animation&quot;); ANIMATION = &quot;sit&quot;; } llSetSitText(TITLE); show(); } touch_start(integer detected) { //llOwnerSay(&quot;Memory: &quot; + (string)llGetFreeMemory()); if(visible){ hide(); } else { show(); } } changed(integer change) { if(change &amp; CHANGED_LINK) { avatar = llAvatarOnSitTarget(); if(avatar != NULL_KEY){ //SOMEONE SAT DOWN hide(); llRequestPermissions(avatar,PERMISSION_TRIGGER_ANIMATION); return; }else{ //SOMEONE STOOD UP if (llGetPermissionsKey() != NULL_KEY){ llStopAnimation(ANIMATION); } show(); return; } } if(change &amp; CHANGED_INVENTORY) { llResetScript(); } if(change &amp; CHANGED_OWNER) { llResetScript(); } } run_time_permissions(integer perm) { if(perm &amp; PERMISSION_TRIGGER_ANIMATION) { llStopAnimation(&quot;sit&quot;); llStartAnimation(ANIMATION); hide(); } } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:45 +0000 Dimmen http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/dimmen?do=revisions&rev=1575021519 <h2 class="sectionedit1" id="dimmen">Dimmen</h2> <div class="level2"> <p> Mit dem diesem Script kann ein Objekt generiert werden dass bei Berührung ein Menü öffnet und mit dem dann die Transparanz anderer Objekte kontrolliert werden kann. </p> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Dimmen&quot;,&quot;hid&quot;:&quot;dimmen&quot;,&quot;codeblockOffset&quot;:0,&quot;secid&quot;:1,&quot;range&quot;:&quot;1-189&quot;} --> <h3 class="sectionedit2" id="kontrollobjekt">Kontrollobjekt</h3> <div class="level3"> <p> Dieses Script muss in das Objekt, das quasi als Fernbedienung dienen soll. Die Namen werden dabei im Array WALL_OPTIONS festgelegt. </p> <pre class="code">// This program is free software; you can redistribute it and/or // modify it under the terms of the GNU General Public License // as published by the Free Software Foundation; either version 2 // of the License, or (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // (C) 2007 Abba Thiebaud&gt;SecondLifer // Please remember, I do not offer support for this script; your use of // this script is your acknowledgement and agreement to the above // terms. // // DO NOT REMOVE THE ABOVE HEADER FOR ANY REASON WHATSOEVER. // Window Controller Script (put into controller prim) list TINT_OPTIONS = [&quot;40%&quot;, &quot;20%&quot;, &quot;None&quot;, &quot;100%&quot;, &quot;80%&quot;, &quot;60%&quot;]; list WALL_OPTIONS = [&quot;Lower Front&quot;, &quot;Lower Back&quot;, &quot;Lower Sides&quot;, &quot;Upper Front&quot;, &quot;Upper Back&quot;, &quot;Upper Sides&quot;, &quot;Ceiling&quot;, &quot;All&quot;]; integer UPPER_FRONT = -28394; integer LOWER_FRONT = -28395; integer UPPER_BACK = -28396; integer LOWER_BACK = -28397; integer UPPER_SIDE = -28398; integer LOWER_SIDE = -28399; integer CEILING = -28400; integer CHANNEL = -28393; integer wallChannel; integer allWalls; PaintAllWalls(string tintLevel) { integer i; integer j; j = -28394; for (i = 0; i &lt; 7; i++) { llSay(j, tintLevel); j--; } // end for } // end PaintAllWalls default { state_entry() { llListen(CHANNEL, &quot;&quot;, NULL_KEY, &quot;&quot;); // listen for dialog answers (from multiple users) } // end state_entry() touch_start(integer total_number) { llDialog(llDetectedKey(0), &quot;Which wall would you like to tint?&quot;, WALL_OPTIONS, CHANNEL); // present dialog on click allWalls = 0; } // end touch_start() listen(integer channel, string name, key id, string message) { if (llListFindList(TINT_OPTIONS + WALL_OPTIONS, [message]) != -1) // verify dialog choice { if (message == &quot;Upper Front&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); wallChannel = UPPER_FRONT; } else if (message == &quot;Upper Back&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); wallChannel = UPPER_BACK; } else if (message == &quot;Upper Sides&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); wallChannel = UPPER_SIDE; } else if (message == &quot;Lower Front&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); wallChannel = LOWER_FRONT; } else if (message == &quot;Lower Back&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); wallChannel = LOWER_BACK; } else if (message == &quot;Lower Sides&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); wallChannel = LOWER_SIDE; } else if (message == &quot;Ceiling&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); wallChannel = CEILING; } else if(message == &quot;All&quot;) { llDialog(id, &quot;How much tint would you like?&quot;, TINT_OPTIONS, CHANNEL); allWalls = 1; } if (message == &quot;100%&quot;) { if(allWalls == 1) { PaintAllWalls(&quot;100&quot;); } else { llSay(wallChannel, &quot;100&quot;); } } else if (message == &quot;80%&quot;) { if(allWalls == 1) { PaintAllWalls(&quot;80&quot;); } else { llSay(wallChannel, &quot;80&quot;); } } else if (message == &quot;60%&quot;) { if(allWalls == 1) { PaintAllWalls(&quot;60&quot;); } else { llSay(wallChannel, &quot;60&quot;); } } else if (message == &quot;40%&quot;) { if(allWalls == 1) { PaintAllWalls(&quot;40&quot;); } else { llSay(wallChannel, &quot;40&quot;); } } else if (message == &quot;20%&quot;) { if(allWalls == 1) { PaintAllWalls(&quot;20&quot;); } else { llSay(wallChannel, &quot;20&quot;); } } else if (message == &quot;None&quot;) { if(allWalls == 1) { PaintAllWalls(&quot;0&quot;); } else { llSay(wallChannel, &quot;0&quot;); } } } // end if (valid message) } // end listen } // end default</pre> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Kontrollobjekt&quot;,&quot;hid&quot;:&quot;kontrollobjekt&quot;,&quot;codeblockOffset&quot;:0,&quot;secid&quot;:2,&quot;range&quot;:&quot;190-5776&quot;} --> <h3 class="sectionedit3" id="dimm-objekt">Dimm-Objekt</h3> <div class="level3"> <p> Dieses Script muss in alle wählbaren Objekte. Dabei muss ein Channel durch Entfernen des Platzhalters aktiviert werden, wodurch das Objekt durch das Kontrollscript ansprechbar wird. </p> <pre class="code">//Here the target aka Windows, put this script into them. //integer chan = -28394; // uncomment for UPPER_FRONT //integer chan = -28395; // uncomment for LOWER_FRONT //integer chan = -28396; // uncomment for UPPER_BACK //integer chan = -28397; // uncomment for LOWER_BACK //integer chan = -28398; // uncomment for UPPER_SIDE //integer chan = -28399; // uncomment for LOWER_SIDE //integer chan = -28400; // uncomment for CEILING default { state_entry() { llListen(chan, &quot;&quot;, NULL_KEY, &quot;&quot; ); } listen( integer channel, string name, key id, string message ) { if ( message == &quot;100&quot; ) { llSetAlpha(1.0, ALL_SIDES); } else if ( message == &quot;80&quot; ) { llSetAlpha(0.8, ALL_SIDES); } else if ( message == &quot;60&quot; ) { llSetAlpha(0.6, ALL_SIDES); } else if ( message == &quot;40&quot; ) { llSetAlpha(0.4, ALL_SIDES); } else if ( message == &quot;20&quot; ) { llSetAlpha(0.2, ALL_SIDES); } else if ( message == &quot;0&quot; ) { llSetAlpha(0.0, ALL_SIDES); } } }</pre> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Dimm-Objekt&quot;,&quot;hid&quot;:&quot;dimm-objekt&quot;,&quot;codeblockOffset&quot;:1,&quot;secid&quot;:3,&quot;range&quot;:&quot;5777-&quot;} --> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:39 +0000 Give all Content http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/give_all_content?do=revisions&rev=1575021520 <h2 class="sectionedit1" id="give_all_content">Give all Content</h2> <div class="level2"> <pre class="code">// Copyright 2004, Trimming Hedges. Released to the public domain. // This is a simple script that gives everything in a box to the person who clicked. // By default, it will only give items to the owner of the box. // I wrote this because of all the texture bundles that are given out. It&#039;s really a PAIN // to move a lot of textures or other contents out of a box. This speeds that up. // This is NOT a vending script. You can use this script to give everything in a box to someone, by changing &#039;owneronly&#039; to be 0. BUT: // // I suggest not using this script in an area where several people are going to touch it at once, because giving inventory is slow. // Version 2.0 of this script now detects multiple simultaneous touches: it is still slow, but it should work better at classes or events. // THIS IS NOT A VENDING SCRIPT. It gives items away, it does NOT SELL THEM. (You don&#039;t need a script for most vending anyway.) // This script doesn&#039;t give itself away. If you want it to, put it in the box, and set it to not running. // Then rename a copy and put that in the box too. The renamed copy should be the running one. // Rename it FIRST, I had weird issues with renaming it when it was already in // the box. (version 1.2.12 of SL.) integer owneronly = 0; key owner; default { state_entry() { owner = llGetOwner(); } touch_start(integer total_number) { integer i; for (i=0;i&lt;total_number;i++) { key target = llDetectedKey(i); if ( (target != owner) &amp;&amp; (owneronly == 1) ) // person clicking isn&#039;t owner and owneronly is set; { llInstantMessage(target,&quot;Sorry, only the owner is allowed to get my contents.&quot;); return; } list inventory_types = [INVENTORY_BODYPART,INVENTORY_CLOTHING,INVENTORY_LANDMARK,INVENTORY_NOTECARD,INVENTORY_OBJECT,INVENTORY_SCRIPT,INVENTORY_SOUND,INVENTORY_TEXTURE]; integer inventory_count = llGetListLength(inventory_types); integer j; integer k; integer type; integer typecount; string myname = llGetScriptName(); string objectname; for (j=0; j&lt;inventory_count;j++) { type = llList2Integer(inventory_types,j); // get the next inventory type from the list typecount = llGetInventoryNumber(type); // how many of that kind of inventory is in the box? if (typecount &gt; 0) { for (k=0; k&lt;typecount;k++) { objectname = llGetInventoryName(type,k); if (objectname != myname) // don&#039;t give self out so the user doesn&#039;t get fifty thousand copies. { llGiveInventory(target,objectname); } } } } } } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:40 +0000 Give Item http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/give_item?do=revisions&rev=1575021521 <h2 class="sectionedit1" id="give_item">Give Item</h2> <div class="level2"> <pre class="code">// Idea and written by Criz Collins // Don&#039;t sell this FREE script!!! string giveitem = &quot;Willkommen&quot;; float giveevery = 24; // hours! ///////////////////////////////////////////// list visitors; list lastsent; integer n; default { on_rez( integer param ) { llResetScript(); } changed(integer change) { if (change &amp; CHANGED_INVENTORY) { llResetScript(); } } touch_start(integer total_number) { for (n=0; n&lt;total_number; n++) { integer giveallowed = 0; integer index = llListFindList( visitors, [ llDetectedKey(n) ] ); if (index == -1) { visitors = visitors + [ llDetectedKey(n) ]; lastsent = lastsent + [(integer)llGetUnixTime()]; giveallowed = 1; } else { if (llList2Integer(lastsent, index) &lt;= ((integer)llGetUnixTime() - (giveevery * 60 * 60))) { list replacer = [(integer)llGetUnixTime()]; list newlastsent = llListReplaceList(lastsent, replacer, index, index); lastsent = []; lastsent = newlastsent; giveallowed = 1; } else { giveallowed = 0; } } if (giveallowed == 1) { llGiveInventory(llDetectedKey(n), giveitem); } } } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:41 +0000 Sensor Door http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/sensor_door?do=revisions&rev=1575021523 <h2 class="sectionedit1" id="sensor_door">Sensor Door</h2> <div class="level2"> <pre class="code">// Fixyou Kit&#039;s sensor door script with unknown avatar detection. // Door can be opened by up to 10 avatars, set up by name in the list. // The door scans for any avatars witin a distance of &quot;scandist&quot; and reports any avatar that is not on the access list // If known avatars get within a distance of &quot;distdoor&quot; to the door, it will open //plz IM me if you have questions! Have fun! //set names of avatars you want to allow access: string access1 = &quot;Fixyou Kit&quot;; string access2 = &quot; &quot;; string access3 = &quot; &quot;; string access4 = &quot; &quot;; string access5 = &quot; &quot;; string access6 = &quot; &quot;; string access7 = &quot; &quot;; string access8 = &quot; &quot;; string access9 = &quot; &quot;; string access10 = &quot; &quot;; integer distodoor = 3; // set distance (meters) between avatar and door to open integer scandist = 500; //set scanning distance string Ava_detected; integer ava_known = 0; default { state_entry() { llSensorRepeat(&quot;&quot;,&quot;&quot;,AGENT,scandist,TWO_PI,10.0); llWhisper(0,&quot;Scanner is active&quot;); } sensor(integer total_number) { integer x; for (x = 0; x &lt; total_number; x++) { vector pos = llGetPos(); string Ava_detected = llDetectedName(x); float diff = llVecDist(pos,llDetectedPos(x)); integer dist = llRound(diff); if(Ava_detected==access1 || Ava_detected==access2 || Ava_detected==access3 || Ava_detected==access4 || Ava_detected==access5 || Ava_detected==access6 || Ava_detected==access7 || Ava_detected==access8 || Ava_detected==access9 || Ava_detected==access10) { ava_known = 1; } if(ava_known == 0) { string detected = Ava_detected + &quot; @ &quot; + ((string)dist) + &quot;m&quot;; llWhisper(0,detected); } if(dist &lt; distodoor) { if(ava_known == 1) { llWhisper(0,((string)dist)+&quot; &quot; + ((string)distodoor)); llPlaySound(&quot;startrekdoor&quot;, 0.5); llSay(0, &quot;Door open for &quot;+(llDetectedName(0))); llSetPrimitiveParams([PRIM_PHANTOM, TRUE]); llSleep (15); llSetPrimitiveParams([PRIM_PHANTOM, FALSE]); dist = 100; } else { llSetPrimitiveParams([PRIM_PHANTOM, FALSE]); llSay(0, &quot;Sorry &quot;+(llDetectedName(0))+&quot;, can&#039;t let you enter, you are not on the access list&quot;); } } } } no_sensor() { llWhisper(0,&quot;No activity within &quot; + ((string)scandist) + &quot;m&quot;); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:43 +0000 Sim Crash Logger http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/sim_crash_logger?do=revisions&rev=1575021523 <h2 class="sectionedit1" id="sim_crash_logger">Sim Crash Logger</h2> <div class="level2"> <pre class="code">//******************************************************** //This Script was pulled out for you by YadNi Monde from the SL FORUMS at http://forums.secondlife.com/forumdisplay.php?f=15, it is intended to stay FREE by it s author(s) and all the comments here in ORANGE must NOT be deleted. They include notes on how to use it and no help will be provided either by YadNi Monde or it s Author(s). IF YOU DO NOT AGREE WITH THIS JUST DONT USE!!! //******************************************************** ///////////////////////////////////////// //SIM CRASH/REBOOT LOGGER //by: Kyrah Abattoir ///////////////////////////////////////// integer timering = 10;//the polling rate, put the speed you wish, in seconds //there we go... integer UNIX; string _buffer; list log; integer span = 0; float fps; float dilation; integer crash = 0; string date; //2004-08-27T00:56:21.785886Z default { state_entry() { llSetTimerEvent(timering);//starting our timer } timer() { string timestamp = llGetTimestamp(); list temp = llParseString2List(timestamp,[&quot;T&quot;,&quot;:&quot;,&quot;:&quot;,&quot;.&quot;],[]); integer _hour = llList2Integer(temp,1) + 4; if(_hour &gt; 24) //getting the hours _hour = _hour - 24 ; string _date = llList2String(temp,0); integer _min = llList2Integer(temp,2); integer _sec = llList2Integer(temp,3); string buffer; if(date == _date) //daily reset of the average fps and dilation span++; else { span = 1; date = _date; fps = 0; dilation = 0; } fps += llGetRegionFPS(); dilation += llGetRegionTimeDilation(); integer avg_FPS = (integer)(fps/span); string avg_dilation= llGetSubString((string)(dilation/span),0,3); buffer += llGetRegionName(); buffer += &quot;\n FPS:&quot;+(string)avg_FPS; buffer += &quot; dil. :&quot;+(string)avg_dilation; //buffer += &quot;\n&quot; + llDumpList2String(log,&quot;\n&quot;); integer _UNIX = _sec + _min * 60 + _hour * 3600;//making our timestamp if (_UNIX - UNIX &gt; timering + 5 &amp;&amp; UNIX != 0)//okay the delay has been waaay too olong, it probably crashed or rebooted { crash++; log += (string)_date + &quot; - &quot; + (string)_hour+ &quot;:&quot;+(string)_min+&quot;:&quot;+(string)_sec; if(llGetListLength(log) &gt; 9) log = llDeleteSubList(log,0,0); } buffer += &quot;\n sim crashes: &quot; + (string)crash + &quot;\n last crash: \n&quot; + llDumpList2String(log,&quot;\n&quot;); if(_buffer != buffer); //display { llSetText(buffer,&lt;1,1,1&gt;,1.0); _buffer = buffer; } UNIX = _UNIX; } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:43 +0000 Simple Radar http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/simple_radar?do=revisions&rev=1575021523 <h2 class="sectionedit1" id="simple_radar">Simple Radar</h2> <div class="level2"> <pre class="code">//Sable Till - Radar/scannar script. //You can get a copy of the license this script is under at http://www.gnu.org/copyleft/gpl.html //Copyright (C) 2006 Sable Till //This program is free software; you can redistribute it and/or //modify it under the terms of the GNU General Public License //as published by the Free Software Foundation; either version 2 //of the License, or (at your option) any later version. //This program is distributed in the hope that it will be useful, //but WITHOUT ANY WARRANTY; without even the implied warranty of //MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //GNU General Public License for more details. //You should have received a copy of the GNU General Public License //along with this program; if not, write to the Free Software //Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. string status=&quot;none&quot;; list people; integer maxScanDistance; vector color = &lt;0,1,1&gt;; integer maxPeople = 8; integer scanType = AGENT; integer scanFreq=1; integer count(string name) { integer i = llListFindList(people, [name]); if(i ==-1){ people+=[name, 0]; return 0; } else { integer count = llList2Integer(people, i+1); people=llListReplaceList(people, [count+scanFreq], i+1, i+1); return count; } } //calculate time strings with proper units that are sensibly rounded string time(integer cnt) { if(cnt&gt;3600) { return (string)(cnt/3600)+&quot;hr &quot; + (string)((cnt%3600)/60) +&quot;min&quot;; }else { if(cnt&gt;60) { return (string)(cnt/60)+&quot;min&quot;; } else { return (string)cnt+&quot;s&quot;; } } } //I&#039;m pretty sure there&#039;s a better way to do this but I&#039;m trying to calculate the angle between //North and the target so I can work out which direction it is in. float getAngle(vector me, vector target) { float hyp = llVecDist(me, target); float yDiff = target.y-me.y; float xDiff = target.x-me.x; float angle = llSin(yDiff/hyp); if(xDiff&gt;0 &amp;&amp; yDiff&gt;0) { return angle*RAD_TO_DEG; } if(xDiff&gt;0 &amp;&amp; yDiff&lt;0) { return 90-angle*RAD_TO_DEG; } if(xDiff&lt;0 &amp;&amp; yDiff&gt;0) { return angle*RAD_TO_DEG+270; } if(xDiff&lt;0 &amp;&amp; yDiff&lt;0) { return angle*RAD_TO_DEG + 270; } return angle*RAD_TO_DEG; } default { state_entry() { llSensorRepeat(&quot;&quot;, &quot;&quot;,scanType, 96, PI, scanFreq); llSetTimerEvent(6); } sensor(integer num_detected) { people=[]; string result; integer n=-1; integer distance=0; integer detDist; string name; vector pos = llGetPos(); //get the dist, name and direction of everyone we just scanned. for(n=0;n&lt;num_detected &amp;&amp; n&lt;maxPeople;++n) { vector detPos = llDetectedPos(n); detDist = (integer)llVecDist(pos, detPos); float angle = getAngle(llGetPos(), detPos); name = llKey2Name(llDetectedKey(n)); if(detDist&lt;96) { people+=detDist; people+=name; people+=angle; } } //sort the strided list people = llListSort(people, 3, TRUE); //construct settext num_detected = llGetListLength(people)/3; for(n=0;n&lt;num_detected;++n) { detDist=llList2Integer(people, n*3); name = llList2String(people, n*3+1); float dir = llList2Float(people, n*3+2); if(detDist&gt;20 &amp;&amp; distance&lt;=20) { result+=&quot;&lt;- Chat Range Limit -&gt;\n&quot;; } result+=name; if(detDist&lt;20) { integer cnt = count(name); result+=&quot; [&quot;+time(cnt)+&quot;]&quot;; } result+=&quot; [&quot;+(string)detDist+&quot;m]&quot;; if(dir &lt; 0 || dir &gt; 360) { llOwnerSay(&quot;Error:&quot;+(string)dir+&quot;:&quot;+name); } //determine which compass direction they are in. if(dir &lt;= 22.5) { result+=&quot; N\n&quot;; } else { if(dir &gt; 22.5 &amp;&amp; dir &lt;= 67.5) { result+=&quot; NE\n&quot;; } else { if(dir &gt; 67.5 &amp;&amp; dir &lt;= 112.5) { result+=&quot; E\n&quot;; } else { if(dir &gt; 112.5 &amp;&amp; dir &lt;= 157.5) { result+=&quot; SE\n&quot;; } else { if(dir &gt; 157.5 &amp;&amp; dir &lt;= 202.5) { result+=&quot; S\n&quot;; } else { if(dir &gt; 202.5 &amp;&amp; dir &lt;= 247.5) { result+=&quot; SW\n&quot;; } else { if(dir &gt; 247.5 &amp;&amp; dir &lt;= 292.5) { result+=&quot; W\n&quot;; } else { if(dir &gt; 292.5 &amp;&amp; dir &lt;= 337.5) { result+=&quot; NW\n&quot;; } else { if(dir &gt; 337.5 &amp;&amp; dir &lt; 360) { result+=&quot; N\n&quot;; } } } }}}}}} distance=detDist; } //If we detected more (or the same number of) people as maxPeople then shrink down the scan distance to just //the distance to the furthest one. Otherwise increment it a bit in case there are people further out. if(num_detected&gt;=maxPeople) { maxScanDistance=distance+10; } else { maxScanDistance+=10; } result+=&quot;\nStatus:&quot;+status; //adjust max people based on the length of result if(llStringLength(result)&gt;254) { maxPeople--; llOwnerSay(&quot;Length is &quot;+(string)llStringLength(result) + &quot; Decrementing maxPeople to &quot;+(string)maxPeople); } else { if(llStringLength(result)&lt;200 &amp;&amp; num_detected&gt;maxPeople) { maxPeople++; llOwnerSay(&quot;Length is &quot;+(string)llStringLength(result) + &quot; Incrementing maxPeople to &quot;+(string)maxPeople); } } llSetText(result, color, 1); } no_sensor() { llSetText(&quot;Status:&quot;+status, color, 1); maxScanDistance+=10; llSensorRepeat(&quot;&quot;, &quot;&quot;, scanType, maxScanDistance, PI, scanFreq); } //all we do here is check the sims fps and dilation and tone down our scanning if necessary. timer() { float fps = llGetRegionFPS(); float timeDilation = llGetRegionTimeDilation(); integer scanDistance; if(fps&lt;35 || timeDilation &lt;0.9) { if(maxScanDistance&gt;30) { scanDistance=30; } scanFreq=240; status = &quot;poor&quot;; llSetTimerEvent(240); color=&lt;1,0,0&gt;; } else { if(fps&lt;40 || timeDilation&lt;0.95) { if(maxScanDistance&gt;64) { scanDistance=64; } else { scanDistance=maxScanDistance; } scanFreq=30; status = &quot;ok&quot;; llSetTimerEvent(120); color=&lt;1,1,0&gt;; } else { if(maxScanDistance&gt;96) { scanDistance=96; } else { scanDistance=maxScanDistance; } scanFreq=1; llSetTimerEvent(60); status = &quot;good&quot;; color=&lt;0,1,1&gt;; }} llSensorRepeat(&quot;&quot;, &quot;&quot;, scanType, scanDistance, PI, scanFreq); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:43 +0000 Snow Particle Generator (Schnee) http://live.spdns.org/wiki/archiv/opensim/downloads/scripts/snow?do=revisions&rev=1575021524 <h2 class="sectionedit1" id="snow_particle_generator_schnee">Snow Particle Generator (Schnee)</h2> <div class="level2"> <p> Lässt Schnee fallen. </p> <pre class="code">default { state_entry() { llParticleSystem([ PSYS_PART_FLAGS , 0 //| PSYS_PART_BOUNCE_MASK //Bounce on object&#039;s z-axis | PSYS_PART_WIND_MASK //Particles are moved by wind | PSYS_PART_INTERP_COLOR_MASK //Colors fade from start to end | PSYS_PART_INTERP_SCALE_MASK //Scale fades from beginning to end | PSYS_PART_FOLLOW_SRC_MASK //Particles follow the emitter | PSYS_PART_FOLLOW_VELOCITY_MASK//Particles are created at the velocity of the emitter //| PSYS_PART_TARGET_POS_MASK //Particles follow the target | PSYS_PART_EMISSIVE_MASK //Particles are self-lit (glow) //| PSYS_PART_TARGET_LINEAR_MASK//Undocumented--Sends particles in straight line? , //PSYS_SRC_TARGET_KEY , NULL_KEY,//The particles will head towards the specified key //Select one of the following for a pattern: //PSYS_SRC_PATTERN_DROP Particles start at emitter with no velocity //PSYS_SRC_PATTERN_EXPLODE Particles explode from the emitter //PSYS_SRC_PATTERN_ANGLE Particles are emitted in a 2-D angle //PSYS_SRC_PATTERN_ANGLE_CONE Particles are emitted in a 3-D cone //PSYS_SRC_PATTERN_ANGLE_CONE_EMPTY Particles are emitted everywhere except for a 3-D cone PSYS_SRC_PATTERN, PSYS_SRC_PATTERN_ANGLE_CONE ,PSYS_SRC_TEXTURE, &quot;b03ed4c1-6384-408f-9db9-2d4f6fee164d&quot; //UUID of the desired particle texture, or inventory name ,PSYS_SRC_MAX_AGE, 0.0 //Time, in seconds, for particles to be emitted. 0 = forever ,PSYS_PART_MAX_AGE, 15.0 //Lifetime, in seconds, that a particle lasts ,PSYS_SRC_BURST_RATE, .01 //How long, in seconds, between each emission ,PSYS_SRC_BURST_PART_COUNT, 24 //Number of particles per emission ,PSYS_SRC_BURST_RADIUS, 10.0 //Radius of emission ,PSYS_SRC_BURST_SPEED_MIN, 0.1 //Minimum speed of an emitted particle ,PSYS_SRC_BURST_SPEED_MAX, 0.5 //Maximum speed of an emitted particle ,PSYS_SRC_ACCEL, &lt;0,0,-.20&gt; //Acceleration of particles each second ,PSYS_PART_START_COLOR, &lt;1,1,1&gt; //Starting RGB color ,PSYS_PART_END_COLOR, &lt;1,1,1&gt; //Ending RGB color, if INTERP_COLOR_MASK is on ,PSYS_PART_START_ALPHA, 1.0 //Starting transparency, 1 is opaque, 0 is transparent. ,PSYS_PART_END_ALPHA, 1.0 //Ending transparency ,PSYS_PART_START_SCALE, &lt;.05,.05,.05&gt; //Starting particle size ,PSYS_PART_END_SCALE, &lt;.05,.05,.05&gt; //Ending particle size, if INTERP_SCALE_MASK is on ,PSYS_SRC_ANGLE_BEGIN, 90 * DEG_TO_RAD //Inner angle for ANGLE patterns ,PSYS_SRC_ANGLE_END, 90 * DEG_TO_RAD//Outer angle for ANGLE patterns ,PSYS_SRC_OMEGA, &lt;0.0,0.0,0.0&gt; //Rotation of ANGLE patterns, similar to llTargetOmega() ]); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:44 +0000