User:Kephra Nurmi/lsDeejay

From Second Life Wiki
Jump to: navigation, search

lsDeejay Home Edition

The lsDeejay Home Edition is a client server media control for music, video, pictures, and texture animations, started as a low lag, no gimmick version of my former lsDeejay Club Edition. The system is also known as lsDeejay SL5B Edition, as it was first distributed during SL5B.

The system is using a client server architecture, with a parcel server owned by the parcel owner (deeded to group) and clients to display and manage the media that could be distributed on the sim. Its possible to control several parcels on a sim from same display or to have several displays on a parcel.

lsDeejay parcel 10001

The lsDeejay parcel object can be an object of any form and size, that must be owned by the parcel owner. e.g. by deeding it to the group. The object should have the channel number as object description. The parcel server will check ownership and might request deeding it to a group. The first one who touches it, to activate it, will be able to command it via chat or objects like the lsDeejay media.

Script: .lsDeejay parcel 10001

// .lsDeejay parcel 10001
// lsDeejay shoutcast management (c) Kephra Nurmi 2007-2010
// published under Creative Commons Attribution-Share Alike 3.0 License
 
integer CHANNEL = 0;
list uuids = [ ];
key djKey = NULL_KEY;
string djName = "";
string owner;
 
default {
    state_entry() {
        llSetText("Reset",<1,0,0>,0);
        llSetObjectName(llGetSubString(llGetScriptName(),1,-1));
        CHANNEL = (integer)llGetObjectDesc();
        if (0 == CHANNEL) CHANNEL = -17;
        owner = (string)llGetOwner();
        uuids = [ owner ];
        if ((string)llGetLandOwnerAt(llGetPos()) != owner)
            state deedme;
        else
        if (llGetSubString(owner,14,14) == "4")
            state ready;
        else
            state waiting;
    }
}
 
state deedme {
    state_entry() {
        if (llGetSubString((string)llGetLandOwnerAt(llGetPos()),14,14) != "4")
            llSetText("Deed me to parcel owner group",<1,0,0>,1);
        else
            llSetText("Sell me to parcel owner",<1,0,0>,1);
    }
 
    on_rez(integer start_param) {
        llResetScript();
    }
 
    changed( integer change ) {
        if (( change == CHANGED_INVENTORY ) || ( change == CHANGED_OWNER )) 
            llResetScript();
    }
}
state waiting {
    state_entry() {
        llSetText("touch to activate",<1,0,0>,1);
    }
    touch_start(integer n) {
        key av = llDetectedKey(0);
        if (llSameGroup(av)) {
            owner = (string)av;
            uuids = [ owner ];
            state ready;
        }
    }
 
    on_rez(integer start_param) {
        llResetScript();
    }
 
    changed( integer change ) {
        if (( change == CHANGED_INVENTORY ) || ( change == CHANGED_OWNER )) 
            llResetScript();
    }
}
 
state ready {
    state_entry() {
        llSetText("",<1,0,0>,1);
        if (0 != CHANNEL) {
            if (0 < CHANNEL) CHANNEL = 0-CHANNEL;
            llListen(   CHANNEL, "", NULL_KEY, "" );
            llListen( 0-CHANNEL, "", NULL_KEY, "" );
            llRegionSay( CHANNEL, "Request,Status" );
        }
        llInstantMessage((key)owner,"Ready, listening on channel: "+(string)CHANNEL+" free memory: "+(string)llGetFreeMemory());
    }
 
    listen( integer channel, string name, key id, string message ) {
        key k = id;
        if (llGetAgentInfo(k)<=0) k = llGetOwnerKey(k);
        if (llListFindList(uuids + [ (string)djKey ], [ (string)k ])<0) return;
        list tmp = llCSV2List(message);
        string cmd = llList2String(tmp,0);
        string val = llList2String(tmp,1);
        if (("DJ" == cmd) && (llGetListLength(tmp) == 3)) {
            djKey=(key)val;
            djName=llList2String(tmp,2);
        }
        if (("Parcel" == cmd) || ("Music" == cmd)) 
            llSetParcelMusicURL(val);
        if ("Video" == cmd)
            llParcelMediaCommandList([
                PARCEL_MEDIA_COMMAND_TYPE, "video/*", 
                PARCEL_MEDIA_COMMAND_TEXTURE, val,
                PARCEL_MEDIA_COMMAND_URL, llList2String(tmp,2)
                ]);
        if ("Web" == cmd)
            llParcelMediaCommandList([
                PARCEL_MEDIA_COMMAND_TYPE, "text/html",
                PARCEL_MEDIA_COMMAND_SIZE, 1024, 768,
                PARCEL_MEDIA_COMMAND_AUTO_ALIGN, TRUE,
                PARCEL_MEDIA_COMMAND_TEXTURE, val, 
                PARCEL_MEDIA_COMMAND_URL, llList2String(tmp,2)]);
    }
 
    on_rez(integer start_param) {
        llResetScript();
    }
 
    changed( integer change ) {
        if (( change == CHANGED_INVENTORY ) || ( change == CHANGED_OWNER )) 
            llResetScript();
    }
}

