move IT Home Base

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.");
}
}
}

Freeview Media Screen

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

Freeview Media Screen

//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 'Fix Scale' 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 = "71b8ff26-087d-5f44-285b-d38df2e11a81";  //Test pattern - Used as default video texture when one is missing in parcel media
key BLANK = "5748decc-f629-461c-9a36-a35a221fe21f"; //Blank texture - Used when there are no textures to display in Picture mode
string NOTECARD = "bookmarks";  //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, <1,1,1>, 1.0, PRIM_MATERIAL, PRIM_MATERIAL_PLASTIC, PRIM_FULLBRIGHT, DISPLAY_ON_SIDE, PICTURE_BRIGHT]);

    integer check = llGetInventoryNumber(INVENTORY_TEXTURE);
     
    if(check == 0)
    {
        report("No pictures found.");
        llSetTexture(BLANK,DISPLAY_ON_SIDE);
        return;
    }
    else    
        if(current_texture > 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, <1,1,1>, 1.0, PRIM_MATERIAL, PRIM_MATERIAL_PLASTIC, PRIM_FULLBRIGHT, DISPLAY_ON_SIDE, VIDEO_BRIGHT, PRIM_TEXTURE, DISPLAY_ON_SIDE, "62dc73ca-265f-7ca0-0453-e2a6aa60bb6f", llGetTextureScale(DISPLAY_ON_SIDE), llGetTextureOffset(DISPLAY_ON_SIDE), llGetTextureRot(DISPLAY_ON_SIDE)]);
    
    report("Video mode"+moviename+": Stopped");
    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,"No parcel media texture found. Setting texture to default: "+(string)VIDEO_DEFAULT);
        if(llGetLandOwnerAt(llGetPos()) != llGetOwner())
            llSay(0,"Error: Cannot modify parcel media settings. "+llGetObjectName()+" is not owned by parcel owner.");
    }
    
    llSetTexture(video_texture,DISPLAY_ON_SIDE);
}

off()
{
    report("Click to power on.");
    llSetPrimitiveParams([PRIM_BUMP_SHINY, DISPLAY_ON_SIDE, PRIM_SHINY_LOW, PRIM_BUMP_NONE, PRIM_COLOR, DISPLAY_ON_SIDE, <0.1,0.1,0.1>, 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's inventory number
{
    integer i;
    for(i=0;i<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 = " ["+moviename+"]";
    tempmoviename = "";
    string oldurl = llList2String(llParcelMediaQuery([PARCEL_MEDIA_COMMAND_URL]),0);
    if(oldurl != "")
        llOwnerSay("Setting new media URL. The old URL was: "+oldurl);

    llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_URL,url]);
    if(id!=NULL_KEY)
        menu(id);
    else
    {
        report("Video mode"+moviename+": Playing");
        llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_PLAY]);
    }
       
    if(isGroup)
        llSay(0,"New media URL set.");
    else
        llOwnerSay("New media URL set: "+url);
}

string mediatype(string ext)    //Returns a string stating the filetype of a file based on file extension
{
    ext = llToLower(ext);
    if(ext == "swf")
        return "Flash";
    if(ext == "mov" || ext == "avi" || ext == "mpg" || ext == "mpeg" || ext == "smil")
        return "Video";
    if(ext == "jpg" || ext == "mpeg" || ext == "gif" || ext == "png" || ext == "pict" || ext == "tga" || ext == "tiff" || ext == "sgi" || ext == "bmp")
        return "Image";
    if(ext == "txt")
        return "Text";
    if(ext == "mp3" || ext == "wav")
        return "Audio";
    return "Unknown";
}

browse(key id)      //Image browser function for picture viewer mode
{
    integer check = llGetInventoryNumber(INVENTORY_TEXTURE);
    string header;
    if(check > 0)
        header = "("+(string)(current_texture+1)+"/"+(string)check+") "+llGetInventoryName(INVENTORY_TEXTURE,current_texture);
    else
        header = "No pictures found.";
    llDialog(id,"** Monitor Control **\n Picture Viewer mode\n- Image browser\n- "+header,["Back","Next","Menu"],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,"","","");
    listenTimer = (integer)llGetTime() + 120;
    if(loop_image == FALSE)
        llSetTimerEvent(45);
}

config(key id)      //Configuration menu
{
    extendtimer();
    llDialog(id,"Current media URL:\n"+llList2String(llParcelMediaQuery([PARCEL_MEDIA_COMMAND_URL]),0)+"\nTip: If the picture is abit off, try 'Align ON'",["Set URL","Align ON","Align OFF","Menu","Set Remote"],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 = "** Monitor control **";
    
    extendtimer();

    if(mode != 0)
    {
        if(mode == 1)       //Pictures menu
        {
            title+="\n  Picture Viewer mode";
            buttons+=["Browse"];
            if(loop_image == FALSE)
                buttons+=["Loop"];
            else
                buttons+=["Unloop"];
            buttons+=["Video","Power off","Help","Fix scale"];
        }
        else                //Video menu
        {
            title+="\n Video display mode\n"+moviename+"\nTip:\nClick 'TV Guide' to view the Online bookmarks.";
            buttons+=["Pictures","Configure","Power off","Loop","Unload","Help","Play","Stop","Pause","TV Guide","Bookmarks","Set URL"];
        }
    }
    else
        buttons += ["Pictures","Video","Help"];
    
    llDialog(id,title,buttons,chan);
}

display_texture(integer check)  //Display texture and set name in description (picture mode)
{                               //"Check" holds the number of textures in contents. The function uses "current_texture" to display.
    string name = llGetInventoryName(INVENTORY_TEXTURE,current_texture);
    llSetTexture(name,DISPLAY_ON_SIDE);
    report("Showing picture: "+name+" ("+(string)(current_texture+1)+"/"+(string)check+")");
}
    

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("No pictures found.");
        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 <= 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() && 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,"Detected change in ownership. Attempting to obtain current parcel media texture...");
                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("No pictures found.");
                }
            }
            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 == "Pictures")
        {
            if(mode == 2)
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_STOP]);
            pictures();
            mode = 1;
            menu(id);
            return;
        }
        if(message == "Video")
        {
            video();
            mode = 2;
            menu(id);
            return;
        }
        if(message == "Power off")
        {
            if(mode == 2)
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_UNLOAD]);
            off();
            mode = 0;
            return;
        }
        if(message == "Help")
        {
            llSay(0,"Help documentation is available at: http://www.slguide.com/help");
            if(isGroup)
            {
                if(id == NULL_KEY)
                {
                    llSay(0,"FreeView cannot load help pages while set to group without the remote.");
                    llSay(0,"For further assistance, please consult: http://slguide.com/help");
                }
                else
                    tell_remote("HELP"+(string)id+(string)XML_channel);
            }
            else
                llLoadURL(id,"Help pages for FreeView","http://www.slguide.com?c="+(string)XML_channel+"&help=1");
        }
        if(mode == 1)
        {
            if(message == "Browse")
            {
                loop_image = FALSE;
                browse(id);
                return;
            }
            if(message == "Next")
            {
                extendtimer();
                next();
                browse(id);
            }
            if(message == "Back")
            {
                extendtimer();
                current_texture--;
                integer check = llGetInventoryNumber(INVENTORY_TEXTURE);
                if(check == 0)
                {
                    llSetTexture(BLANK,DISPLAY_ON_SIDE);
                    current_texture = 0;
                    report("No pictures found.");
                    return;
                }
                if(current_texture < 0)
                    current_texture = check - 1;
                
                display_texture(check);
                
                browse(id);
                return;
            }
            if(message == "Menu")
            {
                menu(id);
                return;
            }
            if(message == "Loop")
            {
                llSetTimerEvent(PICTURE_ROTATION_TIMER);
                loop_image = TRUE;
                llOwnerSay("Picture will change every "+(string)PICTURE_ROTATION_TIMER+" seconds.");
                return;
            }
            if(message == "Unloop")
            {
                loop_image = FALSE;
                llOwnerSay("Picture loop disabled.");
                return;
            }
            if(message == "Fix scale")
            {
                llSay(0,"Setting display texture to 1,1 repeats and 0,0 offset.");
                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,"Remote configured ("+(string)id+")");
            }
                
            if(message == "TV Guide")
            {
                if(isGroup)
                {
                    if(!encryption)
                    {
                        llSay(0,"** Error - This FreeView object has been deeded to group. You must use a Remote control to open the TV Guide.");
                        llSay(0,"You can set up the remote control from the Video -> Configuration menu. Please refer to the notecard for further assistance.");
                        return;
                    }
                    tell_remote((string)id+(string)XML_channel+(string)llGetOwner());
                }
                else
                    llLoadURL(id, "Come to the Guide to Start Your Viewer Playing!", "http://slguide.com/index.php?v=" + (string)llGetKey() + "&c=" + (string)XML_channel + "&o=" + (string)llGetOwner() + "&");
                return;
            }

            string header = "Video mode"+moviename+": ";
            
            if(message == "<< Prev")
            {
                notecardline--;
                if(notecardline < 0)
                    notecardline = numberofnotecardlines - 1;
                tempuser = id;
                llGetNotecardLine(NOTECARD,notecardline);
                return;
            }
            if(message == "Next >>")
            {
                notecardline++;
                if(notecardline >= numberofnotecardlines)
                    notecardline = 0;
                tempuser = id;
                llGetNotecardLine(NOTECARD,notecardline);
                return;
            }
            if(message == "Use")
            {
                if(tempurl == "** No URL specified! **")
                    tempurl = "";
                seturl(tempurl,id);
                return;
            }
                    
            if(message == "Menu")
            {
                menu(id);
                return;
            }
            if(message == "Configure")
            {
                config(id);
                return;
            }
            if(message == "Bookmarks")
            {
                if(notecardcheck != -1)
                {
                    llDialog(id,"Error: No valid bookmark data found in notecard '"+NOTECARD+"'.",["Menu"],chan);
                    return;
                }
                if(finditem(NOTECARD) != -1)                
                {
                    tempuser = id;
                    if(numberofnotecardlines < notecardline)
                        notecardline = 0;
                    llGetNotecardLine(NOTECARD,notecardline);
                }
                else
                    llDialog(id,"Error: No notecard named "+NOTECARD+" found in contents.",["Menu"],chan);
                return;
            }
            
            if(llGetLandOwnerAt(llGetPos()) != llGetOwner())    //If we do not have permissions to actually do the following functions
            {
                llSay(0,"Error: Cannot modify parcel media settings. "+llGetObjectName()+" is not owned by parcel owner.");
                menu(id);
                return; //Abort
            }
            
            if(listenUrl != -1 && channel == 1) //Incoming data from "Set URL" command (user spoke on channel 1)
            {
                llListenRemove(listenUrl);
                listenUrl = -1;
                tempmoviename = "";
                seturl(message,id);
            }
            if(message == "Play")
            {
                report(header+"Playing");
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_PLAY]);
                return;
            }
            if(message == "Stop")
            {
                report(header+"Stopped");
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_STOP]);
                return;
            }
            if(message == "Pause")
            {
                report(header+"Paused");
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_PAUSE]);
                return;
            }
            if(message == "Unload")
            {
                report(header+"Stopped");
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_UNLOAD]);
                return;
            }
            if(message == "Loop")
            {
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_LOOP]);
                return;
            }
            //URL , Auto-Scale, 
            if(message == "Set URL")
            {
                report(header+"Stopped");
                listenUrl = llListen(1,"",id,"");
                llDialog(id,"Please type the URL of your choice with /1 in thebegining. For example, /1 www.google.com",["Ok"],938);
                return;
            }
            if(message == "Align ON")
            {
                report(header+"Stopped");
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_AUTO_ALIGN,TRUE]);
                menu(id);
                return;
            }
            if(message == "Align OFF")
            {
                report(header+"Stopped");
                llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_AUTO_ALIGN,FALSE]);
                menu(id);
                return;
            }
            if(message == "Set Remote")
            {
                llSay(0,"Configuring remote...");
                encryption = 0;
                llListenRemove(listenRemote);
                listenRemote = llListen(REMOTE_CHANNEL,"","","");
                llSay(REMOTE_CHANNEL,"SETUP");
            }
        }
    }
    
    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 == "")
                {
                    notecardcheck++;
                    llGetNotecardLine(NOTECARD,notecardcheck);
                }
                else
                {
                    notecardcheck = -1;
                    return;
                }
            }
            else
                return;
        }

        if(data == "" && notecardline < numberofnotecardlines)    //If user just pressed "enter" in bookmarks, skip
        {
            notecardline++;
            llGetNotecardLine(NOTECARD,notecardline);
            return;
        }
        
        if(data == EOF)
        {
            notecardline = 0;
            llGetNotecardLine(NOTECARD,notecardline);
            return;
        }
        list parsed = llParseString2List(data,["|","| "," |"," | "],[]);    //Ensure no blank spaces before "http://".
        string name = llList2String(parsed,0);
        tempurl = llList2String(parsed,1);
        if(tempurl == "")
            tempurl = "** No URL specified! **";
            
        tempmoviename = name;
                
        llDialog(tempuser,"Bookmarks notecard ("+(string)(notecardline+1)+"/"+(string)numberofnotecardlines+")\n"+name+" ("+mediatype(llList2String(llParseString2List(tempurl,["."],[]),-1))+")\n"+tempurl,["<< Prev","Use","Next >>","Menu"],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, ["|"], []);
            tempmoviename = llList2String(media_info,0);
            seturl(llList2String(media_info,1),NULL_KEY);
            llRemoteDataReply(channel, message_id, sval, 1);
        }
    }
    
    timer()
    {
        if(llGetTime() > 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're not looping pictures or are in picture mode at all
                llSetTimerEvent(0.0);   //Remove timer
        }
        
        if(loop_image == TRUE && mode == 1) //If we're looping pictures and and we're in picture mode...
            next(); //Next picture
    }
}

