move IT Home Base

Sim Crash Logger

anonymous@undisclosed.example.com (Anonymous) — Fri, 29 Nov 2019 10:58:43 +0000

Sim Crash Logger

//********************************************************
//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,["T",":",":","."],[]);
        integer _hour = llList2Integer(temp,1) + 4;
        if(_hour > 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 += "\n FPS:"+(string)avg_FPS;
        buffer += " dil. :"+(string)avg_dilation;
        //buffer += "\n" + llDumpList2String(log,"\n");

        integer _UNIX = _sec + _min * 60 + _hour * 3600;//making our timestamp
       
        if (_UNIX - UNIX > timering + 5 && UNIX != 0)//okay the delay has been waaay too olong, it probably crashed or rebooted
        {
            crash++;
            log += (string)_date + " - " + (string)_hour+ ":"+(string)_min+":"+(string)_sec;
            if(llGetListLength(log) > 9)
                log = llDeleteSubList(log,0,0);
        }
        buffer += "\n sim crashes: " + (string)crash + "\n last crash: \n" + llDumpList2String(log,"\n");
        if(_buffer != buffer); //display
        {
            llSetText(buffer,<1,1,1>,1.0);
            _buffer = buffer;   
        }
        UNIX = _UNIX;
    }
}

E-Mail

anonymous@undisclosed.example.com (Anonymous) — Fri, 29 Nov 2019 10:58:39 +0000

E-Mail

Damit dieses Script funktionieren kann muss zuvor die E-Mail Funktion in der Konfigurationsdatei opensim.ini eingeschaltet und konfiguriert werden.

string email_address = "adresse@domain.xyz"; // who will receive the messages
string hname = "User Name"; // 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("click to send " + hname + " an email",<1,1,1>,1);
        llEmail( email_address, "Initializing Email Module", "[STARTUP COMPLETE]");
    }

    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, "Prim Touched", "I was touched by: " + llDetectedName(i) + "\nKey: " + (string) llDetectedKey(i) + "\n On the Following Date: " + date);
        while(++i < num_detected);
        llSay(0,"------------------------>");
        llSay(0,"E-Mail sent from " + name + "@" + sim + ".DOMAIN");
        llSay(0,"------------------------>");
        llPlaySound("Boing", 1.0);
    }
}

Feed Reader

anonymous@undisclosed.example.com (Anonymous) — Fri, 29 Nov 2019 10:58:40 +0000

Feed Reader

default
{
    state_entry()
    {
        llHTTPRequest("http://DOMAIN/feed.php",[],"");
    }
    http_response(key id,integer status,list metadat,string body)
    {
        list a = llParseString2List(body,["description>"],[]);
        list b = llParseString2List(llList2String(a,1),["</"],[]);
        string Desc = llList2String(b,0);
        list c = llParseString2List(body,["<title>"],[]);
        list d = llParseString2List(llList2String(c,1),["</"],[]);
        string Start = llList2String(d,0);
        d = [];
        list e = llParseString2List(body,["<pubDate>"],[]);
        list f = llParseString2List(llList2String(e,1),["+0000"],[]);
        string Date = llList2String(f,0);
        f= [];
        list g = llParseString2List(llList2String(c,2),["</"],[]);
        string Title = llList2String(g,0);
        list get = llParseString2List(llList2String(g,0),["#38;"],[]);
        g = [];
        list h = llParseString2List(body,["<description><![CDATA["],[]);
        f = llParseString2List(llList2String(h,1),["]]></description>"],[]);
        string Info = llList2String(f,0);
        list j = llParseString2List(Info,["#38;"],[]);
        if(llGetListLength(j) > 0)
        {
            Info = "";
            integer i;
            for(i = 0;i < llGetListLength(j);i++)
            {
                Info += llList2String(j,i);
            }
        }
        if(llGetListLength(get) > 0)
        {
            Title = "";
            integer i;
            for(i = 0;i < llGetListLength(get);i++)
            {
                Title += llList2String(get,i);
            }
        }
        j = llParseString2List(Info,["."],[]);
        if(llGetListLength(j) > 0 & llStringLength(Info) > 700)
        {
            llSay(0,"OpenSim Blog"+"\n"+Title+"\n"+Desc+"\n"+Start+"\n"+Date);
            integer i;
            for(i = 0;i < llGetListLength(j);i++)
            {
                llSay(0,llList2String(j,i));
            }
        }
        else
        {
            llSay(0,"OpenSim Blog"+"\n"+Title+"\n"+Desc+"\n"+Start+"\n"+Date+"\n"+Info);
        }
    }
}