lsDeejay media (Home) 08258

The lsDeejay media screen must be owned by a normal avatar. Its based on a my lsDialog script with a link message as hard coded action. The dialog for the media is defined in a notecard called '.lsDeejay media'

Script: lsDeejay dialog 08258

// .lsDeejay dialog 08258
// lsDeejay shoutcast management (c) Kephra Nurmi 2007
// published under Creative Commons Attribution-Share Alike 3.0 License
 
string configName = ".lsDeejay media";
string configKey = NULL_KEY;
integer configLine = 0;
key configReq = NULL_KEY;
integer avChannel;
 
list dialogNames = [];
list dialogLines = [];
string currentName = "";
string currentLines = "";
string currentMenu = "";
list currentOptions = [];
list currentValues = [];
list simpleOptions = [];
list simpleActions = [];
 
integer djChannel = 0;
key djKey = NULL_KEY;
string djName = "";
list guests = [ ];
integer everybody = FALSE;
integer samegroup = FALSE;
integer again = FALSE;
integer linked = FALSE;
 
integer permissions(key id) {
    return (everybody
        || (samegroup && llSameGroup(id))
        || (llGetOwner() == id)
        || ((NULL_KEY != djKey) && (djKey == id))
        || (llListFindList(guests, [ llKey2Name(id) ])>=0));
}
 
configRestart() {
    configName = ".lsDeejay media";
    key conf = llGetInventoryKey(configName);
    if ((string)conf == configKey) return;
    if ((NULL_KEY != configKey) && (llGetFreeMemory() < 6000)) llResetScript();
    dialogNames = [];
    dialogLines = [];
    simpleOptions = [];
    simpleActions = [];
    currentName = "";
    currentLines = "";
    djChannel = 0;
    djKey = NULL_KEY;
    djName = "";
    guests = [ ];
    everybody = FALSE;
    samegroup = FALSE;
    if (conf == NULL_KEY) return;
    configKey = conf;
    configLine = 0;
    configReq = llGetNotecardLine(configName,configLine);
}
 
flushDialog() {
    if ("" == currentName) return;
    if ("" == currentLines) return;
    integer i = llListFindList(dialogNames,[ currentName ]);
    if (i>=0) {
        dialogNames = llDeleteSubList(dialogNames,i,i);
        dialogLines = llDeleteSubList(dialogLines,i,i);
    }
    dialogNames = dialogNames + [ currentName ];
    dialogLines = dialogLines + [ currentLines ];
    currentName = "";
    currentLines = "";
}
 
parseDialogRC(string data) {
    if (llStringLength(data) == 0) return;
    if (llGetSubString(data,0,0) == "#") return;
    if ((llGetSubString(data,0,0) == "[") && (llSubStringIndex(data,"]") >= 0)) {
        flushDialog();
        currentName = llGetSubString(data,1,llSubStringIndex(data,"]")-1);
        return;
    }
    if ("" == currentName) {
        if ("Allow=Owner" == data) { everybody = FALSE; samegroup = FALSE; }
        else
        if ("Allow=Group" == data) { everybody = FALSE; samegroup = TRUE; }
        else
        if ("Allow=All" == data) { everybody = TRUE; samegroup = FALSE; }
        else
        if ("Allow=" == llGetSubString(data,0,5)) { guests = guests + [ llGetSubString(data,6,-1) ]; }
        else
        if ("Channel=" == llGetSubString(data,0,7)) {  djChannel = (integer)llGetSubString(data,8,-1); }
        else
        if ("Dialog=Again" == data) { again = TRUE; }
        else
        if ("Dialog=Once" == data) { again = FALSE; }
        else
        if ("Dialog=Link" == data) { linked = TRUE; }
    } else
    if ("*" == currentName) {
        integer p = llSubStringIndex(data,"=");
        if (0 < p) {
            simpleOptions = simpleOptions + [ llGetSubString(data, 0, p-1) ];
            simpleActions = simpleActions + [ llGetSubString(data, p+1, -1) ];
        }
    } else
    if (llSubStringIndex(data,"=") >= 0) {
        if ("" == currentLines)
            currentLines = data;
        else
            currentLines = currentLines+"\n"+data;
    }
}
 