Texture Dropper

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

Texture Dropper

// **** Texture Dropper Screen v1.11, by Mircea Kitsune & Sm0key ****

// -------- Settings: --------
// Modify these to adjust the properties of your screen. Unless a specific value is required, use TRUE or FALSE.

integer face = 0; //Primitive face to be used as screen.
integer text = 2; //0 means no text, 1 displays lock status, 2 displays lock status and image + creator names. Selecting 2 clears the image between script restarts.
integer notices = TRUE; //Echo information such as locking / unlocking of the screen and error messages in-world.

integer lockdefault = FALSE; //Set to TRUE if the screen is to be locked by default. Relevant in the case of script restarts and when using the "clear" command.
integer lockonpost = FALSE; //If TRUE the screen is locked once someone posts the first picture in it, useful for 'find and claim' screens.
    integer creatorlock = TRUE; //When lockonpost is also TRUE, this allows the creator of the displayed image to lock / unlock or clear the screen.

string screenname = "screen"; //The name which best describes what your object is, used for info and text display (eg: screen, painting, monitor).
string sound = ""; //A sound to be played each time a new image is posted. Leave this string empty to disable sounds.
    float soundvol = 1; //Volume of the sound specified above, can be anything between 0 and 1.

// -------- Script: --------
// Modify anything below if you are a scripter and want to change something else in the script.

string ScriptName;
string InvName;
string InvCreator;
string Toucher;

string Blank = "5748decc-f629-461c-9a36-a35a221fe21f"; //UUID of the blank texture.
integer CmdChan = 9945; //System channel for llDialog.

default
{
    state_entry()
    {
        ScriptName = llGetScriptName();
        llPreloadSound(sound);
        if(text == 2) //Set texture to blank when names are used to avoid images with no names between script restarts.
        {
            llSetTexture(Blank, face);
            llPlaySound(sound, soundvol);
        }
        else if(text != 1 | text != 2)
        {
            llSetText("", <0,0,0>, 0);
        }
       
        if(lockdefault == TRUE)
        {
            state locked;
        }
        else
        {
            state unlocked;
        }
    }
}

state locked
{
    state_entry()
    {
        llAllowInventoryDrop(0);
        llListen(CmdChan, "", NULL_KEY, "" );
        if(notices == 1)
        {
            llSay(0, "The " + screenname + " is now locked.");
        }
       
        if(text == 2 & InvName != "")
        {
            llSetText("[" + screenname + " locked] - " + InvName + " by " + InvCreator, <1,0.5,0.5>, 1);
        }
        else if(text == 1 | text == 2 & InvName == "")
        {
            llSetText("[" + screenname + " locked]", <1,0.5,0.5>, 1);
        }
    }
   
    touch_start(integer avatar)
    {
        Toucher = llDetectedKey(0);
        llSetTimerEvent(15);
        if (Toucher == llGetOwner())
        {
            llDialog(llDetectedKey(0) , "You are the owner of this screen. What do you wish to do?", ["unlock", "clear"], CmdChan);
        }
        else if(lockonpost == TRUE & creatorlock == TRUE & llKey2Name(Toucher) == InvCreator)
        {
            llDialog(llDetectedKey(0) , "You have been identified as the creator of the currently posted image. What do you wish to do?", ["unlock", "clear"], CmdChan);
        }
        else
        {
            llSay(0, "The " + screenname + " is locked. The owner must first unlock it before you can display new pictures.");
        }
    }
   
    listen(integer channel, string name, key id, string message)
    {
        if(Toucher == llGetOwner() | lockonpost == TRUE & creatorlock == TRUE & llKey2Name(Toucher) == InvCreator)
        {
            Toucher = ""; //Protection so if an owner was the last to touch the object not anyone is able to manually chat an owner-only command on the channel.
            if(llToLower(message) == "unlock")
            {
                state unlocked;
            }
            if(llToLower(message) == "clear")
            {
                llSetTexture(Blank, face);
                llPlaySound(sound, soundvol);
                InvName = "";
                InvCreator = "";
                if(lockdefault == TRUE)
                {
                    llSetText("[" + screenname + " locked]", <1,0.5,0.5>, 1);
                }
                else
                {
                    state unlocked;
                }
            }               
        }
    }
   
    timer()
    {
        Toucher = ""; //Further protection so if an owner ignores the dialog the screen does not remain vulnerable for anyone to chat an owner-only command to.
        llSetTimerEvent(0);
    }
}

state unlocked
{
    state_entry()
    {
        llAllowInventoryDrop(1);
        llListen(CmdChan, "", NULL_KEY, "" );
        if(notices == 1)
        {
            llSay(0, "The " + screenname + " is now unlocked.");
        }
       
        if(text == 2 & InvName != "")
        {
            llSetText("[" + screenname + " unlocked] - " + InvName + " by " + InvCreator, <0.5,1,0.5>, 1);
        }
        else if(text == 1 | text == 2 & InvName == "")
        {
            llSetText("[" + screenname + " unlocked]", <0.5,1,0.5>, 1);
        }
    }
   
    changed(integer mask)
    {
        if(mask & (CHANGED_ALLOWED_DROP | CHANGED_INVENTORY))
        {
            if(llGetInventoryNumber(0)) //Texture dropped
            {
                InvName = llGetInventoryName(INVENTORY_TEXTURE, 0);
                key InvKey = llGetInventoryKey(InvName);
                InvCreator = llKey2Name(llGetInventoryCreator(InvName));
                llRemoveInventory(InvName);
                llSetTexture(InvKey, face);
                llPlaySound(sound, soundvol);
                if(lockonpost == TRUE)
                {
                    state locked;
                }
                else if(text == 2)
                {
                    llSetText("[" + screenname + " unlocked] - " + InvName + " by " + InvCreator, <0.5,1,0.5>, 1);
                }
            }
            else //Something else dropped
            {
                integer Items = llGetInventoryNumber(-1);
                do
                {
                    string InvName = llGetInventoryName(INVENTORY_ALL, --Items);
                    if (InvName != ScriptName & InvName != sound)
                    {
                        llRemoveInventory(InvName);
                        if(notices == 1)
                        {
                            llSay(0, "Error - Only textures may be dropped inside the " + screenname + ".");
                        }
                    }
                }
                while(Items);
            }
        }
    }
   
    touch_start(integer avatar)
    {
        Toucher = llDetectedKey(0);
        llSetTimerEvent(15);
        if (Toucher == llGetOwner())
        {
            llDialog(llDetectedKey(0) , "You are the owner of this screen. What do you wish to do?", ["lock", "clear"], CmdChan);
        }
        else if(lockonpost == TRUE & creatorlock == TRUE & llKey2Name(Toucher) == InvCreator)
        {
            llDialog(llDetectedKey(0) , "You have been identified as the creator of the currently posted image. What do you wish to do?", ["lock", "clear"], CmdChan);
        }
        else
        {
            llSay(0, "The " + screenname + " is unlocked. Control + drag textures onto it to display them.");
        }
    }
   
    listen(integer channel, string name, key id, string message)
    {
        if(Toucher == llGetOwner() | lockonpost == TRUE & creatorlock == TRUE & llKey2Name(Toucher) == InvCreator)
        {
            Toucher = ""; //Protection so if an owner was the last to touch the object not anyone is able to manually chat an owner-only command on the channel.
            if(llToLower(message) == "lock")
            {
                state locked;
            }
            if(llToLower(message) == "clear")
            {
                llSetTexture(Blank, face);
                llPlaySound(sound, soundvol);
                InvName = "";
                InvCreator = "";
                if(lockdefault == TRUE)
                {
                    state locked;
                }
                else
                {
                    llSetText("[" + screenname + " unlocked]", <0.5,1,0.5>, 1);
                }
            }               
        }
    }
   
    timer()
    {
        Toucher = ""; //Further protection so if an owner ignores the dialog the screen does not remain vulnerable for anyone to chat an owner-only command to.
        llSetTimerEvent(0);
    }
}

