+++ /dev/null
-
-// huffware script: freeview modified by fred huffhines (see original license below).
-//
-// my changes are licensed this way:
-// this script is licensed by the GPL v3 which is documented at: http://www.gnu.org/licenses/gpl.html
-// do not use it in objects without fully realizing you are implicitly accepting that license.
-//
-// fred's changes include:
-// + assorted tweaks that i have since forgotten the details about.
-// + set the freeview to startup as a picture viewer, since that's my most common usage.
-
-//////////////
-// original author info and licensing:
-//FreeView 1.2 WebGuide (revision 4) - By CrystalShard Foo
-//Multifunctional Picture viewer and Video control script with webguide support
-//This script is distributed for free and must stay that way.
-// *** If you wish to give/sell a product using this script, ***
-// *** THEN THE SCRIPT MUST REMAIN FULL-PERM AND FREE. ***
-// *** Failure to do so will REVOKE your right to use it! ***
-//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 = 30; //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 EXTERNAL_TOUCH_CHANNEL = 1327;
- // used by other prims to tell the viewer prim that the avatar has clicked on them.
-
-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;
-}
-
-//////////////
-// from hufflets...
-
-// returns the index of the first occurrence of "pattern" inside
-// the "full_string". if it is not found, then a negative number is returned.
-integer find_substring(string full_string, string pattern)
-{ return llSubStringIndex(llToLower(full_string), llToLower(pattern)); }
-
-// returns TRUE if the "prefix" string is the first part of "compare_with".
-integer is_prefix(string compare_with, string prefix)
-{ return find_substring(compare_with, prefix) == 0; }
-
-//////////////
-// huffware script: auto-retire, by fred huffhines, version 2.8.
-// distributed under BSD-like license.
-// !! keep in mind that this code must be *copied* into another
-// !! script that you wish to add auto-retirement capability to.
-// when a script has auto_retire in it, it can be dropped into an
-// object and the most recent version of the script will destroy
-// all older versions.
-//
-// the version numbers are embedded into the script names themselves.
-// the notation for versions uses a letter 'v', followed by two numbers
-// in the form "major.minor".
-// major and minor versions are implicitly considered as a floating point
-// number that increases with each newer version of the script. thus,
-// "hazmap v0.1" might be the first script in the "hazmap" script continuum,
-// and "hazmap v3.2" is a more recent version.
-//
-// example usage of the auto-retirement script:
-// default {
-// state_entry() {
-// auto_retire(); // make sure newest addition is only version of script.
-// }
-// }
-// this script is partly based on the self-upgrading scripts from markov brodsky
-// and jippen faddoul.
-//////////////
-auto_retire() {
- string self = llGetScriptName(); // the name of this script.
- list split = compute_basename_and_version(self);
- if (llGetListLength(split) != 2) return; // nothing to do for this script.
- string basename = llList2String(split, 0); // script name with no version attached.
- string version_string = llList2String(split, 1); // the version found.
- integer posn;
- // find any scripts that match the basename. they are variants of this script.
- for (posn = llGetInventoryNumber(INVENTORY_SCRIPT) - 1; posn >= 0; posn--) {
- string curr_script = llGetInventoryName(INVENTORY_SCRIPT, posn);
- if ( (curr_script != self) && (llSubStringIndex(curr_script, basename) == 0) ) {
- // found a basic match at least.
- list inv_split = compute_basename_and_version(curr_script);
- if (llGetListLength(inv_split) == 2) {
- // see if this script is more ancient.
- string inv_version_string = llList2String(inv_split, 1); // the version found.
- // must make sure that the retiring script is completely the identical basename;
- // just matching in the front doesn't make it a relative.
- if ( (llList2String(inv_split, 0) == basename)
- && ((float)inv_version_string < (float)version_string) ) {
- // remove script with same name from inventory that has inferior version.
- llRemoveInventory(curr_script);
- }
- }
- }
- }
-}
-//
-// separates the base script name and version number. used by auto_retire.
-list compute_basename_and_version(string to_chop_up)
-{
- // minimum script name is 2 characters plus a version.
- integer space_v_posn;
- // find the last useful space and 'v' combo.
- for (space_v_posn = llStringLength(to_chop_up) - 3;
- (space_v_posn >= 2) && (llGetSubString(to_chop_up, space_v_posn, space_v_posn + 1) != " v");
- space_v_posn--) {
- // look for space and v but do nothing else.
- }
- if (space_v_posn < 2) return []; // no space found.
- // now we zoom through the stuff after our beloved v character and find any evil
- // space characters, which are most likely from SL having found a duplicate item
- // name and not so helpfully renamed it for us.
- integer indy;
- for (indy = llStringLength(to_chop_up) - 1; indy > space_v_posn; indy--) {
- if (llGetSubString(to_chop_up, indy, indy) == " ") {
- // found one; zap it. since we're going backwards we don't need to
- // adjust the loop at all.
- to_chop_up = llDeleteSubString(to_chop_up, indy, indy);
- }
- }
- string full_suffix = llGetSubString(to_chop_up, space_v_posn, -1);
- // ditch the space character for our numerical check.
- string chop_suffix = llGetSubString(full_suffix, 1, llStringLength(full_suffix) - 1);
- // strip out a 'v' if there is one.
- if (llGetSubString(chop_suffix, 0, 0) == "v")
- chop_suffix = llGetSubString(chop_suffix, 1, llStringLength(chop_suffix) - 1);
- // if valid floating point number and greater than zero, that works for our version.
- string basename = to_chop_up; // script name with no version attached.
- if ((float)chop_suffix > 0.0) {
- // this is a big success right here.
- basename = llGetSubString(to_chop_up, 0, -llStringLength(full_suffix) - 1);
- return [ basename, chop_suffix ];
- }
- // seems like we found nothing useful.
- return [];
-}
-//
-//////////////
-
-default {
- state_entry() { if (llSubStringIndex(llGetObjectName(), "huffotronic") < 0) state real_default; }
- on_rez(integer parm) { state rerun; }
-}
-state rerun { state_entry() { state default; } }
-
-state real_default
-{
- state_entry()
- {
- auto_retire();
- llListen(EXTERNAL_TOUCH_CHANNEL, "", NULL_KEY, "");
- // we listen on our touch channel in all cases and in all states. this allows us
- // to always pass along the user's touch from other prims to run the menus.
- 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();
- // fred's changes to start up in picture viewing looper.
- mode = 1; // picture viewing.
- pictures(); // show the pictures.
- loop_image = TRUE;
- llSetTimerEvent(PICTURE_ROTATION_TIMER); // keep showing new pics.
- }
-
- on_rez(integer i)
- {
- llSay(0,"Welcome to FreeView - your free, open-source television!");
- 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;
- //-------------------------------------------------------------------------------
-
- 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
- }
- else if(change == CHANGED_OWNER)
- {
- 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();
- }
- }
- }
-
- listen(integer channel, string name, key id, string message)
- {
- if ( (channel == EXTERNAL_TOUCH_CHANNEL) && is_prefix(message, "touched")) {
- // pretend we got touched by the av.
- message = llDeleteSubString(message, 0, 6);
- menu((key)message);
- return;
- }
- 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
- }
-}
-