parseDialogLines(string menu) {
    currentMenu = menu;
    currentOptions = [];
    currentValues = [];
    integer i = llListFindList(dialogNames, [ menu ]);
    if (i < 0) return;
    list l = llParseString2List(llList2String(dialogLines,i),[ "\n" ], []);
    integer n = llGetListLength(l);
    integer k;
    string s;
    for (i = 0; i<n; i++) {
        s = llList2String(l, i);
        k = llSubStringIndex(s,"=");
        if (k>0) {
            currentOptions = currentOptions + [ llGetSubString(s,0,k-1) ];
            currentValues = currentValues + [ llGetSubString(s,k+1,-1) ];
        }
    }
}
 
action(string message, key id) {
    llMessageLinked(LINK_THIS,djChannel,message,id);
}
 
default {
    state_entry() {
        configRestart();
        avChannel = 1000+(integer)llFrand(3000.0);
        llListen( avChannel, "", NULL_KEY, "" );
    }
    changed(integer type) {
        if (type & CHANGED_OWNER) llResetScript();
        if (type & CHANGED_INVENTORY) configRestart();
    }
    dataserver(key queryId, string data) {
        if (queryId != configReq) return;
        if (data != EOF) {
            llSetText("parsing line "+(string)configLine,<1,0,0>,1);
            parseDialogRC(data);
            configReq = llGetNotecardLine(configName,++configLine);
        } else {
            string nextConf = llList2String(llCSV2List(llGetScriptName()),1);
            if (("" != nextConf) && (configName != nextConf)) {
                configName = nextConf;
                configLine = 0;
                configReq = llGetNotecardLine(configName,++configLine);
            } else {
                if (0 != djChannel) {
                    if (0 < djChannel) djChannel = 0-djChannel;
                    llListen( 0-djChannel, "", NULL_KEY, "" );
                    llListen(   djChannel, "", NULL_KEY, "" );
                }
                llSetText("",<1,0,0>,1);
                flushDialog();
                llOwnerSay("Ready, listening on channel: "+(string)djChannel+
                    " free memory: "+(string)llGetFreeMemory());
            }
        }
    }
    touch_start(integer num) {
        key id = llDetectedKey(0);
        if (!permissions(id)) return;
        if (linked) {
            integer l = llDetectedLinkNumber(0);
            integer p = llListFindList(simpleOptions, [ llGetLinkName(l) ]);
            if (0 <= p)
                action(llList2String(simpleActions, p), id);
            else {
                p = llListFindList(dialogNames, [ llGetLinkName(l) ]);
                if (p >= 0) {
                    parseDialogLines(llList2String(dialogNames,p));
                    llDialog(id,llList2String(dialogNames,p),currentOptions,avChannel);
                }
            }
        } else
        if ((llGetListLength(dialogNames) > 1) || (llGetListLength(simpleActions) > 0)) {
            currentMenu = "";
            llDialog(id,llGetObjectDesc(),dialogNames+simpleOptions,avChannel);
        } else
        if (llGetListLength(dialogNames) == 1) {
            parseDialogLines(llList2String(dialogNames,0));
            llDialog(id,llList2String(dialogNames,0),currentOptions,avChannel);
        }
    }
    listen(integer channel, string name, key id, string message) {
        key k = id;
        if (llGetAgentInfo(id)<=0) k = llGetOwnerKey(k);
        if (!permissions(k)) return;
        if (avChannel != channel) {
            llMessageLinked(LINK_THIS,0,message,id);
            if (llGetOwner() != k) return;
            list tmp = llCSV2List(message);
            if ("DJ" == llList2String(tmp,0))
                djKey = llList2String(tmp,1);
            return;
        }
        if ("" == currentMenu) {
            integer i = llListFindList(simpleOptions,[ message ]);
            if (i>=0) action(llList2String(simpleActions, i), id);
            else {
                parseDialogLines(message);
                llDialog(id,currentMenu,currentOptions + [ "Back" ],channel);
            }
        } else 
        if ("Back" == message) {
            currentMenu = "";
            llDialog(id,llGetObjectDesc(),dialogNames+simpleOptions,channel);
        } else {
            integer i = llListFindList(currentOptions,[ message ]);
            if (i>=0) action(llList2String(currentValues, i), id);
            if (again) {
                if (llGetListLength(dialogNames) > 1)
                    llDialog(id,currentMenu,currentOptions + [ "Back" ],channel);
                else
                    llDialog(id,currentMenu,currentOptions,channel);
            }
        }
    }
}

Script: .lsDeejay media 08258

// .lsDeejay media 08258
// lsDeejay shoutcast management (c) Kephra Nurmi 2007
// published under Creative Commons Attribution-Share Alike 3.0 License
 
integer active = 0;
integer side = 0;
 