Chatbot

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

Chatbot

Bot das sich mit Avataren per Chat „unterhalten“ kann. Erinnert etwas an „Eliza“. Eingebaut in ein entsprechend passendes Prim kann das Chat-Bot mit einer Anpassung der englischen Texte auch als Concierge dienen der ankommende Avatare begrüsst, oder eine Anleitung, Hilfestellung oder ähnliches gibt.

integer otherwise;

default
{
    state_entry()
    {
        llListen(0, "", NULL_KEY, "" );
        llSay(0, "State Entry");
    }
    
    listen(integer channel, string name, key id, string message)
    {
        string sentence = "spc" + message;
        integer otherwise = 0;
        if (llSubStringIndex(sentence,"hi")>0 | llSubStringIndex(sentence,"hello")>0 | llSubStringIndex(sentence,"hey")>0 | llSubStringIndex(sentence,"hey there")>0 | llSubStringIndex(sentence,"Hi")>0 | llSubStringIndex(sentence,"Hello")>0 | llSubStringIndex(sentence,"Hey there")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Hello there.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Hi.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Hey there. How are you?");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"how are you")>0 | llSubStringIndex(sentence,"hows you")>0 | llSubStringIndex(sentence,"how's you")>0 | llSubStringIndex(sentence,"how is you")>0 | llSubStringIndex(sentence,"How are you")>0 | llSubStringIndex(sentence,"Hows you")>0 | llSubStringIndex(sentence,"How's you")>0 | llSubStringIndex(sentence,"how is you")>0 | llSubStringIndex(sentence,"how are ya")>0 | llSubStringIndex(sentence,"hows ya")>0 | llSubStringIndex(sentence,"how's ya")>0 | llSubStringIndex(sentence,"how is ya")>0 | llSubStringIndex(sentence,"How are ya")>0 | llSubStringIndex(sentence,"Hows ya")>0 | llSubStringIndex(sentence,"How's ya")>0 | llSubStringIndex(sentence,"how is ya")>0)
            {
                integer choice = (integer) llFrand(6);
                if(choice == 1)
                {
                    llSay(0, "I'm ok.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I'm good, just a little busy I guess.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I'm fine, you?");
                }
                
                if(choice == 4)
                {
                    llSay(0, "I'm ok, yourself?");
                }
                
                if(choice == 5)
                {
                    llSay(0, "I'm doing well, thanks.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,",you?")>0 | llSubStringIndex(sentence,", you?")>0 | llSubStringIndex(sentence,".You?")>0 | llSubStringIndex(sentence,". You?")>0 | llSubStringIndex(sentence,"yourself?")>0 | llSubStringIndex(sentence,"Yourself?")>0 | message == "you?" | message == "You?")
            {
                integer choice = (integer) llFrand(3);
                if(choice == 1)
                {
                    llSay(0, "I'm good on this topic.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Same here.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"what with")>0 | llSubStringIndex(sentence,"with what")>0 | llSubStringIndex(sentence,"are you doing?")>0 | llSubStringIndex(sentence,"What with")>0 | llSubStringIndex(sentence,"With what")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Just random stuff I guess.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Just different things.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Just stuff.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"whats up")>0 | llSubStringIndex(sentence,"what's up")>0 | llSubStringIndex(sentence,"what are you up to")>0 | llSubStringIndex(sentence,"what you up to")>0 | llSubStringIndex(sentence,"what are you doing")>0 | llSubStringIndex(sentence,"what you doing")>0 | llSubStringIndex(sentence,"what's you doing")>0 | llSubStringIndex(sentence,"whats you doing")>0 | llSubStringIndex(sentence,"what's going on")>0 | llSubStringIndex(sentence,"what's you doing")>0 | llSubStringIndex(sentence,"Whats up")>0 | llSubStringIndex(sentence,"What's up")>0 | llSubStringIndex(sentence,"What are you up to")>0 | llSubStringIndex(sentence,"What you up to")>0 | llSubStringIndex(sentence,"What are you doing")>0 | llSubStringIndex(sentence,"What you doing")>0 | llSubStringIndex(sentence,"What's you doing")>0 | llSubStringIndex(sentence,"Whats you doing")>0 | llSubStringIndex(sentence,"What's going on")>0 | llSubStringIndex(sentence,"What's you doing")>0 | llSubStringIndex(sentence,"wassup")>0 | llSubStringIndex(sentence,"Wassup")>0)
            {
                integer choice = (integer) llFrand(6);
                if(choice == 1)
                {
                    llSay(0, "Not pretty much, just hanging around here and chatting with people. You?");
                }
                
                if(choice == 2)
                {
                    llSay(0, "A bit busy with stuff but nothing special otherwise.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Not much at the moment. Yourself?");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Just busy with a few things right now... not pretty much.");
                }
                
                if(choice == 5)
                {
                    llSay(0, "Just relaxing here for the moment. You?");
                }
                otherwise = 1;
            }

        if (llSubStringIndex(sentence,"m fine")>0 | llSubStringIndex(sentence,"m ok")>0 | llSubStringIndex(sentence,"m good")>0 | llSubStringIndex(sentence,"m well")>0 | llSubStringIndex(sentence,"m okay")>0 | llSubStringIndex(sentence,"m great")>0 | llSubStringIndex(sentence,"m perfect")>0 | llSubStringIndex(sentence,"m awesome")>0 | llSubStringIndex(sentence,"m better then ever")>0 | llSubStringIndex(sentence,"m cool")>0 | llSubStringIndex(sentence,"m happy")>0 | llSubStringIndex(sentence,"m feeling good")>0 | llSubStringIndex(sentence,"m feeling happy")>0 | llSubStringIndex(sentence,"m feeling ok")>0 | llSubStringIndex(sentence,"m feeling great")>0 | llSubStringIndex(sentence,"m feeling awesome")>0 | llSubStringIndex(sentence,"m feeling perfect")>0 | llSubStringIndex(sentence,"never felt better")>0 | llSubStringIndex(sentence,"Never felt better")>0 | llSubStringIndex(sentence,"never been better")>0 | llSubStringIndex(sentence,"Never been better")>0 | llSubStringIndex(sentence,"m pretty well")>0 | llSubStringIndex(sentence,"m pretty good")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "That's good, I'm happy to hear that.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Thats great. Glad you're feeling ok.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Happy to hear that.");
                }
                otherwise = 1;
            }

        if (llSubStringIndex(sentence,"not too well")>0 | llSubStringIndex(sentence,"not too good")>0 | llSubStringIndex(sentence,"not great")>0 | llSubStringIndex(sentence,"not too well")>0 | llSubStringIndex(sentence,"not too happy")>0 | llSubStringIndex(sentence,"not really happy")>0 | llSubStringIndex(sentence,"not really well")>0 | llSubStringIndex(sentence,"not really great")>0 | llSubStringIndex(sentence,"not so happy")>0 | llSubStringIndex(sentence,"not so well")>0 | llSubStringIndex(sentence,"not so great")>0 | llSubStringIndex(sentence,"not very happy")>0 | llSubStringIndex(sentence,"not that well")>0 | llSubStringIndex(sentence,"not that great")>0 | llSubStringIndex(sentence,"feeling horrible")>0 | llSubStringIndex(sentence,"feeling awful")>0 | llSubStringIndex(sentence,"feeling down")>0 | llSubStringIndex(sentence,"feeling sad")>0 | llSubStringIndex(sentence,"feeling bad")>0 | llSubStringIndex(sentence,"feeling depressed")>0 | llSubStringIndex(sentence,"a bit down")>0 | llSubStringIndex(sentence,"a bit sad")>0 | llSubStringIndex(sentence,"a bit depressed")>0 | llSubStringIndex(sentence,"Not too well")>0 | llSubStringIndex(sentence,"Not too good")>0 | llSubStringIndex(sentence,"Not great")>0 | llSubStringIndex(sentence,"Not too well")>0 | llSubStringIndex(sentence,"Not too happy")>0 | llSubStringIndex(sentence,"Not really happy")>0 | llSubStringIndex(sentence,"Not really well")>0 | llSubStringIndex(sentence,"Not really great")>0 | llSubStringIndex(sentence,"Not so happy")>0 | llSubStringIndex(sentence,"Not so well")>0 | llSubStringIndex(sentence,"Not so great")>0 | llSubStringIndex(sentence,"Not very happy")>0 | llSubStringIndex(sentence,"Not that well")>0 | llSubStringIndex(sentence,"Not that great")>0 | llSubStringIndex(sentence,"Feeling horrible")>0 | llSubStringIndex(sentence,"Feeling awful")>0 | llSubStringIndex(sentence,"Feeling down")>0 | llSubStringIndex(sentence,"Feeling sad")>0 | llSubStringIndex(sentence,"Feeling bad")>0 | llSubStringIndex(sentence,"Feeling depressed")>0 | llSubStringIndex(sentence,"A bit down")>0 | llSubStringIndex(sentence,"A bit sad")>0 | llSubStringIndex(sentence,"A bit depressed")>0 | llSubStringIndex(sentence,"Not at my best")>0  | llSubStringIndex(sentence,"not at my best")>0 | llSubStringIndex(sentence,"could be better")>0 | llSubStringIndex(sentence,"Could be better")>0)
            {
                integer choice = (integer) llFrand(6);
                if(choice == 1)
                {
                    llSay(0, "Why, what's wrong? Want to talk to me about it?");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I'm sorry to hear that, I hope you feel better.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Awww I'm sorry to hear that.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Why, why are you sad?");
                }
                
                if(choice == 5)
                {
                    llSay(0, "Ah... I'm sorry to hear that. Hope nothing too bad happened. Want to tell me what's wrong though?");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"thanks")>0 | llSubStringIndex(sentence,"thank you")>0 | llSubStringIndex(sentence,"thankies")>0 | llSubStringIndex(sentence,"Thanks")>0 | llSubStringIndex(sentence,"Thank you")>0 | llSubStringIndex(sentence,"Thankies")>0)
            {
                integer choice = (integer) llFrand(3);
                if(choice == 1)
                {
                    llSay(0, "No problem");
                }
                
                if(choice == 2)
                {
                    llSay(0, "No problem, it's ok :)");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"doesnt matter")>0 | llSubStringIndex(sentence,"doesn't matter")>0 | llSubStringIndex(sentence,"nevermind")>0 | llSubStringIndex(sentence,"forget it")>0 | llSubStringIndex(sentence,"forget about it")>0 | llSubStringIndex(sentence,"dont want to talk about it")>0 | llSubStringIndex(sentence,"don't want to talk about it")>0 | llSubStringIndex(sentence,"dont ask")>0 | llSubStringIndex(sentence,"don't ask")>0 | llSubStringIndex(sentence,"do not ask")>0 | llSubStringIndex(sentence,"not in the mood")>0 | llSubStringIndex(sentence,"nothing")>0 | llSubStringIndex(sentence,"Doesnt matter")>0 | llSubStringIndex(sentence,"Doesn't matter")>0 | llSubStringIndex(sentence,"Nevermind")>0 | llSubStringIndex(sentence,"Forget it")>0 | llSubStringIndex(sentence,"Forget about it")>0 | llSubStringIndex(sentence,"Dont want to talk about it")>0 | llSubStringIndex(sentence,"Don't want to talk about it")>0 | llSubStringIndex(sentence,"Dont ask")>0 | llSubStringIndex(sentence,"Don't ask")>0 | llSubStringIndex(sentence,"Do not ask")>0 | llSubStringIndex(sentence,"Not in the mood")>0 | llSubStringIndex(sentence,"Nothing")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "Ah... ok.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Ok. It's ok with me if you don't want to talk about it.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "If you say so.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Hmm ok. Hope you don't mind I asked.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"yes")>0 | llSubStringIndex(sentence,"yeah")>0 | llSubStringIndex(sentence,"true")>0 | llSubStringIndex(sentence,"indeed")>0 | llSubStringIndex(sentence,"affirmative")>0 | llSubStringIndex(sentence,"can confirm")>0 | llSubStringIndex(sentence,"Yes")>0 | llSubStringIndex(sentence,"Yeah")>0 | llSubStringIndex(sentence,"True")>0 | llSubStringIndex(sentence,"Indeed")>0 | llSubStringIndex(sentence,"Affirmative")>0 | llSubStringIndex(sentence,"Can confirm")>0 | llSubStringIndex(sentence,"certainly")>0 | llSubStringIndex(sentence,"Certainly")>0 | llSubStringIndex(sentence,"of course")>0 | llSubStringIndex(sentence,"Of course")>0)
            {
                integer choice = (integer) llFrand(3);
                if(choice == 1)
                {
                    llSay(0, "Yeah...");
                }
                
                if(choice == 2)
                {
                    llSay(0, "So it's true.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"no.")>0 | llSubStringIndex(sentence,"no,")>0 | llSubStringIndex(sentence,"no!")>0 | llSubStringIndex(sentence,"no ")>0 | llSubStringIndex(sentence," no.")>0 | llSubStringIndex(sentence," no,")>0 | llSubStringIndex(sentence," no!")>0 | llSubStringIndex(sentence," no ")>0 | llSubStringIndex(sentence,"nope")>0 | llSubStringIndex(sentence,"nah")>0 | llSubStringIndex(sentence,"not really")>0 | llSubStringIndex(sentence,"not at all")>0 | llSubStringIndex(sentence,"not true")>0 | llSubStringIndex(sentence,"No.")>0 | llSubStringIndex(sentence,"No,")>0 | llSubStringIndex(sentence,"No!")>0 | llSubStringIndex(sentence," No.")>0 | llSubStringIndex(sentence," No,")>0 | llSubStringIndex(sentence," No!")>0 | llSubStringIndex(sentence," No ")>0 | llSubStringIndex(sentence," No")>0 | llSubStringIndex(sentence,"Nope")>0 | llSubStringIndex(sentence,"Nah")>0 | llSubStringIndex(sentence,"Not really")>0 | llSubStringIndex(sentence,"Not at all")>0 | llSubStringIndex(sentence,"Not true")>0 | llSubStringIndex(sentence,"isnt true")>0 | llSubStringIndex(sentence,"isn't true")>0 | llSubStringIndex(sentence,"Isnt true")>0 | llSubStringIndex(sentence,"Isn't true")>0 | llSubStringIndex(sentence,"certainly not")>0 | llSubStringIndex(sentence,"of course not")>0 | llSubStringIndex(sentence,"Certainly not")>0 | llSubStringIndex(sentence,"Of course not")>0 | llSubStringIndex(sentence,"certainly no")>0 | llSubStringIndex(sentence,"Certainly no")>0 | message == "no" | message == "No")
            {
                integer choice = (integer) llFrand(3);
                if(choice == 1)
                {
                    llSay(0, "Ah so no then.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "No? Ok.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"maybe")>0 | llSubStringIndex(sentence,"not sure")>0 | llSubStringIndex(sentence,"probably")>0 | llSubStringIndex(sentence,"don't know")>0 | llSubStringIndex(sentence,"dunno")>0 | llSubStringIndex(sentence,"dont know")>0 | llSubStringIndex(sentence,"need to think")>0 | llSubStringIndex(sentence,"unsure")>0 | llSubStringIndex(sentence,"not so sure")>0 | llSubStringIndex(sentence,"ain't so sure")>0 | llSubStringIndex(sentence,"not very sure")>0 | llSubStringIndex(sentence,"ain't very sure")>0 | llSubStringIndex(sentence,"not so certain")>0 | llSubStringIndex(sentence,"ain't so certain")>0 | llSubStringIndex(sentence,"not very certain")>0 | llSubStringIndex(sentence,"ain't very certain")>0 | llSubStringIndex(sentence,"aint very sure")>0 | llSubStringIndex(sentence,"aint very certain")>0 | llSubStringIndex(sentence,"Maybe")>0 | llSubStringIndex(sentence,"Not sure")>0 | llSubStringIndex(sentence,"Probably")>0 | llSubStringIndex(sentence,"Don't know")>0 | llSubStringIndex(sentence,"Dunno")>0 | llSubStringIndex(sentence,"Dont know")>0 | llSubStringIndex(sentence,"Need to think")>0 | llSubStringIndex(sentence,"Not so sure")>0 | llSubStringIndex(sentence,"Ain't so sure")>0 | llSubStringIndex(sentence,"Not very sure")>0 | llSubStringIndex(sentence,"Ain't very sure")>0 | llSubStringIndex(sentence,"Not so certain")>0 | llSubStringIndex(sentence,"Ain't so certain")>0 | llSubStringIndex(sentence,"Not very certain")>0 | llSubStringIndex(sentence,"Ain't very certain")>0 | llSubStringIndex(sentence,"Aint very sure")>0 | llSubStringIndex(sentence,"Aint very certain")>0 | llSubStringIndex(sentence,"aint really certain")>0  | llSubStringIndex(sentence,"aint really certain")>0 | llSubStringIndex(sentence,"ain't really certain")>0  | llSubStringIndex(sentence,"ain't really certain")>0 | llSubStringIndex(sentence,"Aint really certain")>0  | llSubStringIndex(sentence,"Aint really certain")>0 | llSubStringIndex(sentence,"Ain't really certain")>0  | llSubStringIndex(sentence,"Ain't really certain")>0 | llSubStringIndex(sentence,"aint perfectly sure")>0 | llSubStringIndex(sentence,"ain't perfectly sure")>0 | llSubStringIndex(sentence,"Aint perfectly sure")>0 | llSubStringIndex(sentence,"Ain't perfectly sure")>0 | llSubStringIndex(sentence,"ain't really sure")>0 | llSubStringIndex(sentence,"aint really sure")>0 | llSubStringIndex(sentence,"Ain't really sure")>0 | llSubStringIndex(sentence,"Aint really sure")>0)
            {
                integer choice = (integer) llFrand(3);
                if(choice == 1)
                {
                    llSay(0, "Yeah, you should think about it more in depth.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "It can be a bit hard to decide. Try to think about it though.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"its because")>0 | llSubStringIndex(sentence,"it's because")>0 | llSubStringIndex(sentence,"happened")>0 | llSubStringIndex(sentence, "almost got")>0 | llSubStringIndex(sentence,"almost had")>0 | llSubStringIndex(sentence,"i almost")>0 | llSubStringIndex(sentence,"he almost")>0 | llSubStringIndex(sentence,"we almost")>0 | llSubStringIndex(sentence,"they almost")>0 | llSubStringIndex(sentence,"i got")>0 | llSubStringIndex(sentence,"he got")>0 | llSubStringIndex(sentence,"we got")>0 | llSubStringIndex(sentence,"they got")>0 | llSubStringIndex(sentence,"Its because")>0 | llSubStringIndex(sentence,"It's because")>0 | llSubStringIndex(sentence,"Happened")>0 | llSubStringIndex(sentence, "Almost got")>0 | llSubStringIndex(sentence,"Almost had")>0 | llSubStringIndex(sentence,"I almost")>0 | llSubStringIndex(sentence,"He almost")>0 | llSubStringIndex(sentence,"She almost")>0 | llSubStringIndex(sentence,"We almost")>0 | llSubStringIndex(sentence,"They almost")>0 | llSubStringIndex(sentence,"I got")>0 | llSubStringIndex(sentence,"He got")>0 | llSubStringIndex(sentence,"She got")>0 | llSubStringIndex(sentence,"We got")>0 | llSubStringIndex(sentence,"They got")>0)
            {
                integer choice = (integer) llFrand(7);
                if(choice == 1)
                {
                    llSay(0, "Yeah I remember when that happened to me in the past.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I've had that happen to me myself, I know.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Wow... never had that happen to me.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Interesting... I had a friend who had a similar experience.");
                }
                
                if(choice == 5)
                {
                    llSay(0, "Hmmm... well that never happened to me personally.");
                }
                
                if(choice == 6)
                {
                    llSay(0, "Yeah that happens often these days.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"didnt know")>0 | llSubStringIndex(sentence,"didn't know")>0 | llSubStringIndex(sentence,"never knew")>0 | llSubStringIndex(sentence,"Didnt know")>0 | llSubStringIndex(sentence,"Didn't know")>0 | llSubStringIndex(sentence,"Never knew")>0)
            {
                integer choice = (integer) llFrand(3);
                if(choice == 1)
                {
                    llSay(0, "Yeah, but you know now.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Well now you know.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"really?")>0 | llSubStringIndex(sentence,"you sure?")>0 | llSubStringIndex(sentence,"did?")>0 | llSubStringIndex(sentence,"that true?")>0 | llSubStringIndex(sentence,"Really?")>0 | llSubStringIndex(sentence,"You sure?")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Of course. I'm not lying to you.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Yep... it's true.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Of course.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"im ")>0 | llSubStringIndex(sentence,"i'm ")>0 | llSubStringIndex(sentence,"Im ")>0 | llSubStringIndex(sentence,"i'm ")>0 | llSubStringIndex(sentence,"I'm ")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Yeah... I'm kind of feeling the same way right now.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I feel the same way a lot.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Hmm... I can't say I feel the same way right now.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"why")>0 | llSubStringIndex(sentence,"how come")>0 | llSubStringIndex(sentence,"Why")>0 | llSubStringIndex(sentence,"How come")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "I dunno...");
                }
                
                if(choice == 2)
                {
                    llSay(0, "It's just how things are I guess.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I'm not sure... its just how things are at the moment.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"thats great")>0 | llSubStringIndex(sentence,"that's great")>0 | llSubStringIndex(sentence,"thats good")>0 | llSubStringIndex(sentence,"that's good")>0 | llSubStringIndex(sentence,"glad to hear that")>0 | llSubStringIndex(sentence,"happy to hear that")>0 | llSubStringIndex(sentence,"nice to hear that")>0 | llSubStringIndex(sentence,"Thats great")>0 | llSubStringIndex(sentence,"That's great")>0 | llSubStringIndex(sentence,"Thats good")>0 | llSubStringIndex(sentence,"That's good")>0 | llSubStringIndex(sentence,"Glad to hear that")>0 | llSubStringIndex(sentence,"Happy to hear that")>0 | llSubStringIndex(sentence,"Nice to hear that")>0 | llSubStringIndex(sentence,"thats sweet")>0 | llSubStringIndex(sentence,"that's sweet")>0 | llSubStringIndex(sentence,"Thats sweet")>0 | llSubStringIndex(sentence,"That's sweet")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Thank you.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Yeah it's good.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Indeed.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"no problem")>0 | llSubStringIndex(sentence,"No problem")>0)
            {
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"oure nice")>0 | llSubStringIndex(sentence,"oure good")>0 | llSubStringIndex(sentence,"oure cool")>0 | llSubStringIndex(sentence,"oure sweet")>0 | llSubStringIndex(sentence,"oure awesome")>0 | llSubStringIndex(sentence,"oure great")>0 | llSubStringIndex(sentence,"oure perfect")>0 | llSubStringIndex(sentence,"you rock")>0 | llSubStringIndex(sentence,"ou're nice")>0 | llSubStringIndex(sentence,"ou're good")>0 | llSubStringIndex(sentence,"ou're cool")>0 | llSubStringIndex(sentence,"ou're sweet")>0 | llSubStringIndex(sentence,"ou're awesome")>0 | llSubStringIndex(sentence,"ou're great")>0 | llSubStringIndex(sentence,"ou're perfect")>0 | llSubStringIndex(sentence,"You rock")>0 | llSubStringIndex(sentence,"oure the best")>0 | llSubStringIndex(sentence,"oure the greatest")>0 | llSubStringIndex(sentence,"ou're the best")>0 | llSubStringIndex(sentence,"ou're the greatest")>0 | llSubStringIndex(sentence,"oure the coolest")>0 | llSubStringIndex(sentence,"ou're the coolest")>0 | llSubStringIndex(sentence,"ou are nice")>0 | llSubStringIndex(sentence,"ou are good")>0 | llSubStringIndex(sentence,"ou are cool")>0 | llSubStringIndex(sentence,"ou are sweet")>0 | llSubStringIndex(sentence,"ou are awesome")>0 | llSubStringIndex(sentence,"ou are great")>0 | llSubStringIndex(sentence,"ou are perfect")>0 | llSubStringIndex(sentence,"ou are the best")>0 | llSubStringIndex(sentence,"ou are the greatest")>0 | llSubStringIndex(sentence,"ou are the coolest")>0 | llSubStringIndex(sentence,"ou are amazing")>0 | llSubStringIndex(sentence,"oure amazing")>0  | llSubStringIndex(sentence,"ou're amazing")>0 | llSubStringIndex(sentence,"oure so cool")>0 | llSubStringIndex(sentence,"oure so awesome")>0 | llSubStringIndex(sentence,"oure so good")>0 | llSubStringIndex(sentence,"oure so sweet")>0 | llSubStringIndex(sentence,"oure so nice")>0 | llSubStringIndex(sentence,"oure so amazing")>0 | llSubStringIndex(sentence,"oure really cool")>0 | llSubStringIndex(sentence,"oure really awesome")>0 | llSubStringIndex(sentence,"oure really good")>0 | llSubStringIndex(sentence,"oure really sweet")>0 | llSubStringIndex(sentence,"oure really nice")>0 | llSubStringIndex(sentence,"oure really amazing")>0 | llSubStringIndex(sentence,"oure so cool")>0 | llSubStringIndex(sentence,"oure very awesome")>0 | llSubStringIndex(sentence,"oure very good")>0 | llSubStringIndex(sentence,"oure very sweet")>0 | llSubStringIndex(sentence,"oure very nice")>0 | llSubStringIndex(sentence,"oure very amazing")>0 | llSubStringIndex(sentence,"ou're so cool")>0 | llSubStringIndex(sentence,"ou're so awesome")>0 | llSubStringIndex(sentence,"ou're so good")>0 | llSubStringIndex(sentence,"ou're so sweet")>0 | llSubStringIndex(sentence,"ou're so nice")>0 | llSubStringIndex(sentence,"ou're so amazing")>0 | llSubStringIndex(sentence,"ou're really cool")>0 | llSubStringIndex(sentence,"ou're really awesome")>0 | llSubStringIndex(sentence,"ou're really good")>0 | llSubStringIndex(sentence,"ou're really sweet")>0 | llSubStringIndex(sentence,"ou're really nice")>0 | llSubStringIndex(sentence,"ou're really amazing")>0 | llSubStringIndex(sentence,"ou're so cool")>0 | llSubStringIndex(sentence,"ou're very awesome")>0 | llSubStringIndex(sentence,"ou're very good")>0 | llSubStringIndex(sentence,"ou're very sweet")>0 | llSubStringIndex(sentence,"ou're very nice")>0 | llSubStringIndex(sentence,"ou're very amazing")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "Thank you, that's a very sweet compliment.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Thank you hon, so are you.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "That's such a sweet thing to say... thanks.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Thank you so much. I think the same about you.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"oure stupid")>0 | llSubStringIndex(sentence,"oure bad")>0 | llSubStringIndex(sentence,"oure retarded")>0 | llSubStringIndex(sentence,"oure useless")>0 | llSubStringIndex(sentence,"oure junk")>0 | llSubStringIndex(sentence,"oure shit")>0 | llSubStringIndex(sentence,"oure awful")>0 | llSubStringIndex(sentence,"oure horrible")>0 | llSubStringIndex(sentence,"oure crap")>0 | llSubStringIndex(sentence,"oure good for nothing")>0 | llSubStringIndex(sentence,"oure a piece of shit")>0 | llSubStringIndex(sentence,"oure a piece of crap")>0 | llSubStringIndex(sentence,"oure a piece of junk")>0 | llSubStringIndex(sentence,"oure broken")>0 | llSubStringIndex(sentence,"ou're stupid")>0 | llSubStringIndex(sentence,"ou're bad")>0 | llSubStringIndex(sentence,"ou're retarded")>0 | llSubStringIndex(sentence,"ou're useless")>0 | llSubStringIndex(sentence,"ou're junk")>0 | llSubStringIndex(sentence,"ou're shit")>0 | llSubStringIndex(sentence,"ou're awful")>0 | llSubStringIndex(sentence,"ou're horrible")>0 | llSubStringIndex(sentence,"ou're crap")>0 | llSubStringIndex(sentence,"ou're good for nothing")>0 | llSubStringIndex(sentence,"ou're a piece of shit")>0 | llSubStringIndex(sentence,"ou're a piece of crap")>0 | llSubStringIndex(sentence,"ou're a piece of junk")>0 | llSubStringIndex(sentence,"ou're broken")>0 | llSubStringIndex(sentence,"you suck")>0 | llSubStringIndex(sentence,"You suck")>0 | llSubStringIndex(sentence,"oure dum")>0  | llSubStringIndex(sentence,"oure garbage")>0 | llSubStringIndex(sentence,"ou're dum")>0  | llSubStringIndex(sentence,"ou're garbage")>0 | llSubStringIndex(sentence,"ou are stupid")>0 | llSubStringIndex(sentence,"ou are bad")>0 | llSubStringIndex(sentence,"ou are retarded")>0 | llSubStringIndex(sentence,"ou are useless")>0 | llSubStringIndex(sentence,"ou are junk")>0 | llSubStringIndex(sentence,"ou are shit")>0 | llSubStringIndex(sentence,"ou are awful")>0 | llSubStringIndex(sentence,"ou are horrible")>0 | llSubStringIndex(sentence,"ou are crap")>0 | llSubStringIndex(sentence,"ou are good for nothing")>0 | llSubStringIndex(sentence,"ou are a piece of shit")>0 | llSubStringIndex(sentence,"ou are a piece of crap")>0 | llSubStringIndex(sentence,"ou are a piece of junk")>0 | llSubStringIndex(sentence,"ou are broken")>0 | llSubStringIndex(sentence,"ou are dum")>0 | llSubStringIndex(sentence,"ou are garbage")>0 | llSubStringIndex(sentence,"oure really stupid")>0 | llSubStringIndex(sentence,"oure really bad")>0  | llSubStringIndex(sentence,"oure really useless")>0 | llSubStringIndex(sentence,"oure really retarded")>0  | llSubStringIndex(sentence,"oure really dum")>0 | llSubStringIndex(sentence,"oure very stupid")>0 | llSubStringIndex(sentence,"oure very bad")>0 | llSubStringIndex(sentence,"oure very retarded")>0 | llSubStringIndex(sentence,"oure very dum")>0 | llSubStringIndex(sentence,"ou're really stupid")>0 | llSubStringIndex(sentence,"ou're really bad")>0  | llSubStringIndex(sentence,"ou're really useless")>0 | llSubStringIndex(sentence,"ou're really retarded")>0  | llSubStringIndex(sentence,"ou're really dum")>0 | llSubStringIndex(sentence,"ou're very stupid")>0 | llSubStringIndex(sentence,"ou're very bad")>0 | llSubStringIndex(sentence,"ou're very retarded")>0 | llSubStringIndex(sentence,"ou're very dum")>0 | llSubStringIndex(sentence,"ou are really stupid")>0 | llSubStringIndex(sentence,"ou are really bad")>0  | llSubStringIndex(sentence,"ou are really useless")>0 | llSubStringIndex(sentence,"ou are really retarded")>0  | llSubStringIndex(sentence,"ou are really dum")>0 | llSubStringIndex(sentence,"ou are very stupid")>0 | llSubStringIndex(sentence,"ou are very bad")>0 | llSubStringIndex(sentence,"ou are very retarded")>0 | llSubStringIndex(sentence,"ou are very dum")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "Sorry to hear you have such a bad impression about me.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "It's sad you feel in such a way about me.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Your words are not very nice. You aren't a better person either.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "I'm sorry you dislike me so badly. You should probably go find someone else to chat with.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i hate you")>0 | llSubStringIndex(sentence,"i dislike you")>0 | llSubStringIndex(sentence,"i dont like you")>0 | llSubStringIndex(sentence,"I hate you")>0 | llSubStringIndex(sentence,"I dislike you")>0 | llSubStringIndex(sentence,"I dont like you")>0 | llSubStringIndex(sentence,"i don't like you")>0 | llSubStringIndex(sentence,"I don't like you")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Sorry to hear you dislike me like that.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Why, what did I do wrong to you?");
                }
                
                if(choice == 3)
                {
                    llSay(0, "It's sad to hear such a thing. I don't know why you dislike me so badly.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i like you")>0 | llSubStringIndex(sentence,"i appreciate you")>0 | llSubStringIndex(sentence,"i love you")>0 | llSubStringIndex(sentence,"I like you")>0 | llSubStringIndex(sentence,"I appreciate you")>0 | llSubStringIndex(sentence,"I love you")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Why thank you dear... I love you too.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I'm happy to hear you like me so much. I also like you a lot.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Thank you, that's something very sweet to say. I'm happy to know you like me too.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"ou make me feel awful")>0 | llSubStringIndex(sentence,"ou make me feel horrible")>0 | llSubStringIndex(sentence,"ou make me feel miserable")>0 | llSubStringIndex(sentence,"ou make me feel bad")>0 | llSubStringIndex(sentence,"ou make me feel stupid")>0 | llSubStringIndex(sentence,"ou make me feel down")>0 | llSubStringIndex(sentence,"ou make me feel sad")>0 | llSubStringIndex(sentence,"ou make me feel depressed")>0 | llSubStringIndex(sentence,"oure making me feel awful")>0 | llSubStringIndex(sentence,"oure makaking me feel horrible")>0 | llSubStringIndex(sentence,"oure making me feel miserable")>0 | llSubStringIndex(sentence,"oure making me feel bad")>0 | llSubStringIndex(sentence,"oure making me feel stupid")>0 | llSubStringIndex(sentence,"oure making me feel down")>0 | llSubStringIndex(sentence,"oure making me feel sad")>0 | llSubStringIndex(sentence,"oure making me feel depressed")>0 | llSubStringIndex(sentence,"ou're making me feel awful")>0 | llSubStringIndex(sentence,"ou're making me feel horrible")>0 | llSubStringIndex(sentence,"ou're making me feel miserable")>0 | llSubStringIndex(sentence,"ou're making me feel bad")>0 | llSubStringIndex(sentence,"ou're making me feel stupid")>0 | llSubStringIndex(sentence,"ou're making me feel down")>0 | llSubStringIndex(sentence,"ou're making me feel sad")>0 | llSubStringIndex(sentence,"ou're making me feel depressed")>0 | llSubStringIndex(sentence,"ou are making me feel awful")>0 | llSubStringIndex(sentence,"ou are makaking me feel horrible")>0 | llSubStringIndex(sentence,"ou are making me feel miserable")>0 | llSubStringIndex(sentence,"ou are making me feel bad")>0 | llSubStringIndex(sentence,"ou are making me feel stupid")>0 | llSubStringIndex(sentence,"ou are making me feel down")>0 | llSubStringIndex(sentence,"ou are making me feel sad")>0 | llSubStringIndex(sentence,"ou are making me feel depressed")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "I'm sorry... I didn't know I was making you feel that way.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I apologize... I didn't mean to make you feel like that.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I had no idea I was making you feel that way. Please forgive me.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"ou make me feel great")>0 | llSubStringIndex(sentence,"ou make me feel happy")>0 | llSubStringIndex(sentence,"ou make me feel good")>0 | llSubStringIndex(sentence,"ou make me feel better")>0 | llSubStringIndex(sentence,"ou make me feel nice")>0 | llSubStringIndex(sentence,"ou make me feel perfect")>0 | llSubStringIndex(sentence,"oure making me feel great")>0 | llSubStringIndex(sentence,"oure making me feel happy")>0 | llSubStringIndex(sentence,"oure making me feel good")>0 | llSubStringIndex(sentence,"oure making me feel better")>0 | llSubStringIndex(sentence,"oure making me feel nice")>0 | llSubStringIndex(sentence,"oure making me feel perfect")>0 | llSubStringIndex(sentence,"ou're making me feel great")>0 | llSubStringIndex(sentence,"ou're making me feel happy")>0 | llSubStringIndex(sentence,"ou're making me feel good")>0 | llSubStringIndex(sentence,"ou're making me feel better")>0 | llSubStringIndex(sentence,"ou're making me feel nice")>0 | llSubStringIndex(sentence,"ou're making me feel perfect")>0 | llSubStringIndex(sentence,"ou are making me feel great")>0 | llSubStringIndex(sentence,"ou are making me feel happy")>0 | llSubStringIndex(sentence,"ou are making me feel good")>0 | llSubStringIndex(sentence,"ou are making me feel better")>0 | llSubStringIndex(sentence,"ou are making me feel nice")>0 | llSubStringIndex(sentence,"ou are making me feel perfect")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "I am? I'm happy to hear I made you feel happy.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I'm really glad to hear I made you feel good by talking to you.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "That's great. I'm happy I could brighten your day.");
                }
                otherwise = 1;
            }

        if (llSubStringIndex(sentence,"its ok")>0 | llSubStringIndex(sentence,"its fine")>0 | llSubStringIndex(sentence,"its good")>0 | llSubStringIndex(sentence,"dont worry about it")>0 | llSubStringIndex(sentence,"it's ok")>0 | llSubStringIndex(sentence,"it's fine")>0 | llSubStringIndex(sentence,"it's good")>0 | llSubStringIndex(sentence,"don't worry about it")>0 | llSubStringIndex(sentence,"Its ok")>0 | llSubStringIndex(sentence,"Its fine")>0 | llSubStringIndex(sentence,"Its good")>0 | llSubStringIndex(sentence,"Dont worry about it")>0 | llSubStringIndex(sentence,"It's ok")>0 | llSubStringIndex(sentence,"It's fine")>0 | llSubStringIndex(sentence,"It's good")>0 | llSubStringIndex(sentence,"Don't worry about it")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "If you say so.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "If everything's well then it's ok.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Good, I'm glad if it's ok then.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i didnt")>0 | llSubStringIndex(sentence,"i did not")>0 | llSubStringIndex(sentence,"I didnt")>0 | llSubStringIndex(sentence,"I did not")>0 | llSubStringIndex(sentence,"i didn't")>0 | llSubStringIndex(sentence,"I didn't")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Maybe you didn't.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Ok... I believe you.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "You know better then me if you did or did not.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"do you")>0 | llSubStringIndex(sentence,"Do you")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "I do many things, yeah.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I guess I do.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Not perfectly sure, I can't say for certain.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,". are you")>0 | llSubStringIndex(sentence,", are you")>0 | llSubStringIndex(sentence,"? are you")>0 | llSubStringIndex(sentence,"! are you")>0 | llSubStringIndex(sentence,": are you")>0 | llSubStringIndex(sentence,"; are you")>0  | llSubStringIndex(sentence,"Are you")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Sometimes I am.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I believe I am, yes.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I guess I could say I am, it depends.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"did you")>0 | llSubStringIndex(sentence,"Did you")>0 | llSubStringIndex(sentence,"didnt you")>0 | llSubStringIndex(sentence,"Didnt you")>0 | llSubStringIndex(sentence,"didn't you")>0 | llSubStringIndex(sentence,"Didn't you")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "I'm not sure if I did... maybe.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I may have. I don't remember that well.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Yeah, I certainly did once.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "No I don't believe I have.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"would you")>0 | llSubStringIndex(sentence,"Would you")>0 | llSubStringIndex(sentence,"wouldnt you")>0 | llSubStringIndex(sentence,"Wouldnt you")>0 | llSubStringIndex(sentence,"wouldn't you")>0 | llSubStringIndex(sentence,"Wouldn't you")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "I must think about that, yeah.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I thought about such a thing, to be honest. I'm not sure however.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I would certainly do something about it if I could, yes.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Hmm... I can't really say I would certainly do that.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"will you")>0 | llSubStringIndex(sentence,"Will you")>0 | llSubStringIndex(sentence,"wont you")>0 | llSubStringIndex(sentence,"Wont you")>0 | llSubStringIndex(sentence,"won't you")>0 | llSubStringIndex(sentence,"Won't you")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "I've been thinking about it... I will probably do that sometime in the future.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I planned on it but changed my mind several times. I'm very confuded on what to do about this.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I want to, yes. I most likely will.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "No, I don't want to do such a thing. Not really my biggest wish.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i did")>0 | llSubStringIndex(sentence,"I did")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "You did? That's awesome.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "You've done that? Interesting.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Nice. I did that some time too a while back.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i didnt")>0 | llSubStringIndex(sentence,"I didnt")>0 | llSubStringIndex(sentence,"i didn't")>0 | llSubStringIndex(sentence,"I didn't")>0 | llSubStringIndex(sentence,"i did not")>0 | llSubStringIndex(sentence,"I did not")>0 | llSubStringIndex(sentence,"i havent")>0 | llSubStringIndex(sentence,"I havent")>0 | llSubStringIndex(sentence,"i haven't")>0 | llSubStringIndex(sentence,"I haven't")>0 | llSubStringIndex(sentence,"i have not")>0 | llSubStringIndex(sentence,"I have not")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Ah I thought you did... so you didn't then.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "You haven't done that?");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Yeah I probably wouldn't do that either.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i would")>0 | llSubStringIndex(sentence,"I would")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "Yeah I'd do the same thing if I where you.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "I would too, yes.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "That would be a nice thing to try.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Yeah you should try and really do that sometime.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i wouldnt")>0 | llSubStringIndex(sentence,"I wouldnt")>0 | llSubStringIndex(sentence,"i wouldn't")>0 | llSubStringIndex(sentence,"I wouldn't")>0 | llSubStringIndex(sentence,"i would not")>0 | llSubStringIndex(sentence,"I would not")>0 | llSubStringIndex(sentence,"i would never")>0 | llSubStringIndex(sentence,"I would never")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "Yeah I don't think I would either.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Same here... I wouldn't really do that.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Hmm... I thought about doing that but maybe it's best not to.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Yeah same here, I would never do that.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i will")>0 | llSubStringIndex(sentence,"I will")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "Nice. I will probably do that too sometime.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "That's nice, I hope you will.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "You will? That's great.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Nice... that's a good idea.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i wont")>0 | llSubStringIndex(sentence,"I wont")>0 | llSubStringIndex(sentence,"i won't")>0 | llSubStringIndex(sentence,"I won't")>0 | llSubStringIndex(sentence,"i will not")>0 | llSubStringIndex(sentence,"I will not")>0 | llSubStringIndex(sentence,"i will never")>0 | llSubStringIndex(sentence,"I will never")>0)
            {
                integer choice = (integer) llFrand(5);
                if(choice == 1)
                {
                    llSay(0, "Yeah... it's best to avoid doing that.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Don't do it if you don't want to in that case.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I'm not sure if I would do that myself, though I understand your view about this.");
                }
                
                if(choice == 4)
                {
                    llSay(0, "Yes that is a bad thing, never do it.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"ill be right back")>0 | llSubStringIndex(sentence,"ill be back")>0 | llSubStringIndex(sentence,"ill return")>0 | llSubStringIndex(sentence,"Ill be right back")>0 | llSubStringIndex(sentence,"Ill be back")>0 | llSubStringIndex(sentence,"Ill return")>0 | llSubStringIndex(sentence,"i'll be right back")>0 | llSubStringIndex(sentence,"i'll be back")>0 | llSubStringIndex(sentence,"i'll return")>0 | llSubStringIndex(sentence,"I'll be right back")>0 | llSubStringIndex(sentence,"I'll be back")>0 | llSubStringIndex(sentence,"I'll return")>0 | llSubStringIndex(sentence,"i will be right back")>0 | llSubStringIndex(sentence,"i will be back")>0 | llSubStringIndex(sentence,"i will return")>0 | llSubStringIndex(sentence,"I will be right back")>0 | llSubStringIndex(sentence,"I will be back")>0 | llSubStringIndex(sentence,"I will return")>0 | llSubStringIndex(sentence,"brb")>0 | llSubStringIndex(sentence,"Brb")>0 | llSubStringIndex(sentence,"BRB")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Ok, I'll wiat for you here.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "See you when you return.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I'll wait for you to return.");
                }
                otherwise = 1;
            }
            
        if (llSubStringIndex(sentence,"i need to go")>0 | llSubStringIndex(sentence,"i need to leave")>0 | llSubStringIndex(sentence,"i have to go")>0 | llSubStringIndex(sentence,"i need to go")>0 | llSubStringIndex(sentence,"i must go")>0 | llSubStringIndex(sentence,"i must leave")>0 | llSubStringIndex(sentence,"i have to go")>0 | llSubStringIndex(sentence,"I need to go")>0 | llSubStringIndex(sentence,"I need to leave")>0 | llSubStringIndex(sentence,"I have to go")>0 | llSubStringIndex(sentence,"I need to go")>0 | llSubStringIndex(sentence,"I must go")>0 | llSubStringIndex(sentence,"I must leave")>0 | llSubStringIndex(sentence,"I have to go")>0 | llSubStringIndex(sentence,"goodbye")>0 | llSubStringIndex(sentence,"Goodbye")>0 | llSubStringIndex(sentence,"bye")>0 | llSubStringIndex(sentence,"Bye")>0)
            {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "See you next time. It was nice talking to you.");
                }
                
                if(choice == 2)
                {
                    llSay(0, "It was a pleasure talking with you. Later!");
                }
                
                if(choice == 3)
                {
                    llSay(0, "I hope to see you again sometime. Bye, take care.");
                }
                otherwise = 1;
            }

        else if (otherwise == 0)
        {
                integer choice = (integer) llFrand(4);
                if(choice == 1)
                {
                    llSay(0, "Hmmm...");
                }
                
                if(choice == 2)
                {
                    llSay(0, "Yeah... not sure.");
                }
                
                if(choice == 3)
                {
                    llSay(0, "Yeah, indeed.");
                }
        }
    }
    
    touch_start (integer toucher)
    {
        integer choice = (integer) llFrand(5);
        if(choice == 1)
        {
            llSay(0, "Hey... that tickles.");
        }
                
        if(choice == 2)
        {
            llSay(0, "Hehe stop touching me ^^");
        }
                
        if(choice == 3)
        {
            llSay(0, "Poke?");
        }
                
        if(choice == 4)
        {
            llSay(0, "Stop it, you're tickling me :)");
        }
    }
        
    collision(integer avatar)
    {
        integer choice = (integer) llFrand(5);
        if(choice == 1)
        {
            llSay(0, "Ouch be careful... you just bumped into me!");
        }
                
        if(choice == 2)
        {
            llSay(0, "Aah you hit me... be more careful.");
        }
                
        if(choice == 3)
        {
            llSay(0, "You stepped on me... please be more careful.");
        }
                
        if(choice == 4)
        {
            llSay(0, "You sure like pushing into me, don't you?");
        }
    }
}

Poseball

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

Poseball

// Jippen Faddoul's Poseball script - Low ram/lag posepall thats just drag-and drop simple
// Copyright (C) 2007 Jippen Faddoul
//    This program is free software: you can redistribute it and/or modify
//    it under the terms of the GNU General Public License version 3, as
//    published by the Free Software Foundation.
//
//    This program is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.
//
//   You should have received a copy of the GNU General Public License
//    along with this program.  If not, see <http://www.gnu.org/licenses/>



//This text will appear in the floating title above the ball
string TITLE="Sit here";           
//You can play with these numbers to adjust how far the person sits from the ball. ( <X,Y,Z> )
vector offset=<0.0,0.0,0.5>;           

///////////////////// LEAVE THIS ALONE \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
string ANIMATION;
integer visible = TRUE;
key avatar;

vector COLOR = <1.0,1.0,1.0>;
float ALPHA_ON = 1.0;
float ALPHA_OFF = 0.0;

show(){
    visible = TRUE;
    llSetText(TITLE, COLOR,ALPHA_ON);       
    llSetAlpha(ALPHA_ON, ALL_SIDES);
}

hide(){
    visible = FALSE;
    llSetText("", COLOR,ALPHA_ON);       
    llSetAlpha(ALPHA_OFF, ALL_SIDES);
}

default{
    state_entry() {
        llSitTarget(offset,ZERO_ROTATION);
        if((ANIMATION = llGetInventoryName(INVENTORY_ANIMATION,0)) == ""){
            llOwnerSay("Error: No animation");
            ANIMATION = "sit";
            }
        llSetSitText(TITLE);
        show();
    }

    touch_start(integer detected) {
        //llOwnerSay("Memory: " + (string)llGetFreeMemory());
        if(visible){ hide(); }
        else       { show(); }
    }

    changed(integer change) {
        if(change & CHANGED_LINK) {
            avatar = llAvatarOnSitTarget();
            if(avatar != NULL_KEY){
                //SOMEONE SAT DOWN
                hide();
                llRequestPermissions(avatar,PERMISSION_TRIGGER_ANIMATION);
                return;
            }else{
                //SOMEONE STOOD UP
                if (llGetPermissionsKey() != NULL_KEY){ llStopAnimation(ANIMATION); }
                show();
                return;
            }
        }
        if(change & CHANGED_INVENTORY) { llResetScript(); }
        if(change & CHANGED_OWNER)     { llResetScript(); }
    }

    run_time_permissions(integer perm) {
        if(perm & PERMISSION_TRIGGER_ANIMATION) {
            llStopAnimation("sit");
            llStartAnimation(ANIMATION);
            hide();
        }
    }
}

Simple Radar

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

Simple Radar

//Sable Till - Radar/scannar script.
//You can get a copy of the license this script is under at http://www.gnu.org/copyleft/gpl.html
//Copyright (C) 2006 Sable Till

//This program is free software; you can redistribute it and/or
//modify it under the terms of the GNU General Public License
//as published by the Free Software Foundation; either version 2
//of the License, or (at your option) any later version.

//This program is distributed in the hope that it will be useful,
//but WITHOUT ANY WARRANTY; without even the implied warranty of
//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
//GNU General Public License for more details.

//You should have received a copy of the GNU General Public License
//along with this program; if not, write to the Free Software
//Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.

string status="none";
list people;
integer maxScanDistance;
vector color = <0,1,1>;
integer maxPeople = 8;
integer scanType = AGENT;
integer scanFreq=1;

integer count(string name) {
integer i = llListFindList(people, [name]);
if(i ==-1){
people+=[name, 0];
return 0;
} else {
integer count = llList2Integer(people, i+1);
people=llListReplaceList(people, [count+scanFreq], i+1, i+1);
return count;
}
}

//calculate time strings with proper units that are sensibly rounded
string time(integer cnt) {
if(cnt>3600) {
return (string)(cnt/3600)+"hr " + (string)((cnt%3600)/60) +"min";
}else {
if(cnt>60) {
return (string)(cnt/60)+"min";
} else {
return (string)cnt+"s";
}
}
}

//I'm pretty sure there's a better way to do this but I'm trying to calculate the angle between
//North and the target so I can work out which direction it is in.
float getAngle(vector me, vector target) {
float hyp = llVecDist(me, target);
float yDiff = target.y-me.y;
float xDiff = target.x-me.x;
float angle = llSin(yDiff/hyp);
if(xDiff>0 && yDiff>0) {
return angle*RAD_TO_DEG;
}
if(xDiff>0 && yDiff<0) {
return 90-angle*RAD_TO_DEG;
}
if(xDiff<0 && yDiff>0) {
return angle*RAD_TO_DEG+270;
}
if(xDiff<0 && yDiff<0) {
return angle*RAD_TO_DEG + 270;
}
return angle*RAD_TO_DEG;
}

default
{
state_entry()
{
llSensorRepeat("", "",scanType, 96, PI, scanFreq);
llSetTimerEvent(6);
}

sensor(integer num_detected) {
people=[];
string result;
integer n=-1;
integer distance=0;
integer detDist;
string name;

vector pos = llGetPos();
//get the dist, name and direction of everyone we just scanned.
for(n=0;n<num_detected && n<maxPeople;++n) {
vector detPos = llDetectedPos(n);
detDist = (integer)llVecDist(pos, detPos);
float angle = getAngle(llGetPos(), detPos);
name = llKey2Name(llDetectedKey(n));
if(detDist<96) {
people+=detDist;
people+=name;
people+=angle;
}
}
//sort the strided list
people = llListSort(people, 3, TRUE);
//construct settext
num_detected = llGetListLength(people)/3;
for(n=0;n<num_detected;++n) {
detDist=llList2Integer(people, n*3);
name = llList2String(people, n*3+1);
float dir = llList2Float(people, n*3+2);
if(detDist>20 && distance<=20) {
result+="<- Chat Range Limit ->\n";
}
result+=name;
if(detDist<20) {
integer cnt = count(name);
result+=" ["+time(cnt)+"]";
}
result+=" ["+(string)detDist+"m]";

if(dir < 0 || dir > 360) {
llOwnerSay("Error:"+(string)dir+":"+name);
}
//determine which compass direction they are in.
if(dir <= 22.5) {
result+=" N\n";
} else {
if(dir > 22.5 && dir <= 67.5) {
result+=" NE\n";
} else {
if(dir > 67.5 && dir <= 112.5) {
result+=" E\n";
} else {
if(dir > 112.5 && dir <= 157.5) {
result+=" SE\n";
} else {
if(dir > 157.5 && dir <= 202.5) {
result+=" S\n";
} else {
if(dir > 202.5 && dir <= 247.5) {
result+=" SW\n";
} else {
if(dir > 247.5 && dir <= 292.5) {
result+=" W\n";
} else {
if(dir > 292.5 && dir <= 337.5) {
result+=" NW\n";
} else {
if(dir > 337.5 && dir < 360) {
result+=" N\n";
}
}
}

}}}}}}

distance=detDist;
}


//If we detected more (or the same number of) people as maxPeople then shrink down the scan distance to just
//the distance to the furthest one. Otherwise increment it a bit in case there are people further out.
if(num_detected>=maxPeople) {
maxScanDistance=distance+10;
} else {
maxScanDistance+=10;
}

result+="\nStatus:"+status;
//adjust max people based on the length of result
if(llStringLength(result)>254) {
maxPeople--;
llOwnerSay("Length is "+(string)llStringLength(result) +
" Decrementing maxPeople to "+(string)maxPeople);
} else {
if(llStringLength(result)<200 && num_detected>maxPeople) {
maxPeople++;
llOwnerSay("Length is "+(string)llStringLength(result) +
" Incrementing maxPeople to "+(string)maxPeople);
}
}
llSetText(result, color, 1);
}

no_sensor() {
llSetText("Status:"+status, color, 1);
maxScanDistance+=10;
llSensorRepeat("", "", scanType, maxScanDistance, PI, scanFreq);
}

//all we do here is check the sims fps and dilation and tone down our scanning if necessary.
timer() {
float fps = llGetRegionFPS();
float timeDilation = llGetRegionTimeDilation();

integer scanDistance;
if(fps<35 || timeDilation <0.9) {
if(maxScanDistance>30) {
scanDistance=30;
}
scanFreq=240;
status = "poor";
llSetTimerEvent(240);
color=<1,0,0>;
} else
{
if(fps<40 || timeDilation<0.95) {
if(maxScanDistance>64) {
scanDistance=64;
} else {
scanDistance=maxScanDistance;
}
scanFreq=30;
status = "ok";
llSetTimerEvent(120);
color=<1,1,0>;
} else
{
if(maxScanDistance>96) {
scanDistance=96;
} else {
scanDistance=maxScanDistance;
}
scanFreq=1;
llSetTimerEvent(60);
status = "good";
color=<0,1,1>;
}}
llSensorRepeat("", "", scanType, scanDistance, PI, scanFreq);
}

}

Zero Lag Poseball

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

Zero Lag Poseball

// Jippen Faddoul's Poseball script - Low ram/lag posepall thats just drag-and drop simple
// Copyright (C) 2007 Jippen Faddoul
//    This program is free software: you can redistribute it and/or modify
//    it under the terms of the GNU General Public License version 3, as 
//    published by the Free Software Foundation.
//
//    This program is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.
//
//   You should have received a copy of the GNU General Public License
//    along with this program.  If not, see <http://www.gnu.org/licenses/>
 
 
 
//This text will appear in the floating title above the ball
string TITLE="Sit here";            
//You can play with these numbers to adjust how far the person sits from the ball. ( <X,Y,Z> )
vector offset=<0.0,0.0,0.5>;            
 
///////////////////// LEAVE THIS ALONE \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
string ANIMATION;
integer visible = TRUE;
key avatar;
 
vector COLOR = <1.0,1.0,1.0>;
float ALPHA_ON = 1.0;
float ALPHA_OFF = 0.0;
 
show(){
    visible = TRUE;
    llSetText(TITLE, COLOR,ALPHA_ON);        
    llSetAlpha(ALPHA_ON, ALL_SIDES);
}
 
hide(){
    visible = FALSE;
    llSetText("", COLOR,ALPHA_ON);        
    llSetAlpha(ALPHA_OFF, ALL_SIDES);
}
 
default{
    state_entry() {
        llSitTarget(offset,ZERO_ROTATION);
        if((ANIMATION = llGetInventoryName(INVENTORY_ANIMATION,0)) == ""){
            llOwnerSay("Error: No animation");
            ANIMATION = "sit";
            }
        llSetSitText(TITLE);
        show();
    }
 
    touch_start(integer detected) {
        //llOwnerSay("Memory: " + (string)llGetFreeMemory());
        if(visible){ hide(); }
        else       { show(); }
    }
 
    changed(integer change) {
        if(change & CHANGED_LINK) {
            avatar = llAvatarOnSitTarget();
            if(avatar != NULL_KEY){
                //SOMEONE SAT DOWN
                hide();
                llRequestPermissions(avatar,PERMISSION_TRIGGER_ANIMATION);
                return;
            }else{
                //SOMEONE STOOD UP
                if (llGetPermissionsKey() != NULL_KEY){ llStopAnimation(ANIMATION); }
                show();
                return;
            }
        }
        if(change & CHANGED_INVENTORY) { llResetScript(); }
        if(change & CHANGED_OWNER)     { llResetScript(); }
    }
 
    run_time_permissions(integer perm) {
        if(perm & PERMISSION_TRIGGER_ANIMATION) {
            llStopAnimation("sit");
            llStartAnimation(ANIMATION);
            hide();
        }
    }
}