Djphil : Page créée avec « A basic parcel radio, using OSSL functions to read a notecard, cointaining a list of stations. * Open access, so anyone can change stations. * Very basic, and much could be… »

Djphil — Thu, 12 Apr 2012 04:52:18 GMT

Page créée avec « A basic parcel radio, using OSSL functions to read a notecard, cointaining a list of stations. * Open access, so anyone can change stations. * Very basic, and much could be… »

Nouvelle page

A basic parcel radio, using OSSL functions to read a notecard, cointaining a list of stations.

* Open access, so anyone can change stations.
* Very basic, and much could be added or improved.
* Demonstrates the use of OSSL functions to read a notecard.

'''Updates'''
* 0.12 - Selected station choice is now saved in the object description, and will be re-applied to the land/parcel upon script stert.
* 0.11 - Improved menu system
* 0.10 - Initial version

=== Notecard ===
Name the notecard "stations" and place it in your prim.
Here are some example stations, copy and pase these exatly into your notecard:

Public Domain Jazz=http://82.197.167.138:80
Digital Gunfire=http://radio1-uk.digitalgunfire.com:8000
Salsa and Latin=http://205.188.215.231:8010
Retro=http://scfire-ntc-aa03.stream.aol.com:80/stream/1013

More stations can be found at http://www.shoutcast.com

=== OpenSimulator Radio ===
<lsl>
// ######################################
// Radio for OpenSim, by Fritigern Gothly
// Version 0.12 - Oct 08, 2011
//
// Add your name and date to these
// comments if you alter this script in
// any way.
// If you put this in your own build,
// make sure to mention BOTH me and you!
// ######################################

integer dchannel; // Will be a random number.
key toucher;
string stationcard = "stations"; // Name for the notecard. Change this is you want to use a different name.
integer cardlines;
integer n;
integer i;
list names;
list uris;
list page;
integer pagenum;

// ----------------------
// Needed user functions.
// ----------------------

initialize()
{
//Clear the values to prevent problems
names =[];
uris=[];
page = [];
pagenum=0;
cardlines=0;
// Now get all stations (again)
cardlines = osGetNumberOfNotecardLines(stationcard);
for(n=0;n<cardlines;++n)
{
// Use llStringTrim to get rid of additional spaces around the
// string. Makes this script a little more forgiving.
string line = llStringTrim(osGetNotecardLine(stationcard,n), STRING_TRIM);
if(llGetSubString(line,0,0)=="#" || line == "")
{
// Skip comments and empty lines
} else {
integer seperator = llSubStringIndex(line, "=");
uris += [llStringTrim(llGetSubString(line,seperator+1,llStringLength(line)), STRING_TRIM)];

// Make sure that the button names fit on the buttons. Names
// can be up to 24 characters (but only a few will show),
// Doing this will let you put really long station names in
// the notecard without problems.
string desc = llStringTrim(llGetSubString(line,0,seperator-1), STRING_TRIM);
if(llStringLength(desc) >= 23) desc = llGetSubString(desc,0,23);
names += [desc];
}
}

// Get all entries from the list of station names and put them in a string
// in groups of nine, and put them in a new list..
string btn;
for(n=0;n<llGetListLength(names);n=n+9)
{
for(i=n;i<(n+9);++i) // Get 9 buttons....
{
if(n>llGetListLength(names)) return;
btn += llList2String(names,i)+",";
}
page += [btn]; // ...And put them in a list again! (As a string, not as list items!)
btn="";
}
llOwnerSay("Notecard loaded. "+(string)llGetListLength(names)+" stations in "+llGetListLength(page)+" pages.");
}

dialog(string buttons)
{
list b = ["< Prev","Cancel","Next >"]+llParseString2List(buttons,",","");
string txt = "\nShowing stations "+(string)((pagenum*9)+1)+" to "+(string)((pagenum*9)+llGetListLength(llParseString2List(buttons,",","")))+
" of "+(string)llGetListLength(names)+" loaded.\n"+
"\nPage "+(string)(pagenum+1)+" of "+(string)llGetListLength(page);
llDialog(toucher, txt+"\nChoose a station:", b, dchannel);
b=[]; // Clear the list, and save some memory.
}

default
{
state_entry()
{
dchannel = llFloor(llFrand(9999999)); // Choose a random channel.
initialize();
if(llGetObjectDesc() != (integer)llGetObjectDesc()||llGetObjectDesc() == "")
{
llSetText("OpenSimulator Radio\nClick to choose a station", <1,1,1>,1);
} else {
integer index = (integer)llGetObjectDesc();
llSetText(llList2String(names,index)+"\n"+llList2String(uris,index),<1,1,0>,1);
llSetParcelMusicURL(llList2String(uris,index)); // Sometimes the parcel's audio settings don't survive a restart or server upgrade. So we'll set it again, just to make sure.
}
// llOwnerSay("Ready");
}

touch_start(integer numdet)
{
toucher = llDetectedKey(0);
llListen(dchannel, "","","");
dialog(llList2String(page,pagenum));

}

listen(integer channel, string name, key id, string msg)
{
if(msg == "< Prev")
{
--pagenum;
if(pagenum<0) pagenum = llGetListLength(page)-1;
dialog(llList2String(page,pagenum));
}
else if(msg == "Next >")
{
++pagenum;
if(pagenum>=llGetListLength(page)) pagenum = 0;
dialog(llList2String(page,pagenum));
}
else if(msg == "Cancel")
{
pagenum = 0;
return;
}
else {
// If none of the predefined buttons were clicked, it must be a station name.
integer index = llListFindList(names,msg);
llSetParcelMusicURL(llList2String(uris,index));
llSay(0,"Station changed to "+llList2String(names,index)+" ("+llList2String(uris,index)+")");
llSetText(llList2String(names,index)+"\n"+llList2String(uris,index),<1,1,0>,1);
llSetObjectDesc((string)index);
}
}

changed(integer ischanged)
{
//If something changed in the inventory, go and read the list with stations again!
if(ischanged & CHANGED_INVENTORY) initialize();
}
}</lsl>

[[Category:Scripts]]

OSSL Script Library/OpenSim Radio - Historique des versions

Djphil : Page créée avec « A basic parcel radio, using OSSL functions to read a notecard, cointaining a list of stations. * Open access, so anyone can change stations. * Very basic, and much could be… »