/* * Copyright (c) Contributors, http://opensimulator.org/ * See CONTRIBUTORS.TXT for a full list of copyright holders. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are met: * * Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * * Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * Neither the name of the OpenSim Project nor the * names of its contributors may be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``AS IS'' AND ANY * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * */ using System; using System.Collections; using System.Collections.Generic; using System.Runtime.Remoting.Lifetime; using System.Text; using System.Threading; using Axiom.Math; using libsecondlife; using OpenSim.Framework; using OpenSim.Framework.Communications; using OpenSim.Region.Environment.Interfaces; using OpenSim.Region.Environment.Scenes; using OpenSim.Region.ScriptEngine.Common; using OpenSim.Region.ScriptEngine.Common.ScriptEngineBase; using OpenSim.Region.Environment; //using OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.LSL; namespace OpenSim.Region.ScriptEngine.Common { /// /// Contains all LSL ll-functions. This class will be in Default AppDomain. /// public class LSL_BuiltIn_Commands : MarshalByRefObject, LSL_BuiltIn_Commands_Interface { //private static readonly log4net.ILog m_log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType); private ASCIIEncoding enc = new ASCIIEncoding(); private ScriptEngineBase.ScriptEngine m_ScriptEngine; private SceneObjectPart m_host; private uint m_localID; private LLUUID m_itemID; private bool throwErrorOnNotImplemented = true; public LSL_BuiltIn_Commands(ScriptEngineBase.ScriptEngine ScriptEngine, SceneObjectPart host, uint localID, LLUUID itemID) { m_ScriptEngine = ScriptEngine; m_host = host; m_localID = localID; m_itemID = itemID; //m_log.Info(ScriptEngineName, "LSL_BaseClass.Start() called. Hosted by [" + m_host.Name + ":" + m_host.UUID + "@" + m_host.AbsolutePosition + "]"); } private DateTime m_timer = DateTime.Now; private string m_state = "default"; public string State { get { return m_state; } set { bool changed = false; if (m_state != value) changed = true; // Set it m_state = value; if (changed) { m_ScriptEngine.m_EventManager.state_entry(m_localID); } } } // Object never expires public override Object InitializeLifetimeService() { //Console.WriteLine("LSL_BuiltIn_Commands: InitializeLifetimeService()"); // return null; ILease lease = (ILease)base.InitializeLifetimeService(); if (lease.CurrentState == LeaseState.Initial) { lease.InitialLeaseTime = TimeSpan.Zero; // TimeSpan.FromMinutes(1); // lease.SponsorshipTimeout = TimeSpan.FromMinutes(2); // lease.RenewOnCallTime = TimeSpan.FromSeconds(2); } return lease; } public Scene World { get { return m_ScriptEngine.World; } } //These are the implementations of the various ll-functions used by the LSL scripts. //starting out, we use the System.Math library for trig functions. - ckrinke 8-14-07 public double llSin(double f) { m_host.AddScriptLPS(1); return (double)Math.Sin(f); } public double llCos(double f) { m_host.AddScriptLPS(1); return (double)Math.Cos(f); } public double llTan(double f) { m_host.AddScriptLPS(1); return (double)Math.Tan(f); } public double llAtan2(double x, double y) { m_host.AddScriptLPS(1); return (double)Math.Atan2(y, x); } public double llSqrt(double f) { m_host.AddScriptLPS(1); return (double)Math.Sqrt(f); } public double llPow(double fbase, double fexponent) { m_host.AddScriptLPS(1); return (double)Math.Pow(fbase, fexponent); } public int llAbs(int i) { m_host.AddScriptLPS(1); return (int)Math.Abs(i); } public double llFabs(double f) { m_host.AddScriptLPS(1); return (double)Math.Abs(f); } public double llFrand(double mag) { m_host.AddScriptLPS(1); lock (Util.RandomClass) { return Util.RandomClass.NextDouble() * mag; } } public int llFloor(double f) { m_host.AddScriptLPS(1); return (int)Math.Floor(f); } public int llCeil(double f) { m_host.AddScriptLPS(1); return (int)Math.Ceiling(f); } public int llRound(double f) { m_host.AddScriptLPS(1); return (int)Math.Round(f, 0); } //This next group are vector operations involving squaring and square root. ckrinke public double llVecMag(LSL_Types.Vector3 v) { m_host.AddScriptLPS(1); return (v.x * v.x + v.y * v.y + v.z * v.z); } public LSL_Types.Vector3 llVecNorm(LSL_Types.Vector3 v) { m_host.AddScriptLPS(1); double mag = v.x * v.x + v.y * v.y + v.z * v.z; LSL_Types.Vector3 nor = new LSL_Types.Vector3(); nor.x = v.x / mag; nor.y = v.y / mag; nor.z = v.z / mag; return nor; } public double llVecDist(LSL_Types.Vector3 a, LSL_Types.Vector3 b) { m_host.AddScriptLPS(1); double dx = a.x - b.x; double dy = a.y - b.y; double dz = a.z - b.z; return Math.Sqrt(dx * dx + dy * dy + dz * dz); } //Now we start getting into quaternions which means sin/cos, matrices and vectors. ckrinke public LSL_Types.Vector3 llRot2Euler(LSL_Types.Quaternion r) { m_host.AddScriptLPS(1); //This implementation is from http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions. ckrinke LSL_Types.Quaternion t = new LSL_Types.Quaternion(r.x * r.x, r.y * r.y, r.z * r.z, r.s * r.s); double m = (t.x + t.y + t.z + t.s); if (m == 0) return new LSL_Types.Vector3(); double n = 2 * (r.y * r.s + r.x * r.z); double p = m * m - n * n; if (p > 0) return new LSL_Types.Vector3(Math.Atan2(2.0 * (r.x * r.s - r.y * r.z), (-t.x - t.y + t.z + t.s)), Math.Atan2(n, Math.Sqrt(p)), Math.Atan2(2.0 * (r.z * r.s - r.x * r.y), (t.x - t.y - t.z + t.s))); else if (n > 0) return new LSL_Types.Vector3(0.0, Math.PI / 2, Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.z)); else return new LSL_Types.Vector3(0.0, -Math.PI / 2, Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.z)); } public LSL_Types.Quaternion llEuler2Rot(LSL_Types.Vector3 v) { m_host.AddScriptLPS(1); //this comes from from http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions but is incomplete as of 8/19/07 float err = 0.00001f; double ax = Math.Sin(v.x / 2); double aw = Math.Cos(v.x / 2); double by = Math.Sin(v.y / 2); double bw = Math.Cos(v.y / 2); double cz = Math.Sin(v.z / 2); double cw = Math.Cos(v.z / 2); LSL_Types.Quaternion a1 = new LSL_Types.Quaternion(0.0, 0.0, cz, cw); LSL_Types.Quaternion a2 = new LSL_Types.Quaternion(0.0, by, 0.0, bw); LSL_Types.Quaternion a3 = new LSL_Types.Quaternion(ax, 0.0, 0.0, aw); LSL_Types.Quaternion a = (a1 * a2) * a3; //This multiplication doesnt compile, yet. a = a1 * a2 * a3; LSL_Types.Quaternion b = new LSL_Types.Quaternion(ax * bw * cw + aw * by * cz, aw * by * cw - ax * bw * cz, aw * bw * cz + ax * by * cw, aw * bw * cw - ax * by * cz); LSL_Types.Quaternion c = new LSL_Types.Quaternion(); //This addition doesnt compile yet c = a + b; LSL_Types.Quaternion d = new LSL_Types.Quaternion(); //This addition doesnt compile yet d = a - b; if ((Math.Abs(c.x) > err && Math.Abs(d.x) > err) || (Math.Abs(c.y) > err && Math.Abs(d.y) > err) || (Math.Abs(c.z) > err && Math.Abs(d.z) > err) || (Math.Abs(c.s) > err && Math.Abs(d.s) > err)) { return b; //return a new Quaternion that is null until I figure this out // return b; // return a; } return a; } public LSL_Types.Quaternion llAxes2Rot(LSL_Types.Vector3 fwd, LSL_Types.Vector3 left, LSL_Types.Vector3 up) { m_host.AddScriptLPS(1); return new LSL_Types.Quaternion(); } public LSL_Types.Vector3 llRot2Fwd(LSL_Types.Quaternion r) { m_host.AddScriptLPS(1); return (new LSL_Types.Vector3(1,0,0) * r); } public LSL_Types.Vector3 llRot2Left(LSL_Types.Quaternion r) { m_host.AddScriptLPS(1); return (new LSL_Types.Vector3(0, 1, 0) * r); } public LSL_Types.Vector3 llRot2Up(LSL_Types.Quaternion r) { m_host.AddScriptLPS(1); return (new LSL_Types.Vector3(0, 0, 1) * r); } public LSL_Types.Quaternion llRotBetween(LSL_Types.Vector3 a, LSL_Types.Vector3 b) { //A and B should both be normalized m_host.AddScriptLPS(1); double dotProduct = LSL_Types.Vector3.Dot(a, b); LSL_Types.Vector3 crossProduct = LSL_Types.Vector3.Cross(a, b); double magProduct = LSL_Types.Vector3.Mag(a) * LSL_Types.Vector3.Mag(b); double angle = Math.Acos(dotProduct / magProduct); LSL_Types.Vector3 axis = LSL_Types.Vector3.Norm(crossProduct); double s = Math.Sin(angle / 2); return new LSL_Types.Quaternion(axis.x * s, axis.y * s, axis.z * s, (float)Math.Cos(angle / 2)); } public void llWhisper(int channelID, string text) { m_host.AddScriptLPS(1); World.SimChat(Helpers.StringToField(text), ChatTypeEnum.Whisper, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID); IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); wComm.DeliverMessage(m_host.UUID.ToString(), ChatTypeEnum.Whisper, channelID, m_host.Name, text); } public void llSay(int channelID, string text) { m_host.AddScriptLPS(1); World.SimChat(Helpers.StringToField(text), ChatTypeEnum.Say, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID); IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); wComm.DeliverMessage(m_host.UUID.ToString(), ChatTypeEnum.Say, channelID, m_host.Name, text); } public void llShout(int channelID, string text) { m_host.AddScriptLPS(1); World.SimChat(Helpers.StringToField(text), ChatTypeEnum.Shout, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID); IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); wComm.DeliverMessage(m_host.UUID.ToString(), ChatTypeEnum.Shout, channelID, m_host.Name, text); } public int llListen(int channelID, string name, string ID, string msg) { m_host.AddScriptLPS(1); if (ID == String.Empty) { ID = LLUUID.Zero.ToString(); } IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); return wComm.Listen(m_localID, m_itemID, m_host.UUID, channelID, name, ID, msg); } public void llListenControl(int number, int active) { m_host.AddScriptLPS(1); IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); wComm.ListenControl(number, active); } public void llListenRemove(int number) { m_host.AddScriptLPS(1); IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); wComm.ListenRemove(number); } public void llSensor(string name, string id, int type, double range, double arc) { m_host.AddScriptLPS(1); LLUUID keyID = LLUUID.Zero; try { if (id.Length > 0) keyID = new LLUUID(id); } catch { } m_ScriptEngine.m_ASYNCLSLCommandManager.m_SensorRepeat.SenseOnce(m_localID, m_itemID, name, keyID, type, range, arc, m_host); return; // NotImplemented("llSensor"); } public void llSensorRepeat(string name, string id, int type, double range, double arc, double rate) { m_host.AddScriptLPS(1); LLUUID keyID = LLUUID.Zero; try { if (id.Length > 0) keyID = new LLUUID(id); } catch { } m_ScriptEngine.m_ASYNCLSLCommandManager.m_SensorRepeat.SetSenseRepeatEvent(m_localID, m_itemID, name, keyID, type, range, arc, rate, m_host); return; // NotImplemented("llSensorRepeat"); } public void llSensorRemove() { m_host.AddScriptLPS(1); m_ScriptEngine.m_ASYNCLSLCommandManager.m_SensorRepeat.UnSetSenseRepeaterEvents(m_localID, m_itemID); return; // NotImplemented("llSensorRemove"); } public string resolveName(LLUUID objecUUID) { // try avatar username surname UserProfileData profile = World.CommsManager.UserService.GetUserProfile(objecUUID); if (profile != null) { string avatarname = profile.username + " " + profile.surname; return avatarname; } // try an scene object SceneObjectPart SOP = World.GetSceneObjectPart(objecUUID); if (SOP != null) { string objectname = SOP.Name; return objectname; } EntityBase SensedObject = null; lock (World.Entities) { World.Entities.TryGetValue(objecUUID, out SensedObject); } if (SensedObject == null) return String.Empty; return SensedObject.Name; } public string llDetectedName(int number) { m_host.AddScriptLPS(1); LSL_Types.list SenseList = m_ScriptEngine.m_ASYNCLSLCommandManager.m_SensorRepeat.GetSensorList(m_localID, m_itemID); if ((number>=0)&&(number <= SenseList.Length)) { LLUUID SensedUUID = (LLUUID)SenseList.Data[number]; return resolveName(SensedUUID); } else return String.Empty; //NotImplemented("llDetectedName"); } public LLUUID uuidDetectedKey(int number) { LSL_Types.list SenseList = m_ScriptEngine.m_ASYNCLSLCommandManager.m_SensorRepeat.GetSensorList(m_localID, m_itemID); if ((number >= 0) && (number < SenseList.Length)) { LLUUID SensedUUID = (LLUUID)SenseList.Data[number]; return SensedUUID; } return LLUUID.Zero; } public EntityBase entityDetectedKey(int number) { LSL_Types.list SenseList = m_ScriptEngine.m_ASYNCLSLCommandManager.m_SensorRepeat.GetSensorList(m_localID, m_itemID); if ((number >= 0) && (number < SenseList.Length)) { LLUUID SensedUUID = (LLUUID)SenseList.Data[number]; EntityBase SensedObject = null; lock (World.Entities) { World.Entities.TryGetValue(SensedUUID, out SensedObject); } return SensedObject; } return null; } public string llDetectedKey(int number) { m_host.AddScriptLPS(1); LLUUID SensedUUID = uuidDetectedKey(number); if (SensedUUID == LLUUID.Zero) return String.Empty; return SensedUUID.ToString(); } public string llDetectedOwner(int number) { // returns UUID of owner of object detected m_host.AddScriptLPS(1); EntityBase SensedObject = entityDetectedKey(number); if (SensedObject ==null) return String.Empty; //return SensedObject.O .Name; // What is the owner of the object ? //EntityBase SensedObject = World.GetScenePresence(SensedUUID); LLUUID SensedUUID = uuidDetectedKey(number); SceneObjectPart SOP = World.GetSceneObjectPart(SensedUUID); if (SOP != null) { return SOP.ObjectOwner.ToString(); } return String.Empty; } public int llDetectedType(int number) { m_host.AddScriptLPS(1); EntityBase SensedObject = entityDetectedKey(number); if (SensedObject == null) return 0; int mask = 0; LLUUID SensedUUID = uuidDetectedKey(number); LSL_Types.Vector3 ZeroVector = new LSL_Types.Vector3(0, 0, 0); if (World.GetScenePresence(SensedUUID) != null) mask |= 0x01; // actor if (SensedObject.Velocity.Equals(ZeroVector)) mask |= 0x04; // passive non-moving else mask |= 0x02; // active moving if (SensedObject is IScript) mask |= 0x08; // Scripted. It COULD have one hidden ... return mask; } public LSL_Types.Vector3 llDetectedPos(int number) { m_host.AddScriptLPS(1); EntityBase SensedObject = entityDetectedKey(number); if (SensedObject == null) return new LSL_Types.Vector3(0, 0, 0); return new LSL_Types.Vector3(SensedObject.AbsolutePosition.X,SensedObject.AbsolutePosition.Y,SensedObject.AbsolutePosition.Z); //NotImplemented("llDetectedPos"); } public LSL_Types.Vector3 llDetectedVel(int number) { m_host.AddScriptLPS(1); EntityBase SensedObject = entityDetectedKey(number); if (SensedObject == null) return new LSL_Types.Vector3(0, 0, 0); return new LSL_Types.Vector3(SensedObject.Velocity.X, SensedObject.Velocity.Y, SensedObject.Velocity.Z); // NotImplemented("llDetectedVel"); // return new LSL_Types.Vector3(); } public LSL_Types.Vector3 llDetectedGrab(int number) { m_host.AddScriptLPS(1); NotImplemented("llDetectedGrab"); return new LSL_Types.Vector3(); } public LSL_Types.Quaternion llDetectedRot(int number) { m_host.AddScriptLPS(1); EntityBase SensedObject = entityDetectedKey(number); if (SensedObject == null) return new LSL_Types.Quaternion(); return new LSL_Types.Quaternion(SensedObject.Rotation.x, SensedObject.Rotation.y, SensedObject.Rotation.z, SensedObject.Rotation.w); } public int llDetectedGroup(int number) { m_host.AddScriptLPS(1); NotImplemented("llDetectedGroup"); return 0; } public int llDetectedLinkNumber(int number) { m_host.AddScriptLPS(1); NotImplemented("llDetectedLinkNumber"); return 0; } public void llDie() { m_host.AddScriptLPS(1); World.DeleteSceneObjectGroup(m_host.ParentGroup); return; } public double llGround(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); int x = (int)(m_host.AbsolutePosition.X + offset.x); int y = (int)(m_host.AbsolutePosition.Y + offset.y); return World.GetLandHeight(x, y); } public double llCloud(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); NotImplemented("llCloud"); return 0; } public LSL_Types.Vector3 llWind(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); NotImplemented("llWind"); return new LSL_Types.Vector3(); } public void llSetStatus(int status, int value) { m_host.AddScriptLPS(1); if ((status & BuiltIn_Commands_BaseClass.STATUS_PHYSICS) == BuiltIn_Commands_BaseClass.STATUS_PHYSICS) { m_host.AddFlag(LLObject.ObjectFlags.Physics); } if ((status & BuiltIn_Commands_BaseClass.STATUS_PHANTOM) == BuiltIn_Commands_BaseClass.STATUS_PHANTOM) { m_host.AddFlag(LLObject.ObjectFlags.Phantom); } if ((status & BuiltIn_Commands_BaseClass.STATUS_CAST_SHADOWS) == BuiltIn_Commands_BaseClass.STATUS_CAST_SHADOWS) { m_host.AddFlag(LLObject.ObjectFlags.CastShadows); } if ((status & BuiltIn_Commands_BaseClass.STATUS_ROTATE_X) == BuiltIn_Commands_BaseClass.STATUS_ROTATE_X) { NotImplemented("llSetStatus - STATUS_ROTATE_X"); } if ((status & BuiltIn_Commands_BaseClass.STATUS_ROTATE_Y) == BuiltIn_Commands_BaseClass.STATUS_ROTATE_Y) { NotImplemented("llSetStatus - STATUS_ROTATE_Y"); } if ((status & BuiltIn_Commands_BaseClass.STATUS_ROTATE_Z) == BuiltIn_Commands_BaseClass.STATUS_ROTATE_Z) { NotImplemented("llSetStatus - STATUS_ROTATE_Z"); } if ((status & BuiltIn_Commands_BaseClass.STATUS_BLOCK_GRAB) == BuiltIn_Commands_BaseClass.STATUS_BLOCK_GRAB) { NotImplemented("llSetStatus - STATUS_BLOCK_GRAB"); } if ((status & BuiltIn_Commands_BaseClass.STATUS_DIE_AT_EDGE) == BuiltIn_Commands_BaseClass.STATUS_DIE_AT_EDGE) { NotImplemented("llSetStatus - STATUS_DIE_AT_EDGE"); } if ((status & BuiltIn_Commands_BaseClass.STATUS_RETURN_AT_EDGE) == BuiltIn_Commands_BaseClass.STATUS_RETURN_AT_EDGE) { NotImplemented("llSetStatus - STATUS_RETURN_AT_EDGE"); } if ((status & BuiltIn_Commands_BaseClass.STATUS_SANDBOX) == BuiltIn_Commands_BaseClass.STATUS_SANDBOX) { NotImplemented("llSetStatus - STATUS_SANDBOX"); } return; } public int llGetStatus(int status) { m_host.AddScriptLPS(1); Console.WriteLine(m_host.UUID.ToString() + " status is " + m_host.ObjectFlags.ToString()); switch (status) { case BuiltIn_Commands_BaseClass.STATUS_PHYSICS: if ((m_host.ObjectFlags & (uint)LLObject.ObjectFlags.Physics) == (uint)LLObject.ObjectFlags.Physics) { return 1; } return 0; case BuiltIn_Commands_BaseClass.STATUS_PHANTOM: if ((m_host.ObjectFlags & (uint)LLObject.ObjectFlags.Phantom) == (uint)LLObject.ObjectFlags.Phantom) { return 1; } return 0; case BuiltIn_Commands_BaseClass.STATUS_CAST_SHADOWS: if ((m_host.ObjectFlags & (uint)LLObject.ObjectFlags.CastShadows) == (uint)LLObject.ObjectFlags.CastShadows) { return 1; } return 0; case BuiltIn_Commands_BaseClass.STATUS_BLOCK_GRAB: NotImplemented("llGetStatus - STATUS_BLOCK_GRAB"); return 0; case BuiltIn_Commands_BaseClass.STATUS_DIE_AT_EDGE: NotImplemented("llGetStatus - STATUS_DIE_AT_EDGE"); return 0; case BuiltIn_Commands_BaseClass.STATUS_RETURN_AT_EDGE: NotImplemented("llGetStatus - STATUS_RETURN_AT_EDGE"); return 0; case BuiltIn_Commands_BaseClass.STATUS_ROTATE_X: NotImplemented("llGetStatus - STATUS_ROTATE_X"); return 0; case BuiltIn_Commands_BaseClass.STATUS_ROTATE_Y: NotImplemented("llGetStatus - STATUS_ROTATE_Y"); return 0; case BuiltIn_Commands_BaseClass.STATUS_ROTATE_Z: NotImplemented("llGetStatus - STATUS_ROTATE_Z"); return 0; case BuiltIn_Commands_BaseClass.STATUS_SANDBOX: NotImplemented("llGetStatus - STATUS_SANDBOX"); return 0; } NotImplemented("llGetStatus - Unknown Status parameter"); return 0; } public void llSetScale(LSL_Types.Vector3 scale) { m_host.AddScriptLPS(1); // TODO: this needs to trigger a persistance save as well LLVector3 tmp = m_host.Scale; tmp.X = (float)scale.x; tmp.Y = (float)scale.y; tmp.Z = (float)scale.z; m_host.Scale = tmp; m_host.SendFullUpdateToAllClients(); return; } public LSL_Types.Vector3 llGetScale() { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(m_host.Scale.X, m_host.Scale.Y, m_host.Scale.Z); } public void llSetColor(LSL_Types.Vector3 color, int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; LLColor texcolor; if (face > -1) { texcolor = tex.CreateFace((uint)face).RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.FaceTextures[face].RGBA = texcolor; m_host.UpdateTexture(tex); return; } else if (face == -1) { for (uint i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { texcolor = tex.FaceTextures[i].RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.FaceTextures[i].RGBA = texcolor; } texcolor = tex.DefaultTexture.RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.DefaultTexture.RGBA = texcolor; } m_host.UpdateTexture(tex); return; } else { NotImplemented("llSetColor"); } } public double llGetAlpha(int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; if (face == -1) // TMP: Until we can determine number of sides, ALL_SIDES (-1) will return default color { return (double)((tex.DefaultTexture.RGBA.A * 255) / 255); } if (face > -1) { return (double)((tex.GetFace((uint)face).RGBA.A * 255) / 255); } return 0; } public void llSetAlpha(double alpha, int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; LLColor texcolor; if (face > -1) { texcolor = tex.CreateFace((uint)face).RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.FaceTextures[face].RGBA = texcolor; m_host.UpdateTexture(tex); return; } else if (face == -1) { for (int i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { texcolor = tex.FaceTextures[i].RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.FaceTextures[i].RGBA = texcolor; } } texcolor = tex.DefaultTexture.RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.DefaultTexture.RGBA = texcolor; m_host.UpdateTexture(tex); return; } else { NotImplemented("llSetAlpha"); } } public LSL_Types.Vector3 llGetColor(int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; LLColor texcolor; LSL_Types.Vector3 rgb; if (face == -1) // TMP: Until we can determine number of sides, ALL_SIDES (-1) will return default color { texcolor = tex.DefaultTexture.RGBA; rgb.x = (255 - (texcolor.R * 255)) / 255; rgb.y = (255 - (texcolor.G * 255)) / 255; rgb.z = (255 - (texcolor.B * 255)) / 255; return rgb; } if (face > -1) { texcolor = tex.GetFace((uint)face).RGBA; rgb.x = (255 - (texcolor.R * 255)) / 255; rgb.y = (255 - (texcolor.G * 255)) / 255; rgb.z = (255 - (texcolor.B * 255)) / 255; return rgb; } else { NotImplemented("llGetColor"); return new LSL_Types.Vector3(); } } public void llSetTexture(string texture, int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; if (face > -1) { LLObject.TextureEntryFace texface = tex.CreateFace((uint)face); texface.TextureID = new LLUUID(texture); tex.FaceTextures[face] = texface; m_host.UpdateTexture(tex); return; } else if (face == -1) { for (uint i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { tex.FaceTextures[i].TextureID = new LLUUID(texture); } } tex.DefaultTexture.TextureID = new LLUUID(texture); m_host.UpdateTexture(tex); return; } else { NotImplemented("llSetTexture"); } } public void llScaleTexture(double u, double v, int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; if (face > -1) { LLObject.TextureEntryFace texface = tex.CreateFace((uint)face); texface.RepeatU = (float)u; texface.RepeatV = (float)v; tex.FaceTextures[face] = texface; m_host.UpdateTexture(tex); return; } if (face == -1) { for (int i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { tex.FaceTextures[i].RepeatU = (float)u; tex.FaceTextures[i].RepeatV = (float)v; } } tex.DefaultTexture.RepeatU = (float)u; tex.DefaultTexture.RepeatV = (float)v; m_host.UpdateTexture(tex); return; } else { NotImplemented("llScaleTexture"); } } public void llOffsetTexture(double u, double v, int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; if (face > -1) { LLObject.TextureEntryFace texface = tex.CreateFace((uint)face); texface.OffsetU = (float)u; texface.OffsetV = (float)v; tex.FaceTextures[face] = texface; m_host.UpdateTexture(tex); return; } if (face == -1) { for (int i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { tex.FaceTextures[i].OffsetU = (float)u; tex.FaceTextures[i].OffsetV = (float)v; } } tex.DefaultTexture.OffsetU = (float)u; tex.DefaultTexture.OffsetV = (float)v; m_host.UpdateTexture(tex); return; } else { NotImplemented("llOffsetTexture"); } } public void llRotateTexture(double rotation, int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; if (face > -1) { LLObject.TextureEntryFace texface = tex.CreateFace((uint)face); texface.Rotation = (float)rotation; tex.FaceTextures[face] = texface; m_host.UpdateTexture(tex); return; } if (face == -1) { for (int i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { tex.FaceTextures[i].Rotation = (float)rotation; } } tex.DefaultTexture.Rotation = (float)rotation; m_host.UpdateTexture(tex); return; } else { NotImplemented("llRotateTexture"); } } public string llGetTexture(int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; if (face == -1) { face = 0; } if (face > -1) { LLObject.TextureEntryFace texface; texface = tex.GetFace((uint)face); return texface.TextureID.ToString(); } else { NotImplemented("llGetTexture"); return String.Empty; } } public void llSetPos(LSL_Types.Vector3 pos) { m_host.AddScriptLPS(1); if (m_host.ParentID != 0) { m_host.UpdateOffSet(new LLVector3((float)pos.x, (float)pos.y, (float)pos.z)); } else { m_host.UpdateGroupPosition(new LLVector3((float)pos.x, (float)pos.y, (float)pos.z)); } } public LSL_Types.Vector3 llGetPos() { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, m_host.AbsolutePosition.Z); } public LSL_Types.Vector3 llGetLocalPos() { m_host.AddScriptLPS(1); if (m_host.ParentID != 0) { return new LSL_Types.Vector3(m_host.OffsetPosition.X, m_host.OffsetPosition.Y, m_host.OffsetPosition.Z); } else { return new LSL_Types.Vector3(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, m_host.AbsolutePosition.Z); } } public void llSetRot(LSL_Types.Quaternion rot) { m_host.AddScriptLPS(1); m_host.UpdateRotation(new LLQuaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s)); } public LSL_Types.Quaternion llGetRot() { m_host.AddScriptLPS(1); LLQuaternion q = m_host.RotationOffset; return new LSL_Types.Quaternion(q.X, q.Y, q.Z, q.W); } public LSL_Types.Quaternion llGetLocalRot() { m_host.AddScriptLPS(1); return new LSL_Types.Quaternion(m_host.RotationOffset.X, m_host.RotationOffset.Y, m_host.RotationOffset.Z, m_host.RotationOffset.W); } public void llSetForce(LSL_Types.Vector3 force, int local) { m_host.AddScriptLPS(1); NotImplemented("llSetForce"); } public LSL_Types.Vector3 llGetForce() { m_host.AddScriptLPS(1); NotImplemented("llGetForce"); return new LSL_Types.Vector3(); } public int llTarget(LSL_Types.Vector3 position, double range) { m_host.AddScriptLPS(1); NotImplemented("llTarget"); return 0; } public void llTargetRemove(int number) { m_host.AddScriptLPS(1); NotImplemented("llTargetRemove"); } public int llRotTarget(LSL_Types.Quaternion rot, double error) { m_host.AddScriptLPS(1); NotImplemented("llRotTarget"); return 0; } public void llRotTargetRemove(int number) { m_host.AddScriptLPS(1); NotImplemented("llRotTargetRemove"); } public void llMoveToTarget(LSL_Types.Vector3 target, double tau) { m_host.AddScriptLPS(1); NotImplemented("llMoveToTarget"); } public void llStopMoveToTarget() { m_host.AddScriptLPS(1); NotImplemented("llStopMoveToTarget"); } public void llApplyImpulse(LSL_Types.Vector3 force, int local) { m_host.AddScriptLPS(1); //No energy force yet if (local == 1) { NotImplemented("llApplyImpulse Local Force"); } else { if (force.x > 20000) force.x = 20000; if (force.y > 20000) force.y = 20000; if (force.z > 20000) force.z = 20000; m_host.ApplyImpulse(new LLVector3((float)force.x,(float)force.y,(float)force.z)); } } public void llApplyRotationalImpulse(LSL_Types.Vector3 force, int local) { m_host.AddScriptLPS(1); NotImplemented("llApplyRotationalImpulse"); } public void llSetTorque(LSL_Types.Vector3 torque, int local) { m_host.AddScriptLPS(1); NotImplemented("llSetTorque"); } public LSL_Types.Vector3 llGetTorque() { m_host.AddScriptLPS(1); NotImplemented("llGetTorque"); return new LSL_Types.Vector3(); } public void llSetForceAndTorque(LSL_Types.Vector3 force, LSL_Types.Vector3 torque, int local) { m_host.AddScriptLPS(1); NotImplemented("llSetForceAndTorque"); } public LSL_Types.Vector3 llGetVel() { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(m_host.Velocity.X, m_host.Velocity.Y, m_host.Velocity.Z); } public LSL_Types.Vector3 llGetAccel() { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(m_host.Acceleration.X, m_host.Acceleration.Y, m_host.Acceleration.Z); } public LSL_Types.Vector3 llGetOmega() { m_host.AddScriptLPS(1); NotImplemented("llGetOmega"); return new LSL_Types.Vector3(); } public double llGetTimeOfDay() { m_host.AddScriptLPS(1); NotImplemented("llGetTimeOfDay"); return 0; } public double llGetWallclock() { m_host.AddScriptLPS(1); return DateTime.Now.TimeOfDay.TotalSeconds; } public double llGetTime() { m_host.AddScriptLPS(1); TimeSpan ScriptTime = DateTime.Now - m_timer; return (double)(ScriptTime.TotalMilliseconds / 1000); } public void llResetTime() { m_host.AddScriptLPS(1); m_timer = DateTime.Now; } public double llGetAndResetTime() { m_host.AddScriptLPS(1); TimeSpan ScriptTime = DateTime.Now - m_timer; m_timer = DateTime.Now; return (double)(ScriptTime.TotalMilliseconds / 1000); } public void llSound() { m_host.AddScriptLPS(1); // This function has been deprecated // see http://www.lslwiki.net/lslwiki/wakka.php?wakka=llSound NotImplemented("llSound"); } public void llPlaySound(string sound, double volume) { m_host.AddScriptLPS(1); m_host.SendSound(sound, volume, false); } public void llLoopSound(string sound, double volume) { m_host.AddScriptLPS(1); NotImplemented("llLoopSound"); } public void llLoopSoundMaster(string sound, double volume) { m_host.AddScriptLPS(1); NotImplemented("llLoopSoundMaster"); } public void llLoopSoundSlave(string sound, double volume) { m_host.AddScriptLPS(1); NotImplemented("llLoopSoundSlave"); } public void llPlaySoundSlave(string sound, double volume) { m_host.AddScriptLPS(1); NotImplemented("llPlaySoundSlave"); } public void llTriggerSound(string sound, double volume) { m_host.AddScriptLPS(1); m_host.SendSound(sound, volume, true); } public void llStopSound() { m_host.AddScriptLPS(1); NotImplemented("llStopSound"); } public void llPreloadSound(string sound) { m_host.AddScriptLPS(1); m_host.PreloadSound(sound); } public string llGetSubString(string src, int start, int end) { m_host.AddScriptLPS(1); // substring expects length // return src.Substring(start, end); // if one is negative so use length of string as base // if start > end then it is exclusive // for length add +1 for char at location=0 if (start < 0) { start = src.Length-start; } if (end < 0) { end = src.Length - end; } if (start > end) { return src.Substring(0, 1+end) + src.Substring(start, src.Length - start); } else { return src.Substring(start, (1+end) - start); } } public string llDeleteSubString(string src, int start, int end) { m_host.AddScriptLPS(1); //return src.Remove(start, end - start); // if one is negative so use length of string as base // if start > end then it is exclusive // for length add +1 for char at location=0 if (start < 0) { start = src.Length - start; } if (end < 0) { end = src.Length - end; } if (start > end) { return src.Remove(0, 1 + end) + src.Remove(start, src.Length - start); } else { return src.Remove(start, (1 + end) - start); } } public string llInsertString(string dst, int position, string src) { m_host.AddScriptLPS(1); return dst.Insert(position, src); } public string llToUpper(string src) { m_host.AddScriptLPS(1); return src.ToUpper(); } public string llToLower(string src) { m_host.AddScriptLPS(1); return src.ToLower(); } public int llGiveMoney(string destination, int amount) { m_host.AddScriptLPS(1); NotImplemented("llGiveMoney"); return 0; } public void llMakeExplosion() { m_host.AddScriptLPS(1); NotImplemented("llMakeExplosion"); } public void llMakeFountain() { m_host.AddScriptLPS(1); NotImplemented("llMakeFountain"); } public void llMakeSmoke() { m_host.AddScriptLPS(1); NotImplemented("llMakeSmoke"); } public void llMakeFire() { m_host.AddScriptLPS(1); NotImplemented("llMakeFire"); } public void llRezObject(string inventory, LSL_Types.Vector3 pos, LSL_Types.Quaternion rot, int param) { m_host.AddScriptLPS(1); NotImplemented("llRezObject"); } public void llLookAt(LSL_Types.Vector3 target, double strength, double damping) { m_host.AddScriptLPS(1); NotImplemented("llLookAt"); } public void llStopLookAt() { m_host.AddScriptLPS(1); NotImplemented("llStopLookAt"); } public void llSetTimerEvent(double sec) { m_host.AddScriptLPS(1); // Setting timer repeat m_ScriptEngine.m_ASYNCLSLCommandManager.m_Timer.SetTimerEvent(m_localID, m_itemID, sec); } public void llSleep(double sec) { m_host.AddScriptLPS(1); Thread.Sleep((int)(sec * 1000)); } public double llGetMass() { m_host.AddScriptLPS(1); return m_host.GetMass(); } public void llCollisionFilter(string name, string id, int accept) { m_host.AddScriptLPS(1); NotImplemented("llCollisionFilter"); } public void llTakeControls(int controls, int accept, int pass_on) { m_host.AddScriptLPS(1); NotImplemented("llTakeControls"); } public void llReleaseControls() { m_host.AddScriptLPS(1); NotImplemented("llReleaseControls"); } public void llAttachToAvatar(int attachment) { m_host.AddScriptLPS(1); NotImplemented("llAttachToAvatar"); } public void llDetachFromAvatar() { m_host.AddScriptLPS(1); NotImplemented("llDetachFromAvatar"); } public void llTakeCamera() { m_host.AddScriptLPS(1); NotImplemented("llTakeCamera"); } public void llReleaseCamera() { m_host.AddScriptLPS(1); NotImplemented("llReleaseCamera"); } public string llGetOwner() { m_host.AddScriptLPS(1); return m_host.ObjectOwner.ToString(); } public void llInstantMessage(string user, string message) { m_host.AddScriptLPS(1); // We may be able to use ClientView.SendInstantMessage here, but we need a client instance. // InstantMessageModule.OnInstantMessage searches through a list of scenes for a client matching the toAgent, // but I don't think we have a list of scenes available from here. // (We also don't want to duplicate the code in OnInstantMessage if we can avoid it.) // user is a UUID // TODO: figure out values for client, fromSession, and imSessionID // client.SendInstantMessage(m_host.UUID, fromSession, message, user, imSessionID, m_host.Name, AgentManager.InstantMessageDialog.MessageFromAgent, (uint)Util.UnixTimeSinceEpoch()); LLUUID friendTransactionID = LLUUID.Random(); //m_pendingFriendRequests.Add(friendTransactionID, fromAgentID); GridInstantMessage msg = new GridInstantMessage(); msg.fromAgentID = new System.Guid(m_host.UUID.ToString()); // fromAgentID.UUID; msg.fromAgentSession = new System.Guid(friendTransactionID.ToString());// fromAgentSession.UUID; msg.toAgentID = new System.Guid(user); // toAgentID.UUID; msg.imSessionID = new System.Guid(friendTransactionID.ToString()); // This is the item we're mucking with here Console.WriteLine("[Scripting IM]: From:" + msg.fromAgentID.ToString() + " To: " + msg.toAgentID.ToString() + " Session:" + msg.imSessionID.ToString() + " Message:" + message); Console.WriteLine("[Scripting IM]: Filling Session: " + msg.imSessionID.ToString()); msg.timestamp = (uint)Util.UnixTimeSinceEpoch();// timestamp; //if (client != null) //{ msg.fromAgentName = m_host.Name;//client.FirstName + " " + client.LastName;// fromAgentName; //} //else //{ // msg.fromAgentName = "(hippos)";// Added for posterity. This means that we can't figure out who sent it //} msg.message = message; msg.dialog = (byte)19; // messgage from script ??? // dialog; msg.fromGroup = false;// fromGroup; msg.offline = (byte)0; //offline; msg.ParentEstateID = 0; //ParentEstateID; msg.Position = new sLLVector3();// new sLLVector3(m_host.AbsolutePosition); msg.RegionID = World.RegionInfo.RegionID.UUID;//RegionID.UUID; msg.binaryBucket = new byte[0];// binaryBucket; World.TriggerGridInstantMessage(msg, InstantMessageReceiver.IMModule); // NotImplemented("llInstantMessage"); } public void llEmail(string address, string subject, string message) { m_host.AddScriptLPS(1); NotImplemented("llEmail"); } public void llGetNextEmail(string address, string subject) { m_host.AddScriptLPS(1); NotImplemented("llGetNextEmail"); } public string llGetKey() { m_host.AddScriptLPS(1); return m_host.UUID.ToString(); } public void llSetBuoyancy(double buoyancy) { m_host.AddScriptLPS(1); NotImplemented("llSetBuoyancy"); } public void llSetHoverHeight(double height, int water, double tau) { m_host.AddScriptLPS(1); NotImplemented("llSetHoverHeight"); } public void llStopHover() { m_host.AddScriptLPS(1); m_host.AddScriptLPS(1); NotImplemented("llStopHover"); } public void llMinEventDelay(double delay) { m_host.AddScriptLPS(1); NotImplemented("llMinEventDelay"); } public void llSoundPreload() { m_host.AddScriptLPS(1); NotImplemented("llSoundPreload"); } public void llRotLookAt(LSL_Types.Quaternion target, double strength, double damping) { m_host.AddScriptLPS(1); NotImplemented("llRotLookAt"); } public int llStringLength(string str) { m_host.AddScriptLPS(1); if (str.Length > 0) { return str.Length; } else { return 0; } } public void llStartAnimation(string anim) { m_host.AddScriptLPS(1); NotImplemented("llStartAnimation"); } public void llStopAnimation(string anim) { m_host.AddScriptLPS(1); NotImplemented("llStopAnimation"); } public void llPointAt() { m_host.AddScriptLPS(1); NotImplemented("llPointAt"); } public void llStopPointAt() { m_host.AddScriptLPS(1); NotImplemented("llStopPointAt"); } public void llTargetOmega(LSL_Types.Vector3 axis, double spinrate, double gain) { m_host.AddScriptLPS(1); m_host.RotationalVelocity = new LLVector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate)); m_host.AngularVelocity = new LLVector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate)); m_host.ScheduleTerseUpdate(); m_host.SendTerseUpdateToAllClients(); //NotImplemented("llTargetOmega"); } public int llGetStartParameter() { m_host.AddScriptLPS(1); NotImplemented("llGetStartParameter"); return 0; } public void llGodLikeRezObject(string inventory, LSL_Types.Vector3 pos) { m_host.AddScriptLPS(1); NotImplemented("llGodLikeRezObject"); } public void llRequestPermissions(string agent, int perm) { m_host.AddScriptLPS(1); NotImplemented("llRequestPermissions"); } public string llGetPermissionsKey() { m_host.AddScriptLPS(1); NotImplemented("llGetPermissionsKey"); return String.Empty; } public int llGetPermissions() { m_host.AddScriptLPS(1); NotImplemented("llGetPermissions"); return 0; } public int llGetLinkNumber() { m_host.AddScriptLPS(1); return m_host.LinkNum; } public void llSetLinkColor(int linknumber, LSL_Types.Vector3 color, int face) { m_host.AddScriptLPS(1); SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknumber); if (linknumber > -1) { LLObject.TextureEntry tex = part.Shape.Textures; LLColor texcolor; if (face > -1) { texcolor = tex.CreateFace((uint)face).RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.FaceTextures[face].RGBA = texcolor; part.UpdateTexture(tex); return; } else if (face == -1) { texcolor = tex.DefaultTexture.RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.DefaultTexture.RGBA = texcolor; for (uint i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { texcolor = tex.FaceTextures[i].RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.FaceTextures[i].RGBA = texcolor; } } texcolor = tex.DefaultTexture.RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.DefaultTexture.RGBA = texcolor; part.UpdateTexture(tex); return; } return; } else if (linknumber == -1) { int num = m_host.ParentGroup.PrimCount; for (int w = 0; w < num; w++) { linknumber = w; part = m_host.ParentGroup.GetLinkNumPart(linknumber); LLObject.TextureEntry tex = part.Shape.Textures; LLColor texcolor; if (face > -1) { texcolor = tex.CreateFace((uint)face).RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.FaceTextures[face].RGBA = texcolor; part.UpdateTexture(tex); } else if (face == -1) { texcolor = tex.DefaultTexture.RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.DefaultTexture.RGBA = texcolor; for (uint i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { texcolor = tex.FaceTextures[i].RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.FaceTextures[i].RGBA = texcolor; } } texcolor = tex.DefaultTexture.RGBA; texcolor.R = (float)Math.Abs(color.x - 1); texcolor.G = (float)Math.Abs(color.y - 1); texcolor.B = (float)Math.Abs(color.z - 1); tex.DefaultTexture.RGBA = texcolor; part.UpdateTexture(tex); } } return; } else { NotImplemented("llSetLinkColor"); } } public void llCreateLink(string target, int parent) { m_host.AddScriptLPS(1); NotImplemented("llCreateLink"); } public void llBreakLink(int linknum) { m_host.AddScriptLPS(1); NotImplemented("llBreakLink"); } public void llBreakAllLinks() { m_host.AddScriptLPS(1); NotImplemented("llBreakAllLinks"); } public string llGetLinkKey(int linknum) { m_host.AddScriptLPS(1); SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum); if (part != null) { return part.UUID.ToString(); } else { return "00000000-0000-0000-0000-000000000000"; } } public string llGetLinkName(int linknum) { m_host.AddScriptLPS(1); SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum); if (part != null) { return part.Name; } else { return "00000000-0000-0000-0000-000000000000"; } } public int llGetInventoryNumber(int type) { m_host.AddScriptLPS(1); NotImplemented("llGetInventoryNumber"); return 0; } public string llGetInventoryName(int type, int number) { m_host.AddScriptLPS(1); NotImplemented("llGetInventoryName"); return String.Empty; } public void llSetScriptState(string name, int run) { m_host.AddScriptLPS(1); NotImplemented("llSetScriptState"); } public double llGetEnergy() { m_host.AddScriptLPS(1); return 1.0f; } public void llGiveInventory(string destination, string inventory) { m_host.AddScriptLPS(1); NotImplemented("llGiveInventory"); } public void llRemoveInventory(string item) { m_host.AddScriptLPS(1); NotImplemented("llRemoveInventory"); } public void llSetText(string text, LSL_Types.Vector3 color, double alpha) { m_host.AddScriptLPS(1); Vector3 av3 = new Vector3((float)color.x, (float)color.y, (float)color.z); m_host.SetText(text, av3, alpha); } public double llWater(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); return World.RegionInfo.EstateSettings.waterHeight; } public void llPassTouches(int pass) { m_host.AddScriptLPS(1); NotImplemented("llPassTouches"); } public string llRequestAgentData(string id, int data) { m_host.AddScriptLPS(1); NotImplemented("llRequestAgentData"); return String.Empty; } public string llRequestInventoryData(string name) { m_host.AddScriptLPS(1); NotImplemented("llRequestInventoryData"); return String.Empty; } public void llSetDamage(double damage) { m_host.AddScriptLPS(1); NotImplemented("llSetDamage"); } public void llTeleportAgentHome(string agent) { m_host.AddScriptLPS(1); NotImplemented("llTeleportAgentHome"); } public void llModifyLand(int action, int brush) { m_host.AddScriptLPS(1); double dsize; if (World.PermissionsMngr.CanTerraform(m_host.OwnerID, new LLVector3(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, 0))) { switch (brush) { case 1: dsize = 2; break; case 2: dsize = 4; break; case 3: dsize = 8; break; default: if (brush < 0) { dsize = (double)(-1 * brush); } else { LSLError("Invalid brush size"); dsize = 0; // Should cease execution, but get unassigned local variable dsize on compile. } break; } switch (action) { case 0: if (World.Terrain.GetHeight((int)m_host.AbsolutePosition.X, (int)m_host.AbsolutePosition.Y) < m_host.AbsolutePosition.Z) { World.Terrain.FlattenTerrain(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, dsize, 1); } break; case 1: if (World.Terrain.GetHeight((int)m_host.AbsolutePosition.X, (int)m_host.AbsolutePosition.Y) < (double)m_host.AbsolutePosition.Z) { World.Terrain.RaiseTerrain(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, dsize, 0.1); } break; case 2: if (World.Terrain.GetHeight((int)m_host.AbsolutePosition.X, (int)m_host.AbsolutePosition.Y) > 0) { World.Terrain.LowerTerrain(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, dsize, 1); } break; case 3: World.Terrain.SmoothTerrain(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, dsize, 1); break; case 4: World.Terrain.NoiseTerrain(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, dsize, 1); break; case 5: World.Terrain.RevertTerrain(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, dsize, 1); break; default: break; } } } public void llCollisionSound(string impact_sound, double impact_volume) { m_host.AddScriptLPS(1); NotImplemented("llCollisionSound"); } public void llCollisionSprite(string impact_sprite) { m_host.AddScriptLPS(1); NotImplemented("llCollisionSprite"); } public string llGetAnimation(string id) { m_host.AddScriptLPS(1); NotImplemented("llGetAnimation"); return String.Empty; } public void llResetScript() { m_host.AddScriptLPS(1); m_ScriptEngine.m_ScriptManager.ResetScript(m_localID, m_itemID); } public void llMessageLinked(int linknum, int num, string str, string id) { m_host.AddScriptLPS(1); } public void llPushObject(string target, LSL_Types.Vector3 impulse, LSL_Types.Vector3 ang_impulse, int local) { m_host.AddScriptLPS(1); } public void llPassCollisions(int pass) { m_host.AddScriptLPS(1); } public string llGetScriptName() { m_host.AddScriptLPS(1); return String.Empty; } public int llGetNumberOfSides() { m_host.AddScriptLPS(1); return 0; } public LSL_Types.Quaternion llAxisAngle2Rot(LSL_Types.Vector3 axis, double angle) { m_host.AddScriptLPS(1); return new LSL_Types.Quaternion(); } public LSL_Types.Vector3 llRot2Axis(LSL_Types.Quaternion rot) { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(); } public void llRot2Angle() { m_host.AddScriptLPS(1); } public double llAcos(double val) { m_host.AddScriptLPS(1); return (double)Math.Acos(val); } public double llAsin(double val) { m_host.AddScriptLPS(1); return (double)Math.Asin(val); } public double llAngleBetween(LSL_Types.Quaternion a, LSL_Types.Quaternion b) { m_host.AddScriptLPS(1); return 0; } public string llGetInventoryKey(string name) { m_host.AddScriptLPS(1); return String.Empty; } public void llAllowInventoryDrop(int add) { m_host.AddScriptLPS(1); } public LSL_Types.Vector3 llGetSunDirection() { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(); } public LSL_Types.Vector3 llGetTextureOffset(int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; LSL_Types.Vector3 offset; if (face == -1) { face = 0; } offset.x = tex.GetFace((uint)face).OffsetU; offset.y = tex.GetFace((uint)face).OffsetV; offset.z = 0.0; return offset; } public LSL_Types.Vector3 llGetTextureScale(int side) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; LSL_Types.Vector3 scale; if (side == -1) { side = 0; } scale.x = tex.GetFace((uint)side).RepeatU; scale.y = tex.GetFace((uint)side).RepeatV; scale.z = 0.0; return scale; } public double llGetTextureRot(int face) { m_host.AddScriptLPS(1); LLObject.TextureEntry tex = m_host.Shape.Textures; if (face == -1) { face = 0; } return tex.GetFace((uint)face).Rotation; } public int llSubStringIndex(string source, string pattern) { m_host.AddScriptLPS(1); return source.IndexOf(pattern); } public string llGetOwnerKey(string id) { m_host.AddScriptLPS(1); NotImplemented("llGetOwnerKey"); return String.Empty; } public LSL_Types.Vector3 llGetCenterOfMass() { m_host.AddScriptLPS(1); NotImplemented("llGetCenterOfMass"); return new LSL_Types.Vector3(); } public LSL_Types.list llListSort(LSL_Types.list src, int stride, int ascending) { m_host.AddScriptLPS(1); // SortedList sorted = new SortedList(); // Add chunks to an array //int s = stride; //if (s < 1) // s = 1; //int c = 0; //LSL_Types.list chunk = new LSL_Types.list(); //string chunkString = String.Empty; //foreach (string element in src) //{ // c++; // if (c > s) // { // sorted.Add(chunkString, chunk); // chunkString = String.Empty; // chunk = new LSL_Types.list(); // c = 0; // } // chunk.Add(element); // chunkString += element.ToString(); //} //if (chunk.Count > 0) // sorted.Add(chunkString, chunk); //LSL_Types.list ret = new LSL_Types.list(); //foreach (LSL_Types.list ls in sorted.Values) //{ // ret.AddRange(ls); //} //if (ascending == LSL_BaseClass.TRUE) // return ret; //ret.Reverse(); //return ret; NotImplemented("llListSort"); return new LSL_Types.list(); } public int llGetListLength(LSL_Types.list src) { m_host.AddScriptLPS(1); return src.Length; } public int llList2Integer(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return 0; } return Convert.ToInt32(src.Data[index]); } public double osList2Double(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return 0.0; } return Convert.ToDouble(src.Data[index]); } public double llList2Float(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return 0.0; } return Convert.ToDouble(src.Data[index]); } public string llList2String(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return String.Empty; } return src.Data[index].ToString(); } public string llList2Key(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return "00000000-0000-0000-0000-000000000000"; } //return OpenSim.Framework.ToString(src[index]); LLUUID tmpkey; if (LLUUID.TryParse(src.Data[index].ToString(), out tmpkey)) { return tmpkey.ToString(); } else { return "00000000-0000-0000-0000-000000000000"; } } public LSL_Types.Vector3 llList2Vector(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return new LSL_Types.Vector3(0, 0, 0); } if (src.Data[index].GetType() == typeof(OpenSim.Region.ScriptEngine.Common.LSL_Types.Vector3)) { return (LSL_Types.Vector3)src.Data[index]; } else { return new LSL_Types.Vector3(0, 0, 0); } } public LSL_Types.Quaternion llList2Rot(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return new LSL_Types.Quaternion(0, 0, 0, 1); } if (src.Data[index].GetType() == typeof(OpenSim.Region.ScriptEngine.Common.LSL_Types.Quaternion)) { return (LSL_Types.Quaternion)src.Data[index]; } else { return new LSL_Types.Quaternion(0, 0, 0, 1); } } public LSL_Types.list llList2List(LSL_Types.list src, int start, int end) { m_host.AddScriptLPS(1); return src.GetSublist(start, end); } public LSL_Types.list llDeleteSubList(LSL_Types.list src, int start, int end) { //LSL_Types.list ret = new LSL_Types.list(src); //ret.RemoveRange(start, end - start); //return ret; // Just a hunch - needs testing return src.GetSublist(end, start); } public int llGetListEntryType(LSL_Types.list src, int index) { m_host.AddScriptLPS(1); if (index < 0) { index = src.Length + index; } if (index >= src.Length) { return 0; } if (src.Data[index] is System.Int32) return 1; if (src.Data[index] is System.Double) return 2; if (src.Data[index] is System.String) { LLUUID tuuid; if (LLUUID.TryParse(src.Data[index].ToString(), out tuuid)) { return 3; } else { return 4; } } if (src.Data[index] is OpenSim.Region.ScriptEngine.Common.LSL_Types.Vector3) return 5; if (src.Data[index] is OpenSim.Region.ScriptEngine.Common.LSL_Types.Quaternion) return 6; if (src.Data[index] is OpenSim.Region.ScriptEngine.Common.LSL_Types.list) return 7; return 0; } public string llList2CSV(LSL_Types.list src) { m_host.AddScriptLPS(1); string ret = String.Empty; foreach (object o in src.Data) { ret = ret + o.ToString() + ", "; } ret = ret.Substring(0, ret.Length - 2); return ret; } public LSL_Types.list llCSV2List(string src) { m_host.AddScriptLPS(1); return new LSL_Types.list(src.Split(",".ToCharArray())); } public LSL_Types.list llListRandomize(LSL_Types.list src, int stride) { m_host.AddScriptLPS(1); //int s = stride; //if (s < 1) // s = 1; // This is a cowardly way of doing it ;) // TODO: Instead, randomize and check if random is mod stride or if it can not be, then array.removerange //List tmp = new List(); // Add chunks to an array //int c = 0; //LSL_Types.list chunk = new LSL_Types.list(); //foreach (string element in src) //{ // c++; // if (c > s) // { // tmp.Add(chunk); // chunk = new LSL_Types.list(); // c = 0; // } // chunk.Add(element); //} //if (chunk.Count > 0) // tmp.Add(chunk); // Decreate (<- what kind of word is that? :D ) array back into a list //int rnd; //LSL_Types.list ret = new LSL_Types.list(); //while (tmp.Count > 0) //{ // rnd = Util.RandomClass.Next(tmp.Count); // foreach (string str in tmp[rnd]) // { // ret.Add(str); // } // tmp.RemoveAt(rnd); //} //return ret; NotImplemented("llListRandomize"); return src; } public LSL_Types.list llList2ListStrided(LSL_Types.list src, int start, int end, int stride) { m_host.AddScriptLPS(1); LSL_Types.list ret = new LSL_Types.list(); //int s = stride; //if (s < 1) // s = 1; //int sc = s; //for (int i = start; i < src.Count; i++) //{ // sc--; // if (sc == 0) // { // sc = s; // // Addthis // ret.Add(src[i]); // } // if (i == end) // break; //} NotImplemented("llList2ListStrided"); return ret; } public LSL_Types.Vector3 llGetRegionCorner() { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(World.RegionInfo.RegionLocX * Constants.RegionSize, World.RegionInfo.RegionLocY * Constants.RegionSize, 0); } public LSL_Types.list llListInsertList(LSL_Types.list dest, LSL_Types.list src, int start) { m_host.AddScriptLPS(1); return dest.GetSublist(0, start - 1) + src + dest.GetSublist(start, -1); } public int llListFindList(LSL_Types.list src, LSL_Types.list test) { m_host.AddScriptLPS(1); //foreach (string s in test) //{ // for (int ci = 0; ci < src.Count; ci++) // { // if (s == src[ci]) // return ci; // } //} NotImplemented("llListFindList"); return -1; } public string llGetObjectName() { m_host.AddScriptLPS(1); return m_host.Name; } public void llSetObjectName(string name) { m_host.AddScriptLPS(1); m_host.Name = name; } public string llGetDate() { m_host.AddScriptLPS(1); DateTime date = DateTime.Now.ToUniversalTime(); string result = date.ToString("yyyy-MM-dd"); return result; } public int llEdgeOfWorld(LSL_Types.Vector3 pos, LSL_Types.Vector3 dir) { m_host.AddScriptLPS(1); NotImplemented("llEdgeOfWorld"); return 0; } public int llGetAgentInfo(string id) { m_host.AddScriptLPS(1); NotImplemented("llGetAgentInfo"); return 0; } public void llAdjustSoundVolume(double volume) { m_host.AddScriptLPS(1); NotImplemented("llAdjustSoundVolume"); } public void llSetSoundQueueing(int queue) { m_host.AddScriptLPS(1); NotImplemented("llSetSoundQueueing"); } public void llSetSoundRadius(double radius) { m_host.AddScriptLPS(1); NotImplemented("llSetSoundRadius"); } public string llKey2Name(string id) { m_host.AddScriptLPS(1); NotImplemented("llKey2Name"); return String.Empty; } public void llSetTextureAnim(int mode, int face, int sizex, int sizey, double start, double length, double rate) { m_host.AddScriptLPS(1); Primitive.TextureAnimation pTexAnim = new Primitive.TextureAnimation(); pTexAnim.Flags =(uint) mode; //ALL_SIDES if (face == -1) face = 255; pTexAnim.Face = (uint)face; pTexAnim.Length = (float)length; pTexAnim.Rate = (float)rate; pTexAnim.SizeX = (uint)sizex; pTexAnim.SizeY = (uint)sizey; pTexAnim.Start = (float)start; m_host.AddTextureAnimation(pTexAnim); m_host.SendFullUpdateToAllClients(); } public void llTriggerSoundLimited(string sound, double volume, LSL_Types.Vector3 top_north_east, LSL_Types.Vector3 bottom_south_west) { m_host.AddScriptLPS(1); NotImplemented("llTriggerSoundLimited"); } public void llEjectFromLand(string pest) { m_host.AddScriptLPS(1); NotImplemented("llEjectFromLand"); } public LSL_Types.list llParseString2List(string str, LSL_Types.list separators, LSL_Types.list spacers) { m_host.AddScriptLPS(1); LSL_Types.list ret = new LSL_Types.list(); object[] delimeters = new object[separators.Length + spacers.Length]; separators.Data.CopyTo(delimeters, 0); spacers.Data.CopyTo(delimeters, separators.Length); bool dfound = false; do { dfound = false; int cindex = -1; string cdeli = ""; for (int i = 0; i < delimeters.Length; i++) { int index = str.IndexOf(delimeters[i].ToString()); bool found = index != -1; if (found) { if ((cindex > index) || (cindex == -1)) { cindex = index; cdeli = (string)delimeters[i]; } dfound = dfound || found; } } if (cindex != -1) { if (cindex > 0) { ret.Add(str.Substring(0, cindex)); if (spacers.Contains(cdeli)) { ret.Add(cdeli); } } if (cindex == 0 && spacers.Contains(cdeli)) { ret.Add(cdeli); } str = str.Substring(cindex + 1); } } while (dfound); if (str != "") { ret.Add(str); } return ret; } public int llOverMyLand(string id) { m_host.AddScriptLPS(1); NotImplemented("llOverMyLand"); return 0; } public string llGetLandOwnerAt(LSL_Types.Vector3 pos) { m_host.AddScriptLPS(1); return World.GetLandOwner((float)pos.x, (float)pos.y).ToString(); } public string llGetNotecardLine(string name, int line) { m_host.AddScriptLPS(1); NotImplemented("llGetNotecardLine"); return String.Empty; } public LSL_Types.Vector3 llGetAgentSize(string id) { m_host.AddScriptLPS(1); NotImplemented("llGetAgentSize"); return new LSL_Types.Vector3(); } public int llSameGroup(string agent) { m_host.AddScriptLPS(1); NotImplemented("llSameGroup"); return 0; } public void llUnSit(string id) { m_host.AddScriptLPS(1); NotImplemented("llUnSit"); } public LSL_Types.Vector3 llGroundSlope(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); NotImplemented("llGroundSlope"); return new LSL_Types.Vector3(); } public LSL_Types.Vector3 llGroundNormal(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); NotImplemented("llGroundNormal"); return new LSL_Types.Vector3(); } public LSL_Types.Vector3 llGroundContour(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); NotImplemented("llGroundContour"); return new LSL_Types.Vector3(); } public int llGetAttached() { m_host.AddScriptLPS(1); NotImplemented("llGetAttached"); return 0; } public int llGetFreeMemory() { m_host.AddScriptLPS(1); NotImplemented("llGetFreeMemory"); return 0; } public string llGetRegionName() { m_host.AddScriptLPS(1); return World.RegionInfo.RegionName; } public double llGetRegionTimeDilation() { m_host.AddScriptLPS(1); return (double)World.TimeDilation; } public double llGetRegionFPS() { m_host.AddScriptLPS(1); return 10.0f; } /* particle system rules should be coming into this routine as doubles, that is rule[0] should be an integer from this list and rule[1] should be the arg for the same integer. wiki.secondlife.com has most of this mapping, but some came from http://www.caligari-designs.com/p4u2 We iterate through the list for 'Count' elements, incrementing by two for each iteration and set the members of Primitive.ParticleSystem, one at a time. */ public enum PrimitiveRule : int { PSYS_PART_FLAGS = 0, PSYS_PART_START_COLOR = 1, PSYS_PART_START_ALPHA = 2, PSYS_PART_END_COLOR = 3, PSYS_PART_END_ALPHA = 4, PSYS_PART_START_SCALE = 5, PSYS_PART_END_SCALE = 6, PSYS_PART_MAX_AGE = 7, PSYS_SRC_ACCEL = 8, PSYS_SRC_PATTERN = 9, PSYS_SRC_TEXTURE = 12, PSYS_SRC_BURST_RATE = 13, PSYS_SRC_BURST_PART_COUNT = 15, PSYS_SRC_BURST_RADIUS = 16, PSYS_SRC_BURST_SPEED_MIN = 17, PSYS_SRC_BURST_SPEED_MAX = 18, PSYS_SRC_MAX_AGE = 19, PSYS_SRC_TARGET_KEY = 20, PSYS_SRC_OMEGA = 21, PSYS_SRC_ANGLE_BEGIN = 22, PSYS_SRC_ANGLE_END = 23 } internal Primitive.ParticleSystem.ParticleDataFlags ConvertUINTtoFlags(uint flags) { Primitive.ParticleSystem.ParticleDataFlags returnval = Primitive.ParticleSystem.ParticleDataFlags.None; return returnval; } // AL: This does not actually do anything yet. There are issues within Libsecondlife revolving around PSYS_PART_FLAGS // (need to OR the values, but currently stores this within an enum) as well as discovery of how the CRC works and the // actual packet. public void llParticleSystem(LSL_Types.list rules) { m_host.AddScriptLPS(1); Primitive.ParticleSystem prules = new Primitive.ParticleSystem(); LSL_Types.Vector3 tempv = new LSL_Types.Vector3(); float tempf = 0; for (int i = 0; i < rules.Length; i += 2) { switch ((int)rules.Data[i]) { case (int)BuiltIn_Commands_BaseClass.PSYS_PART_FLAGS: prules.PartDataFlags = (Primitive.ParticleSystem.ParticleDataFlags)((uint)Convert.ToInt32(rules.Data[i + 1].ToString())); break; case (int)BuiltIn_Commands_BaseClass.PSYS_PART_START_COLOR: tempv = (LSL_Types.Vector3)rules.Data[i + 1]; prules.PartStartColor.R = (float)tempv.x; prules.PartStartColor.G = (float)tempv.y; prules.PartStartColor.B = (float)tempv.z; break; case (int)BuiltIn_Commands_BaseClass.PSYS_PART_START_ALPHA: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.PartStartColor.A = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_PART_END_COLOR: tempv = (LSL_Types.Vector3)rules.Data[i + 1]; //prules.PartEndColor = new LLColor(tempv.x,tempv.y,tempv.z,1); prules.PartEndColor.R = (float)tempv.x; prules.PartEndColor.G = (float)tempv.y; prules.PartEndColor.B = (float)tempv.z; break; case (int)BuiltIn_Commands_BaseClass.PSYS_PART_END_ALPHA: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.PartEndColor.A = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_PART_START_SCALE: tempv = (LSL_Types.Vector3)rules.Data[i + 1]; prules.PartStartScaleX = (float)tempv.x; prules.PartStartScaleY = (float)tempv.y; break; case (int)BuiltIn_Commands_BaseClass.PSYS_PART_END_SCALE: tempv = (LSL_Types.Vector3)rules.Data[i + 1]; prules.PartEndScaleX = (float)tempv.x; prules.PartEndScaleY = (float)tempv.y; break; case (int)BuiltIn_Commands_BaseClass.PSYS_PART_MAX_AGE: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.PartMaxAge = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_ACCEL: tempv = (LSL_Types.Vector3)rules.Data[i + 1]; prules.PartAcceleration.X = (float)tempv.x; prules.PartAcceleration.Y = (float)tempv.y; prules.PartAcceleration.Z = (float)tempv.z; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_PATTERN: int tmpi = (int)rules.Data[i + 1]; prules.Pattern = (Primitive.ParticleSystem.SourcePattern)tmpi; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_TEXTURE: prules.Texture = new LLUUID(rules.Data[i + 1].ToString()); break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_BURST_RATE: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.BurstRate = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_BURST_PART_COUNT: prules.BurstPartCount = (byte)Convert.ToByte(rules.Data[i + 1].ToString()); break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_BURST_RADIUS: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.BurstRadius = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_BURST_SPEED_MIN: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.BurstSpeedMin = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_BURST_SPEED_MAX: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.BurstSpeedMax = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_MAX_AGE: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.MaxAge = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_TARGET_KEY: LLUUID key = LLUUID.Zero; if (LLUUID.TryParse(rules.Data[i + 1].ToString(), out key)) { prules.Target = key; } else { prules.Target = m_host.UUID; } break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_OMEGA: // AL: This is an assumption, since it is the only thing that would match. tempv = (LSL_Types.Vector3)rules.Data[i + 1]; prules.AngularVelocity.X = (float)tempv.x; prules.AngularVelocity.Y = (float)tempv.y; prules.AngularVelocity.Z = (float)tempv.z; //cast?? prules.MaxAge = (float)rules[i + 1]; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_ANGLE_BEGIN: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.InnerAngle = (float)tempf; break; case (int)BuiltIn_Commands_BaseClass.PSYS_SRC_ANGLE_END: tempf = Convert.ToSingle(rules.Data[i + 1].ToString()); prules.OuterAngle = (float)tempf; break; } } prules.CRC = 1; m_host.AddNewParticleSystem(prules); m_host.SendFullUpdateToAllClients(); } public void llGroundRepel(double height, int water, double tau) { m_host.AddScriptLPS(1); NotImplemented("llGroundRepel"); } public void llGiveInventoryList() { m_host.AddScriptLPS(1); NotImplemented("llGiveInventoryList"); } public void llSetVehicleType(int type) { m_host.AddScriptLPS(1); NotImplemented("llSetVehicleType"); } public void llSetVehicledoubleParam(int param, double value) { m_host.AddScriptLPS(1); NotImplemented("llSetVehicledoubleParam"); } public void llSetVehicleVectorParam(int param, LSL_Types.Vector3 vec) { m_host.AddScriptLPS(1); NotImplemented("llSetVehicleVectorParam"); } public void llSetVehicleRotationParam(int param, LSL_Types.Quaternion rot) { m_host.AddScriptLPS(1); NotImplemented("llSetVehicleRotationParam"); } public void llSetVehicleFlags(int flags) { m_host.AddScriptLPS(1); NotImplemented("llSetVehicleFlags"); } public void llRemoveVehicleFlags(int flags) { m_host.AddScriptLPS(1); NotImplemented("llRemoveVehicleFlags"); } public void llSitTarget(LSL_Types.Vector3 offset, LSL_Types.Quaternion rot) { m_host.AddScriptLPS(1); // LSL quaternions can normalize to 0, normal Quaternions can't. if (rot.s == 0 && rot.x == 0 && rot.y == 0 && rot.z == 0) rot.z = 1; // ZERO_ROTATION = 0,0,0,1 m_host.SetSitTarget(new Vector3((float)offset.x, (float)offset.y, (float)offset.z), new Quaternion((float)rot.s, (float)rot.x, (float)rot.y, (float)rot.z)); } public string llAvatarOnSitTarget() { m_host.AddScriptLPS(1); LLUUID AVID = m_host.GetAvatarOnSitTarget(); if (AVID != LLUUID.Zero) return AVID.ToString(); else return String.Empty; } public void llAddToLandPassList(string avatar, double hours) { m_host.AddScriptLPS(1); NotImplemented("llAddToLandPassList"); } public void llSetTouchText(string text) { m_host.AddScriptLPS(1); m_host.TouchName = text; } public void llSetSitText(string text) { m_host.AddScriptLPS(1); m_host.SitName = text; } public void llSetCameraEyeOffset(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); NotImplemented("llSetCameraEyeOffset"); } public void llSetCameraAtOffset(LSL_Types.Vector3 offset) { m_host.AddScriptLPS(1); NotImplemented("llSetCameraAtOffset"); } public string llDumpList2String(LSL_Types.list src, string seperator) { m_host.AddScriptLPS(1); if (src.Length == 0) { return String.Empty; } string ret = String.Empty; foreach (object o in src.Data) { ret = ret + o.ToString() + seperator; } ret = ret.Substring(0, ret.Length - seperator.Length); return ret; } public void llScriptDanger(LSL_Types.Vector3 pos) { m_host.AddScriptLPS(1); NotImplemented("llScriptDanger"); } public void llDialog(string avatar, string message, LSL_Types.list buttons, int chat_channel) { m_host.AddScriptLPS(1); LLUUID av = new LLUUID(); if (!LLUUID.TryParse(avatar,out av)) { LSLError("First parameter to llDialog needs to be a key"); return; } string[] buts = new string[buttons.Length]; for(int i = 0; i < buttons.Length; i++) { buts[i] = buttons.Data[i].ToString(); } World.SendDialogToUser(av, m_host.Name, m_host.UUID, m_host.OwnerID, message, new LLUUID("00000000-0000-2222-3333-100000001000"), chat_channel, buts); //NotImplemented("llDialog"); } public void llVolumeDetect(int detect) { m_host.AddScriptLPS(1); NotImplemented("llVolumeDetect"); } public void llResetOtherScript(string name) { m_host.AddScriptLPS(1); NotImplemented("llResetOtherScript"); } public int llGetScriptState(string name) { m_host.AddScriptLPS(1); NotImplemented("llGetScriptState"); return 0; } public void llRemoteLoadScript() { m_host.AddScriptLPS(1); NotImplemented("llRemoteLoadScript"); } public void llSetRemoteScriptAccessPin(int pin) { m_host.AddScriptLPS(1); NotImplemented("llSetRemoteScriptAccessPin"); } public void llRemoteLoadScriptPin(string target, string name, int pin, int running, int start_param) { m_host.AddScriptLPS(1); NotImplemented("llRemoteLoadScriptPin"); } // remote_data(integer type, key channel, key message_id, string sender, integer ival, string sval) // Not sure where these constants should live: // REMOTE_DATA_CHANNEL = 1 // REMOTE_DATA_REQUEST = 2 // REMOTE_DATA_REPLY = 3 public void llOpenRemoteDataChannel() { m_host.AddScriptLPS(1); IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); if (xmlrpcMod.IsEnabled()) { LLUUID channelID = xmlrpcMod.OpenXMLRPCChannel(m_localID, m_itemID); object[] resobj = new object[] { 1, channelID.ToString(), LLUUID.Zero.ToString(), String.Empty, 0, String.Empty }; m_ScriptEngine.m_EventQueueManager.AddToScriptQueue(m_localID, m_itemID, "remote_data", EventQueueManager.llDetectNull, resobj); } } public string llSendRemoteData(string channel, string dest, int idata, string sdata) { m_host.AddScriptLPS(1); IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); return (xmlrpcMod.SendRemoteData(m_localID, m_itemID, channel, dest, idata, sdata)).ToString(); } public void llRemoteDataReply(string channel, string message_id, string sdata, int idata) { m_host.AddScriptLPS(1); IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); xmlrpcMod.RemoteDataReply(channel, message_id, sdata, idata); } public void llCloseRemoteDataChannel(string channel) { m_host.AddScriptLPS(1); IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); xmlrpcMod.CloseXMLRPCChannel(channel); } public string llMD5String(string src, int nonce) { m_host.AddScriptLPS(1); return Util.Md5Hash(src + ":" + nonce.ToString()); } public void llSetPrimitiveParams(LSL_Types.list rules) { m_host.AddScriptLPS(1); NotImplemented("llSetPrimitiveParams"); } public string llStringToBase64(string str) { m_host.AddScriptLPS(1); try { byte[] encData_byte = new byte[str.Length]; encData_byte = Encoding.UTF8.GetBytes(str); string encodedData = Convert.ToBase64String(encData_byte); return encodedData; } catch (Exception e) { throw new Exception("Error in base64Encode" + e.Message); } } public string llBase64ToString(string str) { m_host.AddScriptLPS(1); UTF8Encoding encoder = new UTF8Encoding(); Decoder utf8Decode = encoder.GetDecoder(); try { byte[] todecode_byte = Convert.FromBase64String(str); int charCount = utf8Decode.GetCharCount(todecode_byte, 0, todecode_byte.Length); char[] decoded_char = new char[charCount]; utf8Decode.GetChars(todecode_byte, 0, todecode_byte.Length, decoded_char, 0); string result = new String(decoded_char); return result; } catch (Exception e) { throw new Exception("Error in base64Decode" + e.Message); } } public void llXorBase64Strings() { m_host.AddScriptLPS(1); throw new Exception("Command deprecated! Use llXorBase64StringsCorrect instead."); } public void llRemoteDataSetRegion() { m_host.AddScriptLPS(1); NotImplemented("llRemoteDataSetRegion"); } public double llLog10(double val) { m_host.AddScriptLPS(1); return (double)Math.Log10(val); } public double llLog(double val) { m_host.AddScriptLPS(1); return (double)Math.Log(val); } public LSL_Types.list llGetAnimationList(string id) { m_host.AddScriptLPS(1); NotImplemented("llGetAnimationList"); return new LSL_Types.list(); } public void llSetParcelMusicURL(string url) { m_host.AddScriptLPS(1); LLUUID landowner = World.GetLandOwner(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y); if (landowner.Equals(null)) { return; } if (landowner != m_host.ObjectOwner) { return; } World.SetLandMusicURL(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, url); } public LSL_Types.Vector3 llGetRootPosition() { m_host.AddScriptLPS(1); return new LSL_Types.Vector3(m_host.ParentGroup.AbsolutePosition.X, m_host.ParentGroup.AbsolutePosition.Y, m_host.ParentGroup.AbsolutePosition.Z); } public LSL_Types.Quaternion llGetRootRotation() { m_host.AddScriptLPS(1); return new LSL_Types.Quaternion(m_host.ParentGroup.GroupRotation.X, m_host.ParentGroup.GroupRotation.Y, m_host.ParentGroup.GroupRotation.Z, m_host.ParentGroup.GroupRotation.W); } public string llGetObjectDesc() { return m_host.Description; } public void llSetObjectDesc(string desc) { m_host.AddScriptLPS(1); m_host.Description = desc; } public string llGetCreator() { m_host.AddScriptLPS(1); return m_host.ObjectCreator.ToString(); } public string llGetTimestamp() { m_host.AddScriptLPS(1); return DateTime.Now.ToUniversalTime().ToString("yyyy-MM-ddTHH:mm:ss.fffffffZ"); } public void llSetLinkAlpha(int linknumber, double alpha, int face) { m_host.AddScriptLPS(1); SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknumber); if (linknumber > -1) { LLObject.TextureEntry tex = part.Shape.Textures; LLColor texcolor; if (face > -1) { texcolor = tex.CreateFace((uint)face).RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.FaceTextures[face].RGBA = texcolor; part.UpdateTexture(tex); return; } else if (face == -1) { texcolor = tex.DefaultTexture.RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.DefaultTexture.RGBA = texcolor; for (uint i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { texcolor = tex.FaceTextures[i].RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.FaceTextures[i].RGBA = texcolor; } } texcolor = tex.DefaultTexture.RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.DefaultTexture.RGBA = texcolor; part.UpdateTexture(tex); return; } return; } else if (linknumber == -1) { int num = m_host.ParentGroup.PrimCount; for (int w = 0; w < num; w++) { linknumber = w; part = m_host.ParentGroup.GetLinkNumPart(linknumber); LLObject.TextureEntry tex = part.Shape.Textures; LLColor texcolor; if (face > -1) { texcolor = tex.CreateFace((uint)face).RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.FaceTextures[face].RGBA = texcolor; part.UpdateTexture(tex); } else if (face == -1) { texcolor = tex.DefaultTexture.RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.DefaultTexture.RGBA = texcolor; for (uint i = 0; i < 32; i++) { if (tex.FaceTextures[i] != null) { texcolor = tex.FaceTextures[i].RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.FaceTextures[i].RGBA = texcolor; } } texcolor = tex.DefaultTexture.RGBA; texcolor.A = (float)Math.Abs(alpha - 1); tex.DefaultTexture.RGBA = texcolor; part.UpdateTexture(tex); } } return; } else { NotImplemented("llSetLinkAlpha"); } } public int llGetNumberOfPrims() { m_host.AddScriptLPS(1); return m_host.ParentGroup.PrimCount; } public string llGetNumberOfNotecardLines(string name) { m_host.AddScriptLPS(1); NotImplemented("llGetNumberOfNotecardLines"); return String.Empty; } public LSL_Types.list llGetBoundingBox(string obj) { m_host.AddScriptLPS(1); NotImplemented("llGetBoundingBox"); return new LSL_Types.list(); } public LSL_Types.Vector3 llGetGeometricCenter() { return new LSL_Types.Vector3(m_host.GetGeometricCenter().X, m_host.GetGeometricCenter().Y, m_host.GetGeometricCenter().Z); } public void llGetPrimitiveParams() { m_host.AddScriptLPS(1); NotImplemented("llGetPrimitiveParams"); } // // // The .NET definition of base 64 is: // // // Significant: A-Z a-z 0-9 + - // // // Whitespace: \t \n \r ' ' // // // Valueless: = // // // End-of-string: \0 or '==' // // // // // Each point in a base-64 string represents // a 6 bit value. A 32-bit integer can be // represented using 6 characters (with some // redundancy). // // // LSL requires a base64 string to be 8 // characters in length. LSL also uses '/' // rather than '-' (MIME compliant). // // // RFC 1341 used as a reference (as specified // by the SecondLife Wiki). // // // SL do not record any kind of exception for // these functions, so the string to integer // conversion returns '0' if an invalid // character is encountered during conversion. // // // References // // // http://lslwiki.net/lslwiki/wakka.php?wakka=Base64 // // // // // // // // Table for converting 6-bit integers into // base-64 characters // private static readonly char[] i2ctable = { 'A','B','C','D','E','F','G','H', 'I','J','K','L','M','N','O','P', 'Q','R','S','T','U','V','W','X', 'Y','Z', 'a','b','c','d','e','f','g','h', 'i','j','k','l','m','n','o','p', 'q','r','s','t','u','v','w','x', 'y','z', '0','1','2','3','4','5','6','7', '8','9', '+','/' }; // // Table for converting base-64 characters // into 6-bit integers. // private static readonly int[] c2itable = { -1,-1,-1,-1,-1,-1,-1,-1, // 0x -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // 1x -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // 2x -1,-1,-1,63,-1,-1,-1,64, 53,54,55,56,57,58,59,60, // 3x 61,62,-1,-1,-1,0,-1,-1, -1,1,2,3,4,5,6,7, // 4x 8,9,10,11,12,13,14,15, 16,17,18,19,20,21,22,23, // 5x 24,25,26,-1,-1,-1,-1,-1, -1,27,28,29,30,31,32,33, // 6x 34,35,36,37,38,39,40,41, 42,43,44,45,46,47,48,49, // 7x 50,51,52,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // 8x -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // 9x -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // Ax -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // Bx -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // Cx -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // Dx -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // Ex -1,-1,-1,-1,-1,-1,-1,-1, -1,-1,-1,-1,-1,-1,-1,-1, // Fx -1,-1,-1,-1,-1,-1,-1,-1 }; // // Converts a 32-bit integer into a Base64 // character string. Base64 character strings // are always 8 characters long. All iinteger // values are acceptable. // // // 32-bit integer to be converted. // // // 8 character string. The 1st six characters // contain the encoded number, the last two // characters are padded with "=". // public string llIntegerToBase64(int number) { // uninitialized string char[] imdt = new char[8]; m_host.AddScriptLPS(1); // Manually unroll the loop imdt[7] = '='; imdt[6] = '='; imdt[5] = i2ctable[number<<4 & 0x3F]; imdt[4] = i2ctable[number>>2 & 0x3F]; imdt[3] = i2ctable[number>>8 & 0x3F]; imdt[2] = i2ctable[number>>14 & 0x3F]; imdt[1] = i2ctable[number>>20 & 0x3F]; imdt[0] = i2ctable[number>>26 & 0x3F]; return new string(imdt); } // // Converts an eight character base-64 string // into a 32-bit integer. // // // 8 characters string to be converted. Other // length strings return zero. // // // Returns an integer representing the // encoded value providedint he 1st 6 // characters of the string. // // // This is coded to behave like LSL's // implementation (I think), based upon the // information available at the Wiki. // If more than 8 characters are supplied, // zero is returned. // If a NULL string is supplied, zero will // be returned. // If fewer than 6 characters are supplied, then // the answer will reflect a partial // accumulation. // // The 6-bit segments are // extracted left-to-right in big-endian mode, // which means that segment 6 only contains the // two low-order bits of the 32 bit integer as // its high order 2 bits. A short string therefore // means loss of low-order information. E.g. // // |<---------------------- 32-bit integer ----------------------->|<-Pad->| // |<--Byte 0----->|<--Byte 1----->|<--Byte 2----->|<--Byte 3----->|<-Pad->| // |3|3|2|2|2|2|2|2|2|2|2|2|1|1|1|1|1|1|1|1|1|1| | | | | | | | | | |P|P|P|P| // |1|0|9|8|7|6|5|4|3|2|1|0|9|8|7|6|5|4|3|2|1|0|9|8|7|6|5|4|3|2|1|0|P|P|P|P| // | str[0] | str[1] | str[2] | str[3] | str[4] | str[6] | // // // public int llBase64ToInteger(string str) { int number = 0; int digit; int baddigit = 0; m_host.AddScriptLPS(1); // Require a well-fromed base64 string if(str.Length > 8) return 0; // The loop is unrolled in the interests // of performance and simple necessity. // // MUST find 6 digits to be well formed // -1 == invalid // 0 == padding if((digit=c2itable[str[0]])<=0) { return digit<0?(int)0:number; } number += --digit<<26; if((digit=c2itable[str[1]])<=0) { return digit<0?(int)0:number; } number += --digit<<20; if((digit=c2itable[str[2]])<=0) { return digit<0?(int)0:number; } number += --digit<<14; if((digit=c2itable[str[3]])<=0) { return digit<0?(int)0:number; } number += --digit<<8; if((digit=c2itable[str[4]])<=0) { return digit<0?(int)0:number; } number += --digit<<2; if((digit=c2itable[str[5]])<=0) { return digit<0?(int)0:number; } number += --digit>>4; // ignore trailing padding return number; } public double llGetGMTclock() { m_host.AddScriptLPS(1); return DateTime.UtcNow.TimeOfDay.TotalSeconds; } public string llGetSimulatorHostname() { m_host.AddScriptLPS(1); return System.Environment.MachineName; } public void llSetLocalRot(LSL_Types.Quaternion rot) { m_host.AddScriptLPS(1); m_host.RotationOffset = new LLQuaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s); } // // Scan the string supplied in 'src' and // tokenize it based upon two sets of // tokenizers provided in two lists, // separators and spacers. // // // // Separators demarcate tokens and are // elided as they are encountered. Spacers // also demarcate tokens, but are themselves // retained as tokens. // // Both separators and spacers may be arbitrarily // long strings. i.e. ":::". // // The function returns an ordered list // representing the tokens found in the supplied // sources string. If two successive tokenizers // are encountered, then a NULL entry is added // to the list. // // It is a precondition that the source and // toekizer lisst are non-null. If they are null, // then a null pointer exception will be thrown // while their lengths are being determined. // // A small amount of working memoryis required // of approximately 8*#tokenizers. // // There are many ways in which this function // can be implemented, this implementation is // fairly naive and assumes that when the // function is invooked with a short source // string and/or short lists of tokenizers, then // performance will not be an issue. // // In order to minimize the perofrmance // effects of long strings, or large numbers // of tokeizers, the function skips as far as // possible whenever a toekenizer is found, // and eliminates redundant tokenizers as soon // as is possible. // // The implementation tries to avoid any copying // of arrays or other objects. // public LSL_Types.list llParseStringKeepNulls(string src, LSL_Types.list separators, LSL_Types.list spacers) { int beginning = 0; int srclen = src.Length; int seplen = separators.Length; object[] separray = separators.Data; int spclen = spacers.Length; object[] spcarray = spacers.Data; int mlen = seplen+spclen; int[] offset = new int[mlen+1]; bool[] active = new bool[mlen]; int best; int j; // Initial capacity reduces resize cost LSL_Types.list tokens = new LSL_Types.list(); m_host.AddScriptLPS(1); // All entries are initially valid for(int i=0; i beginning); j++) { if(active[j]) { // scan all of the markers if((offset[j] = src.IndexOf((string)spcarray[j-seplen],beginning)) == -1) { // not present at all active[j] = false; } else { // present and correct if(offset[j] < offset[best]) { // closest so far best = j; } } } } } // This is the normal exit from the scanning loop if(best == mlen) { // no markers were found on this pass // so we're pretty much done tokens.Add(src.Substring(beginning, srclen-beginning)); break; } // Otherwise we just add the newly delimited token // and recalculate where the search should continue. tokens.Add(src.Substring(beginning,offset[best]-beginning)); if(best m_host.ObjectOwner.ToString() llInstantMessage(m_host.ObjectOwner.ToString(),msg); //World.SimChat(Helpers.StringToField(msg), ChatTypeEnum.Say, 0, m_host.AbsolutePosition, m_host.Name, m_host.UUID); //IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); //wComm.DeliverMessage(m_host.UUID.ToString(), ChatTypeEnum.Say, 0, m_host.Name, msg); } public void llRequestSimulatorData(string simulator, int data) { m_host.AddScriptLPS(1); NotImplemented("llRequestSimulatorData"); } public void llForceMouselook(int mouselook) { m_host.AddScriptLPS(1); NotImplemented("llForceMouselook"); } public double llGetObjectMass(string id) { m_host.AddScriptLPS(1); LLUUID key = new LLUUID(); if (LLUUID.TryParse(id,out key)) { return (double)World.GetSceneObjectPart(World.Entities[key].LocalId).GetMass(); } return 0; } public LSL_Types.list llListReplaceList(LSL_Types.list dest, LSL_Types.list src, int start, int end) { m_host.AddScriptLPS(1); return dest.GetSublist(0, start - 1) + src + dest.GetSublist(end + 1, -1); } public void llLoadURL(string avatar_id, string message, string url) { m_host.AddScriptLPS(1); LLUUID avatarId = new LLUUID(avatar_id); m_ScriptEngine.World.SendUrlToUser(avatarId, m_host.Name, m_host.UUID, m_host.ObjectOwner, false, message, url); } public void llParcelMediaCommandList(LSL_Types.list commandList) { m_host.AddScriptLPS(1); NotImplemented("llParcelMediaCommandList"); } public void llParcelMediaQuery() { m_host.AddScriptLPS(1); NotImplemented("llParcelMediaQuery"); } public int llModPow(int a, int b, int c) { m_host.AddScriptLPS(1); Int64 tmp = 0; Int64 val = Math.DivRem(Convert.ToInt64(Math.Pow(a, b)), c, out tmp); return Convert.ToInt32(tmp); } public int llGetInventoryType(string name) { m_host.AddScriptLPS(1); NotImplemented("llGetInventoryType"); return 0; } public void llSetPayPrice(int price, LSL_Types.list quick_pay_buttons) { m_host.AddScriptLPS(1); NotImplemented("llSetPayPrice"); } public LSL_Types.Vector3 llGetCameraPos() { m_host.AddScriptLPS(1); NotImplemented("llGetCameraPos"); return new LSL_Types.Vector3(); } public LSL_Types.Quaternion llGetCameraRot() { m_host.AddScriptLPS(1); NotImplemented("llGetCameraRot"); return new LSL_Types.Quaternion(); } public void llSetPrimURL() { m_host.AddScriptLPS(1); NotImplemented("llSetPrimURL"); } public void llRefreshPrimURL() { m_host.AddScriptLPS(1); NotImplemented("llRefreshPrimURL"); } public string llEscapeURL(string url) { m_host.AddScriptLPS(1); try { return Uri.EscapeUriString(url); } catch (Exception ex) { return "llEscapeURL: " + ex.ToString(); } } public string llUnescapeURL(string url) { m_host.AddScriptLPS(1); try { return Uri.UnescapeDataString(url); } catch (Exception ex) { return "llUnescapeURL: " + ex.ToString(); } } public void llMapDestination(string simname, LSL_Types.Vector3 pos, LSL_Types.Vector3 look_at) { m_host.AddScriptLPS(1); NotImplemented("llMapDestination"); } public void llAddToLandBanList(string avatar, double hours) { m_host.AddScriptLPS(1); NotImplemented("llAddToLandBanList"); } public void llRemoveFromLandPassList(string avatar) { m_host.AddScriptLPS(1); NotImplemented("llRemoveFromLandPassList"); } public void llRemoveFromLandBanList(string avatar) { m_host.AddScriptLPS(1); NotImplemented("llRemoveFromLandBanList"); } public void llSetCameraParams(LSL_Types.list rules) { m_host.AddScriptLPS(1); NotImplemented("llSetCameraParams"); } public void llClearCameraParams() { m_host.AddScriptLPS(1); NotImplemented("llClearCameraParams"); } public double llListStatistics(int operation, LSL_Types.list src) { m_host.AddScriptLPS(1); LSL_Types.list nums = LSL_Types.list.ToDoubleList(src); switch (operation) { case BuiltIn_Commands_BaseClass.LIST_STAT_RANGE: return nums.Range(); case BuiltIn_Commands_BaseClass.LIST_STAT_MIN: return nums.Min(); case BuiltIn_Commands_BaseClass.LIST_STAT_MAX: return nums.Max(); case BuiltIn_Commands_BaseClass.LIST_STAT_MEAN: return nums.Mean(); case BuiltIn_Commands_BaseClass.LIST_STAT_MEDIAN: return nums.Median(); case BuiltIn_Commands_BaseClass.LIST_STAT_NUM_COUNT: return nums.NumericLength(); case BuiltIn_Commands_BaseClass.LIST_STAT_STD_DEV: return nums.StdDev(); case BuiltIn_Commands_BaseClass.LIST_STAT_SUM: return nums.Sum(); case BuiltIn_Commands_BaseClass.LIST_STAT_SUM_SQUARES: return nums.SumSqrs(); case BuiltIn_Commands_BaseClass.LIST_STAT_GEOMETRIC_MEAN: return nums.GeometricMean(); case BuiltIn_Commands_BaseClass.LIST_STAT_HARMONIC_MEAN: return nums.HarmonicMean(); default: return 0.0; } } public int llGetUnixTime() { m_host.AddScriptLPS(1); return Util.UnixTimeSinceEpoch(); } public int llGetParcelFlags(LSL_Types.Vector3 pos) { m_host.AddScriptLPS(1); return (int)World.LandManager.getLandObject((float)pos.x, (float)pos.y).landData.landFlags; } public int llGetRegionFlags() { m_host.AddScriptLPS(1); return (int)World.RegionInfo.EstateSettings.regionFlags; } public string llXorBase64StringsCorrect(string str1, string str2) { m_host.AddScriptLPS(1); string ret = String.Empty; string src1 = llBase64ToString(str1); string src2 = llBase64ToString(str2); int c = 0; for (int i = 0; i < src1.Length; i++) { ret += src1[i] ^ src2[c]; c++; if (c > src2.Length) c = 0; } return llStringToBase64(ret); } public string llHTTPRequest(string url, LSL_Types.list parameters, string body) { m_host.AddScriptLPS(1); IHttpRequests httpScriptMod = m_ScriptEngine.World.RequestModuleInterface(); List param = new List(); foreach (object o in parameters.Data) { param.Add(o.ToString()); } LLUUID reqID = httpScriptMod. StartHttpRequest(m_localID, m_itemID, url, param, body); if (!reqID.Equals(null)) return reqID.ToString(); else return null; } public void llResetLandBanList() { m_host.AddScriptLPS(1); NotImplemented("llResetLandBanList"); } public void llResetLandPassList() { m_host.AddScriptLPS(1); NotImplemented("llResetLandPassList"); } public int llGetParcelPrimCount(LSL_Types.Vector3 pos, int category, int sim_wide) { m_host.AddScriptLPS(1); NotImplemented("llGetParcelPrimCount"); return 0; } public LSL_Types.list llGetParcelPrimOwners(LSL_Types.Vector3 pos) { m_host.AddScriptLPS(1); NotImplemented("llGetParcelPrimOwners"); return new LSL_Types.list(); } public int llGetObjectPrimCount(string object_id) { m_host.AddScriptLPS(1); SceneObjectPart part = World.GetSceneObjectPart(new LLUUID(object_id)); if (part == null) { return 0; } else { return part.ParentGroup.Children.Count; } } public int llGetParcelMaxPrims(LSL_Types.Vector3 pos, int sim_wide) { m_host.AddScriptLPS(1); // Alondria: This currently just is utilizing the normal grid's 0.22 prims/m2 calculation // Which probably will be irrelevent in OpenSim.... LandData land = World.GetLandData((float)pos.x, (float)pos.y); float bonusfactor = World.RegionInfo.EstateSettings.objectBonusFactor; if (land == null) { return 0; } if (sim_wide == 1) { decimal v = land.simwideArea * (decimal)(0.22) * (decimal)bonusfactor; return (int)v; } else { decimal v = land.area * (decimal)(0.22) * (decimal)bonusfactor; return (int)v; } } public LSL_Types.list llGetParcelDetails(LSL_Types.Vector3 pos, LSL_Types.list param) { m_host.AddScriptLPS(1); LandData land = World.GetLandData((float)pos.x, (float)pos.y); if (land == null) { return new LSL_Types.list(0); } LSL_Types.list ret = new LSL_Types.list(); foreach (object o in param.Data) { switch (o.ToString()) { case "0": ret = ret + new LSL_Types.list(land.landName); break; case "1": ret = ret + new LSL_Types.list(land.landDesc); break; case "2": ret = ret + new LSL_Types.list(land.ownerID.ToString()); break; case "3": ret = ret + new LSL_Types.list(land.groupID.ToString()); break; case "4": ret = ret + new LSL_Types.list(land.area); break; default: ret = ret + new LSL_Types.list(0); break; } } return ret; } public string llStringTrim(string src, int type) { m_host.AddScriptLPS(1); if (type == (int)BuiltIn_Commands_BaseClass.STRING_TRIM_HEAD) { return src.TrimStart(); } if (type == (int)BuiltIn_Commands_BaseClass.STRING_TRIM_TAIL) { return src.TrimEnd(); } if (type == (int)BuiltIn_Commands_BaseClass.STRING_TRIM) { return src.Trim(); } return src; } // // OpenSim functions // public int osTerrainSetHeight(int x, int y, double val) { m_host.AddScriptLPS(1); if (x > 255 || x < 0 || y > 255 || y < 0) LSLError("osTerrainSetHeight: Coordinate out of bounds"); if (World.PermissionsMngr.CanTerraform(m_host.OwnerID, new LLVector3(x, y, 0))) { World.Terrain.Set(x, y, val); return 1; } else { return 0; } } public double osTerrainGetHeight(int x, int y) { m_host.AddScriptLPS(1); if (x > 255 || x < 0 || y > 255 || y < 0) LSLError("osTerrainGetHeight: Coordinate out of bounds"); return World.Terrain.GetHeight(x, y); } public int osRegionRestart(double seconds) { m_host.AddScriptLPS(1); if (World.PermissionsMngr.CanRestartSim(m_host.OwnerID)) { World.Restart((float)seconds); return 1; } else { return 0; } } public void osRegionNotice(string msg) { m_host.AddScriptLPS(1); World.SendGeneralAlert(msg); } public void osSetRot(LLUUID target, Quaternion rotation) { m_host.AddScriptLPS(1); if (World.Entities.ContainsKey(target)) { World.Entities[target].Rotation = rotation; } else { LSLError("osSetRot: Invalid target"); } } public string osSetDynamicTextureURL(string dynamicID, string contentType, string url, string extraParams, int timer) { m_host.AddScriptLPS(1); if (dynamicID == String.Empty) { IDynamicTextureManager textureManager = World.RequestModuleInterface(); LLUUID createdTexture = textureManager.AddDynamicTextureURL(World.RegionInfo.RegionID, m_host.UUID, contentType, url, extraParams, timer); return createdTexture.ToString(); } else { //TODO update existing dynamic textures } return LLUUID.Zero.ToString(); } public bool osConsoleCommand(string command) { m_host.AddScriptLPS(1); Nini.Config.IConfigSource config = new Nini.Config.IniConfigSource(Application.iniFilePath); if (config.Configs["LL-Functions"] == null) config.AddConfig("LL-Functions"); if (config.Configs["LL-Functions"].GetBoolean("AllowosConsoleCommand", false)) { if (World.PermissionsMngr.CanRunConsoleCommand(m_host.OwnerID)) { OpenSim.Framework.Console.MainConsole.Instance.RunCommand(command); return true; } return false; } return false; } private void NotImplemented(string command) { m_host.AddScriptLPS(1); if (throwErrorOnNotImplemented) throw new NotImplementedException("Command not implemented: " + command); } private void LSLError(string msg) { m_host.AddScriptLPS(1); throw new Exception("LSL Runtime Error: " + msg); } } }