Besucherzähler mit E-Mail Benachrichtigung

anonymous@undisclosed.example.com (Anonymous) — Fri, 29 Nov 2019 10:58:38 +0000

Besucherzähler mit E-Mail Benachrichtigung

Damit dieses Script funktionieren kann muss zuerst in der OpenSIM-Konfigurationsdatei opensim.ini die E-Mail Funktion im Abschnitt SMTP eingeschaltet und konfiguriert werden.

// 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 = "adresse@domain.xyz";

// Name der zu kontrollierenden Region
// Die versandte E-Mail beinhaltet die Koordinaten
string location_name = "OpenSIM-Region";

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, "Visitor List: " + location_name, csv );
}

resetList()
{
single_name_list = llDeleteSubList(single_name_list, 0, llGetListLength(single_name_list));
llSay( 0, "Reset abgeschlossen");
}

// Hilfe Befehle
sayHelp( integer is_owner )
{
if( is_owner )
{
llSay( 0, "Dieses Objekt speichert die Namen von jedem Avatars der" );
llSay( 0, "in den Bereich von "+ (string)((integer)range) + " Metern kommt." );
llSay( 0, "Kommandos die der Besitzer sagen kann:" );
llSay( 0, "'help' - Zeigt diese Anleitung" );
llSay( 0, "'say list' - Zeigt die Namen aller Avatare auf der Liste");
llSay( 0, "'reset list' - Loescht die Namen auf der Liste" );
llSay( 0, "' email list' - Sendet die Namen auf der Liste als E-Mail" );
}
else
{
llSay( 0, "Sorry, nur der Besitzer kann editieren." );
}
}

// Script-Start
default
{
state_entry()
{
llSay(0, "Besucherzaehler wurde gestartet.");
llSay(0, "Der Besitzer kann mit 'help' eine Kurzanleitung anfordern.");
llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
llListen(0, "", llGetOwner(), "");

// 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 < num_detected; i++ )
{
sayHelp( llDetectedKey(i) == llGetOwner() );
}
}

// Erfasst die Avatare mit Zeitstempel
sensor( integer number_detected )
{
integer i;
for( i = 0; i < 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 < 10 )
{
visitor_list += (string) hours_int + ":0" + (string) minutes_int;
}
else
{
visitor_list += (string) hours_int + ":" + (string) minutes_int;
}

visitor_list += detected_name;
}
}
}
}

// Besitzer-Befehle
listen( integer channel, string name, key id, string message )
{
if( id != llGetOwner() )
{
return;
}

if( message == "help" ) // Tippe im Chat /0 help und Du erhälst Hilfe zu den Befehlen
{
sayHelp( TRUE );
}
else
if( message == "say list" ) // Tippe im Chat /0 say list und Du erhälst eine Liste aller Avatare
{
llSay( 0, "Avatar-Liste:" );
integer len = llGetListLength( visitor_list );
integer i;
for( i = 0; i < len; i++ )
{
llSay( 0, llList2String(visitor_list, i) );
}
llSay( 0, "Gesamt = " + (string)len );
}
else
if( message == "email list" )
{
sendEmail();
llSay(0, "E-Mail wird versendet.");

}

else
if( message == "reset list" ) // Tippe im Chat /0 reset list um die Liste zurückzusetzen
{
visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
llSay( 0, "Reset erfolgreich.");
}
}
}