default {
    link_message(integer sender_num, integer num, string message, key id) {
        if (0 != num) {
            llRegionSay(num, message);
        }
        list tmp = llCSV2List(message);
        if (llGetListLength(tmp) < 2) return;
        string cmd = llList2String(tmp,0);
        string val = llList2String(tmp,1);
        if (cmd == "Side") side = (integer)val;
        if (-2 < side) {
            if (("Profile" == cmd) && (llGetListLength(tmp) == 4)) {
                llSetTexture(llList2String(tmp,3),side);
                llSetTextureAnim(0,0,0,0,0,0,0);
            }
            if (("Picture" == cmd) || ("Web" == cmd) || ("Video" == cmd)) {
                llSetTexture((key)val,side);
                llSetTextureAnim(0,0,0,0,0,0,0);
            }
            if (("Movie" == cmd) && (llGetListLength(tmp) == 5)) {
                llSetTexture(val,side);
                llSetTextureAnim(ANIM_ON | LOOP, side,llList2Integer(tmp,2),llList2Integer(tmp,3),0,0,llList2Float(tmp,4));
            }
        }
    }
 
    on_rez(integer start_param) {
        llResetScript();
    }
 
    changed( integer change ) {
        if (( change == CHANGED_INVENTORY ) || ( change == CHANGED_OWNER ))
            llResetScript();
    }
}

Notecard: .lsDeejay media

# Define a channel to talk
Channel=-17

# Allow either one of those
Allow=Owner
#Allow=Group
#Allow=All

# and several avatars by Callname Surename 
Allow=Kephra Nurmi
Allow=Hixor Blumenthal
Allow=Stratosphere Boelcke
Allow=Alez Ember
Allow=Hase Klaar

[Radio]
Pulse Radio=Music,http://stream.pulsradio.com:5000
Tags Trance Trip=Music,http://205.188.215.230:8012
MTHN=Music,http://club.mthn.net:8200

[Pictures]
ClubSchool=Picture,71367ad7-5b93-9bfe-3373-cfee04a5b164
VooDoo=Picture,05562a37-e85b-2559-8484-7012946d597b
NightFly=Picture,9286492d-507c-3fe3-0e61-f8464cf3466a
Oxygen=Picture,90975ac6-38e5-9bdb-5bce-183e2a58521e
Unser CLub=Picture,8db8af5b-6d80-fde4-7477-ae92325d9d3a
The Cube=Picture,ad4e9a95-cab1-dbee-3589-01f48bcaf5ee

[Web]
Status=Web,fc5b5054-bf15-0585-c149-88b6694a6600,http://status.secondlifegrid.net/
Kephra=Web,fe3367b5-8cd0-6977-919c-5c9ecfa291f9,http://kephra.de/

[Animation]
Autobahn=Movie,a5f8bd07-c516-a257-498d-17b674dda64d,6,8,8
Achterbahn=Movie,88c294a9-3033-c829-f275-99b7def2eb3c,8,8,8
Typo=Movie,52ab3b42-5797-391c-89bc-e37e5ab73b89,6,6,8
Money=Movie,f49ecdae-d0a1-a8a8-afed-ad549dd7027f,1,2,0.2
Jenny=Movie,a1e8a7fb-34a3-c610-4c8e-43faef2c06cd,4,8,6
Traveller=Movie,e00fb005-6497-acb4-5d76-225bdba7b3c9,6,8,8
Burning=Movie,fca18caa-8436-07c7-e96f-b88a8fd9cb72,6,6,6
Bunny=Movie,a8dfef76-b625-99b7-7379-315aebbdb699,3,3,6
Amaz=Movie,00be80f9-5efe-2b40-5826-af427a0996e4,4,8,8

[Quicktime]
Future is Hear=Video,52f10a42-2112-485d-2ff6-c026bc2c5d3b,http://blip.tv/file/get/Jimgustafson-TheFutureIsHear245.mov
Store Wars=Video,938a7be4-8191-47a2-37b1-991c05089020,http://www.archive.org/download/StoreWars/sw_3M.mov

[MPEG4]
Freeware=Video,3b5da8cb-b273-20ab-267c-b5c30121243a,http://www.archive.org/download/FREEWARE2001/FREEWARE2001_64kb.mp4
Zappa=Video,ec2e7cb3-5db2-7730-f0a6-df7ef6389f59,http://www.archive.org/download/FrankZappaOnCrossfire/zappaOnCrossfire_512kb.mp4
Nosferatu=Video,9f7f63b5-31fb-64d4-e09f-85a417e9ac73,http://www.archive.org/download/nosferatu_ipod/nosferatu_512kb.mp4

Sorry several of the videos are no longer available ;-(

Ready to use lsDeejay Home Edition

You can pick a ready to use lsDeejay Home Edition in my home at [Apoda].