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://itclive.spdns.de/wiki/ Sun, 05 Apr 2026 23:37:43 +0000 FeedCreator 1.8 http://itclive.spdns.de/wiki/lib/tpl/peanutbutter2/images/favicon.ico move IT Home Base http://itclive.spdns.de/wiki/ Pacman http://itclive.spdns.de/wiki/archiv/opensim/downloads/scripts/pacman?do=revisions&rev=1575021521 <h2 class="sectionedit1" id="pacman">Pacman</h2> <div class="level2"> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Pacman&quot;,&quot;hid&quot;:&quot;pacman&quot;,&quot;codeblockOffset&quot;:0,&quot;secid&quot;:1,&quot;range&quot;:&quot;1-20&quot;} --> <h3 class="sectionedit2" id="game">Game</h3> <div class="level3"> <pre class="code">// open pacman game server script by kefcom belgium (kefcom@hotmail.com) string currentplayer; integer score; integer maxscore; integer timesplayed; integer timecounter; string playername1; string playername2; string playername3; string playername4; string playername5; integer playerscore1; integer playerscore2; integer playerscore3; integer playerscore4; integer playerscore5; integer maxtime; default { state_entry() { ////////////////////////////////////////////////////////////////////////////////////// maxscore = 137; //change this value to the number of balls you have on the field maxtime = 500; ///////////////////////////////////////////////////////////////////////////////////// playername1 = &quot;nobody&quot;; playername2 = &quot;nobody&quot;; playername3 = &quot;nobody&quot;; playername4 = &quot;nobody&quot;; playername5 = &quot;nobody&quot;; playerscore1 = 300; playerscore2 = 300; playerscore3 = 300; playerscore4 = 300; playerscore5 = 300; timesplayed = 0; score = 0; llSetText(&quot;Game Server&quot;, &lt;1,1,1&gt;,1.0); llListen(1966, &quot;&quot;,&quot;&quot;,&quot;&quot;); } listen( integer channel, string name, key id, string msg) { if(msg==&quot;STOP&quot;) { llSetTimerEvent(0); llSay(0, &quot;Game stopped!&quot;); timecounter = 0; score = 0; currentplayer = &quot;nobody&quot;; llSetText(&quot;Game Server, click for stats&quot;, &lt;1,1,1&gt;,1.0); } if(msg==&quot;START&quot;) { score = 0; llSetText(&quot;Score: &quot; + (string) score, &lt;1,1,1&gt;, 1.0); currentplayer = name; timecounter = 0; timesplayed = timesplayed + 1; llSetTimerEvent(1); } if(msg==&quot;POINTS!&quot;) { score = score + 1; llSetText(&quot;Score: &quot; + (string) score, &lt;1,1,1&gt;, 1.0); if(score &gt;= maxscore) { //GAME OVER! llShout(0, &quot;Game over&quot;); llSetTimerEvent(0); llShout(0, &quot;You needed &quot; + (string) timecounter + &quot; Seconds to complete the game!&quot;); llSetText(&quot;Game Server, Click me for stats&quot;, &lt;1,1,1&gt;, 1.0); /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// CALCULATE PLACE IN TOP 5 //////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////// if(timecounter &lt; playerscore5) { if(timecounter &lt; playerscore4) { if(timecounter &lt; playerscore3) { if(timecounter &lt; playerscore2) { if(timecounter &lt; playerscore1) { //first place playerscore5 = playerscore4; playerscore4 = playerscore3; playerscore3 = playerscore2; playerscore2 = playerscore1; playerscore1 = timecounter; playername5 = playername4; playername4 = playername3; playername3 = playername2; playername2 = playername1; playername1 = currentplayer; llSay(0, &quot;You are in first place on the scoreboard!&quot;); }else{ //second place playerscore5 = playerscore4; playerscore4 = playerscore3; playerscore3 = playerscore2; playerscore2 = timecounter; playername5 = playername4; playername4 = playername3; playername3 = playername2; playername2 = currentplayer; llSay(0, &quot;You are in second place on the scoreboard!&quot;); } }else{ //third place playerscore5 = playerscore4; playerscore4 = playerscore3; playerscore3 = timecounter; playername5 = playername4; playername4 = playername3; playername3 = currentplayer; llSay(0, &quot;You are in third place on the scoreboard!&quot;); } }else{ //fourth place playerscore5 = playerscore4; playerscore4 = timecounter; playername5 = playername4; playername4 = currentplayer; llSay(0, &quot;You are in fourth place on the scoreboard!&quot;); } }else{ //fifth place playerscore5 = timecounter; playername5 = currentplayer; llSay(0, &quot;You are in fifth place on the scoreboard!&quot;); } }else{ llSay(0, &quot;You were not fast enough to get on the scoreboard&quot;); } } } } touch_start(integer numdetected) { //TYPE SCORE LIST!!! llSay(0, &quot;SCORE LIST:&quot;); llSay(0, &quot;1. &quot; + playername1 + &quot; - &quot; + (string) playerscore1 + &quot; seconds.&quot;); llSay(0, &quot;2. &quot; + playername2 + &quot; - &quot; + (string) playerscore2 + &quot; seconds.&quot;); llSay(0, &quot;3. &quot; + playername3 + &quot; - &quot; + (string) playerscore3 + &quot; seconds.&quot;); llSay(0, &quot;4. &quot; + playername4 + &quot; - &quot; + (string) playerscore4 + &quot; seconds.&quot;); llSay(0, &quot;5. &quot; + playername5 + &quot; - &quot; + (string) playerscore5 + &quot; seconds.&quot;); llSay(0, &quot;Game has been played &quot; + (string) timesplayed + &quot; times since reset&quot;); } timer() { timecounter = timecounter + 1; if(timecounter &gt;= maxtime) { llShout(1966, &quot;STOP&quot;); llSay (0, &quot;Game over due to timeout...&quot;); llSetTimerEvent(0); llSetText(&quot;Game Server, Touch for stats&quot;, &lt;1,1,1&gt;, 1.0); } } }</pre> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Game&quot;,&quot;hid&quot;:&quot;game&quot;,&quot;codeblockOffset&quot;:0,&quot;secid&quot;:2,&quot;range&quot;:&quot;21-6350&quot;} --> <h3 class="sectionedit3" id="yellow_balls">Yellow Balls</h3> <div class="level3"> <pre class="code">// open pacman game server script by kefcom belgium (kefcom@hotmail.com) string currentplayer; integer score; integer maxscore; integer timesplayed; integer timecounter; string playername1; string playername2; string playername3; string playername4; string playername5; integer playerscore1; integer playerscore2; integer playerscore3; integer playerscore4; integer playerscore5; integer maxtime; default { state_entry() { ////////////////////////////////////////////////////////////////////////////////////// maxscore = 137; //change this value to the number of balls you have on the field maxtime = 500; ///////////////////////////////////////////////////////////////////////////////////// playername1 = &quot;nobody&quot;; playername2 = &quot;nobody&quot;; playername3 = &quot;nobody&quot;; playername4 = &quot;nobody&quot;; playername5 = &quot;nobody&quot;; playerscore1 = 300; playerscore2 = 300; playerscore3 = 300; playerscore4 = 300; playerscore5 = 300; timesplayed = 0; score = 0; llSetText(&quot;Game Server&quot;, &lt;1,1,1&gt;,1.0); llListen(1966, &quot;&quot;,&quot;&quot;,&quot;&quot;); } listen( integer channel, string name, key id, string msg) { if(msg==&quot;STOP&quot;) { llSetTimerEvent(0); llSay(0, &quot;Game stopped!&quot;); timecounter = 0; score = 0; currentplayer = &quot;nobody&quot;; llSetText(&quot;Game Server, click for stats&quot;, &lt;1,1,1&gt;,1.0); } if(msg==&quot;START&quot;) { score = 0; llSetText(&quot;Score: &quot; + (string) score, &lt;1,1,1&gt;, 1.0); currentplayer = name; timecounter = 0; timesplayed = timesplayed + 1; llSetTimerEvent(1); } if(msg==&quot;POINTS!&quot;) { score = score + 1; llSetText(&quot;Score: &quot; + (string) score, &lt;1,1,1&gt;, 1.0); if(score &gt;= maxscore) { //GAME OVER! llShout(0, &quot;Game over&quot;); llSetTimerEvent(0); llShout(0, &quot;You needed &quot; + (string) timecounter + &quot; Seconds to complete the game!&quot;); llSetText(&quot;Game Server, Click me for stats&quot;, &lt;1,1,1&gt;, 1.0); /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// CALCULATE PLACE IN TOP 5 //////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////// if(timecounter &lt; playerscore5) { if(timecounter &lt; playerscore4) { if(timecounter &lt; playerscore3) { if(timecounter &lt; playerscore2) { if(timecounter &lt; playerscore1) { //first place playerscore5 = playerscore4; playerscore4 = playerscore3; playerscore3 = playerscore2; playerscore2 = playerscore1; playerscore1 = timecounter; playername5 = playername4; playername4 = playername3; playername3 = playername2; playername2 = playername1; playername1 = currentplayer; llSay(0, &quot;You are in first place on the scoreboard!&quot;); }else{ //second place playerscore5 = playerscore4; playerscore4 = playerscore3; playerscore3 = playerscore2; playerscore2 = timecounter; playername5 = playername4; playername4 = playername3; playername3 = playername2; playername2 = currentplayer; llSay(0, &quot;You are in second place on the scoreboard!&quot;); } }else{ //third place playerscore5 = playerscore4; playerscore4 = playerscore3; playerscore3 = timecounter; playername5 = playername4; playername4 = playername3; playername3 = currentplayer; llSay(0, &quot;You are in third place on the scoreboard!&quot;); } }else{ //fourth place playerscore5 = playerscore4; playerscore4 = timecounter; playername5 = playername4; playername4 = currentplayer; llSay(0, &quot;You are in fourth place on the scoreboard!&quot;); } }else{ //fifth place playerscore5 = timecounter; playername5 = currentplayer; llSay(0, &quot;You are in fifth place on the scoreboard!&quot;); } }else{ llSay(0, &quot;You were not fast enough to get on the scoreboard&quot;); } } } } touch_start(integer numdetected) { //TYPE SCORE LIST!!! llSay(0, &quot;SCORE LIST:&quot;); llSay(0, &quot;1. &quot; + playername1 + &quot; - &quot; + (string) playerscore1 + &quot; seconds.&quot;); llSay(0, &quot;2. &quot; + playername2 + &quot; - &quot; + (string) playerscore2 + &quot; seconds.&quot;); llSay(0, &quot;3. &quot; + playername3 + &quot; - &quot; + (string) playerscore3 + &quot; seconds.&quot;); llSay(0, &quot;4. &quot; + playername4 + &quot; - &quot; + (string) playerscore4 + &quot; seconds.&quot;); llSay(0, &quot;5. &quot; + playername5 + &quot; - &quot; + (string) playerscore5 + &quot; seconds.&quot;); llSay(0, &quot;Game has been played &quot; + (string) timesplayed + &quot; times since reset&quot;); } timer() { timecounter = timecounter + 1; if(timecounter &gt;= maxtime) { llShout(1966, &quot;STOP&quot;); llSay (0, &quot;Game over due to timeout...&quot;); llSetTimerEvent(0); llSetText(&quot;Game Server, Touch for stats&quot;, &lt;1,1,1&gt;, 1.0); } } }</pre> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Yellow Balls&quot;,&quot;hid&quot;:&quot;yellow_balls&quot;,&quot;codeblockOffset&quot;:1,&quot;secid&quot;:3,&quot;range&quot;:&quot;6351-12688&quot;} --> <h3 class="sectionedit4" id="start_button">Start Button</h3> <div class="level3"> <pre class="code">// open pacman game by kefcom belgium (kefcom@hotmail.com) default { state_entry() { llSetText(&quot;Klick me to play&quot;, &lt;1,1,1&gt;,1.0); } touch_start(integer num_detected) { llDialog(llDetectedKey(0), &quot;Press Start to play&quot;, [&quot;START&quot;, &quot;STOP&quot;],1966); } }</pre> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Start Button&quot;,&quot;hid&quot;:&quot;start_button&quot;,&quot;codeblockOffset&quot;:2,&quot;secid&quot;:4,&quot;range&quot;:&quot;12689-&quot;} --> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:41 +0000 Online Indicator http://itclive.spdns.de/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 Snow Particle Generator (Schnee) http://itclive.spdns.de/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 Binary Clock http://itclive.spdns.de/wiki/archiv/opensim/downloads/scripts/binary_clock?do=revisions&rev=1575021518 <h2 class="sectionedit1" id="binary_clock">Binary Clock</h2> <div class="level2"> <pre class="code">// Binary Clock Script // By Fox Diller // OMG INSANITY! list bTime; list oTime; integer token; string dec2bin(integer dec) { if (dec == 0) return &quot;0000&quot;; if (dec == 1) return &quot;0001&quot;; if (dec == 2) return &quot;0010&quot;; if (dec == 3) return &quot;0011&quot;; if (dec == 4) return &quot;0100&quot;; if (dec == 5) return &quot;0101&quot;; if (dec == 6) return &quot;0110&quot;; if (dec == 7) return &quot;0111&quot;; if (dec == 8) return &quot;1000&quot;; if (dec == 9) return &quot;1001&quot;; return &quot;0000&quot;; } BuildClock() { integer shiftraw = (integer)llGetWallclock(); integer hours = shiftraw / 3600; integer minutes = (shiftraw % 3600) / 60; integer seconds = shiftraw % 60; bTime = [hours / 10, hours % 10, minutes / 10, minutes % 10, seconds / 10, seconds % 10]; } displayBDC() { integer current_rowA = llList2Integer(bTime, 0); integer old_rowA = llList2Integer(oTime, 0); if (current_rowA != old_rowA) { string rowA = dec2bin(current_rowA); integer Acol0 = (integer)llGetSubString(rowA, 3, 3); integer Acol1 = (integer)llGetSubString(rowA, 2, 2); llMessageLinked(2, Acol0, &quot;&quot;, &quot;&quot;); llMessageLinked(3, Acol1, &quot;&quot;, &quot;&quot;); } else if (!current_rowA) { llMessageLinked(2, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(3, 0, &quot;&quot;, &quot;&quot;); } integer current_rowB = llList2Integer(bTime, 1); integer old_rowB = llList2Integer(oTime, 1); if (current_rowB != old_rowB) { string rowB = dec2bin(current_rowB); integer Bcol0 = (integer)llGetSubString(rowB, 3, 3); integer Bcol1 = (integer)llGetSubString(rowB, 2, 2); integer Bcol2 = (integer)llGetSubString(rowB, 1, 1); integer Bcol3 = (integer)llGetSubString(rowB, 0, 0); llMessageLinked(4, Bcol0, &quot;&quot;, &quot;&quot;); llMessageLinked(5, Bcol1, &quot;&quot;, &quot;&quot;); llMessageLinked(6, Bcol2, &quot;&quot;, &quot;&quot;); llMessageLinked(7, Bcol3, &quot;&quot;, &quot;&quot;); } else if (!current_rowB) { llMessageLinked(4, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(5, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(6, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(7, 0, &quot;&quot;, &quot;&quot;); } integer current_rowC = llList2Integer(bTime, 2); integer old_rowC = llList2Integer(oTime, 2); if (current_rowC != old_rowC) { string rowC = dec2bin(current_rowC); integer Ccol0 = (integer)llGetSubString(rowC, 3, 3); integer Ccol1 = (integer)llGetSubString(rowC, 2, 2); integer Ccol2 = (integer)llGetSubString(rowC, 1, 1); llMessageLinked(8, Ccol0, &quot;&quot;, &quot;&quot;); llMessageLinked(9, Ccol1, &quot;&quot;, &quot;&quot;); llMessageLinked(10, Ccol2, &quot;&quot;, &quot;&quot;); } else if (!current_rowC) { llMessageLinked(8, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(9, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(10, 0, &quot;&quot;, &quot;&quot;); } integer current_rowD = llList2Integer(bTime, 3); integer old_rowD = llList2Integer(oTime, 3); if (current_rowD != old_rowD) { string rowD = dec2bin(current_rowD); integer Dcol0 = (integer)llGetSubString(rowD, 3, 3); integer Dcol1 = (integer)llGetSubString(rowD, 2, 2); integer Dcol2 = (integer)llGetSubString(rowD, 1, 1); integer Dcol3 = (integer)llGetSubString(rowD, 0, 0); llMessageLinked(11, Dcol0, &quot;&quot;, &quot;&quot;); llMessageLinked(12, Dcol1, &quot;&quot;, &quot;&quot;); llMessageLinked(13, Dcol2, &quot;&quot;, &quot;&quot;); llMessageLinked(14, Dcol3, &quot;&quot;, &quot;&quot;); } else if (!current_rowD) { llMessageLinked(11, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(12, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(13, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(14, 0, &quot;&quot;, &quot;&quot;); } integer current_rowE = llList2Integer(bTime, 4); integer old_rowE = llList2Integer(oTime, 4); if (current_rowE != old_rowE) { string rowE = dec2bin(current_rowE); integer Ecol0 = (integer)llGetSubString(rowE, 3, 3); integer Ecol1 = (integer)llGetSubString(rowE, 2, 2); integer Ecol2 = (integer)llGetSubString(rowE, 1, 1); llMessageLinked(15, Ecol0, &quot;&quot;, &quot;&quot;); llMessageLinked(16, Ecol1, &quot;&quot;, &quot;&quot;); llMessageLinked(17, Ecol2, &quot;&quot;, &quot;&quot;); } else if (!current_rowE) { llMessageLinked(15, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(16, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(17, 0, &quot;&quot;, &quot;&quot;); } integer current_rowF = llList2Integer(bTime, 5); integer old_rowF = llList2Integer(oTime, 5); if (current_rowF != old_rowF) { string rowF = dec2bin(current_rowF); integer Fcol0 = (integer)llGetSubString(rowF, 3, 3); integer Fcol1 = (integer)llGetSubString(rowF, 2, 2); integer Fcol2 = (integer)llGetSubString(rowF, 1, 1); integer Fcol3 = (integer)llGetSubString(rowF, 0, 0); llMessageLinked(18, Fcol0, &quot;&quot;, &quot;&quot;); llMessageLinked(19, Fcol1, &quot;&quot;, &quot;&quot;); llMessageLinked(20, Fcol2, &quot;&quot;, &quot;&quot;); llMessageLinked(21, Fcol3, &quot;&quot;, &quot;&quot;); } else if (!current_rowF) { llMessageLinked(18, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(19, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(20, 0, &quot;&quot;, &quot;&quot;); llMessageLinked(21, 0, &quot;&quot;, &quot;&quot;); } } default { touch_start(integer total_number) { if (!token &amp;&amp; llDetectedKey(0) == llGetOwner()) { oTime = []; bTime = []; llSetTimerEvent(1.0); token = 1; llOwnerSay(&quot;On!&quot;); } else if (token &amp;&amp; llDetectedKey(0) == llGetOwner()) { llSetTimerEvent(0); token = 0; llOwnerSay(&quot;Off!&quot;); } } timer() { bTime = oTime; BuildClock(); displayBDC(); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:38 +0000 Fire Particle http://itclive.spdns.de/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 Besucherzähler mit E-Mail Benachrichtigung http://itclive.spdns.de/wiki/archiv/opensim/downloads/scripts/besucherzaehler_email?do=revisions&rev=1575021518 <h2 class="sectionedit1" id="besucherzaehler_mit_e-mail_benachrichtigung">Besucherzähler mit E-Mail Benachrichtigung</h2> <div class="level2"> <p> Damit dieses Script funktionieren kann muss zuerst in der OpenSIM-Konfigurationsdatei opensim.ini die E-Mail Funktion im Abschnitt SMTP eingeschaltet und konfiguriert werden. </p> <pre class="code">// Besucherzähler mit E-Mail Benachrichtung // von Blub Blinker, www.swiss-sl.ch float range = 100; // sucht im Radius von 100 Metern nach Besuchern float rate = 10.0; // Zeitabstand in der erneut gesucht wird, 1,0 = 1 Sekunde // E-Mail Adresse auf die eigene anpassen string email_address = &quot;adresse@domain.xyz&quot;; // Name der zu kontrollierenden Region // Die versandte E-Mail beinhaltet die Koordinaten string location_name = &quot;OpenSIM-Region&quot;; list single_name_list; list visitor_list; integer isNameOnList( string name ) { list single_name_list; single_name_list += name; return (-1 != llListFindList( visitor_list, single_name_list ) ); } sendEmail() { string csv = llList2CSV( visitor_list ); llEmail( email_address, &quot;Visitor List: &quot; + location_name, csv ); } resetList() { single_name_list = llDeleteSubList(single_name_list, 0, llGetListLength(single_name_list)); llSay( 0, &quot;Reset abgeschlossen&quot;); } // Hilfe Befehle sayHelp( integer is_owner ) { if( is_owner ) { llSay( 0, &quot;Dieses Objekt speichert die Namen von jedem Avatars der&quot; ); llSay( 0, &quot;in den Bereich von &quot;+ (string)((integer)range) + &quot; Metern kommt.&quot; ); llSay( 0, &quot;Kommandos die der Besitzer sagen kann:&quot; ); llSay( 0, &quot;&#039;help&#039; - Zeigt diese Anleitung&quot; ); llSay( 0, &quot;&#039;say list&#039; - Zeigt die Namen aller Avatare auf der Liste&quot;); llSay( 0, &quot;&#039;reset list&#039; - Loescht die Namen auf der Liste&quot; ); llSay( 0, &quot;&#039; email list&#039; - Sendet die Namen auf der Liste als E-Mail&quot; ); } else { llSay( 0, &quot;Sorry, nur der Besitzer kann editieren.&quot; ); } } // Script-Start default { state_entry() { llSay(0, &quot;Besucherzaehler wurde gestartet.&quot;); llSay(0, &quot;Der Besitzer kann mit &#039;help&#039; eine Kurzanleitung anfordern.&quot;); llSensorRepeat( &quot;&quot;, &quot;&quot;, AGENT, range, TWO_PI, rate ); llListen(0, &quot;&quot;, llGetOwner(), &quot;&quot;); // Wechsle hier das Zeitintervall in der die E-Mail Benachrichtigung zugesandt werden soll (Standard ist 60x60 Sekunden) // = 3600 Sekunden = 1x pro Stunde llSetTimerEvent( 60 * 60 ); } // Sendet die E-Mail im oben angegebenem Zeitintervall timer() { sendEmail(); resetList(); } // Gibt den Hilfe-Befehl aus beim anklicken touch_start( integer num_detected ) { integer i; for( i = 0; i &lt; num_detected; i++ ) { sayHelp( llDetectedKey(i) == llGetOwner() ); } } // Erfasst die Avatare mit Zeitstempel sensor( integer number_detected ) { integer i; for( i = 0; i &lt; number_detected; i++ ) { // Den Eigentümer nicht mitzählen if( llDetectedKey( i ) != llGetOwner() ) { string detected_name = llDetectedName( i ); if( isNameOnList( detected_name ) == FALSE ) // Ja oder Nein, TRUE oder FALSE { float seconds = llGetWallclock(); float minutes = seconds / 60.0; float hours = minutes / 60.0; integer hours_int = (integer) hours; integer minutes_int = ((integer)minutes) % 60; if( minutes_int &lt; 10 ) { visitor_list += (string) hours_int + &quot;:0&quot; + (string) minutes_int; } else { visitor_list += (string) hours_int + &quot;:&quot; + (string) minutes_int; } visitor_list += detected_name; } } } } // Besitzer-Befehle listen( integer channel, string name, key id, string message ) { if( id != llGetOwner() ) { return; } if( message == &quot;help&quot; ) // Tippe im Chat /0 help und Du erhälst Hilfe zu den Befehlen { sayHelp( TRUE ); } else if( message == &quot;say list&quot; ) // Tippe im Chat /0 say list und Du erhälst eine Liste aller Avatare { llSay( 0, &quot;Avatar-Liste:&quot; ); integer len = llGetListLength( visitor_list ); integer i; for( i = 0; i &lt; len; i++ ) { llSay( 0, llList2String(visitor_list, i) ); } llSay( 0, &quot;Gesamt = &quot; + (string)len ); } else if( message == &quot;email list&quot; ) { sendEmail(); llSay(0, &quot;E-Mail wird versendet.&quot;); } else if( message == &quot;reset list&quot; ) // Tippe im Chat /0 reset list um die Liste zurückzusetzen { visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list)); llSay( 0, &quot;Reset erfolgreich.&quot;); } } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:38 +0000 Freeview Media Screen http://itclive.spdns.de/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 Sim Crash Logger http://itclive.spdns.de/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 Dimmen http://itclive.spdns.de/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 Elevator http://itclive.spdns.de/wiki/archiv/opensim/downloads/scripts/elevator?do=revisions&rev=1575021519 <h2 class="sectionedit1" id="elevator">Elevator</h2> <div class="level2"> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Elevator&quot;,&quot;hid&quot;:&quot;elevator&quot;,&quot;codeblockOffset&quot;:0,&quot;secid&quot;:1,&quot;range&quot;:&quot;1-22&quot;} --> <h3 class="sectionedit2" id="elevator_main_script">Elevator Main Script</h3> <div class="level3"> <pre class="code">// From the book: // // Scripting Recipes for Second Life // by Jeff Heaton (Encog Dod in SL) // ISBN: 160439000X // Copyright 2007 by Heaton Research, Inc. // // This script may be freely copied and modified so long as this header // remains unmodified. // // For more information about this book visit the following web site: // // http://www.heatonresearch.com/articles/series/22/ integer CHANNEL = 42; // dialog channel list MENU_MAIN = [&quot;Floor 1&quot;, &quot;Floor 2&quot;, &quot;Floor 3&quot;, &quot;Floor 4&quot;, &quot;Floor 5&quot;, &quot;Floor 6&quot;, &quot;Floor 7&quot;, &quot;Floor 8&quot;, &quot;Floor 9&quot;, &quot;Floor 10&quot;,&quot;Roof&quot;]; // the main menu float BOTTOM = 22.260; float FLOOR_HEIGHT = 10; float SPEED = 2; float target; default { state_entry() { llListen(CHANNEL, &quot;&quot;, NULL_KEY, &quot;&quot;); // listen for dialog answers (from multiple users) llSitTarget(&lt;0,-0.5,0.5&gt;, llEuler2Rot(&lt;0,0,-90&gt;) ); llSetText(&quot;Sit Here to Ride Elevator&quot;,&lt;0,0,0&gt;,1.0); target = BOTTOM; } listen(integer channel, string name, key id, string message) { integer idx = llListFindList(MENU_MAIN, [message]); if( idx!=-1 ) { llSay(0,&quot;Elevator heading to &quot; + message + &quot;.&quot; ); target = BOTTOM + (idx*10); state moving; } } changed(integer Change) { llDialog(llAvatarOnSitTarget(), &quot;Where to?&quot;, MENU_MAIN, CHANNEL); } } state moving { state_entry() { llSetTimerEvent(0.1); } timer() { vector pos = llGetPos(); if( pos.z!=target ) { if( pos.z&gt;target ) { pos.z = pos.z - SPEED; } else { pos.z = pos.z + SPEED; } } if( llFabs(pos.z - target) &lt; SPEED ) { pos.z = target; llSetTimerEvent(0); llSetPos(pos); llSay(0,&quot;Elevator has reached its target.&quot; ); state default; } llSetPos(pos); } }</pre> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Elevator Main Script&quot;,&quot;hid&quot;:&quot;elevator_main_script&quot;,&quot;codeblockOffset&quot;:0,&quot;secid&quot;:2,&quot;range&quot;:&quot;23-2117&quot;} --> <h3 class="sectionedit3" id="elevator_call_button">Elevator Call Button</h3> <div class="level3"> <pre class="code">integer CHANNEL = 42; // dialog channel default { state_entry() { llSetText(&quot;Touch to Call Elevator&quot;,&lt;0,0,0&gt;,1.0); } touch_start(integer total_number) { llRegionSay(42, &quot;Floor 1&quot;); } }</pre> </div> <!-- EDIT{&quot;target&quot;:&quot;section&quot;,&quot;name&quot;:&quot;Elevator Call Button&quot;,&quot;hid&quot;:&quot;elevator_call_button&quot;,&quot;codeblockOffset&quot;:1,&quot;secid&quot;:3,&quot;range&quot;:&quot;2118-&quot;} --> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:39 +0000 Follower http://itclive.spdns.de/wiki/archiv/opensim/downloads/scripts/follower?do=revisions&rev=1575021520 <h2 class="sectionedit1" id="follower">Follower</h2> <div class="level2"> <pre class="code">vector offset = &lt; -1, 0, 1&gt;; //1 meter behind and 1 meter above owner&#039;s center. default { state_entry() { llSetStatus(STATUS_PHYSICS, TRUE); // Little pause to allow server to make potentially large linked object physical. llSleep(0.1); // Look for owner within 20 metres in 360 degree arc every 1 seconds. llSensorRepeat(&quot;&quot;, llGetOwner(), AGENT, 20.0, PI,1.0); } sensor(integer total_number) { // Owner detected... // Get position and rotation vector pos = llDetectedPos(0); rotation rot = llDetectedRot(0); // Offset back one metre in X and up one metre in Z based on world coordinates. // use whatever offset you want. vector worldOffset = offset; // Offset relative to owner needs a quaternion. vector avOffset = offset * rot; pos += avOffset; // use the one you want, world or relative to AV. llMoveToTarget(pos,0.4); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:40 +0000 Particle System http://itclive.spdns.de/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 Visitor List Recorder http://itclive.spdns.de/wiki/archiv/opensim/downloads/scripts/visitor_list_recorder?do=revisions&rev=1575021525 <h2 class="sectionedit1" id="visitor_list_recorder">Visitor List Recorder</h2> <div class="level2"> <pre class="code">// Global variables list visitor_list; float range = 10.0; // in meters float rate = 1.0; // in seconds // Functions integer isNameOnList( string name ) { integer len = llGetListLength( visitor_list ); integer i; for( i = 0; i &lt; len; i++ ) { if( llList2String(visitor_list, i) == name ) { return TRUE; } } return FALSE; } // States default { state_entry() { llSay(0, &quot;Visitor List Maker started...&quot;); llSay(0, &quot;The owner can say &#039;help&#039; for instructions.&quot;); llSensorRepeat( &quot;&quot;, &quot;&quot;, AGENT, range, TWO_PI, rate ); llListen(0, &quot;&quot;, llGetOwner(), &quot;&quot;); } sensor( integer number_detected ) { integer i; for( i = 0; i &lt; number_detected; i++ ) { if( llDetectedKey( i ) != llGetOwner() ) { string detected_name = llDetectedName( i ); if( isNameOnList( detected_name ) == FALSE ) { visitor_list += detected_name; } } } } listen( integer channel, string name, key id, string message ) { if( id != llGetOwner() ) { return; } if( message == &quot;help&quot; ) { llSay( 0, &quot;This object records the names of everyone who&quot; ); llSay( 0, &quot;comes within &quot;+ (string)range + &quot; meters.&quot; ); llSay( 0, &quot;Commands the owner can say:&quot; ); llSay( 0, &quot;&#039;help&#039; - Shows these instructions.&quot; ); llSay( 0, &quot;&#039;say list&#039; - Says the names of all visitors on the list.&quot;); llSay( 0, &quot;&#039;reset list&#039; - Removes all the names from the list.&quot; ); } else if( message == &quot;say list&quot; ) { llSay( 0, &quot;Visitor List:&quot; ); integer len = llGetListLength( visitor_list ); integer i; for( i = 0; i &lt; len; i++ ) { llSay( 0, llList2String(visitor_list, i) ); } llSay( 0, &quot;Total = &quot; + (string)len ); } else if( message == &quot;reset list&quot; ) { visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list)); llSay( 0, &quot;Done resetting.&quot;); } } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:45 +0000 Wetterkarte http://itclive.spdns.de/wiki/archiv/opensim/downloads/scripts/wetterkarte?do=revisions&rev=1575021525 <h2 class="sectionedit1" id="wetterkarte">Wetterkarte</h2> <div class="level2"> <pre class="code">integer count = 0; integer refreshRate = 300; string URL1 = &quot;http://icons.wunderground.com/data/640x480/2xus_rd.gif&quot;; string URL2 = &quot;http://icons.wunderground.com/data/640x480/2xus_sf.gif&quot;; string URL3 = &quot;http://icons.wunderground.com/data/640x480/2xus_st.gif&quot;; string dynamicID=&quot;&quot;; string contentType=&quot;image&quot;; refresh_texture() { count++; string url = &quot;&quot;; integer c = count % 3; if (c == 0) { url = URL1; } else if (c == 1) { url = URL2; } else { url = URL3; } // refresh rate is not yet respected here, which is why we need the timer osSetDynamicTextureURL(dynamicID, contentType ,url , &quot;&quot;, refreshRate ); } default { state_entry() { refresh_texture(); llSetTimerEvent(refreshRate); // create a &quot;timer event&quot; every 300 seconds. } timer() { refresh_texture(); } touch_start(integer times) { refresh_texture(); } }</pre> </div> anonymous@undisclosed.example.com (Anonymous) archiv:opensim:downloads:scripts Fri, 29 Nov 2019 10:58:45 +0000