Invisible Prim 2

anonymous@undisclosed.example.com (Anonymous) — Fri, 29 Nov 2019 10:58:41 +0000

Invisible Prim 2

// Invisible Prim Public v1.1b
// last updated Mar. 22, 2006

init()
{
llSetPrimitiveParams([PRIM_BUMP_SHINY, ALL_SIDES, PRIM_SHINY_NONE, PRIM_BUMP_BRIGHT]);
llOffsetTexture(0.468, 0.0, ALL_SIDES);
llScaleTexture(0.0, 0.0, ALL_SIDES);
llSetAlpha(1.0, ALL_SIDES);
}

refresh()
{
llSetTexture("38b86f85-2575-52a9-a531-23108d8da837", ALL_SIDES);
llSleep(30);
llSetTexture("e97cf410-8e61-7005-ec06-629eba4cd1fb", ALL_SIDES);
}

default
{
state_entry()
{
init();
llSetTimerEvent(5);
}

on_rez(integer start_param)
{
init();
}

timer()
{
if ((integer)llGetWallclock() % 60 < 10)
{
refresh();
}
}
}

Snow 2 (Schnee)

anonymous@undisclosed.example.com (Anonymous) — Fri, 29 Nov 2019 10:58:44 +0000

Snow 2 (Schnee)

Snow
{
	quota	30000
	material	Flare
	particle_width	0.3
	particle_height	0.3
	cull_each	true
	renderer	billboard
	sorted	true
	local_space	false
	iteration_interval	0
	nonvisible_update_timeout	0
	billboard_type	point
	billboard_origin	center
	billboard_rotation_type	texcoord
	common_up_vector	0 1 0
	point_rendering	false
	accurate_facing	false

	emitter Box
	{
		angle	0
		colour	1 1 1 1
		colour_range_start	1 1 1 1
		colour_range_end	1 1 1 1
		direction	0 -1 0
		emission_rate	1250
		position	0 5 0
		velocity	10
		velocity_min	10
		velocity_max	15
		time_to_live	20
		time_to_live_min	20
		time_to_live_max	20
		duration	0
		duration_min	0
		duration_max	0
		repeat_delay	0
		repeat_delay_min	0
		repeat_delay_max	0
		width	200
		height	200
		depth	1
	}

	affector DeflectorPlane
	{
		plane_point	0 0 0
		plane_normal	0 1 0
		bounce	0
	}

	affector DirectionRandomiser
	{
		randomness	7
		scope	1
		keep_velocity	true
	}
}

Tip Jar / Donation Box

anonymous@undisclosed.example.com (Anonymous) — Fri, 29 Nov 2019 10:58:45 +0000

Tip Jar / Donation Box

//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: 
//"<your name>'s donation hat. 
//Donate if you are so inclined." 
//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 + "'s Tip Jar.\nPlease tip if you are so inclined!\n$L0 Donated so far",<.25,1,.65>,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, <1,1,1>, 
            PSYS_PART_START_COLOR, <1,0.2,0.2>, 
            PSYS_PART_END_COLOR, <1,0,0>, 
            PSYS_PART_START_ALPHA, 1.0, 
            PSYS_PART_END_ALPHA, 0.0 
        ]); 
        // Rotate 
         llTargetOmega(<0,0,0.05>,PI,0.05); 
    } 
 
    money(key id, integer amount) 
    { 
        totaldonated += amount; 
        llSetText( owner + "'s Tip Jar.\nPlease tip if you are so inclined!\n$L" + (string)amount + " Was donated last!\n" + "$L" + (string)totaldonated + " Donated so far",<.25,1,.65>,1); 
        llInstantMessage(id,"Thanks for the tip!  I really appreciate it."); 
        llInstantMessage(llGetOwner(),(string)llKey2Name(id)+" donated $" + (string)amount); 
    } 
}