From a3fcaef89091fea505eb9d359be87c82450db6d3 Mon Sep 17 00:00:00 2001 From: Melanie Thielker Date: Thu, 25 Sep 2008 06:04:47 +0000 Subject: CONVERGENCE!!!!!! The entire LSL API is now in the single, shared file OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api_Base.cs This is for both engines. The OSSL function are still separate. --- .../Shared/Api/Implementation/LSL_Api.cs | 8258 +------------------ .../Shared/Api/Implementation/LSL_Api_Base.cs | 8279 ++++++++++++++++++++ 2 files changed, 8308 insertions(+), 8229 deletions(-) create mode 100644 OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api_Base.cs (limited to 'OpenSim/Region/ScriptEngine/Shared') diff --git a/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs b/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs index ced5452..d782c56 100644 --- a/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs +++ b/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs @@ -63,22 +63,16 @@ namespace OpenSim.Region.ScriptEngine.Shared.Api /// /// Contains all LSL ll-functions. This class will be in Default AppDomain. /// - public class LSL_Api : MarshalByRefObject, ILSL_Api, IScriptApi + public class LSL_Api : LSL_Api_Base, ILSL_Api, IScriptApi { - //private static readonly log4net.ILog m_log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType); + private IScriptEngine m_ScriptEngineDirect; - internal IScriptEngine m_ScriptEngine; - internal SceneObjectPart m_host; - internal uint m_localID; - internal UUID m_itemID; - internal bool throwErrorOnNotImplemented = true; - internal AsyncCommandManager AsyncCommands = null; - internal float m_ScriptDelayFactor = 1.0f; - internal float m_ScriptDistanceFactor = 1.0f; + //private static readonly log4net.ILog m_log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType); public void Initialize(IScriptEngine ScriptEngine, SceneObjectPart host, uint localID, UUID itemID) { m_ScriptEngine = ScriptEngine; + m_ScriptEngineDirect = ScriptEngine; m_host = host; m_localID = localID; m_itemID = itemID; @@ -105,8 +99,6 @@ namespace OpenSim.Region.ScriptEngine.Shared.Api System.Threading.Thread.Sleep(delay); } - - // Object never expires public override Object InitializeLifetimeService() { @@ -119,14 +111,9 @@ namespace OpenSim.Region.ScriptEngine.Shared.Api return lease; } - public Scene World - { - get { return m_ScriptEngine.World; } - } - public void state(string newState) { - m_ScriptEngine.SetState(m_itemID, newState); + m_ScriptEngineDirect.SetState(m_itemID, newState); throw new EventAbortException(); } @@ -136,8247 +123,60 @@ namespace OpenSim.Region.ScriptEngine.Shared.Api return World.GetCommander(name); } - private List GetLinkParts(int linkType) - { - List ret = new List(); - ret.Add(m_host); - - switch (linkType) - { - case ScriptBaseClass.LINK_SET: - if (m_host.ParentGroup != null) - return new List(m_host.ParentGroup.Children.Values); - return ret; - - case ScriptBaseClass.LINK_ROOT: - if (m_host.ParentGroup != null) - { - ret = new List(); - ret.Add(m_host.ParentGroup.RootPart); - return ret; - } - return ret; - - case ScriptBaseClass.LINK_ALL_OTHERS: - if (m_host.ParentGroup == null) - return new List(); - ret = new List(m_host.ParentGroup.Children.Values); - if (ret.Contains(m_host)) - ret.Remove(m_host); - return ret; - - case ScriptBaseClass.LINK_ALL_CHILDREN: - if (m_host.ParentGroup == null) - return new List(); - ret = new List(m_host.ParentGroup.Children.Values); - if (ret.Contains(m_host.ParentGroup.RootPart)) - ret.Remove(m_host.ParentGroup.RootPart); - return ret; - - case ScriptBaseClass.LINK_THIS: - return ret; - - default: - if (linkType < 0 || m_host.ParentGroup == null) - return new List(); - SceneObjectPart target = m_host.ParentGroup.GetLinkNumPart(linkType); - if (target == null) - return new List(); - ret = new List(); - ret.Add(target); - return ret; - - } - } - - private UUID InventorySelf() - { - UUID invItemID = new UUID(); - - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Type == 10 && inv.Value.ItemID == m_itemID) - { - invItemID = inv.Key; - break; - } - } - - return invItemID; - } - - private UUID InventoryKey(string name, int type) - { - m_host.AddScriptLPS(1); - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == name) - { - if (inv.Value.Type != type) - return UUID.Zero; - - return inv.Value.AssetID.ToString(); - } - } - return UUID.Zero; - } - - private UUID InventoryKey(string name) - { - m_host.AddScriptLPS(1); - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == name) - { - return inv.Value.AssetID.ToString(); - } - } - return UUID.Zero; - } - - - /// - /// accepts a valid UUID, -or- a name of an inventory item. - /// Returns a valid UUID or UUID.Zero if key invalid and item not found - /// in prim inventory. - /// - /// - /// - private UUID KeyOrName(string k) - { - UUID key = UUID.Zero; - - // if we can parse the string as a key, use it. - if (UUID.TryParse(k, out key)) - { - return key; - } - // else try to locate the name in inventory of object. found returns key, - // not found returns UUID.Zero which will translate to the default particle texture - else - { - return InventoryKey(k); - } - } - - //These are the implementations of the various ll-functions used by the LSL scripts. - public LSL_Float llSin(double f) - { - m_host.AddScriptLPS(1); - return (double)Math.Sin(f); - } - - public LSL_Float llCos(double f) - { - m_host.AddScriptLPS(1); - return (double)Math.Cos(f); - } - - public LSL_Float llTan(double f) - { - m_host.AddScriptLPS(1); - return (double)Math.Tan(f); - } - - public LSL_Float llAtan2(double x, double y) - { - m_host.AddScriptLPS(1); - return (double)Math.Atan2(y, x); - } - - public LSL_Float llSqrt(double f) - { - m_host.AddScriptLPS(1); - return (double)Math.Sqrt(f); - } - - public LSL_Float llPow(double fbase, double fexponent) - { - m_host.AddScriptLPS(1); - return (double)Math.Pow(fbase, fexponent); - } - - public LSL_Integer llAbs(int i) + public LSL_Integer llGetScriptState(string name) { - m_host.AddScriptLPS(1); - return (int)Math.Abs(i); - } + UUID item; - public LSL_Float llFabs(double f) - { m_host.AddScriptLPS(1); - return (double)Math.Abs(f); - } - public LSL_Float llFrand(double mag) - { - m_host.AddScriptLPS(1); - lock (Util.RandomClass) + if ((item = ScriptByName(name)) != UUID.Zero) { - return Util.RandomClass.NextDouble() * mag; + return m_ScriptEngineDirect.GetScriptState(item) ?1:0; } - } - - public LSL_Integer llFloor(double f) - { - m_host.AddScriptLPS(1); - return (int)Math.Floor(f); - } - public LSL_Integer llCeil(double f) - { - m_host.AddScriptLPS(1); - return (int)Math.Ceiling(f); - } + ShoutError("llGetScriptState: script "+name+" not found"); - // Xantor 01/May/2008 fixed midpointrounding (2.5 becomes 3.0 instead of 2.0, default = ToEven) - public LSL_Integer llRound(double f) - { - m_host.AddScriptLPS(1); - return (int)Math.Round(f, MidpointRounding.AwayFromZero); - } + // If we didn't find it, then it's safe to + // assume it is not running. - //This next group are vector operations involving squaring and square root. ckrinke - public LSL_Float llVecMag(LSL_Vector v) - { - m_host.AddScriptLPS(1); - return LSL_Vector.Mag(v); + return 0; } - public LSL_Vector llVecNorm(LSL_Vector v) + public void llResetOtherScript(string name) { - m_host.AddScriptLPS(1); - double mag = LSL_Vector.Mag(v); - LSL_Vector nor = new LSL_Vector(); - nor.x = v.x / mag; - nor.y = v.y / mag; - nor.z = v.z / mag; - return nor; - } + UUID item; - public LSL_Float llVecDist(LSL_Vector a, LSL_Vector 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 - - // Utility function for llRot2Euler - - // normalize an angle between 0 - 2*PI (0 and 360 degrees) - private double NormalizeAngle(double angle) - { - angle = angle % (Math.PI * 2); - if (angle < 0) angle = angle + Math.PI * 2; - return angle; - } - // Old implementation of llRot2Euler, now normalized - - public LSL_Vector llRot2Euler(LSL_Rotation r) - { - m_host.AddScriptLPS(1); - //This implementation is from http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions. ckrinke - LSL_Rotation t = new LSL_Rotation(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_Vector(); - double n = 2 * (r.y * r.s + r.x * r.z); - double p = m * m - n * n; - if (p > 0) - return new LSL_Vector(NormalizeAngle(Math.Atan2(2.0 * (r.x * r.s - r.y * r.z), (-t.x - t.y + t.z + t.s))), - NormalizeAngle(Math.Atan2(n, Math.Sqrt(p))), - NormalizeAngle(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_Vector(0.0, Math.PI / 2, NormalizeAngle(Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.z))); + if ((item = ScriptByName(name)) != UUID.Zero) + m_ScriptEngineDirect.ResetScript(item); else - return new LSL_Vector(0.0, -Math.PI / 2, NormalizeAngle(Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.z))); - } - - /* From wiki: - The Euler angle vector (in radians) is converted to a rotation by doing the rotations around the 3 axes - in Z, Y, X order. So llEuler2Rot(<1.0, 2.0, 3.0> * DEG_TO_RAD) generates a rotation by taking the zero rotation, - a vector pointing along the X axis, first rotating it 3 degrees around the global Z axis, then rotating the resulting - vector 2 degrees around the global Y axis, and finally rotating that 1 degree around the global X axis. - */ - - /* How we arrived at this llEuler2Rot - * - * Experiment in SL to determine conventions: - * llEuler2Rot()=<1,0,0,0> - * llEuler2Rot(<0,PI,0>)=<0,1,0,0> - * llEuler2Rot(<0,0,PI>)=<0,0,1,0> - * - * Important facts about Quaternions - * - multiplication is non-commutative (a*b != b*a) - * - http://en.wikipedia.org/wiki/Quaternion#Basis_multiplication - * - * Above SL experiment gives (c1,c2,c3,s1,s2,s3 as defined in our llEuler2Rot): - * Qx = c1+i*s1 - * Qy = c2+j*s2; - * Qz = c3+k*s3; - * - * Rotations applied in order (from above) Z, Y, X - * Q = (Qz * Qy) * Qx - * ((c1+i*s1)*(c2+j*s2))*(c3+k*s3) - * (c1*c2+i*s1*c2+j*c1*s2+ij*s1*s2)*(c3+k*s3) - * (c1*c2+i*s1*c2+j*c1*s2+k*s1*s2)*(c3+k*s3) - * c1*c2*c3+i*s1*c2*c3+j*c1*s2*c3+k*s1*s2*c3+k*c1*c2*s3+ik*s1*c2*s3+jk*c1*s2*s3+kk*s1*s2*s3 - * c1*c2*c3+i*s1*c2*c3+j*c1*s2*c3+k*s1*s2*c3+k*c1*c2*s3 -j*s1*c2*s3 +i*c1*s2*s3 -s1*s2*s3 - * regroup: x=i*(s1*c2*c3+c1*s2*s3) - * y=j*(c1*s2*c3-s1*c2*s3) - * z=k*(s1*s2*c3+c1*c2*s3) - * s= c1*c2*c3-s1*s2*s3 - * - * This implementation agrees with the functions found here: - * http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions - * And with the results in SL. - * - * It's also possible to calculate llEuler2Rot by direct multiplication of - * the Qz, Qy, and Qx vectors (as above - and done in the "accurate" function - * from the wiki). - * Apparently in some cases this is better from a numerical precision perspective? - */ - - public LSL_Rotation llEuler2Rot(LSL_Vector v) - { - m_host.AddScriptLPS(1); - - double x,y,z,s; - - double c1 = Math.Cos(v.x/2.0); - double c2 = Math.Cos(v.y/2.0); - double c3 = Math.Cos(v.z/2.0); - double s1 = Math.Sin(v.x/2.0); - double s2 = Math.Sin(v.y/2.0); - double s3 = Math.Sin(v.z/2.0); - - x = s1*c2*c3+c1*s2*s3; - y = c1*s2*c3-s1*c2*s3; - z = s1*s2*c3+c1*c2*s3; - s = c1*c2*c3-s1*s2*s3; - - return new LSL_Rotation(x, y, z, s); - } - - public LSL_Rotation llAxes2Rot(LSL_Vector fwd, LSL_Vector left, LSL_Vector up) - { - m_host.AddScriptLPS(1); - double x, y, z, s; - int f = 0; - // Important Note: q1= is equal to q2=<-x,-y,-z,-s> - // Computing quaternion x,y,z,s values - x = ((fwd.x - left.y - up.z + 1) / 4); - x *= x; - x = Math.Sqrt(Math.Sqrt(x)); - y = ((1 - up.z) / 2 - x * x); - y *= y; - y = Math.Sqrt(Math.Sqrt(y)); - z = ((1 - left.y) / 2 - x * x); - z *= z; - z = Math.Sqrt(Math.Sqrt(z)); - s = (1 - x * x - y * y - z * z); - s *= s; - s = Math.Sqrt(Math.Sqrt(s)); - - // Set f for signs detection - if (fwd.y + left.x >= 0) { f += 1; } - if (fwd.z + up.x >= 0) { f += 2; } - if (left.z - up.y >= 0) { f += 4; } - // Set correct quaternion signs based on f value - if (f == 0) { x = -x; } - if (f == 1) { x = -x; y = -y; } - if (f == 2) { x = -x; z = -z; } - if (f == 3) { s = -s; } - if (f == 4) { x = -x; s = -s; } - if (f == 5) { z = -z; } - if (f == 6) { y = -y; } - - LSL_Rotation result = new LSL_Rotation(x, y, z, s); - - // a hack to correct a few questionable angles :( - if (llVecDist(llRot2Fwd(result), fwd) > 0.001 || llVecDist(llRot2Left(result), left) > 0.001) - result.s = -s; - - return result; - } - - public LSL_Vector llRot2Fwd(LSL_Rotation r) - { - m_host.AddScriptLPS(1); - - double x, y, z, m; - - m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s; - // m is always greater than zero - // if m is not equal to 1 then Rotation needs to be normalized - if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision - { - m = 1.0 / Math.Sqrt(m); - r.x *= m; - r.y *= m; - r.z *= m; - r.s *= m; - } - - // Fast Algebric Calculations instead of Vectors & Quaternions Product - x = r.x * r.x - r.y * r.y - r.z * r.z + r.s * r.s; - y = 2 * (r.x * r.y + r.z * r.s); - z = 2 * (r.x * r.z - r.y * r.s); - return (new LSL_Vector(x, y, z)); - } - - public LSL_Vector llRot2Left(LSL_Rotation r) - { - m_host.AddScriptLPS(1); - - double x, y, z, m; - - m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s; - // m is always greater than zero - // if m is not equal to 1 then Rotation needs to be normalized - if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision - { - m = 1.0 / Math.Sqrt(m); - r.x *= m; - r.y *= m; - r.z *= m; - r.s *= m; - } - - // Fast Algebric Calculations instead of Vectors & Quaternions Product - x = 2 * (r.x * r.y - r.z * r.s); - y = -r.x * r.x + r.y * r.y - r.z * r.z + r.s * r.s; - z = 2 * (r.x * r.s + r.y * r.z); - return (new LSL_Vector(x, y, z)); - } - - public LSL_Vector llRot2Up(LSL_Rotation r) - { - m_host.AddScriptLPS(1); - double x, y, z, m; - - m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s; - // m is always greater than zero - // if m is not equal to 1 then Rotation needs to be normalized - if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision - { - m = 1.0 / Math.Sqrt(m); - r.x *= m; - r.y *= m; - r.z *= m; - r.s *= m; - } - - // Fast Algebric Calculations instead of Vectors & Quaternions Product - x = 2 * (r.x * r.z + r.y * r.s); - y = 2 * (-r.x * r.s + r.y * r.z); - z = -r.x * r.x - r.y * r.y + r.z * r.z + r.s * r.s; - return (new LSL_Vector(x, y, z)); - } - - public LSL_Rotation llRotBetween(LSL_Vector a, LSL_Vector b) - { - //A and B should both be normalized - m_host.AddScriptLPS(1); - double dotProduct = LSL_Vector.Dot(a, b); - LSL_Vector crossProduct = LSL_Vector.Cross(a, b); - double magProduct = LSL_Vector.Mag(a) * LSL_Vector.Mag(b); - double angle = Math.Acos(dotProduct / magProduct); - LSL_Vector axis = LSL_Vector.Norm(crossProduct); - double s = Math.Sin(angle / 2); - - double x = axis.x * s; - double y = axis.y * s; - double z = axis.z * s; - double w = Math.Cos(angle / 2); - - if (Double.IsNaN(x) || Double.IsNaN(y) || Double.IsNaN(z) || Double.IsNaN(w)) - return new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f); - - return new LSL_Rotation((float)x, (float)y, (float)z, (float)w); - } - - public void llWhisper(int channelID, string text) - { - m_host.AddScriptLPS(1); - - if (text.Length > 1023) - text = text.Substring(0, 1023); - - World.SimChat(Utils.StringToBytes(text), - ChatTypeEnum.Whisper, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID, false); - - IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); - wComm.DeliverMessage(ChatTypeEnum.Whisper, channelID, m_host.Name, m_host.UUID, text); - } - - public void llSay(int channelID, string text) - { - m_host.AddScriptLPS(1); - - if (text.Length > 1023) - text = text.Substring(0, 1023); - - World.SimChat(Utils.StringToBytes(text), - ChatTypeEnum.Say, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID, false); - - IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); - wComm.DeliverMessage(ChatTypeEnum.Say, channelID, m_host.Name, m_host.UUID, text); - } - - public void llShout(int channelID, string text) - { - m_host.AddScriptLPS(1); - - if (text.Length > 1023) - text = text.Substring(0, 1023); - - World.SimChat(Utils.StringToBytes(text), - ChatTypeEnum.Shout, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID, true); - - IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); - wComm.DeliverMessage(ChatTypeEnum.Shout, channelID, m_host.Name, m_host.UUID, text); - } - - public void llRegionSay(int channelID, string text) - { - if (channelID == 0) - { - LSLError("Cannot use llRegionSay() on channel 0"); - return; - } - - if (text.Length > 1023) - text = text.Substring(0, 1023); - - m_host.AddScriptLPS(1); - - IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); - wComm.DeliverMessage(ChatTypeEnum.Region, channelID, m_host.Name, m_host.UUID, text); - } - - public LSL_Integer llListen(int channelID, string name, string ID, string msg) - { - m_host.AddScriptLPS(1); - UUID keyID; - UUID.TryParse(ID, out keyID); - IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); - return wComm.Listen(m_localID, m_itemID, m_host.UUID, channelID, name, keyID, msg); - } - - public void llListenControl(int number, int active) - { - m_host.AddScriptLPS(1); - IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); - wComm.ListenControl(m_itemID, number, active); + ShoutError("llResetOtherScript: script "+name+" not found"); } - public void llListenRemove(int number) + public void llResetScript() { m_host.AddScriptLPS(1); - IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); - wComm.ListenRemove(m_itemID, number); + m_ScriptEngineDirect.ApiResetScript(m_itemID); + throw new EventAbortException(); } - public void llSensor(string name, string id, int type, double range, double arc) + public void llSetScriptState(string name, int run) { - m_host.AddScriptLPS(1); - UUID keyID = UUID.Zero; - UUID.TryParse(id, out keyID); - - AsyncCommands.SensorRepeatPlugin.SenseOnce(m_localID, m_itemID, name, keyID, type, range, arc, m_host); - } + UUID item; - public void llSensorRepeat(string name, string id, int type, double range, double arc, double rate) - { m_host.AddScriptLPS(1); - UUID keyID = UUID.Zero; - UUID.TryParse(id, out keyID); - AsyncCommands.SensorRepeatPlugin.SetSenseRepeatEvent(m_localID, m_itemID, name, keyID, type, range, arc, rate, m_host); - } - - public void llSensorRemove() - { - m_host.AddScriptLPS(1); - AsyncCommands.SensorRepeatPlugin.UnSetSenseRepeaterEvents(m_localID, m_itemID); - } + // These functions are supposed to be robust, + // so get the state one step at a time. - public string resolveName(UUID objecUUID) - { - // try avatar username surname - CachedUserInfo profile = World.CommsManager.UserProfileCacheService.GetUserDetails(objecUUID); - if (profile != null && profile.UserProfile != null) - { - string avatarname = profile.UserProfile.FirstName + " " + profile.UserProfile.SurName; - return avatarname; - } - // try an scene object - SceneObjectPart SOP = World.GetSceneObjectPart(objecUUID); - if (SOP != null) + if ((item = ScriptByName(name)) != UUID.Zero) { - string objectname = SOP.Name; - return objectname; + m_ScriptEngineDirect.SetScriptState(item, run == 0 ? false : true); } - - EntityBase SensedObject; - lock (World.Entities) + else { - World.Entities.TryGetValue(objecUUID, out SensedObject); - } - - if (SensedObject == null) - return String.Empty; - return SensedObject.Name; - } - - public LSL_String llDetectedName(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return String.Empty; - return d.Name; - } - - public LSL_String llDetectedKey(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return String.Empty; - return d.Key.ToString(); - } - - public LSL_String llDetectedOwner(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return String.Empty; - return d.Owner.ToString(); - } - - public LSL_Integer llDetectedType(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return 0; - return new LSL_Integer(d.Type); - } - - public LSL_Vector llDetectedPos(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return new LSL_Vector(); - return d.Position; - } - - public LSL_Vector llDetectedVel(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return new LSL_Vector(); - return d.Velocity; - } - - public LSL_Vector llDetectedGrab(int number) - { - m_host.AddScriptLPS(1); - DetectParams parms = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (parms == null) - return new LSL_Vector(0, 0, 0); - - return parms.OffsetPos; - } - - public LSL_Rotation llDetectedRot(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return new LSL_Rotation(); - return d.Rotation; - } - - public LSL_Integer llDetectedGroup(int number) - { - m_host.AddScriptLPS(1); - DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (d == null) - return new LSL_Integer(0); - if (m_host.GroupID == d.Group) - return new LSL_Integer(1); - return new LSL_Integer(0); - } - - public LSL_Integer llDetectedLinkNumber(int number) - { - m_host.AddScriptLPS(1); - DetectParams parms = m_ScriptEngine.GetDetectParams(m_itemID, number); - if (parms == null) - return new LSL_Integer(0); - - return new LSL_Integer(parms.LinkNum); - } - - public LSL_Vector llDetectedTouchBinormal(int index) - { - m_host.AddScriptLPS(1); - NotImplemented("llDetectedTouchBinormal"); - return new LSL_Vector(); - } - - public LSL_Integer llDetectedTouchFace(int index) - { - m_host.AddScriptLPS(1); - NotImplemented("llDetectedTouchFace"); - return new LSL_Integer(0); - } - - public LSL_Vector llDetectedTouchNormal(int index) - { - m_host.AddScriptLPS(1); - NotImplemented("llDetectedTouchNormal"); - return new LSL_Vector(); - } - - public LSL_Vector llDetectedTouchPos(int index) - { - m_host.AddScriptLPS(1); - NotImplemented("llDetectedTouchPos"); - return new LSL_Vector(); - } - - public LSL_Vector llDetectedTouchST(int index) - { - m_host.AddScriptLPS(1); - NotImplemented("llDetectedTouchST"); - return new LSL_Vector(); - } - - public LSL_Vector llDetectedTouchUV(int index) - { - m_host.AddScriptLPS(1); - NotImplemented("llDetectedTouchUV"); - return new LSL_Vector(); - } - - public void llDie() - { - m_host.AddScriptLPS(1); - throw new SelfDeleteException(); - } - - public LSL_Float llGround(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - int x = (int)(m_host.OffsetPosition.X + offset.x); - int y = (int)(m_host.OffsetPosition.Y + offset.y); - return World.GetLandHeight(x, y); - } - - public LSL_Float llCloud(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - return 0; - } - - public LSL_Vector llWind(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - return new LSL_Vector(); - } - - public void llSetStatus(int status, int value) - { - m_host.AddScriptLPS(1); - - int statusrotationaxis = 0; - - if ((status & ScriptBaseClass.STATUS_PHYSICS) == ScriptBaseClass.STATUS_PHYSICS) - { - if (value == 1) - { - SceneObjectGroup group = m_host.ParentGroup; - if (group == null) - return; - bool allow = true; - foreach (SceneObjectPart part in group.Children.Values) - { - if (part.Scale.X > World.m_maxPhys || part.Scale.Y > World.m_maxPhys || part.Scale.Z > World.m_maxPhys) - { - allow = false; - break; - } - } - - if (!allow) - return; - m_host.ScriptSetPhysicsStatus(true); - } - else - m_host.ScriptSetPhysicsStatus(false); - } - - if ((status & ScriptBaseClass.STATUS_PHANTOM) == ScriptBaseClass.STATUS_PHANTOM) - { - if (value == 1) - m_host.ScriptSetPhantomStatus(true); - else - m_host.ScriptSetPhantomStatus(false); - } - - if ((status & ScriptBaseClass.STATUS_CAST_SHADOWS) == ScriptBaseClass.STATUS_CAST_SHADOWS) - { - m_host.AddFlag(PrimFlags.CastShadows); - } - - if ((status & ScriptBaseClass.STATUS_ROTATE_X) == ScriptBaseClass.STATUS_ROTATE_X) - { - statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_X; - } - - if ((status & ScriptBaseClass.STATUS_ROTATE_Y) == ScriptBaseClass.STATUS_ROTATE_Y) - { - statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_Y; - } - - if ((status & ScriptBaseClass.STATUS_ROTATE_Z) == ScriptBaseClass.STATUS_ROTATE_Z) - { - statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_Z; - } - - if ((status & ScriptBaseClass.STATUS_BLOCK_GRAB) == ScriptBaseClass.STATUS_BLOCK_GRAB) - { - NotImplemented("llSetStatus - STATUS_BLOCK_GRAB"); - } - - if ((status & ScriptBaseClass.STATUS_DIE_AT_EDGE) == ScriptBaseClass.STATUS_DIE_AT_EDGE) - { - if (value == 1) - m_host.SetDieAtEdge(true); - else - m_host.SetDieAtEdge(false); - } - - if ((status & ScriptBaseClass.STATUS_RETURN_AT_EDGE) == ScriptBaseClass.STATUS_RETURN_AT_EDGE) - { - NotImplemented("llSetStatus - STATUS_RETURN_AT_EDGE"); - } - - if ((status & ScriptBaseClass.STATUS_SANDBOX) == ScriptBaseClass.STATUS_SANDBOX) - { - NotImplemented("llSetStatus - STATUS_SANDBOX"); - } - - if (statusrotationaxis != 0) - { - m_host.SetAxisRotation(statusrotationaxis, value); - } - } - - public LSL_Integer llGetStatus(int status) - { - m_host.AddScriptLPS(1); - // Console.WriteLine(m_host.ToString() + " status is " + m_host.GetEffectiveObjectFlags().ToString()); - switch (status) - { - case ScriptBaseClass.STATUS_PHYSICS: - if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Physics) == (uint)PrimFlags.Physics) - { - return 1; - } - return 0; - - case ScriptBaseClass.STATUS_PHANTOM: - if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Phantom) == (uint)PrimFlags.Phantom) - { - return 1; - } - return 0; - - case ScriptBaseClass.STATUS_CAST_SHADOWS: - if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.CastShadows) == (uint)PrimFlags.CastShadows) - { - return 1; - } - return 0; - - case ScriptBaseClass.STATUS_BLOCK_GRAB: - NotImplemented("llGetStatus - STATUS_BLOCK_GRAB"); - return 0; - - case ScriptBaseClass.STATUS_DIE_AT_EDGE: - if (m_host.GetDieAtEdge()) - return 1; - else - return 0; - - case ScriptBaseClass.STATUS_RETURN_AT_EDGE: - NotImplemented("llGetStatus - STATUS_RETURN_AT_EDGE"); - return 0; - - case ScriptBaseClass.STATUS_ROTATE_X: - NotImplemented("llGetStatus - STATUS_ROTATE_X"); - return 0; - - case ScriptBaseClass.STATUS_ROTATE_Y: - NotImplemented("llGetStatus - STATUS_ROTATE_Y"); - return 0; - - case ScriptBaseClass.STATUS_ROTATE_Z: - NotImplemented("llGetStatus - STATUS_ROTATE_Z"); - return 0; - - case ScriptBaseClass.STATUS_SANDBOX: - NotImplemented("llGetStatus - STATUS_SANDBOX"); - return 0; - } - return 0; - } - - public void llSetScale(LSL_Vector scale) - { - m_host.AddScriptLPS(1); - SetScale(m_host, scale); - } - - private void SetScale(SceneObjectPart part, LSL_Vector scale) - { - // TODO: this needs to trigger a persistance save as well - - if (part == null || part.ParentGroup == null || part.ParentGroup.RootPart == null) - return; - - if (part.ParentGroup.RootPart.PhysActor != null && part.ParentGroup.RootPart.PhysActor.IsPhysical) - { - if (scale.x > World.m_maxPhys) - scale.x = World.m_maxPhys; - if (scale.y > World.m_maxPhys) - scale.y = World.m_maxPhys; - if (scale.z > World.m_maxPhys) - scale.z = World.m_maxPhys; - } - if (scale.x > World.m_maxNonphys) - scale.x = World.m_maxNonphys; - if (scale.y > World.m_maxNonphys) - scale.y = World.m_maxNonphys; - if (scale.z > World.m_maxNonphys) - scale.z = World.m_maxNonphys; - Vector3 tmp = part.Scale; - tmp.X = (float)scale.x; - tmp.Y = (float)scale.y; - tmp.Z = (float)scale.z; - part.Scale = tmp; - part.SendFullUpdateToAllClients(); - } - - public LSL_Vector llGetScale() - { - m_host.AddScriptLPS(1); - return new LSL_Vector(m_host.Scale.X, m_host.Scale.Y, m_host.Scale.Z); - } - - public void llSetClickAction(int action) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetClickAction"); - return; - } - - public void llSetColor(LSL_Vector color, int face) - { - m_host.AddScriptLPS(1); - - SetColor(m_host, color, face); - } - - private void SetColor(SceneObjectPart part, LSL_Vector color, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - Color4 texcolor; - if (face >= 0 && face < GetNumberOfSides(part)) - { - texcolor = tex.CreateFace((uint)face).RGBA; - texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f); - texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f); - texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f); - tex.FaceTextures[face].RGBA = texcolor; - part.UpdateTexture(tex); - return; - } - else if (face == ScriptBaseClass.ALL_SIDES) - { - for (uint i = 0; i < GetNumberOfSides(part); i++) - { - if (tex.FaceTextures[i] != null) - { - texcolor = tex.FaceTextures[i].RGBA; - texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f); - texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f); - texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f); - tex.FaceTextures[i].RGBA = texcolor; - } - texcolor = tex.DefaultTexture.RGBA; - texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f); - texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f); - texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f); - tex.DefaultTexture.RGBA = texcolor; - } - part.UpdateTexture(tex); - return; - } - } - - public void SetGlow(SceneObjectPart part, int face, float glow) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face >= 0 && face < GetNumberOfSides(part)) - { - tex.CreateFace((uint) face); - tex.FaceTextures[face].Glow = glow; - part.UpdateTexture(tex); - return; - } - else if (face == ScriptBaseClass.ALL_SIDES) - { - for (uint i = 0; i < GetNumberOfSides(part); i++) - { - if (tex.FaceTextures[i] != null) - { - tex.FaceTextures[i].Glow = glow; - } - tex.DefaultTexture.Glow = glow; - } - part.UpdateTexture(tex); - return; - } - } - - public void SetShiny(SceneObjectPart part, int face, int shiny, Bumpiness bump) - { - - Shininess sval = new Shininess(); - - switch (shiny) - { - case 0: - sval = Shininess.None; - break; - case 1: - sval = Shininess.Low; - break; - case 2: - sval = Shininess.Medium; - break; - case 3: - sval = Shininess.High; - break; - default: - sval = Shininess.None; - break; - } - - Primitive.TextureEntry tex = part.Shape.Textures; - if (face >= 0 && face < GetNumberOfSides(part)) - { - tex.CreateFace((uint) face); - tex.FaceTextures[face].Shiny = sval; - tex.FaceTextures[face].Bump = bump; - part.UpdateTexture(tex); - return; - } - else if (face == ScriptBaseClass.ALL_SIDES) - { - for (uint i = 0; i < GetNumberOfSides(part); i++) - { - if (tex.FaceTextures[i] != null) - { - tex.FaceTextures[i].Shiny = sval; - tex.FaceTextures[i].Bump = bump;; - } - tex.DefaultTexture.Shiny = sval; - tex.DefaultTexture.Bump = bump; - } - part.UpdateTexture(tex); - return; - } - } - - public void SetFullBright(SceneObjectPart part, int face, bool bright) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face >= 0 && face < GetNumberOfSides(part)) - { - tex.CreateFace((uint) face); - tex.FaceTextures[face].Fullbright = bright; - part.UpdateTexture(tex); - return; - } - else if (face == ScriptBaseClass.ALL_SIDES) - { - for (uint i = 0; i < GetNumberOfSides(part); i++) - { - if (tex.FaceTextures[i] != null) - { - tex.FaceTextures[i].Fullbright = bright; - } - } - tex.DefaultTexture.Fullbright = bright; - part.UpdateTexture(tex); - return; - } - } - - public LSL_Float llGetAlpha(int face) - { - m_host.AddScriptLPS(1); - - return GetAlpha(m_host, face); - } - - private LSL_Float GetAlpha(SceneObjectPart part, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face == ScriptBaseClass.ALL_SIDES) - { - int i; - double sum = 0.0; - for (i = 0 ; i < GetNumberOfSides(part) ; i++) - sum += (double)tex.GetFace((uint)i).RGBA.A; - return sum; - } - if (face >= 0 && face < GetNumberOfSides(part)) - { - return (double)tex.GetFace((uint)face).RGBA.A; - } - return 0.0; - } - - public void llSetAlpha(double alpha, int face) - { - m_host.AddScriptLPS(1); - - SetAlpha(m_host, alpha, face); - } - - private void SetAlpha(SceneObjectPart part, double alpha, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - Color4 texcolor; - if (face >= 0 && face < GetNumberOfSides(part)) - { - texcolor = tex.CreateFace((uint)face).RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.FaceTextures[face].RGBA = texcolor; - part.UpdateTexture(tex); - return; - } - else if (face == ScriptBaseClass.ALL_SIDES) - { - for (int i = 0; i < GetNumberOfSides(part); i++) - { - if (tex.FaceTextures[i] != null) - { - texcolor = tex.FaceTextures[i].RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.FaceTextures[i].RGBA = texcolor; - } - } - texcolor = tex.DefaultTexture.RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.DefaultTexture.RGBA = texcolor; - part.UpdateTexture(tex); - return; - } - } - - /// - /// Set flexi parameters of a part. - /// - /// FIXME: Much of this code should probably be within the part itself. - /// - /// - /// - /// - /// - /// - /// - /// - /// - private void SetFlexi(SceneObjectPart part, bool flexi, int softness, float gravity, float friction, - float wind, float tension, LSL_Vector Force) - { - if (part == null) - return; - - bool needs_fakedelete = false; - if (flexi) - { - if (!part.Shape.FlexiEntry) - { - needs_fakedelete = true; - } - part.Shape.FlexiEntry = true; // this setting flexi true isn't working, but the below parameters do - // work once the prim is already flexi - part.Shape.FlexiSoftness = softness; - part.Shape.FlexiGravity = gravity; - part.Shape.FlexiDrag = friction; - part.Shape.FlexiWind = wind; - part.Shape.FlexiTension = tension; - part.Shape.FlexiForceX = (float)Force.x; - part.Shape.FlexiForceY = (float)Force.y; - part.Shape.FlexiForceZ = (float)Force.z; - part.Shape.PathCurve = 0x80; - - } - else - { - if (part.Shape.FlexiEntry) - { - needs_fakedelete = true; - } - part.Shape.FlexiEntry = false; - } - - needs_fakedelete = false; - if (needs_fakedelete) - { - if (part.ParentGroup != null) - { - part.ParentGroup.FakeDeleteGroup(); - } - } - - part.ParentGroup.HasGroupChanged = true; - part.ScheduleFullUpdate(); - } - - /// - /// Set a light point on a part - /// - /// FIXME: Much of this code should probably be in SceneObjectGroup - /// - /// - /// - /// - /// - /// - /// - private void SetPointLight(SceneObjectPart part, bool light, LSL_Vector color, float intensity, float radius, float falloff) - { - if (part == null) - return; - - if (light) - { - part.Shape.LightEntry = true; - part.Shape.LightColorR = Util.Clip((float)color.x, 0.0f, 1.0f); - part.Shape.LightColorG = Util.Clip((float)color.y, 0.0f, 1.0f); - part.Shape.LightColorB = Util.Clip((float)color.z, 0.0f, 1.0f); - part.Shape.LightIntensity = intensity; - part.Shape.LightRadius = radius; - part.Shape.LightFalloff = falloff; - } - else - { - part.Shape.LightEntry = false; - } - - part.ParentGroup.HasGroupChanged = true; - part.ScheduleFullUpdate(); - } - - public LSL_Vector llGetColor(int face) - { - m_host.AddScriptLPS(1); - return GetColor(m_host, face); - } - - private LSL_Vector GetColor(SceneObjectPart part, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - Color4 texcolor; - LSL_Vector rgb = new LSL_Vector(); - if (face == ScriptBaseClass.ALL_SIDES) - { - int i; - - for (i = 0 ; i < GetNumberOfSides(part) ; i++) - { - texcolor = tex.GetFace((uint)i).RGBA; - rgb.x += texcolor.R; - rgb.y += texcolor.G; - rgb.z += texcolor.B; - } - - rgb.x /= (float)GetNumberOfSides(part); - rgb.y /= (float)GetNumberOfSides(part); - rgb.z /= (float)GetNumberOfSides(part); - - return rgb; - } - if (face >= 0 && face < GetNumberOfSides(part)) - { - texcolor = tex.GetFace((uint)face).RGBA; - rgb.x = texcolor.R; - rgb.y = texcolor.G; - rgb.z = texcolor.B; - return rgb; - } - else - { - return new LSL_Vector(); - } - } - - public void llSetTexture(string texture, int face) - { - m_host.AddScriptLPS(1); - SetTexture(m_host, texture, face); - // ScriptSleep(200); - } - - private void SetTexture(SceneObjectPart part, string texture, int face) - { - UUID textureID=new UUID(); - - if (!UUID.TryParse(texture, out textureID)) - { - textureID=InventoryKey(texture, (int)AssetType.Texture); - } - - if (textureID == UUID.Zero) - return; - - Primitive.TextureEntry tex = part.Shape.Textures; - - if (face >= 0 && face < GetNumberOfSides(part)) - { - Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); - texface.TextureID = textureID; - tex.FaceTextures[face] = texface; - part.UpdateTexture(tex); - return; - } - else if (face == ScriptBaseClass.ALL_SIDES) - { - for (uint i = 0; i < GetNumberOfSides(part); i++) - { - if (tex.FaceTextures[i] != null) - { - tex.FaceTextures[i].TextureID = textureID; - } - } - tex.DefaultTexture.TextureID = textureID; - part.UpdateTexture(tex); - return; - } - } - - public void llScaleTexture(double u, double v, int face) - { - m_host.AddScriptLPS(1); - - ScaleTexture(m_host, u, v, face); - // ScriptSleep(200); - } - - private void ScaleTexture(SceneObjectPart part, double u, double v, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face >= 0 && face < GetNumberOfSides(part)) - { - Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); - texface.RepeatU = (float)u; - texface.RepeatV = (float)v; - tex.FaceTextures[face] = texface; - part.UpdateTexture(tex); - return; - } - if (face == ScriptBaseClass.ALL_SIDES) - { - for (int i = 0; i < GetNumberOfSides(part); 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; - part.UpdateTexture(tex); - return; - } - } - - public void llOffsetTexture(double u, double v, int face) - { - m_host.AddScriptLPS(1); - OffsetTexture(m_host, u, v, face); - // ScriptSleep(200); - } - - private void OffsetTexture(SceneObjectPart part, double u, double v, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face >= 0 && face < GetNumberOfSides(part)) - { - Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); - texface.OffsetU = (float)u; - texface.OffsetV = (float)v; - tex.FaceTextures[face] = texface; - part.UpdateTexture(tex); - return; - } - if (face == ScriptBaseClass.ALL_SIDES) - { - for (int i = 0; i < GetNumberOfSides(part); 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; - part.UpdateTexture(tex); - return; - } - } - - public void llRotateTexture(double rotation, int face) - { - m_host.AddScriptLPS(1); - RotateTexture(m_host, rotation, face); - // ScriptSleep(200); - } - - private void RotateTexture(SceneObjectPart part, double rotation, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face >= 0 && face < GetNumberOfSides(part)) - { - Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); - texface.Rotation = (float)rotation; - tex.FaceTextures[face] = texface; - part.UpdateTexture(tex); - return; - } - if (face == ScriptBaseClass.ALL_SIDES) - { - for (int i = 0; i < GetNumberOfSides(part); i++) - { - if (tex.FaceTextures[i] != null) - { - tex.FaceTextures[i].Rotation = (float)rotation; - } - } - tex.DefaultTexture.Rotation = (float)rotation; - part.UpdateTexture(tex); - return; - } - } - - public LSL_String llGetTexture(int face) - { - m_host.AddScriptLPS(1); - return GetTexture(m_host, face); - } - - private LSL_String GetTexture(SceneObjectPart part, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face == ScriptBaseClass.ALL_SIDES) - { - face = 0; - } - if (face >= 0 && face < GetNumberOfSides(part)) - { - Primitive.TextureEntryFace texface; - texface = tex.GetFace((uint)face); - return texface.TextureID.ToString(); - } - else - { - return String.Empty; - } - } - - public void llSetPos(LSL_Vector pos) - { - m_host.AddScriptLPS(1); - - SetPos(m_host, pos); - - ScriptSleep(200); - } - - private void SetPos(SceneObjectPart part, LSL_Vector targetPos) - { - // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos) - LSL_Vector currentPos = llGetLocalPos(); - if (llVecDist(currentPos, targetPos) > 10.0f * m_ScriptDistanceFactor) - { - targetPos = currentPos + m_ScriptDistanceFactor * 10.0f * llVecNorm(targetPos - currentPos); - } - - if (part.ParentID != 0) - { - part.UpdateOffSet(new Vector3((float)targetPos.x, (float)targetPos.y, (float)targetPos.z)); - } - else - { - part.UpdateGroupPosition(new Vector3((float)targetPos.x, (float)targetPos.y, (float)targetPos.z)); - } - } - - public LSL_Vector llGetPos() - { - m_host.AddScriptLPS(1); - return new LSL_Vector(m_host.AbsolutePosition.X, - m_host.AbsolutePosition.Y, - m_host.AbsolutePosition.Z); - } - - public LSL_Vector llGetLocalPos() - { - m_host.AddScriptLPS(1); - if (m_host.ParentID != 0) - { - return new LSL_Vector(m_host.OffsetPosition.X, - m_host.OffsetPosition.Y, - m_host.OffsetPosition.Z); - } - else - { - return new LSL_Vector(m_host.AbsolutePosition.X, - m_host.AbsolutePosition.Y, - m_host.AbsolutePosition.Z); - } - } - - public void llSetRot(LSL_Rotation rot) - { - m_host.AddScriptLPS(1); - - SetRot(m_host, rot); - - ScriptSleep(200); - } - - private void SetRot(SceneObjectPart part, LSL_Rotation rot) - { - part.UpdateRotation(new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s)); - // Update rotation does not move the object in the physics scene if it's a linkset. - part.ParentGroup.AbsolutePosition = part.ParentGroup.AbsolutePosition; - } - - public LSL_Rotation llGetRot() - { - m_host.AddScriptLPS(1); - Quaternion q = m_host.RotationOffset; - return new LSL_Rotation(q.X, q.Y, q.Z, q.W); - } - - public LSL_Rotation llGetLocalRot() - { - m_host.AddScriptLPS(1); - return new LSL_Rotation(m_host.RotationOffset.X, m_host.RotationOffset.Y, m_host.RotationOffset.Z, m_host.RotationOffset.W); - } - - public void llSetForce(LSL_Vector force, int local) - { - m_host.AddScriptLPS(1); - - if (m_host.ParentGroup != null) - { - if (m_host.ParentGroup.RootPart != null) - { - if (local != 0) - force *= llGetRot(); - - m_host.ParentGroup.RootPart.SetForce(new PhysicsVector((float)force.x, (float)force.y, (float)force.z)); - } - } - } - - public LSL_Vector llGetForce() - { - LSL_Vector force = new LSL_Vector(0.0, 0.0, 0.0); - - m_host.AddScriptLPS(1); - - if (m_host.ParentGroup != null) - { - if (m_host.ParentGroup.RootPart != null) - { - PhysicsVector tmpForce = m_host.ParentGroup.RootPart.GetForce(); - force.x = tmpForce.X; - force.y = tmpForce.Y; - force.z = tmpForce.Z; - } - } - - return force; - } - - public LSL_Integer llTarget(LSL_Vector position, double range) - { - m_host.AddScriptLPS(1); - return m_host.registerTargetWaypoint(new Vector3((float)position.x, (float)position.y, (float)position.z), (float)range); - } - - public void llTargetRemove(int number) - { - m_host.AddScriptLPS(1); - m_host.unregisterTargetWaypoint(number); - } - - public LSL_Integer llRotTarget(LSL_Rotation 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_Vector target, double tau) - { - m_host.AddScriptLPS(1); - m_host.MoveToTarget(new Vector3((float)target.x, (float)target.y, (float)target.z), (float)tau); - } - - public void llStopMoveToTarget() - { - m_host.AddScriptLPS(1); - m_host.StopMoveToTarget(); - } - - public void llApplyImpulse(LSL_Vector force, int local) - { - m_host.AddScriptLPS(1); - //No energy force yet - - 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 Vector3((float)force.x, (float)force.y, (float)force.z), local != 0); - } - - public void llApplyRotationalImpulse(LSL_Vector force, int local) - { - m_host.AddScriptLPS(1); - NotImplemented("llApplyRotationalImpulse"); - } - - public void llSetTorque(LSL_Vector torque, int local) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetTorque"); - } - - public LSL_Vector llGetTorque() - { - m_host.AddScriptLPS(1); - NotImplemented("llGetTorque"); - return new LSL_Vector(); - } - - public void llSetForceAndTorque(LSL_Vector force, LSL_Vector torque, int local) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetForceAndTorque"); - } - - public LSL_Vector llGetVel() - { - m_host.AddScriptLPS(1); - return new LSL_Vector(m_host.Velocity.X, m_host.Velocity.Y, m_host.Velocity.Z); - } - - public LSL_Vector llGetAccel() - { - m_host.AddScriptLPS(1); - return new LSL_Vector(m_host.Acceleration.X, m_host.Acceleration.Y, m_host.Acceleration.Z); - } - - public LSL_Vector llGetOmega() - { - m_host.AddScriptLPS(1); - return new LSL_Vector(m_host.RotationalVelocity.X, m_host.RotationalVelocity.Y, m_host.RotationalVelocity.Z); - } - - public LSL_Float llGetTimeOfDay() - { - m_host.AddScriptLPS(1); - return (double)(((DateTime.Now.TimeOfDay.TotalMilliseconds / 1000) % (3600 * 4)) * World.TimeDilation); - } - - public LSL_Float llGetWallclock() - { - m_host.AddScriptLPS(1); - return DateTime.Now.TimeOfDay.TotalSeconds; - } - - public LSL_Float llGetTime() - { - m_host.AddScriptLPS(1); - TimeSpan ScriptTime = DateTime.Now - m_timer; - return (double)((ScriptTime.TotalMilliseconds / 1000)*World.TimeDilation); - } - - public void llResetTime() - { - m_host.AddScriptLPS(1); - m_timer = DateTime.Now; - } - - public LSL_Float llGetAndResetTime() - { - m_host.AddScriptLPS(1); - TimeSpan ScriptTime = DateTime.Now - m_timer; - m_timer = DateTime.Now; - return (double)((ScriptTime.TotalMilliseconds / 1000)*World.TimeDilation); - } - - public void llSound() - { - m_host.AddScriptLPS(1); - // This function has been deprecated - // see http://www.lslwiki.net/lslwiki/wakka.php?wakka=llSound - Deprecated("llSound"); - } - - // Xantor 20080528 PlaySound updated so it accepts an objectinventory name -or- a key to a sound - // 20080530 Updated to remove code duplication - public void llPlaySound(string sound, double volume) - { - m_host.AddScriptLPS(1); - - // send the sound, once, to all clients in range - m_host.SendSound(KeyOrName(sound).ToString(), volume, false, 0); - } - - // Xantor 20080528 we should do this differently. - // 1) apply the sound to the object - // 2) schedule full update - // just sending the sound out once doesn't work so well when other avatars come in view later on - // or when the prim gets moved, changed, sat on, whatever - // see large number of mantises (mantes?) - // 20080530 Updated to remove code duplication - // 20080530 Stop sound if there is one, otherwise volume only changes don't work - public void llLoopSound(string sound, double volume) - { - m_host.AddScriptLPS(1); - - if (m_host.Sound != UUID.Zero) - llStopSound(); - - m_host.Sound = KeyOrName(sound); - m_host.SoundGain = volume; - m_host.SoundFlags = 1; // looping - m_host.SoundRadius = 20; // Magic number, 20 seems reasonable. Make configurable? - - m_host.ScheduleFullUpdate(); - m_host.SendFullUpdateToAllClients(); - } - - 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); - // send the sound, once, to all clients in range - m_host.SendSound(KeyOrName(sound).ToString(), volume, false, 0); - } - - // Xantor 20080528: Clear prim data of sound instead - public void llStopSound() - { - m_host.AddScriptLPS(1); - - m_host.Sound = UUID.Zero; - m_host.SoundGain = 0; - m_host.SoundFlags = 0; - m_host.SoundRadius = 0; - - m_host.ScheduleFullUpdate(); - m_host.SendFullUpdateToAllClients(); - - // m_host.SendSound(UUID.Zero.ToString(), 1.0, false, 2); - } - - public void llPreloadSound(string sound) - { - m_host.AddScriptLPS(1); - m_host.PreloadSound(sound); - // ScriptSleep(1000); - } - - /// - /// Return a portion of the designated string bounded by - /// inclusive indices (start and end). As usual, the negative - /// indices, and the tolerance for out-of-bound values, makes - /// this more complicated than it might otherwise seem. - /// - - public LSL_String llGetSubString(string src, int start, int end) - { - - m_host.AddScriptLPS(1); - - // Normalize indices (if negative). - // After normlaization they may still be - // negative, but that is now relative to - // the start, rather than the end, of the - // sequence. - - if (start < 0) - { - start = src.Length+start; - } - if (end < 0) - { - end = src.Length+end; - } - - // Conventional substring - if (start <= end) - { - // Implies both bounds are out-of-range. - if (end < 0 || start >= src.Length) - { - return String.Empty; - } - // If end is positive, then it directly - // corresponds to the lengt of the substring - // needed (plus one of course). BUT, it - // must be within bounds. - if (end >= src.Length) - { - end = src.Length-1; - } - - if (start < 0) - { - return src.Substring(0,end+1); - } - // Both indices are positive - return src.Substring(start, (end+1) - start); - } - - // Inverted substring (end < start) - else - { - // Implies both indices are below the - // lower bound. In the inverted case, that - // means the entire string will be returned - // unchanged. - if (start < 0) - { - return src; - } - // If both indices are greater than the upper - // bound the result may seem initially counter - // intuitive. - if (end >= src.Length) - { - return src; - } - - if (end < 0) - { - if (start < src.Length) - { - return src.Substring(start); - } - else - { - return String.Empty; - } - } - else - { - if (start < src.Length) - { - return src.Substring(0,end+1) + src.Substring(start); - } - else - { - return src.Substring(0,end+1); - } - } - } - } - - /// - /// Delete substring removes the specified substring bounded - /// by the inclusive indices start and end. Indices may be - /// negative (indicating end-relative) and may be inverted, - /// i.e. end < start. - /// - - public LSL_String llDeleteSubString(string src, int start, int end) - { - - m_host.AddScriptLPS(1); - - // Normalize indices (if negative). - // After normlaization they may still be - // negative, but that is now relative to - // the start, rather than the end, of the - // sequence. - if (start < 0) - { - start = src.Length+start; - } - if (end < 0) - { - end = src.Length+end; - } - // Conventionally delimited substring - if (start <= end) - { - // If both bounds are outside of the existing - // string, then return unchanges. - if (end < 0 || start >= src.Length) - { - return src; - } - // At least one bound is in-range, so we - // need to clip the out-of-bound argument. - if (start < 0) - { - start = 0; - } - - if (end >= src.Length) - { - end = src.Length-1; - } - - return src.Remove(start,end-start+1); - } - // Inverted substring - else - { - // In this case, out of bounds means that - // the existing string is part of the cut. - if (start < 0 || end >= src.Length) - { - return String.Empty; - } - - if (end > 0) - { - if (start < src.Length) - { - return src.Remove(start).Remove(0,end+1); - } - else - { - return src.Remove(0,end+1); - } - } - else - { - if (start < src.Length) - { - return src.Remove(start); - } - else - { - return src; - } - } - } - } - - /// - /// Insert string inserts the specified string identified by src - /// at the index indicated by index. Index may be negative, in - /// which case it is end-relative. The index may exceed either - /// string bound, with the result being a concatenation. - /// - - public LSL_String llInsertString(string dest, int index, string src) - { - - m_host.AddScriptLPS(1); - - // Normalize indices (if negative). - // After normlaization they may still be - // negative, but that is now relative to - // the start, rather than the end, of the - // sequence. - if (index < 0) - { - index = dest.Length+index; - - // Negative now means it is less than the lower - // bound of the string. - - if (index < 0) - { - return src+dest; - } - - } - - if (index >= dest.Length) - { - return dest+src; - } - - // The index is in bounds. - // In this case the index refers to the index that will - // be assigned to the first character of the inserted string. - // So unlike the other string operations, we do not add one - // to get the correct string length. - return dest.Substring(0,index)+src+dest.Substring(index); - - } - - public LSL_String llToUpper(string src) - { - m_host.AddScriptLPS(1); - return src.ToUpper(); - } - - public LSL_String llToLower(string src) - { - m_host.AddScriptLPS(1); - return src.ToLower(); - } - - public LSL_Integer llGiveMoney(string destination, int amount) - { - UUID invItemID=InventorySelf(); - if (invItemID == UUID.Zero) - return 0; - - m_host.AddScriptLPS(1); - - if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) - return 0; - - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_DEBIT) == 0) - { - LSLError("No permissions to give money"); - return 0; - } - - UUID toID=new UUID(); - - if (!UUID.TryParse(destination, out toID)) - { - LSLError("Bad key in llGiveMoney"); - return 0; - } - - IMoneyModule money=World.RequestModuleInterface(); - - if (money == null) - { - NotImplemented("llGiveMoney"); - return 0; - } - - bool result=money.ObjectGiveMoney(m_host.ParentGroup.RootPart.UUID, m_host.ParentGroup.RootPart.OwnerID, toID, amount); - - if (result) - return 1; - - return 0; - } - - public void llMakeExplosion() - { - m_host.AddScriptLPS(1); - Deprecated("llMakeExplosion"); - // ScriptSleep(100); - } - - public void llMakeFountain() - { - m_host.AddScriptLPS(1); - Deprecated("llMakeFountain"); - // ScriptSleep(100); - } - - public void llMakeSmoke() - { - m_host.AddScriptLPS(1); - Deprecated("llMakeSmoke"); - // ScriptSleep(100); - } - - public void llMakeFire() - { - m_host.AddScriptLPS(1); - Deprecated("llMakeFire"); - // ScriptSleep(100); - } - - public void llRezAtRoot(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param) - { - m_host.AddScriptLPS(1); - - if (Double.IsNaN(rot.x) || Double.IsNaN(rot.y) || Double.IsNaN(rot.z) || Double.IsNaN(rot.s)) - return; - float dist = (float)llVecDist(llGetPos(), pos); - - if (dist > m_ScriptDistanceFactor * 10.0f) - return; - - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == inventory) - { - // make sure we're an object. - if (inv.Value.InvType != (int)InventoryType.Object) - { - llSay(0, "Unable to create requested object. Object is missing from database."); - return; - } - - Vector3 llpos = new Vector3((float)pos.x, (float)pos.y, (float)pos.z); - - // test if we're further away then 10m - if (Util.GetDistanceTo(llpos, m_host.AbsolutePosition) > 10) - return; // wiki says, if it's further away then 10m, silently fail. - - Vector3 llvel = new Vector3((float)vel.x, (float)vel.y, (float)vel.z); - - // need the magnitude later - float velmag = (float)Util.GetMagnitude(llvel); - - SceneObjectGroup new_group = World.RezObject(m_host, inv.Value, llpos, new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s), llvel, param); - - // If either of these are null, then there was an unknown error. - if (new_group == null) - continue; - if (new_group.RootPart == null) - continue; - - // objects rezzed with this method are die_at_edge by default. - new_group.RootPart.SetDieAtEdge(true); - - m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( - "object_rez", new Object[] { - new LSL_String( - new_group.RootPart.UUID.ToString()) }, - new DetectParams[0])); - - float groupmass = new_group.GetMass(); - - //Recoil. - llApplyImpulse(new LSL_Vector(llvel.X * groupmass, llvel.Y * groupmass, llvel.Z * groupmass), 0); - // Variable script delay? (see (http://wiki.secondlife.com/wiki/LSL_Delay) - ScriptSleep((int)((groupmass * velmag) / 10)); - // ScriptSleep(100); - return; - } - } - llSay(0, "Could not find object " + inventory); - } - - public void llRezObject(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param) - { - llRezAtRoot(inventory, pos, vel, rot, param); - } - - public void llLookAt(LSL_Vector 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 - AsyncCommands.TimerPlugin.SetTimerEvent(m_localID, m_itemID, sec); - } - - public void llSleep(double sec) - { - m_host.AddScriptLPS(1); - Thread.Sleep((int)(sec * 1000)); - } - - public LSL_Float 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) - { - if (!m_host.TaskInventory.ContainsKey(InventorySelf())) - { - return; - } - - if (m_host.TaskInventory[InventorySelf()].PermsGranter != UUID.Zero) - { - ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[InventorySelf()].PermsGranter); - - if (presence != null) - { - if ((m_host.TaskInventory[InventorySelf()].PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0) - { - presence.RegisterControlEventsToScript(controls, accept, pass_on, m_localID, m_itemID); - - } - } - } - - m_host.AddScriptLPS(1); - } - - public void llReleaseControls() - { - m_host.AddScriptLPS(1); - - if (!m_host.TaskInventory.ContainsKey(InventorySelf())) - { - return; - } - - if (m_host.TaskInventory[InventorySelf()].PermsGranter != UUID.Zero) - { - ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[InventorySelf()].PermsGranter); - - if (presence != null) - { - if ((m_host.TaskInventory[InventorySelf()].PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0) - { - // Unregister controls from Presence - presence.UnRegisterControlEventsToScript(m_localID, m_itemID); - // Remove Take Control permission. - m_host.TaskInventory[InventorySelf()].PermsMask &= ~ScriptBaseClass.PERMISSION_TAKE_CONTROLS; - } - } - } - } - - public void llAttachToAvatar(int attachment) - { - m_host.AddScriptLPS(1); - NotImplemented("llAttachToAvatar"); - } - - public void llDetachFromAvatar() - { - m_host.AddScriptLPS(1); - NotImplemented("llDetachFromAvatar"); - } - - public void llTakeCamera(string avatar) - { - m_host.AddScriptLPS(1); - Deprecated("llTakeCamera"); - } - - public void llReleaseCamera(string avatar) - { - m_host.AddScriptLPS(1); - Deprecated("llReleaseCamera"); - } - - public LSL_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()); - UUID friendTransactionID = UUID.Random(); - - //m_pendingFriendRequests.Add(friendTransactionID, fromAgentID); - - GridInstantMessage msg = new GridInstantMessage(); - msg.fromAgentID = new Guid(m_host.UUID.ToString()); // fromAgentID.Guid; - msg.fromAgentSession = new Guid(friendTransactionID.ToString());// fromAgentSession.UUID; - msg.toAgentID = new Guid(user); // toAgentID.Guid; - msg.imSessionID = new 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 = Vector3.Zero;// new Vector3(m_host.AbsolutePosition); - msg.RegionID = World.RegionInfo.RegionID.Guid;//RegionID.Guid; - msg.binaryBucket = new byte[0];// binaryBucket; - World.TriggerGridInstantMessage(msg, InstantMessageReceiver.IMModule); - // ScriptSleep(2000); - } - - public void llEmail(string address, string subject, string message) - { - m_host.AddScriptLPS(1); - IEmailModule emailModule = m_ScriptEngine.World.RequestModuleInterface(); - if (emailModule == null) - return; - - emailModule.SendEmail(m_host.UUID, address, subject, message); - // ScriptSleep(20000); - } - - public void llGetNextEmail(string address, string subject) - { - m_host.AddScriptLPS(1); - IEmailModule emailModule = m_ScriptEngine.World.RequestModuleInterface(); - if (emailModule == null) - return; - Email email; - - email = emailModule.GetNextEmail(m_host.UUID, address, subject); - - if (email == null) - return; - - m_ScriptEngine.PostObjectEvent(m_host.LocalId, - new EventParams("email", - new Object[] { - new LSL_String(email.time), - new LSL_String(email.sender), - new LSL_String(email.subject), - new LSL_String(email.message), - new LSL_Integer(email.numLeft)}, - new DetectParams[0])); - - } - - public LSL_String llGetKey() - { - m_host.AddScriptLPS(1); - return m_host.UUID.ToString(); - } - - public void llSetBuoyancy(double buoyancy) - { - m_host.AddScriptLPS(1); - if (m_host.ParentGroup != null) - { - if (m_host.ParentGroup.RootPart != null) - { - m_host.ParentGroup.RootPart.SetBuoyancy((float)buoyancy); - } - } - } - - - - public void llSetHoverHeight(double height, int water, double tau) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetHoverHeight"); - } - - public void llStopHover() - { - m_host.AddScriptLPS(1); - NotImplemented("llStopHover"); - } - - public void llMinEventDelay(double delay) - { - m_host.AddScriptLPS(1); - NotImplemented("llMinEventDelay"); - } - - public void llSoundPreload() - { - m_host.AddScriptLPS(1); - Deprecated("llSoundPreload"); - } - - public void llRotLookAt(LSL_Rotation target, double strength, double damping) - { - m_host.AddScriptLPS(1); - NotImplemented("llRotLookAt"); - } - - public LSL_Integer 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); - - UUID invItemID=InventorySelf(); - if (invItemID == UUID.Zero) - return; - - if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) - return; - - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0) - { - ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[invItemID].PermsGranter); - - if (presence != null) - { - // Do NOT try to parse UUID, animations cannot be triggered by ID - UUID animID=InventoryKey(anim, (int)AssetType.Animation); - if (animID == UUID.Zero) - presence.AddAnimation(anim); - else - presence.AddAnimation(animID); - } - } - } - - public void llStopAnimation(string anim) - { - m_host.AddScriptLPS(1); - - UUID invItemID=InventorySelf(); - if (invItemID == UUID.Zero) - return; - - if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) - return; - - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0) - { - UUID animID = new UUID(); - - if (!UUID.TryParse(anim, out animID)) - { - animID=InventoryKey(anim); - } - - ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[invItemID].PermsGranter); - - if (presence != null) - { - if (animID == UUID.Zero) - presence.RemoveAnimation(anim); - else - presence.RemoveAnimation(animID); - } - } - } - - public void llPointAt() - { - m_host.AddScriptLPS(1); - NotImplemented("llPointAt"); - } - - public void llStopPointAt() - { - m_host.AddScriptLPS(1); - NotImplemented("llStopPointAt"); - } - - public void llTargetOmega(LSL_Vector axis, double spinrate, double gain) - { - m_host.AddScriptLPS(1); - m_host.RotationalVelocity = new Vector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate)); - m_host.AngularVelocity = new Vector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate)); - m_host.ScheduleTerseUpdate(); - m_host.SendTerseUpdateToAllClients(); - m_host.ParentGroup.HasGroupChanged = true; - } - - public LSL_Integer llGetStartParameter() - { - m_host.AddScriptLPS(1); - return m_ScriptEngine.GetStartParameter(m_itemID); - } - - public void llGodLikeRezObject(string inventory, LSL_Vector pos) - { - m_host.AddScriptLPS(1); - NotImplemented("llGodLikeRezObject"); - } - - public void llRequestPermissions(string agent, int perm) - { - UUID agentID=new UUID(); - - if (!UUID.TryParse(agent, out agentID)) - return; - - UUID invItemID=InventorySelf(); - - if (invItemID == UUID.Zero) - return; // Not in a prim? How?? - - if (agentID == UUID.Zero || perm == 0) // Releasing permissions - { - llReleaseControls(); - - m_host.TaskInventory[invItemID].PermsGranter=UUID.Zero; - m_host.TaskInventory[invItemID].PermsMask=0; - - m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( - "run_time_permissions", new Object[] { - new LSL_Integer(0) }, - new DetectParams[0])); - - return; - } - - if ( m_host.TaskInventory[invItemID].PermsGranter != agentID || (perm & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0) - llReleaseControls(); - - m_host.AddScriptLPS(1); - - if (m_host.ParentGroup.RootPart.IsAttachment && agent == m_host.ParentGroup.RootPart.AttachedAvatar) - { - // When attached, certain permissions are implicit if requested from owner - int implicitPerms = ScriptBaseClass.PERMISSION_TAKE_CONTROLS | - ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION | - ScriptBaseClass.PERMISSION_CONTROL_CAMERA | - ScriptBaseClass.PERMISSION_ATTACH; - - if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms - { - m_host.TaskInventory[invItemID].PermsGranter=agentID; - m_host.TaskInventory[invItemID].PermsMask=perm; - - m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( - "run_time_permissions", new Object[] { - new LSL_Integer(perm) }, - new DetectParams[0])); - - return; - } - } - else if (m_host.SitTargetAvatar == agentID) // Sitting avatar - { - // When agent is sitting, certain permissions are implicit if requested from sitting agent - int implicitPerms = ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION | - ScriptBaseClass.PERMISSION_CONTROL_CAMERA | - ScriptBaseClass.PERMISSION_TRACK_CAMERA; - - if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms - { - m_host.TaskInventory[invItemID].PermsGranter=agentID; - m_host.TaskInventory[invItemID].PermsMask=perm; - - m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( - "run_time_permissions", new Object[] { - new LSL_Integer(perm) }, - new DetectParams[0])); - - return; - } - } - - ScenePresence presence = World.GetScenePresence(agentID); - - if (presence != null) - { - string ownerName=resolveName(m_host.ParentGroup.RootPart.OwnerID); - if (ownerName == String.Empty) - ownerName="(hippos)"; - - if (!m_waitingForScriptAnswer) - { - m_host.TaskInventory[invItemID].PermsGranter=agentID; - m_host.TaskInventory[invItemID].PermsMask=0; - presence.ControllingClient.OnScriptAnswer+=handleScriptAnswer; - m_waitingForScriptAnswer=true; - } - - presence.ControllingClient.SendScriptQuestion(m_host.UUID, m_host.ParentGroup.RootPart.Name, ownerName, invItemID, perm); - return; - } - - // Requested agent is not in range, refuse perms - m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( - "run_time_permissions", new Object[] { - new LSL_Integer(0) }, - new DetectParams[0])); - } - - void handleScriptAnswer(IClientAPI client, UUID taskID, UUID itemID, int answer) - { - if (taskID != m_host.UUID) - return; - - UUID invItemID=InventorySelf(); - - if (invItemID == UUID.Zero) - return; - - client.OnScriptAnswer-=handleScriptAnswer; - m_waitingForScriptAnswer=false; - - if ((answer & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0) - llReleaseControls(); - - m_host.TaskInventory[invItemID].PermsMask=answer; - m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( - "run_time_permissions", new Object[] { - new LSL_Integer(answer) }, - new DetectParams[0])); - } - - public LSL_String llGetPermissionsKey() - { - m_host.AddScriptLPS(1); - - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 10 && item.ItemID == m_itemID) - { - return item.PermsGranter.ToString(); - } - } - - return UUID.Zero.ToString(); - } - - public LSL_Integer llGetPermissions() - { - m_host.AddScriptLPS(1); - - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 10 && item.ItemID == m_itemID) - { - return item.PermsMask; - } - } - - return 0; - } - - public LSL_Integer llGetLinkNumber() - { - m_host.AddScriptLPS(1); - - if (m_host.ParentGroup.Children.Count > 1) - { - return m_host.LinkNum; - } - else - { - return 0; - } - } - - public void llSetLinkColor(int linknumber, LSL_Vector color, int face) - { - List parts = GetLinkParts(linknumber); - - foreach (SceneObjectPart part in parts) - SetColor(part, color, face); - } - - public void llCreateLink(string target, int parent) - { - m_host.AddScriptLPS(1); - UUID invItemID = InventorySelf(); - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0) { - ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!"); - return; - } - IClientAPI client = World.GetScenePresence(m_host.TaskInventory[invItemID].PermsGranter).ControllingClient; - SceneObjectPart targetPart = World.GetSceneObjectPart(target); - SceneObjectGroup parentPrim = null, childPrim = null; - if (targetPart != null) - { - if (parent != 0) { - parentPrim = m_host.ParentGroup; - childPrim = targetPart.ParentGroup; - } - else - { - parentPrim = targetPart.ParentGroup; - childPrim = m_host.ParentGroup; - } -// byte uf = childPrim.RootPart.UpdateFlag; - childPrim.RootPart.UpdateFlag = 0; - parentPrim.LinkToGroup(childPrim); -// if (uf != (Byte)0) -// parent.RootPart.UpdateFlag = uf; - } - parentPrim.TriggerScriptChangedEvent(Changed.LINK); - parentPrim.RootPart.AddFlag(PrimFlags.CreateSelected); - parentPrim.HasGroupChanged = true; - parentPrim.ScheduleGroupForFullUpdate(); - parentPrim.GetProperties(client); - - ScriptSleep(1000); - } - - public void llBreakLink(int linknum) - { - m_host.AddScriptLPS(1); - UUID invItemID = InventorySelf(); - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0) - { - ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!"); - return; - } - if (linknum < ScriptBaseClass.LINK_THIS) - return; - SceneObjectGroup parentPrim = m_host.ParentGroup; - SceneObjectPart childPrim = null; - switch (linknum) - { - case ScriptBaseClass.LINK_ROOT: - break; - case ScriptBaseClass.LINK_SET: - case ScriptBaseClass.LINK_ALL_OTHERS: - case ScriptBaseClass.LINK_ALL_CHILDREN: - case ScriptBaseClass.LINK_THIS: - foreach (SceneObjectPart part in parentPrim.Children.Values) - { - if (part.UUID != m_host.UUID) - { - childPrim = part; - break; - } - } - break; - default: - childPrim = parentPrim.GetLinkNumPart(linknum); - if (childPrim.UUID == m_host.UUID) - childPrim = null; - break; - } - if (linknum == ScriptBaseClass.LINK_ROOT) - { - // Restructuring Multiple Prims. - List parts = new List(parentPrim.Children.Values); - parts.Remove(parentPrim.RootPart); - foreach (SceneObjectPart part in parts) - { - parentPrim.DelinkFromGroup(part.LocalId, true); - } - parentPrim.TriggerScriptChangedEvent(Changed.LINK); - if (parts.Count > 0) { - SceneObjectPart newRoot = parts[0]; - parts.Remove(newRoot); - foreach (SceneObjectPart part in parts) - { - part.UpdateFlag = 0; - newRoot.ParentGroup.LinkToGroup(part.ParentGroup); - } - } - } - else - { - if (childPrim == null) - return; - parentPrim.DelinkFromGroup(childPrim.LocalId, true); - parentPrim.TriggerScriptChangedEvent(Changed.LINK); - } - } - - public void llBreakAllLinks() - { - m_host.AddScriptLPS(1); - SceneObjectGroup parentPrim = m_host.ParentGroup; - List parts = new List(parentPrim.Children.Values); - parts.Remove(parentPrim.RootPart); - foreach (SceneObjectPart part in parts) - { - parentPrim.DelinkFromGroup(part.LocalId, true); - parentPrim.TriggerScriptChangedEvent(Changed.LINK); - } - } - - public LSL_String llGetLinkKey(int linknum) - { - m_host.AddScriptLPS(1); - SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum); - if (part != null) - { - return part.UUID.ToString(); - } - else - { - return UUID.Zero.ToString(); - } - } - - public LSL_String llGetLinkName(int linknum) - { - m_host.AddScriptLPS(1); - SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum); - if (part != null) - { - return part.Name; - } - else - { - return ""; - } - } - - public LSL_Integer llGetInventoryNumber(int type) - { - m_host.AddScriptLPS(1); - int count = 0; - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Type == type || type == -1) - { - count = count + 1; - } - } - return count; - } - - public LSL_String llGetInventoryName(int type, int number) - { - m_host.AddScriptLPS(1); - ArrayList keys = new ArrayList(); - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Type == type || type == -1) - { - keys.Add(inv.Value.Name); - } - } - if (keys.Count == 0) - { - return String.Empty; - } - keys.Sort(); - if (keys.Count > number) - { - return (string)keys[number]; - } - return String.Empty; - } - - public void llSetScriptState(string name, int run) - { - UUID item; - - m_host.AddScriptLPS(1); - - // These functions are supposed to be robust, - // so get the state one step at a time. - - if ((item = ScriptByName(name)) != UUID.Zero) - { - m_ScriptEngine.SetScriptState(item, run == 0 ? false : true); - } - else - { - ShoutError("llSetScriptState: script "+name+" not found"); - } - } - - public LSL_Float llGetEnergy() - { - m_host.AddScriptLPS(1); - // TODO: figure out real energy value - return 1.0f; - } - - public void llGiveInventory(string destination, string inventory) - { - m_host.AddScriptLPS(1); - bool found = false; - UUID destId = UUID.Zero; - UUID objId = UUID.Zero; - - if (!UUID.TryParse(destination, out destId)) - { - llSay(0, "Could not parse key " + destination); - return; - } - - // move the first object found with this inventory name - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == inventory) - { - found = true; - objId = inv.Key; - break; - } - } - - if (!found) - { - llSay(0, String.Format("Could not find object '{0}'", inventory)); - throw new Exception(String.Format("The inventory object '{0}' could not be found", inventory)); - } - - // check if destination is an avatar - if (World.GetScenePresence(destId) != null) - { - // destination is an avatar - World.MoveTaskInventoryItem(destId, null, m_host, objId); - } - else - { - // destination is an object - World.MoveTaskInventoryItem(destId, m_host, objId); - } - // ScriptSleep(3000); - } - - public void llRemoveInventory(string name) - { - m_host.AddScriptLPS(1); - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Name == name) - { - m_host.RemoveInventoryItem(item.ItemID); - return; - } - } - } - - public void llSetText(string text, LSL_Vector color, double alpha) - { - m_host.AddScriptLPS(1); - Vector3 av3 = new Vector3(Util.Clip((float)color.x, 0.0f, 1.0f), - Util.Clip((float)color.y, 0.0f, 1.0f), - Util.Clip((float)color.z, 0.0f, 1.0f)); - m_host.SetText(text, av3, Util.Clip((float)alpha, 0.0f, 1.0f)); - m_host.ParentGroup.HasGroupChanged = true; - } - - public LSL_Float llWater(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - return World.RegionInfo.RegionSettings.WaterHeight; - } - - public void llPassTouches(int pass) - { - m_host.AddScriptLPS(1); - NotImplemented("llPassTouches"); - } - - public LSL_String llRequestAgentData(string id, int data) - { - m_host.AddScriptLPS(1); - - UserProfileData userProfile = - World.CommsManager.UserService.GetUserProfile(id); - - UserAgentData userAgent = - World.CommsManager.UserService.GetAgentByUUID(id); - - if (userProfile == null || userAgent == null) - return UUID.Zero.ToString(); - - string reply = String.Empty; - - switch (data) - { - case 1: // DATA_ONLINE (0|1) - // TODO: implement fetching of this information - if (userProfile.CurrentAgent.AgentOnline) - reply = "1"; - else - reply = "0"; - break; - case 2: // DATA_NAME (First Last) - reply = userProfile.FirstName + " " + userProfile.SurName; - break; - case 3: // DATA_BORN (YYYY-MM-DD) - DateTime born = new DateTime(1970, 1, 1, 0, 0, 0, 0); - born = born.AddSeconds(userProfile.Created); - reply = born.ToString("yyyy-MM-dd"); - break; - case 4: // DATA_RATING (0,0,0,0,0,0) - reply = "0,0,0,0,0,0"; - break; - case 8: // DATA_PAYINFO (0|1|2|3) - reply = "0"; - break; - default: - return UUID.Zero.ToString(); // Raise no event - } - - UUID rq = UUID.Random(); - - UUID tid = AsyncCommands. - DataserverPlugin.RegisterRequest(m_localID, - m_itemID, rq.ToString()); - - AsyncCommands. - DataserverPlugin.DataserverReply(rq.ToString(), reply); - - // ScriptSleep(100); - return tid.ToString(); - } - - public LSL_String llRequestInventoryData(string name) - { - m_host.AddScriptLPS(1); - - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 3 && item.Name == name) - { - UUID tid = AsyncCommands. - DataserverPlugin.RegisterRequest(m_localID, - m_itemID, item.AssetID.ToString()); - - Vector3 region = new Vector3( - World.RegionInfo.RegionLocX * Constants.RegionSize, - World.RegionInfo.RegionLocY * Constants.RegionSize, - 0); - - World.AssetCache.GetAsset(item.AssetID, - delegate(UUID i, AssetBase a) - { - AssetLandmark lm = new AssetLandmark(a); - - float rx = (uint)(lm.RegionHandle >> 32); - float ry = (uint)lm.RegionHandle; - region = lm.Position + new Vector3(rx, ry, 0) - region; - - string reply = region.ToString(); - AsyncCommands. - DataserverPlugin.DataserverReply(i.ToString(), - reply); - }, false); - - // ScriptSleep(1000); - return tid.ToString(); - } - } - // ScriptSleep(1000); - return String.Empty; - } - - public void llSetDamage(double damage) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetDamage"); - } - - public void llTeleportAgentHome(string agent) - { - m_host.AddScriptLPS(1); - UUID agentId = new UUID(); - if (UUID.TryParse(agent, out agentId)) - { - ScenePresence presence = World.GetScenePresence(agentId); - if (presence != null) - { - // agent must be over the owners land - if (m_host.OwnerID == World.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y)) - World.TeleportClientHome(agentId, presence.ControllingClient); - } - } - // ScriptSleep(5000); - } - - public void llTextBox(string avatar, string message, int chat_channel) - { - m_host.AddScriptLPS(1); - NotImplemented("llTextBox"); - } - - public void llModifyLand(int action, int brush) - { - m_host.AddScriptLPS(1); - World.ExternalChecks.ExternalChecksCanTerraformLand(m_host.OwnerID, new Vector3(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, 0)); - } - - 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 LSL_String llGetAnimation(string id) - { - m_host.AddScriptLPS(1); - NotImplemented("llGetAnimation"); - return String.Empty; - } - - public void llResetScript() - { - m_host.AddScriptLPS(1); - m_ScriptEngine.ApiResetScript(m_itemID); - throw new EventAbortException(); - } - - public void llMessageLinked(int linknum, int num, string msg, string id) - { - - m_host.AddScriptLPS(1); - - // uint partLocalID; - UUID partItemID; - - switch ((int)linknum) - { - - case (int)ScriptBaseClass.LINK_ROOT: - - SceneObjectPart part = m_host.ParentGroup.RootPart; - - foreach (TaskInventoryItem item in part.TaskInventory.Values) - { - if (item.Type == 10) - { - // partLocalID = part.LocalId; - partItemID = item.ItemID; - - object[] resobj = new object[] - { - new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) - }; - - m_ScriptEngine.PostScriptEvent(partItemID, - new EventParams("link_message", - resobj, new DetectParams[0])); - } - } - - break; - - case (int)ScriptBaseClass.LINK_SET: - - foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) - { - - foreach (TaskInventoryItem item in partInst.TaskInventory.Values) - { - if (item.Type == 10) - { - // partLocalID = partInst.LocalId; - partItemID = item.ItemID; - Object[] resobj = new object[] - { - new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) - }; - - m_ScriptEngine.PostScriptEvent(partItemID, - new EventParams("link_message", - resobj, new DetectParams[0])); - } - } - } - - break; - - case (int)ScriptBaseClass.LINK_ALL_OTHERS: - - foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) - { - - if (partInst.LocalId != m_host.LocalId) - { - - foreach (TaskInventoryItem item in partInst.TaskInventory.Values) - { - if (item.Type == 10) - { - // partLocalID = partInst.LocalId; - partItemID = item.ItemID; - Object[] resobj = new object[] - { - new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) - }; - - m_ScriptEngine.PostScriptEvent(partItemID, - new EventParams("link_message", - resobj, new DetectParams[0])); - } - } - - } - } - - break; - - case (int)ScriptBaseClass.LINK_ALL_CHILDREN: - - foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) - { - - if (partInst.LocalId != m_host.ParentGroup.RootPart.LocalId) - { - - foreach (TaskInventoryItem item in partInst.TaskInventory.Values) - { - if (item.Type == 10) - { - // partLocalID = partInst.LocalId; - partItemID = item.ItemID; - Object[] resobj = new object[] - { - new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) - }; - - m_ScriptEngine.PostScriptEvent(partItemID, - new EventParams("link_message", - resobj, new DetectParams[0])); - } - } - - } - } - - break; - - case (int)ScriptBaseClass.LINK_THIS: - - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 10) - { - partItemID = item.ItemID; - - object[] resobj = new object[] - { - new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) - }; - - m_ScriptEngine.PostScriptEvent(partItemID, - new EventParams("link_message", - resobj, new DetectParams[0])); - } - } - - break; - - default: - - foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) - { - - if ((partInst.LinkNum) == linknum) - { - - foreach (TaskInventoryItem item in partInst.TaskInventory.Values) - { - if (item.Type == 10) - { - // partLocalID = partInst.LocalId; - partItemID = item.ItemID; - Object[] resObjDef = new object[] - { - new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) - }; - - m_ScriptEngine.PostScriptEvent(partItemID, - new EventParams("link_message", - resObjDef, new DetectParams[0])); - } - } - - } - } - - break; - - } - - } - - public void llPushObject(string target, LSL_Vector impulse, LSL_Vector ang_impulse, int local) - { - m_host.AddScriptLPS(1); - SceneObjectPart targ = World.GetSceneObjectPart(target); - if (targ == null) - return; - targ.ApplyImpulse(new Vector3((float)impulse.x, (float)impulse.y, (float)impulse.z), local != 0); - } - - public void llPassCollisions(int pass) - { - m_host.AddScriptLPS(1); - NotImplemented("llPassCollisions"); - } - - public LSL_String llGetScriptName() - { - - string result = String.Empty; - - m_host.AddScriptLPS(1); - - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 10 && item.ItemID == m_itemID) - { - result = item.Name!=null?item.Name:String.Empty; - break; - } - } - - return result; - - } - - // this function to understand which shape it is (taken from meshmerizer) - // quite useful can be used by meshmerizer to have a centralized point of understanding the shape - // except that it refers to scripting constants - private int getScriptPrimType(PrimitiveBaseShape primShape) - { - if (primShape.SculptEntry) - return ScriptBaseClass.PRIM_TYPE_SCULPT; - if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.Square) - { - if (primShape.PathCurve == (byte)Extrusion.Straight) - return ScriptBaseClass.PRIM_TYPE_BOX; - else if (primShape.PathCurve == (byte)Extrusion.Curve1) - return ScriptBaseClass.PRIM_TYPE_TUBE; - } - else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.Circle) - { - if (primShape.PathCurve == (byte)Extrusion.Straight) - return ScriptBaseClass.PRIM_TYPE_CYLINDER; - // ProfileCurve seems to combine hole shape and profile curve so we need to only compare against the lower 3 bits - else if (primShape.PathCurve == (byte)Extrusion.Curve1) - return ScriptBaseClass.PRIM_TYPE_TORUS; - } - else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.HalfCircle) - { - if (primShape.PathCurve == (byte)Extrusion.Curve1 || primShape.PathCurve == (byte)Extrusion.Curve2) - return ScriptBaseClass.PRIM_TYPE_SPHERE; - } - else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.EquilateralTriangle) - { - if (primShape.PathCurve == (byte)Extrusion.Straight) - return ScriptBaseClass.PRIM_TYPE_PRISM; - else if (primShape.PathCurve == (byte)Extrusion.Curve1) - return ScriptBaseClass.PRIM_TYPE_RING; - } - return ScriptBaseClass.PRIM_TYPE_BOX; - } - - // Helper functions to understand if object has cut, hollow, dimple, and other affecting number of faces - private void hasCutHollowDimpleProfileCut(int primType, PrimitiveBaseShape shape, out bool hasCut, out bool hasHollow, - out bool hasDimple, out bool hasProfileCut) - { - if (primType == ScriptBaseClass.PRIM_TYPE_BOX - || - primType == ScriptBaseClass.PRIM_TYPE_CYLINDER - || - primType == ScriptBaseClass.PRIM_TYPE_PRISM) - - hasCut = (shape.ProfileBegin > 0) || (shape.ProfileEnd > 0); - else - hasCut = (shape.PathBegin > 0) || (shape.PathEnd > 0); - - hasHollow = shape.ProfileHollow > 0; - hasDimple = (shape.ProfileBegin > 0) || (shape.ProfileEnd > 0); // taken from llSetPrimitiveParms - hasProfileCut = hasDimple; // is it the same thing? - - } - - public LSL_Integer llGetNumberOfSides() - { - m_host.AddScriptLPS(1); - - return GetNumberOfSides(m_host); - } - - private int GetNumberOfSides(SceneObjectPart part) - { - int ret = 0; - bool hasCut; - bool hasHollow; - bool hasDimple; - bool hasProfileCut; - - int primType = getScriptPrimType(part.Shape); - hasCutHollowDimpleProfileCut(primType, part.Shape, out hasCut, out hasHollow, out hasDimple, out hasProfileCut); - - switch (primType) - { - case ScriptBaseClass.PRIM_TYPE_BOX: - ret = 6; - if (hasCut) ret += 2; - if (hasHollow) ret += 1; - break; - case ScriptBaseClass.PRIM_TYPE_CYLINDER: - ret = 3; - if (hasCut) ret += 2; - if (hasHollow) ret += 1; - break; - case ScriptBaseClass.PRIM_TYPE_PRISM: - ret = 5; - if (hasCut) ret += 2; - if (hasHollow) ret += 1; - break; - case ScriptBaseClass.PRIM_TYPE_SPHERE: - ret = 1; - if (hasCut) ret += 2; - if (hasDimple) ret += 2; - if (hasHollow) ret += 3; // Emulate lsl on secondlife (according to documentation it should have added only +1) - break; - case ScriptBaseClass.PRIM_TYPE_TORUS: - ret = 1; - if (hasCut) ret += 2; - if (hasProfileCut) ret += 2; - if (hasHollow) ret += 1; - break; - case ScriptBaseClass.PRIM_TYPE_TUBE: - ret = 4; - if (hasCut) ret += 2; - if (hasProfileCut) ret += 2; - if (hasHollow) ret += 1; - break; - case ScriptBaseClass.PRIM_TYPE_RING: - ret = 3; - if (hasCut) ret += 2; - if (hasProfileCut) ret += 2; - if (hasHollow) ret += 1; - break; - case ScriptBaseClass.PRIM_TYPE_SCULPT: - ret = 1; - break; - } - return ret; - } - - - /* The new / changed functions were tested with the following LSL script: - - default - { - state_entry() - { - rotation rot = llEuler2Rot(<0,70,0> * DEG_TO_RAD); - - llOwnerSay("to get here, we rotate over: "+ (string) llRot2Axis(rot)); - llOwnerSay("and we rotate for: "+ (llRot2Angle(rot) * RAD_TO_DEG)); - - // convert back and forth between quaternion <-> vector and angle - - rotation newrot = llAxisAngle2Rot(llRot2Axis(rot),llRot2Angle(rot)); - - llOwnerSay("Old rotation was: "+(string) rot); - llOwnerSay("re-converted rotation is: "+(string) newrot); - - llSetRot(rot); // to check the parameters in the prim - } - } - */ - - - - // Xantor 29/apr/2008 - // Returns rotation described by rotating angle radians about axis. - // q = cos(a/2) + i (x * sin(a/2)) + j (y * sin(a/2)) + k (z * sin(a/2)) - public LSL_Rotation llAxisAngle2Rot(LSL_Vector axis, double angle) - { - m_host.AddScriptLPS(1); - - double x, y, z, s, t; - - s = Math.Cos(angle / 2); - t = Math.Sin(angle / 2); // temp value to avoid 2 more sin() calcs - x = axis.x * t; - y = axis.y * t; - z = axis.z * t; - - return new LSL_Rotation(x,y,z,s); - } - - - // Xantor 29/apr/2008 - // converts a Quaternion to X,Y,Z axis rotations - public LSL_Vector llRot2Axis(LSL_Rotation rot) - { - m_host.AddScriptLPS(1); - double x,y,z; - - if (rot.s > 1) // normalization needed - { - double length = Math.Sqrt(rot.x * rot.x + rot.y * rot.y + - rot.z * rot.z + rot.s * rot.s); - - rot.x /= length; - rot.y /= length; - rot.z /= length; - rot.s /= length; - - } - - // double angle = 2 * Math.Acos(rot.s); - double s = Math.Sqrt(1 - rot.s * rot.s); - if (s < 0.001) - { - x = 1; - y = z = 0; - } - else - { - x = rot.x / s; // normalise axis - y = rot.y / s; - z = rot.z / s; - } - - return new LSL_Vector(x,y,z); - } - - - // Returns the angle of a quaternion (see llRot2Axis for the axis) - public LSL_Float llRot2Angle(LSL_Rotation rot) - { - m_host.AddScriptLPS(1); - - if (rot.s > 1) // normalization needed - { - double length = Math.Sqrt(rot.x * rot.x + rot.y * rot.y + - rot.z * rot.z + rot.s * rot.s); - - rot.x /= length; - rot.y /= length; - rot.z /= length; - rot.s /= length; - } - - double angle = 2 * Math.Acos(rot.s); - - return angle; - } - - public LSL_Float llAcos(double val) - { - m_host.AddScriptLPS(1); - return (double)Math.Acos(val); - } - - public LSL_Float llAsin(double val) - { - m_host.AddScriptLPS(1); - return (double)Math.Asin(val); - } - - // Xantor 30/apr/2008 - public LSL_Float llAngleBetween(LSL_Rotation a, LSL_Rotation b) - { - m_host.AddScriptLPS(1); - - return (double) Math.Acos(a.x * b.x + a.y * b.y + a.z * b.z + a.s * b.s) * 2; - } - - public LSL_String llGetInventoryKey(string name) - { - m_host.AddScriptLPS(1); - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == name) - { - if ((inv.Value.CurrentPermissions & (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify)) == (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify)) - { - return inv.Value.AssetID.ToString(); - } - else - { - return UUID.Zero.ToString(); - } - } - } - return UUID.Zero.ToString(); - } - - public void llAllowInventoryDrop(int add) - { - m_host.AddScriptLPS(1); - - if (add != 0) - m_host.ParentGroup.RootPart.AllowedDrop = true; - else - m_host.ParentGroup.RootPart.AllowedDrop = false; - } - - public LSL_Vector llGetSunDirection() - { - m_host.AddScriptLPS(1); - - LSL_Vector SunDoubleVector3; - Vector3 SunFloatVector3; - - // sunPosition estate setting is set in OpenSim.Region.Environment.Modules.SunModule - // have to convert from Vector3 (float) to LSL_Vector (double) - SunFloatVector3 = World.RegionInfo.RegionSettings.SunVector; - SunDoubleVector3.x = (double)SunFloatVector3.X; - SunDoubleVector3.y = (double)SunFloatVector3.Y; - SunDoubleVector3.z = (double)SunFloatVector3.Z; - - return SunDoubleVector3; - } - - public LSL_Vector llGetTextureOffset(int face) - { - m_host.AddScriptLPS(1); - return GetTextureOffset(m_host, face); - } - - private LSL_Vector GetTextureOffset(SceneObjectPart part, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - LSL_Vector offset = new LSL_Vector(); - if (face == ScriptBaseClass.ALL_SIDES) - { - face = 0; - } - if (face >= 0 && face < GetNumberOfSides(part)) - { - offset.x = tex.GetFace((uint)face).OffsetU; - offset.y = tex.GetFace((uint)face).OffsetV; - offset.z = 0.0; - return offset; - } - else - { - return offset; - } - } - - public LSL_Vector llGetTextureScale(int side) - { - m_host.AddScriptLPS(1); - Primitive.TextureEntry tex = m_host.Shape.Textures; - LSL_Vector 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 LSL_Float llGetTextureRot(int face) - { - m_host.AddScriptLPS(1); - return GetTextureRot(m_host, face); - } - - private LSL_Float GetTextureRot(SceneObjectPart part, int face) - { - Primitive.TextureEntry tex = part.Shape.Textures; - if (face == -1) - { - face = 0; - } - if (face >= 0 && face < GetNumberOfSides(part)) - { - return tex.GetFace((uint)face).Rotation; - } - else - { - return 0.0; - } - } - - public LSL_Integer llSubStringIndex(string source, string pattern) - { - m_host.AddScriptLPS(1); - return source.IndexOf(pattern); - } - - public LSL_String llGetOwnerKey(string id) - { - m_host.AddScriptLPS(1); - UUID key = new UUID(); - if (UUID.TryParse(id, out key)) - { - try - { - SceneObjectPart obj = World.GetSceneObjectPart(World.Entities[key].LocalId); - if (obj == null) - return id; // the key is for an agent so just return the key - else - return obj.OwnerID.ToString(); - } - catch (KeyNotFoundException) - { - return id; // The Object/Agent not in the region so just return the key - } - } - else - { - return UUID.Zero.ToString(); - } - } - - public LSL_Vector llGetCenterOfMass() - { - m_host.AddScriptLPS(1); - NotImplemented("llGetCenterOfMass"); - return new LSL_Vector(); - } - - public LSL_List llListSort(LSL_List src, int stride, int ascending) - { - m_host.AddScriptLPS(1); - - if (stride <= 0) - { - stride = 1; - } - return src.Sort(stride, ascending); - } - - public LSL_Integer llGetListLength(LSL_List src) - { - m_host.AddScriptLPS(1); - - if (src == null) - { - return 0; - } - else - { - return src.Length; - } - } - - public LSL_Integer llList2Integer(LSL_List src, int index) - { - m_host.AddScriptLPS(1); - if (index < 0) - { - index = src.Length + index; - } - if (index >= src.Length) - { - return 0; - } - try - { - if (src.Data[index] is LSL_Integer) - return Convert.ToInt32(((LSL_Integer) src.Data[index]).value); - else if (src.Data[index] is LSL_Float) - return Convert.ToInt32(((LSL_Float) src.Data[index]).value); - else if (src.Data[index] is LSL_String) - return Convert.ToInt32(((LSL_String) src.Data[index]).m_string); - return Convert.ToInt32(src.Data[index]); - } - catch (FormatException) - { - return 0; - } - } - - public LSL_Float llList2Float(LSL_List src, int index) - { - m_host.AddScriptLPS(1); - if (index < 0) - { - index = src.Length + index; - } - if (index >= src.Length) - { - return 0.0; - } - try - { - if (src.Data[index] is LSL_Integer) - return Convert.ToDouble(((LSL_Integer) src.Data[index]).value); - else if (src.Data[index] is LSL_Float) - return Convert.ToDouble(((LSL_Float) src.Data[index]).value); - else if (src.Data[index] is LSL_String) - return Convert.ToDouble(((LSL_String) src.Data[index]).m_string); - return Convert.ToDouble(src.Data[index]); - } - catch (FormatException) - { - return 0.0; - } - } - - public LSL_String llList2String(LSL_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 LSL_String llList2Key(LSL_List src, int index) - { - m_host.AddScriptLPS(1); - if (index < 0) - { - index = src.Length + index; - } - if (index >= src.Length) - { - return ""; - } - return src.Data[index].ToString(); - } - - public LSL_Vector llList2Vector(LSL_List src, int index) - { - m_host.AddScriptLPS(1); - if (index < 0) - { - index = src.Length + index; - } - if (index >= src.Length) - { - return new LSL_Vector(0, 0, 0); - } - if (src.Data[index].GetType() == typeof(LSL_Vector)) - { - return (LSL_Vector)src.Data[index]; - } - else - { - return new LSL_Vector(src.Data[index].ToString()); - } - } - - public LSL_Rotation llList2Rot(LSL_List src, int index) - { - m_host.AddScriptLPS(1); - if (index < 0) - { - index = src.Length + index; - } - if (index >= src.Length) - { - return new LSL_Rotation(0, 0, 0, 1); - } - if (src.Data[index].GetType() == typeof(LSL_Rotation)) - { - return (LSL_Rotation)src.Data[index]; - } - else - { - return new LSL_Rotation(src.Data[index].ToString()); - } - } - - public LSL_List llList2List(LSL_List src, int start, int end) - { - m_host.AddScriptLPS(1); - return src.GetSublist(start, end); - } - - public LSL_List llDeleteSubList(LSL_List src, int start, int end) - { - return src.DeleteSublist(end, start); - } - - public LSL_Integer llGetListEntryType(LSL_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 LSL_Integer || src.Data[index] is Int32) - return 1; - if (src.Data[index] is LSL_Float || src.Data[index] is Single || src.Data[index] is Double) - return 2; - if (src.Data[index] is LSL_String || src.Data[index] is String) - { - UUID tuuid; - if (UUID.TryParse(src.Data[index].ToString(), out tuuid)) - { - return 4; - } - else - { - return 3; - } - } - if (src.Data[index] is LSL_Vector) - return 5; - if (src.Data[index] is LSL_Rotation) - return 6; - if (src.Data[index] is LSL_List) - return 7; - return 0; - - } - - /// - /// Process the supplied list and return the - /// content of the list formatted as a comma - /// separated list. There is a space after - /// each comma. - /// - - public LSL_String llList2CSV(LSL_List src) - { - - string ret = String.Empty; - int x = 0; - - m_host.AddScriptLPS(1); - - if (src.Data.Length > 0) - { - ret = src.Data[x++].ToString(); - for (; x < src.Data.Length; x++) - { - ret += ", "+src.Data[x].ToString(); - } - } - - return ret; - } - - /// - /// The supplied string is scanned for commas - /// and converted into a list. Commas are only - /// effective if they are encountered outside - /// of '<' '>' delimiters. Any whitespace - /// before or after an element is trimmed. - /// - - public LSL_List llCSV2List(string src) - { - - LSL_List result = new LSL_List(); - int parens = 0; - int start = 0; - int length = 0; - - m_host.AddScriptLPS(1); - - for (int i = 0; i < src.Length; i++) - { - switch (src[i]) - { - case '<': - parens++; - length++; - break; - case '>': - if (parens > 0) - parens--; - length++; - break; - case ',': - if (parens == 0) - { - result.Add(src.Substring(start,length).Trim()); - start += length+1; - length = 0; - } - else - { - length++; - } - break; - default: - length++; - break; - } - } - - result.Add(src.Substring(start,length).Trim()); - - return result; - } - - /// - /// Randomizes the list, be arbitrarily reordering - /// sublists of stride elements. As the stride approaches - /// the size of the list, the options become very - /// limited. - /// - /// - /// This could take a while for very large list - /// sizes. - /// - - public LSL_List llListRandomize(LSL_List src, int stride) - { - LSL_List result; - Random rand = new Random(); - - int chunkk; - int[] chunks; - - m_host.AddScriptLPS(1); - - if (stride <= 0) - { - stride = 1; - } - - // Stride MUST be a factor of the list length - // If not, then return the src list. This also - // traps those cases where stride > length. - - if (src.Length != stride && src.Length%stride == 0) - { - chunkk = src.Length/stride; - - chunks = new int[chunkk]; - - for (int i = 0; i < chunkk; i++) - chunks[i] = i; - - // Knuth shuffle the chunkk index - for (int i = chunkk - 1; i >= 1; i--) - { - // Elect an unrandomized chunk to swap - int index = rand.Next(i + 1); - int tmp; - - // and swap position with first unrandomized chunk - tmp = chunks[i]; - chunks[i] = chunks[index]; - chunks[index] = tmp; - } - - // Construct the randomized list - - result = new LSL_List(); - - for (int i = 0; i < chunkk; i++) - { - for (int j = 0; j < stride; j++) - { - result.Add(src.Data[chunks[i]*stride+j]); - } - } - } - else { - object[] array = new object[src.Length]; - Array.Copy(src.Data, 0, array, 0, src.Length); - result = new LSL_List(array); - } - - return result; - } - - /// - /// Elements in the source list starting with 0 and then - /// every i+stride. If the stride is negative then the scan - /// is backwards producing an inverted result. - /// Only those elements that are also in the specified - /// range are included in the result. - /// - - public LSL_List llList2ListStrided(LSL_List src, int start, int end, int stride) - { - - LSL_List result = new LSL_List(); - int[] si = new int[2]; - int[] ei = new int[2]; - bool twopass = false; - - m_host.AddScriptLPS(1); - - // First step is always to deal with negative indices - - if (start < 0) - start = src.Length+start; - if (end < 0) - end = src.Length+end; - - // Out of bounds indices are OK, just trim them - // accordingly - - if (start > src.Length) - start = src.Length; - - if (end > src.Length) - end = src.Length; - - // There may be one or two ranges to be considered - - if (start != end) - { - - if (start <= end) - { - si[0] = start; - ei[0] = end; - } - else - { - si[1] = start; - ei[1] = src.Length; - si[0] = 0; - ei[0] = end; - twopass = true; - } - - // The scan always starts from the beginning of the - // source list, but members are only selected if they - // fall within the specified sub-range. The specified - // range values are inclusive. - // A negative stride reverses the direction of the - // scan producing an inverted list as a result. - - if (stride == 0) - stride = 1; - - if (stride > 0) - { - for (int i = 0; i < src.Length; i += stride) - { - if (i<=ei[0] && i>=si[0]) - result.Add(src.Data[i]); - if (twopass && i>=si[1] && i<=ei[1]) - result.Add(src.Data[i]); - } - } - else if (stride < 0) - { - for (int i = src.Length - 1; i >= 0; i += stride) - { - if (i <= ei[0] && i >= si[0]) - result.Add(src.Data[i]); - if (twopass && i >= si[1] && i <= ei[1]) - result.Add(src.Data[i]); - } - } - } - - return result; - } - - public LSL_Integer llGetRegionAgentCount() - { - m_host.AddScriptLPS(1); - NotImplemented("llGetRegionAgentCount"); - return new LSL_Integer(0); - } - - public LSL_Vector llGetRegionCorner() - { - m_host.AddScriptLPS(1); - return new LSL_Vector(World.RegionInfo.RegionLocX * Constants.RegionSize, World.RegionInfo.RegionLocY * Constants.RegionSize, 0); - } - - /// - /// Insert the list identified by into the - /// list designated by such that the first - /// new element has the index specified by - /// - - public LSL_List llListInsertList(LSL_List dest, LSL_List src, int index) - { - - LSL_List pref = null; - LSL_List suff = null; - - m_host.AddScriptLPS(1); - - if (index < 0) - { - index = index+dest.Length; - if (index < 0) - { - index = 0; - } - } - - if (index != 0) - { - pref = dest.GetSublist(0,index-1); - if (index < dest.Length) - { - suff = dest.GetSublist(index,-1); - return pref + src + suff; - } - else - { - return pref + src; - } - } - else - { - if (index < dest.Length) - { - suff = dest.GetSublist(index,-1); - return src + suff; - } - else - { - return src; - } - } - - } - - /// - /// Returns the index of the first occurrence of test - /// in src. - /// - - public LSL_Integer llListFindList(LSL_List src, LSL_List test) - { - - int index = -1; - int length = src.Length - test.Length + 1; - - m_host.AddScriptLPS(1); - - // If either list is empty, do not match - - if (src.Length != 0 && test.Length != 0) - { - for (int i = 0; i < length; i++) - { - if (src.Data[i].Equals(test.Data[0])) - { - int j; - for (j = 1; j < test.Length; j++) - if (!src.Data[i+j].Equals(test.Data[j])) - break; - if (j == test.Length) - { - index = i; - break; - } - } - } - } - - return index; - - } - - public LSL_String llGetObjectName() - { - m_host.AddScriptLPS(1); - return m_host.Name!=null?m_host.Name:String.Empty; - } - - public void llSetObjectName(string name) - { - m_host.AddScriptLPS(1); - m_host.Name = name!=null?name:String.Empty; - } - - public LSL_String llGetDate() - { - m_host.AddScriptLPS(1); - DateTime date = DateTime.Now.ToUniversalTime(); - string result = date.ToString("yyyy-MM-dd"); - return result; - } - - public LSL_Integer llEdgeOfWorld(LSL_Vector pos, LSL_Vector dir) - { - m_host.AddScriptLPS(1); - NotImplemented("llEdgeOfWorld"); - return 0; - } - - public LSL_Integer llGetAgentInfo(string id) - { - m_host.AddScriptLPS(1); - NotImplemented("llGetAgentInfo"); - return 0; - } - - public void llAdjustSoundVolume(double volume) - { - m_host.AddScriptLPS(1); - m_host.AdjustSoundGain(volume); - // ScriptSleep(100); - } - - public void llSetSoundQueueing(int queue) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetSoundQueueing"); - } - - public void llSetSoundRadius(double radius) - { - m_host.AddScriptLPS(1); - m_host.SoundRadius = radius; - } - - public LSL_String llKey2Name(string id) - { - m_host.AddScriptLPS(1); - UUID key = new UUID(); - if (UUID.TryParse(id,out key)) - { - ScenePresence presence = World.GetScenePresence(key); - - if (presence != null) - { - return presence.ControllingClient.Name; - //return presence.Name; - } - - if (World.GetSceneObjectPart(key) != null) - { - return World.GetSceneObjectPart(key).Name; - } - } - 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 = (Primitive.TextureAnimMode)mode; - - //ALL_SIDES - if (face == ScriptBaseClass.ALL_SIDES) - 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(); - m_host.ParentGroup.HasGroupChanged = true; - } - - public void llTriggerSoundLimited(string sound, double volume, LSL_Vector top_north_east, - LSL_Vector bottom_south_west) - { - m_host.AddScriptLPS(1); - NotImplemented("llTriggerSoundLimited"); - } - - public void llEjectFromLand(string pest) - { - m_host.AddScriptLPS(1); - UUID agentId = new UUID(); - if (UUID.TryParse(pest, out agentId)) - { - ScenePresence presence = World.GetScenePresence(agentId); - if (presence != null) - { - // agent must be over the owners land - if (m_host.OwnerID == World.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y)) - World.TeleportClientHome(agentId, presence.ControllingClient); - } - } - // ScriptSleep(5000); - } - - public LSL_List llParseString2List(string str, LSL_List separators, LSL_List spacers) - { - m_host.AddScriptLPS(1); - LSL_List ret = new LSL_List(); - object[] delimiters = new object[separators.Length + spacers.Length]; - separators.Data.CopyTo(delimiters, 0); - spacers.Data.CopyTo(delimiters, separators.Length); - bool dfound = false; - do - { - dfound = false; - int cindex = -1; - string cdeli = ""; - for (int i = 0; i < delimiters.Length; i++) - { - int index = str.IndexOf(delimiters[i].ToString()); - bool found = index != -1; - if (found && String.Empty != delimiters[i].ToString()) - { - if ((cindex > index) || (cindex == -1)) - { - cindex = index; - cdeli = delimiters[i].ToString(); - } - dfound = dfound || found; - } - } - if (cindex != -1) - { - if (cindex > 0) - { - ret.Add(str.Substring(0, cindex)); - // Cannot use spacers.Contains() because spacers may be either type String or LSLString - for (int j = 0; j < spacers.Length; j++) - { - if (spacers.Data[j].ToString() == cdeli) - { - ret.Add(cdeli); - break; - } - } - } - if (cindex == 0 && spacers.Contains(cdeli)) - { - ret.Add(cdeli); - } - str = str.Substring(cindex + cdeli.Length); - } - } while (dfound); - if (str != "") - { - ret.Add(str); - } - return ret; - } - - public LSL_Integer llOverMyLand(string id) - { - m_host.AddScriptLPS(1); - UUID key = new UUID(); - if (UUID.TryParse(id,out key)) - { - ScenePresence presence = World.GetScenePresence(key); - if (presence != null) // object is an avatar - { - if (m_host.OwnerID == World.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y)) - return 1; - } - else // object is not an avatar - { - SceneObjectPart obj = World.GetSceneObjectPart(key); - if (obj != null) - if (m_host.OwnerID == World.GetLandOwner(obj.AbsolutePosition.X, obj.AbsolutePosition.Y)) - return 1; - } - } - return 0; - } - - public LSL_String llGetLandOwnerAt(LSL_Vector pos) - { - m_host.AddScriptLPS(1); - return World.GetLandOwner((float)pos.x, (float)pos.y).ToString(); - } - - public LSL_Vector llGetAgentSize(string id) - { - m_host.AddScriptLPS(1); - ScenePresence avatar = World.GetScenePresence(id); - LSL_Vector agentSize; - if (avatar == null) - { - agentSize = ScriptBaseClass.ZERO_VECTOR; - } - else - { - PhysicsVector size = avatar.PhysicsActor.Size; - agentSize = new LSL_Vector(size.X, size.Y, size.Z); - } - return agentSize; - } - - public LSL_Integer llSameGroup(string agent) - { - m_host.AddScriptLPS(1); - UUID agentId = new UUID(); - if (!UUID.TryParse(agent, out agentId)) - return new LSL_Integer(0); - ScenePresence presence = World.GetScenePresence(agentId); - if (presence == null) - return new LSL_Integer(0); - IClientAPI client = presence.ControllingClient; - if (m_host.GroupID == client.ActiveGroupId) - return new LSL_Integer(1); - else - return new LSL_Integer(0); - } - - public void llUnSit(string id) - { - m_host.AddScriptLPS(1); - - UUID key = new UUID(); - if (UUID.TryParse(id, out key)) - { - ScenePresence av = World.GetScenePresence(key); - - if (av != null) - { - if (llAvatarOnSitTarget() == id) - { - // if the avatar is sitting on this object, then - // we can unsit them. We don't want random scripts unsitting random people - // Lets avoid the popcorn avatar scenario. - av.StandUp(); - } - else - { - // If the object owner also owns the parcel - // or - // if the land is group owned and the object is group owned by the same group - // or - // if the object is owned by a person with estate access. - - ILandObject parcel = World.LandChannel.GetLandObject(av.AbsolutePosition.X, av.AbsolutePosition.Y); - if (parcel != null) - { - if (m_host.ObjectOwner == parcel.landData.OwnerID || - (m_host.OwnerID == m_host.GroupID && m_host.GroupID == parcel.landData.GroupID - && parcel.landData.IsGroupOwned) || World.ExternalChecks.ExternalChecksCanBeGodLike(m_host.OwnerID)) - { - av.StandUp(); - } - } - } - } - - } - - } - - public LSL_Vector llGroundSlope(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - - Vector3 pos = m_host.AbsolutePosition + new Vector3((float)offset.x, - (float)offset.y, - (float)offset.z); - - Vector3 p0 = new Vector3(pos.X, pos.Y, - (float)llGround( - new LSL_Vector(pos.X, pos.Y, pos.Z) - )); - Vector3 p1 = new Vector3(pos.X + 1, pos.Y, - (float)llGround( - new LSL_Vector(pos.X + 1, pos.Y, pos.Z) - )); - Vector3 p2 = new Vector3(pos.X, pos.Y + 1, - (float)llGround( - new LSL_Vector(pos.X, pos.Y + 1, pos.Z) - )); - - Vector3 v0 = new Vector3( - p1.X - p0.X, p1.Y - p0.Y, p1.Z - p0.Z); - Vector3 v1 = new Vector3( - p2.X - p1.X, p2.Y - p1.Y, p2.Z - p1.Z); - - v0.Normalize(); - v1.Normalize(); - - Vector3 tv = new Vector3(); - tv.X = (v0.Y * v1.Z) - (v0.Z * v1.Y); - tv.Y = (v0.Z * v1.X) - (v0.X * v1.Z); - tv.Z = (v0.X * v1.Y) - (v0.Y * v1.X); - - return new LSL_Vector(tv.X, tv.Y, tv.Z); - } - - public LSL_Vector llGroundNormal(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - LSL_Vector x = llGroundSlope(offset); - return new LSL_Vector(x.x, x.y, 1.0); - } - - public LSL_Vector llGroundContour(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - LSL_Vector x = llGroundSlope(offset); - return new LSL_Vector(-x.y, x.x, 0.0); - } - - public LSL_Integer llGetAttached() - { - m_host.AddScriptLPS(1); - NotImplemented("llGetAttached"); - return 0; - } - - public LSL_Integer llGetFreeMemory() - { - m_host.AddScriptLPS(1); - // Make scripts designed for LSO happy - return 16384; - } - - public LSL_String llGetRegionName() - { - m_host.AddScriptLPS(1); - return World.RegionInfo.RegionName; - } - - public LSL_Float llGetRegionTimeDilation() - { - m_host.AddScriptLPS(1); - return (double)World.TimeDilation; - } - - public LSL_Float llGetRegionFPS() - { - m_host.AddScriptLPS(1); - //TODO: return actual FPS - 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; - } - - private Primitive.ParticleSystem getNewParticleSystemWithSLDefaultValues() - { - Primitive.ParticleSystem ps = new Primitive.ParticleSystem(); - - // TODO find out about the other defaults and add them here - ps.PartStartColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f); - ps.PartEndColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f); - ps.PartStartScaleX = 1.0f; - ps.PartStartScaleY = 1.0f; - ps.PartEndScaleX = 1.0f; - ps.PartEndScaleY = 1.0f; - ps.BurstSpeedMin = 1.0f; - ps.BurstSpeedMax = 1.0f; - ps.BurstRate = 0.1f; - ps.PartMaxAge = 10.0f; - return ps; - } - - public void llParticleSystem(LSL_List rules) - { - m_host.AddScriptLPS(1); - if (rules.Length == 0) - { - m_host.RemoveParticleSystem(); - m_host.ParentGroup.HasGroupChanged = true; - } - else - { - Primitive.ParticleSystem prules = getNewParticleSystemWithSLDefaultValues(); - LSL_Vector tempv = new LSL_Vector(); - - float tempf = 0; - - for (int i = 0; i < rules.Length; i += 2) - { - switch ((int)rules.Data[i]) - { - case (int)ScriptBaseClass.PSYS_PART_FLAGS: - prules.PartDataFlags = (Primitive.ParticleSystem.ParticleDataFlags)(uint)rules.GetLSLIntegerItem(i + 1); - break; - - case (int)ScriptBaseClass.PSYS_PART_START_COLOR: - tempv = rules.GetVector3Item(i + 1); - prules.PartStartColor.R = (float)tempv.x; - prules.PartStartColor.G = (float)tempv.y; - prules.PartStartColor.B = (float)tempv.z; - break; - - case (int)ScriptBaseClass.PSYS_PART_START_ALPHA: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.PartStartColor.A = tempf; - break; - - case (int)ScriptBaseClass.PSYS_PART_END_COLOR: - tempv = rules.GetVector3Item(i + 1); - prules.PartEndColor.R = (float)tempv.x; - prules.PartEndColor.G = (float)tempv.y; - prules.PartEndColor.B = (float)tempv.z; - break; - - case (int)ScriptBaseClass.PSYS_PART_END_ALPHA: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.PartEndColor.A = tempf; - break; - - case (int)ScriptBaseClass.PSYS_PART_START_SCALE: - tempv = rules.GetVector3Item(i + 1); - prules.PartStartScaleX = (float)tempv.x; - prules.PartStartScaleY = (float)tempv.y; - break; - - case (int)ScriptBaseClass.PSYS_PART_END_SCALE: - tempv = rules.GetVector3Item(i + 1); - prules.PartEndScaleX = (float)tempv.x; - prules.PartEndScaleY = (float)tempv.y; - break; - - case (int)ScriptBaseClass.PSYS_PART_MAX_AGE: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.PartMaxAge = tempf; - break; - - case (int)ScriptBaseClass.PSYS_SRC_ACCEL: - tempv = rules.GetVector3Item(i + 1); - prules.PartAcceleration.X = (float)tempv.x; - prules.PartAcceleration.Y = (float)tempv.y; - prules.PartAcceleration.Z = (float)tempv.z; - break; - - case (int)ScriptBaseClass.PSYS_SRC_PATTERN: - int tmpi = (int)rules.GetLSLIntegerItem(i + 1); - prules.Pattern = (Primitive.ParticleSystem.SourcePattern)tmpi; - break; - - case (int)ScriptBaseClass.PSYS_SRC_TEXTURE: - prules.Texture = KeyOrName(rules.GetLSLStringItem(i + 1)); - break; - - case (int)ScriptBaseClass.PSYS_SRC_BURST_RATE: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.BurstRate = (float)tempf; - break; - - case (int)ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT: - prules.BurstPartCount = (byte)(int)rules.GetLSLIntegerItem(i + 1); - break; - - case (int)ScriptBaseClass.PSYS_SRC_BURST_RADIUS: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.BurstRadius = (float)tempf; - break; - - case (int)ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.BurstSpeedMin = (float)tempf; - break; - - case (int)ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.BurstSpeedMax = (float)tempf; - break; - - case (int)ScriptBaseClass.PSYS_SRC_MAX_AGE: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.MaxAge = (float)tempf; - break; - - case (int)ScriptBaseClass.PSYS_SRC_TARGET_KEY: - UUID key = UUID.Zero; - if (UUID.TryParse(rules.Data[i + 1].ToString(), out key)) - { - prules.Target = key; - } - else - { - prules.Target = m_host.UUID; - } - break; - - case (int)ScriptBaseClass.PSYS_SRC_OMEGA: - // AL: This is an assumption, since it is the only thing that would match. - tempv = rules.GetVector3Item(i + 1); - prules.AngularVelocity.X = (float)tempv.x; - prules.AngularVelocity.Y = (float)tempv.y; - prules.AngularVelocity.Z = (float)tempv.z; - break; - - case (int)ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.InnerAngle = (float)tempf; - break; - - case (int)ScriptBaseClass.PSYS_SRC_ANGLE_END: - tempf = (float)rules.GetLSLFloatItem(i + 1); - prules.OuterAngle = (float)tempf; - break; - } - - } - prules.CRC = 1; - - m_host.AddNewParticleSystem(prules); - m_host.ParentGroup.HasGroupChanged = true; - } - m_host.SendFullUpdateToAllClients(); - } - - public void llGroundRepel(double height, int water, double tau) - { - m_host.AddScriptLPS(1); - NotImplemented("llGroundRepel"); - } - - private UUID GetTaskInventoryItem(string name) - { - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == name) - return inv.Key; - } - return UUID.Zero; - } - - public void llGiveInventoryList(string destination, string category, LSL_List inventory) - { - m_host.AddScriptLPS(1); - - UUID destID; - if (!UUID.TryParse(destination, out destID)) - return; - - List itemList = new List(); - - foreach (Object item in inventory.Data) - { - UUID itemID; - if (UUID.TryParse(item.ToString(), out itemID)) - { - itemList.Add(itemID); - } - else - { - itemID = GetTaskInventoryItem(item.ToString()); - if (itemID != UUID.Zero) - itemList.Add(itemID); - } - } - - if (itemList.Count == 0) - return; - - m_ScriptEngine.World.MoveTaskInventoryItems(destID, category, m_host, itemList); - } - - 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 llSetVehicleFloatParam(int param, float value) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetVehicleFloatParam"); - } - - public void llSetVehicleVectorParam(int param, LSL_Vector vec) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetVehicleVectorParam"); - } - - public void llSetVehicleRotationParam(int param, LSL_Rotation 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_Vector offset, LSL_Rotation 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.SitTargetPosition = new Vector3((float)offset.x, (float)offset.y, (float)offset.z); - m_host.SitTargetOrientation = new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s); - } - - public LSL_String llAvatarOnSitTarget() - { - m_host.AddScriptLPS(1); - return m_host.GetAvatarOnSitTarget().ToString(); - } - - public void llAddToLandPassList(string avatar, double hours) - { - m_host.AddScriptLPS(1); - UUID key; - LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; - if (land.OwnerID == m_host.OwnerID) - { - ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry(); - if (UUID.TryParse(avatar, out key)) - { - entry.AgentID = key; - entry.Flags = ParcelManager.AccessList.Access; - entry.Time = DateTime.Now.AddHours(hours); - land.ParcelAccessList.Add(entry); - } - } - // ScriptSleep(100); - } - - 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_Vector offset) - { - m_host.AddScriptLPS(1); - m_host.SetCameraEyeOffset(new Vector3((float)offset.x, (float)offset.y, (float)offset.z)); - } - - public void llSetCameraAtOffset(LSL_Vector offset) - { - m_host.AddScriptLPS(1); - m_host.SetCameraAtOffset(new Vector3((float)offset.x, (float)offset.y, (float)offset.z)); - } - - public LSL_String llDumpList2String(LSL_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 LSL_Integer llScriptDanger(LSL_Vector pos) - { - m_host.AddScriptLPS(1); - bool result = World.scriptDanger(m_host.LocalId, new Vector3((float)pos.x, (float)pos.y, (float)pos.z)); - if (result) - { - return 1; - } - else - { - return 0; - } - - } - - public void llDialog(string avatar, string message, LSL_List buttons, int chat_channel) - { - m_host.AddScriptLPS(1); - UUID av = new UUID(); - if (!UUID.TryParse(avatar,out av)) - { - LSLError("First parameter to llDialog needs to be a key"); - return; - } - if (buttons.Length > 12) - { - LSLError("No more than 12 buttons can be shown"); - return; - } - string[] buts = new string[buttons.Length]; - for (int i = 0; i < buttons.Length; i++) - { - if (buttons.Data[i].ToString() == String.Empty) - { - LSLError("button label cannot be blank"); - return; - } - if (buttons.Data[i].ToString().Length > 24) - { - LSLError("button label cannot be longer than 24 characters"); - return; - } - buts[i] = buttons.Data[i].ToString(); - } - World.SendDialogToUser(av, m_host.Name, m_host.UUID, m_host.OwnerID, message, new UUID("00000000-0000-2222-3333-100000001000"), chat_channel, buts); - // ScriptSleep(1000); - } - - public void llVolumeDetect(int detect) - { - m_host.AddScriptLPS(1); - NotImplemented("llVolumeDetect"); - } - - /// - /// Reset the named script. The script must be present - /// in the same prim. - /// - - public void llResetOtherScript(string name) - { - UUID item; - - m_host.AddScriptLPS(1); - - if ((item = ScriptByName(name)) != UUID.Zero) - m_ScriptEngine.ResetScript(item); - else - ShoutError("llResetOtherScript: script "+name+" not found"); - } - - public LSL_Integer llGetScriptState(string name) - { - UUID item; - - m_host.AddScriptLPS(1); - - if ((item = ScriptByName(name)) != UUID.Zero) - { - return m_ScriptEngine.GetScriptState(item) ?1:0; - } - - ShoutError("llGetScriptState: script "+name+" not found"); - - // If we didn't find it, then it's safe to - // assume it is not running. - - return 0; - } - - public void llRemoteLoadScript() - { - m_host.AddScriptLPS(1); - Deprecated("llRemoteLoadScript"); - // ScriptSleep(3000); - } - - public void llSetRemoteScriptAccessPin(int pin) - { - m_host.AddScriptLPS(1); - m_host.ScriptAccessPin = pin; - } - - public void llRemoteLoadScriptPin(string target, string name, int pin, int running, int start_param) - { - m_host.AddScriptLPS(1); - bool found = false; - UUID destId = UUID.Zero; - UUID srcId = UUID.Zero; - - if (!UUID.TryParse(target, out destId)) - { - llSay(0, "Could not parse key " + target); - return; - } - - // target must be a different prim than the one containing the script - if (m_host.UUID == destId) - { - return; - } - - // copy the first script found with this inventory name - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == name) - { - // make sure the object is a script - if (10 == inv.Value.Type) - { - found = true; - srcId = inv.Key; - break; - } - } - } - - if (!found) - { - llSay(0, "Could not find script " + name); - return; - } - - // the rest of the permission checks are done in RezScript, so check the pin there as well - World.RezScript(srcId, m_host, destId, pin, running, start_param); - // this will cause the delay even if the script pin or permissions were wrong - seems ok - ScriptSleep(3000); - } - - public void llOpenRemoteDataChannel() - { - m_host.AddScriptLPS(1); - IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); - if (xmlrpcMod.IsEnabled()) - { - UUID channelID = xmlrpcMod.OpenXMLRPCChannel(m_localID, m_itemID, UUID.Zero); - object[] resobj = new object[] { new LSL_Integer(1), new LSL_String(channelID.ToString()), new LSL_String(UUID.Zero.ToString()), new LSL_String(String.Empty), new LSL_Integer(0), new LSL_String(String.Empty) }; - m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( - "remote_data", resobj, - new DetectParams[0])); - } - // ScriptSleep(1000); - } - - public LSL_String llSendRemoteData(string channel, string dest, int idata, string sdata) - { - m_host.AddScriptLPS(1); - IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); - // ScriptSleep(3000); - 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); - // ScriptSleep(3000); - } - - public void llCloseRemoteDataChannel(string channel) - { - m_host.AddScriptLPS(1); - IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); - xmlrpcMod.CloseXMLRPCChannel(channel); - // ScriptSleep(1000); - } - - public LSL_String llMD5String(string src, int nonce) - { - m_host.AddScriptLPS(1); - return Util.Md5Hash(src + ":" + nonce.ToString()); - } - - private ObjectShapePacket.ObjectDataBlock SetPrimitiveBlockShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist) - { - ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock(); - - if (holeshape != (int)ScriptBaseClass.PRIM_HOLE_DEFAULT && - holeshape != (int)ScriptBaseClass.PRIM_HOLE_CIRCLE && - holeshape != (int)ScriptBaseClass.PRIM_HOLE_SQUARE && - holeshape != (int)ScriptBaseClass.PRIM_HOLE_TRIANGLE) - { - holeshape = (int)ScriptBaseClass.PRIM_HOLE_DEFAULT; - } - shapeBlock.ProfileCurve = (byte)holeshape; - if (cut.x < 0f) - { - cut.x = 0f; - } - if (cut.x > 1f) - { - cut.x = 1f; - } - if (cut.y < 0f) - { - cut.y = 0f; - } - if (cut.y > 1f) - { - cut.y = 1f; - } - if (cut.y - cut.x < 0.05f) - { - cut.x = cut.y - 0.05f; - } - shapeBlock.ProfileBegin = (ushort)(50000 * cut.x); - shapeBlock.ProfileEnd = (ushort)(50000 * (1 - cut.y)); - if (hollow < 0f) - { - hollow = 0f; - } - if (hollow > 0.95) - { - hollow = 0.95f; - } - shapeBlock.ProfileHollow = (ushort)(50000 * hollow); - if (twist.x < -1.0f) - { - twist.x = -1.0f; - } - if (twist.x > 1.0f) - { - twist.x = 1.0f; - } - if (twist.y < -1.0f) - { - twist.y = -1.0f; - } - if (twist.y > 1.0f) - { - twist.y = 1.0f; - } - shapeBlock.PathTwistBegin = (sbyte)(100 * twist.x); - shapeBlock.PathTwist = (sbyte)(100 * twist.y); - - shapeBlock.ObjectLocalID = part.LocalId; - - // retain pathcurve - shapeBlock.PathCurve = part.Shape.PathCurve; - - return shapeBlock; - } - - private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector taper_b, LSL_Vector topshear, byte fudge) - { - ObjectShapePacket.ObjectDataBlock shapeBlock; - - shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist); - - shapeBlock.ProfileCurve += fudge; - - if (taper_b.x < 0f) - { - taper_b.x = 0f; - } - if (taper_b.x > 2f) - { - taper_b.x = 2f; - } - if (taper_b.y < 0f) - { - taper_b.y = 0f; - } - if (taper_b.y > 2f) - { - taper_b.y = 2f; - } - shapeBlock.PathScaleX = (byte)(100 * (2.0 - taper_b.x)); - shapeBlock.PathScaleY = (byte)(100 * (2.0 - taper_b.y)); - if (topshear.x < -0.5f) - { - topshear.x = -0.5f; - } - if (topshear.x > 0.5f) - { - topshear.x = 0.5f; - } - if (topshear.y < -0.5f) - { - topshear.y = -0.5f; - } - if (topshear.y > 0.5f) - { - topshear.y = 0.5f; - } - shapeBlock.PathShearX = (byte)(100 * topshear.x); - shapeBlock.PathShearY = (byte)(100 * topshear.y); - - part.UpdateShape(shapeBlock); - } - - private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector dimple, byte fudge) - { - ObjectShapePacket.ObjectDataBlock shapeBlock; - - shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist); - - // profile/path swapped for a sphere - shapeBlock.PathBegin = shapeBlock.ProfileBegin; - shapeBlock.PathEnd = shapeBlock.ProfileEnd; - - shapeBlock.ProfileCurve += fudge; - - shapeBlock.PathScaleX = 100; - shapeBlock.PathScaleY = 100; - - if (dimple.x < 0f) - { - dimple.x = 0f; - } - if (dimple.x > 1f) - { - dimple.x = 1f; - } - if (dimple.y < 0f) - { - dimple.y = 0f; - } - if (dimple.y > 1f) - { - dimple.y = 1f; - } - if (dimple.y - cut.x < 0.05f) - { - dimple.x = cut.y - 0.05f; - } - shapeBlock.ProfileBegin = (ushort)(50000 * dimple.x); - shapeBlock.ProfileEnd = (ushort)(50000 * (1 - dimple.y)); - - part.UpdateShape(shapeBlock); - } - - private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector holesize, LSL_Vector topshear, LSL_Vector profilecut, LSL_Vector taper_a, float revolutions, float radiusoffset, float skew, byte fudge) - { - ObjectShapePacket.ObjectDataBlock shapeBlock; - - shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist); - - shapeBlock.ProfileCurve += fudge; - - // profile/path swapped for a torrus, tube, ring - shapeBlock.PathBegin = shapeBlock.ProfileBegin; - shapeBlock.PathEnd = shapeBlock.ProfileEnd; - - if (holesize.x < 0.05f) - { - holesize.x = 0.05f; - } - if (holesize.x > 1f) - { - holesize.x = 1f; - } - if (holesize.y < 0.05f) - { - holesize.y = 0.05f; - } - if (holesize.y > 0.5f) - { - holesize.y = 0.5f; - } - shapeBlock.PathScaleX = (byte)(100 * (2 - holesize.x)); - shapeBlock.PathScaleY = (byte)(100 * (2 - holesize.y)); - if (topshear.x < -0.5f) - { - topshear.x = -0.5f; - } - if (topshear.x > 0.5f) - { - topshear.x = 0.5f; - } - if (topshear.y < -0.5f) - { - topshear.y = -0.5f; - } - if (topshear.y > 0.5f) - { - topshear.y = 0.5f; - } - shapeBlock.PathShearX = (byte)(100 * topshear.x); - shapeBlock.PathShearY = (byte)(100 * topshear.y); - if (profilecut.x < 0f) - { - profilecut.x = 0f; - } - if (profilecut.x > 1f) - { - profilecut.x = 1f; - } - if (profilecut.y < 0f) - { - profilecut.y = 0f; - } - if (profilecut.y > 1f) - { - profilecut.y = 1f; - } - if (profilecut.y - cut.x < 0.05f) - { - profilecut.x = cut.y - 0.05f; - } - shapeBlock.ProfileBegin = (ushort)(50000 * profilecut.x); - shapeBlock.ProfileEnd = (ushort)(50000 * (1 - profilecut.y)); - if (taper_a.x < -1f) - { - taper_a.x = -1f; - } - if (taper_a.x > 1f) - { - taper_a.x = 1f; - } - if (taper_a.y < -1f) - { - taper_a.y = -1f; - } - if (taper_a.y > 1f) - { - taper_a.y = 1f; - } - shapeBlock.PathTaperX = (sbyte)(100 * taper_a.x); - shapeBlock.PathTaperY = (sbyte)(100 * taper_a.y); - if (revolutions < 1f) - { - revolutions = 1f; - } - if (revolutions > 4f) - { - revolutions = 4f; - } - shapeBlock.PathRevolutions = (byte)(66.666667 * (revolutions - 1.0)); - // limits on radiusoffset depend on revolutions and hole size (how?) seems like the maximum range is 0 to 1 - if (radiusoffset < 0f) - { - radiusoffset = 0f; - } - if (radiusoffset > 1f) - { - radiusoffset = 1f; - } - shapeBlock.PathRadiusOffset = (sbyte)(100 * radiusoffset); - if (skew < -0.95f) - { - skew = -0.95f; - } - if (skew > 0.95f) - { - skew = 0.95f; - } - shapeBlock.PathSkew = (sbyte)(100 * skew); - - part.UpdateShape(shapeBlock); - } - - private void SetPrimitiveShapeParams(SceneObjectPart part, string map, int type) - { - ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock(); - UUID sculptId; - - if (!UUID.TryParse(map, out sculptId)) - { - llSay(0, "Could not parse key " + map); - return; - } - - shapeBlock.ObjectLocalID = part.LocalId; - shapeBlock.PathScaleX = 100; - shapeBlock.PathScaleY = 150; - - if (type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_CYLINDER && - type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_PLANE && - type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE && - type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_TORUS) - { - // default - type = (int)ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE; - } - - // retain pathcurve - shapeBlock.PathCurve = part.Shape.PathCurve; - - part.Shape.SetSculptData((byte)type, sculptId); - part.Shape.SculptEntry = true; - part.UpdateShape(shapeBlock); - } - - public void llSetPrimitiveParams(LSL_List rules) - { - SetPrimParams(m_host, rules); - } - - public void llSetLinkPrimitiveParams(int linknumber, LSL_List rules) - { - m_host.AddScriptLPS(1); - - List parts = GetLinkParts(linknumber); - - foreach (SceneObjectPart part in parts) - SetPrimParams(part, rules); - } - - private void SetPrimParams(SceneObjectPart part, LSL_List rules) - { - int idx = 0; - - while (idx < rules.Length) - { - int code = rules.GetLSLIntegerItem(idx++); - - int remain = rules.Length - idx; - - int face; - LSL_Vector v; - - switch (code) - { - case (int)ScriptBaseClass.PRIM_POSITION: - if (remain < 1) - return; - - v=rules.GetVector3Item(idx++); - SetPos(part, v); - - break; - case (int)ScriptBaseClass.PRIM_SIZE: - if (remain < 1) - return; - - v=rules.GetVector3Item(idx++); - SetScale(part, v); - - break; - case (int)ScriptBaseClass.PRIM_ROTATION: - if (remain < 1) - return; - - LSL_Rotation q = rules.GetQuaternionItem(idx++); - SetRot(part, q); - - break; - - case (int)ScriptBaseClass.PRIM_TYPE: - if (remain < 3) - return; - - code = (int)rules.GetLSLIntegerItem(idx++); - - remain = rules.Length - idx; - float hollow; - LSL_Vector twist; - LSL_Vector taper_b; - LSL_Vector topshear; - float revolutions; - float radiusoffset; - float skew; - LSL_Vector holesize; - LSL_Vector profilecut; - - switch (code) - { - case (int)ScriptBaseClass.PRIM_TYPE_BOX: - if (remain < 6) - return; - - face = (int)rules.GetLSLIntegerItem(idx++); - v = rules.GetVector3Item(idx++); // cut - hollow = (float)rules.GetLSLFloatItem(idx++); - twist = rules.GetVector3Item(idx++); - taper_b = rules.GetVector3Item(idx++); - topshear = rules.GetVector3Item(idx++); - - part.Shape.PathCurve = (byte)Extrusion.Straight; - SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 1); - break; - - case (int)ScriptBaseClass.PRIM_TYPE_CYLINDER: - if (remain < 6) - return; - - face = (int)rules.GetLSLIntegerItem(idx++); // holeshape - v = rules.GetVector3Item(idx++); // cut - hollow = (float)rules.GetLSLFloatItem(idx++); - twist = rules.GetVector3Item(idx++); - taper_b = rules.GetVector3Item(idx++); - topshear = rules.GetVector3Item(idx++); - part.Shape.ProfileShape = ProfileShape.Circle; - part.Shape.PathCurve = (byte)Extrusion.Straight; - SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 0); - break; - - case (int)ScriptBaseClass.PRIM_TYPE_PRISM: - if (remain < 6) - return; - - face = (int)rules.GetLSLIntegerItem(idx++); // holeshape - v = rules.GetVector3Item(idx++); //cut - hollow = (float)rules.GetLSLFloatItem(idx++); - twist = rules.GetVector3Item(idx++); - taper_b = rules.GetVector3Item(idx++); - topshear = rules.GetVector3Item(idx++); - part.Shape.PathCurve = (byte)Extrusion.Straight; - SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 3); - break; - - case (int)ScriptBaseClass.PRIM_TYPE_SPHERE: - if (remain < 5) - return; - - face = (int)rules.GetLSLIntegerItem(idx++); // holeshape - v = rules.GetVector3Item(idx++); // cut - hollow = (float)rules.GetLSLFloatItem(idx++); - twist = rules.GetVector3Item(idx++); - taper_b = rules.GetVector3Item(idx++); // dimple - part.Shape.PathCurve = (byte)Extrusion.Curve1; - SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, 5); - break; - - case (int)ScriptBaseClass.PRIM_TYPE_TORUS: - if (remain < 11) - return; - - face = (int)rules.GetLSLIntegerItem(idx++); // holeshape - v = rules.GetVector3Item(idx++); //cut - hollow = (float)rules.GetLSLFloatItem(idx++); - twist = rules.GetVector3Item(idx++); - holesize = rules.GetVector3Item(idx++); - topshear = rules.GetVector3Item(idx++); - profilecut = rules.GetVector3Item(idx++); - taper_b = rules.GetVector3Item(idx++); // taper_a - revolutions = (float)rules.GetLSLFloatItem(idx++); - radiusoffset = (float)rules.GetLSLFloatItem(idx++); - skew = (float)rules.GetLSLFloatItem(idx++); - part.Shape.PathCurve = (byte)Extrusion.Curve1; - SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 0); - break; - - case (int)ScriptBaseClass.PRIM_TYPE_TUBE: - if (remain < 11) - return; - - face = (int)rules.GetLSLIntegerItem(idx++); // holeshape - v = rules.GetVector3Item(idx++); //cut - hollow = (float)rules.GetLSLFloatItem(idx++); - twist = rules.GetVector3Item(idx++); - holesize = rules.GetVector3Item(idx++); - topshear = rules.GetVector3Item(idx++); - profilecut = rules.GetVector3Item(idx++); - taper_b = rules.GetVector3Item(idx++); // taper_a - revolutions = (float)rules.GetLSLFloatItem(idx++); - radiusoffset = (float)rules.GetLSLFloatItem(idx++); - skew = (float)rules.GetLSLFloatItem(idx++); - part.Shape.PathCurve = (byte)Extrusion.Curve1; - SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 1); - break; - - case (int)ScriptBaseClass.PRIM_TYPE_RING: - if (remain < 11) - return; - - face = (int)rules.GetLSLIntegerItem(idx++); // holeshape - v = rules.GetVector3Item(idx++); //cut - hollow = (float)rules.GetLSLFloatItem(idx++); - twist = rules.GetVector3Item(idx++); - holesize = rules.GetVector3Item(idx++); - topshear = rules.GetVector3Item(idx++); - profilecut = rules.GetVector3Item(idx++); - taper_b = rules.GetVector3Item(idx++); // taper_a - revolutions = (float)rules.GetLSLFloatItem(idx++); - radiusoffset = (float)rules.GetLSLFloatItem(idx++); - skew = (float)rules.GetLSLFloatItem(idx++); - part.Shape.PathCurve = (byte)Extrusion.Curve1; - SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 3); - break; - - case (int)ScriptBaseClass.PRIM_TYPE_SCULPT: - if (remain < 2) - return; - - string map = rules.Data[idx++].ToString(); - face = (int)rules.GetLSLIntegerItem(idx++); // type - part.Shape.PathCurve = (byte)Extrusion.Curve1; - SetPrimitiveShapeParams(part, map, face); - break; - } - - break; - - case (int)ScriptBaseClass.PRIM_TEXTURE: - if (remain < 5) - return; - - face=(int)rules.GetLSLIntegerItem(idx++); - string tex=rules.Data[idx++].ToString(); - LSL_Vector repeats=rules.GetVector3Item(idx++); - LSL_Vector offsets=rules.GetVector3Item(idx++); - double rotation=(double)rules.GetLSLFloatItem(idx++); - - SetTexture(part, tex, face); - ScaleTexture(part, repeats.x, repeats.y, face); - OffsetTexture(part, offsets.x, offsets.y, face); - RotateTexture(part, rotation, face); - - break; - - case (int)ScriptBaseClass.PRIM_COLOR: - if (remain < 3) - return; - - face=(int)rules.GetLSLIntegerItem(idx++); - LSL_Vector color=rules.GetVector3Item(idx++); - double alpha=(double)rules.GetLSLFloatItem(idx++); - - SetColor(part, color, face); - SetAlpha(part, alpha, face); - - break; - case (int)ScriptBaseClass.PRIM_FLEXIBLE: - if (remain < 7) - return; - - bool flexi = rules.GetLSLIntegerItem(idx++); - int softness = rules.GetLSLIntegerItem(idx++); - float gravity = (float)rules.GetLSLFloatItem(idx++); - float friction = (float)rules.GetLSLFloatItem(idx++); - float wind = (float)rules.GetLSLFloatItem(idx++); - float tension = (float)rules.GetLSLFloatItem(idx++); - LSL_Vector force = rules.GetVector3Item(idx++); - - SetFlexi(part, flexi, softness, gravity, friction, wind, tension, force); - - break; - case (int)ScriptBaseClass.PRIM_POINT_LIGHT: - if (remain < 5) - return; - bool light = rules.GetLSLIntegerItem(idx++); - LSL_Vector lightcolor = rules.GetVector3Item(idx++); - float intensity = (float)rules.GetLSLFloatItem(idx++); - float radius = (float)rules.GetLSLFloatItem(idx++); - float falloff = (float)rules.GetLSLFloatItem(idx++); - - SetPointLight(part, light, lightcolor, intensity, radius, falloff); - - break; - case (int)ScriptBaseClass.PRIM_GLOW: - if (remain < 2) - return; - face = rules.GetLSLIntegerItem(idx++); - float glow = (float)rules.GetLSLFloatItem(idx++); - - SetGlow(part, face, glow); - - break; - case (int)ScriptBaseClass.PRIM_BUMP_SHINY: - if (remain < 3) - return; - face = (int)rules.GetLSLIntegerItem(idx++); - int shiny = (int)rules.GetLSLIntegerItem(idx++); - Bumpiness bump = (Bumpiness)Convert.ToByte((int)rules.GetLSLIntegerItem(idx++)); - - SetShiny(part, face, shiny, bump); - - break; - case (int)ScriptBaseClass.PRIM_FULLBRIGHT: - if (remain < 2) - return; - face = rules.GetLSLIntegerItem(idx++); - bool st = rules.GetLSLIntegerItem(idx++); - SetFullBright(part, face , st); - break; - case (int)ScriptBaseClass.PRIM_MATERIAL: - if (remain < 1) - return; - if (part != null) - { - /* Unhandled at this time - sends "Unhandled" message - will enable when available - byte material = Convert.ToByte((int)rules.GetLSLIntegerItem(idx++)); - part.Material = material; - */ - return; - } - break; - case (int)ScriptBaseClass.PRIM_PHANTOM: - if (remain < 1) - return; - - string ph = rules.Data[idx++].ToString(); - bool phantom; - - if (ph.Equals("1")) - phantom = true; - else - phantom = false; - - part.ScriptSetPhantomStatus(phantom); - part.ScheduleFullUpdate(); - break; - case (int)ScriptBaseClass.PRIM_PHYSICS: - if (remain < 1) - return; - string phy = rules.Data[idx++].ToString(); - bool physics; - - if (phy.Equals("1")) - physics = true; - else - physics = false; - - m_host.ScriptSetPhysicsStatus(physics); - part.ScheduleFullUpdate(); - break; - } - } - } - - public LSL_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 LSL_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); - Deprecated("llXorBase64Strings"); - // ScriptSleep(300); - } - - public void llRemoteDataSetRegion() - { - m_host.AddScriptLPS(1); - NotImplemented("llRemoteDataSetRegion"); - } - - public LSL_Float llLog10(double val) - { - m_host.AddScriptLPS(1); - return (double)Math.Log10(val); - } - - public LSL_Float llLog(double val) - { - m_host.AddScriptLPS(1); - return (double)Math.Log(val); - } - - public LSL_List llGetAnimationList( string id ) - { - m_host.AddScriptLPS(1); - - LSL_List l = new LSL_List(); - ScenePresence av = World.GetScenePresence(id); - if (av == null) - return l; - UUID[] anims; - anims = av.GetAnimationArray(); - foreach (UUID foo in anims) - l.Add(foo.ToString()); - return l; - } - - public void llSetParcelMusicURL(string url) - { - m_host.AddScriptLPS(1); - UUID landowner = World.GetLandOwner(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y); - if (landowner == UUID.Zero) - { - return; - } - if (landowner != m_host.ObjectOwner) - { - return; - } - World.SetLandMusicURL(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, url); - // ScriptSleep(2000); - } - - public LSL_Vector llGetRootPosition() - { - m_host.AddScriptLPS(1); - return new LSL_Vector(m_host.ParentGroup.AbsolutePosition.X, m_host.ParentGroup.AbsolutePosition.Y, m_host.ParentGroup.AbsolutePosition.Z); - } - - public LSL_Rotation llGetRootRotation() - { - m_host.AddScriptLPS(1); - return new LSL_Rotation(m_host.ParentGroup.GroupRotation.X, m_host.ParentGroup.GroupRotation.Y, m_host.ParentGroup.GroupRotation.Z, m_host.ParentGroup.GroupRotation.W); - } - - public LSL_String llGetObjectDesc() - { - return m_host.Description!=null?m_host.Description:String.Empty; - } - - public void llSetObjectDesc(string desc) - { - m_host.AddScriptLPS(1); - m_host.Description = desc!=null?desc:String.Empty; - } - - public LSL_String llGetCreator() - { - m_host.AddScriptLPS(1); - return m_host.ObjectCreator.ToString(); - } - - public LSL_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) - { - Primitive.TextureEntry tex = part.Shape.Textures; - Color4 texcolor; - if (face >= 0 && face < GetNumberOfSides(m_host)) - { - texcolor = tex.CreateFace((uint)face).RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.FaceTextures[face].RGBA = texcolor; - part.UpdateTexture(tex); - return; - } - else if (face == ScriptBaseClass.ALL_SIDES) - { - texcolor = tex.DefaultTexture.RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.DefaultTexture.RGBA = texcolor; - for (uint i = 0; i < GetNumberOfSides(m_host); i++) - { - if (tex.FaceTextures[i] != null) - { - texcolor = tex.FaceTextures[i].RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.FaceTextures[i].RGBA = texcolor; - } - } - texcolor = tex.DefaultTexture.RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - 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); - Primitive.TextureEntry tex = part.Shape.Textures; - Color4 texcolor; - if (face > -1) - { - texcolor = tex.CreateFace((uint)face).RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.FaceTextures[face].RGBA = texcolor; - part.UpdateTexture(tex); - } - else if (face == -1) - { - texcolor = tex.DefaultTexture.RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.DefaultTexture.RGBA = texcolor; - for (uint i = 0; i < 32; i++) - { - if (tex.FaceTextures[i] != null) - { - texcolor = tex.FaceTextures[i].RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.FaceTextures[i].RGBA = texcolor; - } - } - texcolor = tex.DefaultTexture.RGBA; - texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); - tex.DefaultTexture.RGBA = texcolor; - part.UpdateTexture(tex); - } - } - return; - } - } - - public LSL_Integer llGetNumberOfPrims() - { - m_host.AddScriptLPS(1); - return m_host.ParentGroup.PrimCount; - } - - public LSL_List llGetBoundingBox(string obj) - { - m_host.AddScriptLPS(1); - NotImplemented("llGetBoundingBox"); - return new LSL_List(); - } - - public LSL_Vector llGetGeometricCenter() - { - return new LSL_Vector(m_host.GetGeometricCenter().X, m_host.GetGeometricCenter().Y, m_host.GetGeometricCenter().Z); - } - - public LSL_List llGetPrimitiveParams(LSL_List rules) - { - m_host.AddScriptLPS(1); - - LSL_List res = new LSL_List(); - int idx=0; - while (idx < rules.Length) - { - int code=(int)rules.GetLSLIntegerItem(idx++); - int remain=rules.Length-idx; - - switch (code) - { - case (int)ScriptBaseClass.PRIM_MATERIAL: - res.Add(new LSL_Integer(m_host.Material)); - break; - - case (int)ScriptBaseClass.PRIM_PHYSICS: - if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Physics) != 0) - res.Add(new LSL_Integer(1)); - else - res.Add(new LSL_Integer(0)); - break; - - case (int)ScriptBaseClass.PRIM_TEMP_ON_REZ: - if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.TemporaryOnRez) != 0) - res.Add(new LSL_Integer(1)); - else - res.Add(new LSL_Integer(0)); - break; - - case (int)ScriptBaseClass.PRIM_PHANTOM: - if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Phantom) != 0) - res.Add(new LSL_Integer(1)); - else - res.Add(new LSL_Integer(0)); - break; - - case (int)ScriptBaseClass.PRIM_POSITION: - res.Add(new LSL_Vector(m_host.AbsolutePosition.X, - m_host.AbsolutePosition.Y, - m_host.AbsolutePosition.Z)); - break; - - case (int)ScriptBaseClass.PRIM_SIZE: - res.Add(new LSL_Vector(m_host.Scale.X, - m_host.Scale.Y, - m_host.Scale.Z)); - break; - - case (int)ScriptBaseClass.PRIM_ROTATION: - res.Add(new LSL_Rotation(m_host.RotationOffset.X, - m_host.RotationOffset.Y, - m_host.RotationOffset.Z, - m_host.RotationOffset.W)); - break; - - case (int)ScriptBaseClass.PRIM_TYPE: - // implementing box - PrimitiveBaseShape Shape = m_host.Shape; - int primType = getScriptPrimType(m_host.Shape); - res.Add(new LSL_Integer(primType)); - switch (primType) - { - case ScriptBaseClass.PRIM_TYPE_BOX: - case ScriptBaseClass.PRIM_TYPE_CYLINDER: - case ScriptBaseClass.PRIM_TYPE_PRISM: - res.Add(new LSL_Integer(Shape.ProfileCurve)); - res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0)); - res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0)); - res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0)); - res.Add(new LSL_Vector(1 - (Shape.PathScaleX / 100.0 - 1), 1 - (Shape.PathScaleY / 100.0 - 1), 0)); - res.Add(new LSL_Vector(Shape.PathShearX / 100.0, Shape.PathShearY / 100.0, 0)); - break; - - case ScriptBaseClass.PRIM_TYPE_SPHERE: - res.Add(new LSL_Integer(Shape.ProfileCurve)); - res.Add(new LSL_Vector(Shape.PathBegin / 50000.0, 1 - Shape.PathEnd / 50000.0, 0)); - res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0)); - res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0)); - res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0)); - break; - - case ScriptBaseClass.PRIM_TYPE_SCULPT: - res.Add(Shape.SculptTexture.ToString()); - res.Add(new LSL_Integer(Shape.SculptType)); - break; - - case ScriptBaseClass.PRIM_TYPE_RING: - case ScriptBaseClass.PRIM_TYPE_TUBE: - case ScriptBaseClass.PRIM_TYPE_TORUS: - // holeshape - res.Add(new LSL_Integer(Shape.ProfileCurve)); - - // cut - res.Add(new LSL_Vector(Shape.PathBegin / 50000.0, 1 - Shape.PathEnd / 50000.0, 0)); - - // hollow - res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0)); - - // twist - res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0)); - - // vector holesize - res.Add(new LSL_Vector(1 - (Shape.PathScaleX / 100.0 - 1), 1 - (Shape.PathScaleY / 100.0 - 1), 0)); - - // vector topshear - res.Add(new LSL_Vector(Shape.PathShearX / 100.0, Shape.PathShearY / 100.0, 0)); - - // vector profilecut - res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0)); - - - // vector tapera - res.Add(new LSL_Vector(Shape.PathTaperX / 100.0, Shape.PathTaperY / 100.0, 0)); - - // float revolutions, - res.Add(new LSL_Float(Shape.PathRevolutions / 50.0)); // needs fixing :( - - // float radiusoffset, - res.Add(new LSL_Float(Shape.PathRadiusOffset / 100.0)); - - // float skew - res.Add(new LSL_Float(Shape.PathSkew / 100.0)); - break; - - } - break; - - case (int)ScriptBaseClass.PRIM_TEXTURE: - if (remain < 1) - return res; - - int face = (int)rules.GetLSLIntegerItem(idx++); - Primitive.TextureEntry tex = m_host.Shape.Textures; - if (face == ScriptBaseClass.ALL_SIDES) - { - for (face = 0 ; face < GetNumberOfSides(m_host) ; face++) - { - Primitive.TextureEntryFace texface = tex.GetFace((uint)face); - - res.Add(new LSL_String(texface.TextureID.ToString())); - res.Add(new LSL_Vector(texface.RepeatU, - texface.RepeatV, - 0)); - res.Add(new LSL_Vector(texface.OffsetU, - texface.OffsetV, - 0)); - res.Add(new LSL_Float(texface.Rotation)); - } - } - else - { - if (face >= 0 && face < GetNumberOfSides(m_host)) - { - Primitive.TextureEntryFace texface = tex.GetFace((uint)face); - - res.Add(new LSL_String(texface.TextureID.ToString())); - res.Add(new LSL_Vector(texface.RepeatU, - texface.RepeatV, - 0)); - res.Add(new LSL_Vector(texface.OffsetU, - texface.OffsetV, - 0)); - res.Add(new LSL_Float(texface.Rotation)); - } - } - break; - - case (int)ScriptBaseClass.PRIM_COLOR: - if (remain < 1) - return res; - - face=(int)rules.GetLSLIntegerItem(idx++); - - tex = m_host.Shape.Textures; - Color4 texcolor; - if (face == ScriptBaseClass.ALL_SIDES) - { - for (face = 0 ; face < GetNumberOfSides(m_host) ; face++) - { - texcolor = tex.GetFace((uint)face).RGBA; - res.Add(new LSL_Vector(texcolor.R, - texcolor.G, - texcolor.B)); - res.Add(new LSL_Float(texcolor.A)); - } - } - else - { - texcolor = tex.GetFace((uint)face).RGBA; - res.Add(new LSL_Vector(texcolor.R, - texcolor.G, - texcolor.B)); - res.Add(new LSL_Float(texcolor.A)); - } - break; - - case (int)ScriptBaseClass.PRIM_BUMP_SHINY: - // TODO-------------- - if (remain < 1) - return res; - - face=(int)rules.GetLSLIntegerItem(idx++); - - res.Add(new LSL_Integer(0)); - res.Add(new LSL_Integer(0)); - break; - - case (int)ScriptBaseClass.PRIM_FULLBRIGHT: - // TODO-------------- - if (remain < 1) - return res; - - face=(int)rules.GetLSLIntegerItem(idx++); - - res.Add(new LSL_Integer(0)); - break; - - case (int)ScriptBaseClass.PRIM_FLEXIBLE: - PrimitiveBaseShape shape = m_host.Shape; - - if (shape.FlexiEntry) - res.Add(new LSL_Integer(1)); // active - else - res.Add(new LSL_Integer(0)); - res.Add(new LSL_Integer(shape.FlexiSoftness));// softness - res.Add(new LSL_Float(shape.FlexiGravity)); // gravity - res.Add(new LSL_Float(shape.FlexiDrag)); // friction - res.Add(new LSL_Float(shape.FlexiWind)); // wind - res.Add(new LSL_Float(shape.FlexiTension)); // tension - res.Add(new LSL_Vector(shape.FlexiForceX, // force - shape.FlexiForceY, - shape.FlexiForceZ)); - break; - - case (int)ScriptBaseClass.PRIM_TEXGEN: - // TODO-------------- - // (PRIM_TEXGEN_DEFAULT, PRIM_TEXGEN_PLANAR) - if (remain < 1) - return res; - - face=(int)rules.GetLSLIntegerItem(idx++); - - res.Add(new LSL_Integer(0)); - break; - - case (int)ScriptBaseClass.PRIM_POINT_LIGHT: - shape = m_host.Shape; - - if (shape.LightEntry) - res.Add(new LSL_Integer(1)); // active - else - res.Add(new LSL_Integer(0)); - res.Add(new LSL_Vector(shape.LightColorR, // color - shape.LightColorG, - shape.LightColorB)); - res.Add(new LSL_Float(shape.LightIntensity)); // intensity - res.Add(new LSL_Float(shape.LightRadius)); // radius - res.Add(new LSL_Float(shape.LightFalloff)); // falloff - break; - - case (int)ScriptBaseClass.PRIM_GLOW: - // TODO-------------- - if (remain < 1) - return res; - - face=(int)rules.GetLSLIntegerItem(idx++); - - res.Add(new LSL_Float(0)); - break; - } - } - return res; - } - - // - // - // 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 LSL_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 LSL_Integer llBase64ToInteger(string str) - { - int number = 0; - int digit; - - 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 LSL_Float llGetGMTclock() - { - m_host.AddScriptLPS(1); - return DateTime.UtcNow.TimeOfDay.TotalSeconds; - } - - public LSL_String llGetSimulatorHostname() - { - m_host.AddScriptLPS(1); - return System.Environment.MachineName; - } - - public void llSetLocalRot(LSL_Rotation rot) - { - m_host.AddScriptLPS(1); - m_host.RotationOffset = new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s); - // ScriptSleep(200); - } - - // - // 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_List llParseStringKeepNulls(string src, LSL_List separators, LSL_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_List tokens = new LSL_List(); - - m_host.AddScriptLPS(1); - - // All entries are initially valid - - for (int i = 0; i < mlen; i++) - active[i] = true; - - offset[mlen] = srclen; - - while (beginning < srclen) - { - - best = mlen; // as bad as it gets - - // Scan for separators - - for (j = 0; j < seplen; j++) - { - if (active[j]) - { - // scan all of the markers - if ((offset[j] = src.IndexOf(separray[j].ToString(),beginning)) == -1) - { - // not present at all - active[j] = false; - } - else - { - // present and correct - if (offset[j] < offset[best]) - { - // closest so far - best = j; - if (offset[best] == beginning) - break; - } - } - } - } - - // Scan for spacers - - if (offset[best] != beginning) - { - for (j = seplen; (j < mlen) && (offset[best] > beginning); j++) - { - if (active[j]) - { - // scan all of the markers - if ((offset[j] = src.IndexOf(spcarray[j-seplen].ToString(), 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 < seplen) - { - beginning = offset[best] + (separray[best].ToString()).Length; - } - else - { - beginning = offset[best] + (spcarray[best - seplen].ToString()).Length; - tokens.Add(spcarray[best - seplen]); - } - } - - // This an awkward an not very intuitive boundary case. If the - // last substring is a tokenizer, then there is an implied trailing - // null list entry. Hopefully the single comparison will not be too - // arduous. Alternatively the 'break' could be replced with a return - // but that's shabby programming. - - if (beginning == srclen) - { - if (srclen != 0) - tokens.Add(""); - } - - return tokens; - } - - public LSL_Integer llGetObjectPermMask(int mask) - { - m_host.AddScriptLPS(1); - - int permmask = 0; - - if (mask == ScriptBaseClass.MASK_BASE)//0 - { - permmask = (int)m_host.BaseMask; - } - - else if (mask == ScriptBaseClass.MASK_OWNER)//1 - { - permmask = (int)m_host.OwnerMask; - } - - else if (mask == ScriptBaseClass.MASK_GROUP)//2 - { - permmask = (int)m_host.GroupMask; - } - - else if (mask == ScriptBaseClass.MASK_EVERYONE)//3 - { - permmask = (int)m_host.EveryoneMask; - } - - else if (mask == ScriptBaseClass.MASK_NEXT)//4 - { - permmask = (int)m_host.NextOwnerMask; - } - - return permmask; - } - - public void llSetObjectPermMask(int mask, int value) - { - m_host.AddScriptLPS(1); - IConfigSource config = new IniConfigSource(Application.iniFilePath); - if (config.Configs["XEngine"] == null) - config.AddConfig("XEngine"); - - if (config.Configs["XEngine"].GetBoolean("AllowGodFunctions", false)) - { - if (World.ExternalChecks.ExternalChecksCanRunConsoleCommand(m_host.OwnerID)) - { - if (mask == ScriptBaseClass.MASK_BASE)//0 - { - m_host.BaseMask = (uint)value; - } - - else if (mask == ScriptBaseClass.MASK_OWNER)//1 - { - m_host.OwnerMask = (uint)value; - } - - else if (mask == ScriptBaseClass.MASK_GROUP)//2 - { - m_host.GroupMask = (uint)value; - } - - else if (mask == ScriptBaseClass.MASK_EVERYONE)//3 - { - m_host.EveryoneMask = (uint)value; - } - - else if (mask == ScriptBaseClass.MASK_NEXT)//4 - { - m_host.NextOwnerMask = (uint)value; - } - } - } - } - - public LSL_Integer llGetInventoryPermMask(string item, int mask) - { - m_host.AddScriptLPS(1); - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == item) - { - switch (mask) - { - case 0: - return (int)inv.Value.BasePermissions; - case 1: - return (int)inv.Value.CurrentPermissions; - case 2: - return (int)inv.Value.GroupPermissions; - case 3: - return (int)inv.Value.EveryonePermissions; - case 4: - return (int)inv.Value.NextPermissions; - } - } - } - return -1; - } - - public void llSetInventoryPermMask(string item, int mask, int value) - { - m_host.AddScriptLPS(1); - NotImplemented("llSetInventoryPermMask"); - } - - public LSL_String llGetInventoryCreator(string item) - { - m_host.AddScriptLPS(1); - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == item) - { - return inv.Value.CreatorID.ToString(); - } - } - llSay(0, "No item name '" + item + "'"); - return String.Empty; - } - - public void llOwnerSay(string msg) - { - m_host.AddScriptLPS(1); - - World.SimChatBroadcast(Utils.StringToBytes(msg), ChatTypeEnum.Owner, 0, m_host.AbsolutePosition, m_host.Name, m_host.UUID, false); -// IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); -// wComm.DeliverMessage(ChatTypeEnum.Owner, 0, m_host.Name, m_host.UUID, msg); - } - - public LSL_String llRequestSimulatorData(string simulator, int data) - { - try - { - m_host.AddScriptLPS(1); - - string reply = String.Empty; - - RegionInfo info = m_ScriptEngine.World.RequestClosestRegion(simulator); - - switch (data) - { - case 5: // DATA_SIM_POS - if (info == null) - { - // ScriptSleep(1000); - return UUID.Zero.ToString(); - } - reply = new LSL_Vector( - info.RegionLocX * Constants.RegionSize, - info.RegionLocY * Constants.RegionSize, - 0).ToString(); - break; - case 6: // DATA_SIM_STATUS - if (info != null) - reply = "up"; // Duh! - else - reply = "unknown"; - break; - case 7: // DATA_SIM_RATING - if (info == null) - { - // ScriptSleep(1000); - return UUID.Zero.ToString(); - } - int access = info.RegionSettings.Maturity; - if (access == 0) - reply = "PG"; - else if (access == 1) - reply = "MATURE"; - else - reply = "UNKNOWN"; - break; - case 128: // SIM_RELEASE - reply = m_ScriptEngine.World.GetSimulatorVersion(); - break; - default: - // ScriptSleep(1000); - return UUID.Zero.ToString(); // Raise no event - } - UUID rq = UUID.Random(); - - UUID tid = AsyncCommands. - DataserverPlugin.RegisterRequest(m_localID, m_itemID, rq.ToString()); - - AsyncCommands. - DataserverPlugin.DataserverReply(rq.ToString(), reply); - - // ScriptSleep(1000); - return tid.ToString(); - } - catch(Exception e) - { - Console.WriteLine(e.ToString()); - return UUID.Zero.ToString(); - } - } - - public void llForceMouselook(int mouselook) - { - m_host.AddScriptLPS(1); - m_host.SetForceMouselook(mouselook != 0); - } - - public LSL_Float llGetObjectMass(string id) - { - m_host.AddScriptLPS(1); - UUID key = new UUID(); - if (UUID.TryParse(id, out key)) - { - try - { - SceneObjectPart obj = World.GetSceneObjectPart(World.Entities[key].LocalId); - if (obj != null) - return (double)obj.GetMass(); - // the object is null so the key is for an avatar - ScenePresence avatar = World.GetScenePresence(key); - if (avatar != null) - if (avatar.IsChildAgent) - // reference http://www.lslwiki.net/lslwiki/wakka.php?wakka=llGetObjectMass - // child agents have a mass of 1.0 - return 1; - else - return (double)avatar.PhysicsActor.Mass; - } - catch (KeyNotFoundException) - { - return 0; // The Object/Agent not in the region so just return zero - } - } - return 0; - } - - /// - /// illListReplaceList removes the sub-list defined by the inclusive indices - /// start and end and inserts the src list in its place. The inclusive - /// nature of the indices means that at least one element must be deleted - /// if the indices are within the bounds of the existing list. I.e. 2,2 - /// will remove the element at index 2 and replace it with the source - /// list. Both indices may be negative, with the usual interpretation. An - /// interesting case is where end is lower than start. As these indices - /// bound the list to be removed, then 0->end, and start->lim are removed - /// and the source list is added as a suffix. - /// - - public LSL_List llListReplaceList(LSL_List dest, LSL_List src, int start, int end) - { - LSL_List pref = null; - - m_host.AddScriptLPS(1); - - // Note that although we have normalized, both - // indices could still be negative. - if (start < 0) - { - start = start+dest.Length; - } - - if (end < 0) - { - end = end+dest.Length; - } - // The comventional case, remove a sequence starting with - // start and ending with end. And then insert the source - // list. - if (start <= end) - { - // If greater than zero, then there is going to be a - // surviving prefix. Otherwise the inclusive nature - // of the indices mean that we're going to add the - // source list as a prefix. - if (start > 0) - { - pref = dest.GetSublist(0,start-1); - // Only add a suffix if there is something - // beyond the end index (it's inclusive too). - if (end + 1 < dest.Length) - { - return pref + src + dest.GetSublist(end + 1, -1); - } - else - { - return pref + src; - } - } - // If start is less than or equal to zero, then - // the new list is simply a prefix. We still need to - // figure out any necessary surgery to the destination - // based upon end. Note that if end exceeds the upper - // bound in this case, the entire destination list - // is removed. - else - { - if (end + 1 < dest.Length) - { - return src + dest.GetSublist(end + 1, -1); - } - else - { - return src; - } - } - } - // Finally, if start > end, we strip away a prefix and - // a suffix, to leave the list that sits ens - // and start, and then tag on the src list. AT least - // that's my interpretation. We can get sublist to do - // this for us. Note that one, or both of the indices - // might have been negative. - else - { - return dest.GetSublist(end + 1, start - 1) + src; - } - } - - public void llLoadURL(string avatar_id, string message, string url) - { - m_host.AddScriptLPS(1); - UUID avatarId = new UUID(avatar_id); - m_ScriptEngine.World.SendUrlToUser(avatarId, m_host.Name, m_host.UUID, m_host.ObjectOwner, false, message, - url); - // ScriptSleep(10000); - } - - public void llParcelMediaCommandList(LSL_List commandList) - { - //TO DO: Implement the missing commands - //PARCEL_MEDIA_COMMAND_STOP Stop the media stream and go back to the first frame. - //PARCEL_MEDIA_COMMAND_PAUSE Pause the media stream (stop playing but stay on current frame). - //PARCEL_MEDIA_COMMAND_PLAY Start the media stream playing from the current frame and stop when the end is reached. - //PARCEL_MEDIA_COMMAND_LOOP Start the media stream playing from the current frame. When the end is reached, loop to the beginning and continue. - //PARCEL_MEDIA_COMMAND_TEXTURE key uuid Use this to get or set the parcel's media texture. - //PARCEL_MEDIA_COMMAND_URL string url Used to get or set the parcel's media url. - //PARCEL_MEDIA_COMMAND_TIME float time Move a media stream to a specific time. - //PARCEL_MEDIA_COMMAND_AGENT key uuid Applies the media command to the specified agent only. - //PARCEL_MEDIA_COMMAND_UNLOAD Completely unloads the movie and restores the original texture. - //PARCEL_MEDIA_COMMAND_AUTO_ALIGN integer boolean Sets the parcel option 'Auto scale content'. - //PARCEL_MEDIA_COMMAND_TYPE string mime_type Use this to get or set the parcel media MIME type (e.g. "text/html"). (1.19.1 RC0 or later) - //PARCEL_MEDIA_COMMAND_SIZE integer x, integer y Use this to get or set the parcel media pixel resolution. (1.19.1 RC0 or later) - //PARCEL_MEDIA_COMMAND_DESC string desc Use this to get or set the parcel media description. (1.19.1 RC0 or later) - //PARCEL_MEDIA_COMMAND_LOOP_SET float loop Use this to get or set the parcel's media loop duration. (1.19.1 RC0 or later) - m_host.AddScriptLPS(1); - for (int i = 0; i < commandList.Data.Length; i++) - { - switch ((ParcelMediaCommandEnum)commandList.Data[i]) - { - case ParcelMediaCommandEnum.Play: - List scenePresencePlayList = World.GetScenePresences(); - foreach (ScenePresence agent in scenePresencePlayList) - { - if (!agent.IsChildAgent) - { - agent.ControllingClient.SendParcelMediaCommand((uint)(4), ParcelMediaCommandEnum.Play, 0); - } - } - break; - case ParcelMediaCommandEnum.Stop: - List scenePresenceStopList = World.GetScenePresences(); - foreach (ScenePresence agent in scenePresenceStopList) - { - if (!agent.IsChildAgent) - { - agent.ControllingClient.SendParcelMediaCommand((uint)(4), ParcelMediaCommandEnum.Stop, 0); - } - } - break; - case ParcelMediaCommandEnum.Pause: - List scenePresencePauseList = World.GetScenePresences(); - foreach (ScenePresence agent in scenePresencePauseList) - { - if (!agent.IsChildAgent) - { - agent.ControllingClient.SendParcelMediaCommand((uint)(4), ParcelMediaCommandEnum.Pause, 0); - } - } - break; - - case ParcelMediaCommandEnum.Url: - if ((i + 1) < commandList.Length) - { - if (commandList.Data[i + 1] is string) - { - UUID landowner = World.GetLandOwner(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y); - - if (landowner == UUID.Zero) - { - return; - } - - if (landowner != m_host.ObjectOwner) - { - return; - } - - World.SetLandMediaURL(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, (string)commandList.GetLSLStringItem(i + 1)); - - List scenePresenceList = World.GetScenePresences(); - LandData landData = World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y); - //Send an update of the mediaURL to all the clients that are in the parcel - foreach (ScenePresence agent in scenePresenceList) - { - if (!agent.IsChildAgent) - { - //Send parcel media update to the client - agent.ControllingClient.SendParcelMediaUpdate(landData.MediaURL, landData.MediaID, landData.MediaAutoScale, "", landData.Description, 0, 0, 1); - } - } - - } - i++; - } - break; - default: - ParcelMediaCommandEnum mediaCommandEnum = ParcelMediaCommandEnum.Url; - NotImplemented("llParcelMediaCommandList parameter do not supported yet: " + Enum.Parse(mediaCommandEnum.GetType(), commandList.Data[i].ToString()).ToString()); - break; - }//end switch - - } - // ScriptSleep(2000); - } - - public LSL_List llParcelMediaQuery(LSL_List aList) - { - m_host.AddScriptLPS(1); - LSL_List list = new LSL_List(); - //TO DO: make the implementation for the missing commands - //PARCEL_MEDIA_COMMAND_TEXTURE key uuid Use this to get or set the parcel's media texture. - //PARCEL_MEDIA_COMMAND_URL string url Used to get or set the parcel's media url. - //PARCEL_MEDIA_COMMAND_TYPE string mime_type Use this to get or set the parcel media MIME type (e.g. "text/html"). (1.19.1 RC0 or later) - //PARCEL_MEDIA_COMMAND_SIZE integer x, integer y Use this to get or set the parcel media pixel resolution. (1.19.1 RC0 or later) - //PARCEL_MEDIA_COMMAND_DESC string desc Use this to get or set the parcel media description. (1.19.1 RC0 or later) - //PARCEL_MEDIA_COMMAND_LOOP_SET float loop Use this to get or set the parcel's media loop duration. (1.19.1 RC0 or later) - for (int i = 0; i < aList.Data.Length; i++) - { - - if (aList.Data[i] != null) - { - switch ((ParcelMediaCommandEnum) aList.Data[i]) - { - case ParcelMediaCommandEnum.Url: - list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).MediaURL)); - break; - case ParcelMediaCommandEnum.Desc: - list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).Description)); - break; - case ParcelMediaCommandEnum.Texture: - list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).MediaID.ToString())); - break; - default: - ParcelMediaCommandEnum mediaCommandEnum = ParcelMediaCommandEnum.Url; - NotImplemented("llParcelMediaQuery parameter do not supported yet: " + Enum.Parse(mediaCommandEnum.GetType() , aList.Data[i].ToString()).ToString()); - break; - } - - } - } - // ScriptSleep(2000); - return list; - } - - public LSL_Integer llModPow(int a, int b, int c) - { - m_host.AddScriptLPS(1); - Int64 tmp = 0; - Math.DivRem(Convert.ToInt64(Math.Pow(a, b)), c, out tmp); - // ScriptSleep(1000); - return Convert.ToInt32(tmp); - } - - public LSL_Integer llGetInventoryType(string name) - { - m_host.AddScriptLPS(1); - foreach (KeyValuePair inv in m_host.TaskInventory) - { - if (inv.Value.Name == name) - { - return inv.Value.InvType; - } - } - return -1; - } - - public void llSetPayPrice(int price, LSL_List quick_pay_buttons) - { - m_host.AddScriptLPS(1); - - if (quick_pay_buttons.Data.Length < 4) - { - LSLError("List must have at least 4 elements"); - return; - } - m_host.ParentGroup.RootPart.PayPrice[0]=price; - - m_host.ParentGroup.RootPart.PayPrice[1]=(LSL_Integer)quick_pay_buttons.Data[0]; - m_host.ParentGroup.RootPart.PayPrice[2]=(LSL_Integer)quick_pay_buttons.Data[1]; - m_host.ParentGroup.RootPart.PayPrice[3]=(LSL_Integer)quick_pay_buttons.Data[2]; - m_host.ParentGroup.RootPart.PayPrice[4]=(LSL_Integer)quick_pay_buttons.Data[3]; - m_host.ParentGroup.HasGroupChanged = true; - } - - public LSL_Vector llGetCameraPos() - { - m_host.AddScriptLPS(1); - UUID invItemID=InventorySelf(); - if (invItemID == UUID.Zero) - return new LSL_Vector(); - if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) - return new LSL_Vector(); - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRACK_CAMERA) == 0) - { - ShoutError("No permissions to track the camera"); - return new LSL_Vector(); - } - ScenePresence presence = World.GetScenePresence(m_host.OwnerID); - if (presence != null) - { - LSL_Vector pos = new LSL_Vector(presence.CameraPosition.X, presence.CameraPosition.Y, presence.CameraPosition.Z); - return pos; - } - return new LSL_Vector(); - } - - public LSL_Rotation llGetCameraRot() - { - m_host.AddScriptLPS(1); - NotImplemented("llGetCameraRot"); - return new LSL_Rotation(); - } - - public void llSetPrimURL() - { - m_host.AddScriptLPS(1); - NotImplemented("llSetPrimURL"); - // ScriptSleep(2000); - } - - public void llRefreshPrimURL() - { - m_host.AddScriptLPS(1); - NotImplemented("llRefreshPrimURL"); - // ScriptSleep(20000); - } - - public LSL_String llEscapeURL(string url) - { - m_host.AddScriptLPS(1); - try - { - return Uri.EscapeUriString(url); - } - catch (Exception ex) - { - return "llEscapeURL: " + ex.ToString(); - } - } - - public LSL_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_Vector pos, LSL_Vector look_at) - { - m_host.AddScriptLPS(1); - NotImplemented("llMapDestination"); - // ScriptSleep(1000); - } - - public void llAddToLandBanList(string avatar, double hours) - { - m_host.AddScriptLPS(1); - UUID key; - LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; - if (land.OwnerID == m_host.OwnerID) - { - ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry(); - if (UUID.TryParse(avatar, out key)) - { - entry.AgentID = key; - entry.Flags = ParcelManager.AccessList.Ban; - entry.Time = DateTime.Now.AddHours(hours); - land.ParcelAccessList.Add(entry); - } - } - // ScriptSleep(100); - } - - public void llRemoveFromLandPassList(string avatar) - { - m_host.AddScriptLPS(1); - UUID key; - LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; - if (land.OwnerID == m_host.OwnerID) - { - if (UUID.TryParse(avatar, out key)) - { - foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) - { - if (entry.AgentID == key && entry.Flags == ParcelManager.AccessList.Access) - { - land.ParcelAccessList.Remove(entry); - break; - } - } - } - } - // ScriptSleep(100); - } - - public void llRemoveFromLandBanList(string avatar) - { - m_host.AddScriptLPS(1); - UUID key; - LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; - if (land.OwnerID == m_host.OwnerID) - { - if (UUID.TryParse(avatar, out key)) - { - foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) - { - if (entry.AgentID == key && entry.Flags == ParcelManager.AccessList.Ban) - { - land.ParcelAccessList.Remove(entry); - break; - } - } - } - } - // ScriptSleep(100); - } - - public void llSetCameraParams(LSL_List rules) - { - m_host.AddScriptLPS(1); - - // our key in the object we are in - UUID invItemID=InventorySelf(); - if (invItemID == UUID.Zero) return; - - // the object we are in - UUID objectID = m_host.ParentUUID; - if (objectID == UUID.Zero) return; - - // we need the permission first, to know which avatar we want to set the camera for - UUID agentID = m_host.TaskInventory[invItemID].PermsGranter; - if (agentID == UUID.Zero) return; - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CONTROL_CAMERA) == 0) return; - - ScenePresence presence = World.GetScenePresence(agentID); - - // we are not interested in child-agents - if (presence.IsChildAgent) return; - - SortedDictionary parameters = new SortedDictionary(); - object[] data = rules.Data; - for (int i = 0; i < data.Length; ++i) { - int type = Convert.ToInt32(data[i++].ToString()); - if (i >= data.Length) break; // odd number of entries => ignore the last - - // some special cases: Vector parameters are split into 3 float parameters (with type+1, type+2, type+3) - switch (type) { - case ScriptBaseClass.CAMERA_FOCUS: - case ScriptBaseClass.CAMERA_FOCUS_OFFSET: - case ScriptBaseClass.CAMERA_POSITION: - LSL_Vector v = (LSL_Vector)data[i]; - parameters.Add(type + 1, (float)v.x); - parameters.Add(type + 2, (float)v.y); - parameters.Add(type + 3, (float)v.z); - break; - default: - // TODO: clean that up as soon as the implicit casts are in - if (data[i] is LSL_Float) - parameters.Add(type, (float)((LSL_Float)data[i]).value); - else if (data[i] is LSL_Integer) - parameters.Add(type, (float)((LSL_Integer)data[i]).value); - else parameters.Add(type, Convert.ToSingle(data[i])); - break; - } - } - if (parameters.Count > 0) presence.ControllingClient.SendSetFollowCamProperties(objectID, parameters); - } - - public void llClearCameraParams() - { - m_host.AddScriptLPS(1); - - // our key in the object we are in - UUID invItemID=InventorySelf(); - if (invItemID == UUID.Zero) return; - - // the object we are in - UUID objectID = m_host.ParentUUID; - if (objectID == UUID.Zero) return; - - // we need the permission first, to know which avatar we want to clear the camera for - UUID agentID = m_host.TaskInventory[invItemID].PermsGranter; - if (agentID == UUID.Zero) return; - if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CONTROL_CAMERA) == 0) return; - - ScenePresence presence = World.GetScenePresence(agentID); - - // we are not interested in child-agents - if (presence.IsChildAgent) return; - - presence.ControllingClient.SendClearFollowCamProperties(objectID); - } - - public LSL_Float llListStatistics(int operation, LSL_List src) - { - m_host.AddScriptLPS(1); - LSL_List nums = LSL_List.ToDoubleList(src); - switch (operation) - { - case ScriptBaseClass.LIST_STAT_RANGE: - return nums.Range(); - case ScriptBaseClass.LIST_STAT_MIN: - return nums.Min(); - case ScriptBaseClass.LIST_STAT_MAX: - return nums.Max(); - case ScriptBaseClass.LIST_STAT_MEAN: - return nums.Mean(); - case ScriptBaseClass.LIST_STAT_MEDIAN: - return nums.Median(); - case ScriptBaseClass.LIST_STAT_NUM_COUNT: - return nums.NumericLength(); - case ScriptBaseClass.LIST_STAT_STD_DEV: - return nums.StdDev(); - case ScriptBaseClass.LIST_STAT_SUM: - return nums.Sum(); - case ScriptBaseClass.LIST_STAT_SUM_SQUARES: - return nums.SumSqrs(); - case ScriptBaseClass.LIST_STAT_GEOMETRIC_MEAN: - return nums.GeometricMean(); - case ScriptBaseClass.LIST_STAT_HARMONIC_MEAN: - return nums.HarmonicMean(); - default: - return 0.0; - } - } - - public LSL_Integer llGetUnixTime() - { - m_host.AddScriptLPS(1); - return Util.UnixTimeSinceEpoch(); - } - - public LSL_Integer llGetParcelFlags(LSL_Vector pos) - { - m_host.AddScriptLPS(1); - return (int)World.LandChannel.GetLandObject((float)pos.x, (float)pos.y).landData.Flags; - } - - public LSL_Integer llGetRegionFlags() - { - m_host.AddScriptLPS(1); - IEstateModule estate = World.RequestModuleInterface(); - if (estate == null) - return 67108864; - return (int)estate.GetRegionFlags(); - } - - public LSL_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 LSL_String llHTTPRequest(string url, LSL_List parameters, string body) - { - // Partial implementation: support for parameter flags needed - // see http://wiki.secondlife.com/wiki/LlHTTPRequest - // parameter flags support are implemented in ScriptsHttpRequests.cs - // in StartHttpRequest - - m_host.AddScriptLPS(1); - IHttpRequests httpScriptMod = - m_ScriptEngine.World.RequestModuleInterface(); - List param = new List(); - foreach (object o in parameters.Data) - { - param.Add(o.ToString()); - } - - Vector3 position = m_host.AbsolutePosition; - Vector3 velocity = m_host.Velocity; - Quaternion rotation = m_host.RotationOffset; - ScenePresence scenePresence = World.GetScenePresence(m_host.ObjectOwner); - RegionInfo regionInfo = World.RegionInfo; - - Dictionary httpHeaders = new Dictionary(); - - httpHeaders["X-SecondLife-Shard"] = "OpenSim"; - httpHeaders["X-SecondLife-Object-Name"] = m_host.Name; - httpHeaders["X-SecondLife-Object-Key"] = m_itemID.ToString(); - httpHeaders["X-SecondLife-Region"] = string.Format("{0} ({1}, {2})", regionInfo.RegionName, regionInfo.RegionLocX, regionInfo.RegionLocY); - httpHeaders["X-SecondLife-Local-Position"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000})", position.X, position.Y, position.Z); - httpHeaders["X-SecondLife-Local-Velocity"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000})", velocity.X, velocity.Y, velocity.Z); - httpHeaders["X-SecondLife-Local-Rotation"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000}, {3:0.000000})", rotation.X, rotation.Y, rotation.Z, rotation.W); - httpHeaders["X-SecondLife-Owner-Name"] = scenePresence == null ? string.Empty : scenePresence.ControllingClient.Name; - httpHeaders["X-SecondLife-Owner-Key"] = m_host.ObjectOwner.ToString(); - - UUID reqID = httpScriptMod. - StartHttpRequest(m_localID, m_itemID, url, param, httpHeaders, body); - - if (reqID != UUID.Zero) - return reqID.ToString(); - else - return null; - } - - public void llResetLandBanList() - { - m_host.AddScriptLPS(1); - LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; - if (land.OwnerID == m_host.OwnerID) - { - foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) - { - if (entry.Flags == ParcelManager.AccessList.Ban) - { - land.ParcelAccessList.Remove(entry); - } - } - } - // ScriptSleep(100); - } - - public void llResetLandPassList() - { - m_host.AddScriptLPS(1); - LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; - if (land.OwnerID == m_host.OwnerID) - { - foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) - { - if (entry.Flags == ParcelManager.AccessList.Access) - { - land.ParcelAccessList.Remove(entry); - } - } - } - // ScriptSleep(100); - } - - public LSL_Integer llGetParcelPrimCount(LSL_Vector pos, int category, int sim_wide) - { - m_host.AddScriptLPS(1); - - LandData land = World.GetLandData((float)pos.x, (float)pos.y); - - if (land == null) - { - return 0; - } - - else - { - if (sim_wide == 1) - { - if (category == 0) - { - return land.SimwidePrims; - } - - else - { - //public int simwideArea = 0; - return 0; - } - } - - else - { - if (category == 0)//Total Prims - { - return 0;//land. - } - - else if (category == 1)//Owner Prims - { - return land.OwnerPrims; - } - - else if (category == 2)//Group Prims - { - return land.GroupPrims; - } - - else if (category == 3)//Other Prims - { - return land.OtherPrims; - } - - else if (category == 4)//Selected - { - return land.SelectedPrims; - } - - else if (category == 5)//Temp - { - return 0;//land. - } - } - } - return 0; - } - - public LSL_List llGetParcelPrimOwners(LSL_Vector pos) - { - m_host.AddScriptLPS(1); - LandObject land = (LandObject)World.LandChannel.GetLandObject((float)pos.x, (float)pos.y); - LSL_List ret = new LSL_List(); - if (land != null) - { - foreach (KeyValuePair d in land.getLandObjectOwners()) - { - ret.Add(d.Key.ToString()); - ret.Add(d.Value); - } - } - // ScriptSleep(2000); - return ret; - } - - public LSL_Integer llGetObjectPrimCount(string object_id) - { - m_host.AddScriptLPS(1); - SceneObjectPart part = World.GetSceneObjectPart(new UUID(object_id)); - if (part == null) - { - return 0; - } - else - { - return part.ParentGroup.Children.Count; - } - } - - public LSL_Integer llGetParcelMaxPrims(LSL_Vector 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 = (float)World.RegionInfo.RegionSettings.ObjectBonus; - - 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_List llGetParcelDetails(LSL_Vector pos, LSL_List param) - { - m_host.AddScriptLPS(1); - LandData land = World.GetLandData((float)pos.x, (float)pos.y); - if (land == null) - { - return new LSL_List(0); - } - LSL_List ret = new LSL_List(); - foreach (object o in param.Data) - { - switch (o.ToString()) - { - case "0": - ret = ret + new LSL_List(land.Name); - break; - case "1": - ret = ret + new LSL_List(land.Description); - break; - case "2": - ret = ret + new LSL_List(land.OwnerID.ToString()); - break; - case "3": - ret = ret + new LSL_List(land.GroupID.ToString()); - break; - case "4": - ret = ret + new LSL_List(land.Area); - break; - default: - ret = ret + new LSL_List(0); - break; - } - } - return ret; - } - - public void llSetLinkTexture(int linknumber, string texture, int face) - { - m_host.AddScriptLPS(1); - - if (m_host.ParentGroup == null) - return; - - SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknumber); - - if (part == null) - return; - - SetTexture(part, texture, face); - // ScriptSleep(200); - } - - public LSL_String llStringTrim(string src, int type) - { - m_host.AddScriptLPS(1); - if (type == (int)ScriptBaseClass.STRING_TRIM_HEAD) { return src.TrimStart(); } - if (type == (int)ScriptBaseClass.STRING_TRIM_TAIL) { return src.TrimEnd(); } - if (type == (int)ScriptBaseClass.STRING_TRIM) { return src.Trim(); } - return src; - } - - public LSL_List llGetObjectDetails(string id, LSL_List args) - { - m_host.AddScriptLPS(1); - LSL_List ret = new LSL_List(); - UUID key = new UUID(); - if (UUID.TryParse(id, out key)) - { - ScenePresence av = World.GetScenePresence(key); - - if (av != null) - { - foreach (object o in args.Data) - { - switch (o.ToString()) - { - case "1": - ret.Add(av.Firstname + " " + av.Lastname); - break; - case "2": - ret.Add(""); - break; - case "3": - ret.Add(new LSL_Vector((double)av.AbsolutePosition.X, (double)av.AbsolutePosition.Y, (double)av.AbsolutePosition.Z)); - break; - case "4": - ret.Add(new LSL_Rotation((double)av.Rotation.X, (double)av.Rotation.Y, (double)av.Rotation.Z, (double)av.Rotation.W)); - break; - case "5": - ret.Add(new LSL_Vector(av.Velocity.X, av.Velocity.Y, av.Velocity.Z)); - break; - case "6": - ret.Add(id); - break; - case "7": - ret.Add(UUID.Zero.ToString()); - break; - case "8": - ret.Add(UUID.Zero.ToString()); - break; - } - } - return ret; - } - SceneObjectPart obj = World.GetSceneObjectPart(key); - if (obj != null) - { - foreach (object o in args.Data) - { - switch (o.ToString()) - { - case "1": - ret.Add(obj.Name); - break; - case "2": - ret.Add(obj.Description); - break; - case "3": - ret.Add(new LSL_Vector(obj.AbsolutePosition.X, obj.AbsolutePosition.Y, obj.AbsolutePosition.Z)); - break; - case "4": - ret.Add(new LSL_Rotation(obj.RotationOffset.X, obj.RotationOffset.Y, obj.RotationOffset.Z, obj.RotationOffset.W)); - break; - case "5": - ret.Add(new LSL_Vector(obj.Velocity.X, obj.Velocity.Y, obj.Velocity.Z)); - break; - case "6": - ret.Add(obj.OwnerID.ToString()); - break; - case "7": - ret.Add(obj.GroupID.ToString()); - break; - case "8": - ret.Add(obj.CreatorID.ToString()); - break; - } - } - return ret; - } - } - return new LSL_List(); - } - - - internal UUID ScriptByName(string name) - { - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 10 && item.Name == name) - return item.ItemID; - } - return UUID.Zero; - } - - internal void ShoutError(string msg) - { - llShout(ScriptBaseClass.DEBUG_CHANNEL, msg); - } - - internal void NotImplemented(string command) - { - if (throwErrorOnNotImplemented) - throw new NotImplementedException("Command not implemented: " + command); - } - - internal void Deprecated(string command) - { - throw new Exception("Command deprecated: " + command); - } - - internal void LSLError(string msg) - { - throw new Exception("LSL Runtime Error: " + msg); - } - - public delegate void AssetRequestCallback(UUID assetID, AssetBase asset); - private void WithNotecard(UUID assetID, AssetRequestCallback cb) - { - World.AssetCache.GetAsset(assetID, delegate(UUID i, AssetBase a) { cb(i, a); }, false); - } - - public LSL_String llGetNumberOfNotecardLines(string name) - { - m_host.AddScriptLPS(1); - - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 7 && item.Name == name) - { - UUID tid = AsyncCommands. - DataserverPlugin.RegisterRequest(m_localID, - m_itemID, item.AssetID.ToString()); - if (NotecardCache.IsCached(item.AssetID)) - { - AsyncCommands. - DataserverPlugin.DataserverReply(item.AssetID.ToString(), - NotecardCache.GetLines(item.AssetID).ToString()); - // ScriptSleep(100); - return tid.ToString(); - } - WithNotecard(item.AssetID, delegate (UUID id, AssetBase a) - { - System.Text.ASCIIEncoding enc = - new System.Text.ASCIIEncoding(); - string data = enc.GetString(a.Data); - //Console.WriteLine(data); - NotecardCache.Cache(id, data); - AsyncCommands. - DataserverPlugin.DataserverReply(id.ToString(), - NotecardCache.GetLines(id).ToString()); - }); - // ScriptSleep(100); - return tid.ToString(); - } - } - // if we got to here, we didn't find the notecard the script was asking for - // => complain loudly, as specified by the LSL docs - ShoutError("Notecard '" + name + "' could not be found."); - - // ScriptSleep(100); - return UUID.Zero.ToString(); - } - - public LSL_String llGetNotecardLine(string name, int line) - { - m_host.AddScriptLPS(1); - - foreach (TaskInventoryItem item in m_host.TaskInventory.Values) - { - if (item.Type == 7 && item.Name == name) - { - UUID tid = AsyncCommands. - DataserverPlugin.RegisterRequest(m_localID, - m_itemID, item.AssetID.ToString()); - - if (NotecardCache.IsCached(item.AssetID)) - { - AsyncCommands. - DataserverPlugin.DataserverReply(item.AssetID.ToString(), - NotecardCache.GetLine(item.AssetID, line)); - // ScriptSleep(100); - return tid.ToString(); - } - - WithNotecard(item.AssetID, delegate (UUID id, AssetBase a) - { - System.Text.ASCIIEncoding enc = - new System.Text.ASCIIEncoding(); - string data = enc.GetString(a.Data); - //Console.WriteLine(data); - NotecardCache.Cache(id, data); - AsyncCommands. - DataserverPlugin.DataserverReply(id.ToString(), - NotecardCache.GetLine(id, line)); - }); - - // ScriptSleep(100); - return tid.ToString(); - } - } - - // if we got to here, we didn't find the notecard the script was asking for - // => complain loudly, as specified by the LSL docs - ShoutError("Notecard '" + name + "' could not be found."); - - // ScriptSleep(100); - return UUID.Zero.ToString(); - } - - } - - public class NotecardCache - { - private class Notecard - { - public string[] text; - public DateTime lastRef; - } - - private static Dictionary m_Notecards = - new Dictionary(); - - public static void Cache(UUID assetID, string text) - { - CacheCheck(); - - lock (m_Notecards) - { - if (m_Notecards.ContainsKey(assetID)) - return; - - Notecard nc = new Notecard(); - nc.lastRef = DateTime.Now; - nc.text = ParseText(text.Replace("\r", "").Split('\n')); - m_Notecards[assetID] = nc; - } - } - - private static string[] ParseText(string[] input) - { - int idx = 0; - int level = 0; - List output = new List(); - string[] words; - - while (idx < input.Length) - { - if (input[idx] == "{") - { - level++; - idx++; - continue; - } - - if (input[idx]== "}") - { - level--; - idx++; - continue; - } - - switch (level) - { - case 0: - words = input[idx].Split(' '); // Linden text ver - // Notecards are created *really* empty. Treat that as "no text" (just like after saving an empty notecard) - if (words.Length < 3) - return new String[0]; - - int version = int.Parse(words[3]); - if (version != 2) - return new String[0]; - break; - case 1: - words = input[idx].Split(' '); - if (words[0] == "LLEmbeddedItems") - break; - if (words[0] == "Text") - { - int len = int.Parse(words[2]); - idx++; - - int count = -1; - - while (count < len) - { - // int l = input[idx].Length; - string ln = input[idx]; - - int need = len-count-1; - if (ln.Length > need) - ln = ln.Substring(0, need); - - output.Add(ln); - count += ln.Length + 1; - idx++; - } - - return output.ToArray(); - } - break; - case 2: - words = input[idx].Split(' '); // count - if (words[0] == "count") - { - int c = int.Parse(words[1]); - if (c > 0) - return new String[0]; - break; - } - break; - } - idx++; - } - return output.ToArray(); - } - - public static bool IsCached(UUID assetID) - { - lock (m_Notecards) - { - return m_Notecards.ContainsKey(assetID); - } - } - - public static int GetLines(UUID assetID) - { - if (!IsCached(assetID)) - return -1; - - lock (m_Notecards) - { - m_Notecards[assetID].lastRef = DateTime.Now; - return m_Notecards[assetID].text.Length; - } - } - - public static string GetLine(UUID assetID, int line) - { - if (line < 0) - return ""; - - string data; - - if (!IsCached(assetID)) - return ""; - - lock (m_Notecards) - { - m_Notecards[assetID].lastRef = DateTime.Now; - - if (line >= m_Notecards[assetID].text.Length) - return "\n\n\n"; - - data = m_Notecards[assetID].text[line]; - if (data.Length > 255) - data = data.Substring(0, 255); - - return data; - } - } - - public static void CacheCheck() - { - foreach (UUID key in new List(m_Notecards.Keys)) - { - Notecard nc = m_Notecards[key]; - if (nc.lastRef.AddSeconds(30) < DateTime.Now) - m_Notecards.Remove(key); + ShoutError("llSetScriptState: script "+name+" not found"); } } } diff --git a/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api_Base.cs b/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api_Base.cs new file mode 100644 index 0000000..16b4c50 --- /dev/null +++ b/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api_Base.cs @@ -0,0 +1,8279 @@ +/* + * 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 Nini.Config; +using OpenMetaverse; +using OpenMetaverse.Packets; +using OpenSim; +using OpenSim.Framework; +using OpenSim.Framework.Communications.Cache; +using OpenSim.Region.Environment; +using OpenSim.Region.Interfaces; +using OpenSim.Region.Environment.Interfaces; +using OpenSim.Region.Environment.Modules.Avatar.Currency.SampleMoney; +using OpenSim.Region.Environment.Modules.World.Land; +using OpenSim.Region.Environment.Scenes; +using OpenSim.Region.Physics.Manager; +using OpenSim.Region.ScriptEngine.Shared; +using OpenSim.Region.ScriptEngine.Shared.Api.Plugins; +using OpenSim.Region.ScriptEngine.Shared.ScriptBase; +using OpenSim.Region.ScriptEngine.Interfaces; +using OpenSim.Region.ScriptEngine.Shared.Api.Interfaces; + +using LSL_Float = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLFloat; +using LSL_Integer = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLInteger; +using LSL_Key = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLString; +using LSL_List = OpenSim.Region.ScriptEngine.Shared.LSL_Types.list; +using LSL_Rotation = OpenSim.Region.ScriptEngine.Shared.LSL_Types.Quaternion; +using LSL_String = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLString; +using LSL_Vector = OpenSim.Region.ScriptEngine.Shared.LSL_Types.Vector3; + +namespace OpenSim.Region.ScriptEngine.Shared.Api +{ + /// + /// Contains all LSL ll-functions. This class will be in Default AppDomain. + /// + public class LSL_Api_Base : MarshalByRefObject + { + protected IEventReceiver m_ScriptEngine; + protected SceneObjectPart m_host; + protected uint m_localID; + protected UUID m_itemID; + protected bool throwErrorOnNotImplemented = true; + protected AsyncCommandManager AsyncCommands = null; + protected float m_ScriptDelayFactor = 1.0f; + protected float m_ScriptDistanceFactor = 1.0f; + + private DateTime m_timer = DateTime.Now; + private bool m_waitingForScriptAnswer=false; + protected void ScriptSleep(int delay) + { + delay = (int)((float)delay * m_ScriptDelayFactor); + if (delay == 0) + return; + System.Threading.Thread.Sleep(delay); + } + + public Scene World + { + get { return m_ScriptEngine.World; } + } + + private List GetLinkParts(int linkType) + { + List ret = new List(); + ret.Add(m_host); + + switch (linkType) + { + case ScriptBaseClass.LINK_SET: + if (m_host.ParentGroup != null) + return new List(m_host.ParentGroup.Children.Values); + return ret; + + case ScriptBaseClass.LINK_ROOT: + if (m_host.ParentGroup != null) + { + ret = new List(); + ret.Add(m_host.ParentGroup.RootPart); + return ret; + } + return ret; + + case ScriptBaseClass.LINK_ALL_OTHERS: + if (m_host.ParentGroup == null) + return new List(); + ret = new List(m_host.ParentGroup.Children.Values); + if (ret.Contains(m_host)) + ret.Remove(m_host); + return ret; + + case ScriptBaseClass.LINK_ALL_CHILDREN: + if (m_host.ParentGroup == null) + return new List(); + ret = new List(m_host.ParentGroup.Children.Values); + if (ret.Contains(m_host.ParentGroup.RootPart)) + ret.Remove(m_host.ParentGroup.RootPart); + return ret; + + case ScriptBaseClass.LINK_THIS: + return ret; + + default: + if (linkType < 0 || m_host.ParentGroup == null) + return new List(); + SceneObjectPart target = m_host.ParentGroup.GetLinkNumPart(linkType); + if (target == null) + return new List(); + ret = new List(); + ret.Add(target); + return ret; + + } + } + + private UUID InventorySelf() + { + UUID invItemID = new UUID(); + + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Type == 10 && inv.Value.ItemID == m_itemID) + { + invItemID = inv.Key; + break; + } + } + + return invItemID; + } + + private UUID InventoryKey(string name, int type) + { + m_host.AddScriptLPS(1); + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == name) + { + if (inv.Value.Type != type) + return UUID.Zero; + + return inv.Value.AssetID.ToString(); + } + } + return UUID.Zero; + } + + private UUID InventoryKey(string name) + { + m_host.AddScriptLPS(1); + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == name) + { + return inv.Value.AssetID.ToString(); + } + } + return UUID.Zero; + } + + + /// + /// accepts a valid UUID, -or- a name of an inventory item. + /// Returns a valid UUID or UUID.Zero if key invalid and item not found + /// in prim inventory. + /// + /// + /// + private UUID KeyOrName(string k) + { + UUID key = UUID.Zero; + + // if we can parse the string as a key, use it. + if (UUID.TryParse(k, out key)) + { + return key; + } + // else try to locate the name in inventory of object. found returns key, + // not found returns UUID.Zero which will translate to the default particle texture + else + { + return InventoryKey(k); + } + } + + //These are the implementations of the various ll-functions used by the LSL scripts. + public LSL_Float llSin(double f) + { + m_host.AddScriptLPS(1); + return (double)Math.Sin(f); + } + + public LSL_Float llCos(double f) + { + m_host.AddScriptLPS(1); + return (double)Math.Cos(f); + } + + public LSL_Float llTan(double f) + { + m_host.AddScriptLPS(1); + return (double)Math.Tan(f); + } + + public LSL_Float llAtan2(double x, double y) + { + m_host.AddScriptLPS(1); + return (double)Math.Atan2(y, x); + } + + public LSL_Float llSqrt(double f) + { + m_host.AddScriptLPS(1); + return (double)Math.Sqrt(f); + } + + public LSL_Float llPow(double fbase, double fexponent) + { + m_host.AddScriptLPS(1); + return (double)Math.Pow(fbase, fexponent); + } + + public LSL_Integer llAbs(int i) + { + m_host.AddScriptLPS(1); + return (int)Math.Abs(i); + } + + public LSL_Float llFabs(double f) + { + m_host.AddScriptLPS(1); + return (double)Math.Abs(f); + } + + public LSL_Float llFrand(double mag) + { + m_host.AddScriptLPS(1); + lock (Util.RandomClass) + { + return Util.RandomClass.NextDouble() * mag; + } + } + + public LSL_Integer llFloor(double f) + { + m_host.AddScriptLPS(1); + return (int)Math.Floor(f); + } + + public LSL_Integer llCeil(double f) + { + m_host.AddScriptLPS(1); + return (int)Math.Ceiling(f); + } + + // Xantor 01/May/2008 fixed midpointrounding (2.5 becomes 3.0 instead of 2.0, default = ToEven) + public LSL_Integer llRound(double f) + { + m_host.AddScriptLPS(1); + return (int)Math.Round(f, MidpointRounding.AwayFromZero); + } + + //This next group are vector operations involving squaring and square root. ckrinke + public LSL_Float llVecMag(LSL_Vector v) + { + m_host.AddScriptLPS(1); + return LSL_Vector.Mag(v); + } + + public LSL_Vector llVecNorm(LSL_Vector v) + { + m_host.AddScriptLPS(1); + double mag = LSL_Vector.Mag(v); + LSL_Vector nor = new LSL_Vector(); + nor.x = v.x / mag; + nor.y = v.y / mag; + nor.z = v.z / mag; + return nor; + } + + public LSL_Float llVecDist(LSL_Vector a, LSL_Vector 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 + + // Utility function for llRot2Euler + + // normalize an angle between 0 - 2*PI (0 and 360 degrees) + private double NormalizeAngle(double angle) + { + angle = angle % (Math.PI * 2); + if (angle < 0) angle = angle + Math.PI * 2; + return angle; + } + + // Old implementation of llRot2Euler, now normalized + + public LSL_Vector llRot2Euler(LSL_Rotation r) + { + m_host.AddScriptLPS(1); + //This implementation is from http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions. ckrinke + LSL_Rotation t = new LSL_Rotation(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_Vector(); + double n = 2 * (r.y * r.s + r.x * r.z); + double p = m * m - n * n; + if (p > 0) + return new LSL_Vector(NormalizeAngle(Math.Atan2(2.0 * (r.x * r.s - r.y * r.z), (-t.x - t.y + t.z + t.s))), + NormalizeAngle(Math.Atan2(n, Math.Sqrt(p))), + NormalizeAngle(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_Vector(0.0, Math.PI / 2, NormalizeAngle(Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.z))); + else + return new LSL_Vector(0.0, -Math.PI / 2, NormalizeAngle(Math.Atan2((r.z * r.s + r.x * r.y), 0.5 - t.x - t.z))); + } + + /* From wiki: + The Euler angle vector (in radians) is converted to a rotation by doing the rotations around the 3 axes + in Z, Y, X order. So llEuler2Rot(<1.0, 2.0, 3.0> * DEG_TO_RAD) generates a rotation by taking the zero rotation, + a vector pointing along the X axis, first rotating it 3 degrees around the global Z axis, then rotating the resulting + vector 2 degrees around the global Y axis, and finally rotating that 1 degree around the global X axis. + */ + + /* How we arrived at this llEuler2Rot + * + * Experiment in SL to determine conventions: + * llEuler2Rot()=<1,0,0,0> + * llEuler2Rot(<0,PI,0>)=<0,1,0,0> + * llEuler2Rot(<0,0,PI>)=<0,0,1,0> + * + * Important facts about Quaternions + * - multiplication is non-commutative (a*b != b*a) + * - http://en.wikipedia.org/wiki/Quaternion#Basis_multiplication + * + * Above SL experiment gives (c1,c2,c3,s1,s2,s3 as defined in our llEuler2Rot): + * Qx = c1+i*s1 + * Qy = c2+j*s2; + * Qz = c3+k*s3; + * + * Rotations applied in order (from above) Z, Y, X + * Q = (Qz * Qy) * Qx + * ((c1+i*s1)*(c2+j*s2))*(c3+k*s3) + * (c1*c2+i*s1*c2+j*c1*s2+ij*s1*s2)*(c3+k*s3) + * (c1*c2+i*s1*c2+j*c1*s2+k*s1*s2)*(c3+k*s3) + * c1*c2*c3+i*s1*c2*c3+j*c1*s2*c3+k*s1*s2*c3+k*c1*c2*s3+ik*s1*c2*s3+jk*c1*s2*s3+kk*s1*s2*s3 + * c1*c2*c3+i*s1*c2*c3+j*c1*s2*c3+k*s1*s2*c3+k*c1*c2*s3 -j*s1*c2*s3 +i*c1*s2*s3 -s1*s2*s3 + * regroup: x=i*(s1*c2*c3+c1*s2*s3) + * y=j*(c1*s2*c3-s1*c2*s3) + * z=k*(s1*s2*c3+c1*c2*s3) + * s= c1*c2*c3-s1*s2*s3 + * + * This implementation agrees with the functions found here: + * http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryRotationFunctions + * And with the results in SL. + * + * It's also possible to calculate llEuler2Rot by direct multiplication of + * the Qz, Qy, and Qx vectors (as above - and done in the "accurate" function + * from the wiki). + * Apparently in some cases this is better from a numerical precision perspective? + */ + + public LSL_Rotation llEuler2Rot(LSL_Vector v) + { + m_host.AddScriptLPS(1); + + double x,y,z,s; + + double c1 = Math.Cos(v.x/2.0); + double c2 = Math.Cos(v.y/2.0); + double c3 = Math.Cos(v.z/2.0); + double s1 = Math.Sin(v.x/2.0); + double s2 = Math.Sin(v.y/2.0); + double s3 = Math.Sin(v.z/2.0); + + x = s1*c2*c3+c1*s2*s3; + y = c1*s2*c3-s1*c2*s3; + z = s1*s2*c3+c1*c2*s3; + s = c1*c2*c3-s1*s2*s3; + + return new LSL_Rotation(x, y, z, s); + } + + public LSL_Rotation llAxes2Rot(LSL_Vector fwd, LSL_Vector left, LSL_Vector up) + { + m_host.AddScriptLPS(1); + double x, y, z, s; + int f = 0; + // Important Note: q1= is equal to q2=<-x,-y,-z,-s> + // Computing quaternion x,y,z,s values + x = ((fwd.x - left.y - up.z + 1) / 4); + x *= x; + x = Math.Sqrt(Math.Sqrt(x)); + y = ((1 - up.z) / 2 - x * x); + y *= y; + y = Math.Sqrt(Math.Sqrt(y)); + z = ((1 - left.y) / 2 - x * x); + z *= z; + z = Math.Sqrt(Math.Sqrt(z)); + s = (1 - x * x - y * y - z * z); + s *= s; + s = Math.Sqrt(Math.Sqrt(s)); + + // Set f for signs detection + if (fwd.y + left.x >= 0) { f += 1; } + if (fwd.z + up.x >= 0) { f += 2; } + if (left.z - up.y >= 0) { f += 4; } + // Set correct quaternion signs based on f value + if (f == 0) { x = -x; } + if (f == 1) { x = -x; y = -y; } + if (f == 2) { x = -x; z = -z; } + if (f == 3) { s = -s; } + if (f == 4) { x = -x; s = -s; } + if (f == 5) { z = -z; } + if (f == 6) { y = -y; } + + LSL_Rotation result = new LSL_Rotation(x, y, z, s); + + // a hack to correct a few questionable angles :( + if (llVecDist(llRot2Fwd(result), fwd) > 0.001 || llVecDist(llRot2Left(result), left) > 0.001) + result.s = -s; + + return result; + } + + public LSL_Vector llRot2Fwd(LSL_Rotation r) + { + m_host.AddScriptLPS(1); + + double x, y, z, m; + + m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s; + // m is always greater than zero + // if m is not equal to 1 then Rotation needs to be normalized + if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision + { + m = 1.0 / Math.Sqrt(m); + r.x *= m; + r.y *= m; + r.z *= m; + r.s *= m; + } + + // Fast Algebric Calculations instead of Vectors & Quaternions Product + x = r.x * r.x - r.y * r.y - r.z * r.z + r.s * r.s; + y = 2 * (r.x * r.y + r.z * r.s); + z = 2 * (r.x * r.z - r.y * r.s); + return (new LSL_Vector(x, y, z)); + } + + public LSL_Vector llRot2Left(LSL_Rotation r) + { + m_host.AddScriptLPS(1); + + double x, y, z, m; + + m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s; + // m is always greater than zero + // if m is not equal to 1 then Rotation needs to be normalized + if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision + { + m = 1.0 / Math.Sqrt(m); + r.x *= m; + r.y *= m; + r.z *= m; + r.s *= m; + } + + // Fast Algebric Calculations instead of Vectors & Quaternions Product + x = 2 * (r.x * r.y - r.z * r.s); + y = -r.x * r.x + r.y * r.y - r.z * r.z + r.s * r.s; + z = 2 * (r.x * r.s + r.y * r.z); + return (new LSL_Vector(x, y, z)); + } + + public LSL_Vector llRot2Up(LSL_Rotation r) + { + m_host.AddScriptLPS(1); + double x, y, z, m; + + m = r.x * r.x + r.y * r.y + r.z * r.z + r.s * r.s; + // m is always greater than zero + // if m is not equal to 1 then Rotation needs to be normalized + if (Math.Abs(1.0 - m) > 0.000001) // allow a little slop here for calculation precision + { + m = 1.0 / Math.Sqrt(m); + r.x *= m; + r.y *= m; + r.z *= m; + r.s *= m; + } + + // Fast Algebric Calculations instead of Vectors & Quaternions Product + x = 2 * (r.x * r.z + r.y * r.s); + y = 2 * (-r.x * r.s + r.y * r.z); + z = -r.x * r.x - r.y * r.y + r.z * r.z + r.s * r.s; + return (new LSL_Vector(x, y, z)); + } + + public LSL_Rotation llRotBetween(LSL_Vector a, LSL_Vector b) + { + //A and B should both be normalized + m_host.AddScriptLPS(1); + double dotProduct = LSL_Vector.Dot(a, b); + LSL_Vector crossProduct = LSL_Vector.Cross(a, b); + double magProduct = LSL_Vector.Mag(a) * LSL_Vector.Mag(b); + double angle = Math.Acos(dotProduct / magProduct); + LSL_Vector axis = LSL_Vector.Norm(crossProduct); + double s = Math.Sin(angle / 2); + + double x = axis.x * s; + double y = axis.y * s; + double z = axis.z * s; + double w = Math.Cos(angle / 2); + + if (Double.IsNaN(x) || Double.IsNaN(y) || Double.IsNaN(z) || Double.IsNaN(w)) + return new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f); + + return new LSL_Rotation((float)x, (float)y, (float)z, (float)w); + } + + public void llWhisper(int channelID, string text) + { + m_host.AddScriptLPS(1); + + if (text.Length > 1023) + text = text.Substring(0, 1023); + + World.SimChat(Utils.StringToBytes(text), + ChatTypeEnum.Whisper, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID, false); + + IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); + wComm.DeliverMessage(ChatTypeEnum.Whisper, channelID, m_host.Name, m_host.UUID, text); + } + + public void llSay(int channelID, string text) + { + m_host.AddScriptLPS(1); + + if (text.Length > 1023) + text = text.Substring(0, 1023); + + World.SimChat(Utils.StringToBytes(text), + ChatTypeEnum.Say, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID, false); + + IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); + wComm.DeliverMessage(ChatTypeEnum.Say, channelID, m_host.Name, m_host.UUID, text); + } + + public void llShout(int channelID, string text) + { + m_host.AddScriptLPS(1); + + if (text.Length > 1023) + text = text.Substring(0, 1023); + + World.SimChat(Utils.StringToBytes(text), + ChatTypeEnum.Shout, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID, true); + + IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); + wComm.DeliverMessage(ChatTypeEnum.Shout, channelID, m_host.Name, m_host.UUID, text); + } + + public void llRegionSay(int channelID, string text) + { + if (channelID == 0) + { + LSLError("Cannot use llRegionSay() on channel 0"); + return; + } + + if (text.Length > 1023) + text = text.Substring(0, 1023); + + m_host.AddScriptLPS(1); + + IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); + wComm.DeliverMessage(ChatTypeEnum.Region, channelID, m_host.Name, m_host.UUID, text); + } + + public LSL_Integer llListen(int channelID, string name, string ID, string msg) + { + m_host.AddScriptLPS(1); + UUID keyID; + UUID.TryParse(ID, out keyID); + IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); + return wComm.Listen(m_localID, m_itemID, m_host.UUID, channelID, name, keyID, msg); + } + + public void llListenControl(int number, int active) + { + m_host.AddScriptLPS(1); + IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); + wComm.ListenControl(m_itemID, number, active); + } + + public void llListenRemove(int number) + { + m_host.AddScriptLPS(1); + IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); + wComm.ListenRemove(m_itemID, number); + } + + public void llSensor(string name, string id, int type, double range, double arc) + { + m_host.AddScriptLPS(1); + UUID keyID = UUID.Zero; + UUID.TryParse(id, out keyID); + + AsyncCommands.SensorRepeatPlugin.SenseOnce(m_localID, m_itemID, name, keyID, type, range, arc, m_host); + } + + public void llSensorRepeat(string name, string id, int type, double range, double arc, double rate) + { + m_host.AddScriptLPS(1); + UUID keyID = UUID.Zero; + UUID.TryParse(id, out keyID); + + AsyncCommands.SensorRepeatPlugin.SetSenseRepeatEvent(m_localID, m_itemID, name, keyID, type, range, arc, rate, m_host); + } + + public void llSensorRemove() + { + m_host.AddScriptLPS(1); + AsyncCommands.SensorRepeatPlugin.UnSetSenseRepeaterEvents(m_localID, m_itemID); + } + + public string resolveName(UUID objecUUID) + { + // try avatar username surname + CachedUserInfo profile = World.CommsManager.UserProfileCacheService.GetUserDetails(objecUUID); + if (profile != null && profile.UserProfile != null) + { + string avatarname = profile.UserProfile.FirstName + " " + profile.UserProfile.SurName; + return avatarname; + } + // try an scene object + SceneObjectPart SOP = World.GetSceneObjectPart(objecUUID); + if (SOP != null) + { + string objectname = SOP.Name; + return objectname; + } + + EntityBase SensedObject; + lock (World.Entities) + { + World.Entities.TryGetValue(objecUUID, out SensedObject); + } + + if (SensedObject == null) + return String.Empty; + return SensedObject.Name; + } + + public LSL_String llDetectedName(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return String.Empty; + return d.Name; + } + + public LSL_String llDetectedKey(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return String.Empty; + return d.Key.ToString(); + } + + public LSL_String llDetectedOwner(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return String.Empty; + return d.Owner.ToString(); + } + + public LSL_Integer llDetectedType(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return 0; + return new LSL_Integer(d.Type); + } + + public LSL_Vector llDetectedPos(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return new LSL_Vector(); + return d.Position; + } + + public LSL_Vector llDetectedVel(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return new LSL_Vector(); + return d.Velocity; + } + + public LSL_Vector llDetectedGrab(int number) + { + m_host.AddScriptLPS(1); + DetectParams parms = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (parms == null) + return new LSL_Vector(0, 0, 0); + + return parms.OffsetPos; + } + + public LSL_Rotation llDetectedRot(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return new LSL_Rotation(); + return d.Rotation; + } + + public LSL_Integer llDetectedGroup(int number) + { + m_host.AddScriptLPS(1); + DetectParams d = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (d == null) + return new LSL_Integer(0); + if (m_host.GroupID == d.Group) + return new LSL_Integer(1); + return new LSL_Integer(0); + } + + public LSL_Integer llDetectedLinkNumber(int number) + { + m_host.AddScriptLPS(1); + DetectParams parms = m_ScriptEngine.GetDetectParams(m_itemID, number); + if (parms == null) + return new LSL_Integer(0); + + return new LSL_Integer(parms.LinkNum); + } + + public LSL_Vector llDetectedTouchBinormal(int index) + { + m_host.AddScriptLPS(1); + NotImplemented("llDetectedTouchBinormal"); + return new LSL_Vector(); + } + + public LSL_Integer llDetectedTouchFace(int index) + { + m_host.AddScriptLPS(1); + NotImplemented("llDetectedTouchFace"); + return new LSL_Integer(0); + } + + public LSL_Vector llDetectedTouchNormal(int index) + { + m_host.AddScriptLPS(1); + NotImplemented("llDetectedTouchNormal"); + return new LSL_Vector(); + } + + public LSL_Vector llDetectedTouchPos(int index) + { + m_host.AddScriptLPS(1); + NotImplemented("llDetectedTouchPos"); + return new LSL_Vector(); + } + + public LSL_Vector llDetectedTouchST(int index) + { + m_host.AddScriptLPS(1); + NotImplemented("llDetectedTouchST"); + return new LSL_Vector(); + } + + public LSL_Vector llDetectedTouchUV(int index) + { + m_host.AddScriptLPS(1); + NotImplemented("llDetectedTouchUV"); + return new LSL_Vector(); + } + + public void llDie() + { + m_host.AddScriptLPS(1); + throw new SelfDeleteException(); + } + + public LSL_Float llGround(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + int x = (int)(m_host.OffsetPosition.X + offset.x); + int y = (int)(m_host.OffsetPosition.Y + offset.y); + return World.GetLandHeight(x, y); + } + + public LSL_Float llCloud(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + return 0; + } + + public LSL_Vector llWind(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + return new LSL_Vector(); + } + + public void llSetStatus(int status, int value) + { + m_host.AddScriptLPS(1); + + int statusrotationaxis = 0; + + if ((status & ScriptBaseClass.STATUS_PHYSICS) == ScriptBaseClass.STATUS_PHYSICS) + { + if (value == 1) + { + SceneObjectGroup group = m_host.ParentGroup; + if (group == null) + return; + bool allow = true; + foreach (SceneObjectPart part in group.Children.Values) + { + if (part.Scale.X > World.m_maxPhys || part.Scale.Y > World.m_maxPhys || part.Scale.Z > World.m_maxPhys) + { + allow = false; + break; + } + } + + if (!allow) + return; + m_host.ScriptSetPhysicsStatus(true); + } + else + m_host.ScriptSetPhysicsStatus(false); + } + + if ((status & ScriptBaseClass.STATUS_PHANTOM) == ScriptBaseClass.STATUS_PHANTOM) + { + if (value == 1) + m_host.ScriptSetPhantomStatus(true); + else + m_host.ScriptSetPhantomStatus(false); + } + + if ((status & ScriptBaseClass.STATUS_CAST_SHADOWS) == ScriptBaseClass.STATUS_CAST_SHADOWS) + { + m_host.AddFlag(PrimFlags.CastShadows); + } + + if ((status & ScriptBaseClass.STATUS_ROTATE_X) == ScriptBaseClass.STATUS_ROTATE_X) + { + statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_X; + } + + if ((status & ScriptBaseClass.STATUS_ROTATE_Y) == ScriptBaseClass.STATUS_ROTATE_Y) + { + statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_Y; + } + + if ((status & ScriptBaseClass.STATUS_ROTATE_Z) == ScriptBaseClass.STATUS_ROTATE_Z) + { + statusrotationaxis |= ScriptBaseClass.STATUS_ROTATE_Z; + } + + if ((status & ScriptBaseClass.STATUS_BLOCK_GRAB) == ScriptBaseClass.STATUS_BLOCK_GRAB) + { + NotImplemented("llSetStatus - STATUS_BLOCK_GRAB"); + } + + if ((status & ScriptBaseClass.STATUS_DIE_AT_EDGE) == ScriptBaseClass.STATUS_DIE_AT_EDGE) + { + if (value == 1) + m_host.SetDieAtEdge(true); + else + m_host.SetDieAtEdge(false); + } + + if ((status & ScriptBaseClass.STATUS_RETURN_AT_EDGE) == ScriptBaseClass.STATUS_RETURN_AT_EDGE) + { + NotImplemented("llSetStatus - STATUS_RETURN_AT_EDGE"); + } + + if ((status & ScriptBaseClass.STATUS_SANDBOX) == ScriptBaseClass.STATUS_SANDBOX) + { + NotImplemented("llSetStatus - STATUS_SANDBOX"); + } + + if (statusrotationaxis != 0) + { + m_host.SetAxisRotation(statusrotationaxis, value); + } + } + + public LSL_Integer llGetStatus(int status) + { + m_host.AddScriptLPS(1); + // Console.WriteLine(m_host.ToString() + " status is " + m_host.GetEffectiveObjectFlags().ToString()); + switch (status) + { + case ScriptBaseClass.STATUS_PHYSICS: + if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Physics) == (uint)PrimFlags.Physics) + { + return 1; + } + return 0; + + case ScriptBaseClass.STATUS_PHANTOM: + if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Phantom) == (uint)PrimFlags.Phantom) + { + return 1; + } + return 0; + + case ScriptBaseClass.STATUS_CAST_SHADOWS: + if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.CastShadows) == (uint)PrimFlags.CastShadows) + { + return 1; + } + return 0; + + case ScriptBaseClass.STATUS_BLOCK_GRAB: + NotImplemented("llGetStatus - STATUS_BLOCK_GRAB"); + return 0; + + case ScriptBaseClass.STATUS_DIE_AT_EDGE: + if (m_host.GetDieAtEdge()) + return 1; + else + return 0; + + case ScriptBaseClass.STATUS_RETURN_AT_EDGE: + NotImplemented("llGetStatus - STATUS_RETURN_AT_EDGE"); + return 0; + + case ScriptBaseClass.STATUS_ROTATE_X: + NotImplemented("llGetStatus - STATUS_ROTATE_X"); + return 0; + + case ScriptBaseClass.STATUS_ROTATE_Y: + NotImplemented("llGetStatus - STATUS_ROTATE_Y"); + return 0; + + case ScriptBaseClass.STATUS_ROTATE_Z: + NotImplemented("llGetStatus - STATUS_ROTATE_Z"); + return 0; + + case ScriptBaseClass.STATUS_SANDBOX: + NotImplemented("llGetStatus - STATUS_SANDBOX"); + return 0; + } + return 0; + } + + public void llSetScale(LSL_Vector scale) + { + m_host.AddScriptLPS(1); + SetScale(m_host, scale); + } + + private void SetScale(SceneObjectPart part, LSL_Vector scale) + { + // TODO: this needs to trigger a persistance save as well + + if (part == null || part.ParentGroup == null || part.ParentGroup.RootPart == null) + return; + + if (part.ParentGroup.RootPart.PhysActor != null && part.ParentGroup.RootPart.PhysActor.IsPhysical) + { + if (scale.x > World.m_maxPhys) + scale.x = World.m_maxPhys; + if (scale.y > World.m_maxPhys) + scale.y = World.m_maxPhys; + if (scale.z > World.m_maxPhys) + scale.z = World.m_maxPhys; + } + if (scale.x > World.m_maxNonphys) + scale.x = World.m_maxNonphys; + if (scale.y > World.m_maxNonphys) + scale.y = World.m_maxNonphys; + if (scale.z > World.m_maxNonphys) + scale.z = World.m_maxNonphys; + Vector3 tmp = part.Scale; + tmp.X = (float)scale.x; + tmp.Y = (float)scale.y; + tmp.Z = (float)scale.z; + part.Scale = tmp; + part.SendFullUpdateToAllClients(); + } + + public LSL_Vector llGetScale() + { + m_host.AddScriptLPS(1); + return new LSL_Vector(m_host.Scale.X, m_host.Scale.Y, m_host.Scale.Z); + } + + public void llSetClickAction(int action) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetClickAction"); + return; + } + + public void llSetColor(LSL_Vector color, int face) + { + m_host.AddScriptLPS(1); + + SetColor(m_host, color, face); + } + + private void SetColor(SceneObjectPart part, LSL_Vector color, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + Color4 texcolor; + if (face >= 0 && face < GetNumberOfSides(part)) + { + texcolor = tex.CreateFace((uint)face).RGBA; + texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f); + texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f); + texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f); + tex.FaceTextures[face].RGBA = texcolor; + part.UpdateTexture(tex); + return; + } + else if (face == ScriptBaseClass.ALL_SIDES) + { + for (uint i = 0; i < GetNumberOfSides(part); i++) + { + if (tex.FaceTextures[i] != null) + { + texcolor = tex.FaceTextures[i].RGBA; + texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f); + texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f); + texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f); + tex.FaceTextures[i].RGBA = texcolor; + } + texcolor = tex.DefaultTexture.RGBA; + texcolor.R = Util.Clip((float)color.x, 0.0f, 1.0f); + texcolor.G = Util.Clip((float)color.y, 0.0f, 1.0f); + texcolor.B = Util.Clip((float)color.z, 0.0f, 1.0f); + tex.DefaultTexture.RGBA = texcolor; + } + part.UpdateTexture(tex); + return; + } + } + + public void SetGlow(SceneObjectPart part, int face, float glow) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face >= 0 && face < GetNumberOfSides(part)) + { + tex.CreateFace((uint) face); + tex.FaceTextures[face].Glow = glow; + part.UpdateTexture(tex); + return; + } + else if (face == ScriptBaseClass.ALL_SIDES) + { + for (uint i = 0; i < GetNumberOfSides(part); i++) + { + if (tex.FaceTextures[i] != null) + { + tex.FaceTextures[i].Glow = glow; + } + tex.DefaultTexture.Glow = glow; + } + part.UpdateTexture(tex); + return; + } + } + + public void SetShiny(SceneObjectPart part, int face, int shiny, Bumpiness bump) + { + + Shininess sval = new Shininess(); + + switch (shiny) + { + case 0: + sval = Shininess.None; + break; + case 1: + sval = Shininess.Low; + break; + case 2: + sval = Shininess.Medium; + break; + case 3: + sval = Shininess.High; + break; + default: + sval = Shininess.None; + break; + } + + Primitive.TextureEntry tex = part.Shape.Textures; + if (face >= 0 && face < GetNumberOfSides(part)) + { + tex.CreateFace((uint) face); + tex.FaceTextures[face].Shiny = sval; + tex.FaceTextures[face].Bump = bump; + part.UpdateTexture(tex); + return; + } + else if (face == ScriptBaseClass.ALL_SIDES) + { + for (uint i = 0; i < GetNumberOfSides(part); i++) + { + if (tex.FaceTextures[i] != null) + { + tex.FaceTextures[i].Shiny = sval; + tex.FaceTextures[i].Bump = bump;; + } + tex.DefaultTexture.Shiny = sval; + tex.DefaultTexture.Bump = bump; + } + part.UpdateTexture(tex); + return; + } + } + + public void SetFullBright(SceneObjectPart part, int face, bool bright) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face >= 0 && face < GetNumberOfSides(part)) + { + tex.CreateFace((uint) face); + tex.FaceTextures[face].Fullbright = bright; + part.UpdateTexture(tex); + return; + } + else if (face == ScriptBaseClass.ALL_SIDES) + { + for (uint i = 0; i < GetNumberOfSides(part); i++) + { + if (tex.FaceTextures[i] != null) + { + tex.FaceTextures[i].Fullbright = bright; + } + } + tex.DefaultTexture.Fullbright = bright; + part.UpdateTexture(tex); + return; + } + } + + public LSL_Float llGetAlpha(int face) + { + m_host.AddScriptLPS(1); + + return GetAlpha(m_host, face); + } + + private LSL_Float GetAlpha(SceneObjectPart part, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face == ScriptBaseClass.ALL_SIDES) + { + int i; + double sum = 0.0; + for (i = 0 ; i < GetNumberOfSides(part) ; i++) + sum += (double)tex.GetFace((uint)i).RGBA.A; + return sum; + } + if (face >= 0 && face < GetNumberOfSides(part)) + { + return (double)tex.GetFace((uint)face).RGBA.A; + } + return 0.0; + } + + public void llSetAlpha(double alpha, int face) + { + m_host.AddScriptLPS(1); + + SetAlpha(m_host, alpha, face); + } + + private void SetAlpha(SceneObjectPart part, double alpha, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + Color4 texcolor; + if (face >= 0 && face < GetNumberOfSides(part)) + { + texcolor = tex.CreateFace((uint)face).RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.FaceTextures[face].RGBA = texcolor; + part.UpdateTexture(tex); + return; + } + else if (face == ScriptBaseClass.ALL_SIDES) + { + for (int i = 0; i < GetNumberOfSides(part); i++) + { + if (tex.FaceTextures[i] != null) + { + texcolor = tex.FaceTextures[i].RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.FaceTextures[i].RGBA = texcolor; + } + } + texcolor = tex.DefaultTexture.RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.DefaultTexture.RGBA = texcolor; + part.UpdateTexture(tex); + return; + } + } + + /// + /// Set flexi parameters of a part. + /// + /// FIXME: Much of this code should probably be within the part itself. + /// + /// + /// + /// + /// + /// + /// + /// + /// + private void SetFlexi(SceneObjectPart part, bool flexi, int softness, float gravity, float friction, + float wind, float tension, LSL_Vector Force) + { + if (part == null) + return; + + bool needs_fakedelete = false; + if (flexi) + { + if (!part.Shape.FlexiEntry) + { + needs_fakedelete = true; + } + part.Shape.FlexiEntry = true; // this setting flexi true isn't working, but the below parameters do + // work once the prim is already flexi + part.Shape.FlexiSoftness = softness; + part.Shape.FlexiGravity = gravity; + part.Shape.FlexiDrag = friction; + part.Shape.FlexiWind = wind; + part.Shape.FlexiTension = tension; + part.Shape.FlexiForceX = (float)Force.x; + part.Shape.FlexiForceY = (float)Force.y; + part.Shape.FlexiForceZ = (float)Force.z; + part.Shape.PathCurve = 0x80; + + } + else + { + if (part.Shape.FlexiEntry) + { + needs_fakedelete = true; + } + part.Shape.FlexiEntry = false; + } + + needs_fakedelete = false; + if (needs_fakedelete) + { + if (part.ParentGroup != null) + { + part.ParentGroup.FakeDeleteGroup(); + } + } + + part.ParentGroup.HasGroupChanged = true; + part.ScheduleFullUpdate(); + } + + /// + /// Set a light point on a part + /// + /// FIXME: Much of this code should probably be in SceneObjectGroup + /// + /// + /// + /// + /// + /// + /// + private void SetPointLight(SceneObjectPart part, bool light, LSL_Vector color, float intensity, float radius, float falloff) + { + if (part == null) + return; + + if (light) + { + part.Shape.LightEntry = true; + part.Shape.LightColorR = Util.Clip((float)color.x, 0.0f, 1.0f); + part.Shape.LightColorG = Util.Clip((float)color.y, 0.0f, 1.0f); + part.Shape.LightColorB = Util.Clip((float)color.z, 0.0f, 1.0f); + part.Shape.LightIntensity = intensity; + part.Shape.LightRadius = radius; + part.Shape.LightFalloff = falloff; + } + else + { + part.Shape.LightEntry = false; + } + + part.ParentGroup.HasGroupChanged = true; + part.ScheduleFullUpdate(); + } + + public LSL_Vector llGetColor(int face) + { + m_host.AddScriptLPS(1); + return GetColor(m_host, face); + } + + private LSL_Vector GetColor(SceneObjectPart part, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + Color4 texcolor; + LSL_Vector rgb = new LSL_Vector(); + if (face == ScriptBaseClass.ALL_SIDES) + { + int i; + + for (i = 0 ; i < GetNumberOfSides(part) ; i++) + { + texcolor = tex.GetFace((uint)i).RGBA; + rgb.x += texcolor.R; + rgb.y += texcolor.G; + rgb.z += texcolor.B; + } + + rgb.x /= (float)GetNumberOfSides(part); + rgb.y /= (float)GetNumberOfSides(part); + rgb.z /= (float)GetNumberOfSides(part); + + return rgb; + } + if (face >= 0 && face < GetNumberOfSides(part)) + { + texcolor = tex.GetFace((uint)face).RGBA; + rgb.x = texcolor.R; + rgb.y = texcolor.G; + rgb.z = texcolor.B; + return rgb; + } + else + { + return new LSL_Vector(); + } + } + + public void llSetTexture(string texture, int face) + { + m_host.AddScriptLPS(1); + SetTexture(m_host, texture, face); + // ScriptSleep(200); + } + + private void SetTexture(SceneObjectPart part, string texture, int face) + { + UUID textureID=new UUID(); + + if (!UUID.TryParse(texture, out textureID)) + { + textureID=InventoryKey(texture, (int)AssetType.Texture); + } + + if (textureID == UUID.Zero) + return; + + Primitive.TextureEntry tex = part.Shape.Textures; + + if (face >= 0 && face < GetNumberOfSides(part)) + { + Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); + texface.TextureID = textureID; + tex.FaceTextures[face] = texface; + part.UpdateTexture(tex); + return; + } + else if (face == ScriptBaseClass.ALL_SIDES) + { + for (uint i = 0; i < GetNumberOfSides(part); i++) + { + if (tex.FaceTextures[i] != null) + { + tex.FaceTextures[i].TextureID = textureID; + } + } + tex.DefaultTexture.TextureID = textureID; + part.UpdateTexture(tex); + return; + } + } + + public void llScaleTexture(double u, double v, int face) + { + m_host.AddScriptLPS(1); + + ScaleTexture(m_host, u, v, face); + // ScriptSleep(200); + } + + private void ScaleTexture(SceneObjectPart part, double u, double v, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face >= 0 && face < GetNumberOfSides(part)) + { + Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); + texface.RepeatU = (float)u; + texface.RepeatV = (float)v; + tex.FaceTextures[face] = texface; + part.UpdateTexture(tex); + return; + } + if (face == ScriptBaseClass.ALL_SIDES) + { + for (int i = 0; i < GetNumberOfSides(part); 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; + part.UpdateTexture(tex); + return; + } + } + + public void llOffsetTexture(double u, double v, int face) + { + m_host.AddScriptLPS(1); + OffsetTexture(m_host, u, v, face); + // ScriptSleep(200); + } + + private void OffsetTexture(SceneObjectPart part, double u, double v, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face >= 0 && face < GetNumberOfSides(part)) + { + Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); + texface.OffsetU = (float)u; + texface.OffsetV = (float)v; + tex.FaceTextures[face] = texface; + part.UpdateTexture(tex); + return; + } + if (face == ScriptBaseClass.ALL_SIDES) + { + for (int i = 0; i < GetNumberOfSides(part); 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; + part.UpdateTexture(tex); + return; + } + } + + public void llRotateTexture(double rotation, int face) + { + m_host.AddScriptLPS(1); + RotateTexture(m_host, rotation, face); + // ScriptSleep(200); + } + + private void RotateTexture(SceneObjectPart part, double rotation, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face >= 0 && face < GetNumberOfSides(part)) + { + Primitive.TextureEntryFace texface = tex.CreateFace((uint)face); + texface.Rotation = (float)rotation; + tex.FaceTextures[face] = texface; + part.UpdateTexture(tex); + return; + } + if (face == ScriptBaseClass.ALL_SIDES) + { + for (int i = 0; i < GetNumberOfSides(part); i++) + { + if (tex.FaceTextures[i] != null) + { + tex.FaceTextures[i].Rotation = (float)rotation; + } + } + tex.DefaultTexture.Rotation = (float)rotation; + part.UpdateTexture(tex); + return; + } + } + + public LSL_String llGetTexture(int face) + { + m_host.AddScriptLPS(1); + return GetTexture(m_host, face); + } + + private LSL_String GetTexture(SceneObjectPart part, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face == ScriptBaseClass.ALL_SIDES) + { + face = 0; + } + if (face >= 0 && face < GetNumberOfSides(part)) + { + Primitive.TextureEntryFace texface; + texface = tex.GetFace((uint)face); + return texface.TextureID.ToString(); + } + else + { + return String.Empty; + } + } + + public void llSetPos(LSL_Vector pos) + { + m_host.AddScriptLPS(1); + + SetPos(m_host, pos); + + ScriptSleep(200); + } + + private void SetPos(SceneObjectPart part, LSL_Vector targetPos) + { + // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos) + LSL_Vector currentPos = llGetLocalPos(); + if (llVecDist(currentPos, targetPos) > 10.0f * m_ScriptDistanceFactor) + { + targetPos = currentPos + m_ScriptDistanceFactor * 10.0f * llVecNorm(targetPos - currentPos); + } + + if (part.ParentID != 0) + { + part.UpdateOffSet(new Vector3((float)targetPos.x, (float)targetPos.y, (float)targetPos.z)); + } + else + { + part.UpdateGroupPosition(new Vector3((float)targetPos.x, (float)targetPos.y, (float)targetPos.z)); + } + } + + public LSL_Vector llGetPos() + { + m_host.AddScriptLPS(1); + return new LSL_Vector(m_host.AbsolutePosition.X, + m_host.AbsolutePosition.Y, + m_host.AbsolutePosition.Z); + } + + public LSL_Vector llGetLocalPos() + { + m_host.AddScriptLPS(1); + if (m_host.ParentID != 0) + { + return new LSL_Vector(m_host.OffsetPosition.X, + m_host.OffsetPosition.Y, + m_host.OffsetPosition.Z); + } + else + { + return new LSL_Vector(m_host.AbsolutePosition.X, + m_host.AbsolutePosition.Y, + m_host.AbsolutePosition.Z); + } + } + + public void llSetRot(LSL_Rotation rot) + { + m_host.AddScriptLPS(1); + + SetRot(m_host, rot); + + ScriptSleep(200); + } + + private void SetRot(SceneObjectPart part, LSL_Rotation rot) + { + part.UpdateRotation(new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s)); + // Update rotation does not move the object in the physics scene if it's a linkset. + part.ParentGroup.AbsolutePosition = part.ParentGroup.AbsolutePosition; + } + + public LSL_Rotation llGetRot() + { + m_host.AddScriptLPS(1); + Quaternion q = m_host.RotationOffset; + return new LSL_Rotation(q.X, q.Y, q.Z, q.W); + } + + public LSL_Rotation llGetLocalRot() + { + m_host.AddScriptLPS(1); + return new LSL_Rotation(m_host.RotationOffset.X, m_host.RotationOffset.Y, m_host.RotationOffset.Z, m_host.RotationOffset.W); + } + + public void llSetForce(LSL_Vector force, int local) + { + m_host.AddScriptLPS(1); + + if (m_host.ParentGroup != null) + { + if (m_host.ParentGroup.RootPart != null) + { + if (local != 0) + force *= llGetRot(); + + m_host.ParentGroup.RootPart.SetForce(new PhysicsVector((float)force.x, (float)force.y, (float)force.z)); + } + } + } + + public LSL_Vector llGetForce() + { + LSL_Vector force = new LSL_Vector(0.0, 0.0, 0.0); + + m_host.AddScriptLPS(1); + + if (m_host.ParentGroup != null) + { + if (m_host.ParentGroup.RootPart != null) + { + PhysicsVector tmpForce = m_host.ParentGroup.RootPart.GetForce(); + force.x = tmpForce.X; + force.y = tmpForce.Y; + force.z = tmpForce.Z; + } + } + + return force; + } + + public LSL_Integer llTarget(LSL_Vector position, double range) + { + m_host.AddScriptLPS(1); + return m_host.registerTargetWaypoint(new Vector3((float)position.x, (float)position.y, (float)position.z), (float)range); + } + + public void llTargetRemove(int number) + { + m_host.AddScriptLPS(1); + m_host.unregisterTargetWaypoint(number); + } + + public LSL_Integer llRotTarget(LSL_Rotation 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_Vector target, double tau) + { + m_host.AddScriptLPS(1); + m_host.MoveToTarget(new Vector3((float)target.x, (float)target.y, (float)target.z), (float)tau); + } + + public void llStopMoveToTarget() + { + m_host.AddScriptLPS(1); + m_host.StopMoveToTarget(); + } + + public void llApplyImpulse(LSL_Vector force, int local) + { + m_host.AddScriptLPS(1); + //No energy force yet + + 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 Vector3((float)force.x, (float)force.y, (float)force.z), local != 0); + } + + public void llApplyRotationalImpulse(LSL_Vector force, int local) + { + m_host.AddScriptLPS(1); + NotImplemented("llApplyRotationalImpulse"); + } + + public void llSetTorque(LSL_Vector torque, int local) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetTorque"); + } + + public LSL_Vector llGetTorque() + { + m_host.AddScriptLPS(1); + NotImplemented("llGetTorque"); + return new LSL_Vector(); + } + + public void llSetForceAndTorque(LSL_Vector force, LSL_Vector torque, int local) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetForceAndTorque"); + } + + public LSL_Vector llGetVel() + { + m_host.AddScriptLPS(1); + return new LSL_Vector(m_host.Velocity.X, m_host.Velocity.Y, m_host.Velocity.Z); + } + + public LSL_Vector llGetAccel() + { + m_host.AddScriptLPS(1); + return new LSL_Vector(m_host.Acceleration.X, m_host.Acceleration.Y, m_host.Acceleration.Z); + } + + public LSL_Vector llGetOmega() + { + m_host.AddScriptLPS(1); + return new LSL_Vector(m_host.RotationalVelocity.X, m_host.RotationalVelocity.Y, m_host.RotationalVelocity.Z); + } + + public LSL_Float llGetTimeOfDay() + { + m_host.AddScriptLPS(1); + return (double)(((DateTime.Now.TimeOfDay.TotalMilliseconds / 1000) % (3600 * 4)) * World.TimeDilation); + } + + public LSL_Float llGetWallclock() + { + m_host.AddScriptLPS(1); + return DateTime.Now.TimeOfDay.TotalSeconds; + } + + public LSL_Float llGetTime() + { + m_host.AddScriptLPS(1); + TimeSpan ScriptTime = DateTime.Now - m_timer; + return (double)((ScriptTime.TotalMilliseconds / 1000)*World.TimeDilation); + } + + public void llResetTime() + { + m_host.AddScriptLPS(1); + m_timer = DateTime.Now; + } + + public LSL_Float llGetAndResetTime() + { + m_host.AddScriptLPS(1); + TimeSpan ScriptTime = DateTime.Now - m_timer; + m_timer = DateTime.Now; + return (double)((ScriptTime.TotalMilliseconds / 1000)*World.TimeDilation); + } + + public void llSound() + { + m_host.AddScriptLPS(1); + // This function has been deprecated + // see http://www.lslwiki.net/lslwiki/wakka.php?wakka=llSound + Deprecated("llSound"); + } + + // Xantor 20080528 PlaySound updated so it accepts an objectinventory name -or- a key to a sound + // 20080530 Updated to remove code duplication + public void llPlaySound(string sound, double volume) + { + m_host.AddScriptLPS(1); + + // send the sound, once, to all clients in range + m_host.SendSound(KeyOrName(sound).ToString(), volume, false, 0); + } + + // Xantor 20080528 we should do this differently. + // 1) apply the sound to the object + // 2) schedule full update + // just sending the sound out once doesn't work so well when other avatars come in view later on + // or when the prim gets moved, changed, sat on, whatever + // see large number of mantises (mantes?) + // 20080530 Updated to remove code duplication + // 20080530 Stop sound if there is one, otherwise volume only changes don't work + public void llLoopSound(string sound, double volume) + { + m_host.AddScriptLPS(1); + + if (m_host.Sound != UUID.Zero) + llStopSound(); + + m_host.Sound = KeyOrName(sound); + m_host.SoundGain = volume; + m_host.SoundFlags = 1; // looping + m_host.SoundRadius = 20; // Magic number, 20 seems reasonable. Make configurable? + + m_host.ScheduleFullUpdate(); + m_host.SendFullUpdateToAllClients(); + } + + 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); + // send the sound, once, to all clients in range + m_host.SendSound(KeyOrName(sound).ToString(), volume, false, 0); + } + + // Xantor 20080528: Clear prim data of sound instead + public void llStopSound() + { + m_host.AddScriptLPS(1); + + m_host.Sound = UUID.Zero; + m_host.SoundGain = 0; + m_host.SoundFlags = 0; + m_host.SoundRadius = 0; + + m_host.ScheduleFullUpdate(); + m_host.SendFullUpdateToAllClients(); + + // m_host.SendSound(UUID.Zero.ToString(), 1.0, false, 2); + } + + public void llPreloadSound(string sound) + { + m_host.AddScriptLPS(1); + m_host.PreloadSound(sound); + // ScriptSleep(1000); + } + + /// + /// Return a portion of the designated string bounded by + /// inclusive indices (start and end). As usual, the negative + /// indices, and the tolerance for out-of-bound values, makes + /// this more complicated than it might otherwise seem. + /// + + public LSL_String llGetSubString(string src, int start, int end) + { + + m_host.AddScriptLPS(1); + + // Normalize indices (if negative). + // After normlaization they may still be + // negative, but that is now relative to + // the start, rather than the end, of the + // sequence. + + if (start < 0) + { + start = src.Length+start; + } + if (end < 0) + { + end = src.Length+end; + } + + // Conventional substring + if (start <= end) + { + // Implies both bounds are out-of-range. + if (end < 0 || start >= src.Length) + { + return String.Empty; + } + // If end is positive, then it directly + // corresponds to the lengt of the substring + // needed (plus one of course). BUT, it + // must be within bounds. + if (end >= src.Length) + { + end = src.Length-1; + } + + if (start < 0) + { + return src.Substring(0,end+1); + } + // Both indices are positive + return src.Substring(start, (end+1) - start); + } + + // Inverted substring (end < start) + else + { + // Implies both indices are below the + // lower bound. In the inverted case, that + // means the entire string will be returned + // unchanged. + if (start < 0) + { + return src; + } + // If both indices are greater than the upper + // bound the result may seem initially counter + // intuitive. + if (end >= src.Length) + { + return src; + } + + if (end < 0) + { + if (start < src.Length) + { + return src.Substring(start); + } + else + { + return String.Empty; + } + } + else + { + if (start < src.Length) + { + return src.Substring(0,end+1) + src.Substring(start); + } + else + { + return src.Substring(0,end+1); + } + } + } + } + + /// + /// Delete substring removes the specified substring bounded + /// by the inclusive indices start and end. Indices may be + /// negative (indicating end-relative) and may be inverted, + /// i.e. end < start. + /// + + public LSL_String llDeleteSubString(string src, int start, int end) + { + + m_host.AddScriptLPS(1); + + // Normalize indices (if negative). + // After normlaization they may still be + // negative, but that is now relative to + // the start, rather than the end, of the + // sequence. + if (start < 0) + { + start = src.Length+start; + } + if (end < 0) + { + end = src.Length+end; + } + // Conventionally delimited substring + if (start <= end) + { + // If both bounds are outside of the existing + // string, then return unchanges. + if (end < 0 || start >= src.Length) + { + return src; + } + // At least one bound is in-range, so we + // need to clip the out-of-bound argument. + if (start < 0) + { + start = 0; + } + + if (end >= src.Length) + { + end = src.Length-1; + } + + return src.Remove(start,end-start+1); + } + // Inverted substring + else + { + // In this case, out of bounds means that + // the existing string is part of the cut. + if (start < 0 || end >= src.Length) + { + return String.Empty; + } + + if (end > 0) + { + if (start < src.Length) + { + return src.Remove(start).Remove(0,end+1); + } + else + { + return src.Remove(0,end+1); + } + } + else + { + if (start < src.Length) + { + return src.Remove(start); + } + else + { + return src; + } + } + } + } + + /// + /// Insert string inserts the specified string identified by src + /// at the index indicated by index. Index may be negative, in + /// which case it is end-relative. The index may exceed either + /// string bound, with the result being a concatenation. + /// + + public LSL_String llInsertString(string dest, int index, string src) + { + + m_host.AddScriptLPS(1); + + // Normalize indices (if negative). + // After normlaization they may still be + // negative, but that is now relative to + // the start, rather than the end, of the + // sequence. + if (index < 0) + { + index = dest.Length+index; + + // Negative now means it is less than the lower + // bound of the string. + + if (index < 0) + { + return src+dest; + } + + } + + if (index >= dest.Length) + { + return dest+src; + } + + // The index is in bounds. + // In this case the index refers to the index that will + // be assigned to the first character of the inserted string. + // So unlike the other string operations, we do not add one + // to get the correct string length. + return dest.Substring(0,index)+src+dest.Substring(index); + + } + + public LSL_String llToUpper(string src) + { + m_host.AddScriptLPS(1); + return src.ToUpper(); + } + + public LSL_String llToLower(string src) + { + m_host.AddScriptLPS(1); + return src.ToLower(); + } + + public LSL_Integer llGiveMoney(string destination, int amount) + { + UUID invItemID=InventorySelf(); + if (invItemID == UUID.Zero) + return 0; + + m_host.AddScriptLPS(1); + + if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) + return 0; + + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_DEBIT) == 0) + { + LSLError("No permissions to give money"); + return 0; + } + + UUID toID=new UUID(); + + if (!UUID.TryParse(destination, out toID)) + { + LSLError("Bad key in llGiveMoney"); + return 0; + } + + IMoneyModule money=World.RequestModuleInterface(); + + if (money == null) + { + NotImplemented("llGiveMoney"); + return 0; + } + + bool result=money.ObjectGiveMoney(m_host.ParentGroup.RootPart.UUID, m_host.ParentGroup.RootPart.OwnerID, toID, amount); + + if (result) + return 1; + + return 0; + } + + public void llMakeExplosion() + { + m_host.AddScriptLPS(1); + Deprecated("llMakeExplosion"); + // ScriptSleep(100); + } + + public void llMakeFountain() + { + m_host.AddScriptLPS(1); + Deprecated("llMakeFountain"); + // ScriptSleep(100); + } + + public void llMakeSmoke() + { + m_host.AddScriptLPS(1); + Deprecated("llMakeSmoke"); + // ScriptSleep(100); + } + + public void llMakeFire() + { + m_host.AddScriptLPS(1); + Deprecated("llMakeFire"); + // ScriptSleep(100); + } + + public void llRezAtRoot(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param) + { + m_host.AddScriptLPS(1); + + if (Double.IsNaN(rot.x) || Double.IsNaN(rot.y) || Double.IsNaN(rot.z) || Double.IsNaN(rot.s)) + return; + float dist = (float)llVecDist(llGetPos(), pos); + + if (dist > m_ScriptDistanceFactor * 10.0f) + return; + + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == inventory) + { + // make sure we're an object. + if (inv.Value.InvType != (int)InventoryType.Object) + { + llSay(0, "Unable to create requested object. Object is missing from database."); + return; + } + + Vector3 llpos = new Vector3((float)pos.x, (float)pos.y, (float)pos.z); + + // test if we're further away then 10m + if (Util.GetDistanceTo(llpos, m_host.AbsolutePosition) > 10) + return; // wiki says, if it's further away then 10m, silently fail. + + Vector3 llvel = new Vector3((float)vel.x, (float)vel.y, (float)vel.z); + + // need the magnitude later + float velmag = (float)Util.GetMagnitude(llvel); + + SceneObjectGroup new_group = World.RezObject(m_host, inv.Value, llpos, new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s), llvel, param); + + // If either of these are null, then there was an unknown error. + if (new_group == null) + continue; + if (new_group.RootPart == null) + continue; + + // objects rezzed with this method are die_at_edge by default. + new_group.RootPart.SetDieAtEdge(true); + + m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( + "object_rez", new Object[] { + new LSL_String( + new_group.RootPart.UUID.ToString()) }, + new DetectParams[0])); + + float groupmass = new_group.GetMass(); + + //Recoil. + llApplyImpulse(new LSL_Vector(llvel.X * groupmass, llvel.Y * groupmass, llvel.Z * groupmass), 0); + // Variable script delay? (see (http://wiki.secondlife.com/wiki/LSL_Delay) + ScriptSleep((int)((groupmass * velmag) / 10)); + // ScriptSleep(100); + return; + } + } + llSay(0, "Could not find object " + inventory); + } + + public void llRezObject(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param) + { + llRezAtRoot(inventory, pos, vel, rot, param); + } + + public void llLookAt(LSL_Vector 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 + AsyncCommands.TimerPlugin.SetTimerEvent(m_localID, m_itemID, sec); + } + + public void llSleep(double sec) + { + m_host.AddScriptLPS(1); + Thread.Sleep((int)(sec * 1000)); + } + + public LSL_Float 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) + { + if (!m_host.TaskInventory.ContainsKey(InventorySelf())) + { + return; + } + + if (m_host.TaskInventory[InventorySelf()].PermsGranter != UUID.Zero) + { + ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[InventorySelf()].PermsGranter); + + if (presence != null) + { + if ((m_host.TaskInventory[InventorySelf()].PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0) + { + presence.RegisterControlEventsToScript(controls, accept, pass_on, m_localID, m_itemID); + + } + } + } + + m_host.AddScriptLPS(1); + } + + public void llReleaseControls() + { + m_host.AddScriptLPS(1); + + if (!m_host.TaskInventory.ContainsKey(InventorySelf())) + { + return; + } + + if (m_host.TaskInventory[InventorySelf()].PermsGranter != UUID.Zero) + { + ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[InventorySelf()].PermsGranter); + + if (presence != null) + { + if ((m_host.TaskInventory[InventorySelf()].PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0) + { + // Unregister controls from Presence + presence.UnRegisterControlEventsToScript(m_localID, m_itemID); + // Remove Take Control permission. + m_host.TaskInventory[InventorySelf()].PermsMask &= ~ScriptBaseClass.PERMISSION_TAKE_CONTROLS; + } + } + } + } + + public void llAttachToAvatar(int attachment) + { + m_host.AddScriptLPS(1); + NotImplemented("llAttachToAvatar"); + } + + public void llDetachFromAvatar() + { + m_host.AddScriptLPS(1); + NotImplemented("llDetachFromAvatar"); + } + + public void llTakeCamera(string avatar) + { + m_host.AddScriptLPS(1); + Deprecated("llTakeCamera"); + } + + public void llReleaseCamera(string avatar) + { + m_host.AddScriptLPS(1); + Deprecated("llReleaseCamera"); + } + + public LSL_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()); + UUID friendTransactionID = UUID.Random(); + + //m_pendingFriendRequests.Add(friendTransactionID, fromAgentID); + + GridInstantMessage msg = new GridInstantMessage(); + msg.fromAgentID = new Guid(m_host.UUID.ToString()); // fromAgentID.Guid; + msg.fromAgentSession = new Guid(friendTransactionID.ToString());// fromAgentSession.UUID; + msg.toAgentID = new Guid(user); // toAgentID.Guid; + msg.imSessionID = new 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 = Vector3.Zero;// new Vector3(m_host.AbsolutePosition); + msg.RegionID = World.RegionInfo.RegionID.Guid;//RegionID.Guid; + msg.binaryBucket = new byte[0];// binaryBucket; + World.TriggerGridInstantMessage(msg, InstantMessageReceiver.IMModule); + // ScriptSleep(2000); + } + + public void llEmail(string address, string subject, string message) + { + m_host.AddScriptLPS(1); + IEmailModule emailModule = m_ScriptEngine.World.RequestModuleInterface(); + if (emailModule == null) + return; + + emailModule.SendEmail(m_host.UUID, address, subject, message); + // ScriptSleep(20000); + } + + public void llGetNextEmail(string address, string subject) + { + m_host.AddScriptLPS(1); + IEmailModule emailModule = m_ScriptEngine.World.RequestModuleInterface(); + if (emailModule == null) + return; + Email email; + + email = emailModule.GetNextEmail(m_host.UUID, address, subject); + + if (email == null) + return; + + m_ScriptEngine.PostObjectEvent(m_host.LocalId, + new EventParams("email", + new Object[] { + new LSL_String(email.time), + new LSL_String(email.sender), + new LSL_String(email.subject), + new LSL_String(email.message), + new LSL_Integer(email.numLeft)}, + new DetectParams[0])); + + } + + public LSL_String llGetKey() + { + m_host.AddScriptLPS(1); + return m_host.UUID.ToString(); + } + + public void llSetBuoyancy(double buoyancy) + { + m_host.AddScriptLPS(1); + if (m_host.ParentGroup != null) + { + if (m_host.ParentGroup.RootPart != null) + { + m_host.ParentGroup.RootPart.SetBuoyancy((float)buoyancy); + } + } + } + + + + public void llSetHoverHeight(double height, int water, double tau) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetHoverHeight"); + } + + public void llStopHover() + { + m_host.AddScriptLPS(1); + NotImplemented("llStopHover"); + } + + public void llMinEventDelay(double delay) + { + m_host.AddScriptLPS(1); + NotImplemented("llMinEventDelay"); + } + + public void llSoundPreload() + { + m_host.AddScriptLPS(1); + Deprecated("llSoundPreload"); + } + + public void llRotLookAt(LSL_Rotation target, double strength, double damping) + { + m_host.AddScriptLPS(1); + NotImplemented("llRotLookAt"); + } + + public LSL_Integer 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); + + UUID invItemID=InventorySelf(); + if (invItemID == UUID.Zero) + return; + + if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) + return; + + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0) + { + ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[invItemID].PermsGranter); + + if (presence != null) + { + // Do NOT try to parse UUID, animations cannot be triggered by ID + UUID animID=InventoryKey(anim, (int)AssetType.Animation); + if (animID == UUID.Zero) + presence.AddAnimation(anim); + else + presence.AddAnimation(animID); + } + } + } + + public void llStopAnimation(string anim) + { + m_host.AddScriptLPS(1); + + UUID invItemID=InventorySelf(); + if (invItemID == UUID.Zero) + return; + + if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) + return; + + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0) + { + UUID animID = new UUID(); + + if (!UUID.TryParse(anim, out animID)) + { + animID=InventoryKey(anim); + } + + ScenePresence presence = World.GetScenePresence(m_host.TaskInventory[invItemID].PermsGranter); + + if (presence != null) + { + if (animID == UUID.Zero) + presence.RemoveAnimation(anim); + else + presence.RemoveAnimation(animID); + } + } + } + + public void llPointAt() + { + m_host.AddScriptLPS(1); + NotImplemented("llPointAt"); + } + + public void llStopPointAt() + { + m_host.AddScriptLPS(1); + NotImplemented("llStopPointAt"); + } + + public void llTargetOmega(LSL_Vector axis, double spinrate, double gain) + { + m_host.AddScriptLPS(1); + m_host.RotationalVelocity = new Vector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate)); + m_host.AngularVelocity = new Vector3((float)(axis.x * spinrate), (float)(axis.y * spinrate), (float)(axis.z * spinrate)); + m_host.ScheduleTerseUpdate(); + m_host.SendTerseUpdateToAllClients(); + m_host.ParentGroup.HasGroupChanged = true; + } + + public LSL_Integer llGetStartParameter() + { + m_host.AddScriptLPS(1); + return m_ScriptEngine.GetStartParameter(m_itemID); + } + + public void llGodLikeRezObject(string inventory, LSL_Vector pos) + { + m_host.AddScriptLPS(1); + NotImplemented("llGodLikeRezObject"); + } + + public void llRequestPermissions(string agent, int perm) + { + UUID agentID=new UUID(); + + if (!UUID.TryParse(agent, out agentID)) + return; + + UUID invItemID=InventorySelf(); + + if (invItemID == UUID.Zero) + return; // Not in a prim? How?? + + if (agentID == UUID.Zero || perm == 0) // Releasing permissions + { + llReleaseControls(); + + m_host.TaskInventory[invItemID].PermsGranter=UUID.Zero; + m_host.TaskInventory[invItemID].PermsMask=0; + + m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( + "run_time_permissions", new Object[] { + new LSL_Integer(0) }, + new DetectParams[0])); + + return; + } + + if ( m_host.TaskInventory[invItemID].PermsGranter != agentID || (perm & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0) + llReleaseControls(); + + m_host.AddScriptLPS(1); + + if (m_host.ParentGroup.RootPart.IsAttachment && agent == m_host.ParentGroup.RootPart.AttachedAvatar) + { + // When attached, certain permissions are implicit if requested from owner + int implicitPerms = ScriptBaseClass.PERMISSION_TAKE_CONTROLS | + ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION | + ScriptBaseClass.PERMISSION_CONTROL_CAMERA | + ScriptBaseClass.PERMISSION_ATTACH; + + if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms + { + m_host.TaskInventory[invItemID].PermsGranter=agentID; + m_host.TaskInventory[invItemID].PermsMask=perm; + + m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( + "run_time_permissions", new Object[] { + new LSL_Integer(perm) }, + new DetectParams[0])); + + return; + } + } + else if (m_host.SitTargetAvatar == agentID) // Sitting avatar + { + // When agent is sitting, certain permissions are implicit if requested from sitting agent + int implicitPerms = ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION | + ScriptBaseClass.PERMISSION_CONTROL_CAMERA | + ScriptBaseClass.PERMISSION_TRACK_CAMERA; + + if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms + { + m_host.TaskInventory[invItemID].PermsGranter=agentID; + m_host.TaskInventory[invItemID].PermsMask=perm; + + m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( + "run_time_permissions", new Object[] { + new LSL_Integer(perm) }, + new DetectParams[0])); + + return; + } + } + + ScenePresence presence = World.GetScenePresence(agentID); + + if (presence != null) + { + string ownerName=resolveName(m_host.ParentGroup.RootPart.OwnerID); + if (ownerName == String.Empty) + ownerName="(hippos)"; + + if (!m_waitingForScriptAnswer) + { + m_host.TaskInventory[invItemID].PermsGranter=agentID; + m_host.TaskInventory[invItemID].PermsMask=0; + presence.ControllingClient.OnScriptAnswer+=handleScriptAnswer; + m_waitingForScriptAnswer=true; + } + + presence.ControllingClient.SendScriptQuestion(m_host.UUID, m_host.ParentGroup.RootPart.Name, ownerName, invItemID, perm); + return; + } + + // Requested agent is not in range, refuse perms + m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( + "run_time_permissions", new Object[] { + new LSL_Integer(0) }, + new DetectParams[0])); + } + + void handleScriptAnswer(IClientAPI client, UUID taskID, UUID itemID, int answer) + { + if (taskID != m_host.UUID) + return; + + UUID invItemID=InventorySelf(); + + if (invItemID == UUID.Zero) + return; + + client.OnScriptAnswer-=handleScriptAnswer; + m_waitingForScriptAnswer=false; + + if ((answer & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0) + llReleaseControls(); + + m_host.TaskInventory[invItemID].PermsMask=answer; + m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( + "run_time_permissions", new Object[] { + new LSL_Integer(answer) }, + new DetectParams[0])); + } + + public LSL_String llGetPermissionsKey() + { + m_host.AddScriptLPS(1); + + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 10 && item.ItemID == m_itemID) + { + return item.PermsGranter.ToString(); + } + } + + return UUID.Zero.ToString(); + } + + public LSL_Integer llGetPermissions() + { + m_host.AddScriptLPS(1); + + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 10 && item.ItemID == m_itemID) + { + return item.PermsMask; + } + } + + return 0; + } + + public LSL_Integer llGetLinkNumber() + { + m_host.AddScriptLPS(1); + + if (m_host.ParentGroup.Children.Count > 1) + { + return m_host.LinkNum; + } + else + { + return 0; + } + } + + public void llSetLinkColor(int linknumber, LSL_Vector color, int face) + { + List parts = GetLinkParts(linknumber); + + foreach (SceneObjectPart part in parts) + SetColor(part, color, face); + } + + public void llCreateLink(string target, int parent) + { + m_host.AddScriptLPS(1); + UUID invItemID = InventorySelf(); + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0) { + ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!"); + return; + } + IClientAPI client = World.GetScenePresence(m_host.TaskInventory[invItemID].PermsGranter).ControllingClient; + SceneObjectPart targetPart = World.GetSceneObjectPart(target); + SceneObjectGroup parentPrim = null, childPrim = null; + if (targetPart != null) + { + if (parent != 0) { + parentPrim = m_host.ParentGroup; + childPrim = targetPart.ParentGroup; + } + else + { + parentPrim = targetPart.ParentGroup; + childPrim = m_host.ParentGroup; + } +// byte uf = childPrim.RootPart.UpdateFlag; + childPrim.RootPart.UpdateFlag = 0; + parentPrim.LinkToGroup(childPrim); +// if (uf != (Byte)0) +// parent.RootPart.UpdateFlag = uf; + } + parentPrim.TriggerScriptChangedEvent(Changed.LINK); + parentPrim.RootPart.AddFlag(PrimFlags.CreateSelected); + parentPrim.HasGroupChanged = true; + parentPrim.ScheduleGroupForFullUpdate(); + parentPrim.GetProperties(client); + + ScriptSleep(1000); + } + + public void llBreakLink(int linknum) + { + m_host.AddScriptLPS(1); + UUID invItemID = InventorySelf(); + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0) + { + ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!"); + return; + } + if (linknum < ScriptBaseClass.LINK_THIS) + return; + SceneObjectGroup parentPrim = m_host.ParentGroup; + SceneObjectPart childPrim = null; + switch (linknum) + { + case ScriptBaseClass.LINK_ROOT: + break; + case ScriptBaseClass.LINK_SET: + case ScriptBaseClass.LINK_ALL_OTHERS: + case ScriptBaseClass.LINK_ALL_CHILDREN: + case ScriptBaseClass.LINK_THIS: + foreach (SceneObjectPart part in parentPrim.Children.Values) + { + if (part.UUID != m_host.UUID) + { + childPrim = part; + break; + } + } + break; + default: + childPrim = parentPrim.GetLinkNumPart(linknum); + if (childPrim.UUID == m_host.UUID) + childPrim = null; + break; + } + if (linknum == ScriptBaseClass.LINK_ROOT) + { + // Restructuring Multiple Prims. + List parts = new List(parentPrim.Children.Values); + parts.Remove(parentPrim.RootPart); + foreach (SceneObjectPart part in parts) + { + parentPrim.DelinkFromGroup(part.LocalId, true); + } + parentPrim.TriggerScriptChangedEvent(Changed.LINK); + if (parts.Count > 0) { + SceneObjectPart newRoot = parts[0]; + parts.Remove(newRoot); + foreach (SceneObjectPart part in parts) + { + part.UpdateFlag = 0; + newRoot.ParentGroup.LinkToGroup(part.ParentGroup); + } + } + } + else + { + if (childPrim == null) + return; + parentPrim.DelinkFromGroup(childPrim.LocalId, true); + parentPrim.TriggerScriptChangedEvent(Changed.LINK); + } + } + + public void llBreakAllLinks() + { + m_host.AddScriptLPS(1); + SceneObjectGroup parentPrim = m_host.ParentGroup; + List parts = new List(parentPrim.Children.Values); + parts.Remove(parentPrim.RootPart); + foreach (SceneObjectPart part in parts) + { + parentPrim.DelinkFromGroup(part.LocalId, true); + parentPrim.TriggerScriptChangedEvent(Changed.LINK); + } + } + + public LSL_String llGetLinkKey(int linknum) + { + m_host.AddScriptLPS(1); + SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum); + if (part != null) + { + return part.UUID.ToString(); + } + else + { + return UUID.Zero.ToString(); + } + } + + public LSL_String llGetLinkName(int linknum) + { + m_host.AddScriptLPS(1); + SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknum); + if (part != null) + { + return part.Name; + } + else + { + return ""; + } + } + + public LSL_Integer llGetInventoryNumber(int type) + { + m_host.AddScriptLPS(1); + int count = 0; + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Type == type || type == -1) + { + count = count + 1; + } + } + return count; + } + + public LSL_String llGetInventoryName(int type, int number) + { + m_host.AddScriptLPS(1); + ArrayList keys = new ArrayList(); + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Type == type || type == -1) + { + keys.Add(inv.Value.Name); + } + } + if (keys.Count == 0) + { + return String.Empty; + } + keys.Sort(); + if (keys.Count > number) + { + return (string)keys[number]; + } + return String.Empty; + } + + public LSL_Float llGetEnergy() + { + m_host.AddScriptLPS(1); + // TODO: figure out real energy value + return 1.0f; + } + + public void llGiveInventory(string destination, string inventory) + { + m_host.AddScriptLPS(1); + bool found = false; + UUID destId = UUID.Zero; + UUID objId = UUID.Zero; + + if (!UUID.TryParse(destination, out destId)) + { + llSay(0, "Could not parse key " + destination); + return; + } + + // move the first object found with this inventory name + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == inventory) + { + found = true; + objId = inv.Key; + break; + } + } + + if (!found) + { + llSay(0, String.Format("Could not find object '{0}'", inventory)); + throw new Exception(String.Format("The inventory object '{0}' could not be found", inventory)); + } + + // check if destination is an avatar + if (World.GetScenePresence(destId) != null) + { + // destination is an avatar + World.MoveTaskInventoryItem(destId, null, m_host, objId); + } + else + { + // destination is an object + World.MoveTaskInventoryItem(destId, m_host, objId); + } + // ScriptSleep(3000); + } + + public void llRemoveInventory(string name) + { + m_host.AddScriptLPS(1); + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Name == name) + { + m_host.RemoveInventoryItem(item.ItemID); + return; + } + } + } + + public void llSetText(string text, LSL_Vector color, double alpha) + { + m_host.AddScriptLPS(1); + Vector3 av3 = new Vector3(Util.Clip((float)color.x, 0.0f, 1.0f), + Util.Clip((float)color.y, 0.0f, 1.0f), + Util.Clip((float)color.z, 0.0f, 1.0f)); + m_host.SetText(text, av3, Util.Clip((float)alpha, 0.0f, 1.0f)); + m_host.ParentGroup.HasGroupChanged = true; + } + + public LSL_Float llWater(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + return World.RegionInfo.RegionSettings.WaterHeight; + } + + public void llPassTouches(int pass) + { + m_host.AddScriptLPS(1); + NotImplemented("llPassTouches"); + } + + public LSL_String llRequestAgentData(string id, int data) + { + m_host.AddScriptLPS(1); + + UserProfileData userProfile = + World.CommsManager.UserService.GetUserProfile(id); + + UserAgentData userAgent = + World.CommsManager.UserService.GetAgentByUUID(id); + + if (userProfile == null || userAgent == null) + return UUID.Zero.ToString(); + + string reply = String.Empty; + + switch (data) + { + case 1: // DATA_ONLINE (0|1) + // TODO: implement fetching of this information + if (userProfile.CurrentAgent.AgentOnline) + reply = "1"; + else + reply = "0"; + break; + case 2: // DATA_NAME (First Last) + reply = userProfile.FirstName + " " + userProfile.SurName; + break; + case 3: // DATA_BORN (YYYY-MM-DD) + DateTime born = new DateTime(1970, 1, 1, 0, 0, 0, 0); + born = born.AddSeconds(userProfile.Created); + reply = born.ToString("yyyy-MM-dd"); + break; + case 4: // DATA_RATING (0,0,0,0,0,0) + reply = "0,0,0,0,0,0"; + break; + case 8: // DATA_PAYINFO (0|1|2|3) + reply = "0"; + break; + default: + return UUID.Zero.ToString(); // Raise no event + } + + UUID rq = UUID.Random(); + + UUID tid = AsyncCommands. + DataserverPlugin.RegisterRequest(m_localID, + m_itemID, rq.ToString()); + + AsyncCommands. + DataserverPlugin.DataserverReply(rq.ToString(), reply); + + // ScriptSleep(100); + return tid.ToString(); + } + + public LSL_String llRequestInventoryData(string name) + { + m_host.AddScriptLPS(1); + + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 3 && item.Name == name) + { + UUID tid = AsyncCommands. + DataserverPlugin.RegisterRequest(m_localID, + m_itemID, item.AssetID.ToString()); + + Vector3 region = new Vector3( + World.RegionInfo.RegionLocX * Constants.RegionSize, + World.RegionInfo.RegionLocY * Constants.RegionSize, + 0); + + World.AssetCache.GetAsset(item.AssetID, + delegate(UUID i, AssetBase a) + { + AssetLandmark lm = new AssetLandmark(a); + + float rx = (uint)(lm.RegionHandle >> 32); + float ry = (uint)lm.RegionHandle; + region = lm.Position + new Vector3(rx, ry, 0) - region; + + string reply = region.ToString(); + AsyncCommands. + DataserverPlugin.DataserverReply(i.ToString(), + reply); + }, false); + + // ScriptSleep(1000); + return tid.ToString(); + } + } + // ScriptSleep(1000); + return String.Empty; + } + + public void llSetDamage(double damage) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetDamage"); + } + + public void llTeleportAgentHome(string agent) + { + m_host.AddScriptLPS(1); + UUID agentId = new UUID(); + if (UUID.TryParse(agent, out agentId)) + { + ScenePresence presence = World.GetScenePresence(agentId); + if (presence != null) + { + // agent must be over the owners land + if (m_host.OwnerID == World.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y)) + World.TeleportClientHome(agentId, presence.ControllingClient); + } + } + // ScriptSleep(5000); + } + + public void llTextBox(string avatar, string message, int chat_channel) + { + m_host.AddScriptLPS(1); + NotImplemented("llTextBox"); + } + + public void llModifyLand(int action, int brush) + { + m_host.AddScriptLPS(1); + World.ExternalChecks.ExternalChecksCanTerraformLand(m_host.OwnerID, new Vector3(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, 0)); + } + + 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 LSL_String llGetAnimation(string id) + { + m_host.AddScriptLPS(1); + NotImplemented("llGetAnimation"); + return String.Empty; + } + + public void llMessageLinked(int linknum, int num, string msg, string id) + { + + m_host.AddScriptLPS(1); + + // uint partLocalID; + UUID partItemID; + + switch ((int)linknum) + { + + case (int)ScriptBaseClass.LINK_ROOT: + + SceneObjectPart part = m_host.ParentGroup.RootPart; + + foreach (TaskInventoryItem item in part.TaskInventory.Values) + { + if (item.Type == 10) + { + // partLocalID = part.LocalId; + partItemID = item.ItemID; + + object[] resobj = new object[] + { + new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) + }; + + m_ScriptEngine.PostScriptEvent(partItemID, + new EventParams("link_message", + resobj, new DetectParams[0])); + } + } + + break; + + case (int)ScriptBaseClass.LINK_SET: + + foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) + { + + foreach (TaskInventoryItem item in partInst.TaskInventory.Values) + { + if (item.Type == 10) + { + // partLocalID = partInst.LocalId; + partItemID = item.ItemID; + Object[] resobj = new object[] + { + new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) + }; + + m_ScriptEngine.PostScriptEvent(partItemID, + new EventParams("link_message", + resobj, new DetectParams[0])); + } + } + } + + break; + + case (int)ScriptBaseClass.LINK_ALL_OTHERS: + + foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) + { + + if (partInst.LocalId != m_host.LocalId) + { + + foreach (TaskInventoryItem item in partInst.TaskInventory.Values) + { + if (item.Type == 10) + { + // partLocalID = partInst.LocalId; + partItemID = item.ItemID; + Object[] resobj = new object[] + { + new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) + }; + + m_ScriptEngine.PostScriptEvent(partItemID, + new EventParams("link_message", + resobj, new DetectParams[0])); + } + } + + } + } + + break; + + case (int)ScriptBaseClass.LINK_ALL_CHILDREN: + + foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) + { + + if (partInst.LocalId != m_host.ParentGroup.RootPart.LocalId) + { + + foreach (TaskInventoryItem item in partInst.TaskInventory.Values) + { + if (item.Type == 10) + { + // partLocalID = partInst.LocalId; + partItemID = item.ItemID; + Object[] resobj = new object[] + { + new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) + }; + + m_ScriptEngine.PostScriptEvent(partItemID, + new EventParams("link_message", + resobj, new DetectParams[0])); + } + } + + } + } + + break; + + case (int)ScriptBaseClass.LINK_THIS: + + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 10) + { + partItemID = item.ItemID; + + object[] resobj = new object[] + { + new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) + }; + + m_ScriptEngine.PostScriptEvent(partItemID, + new EventParams("link_message", + resobj, new DetectParams[0])); + } + } + + break; + + default: + + foreach (SceneObjectPart partInst in m_host.ParentGroup.GetParts()) + { + + if ((partInst.LinkNum) == linknum) + { + + foreach (TaskInventoryItem item in partInst.TaskInventory.Values) + { + if (item.Type == 10) + { + // partLocalID = partInst.LocalId; + partItemID = item.ItemID; + Object[] resObjDef = new object[] + { + new LSL_Integer(m_host.LinkNum), new LSL_Integer(num), new LSL_String(msg), new LSL_String(id) + }; + + m_ScriptEngine.PostScriptEvent(partItemID, + new EventParams("link_message", + resObjDef, new DetectParams[0])); + } + } + + } + } + + break; + + } + + } + + public void llPushObject(string target, LSL_Vector impulse, LSL_Vector ang_impulse, int local) + { + m_host.AddScriptLPS(1); + SceneObjectPart targ = World.GetSceneObjectPart(target); + if (targ == null) + return; + targ.ApplyImpulse(new Vector3((float)impulse.x, (float)impulse.y, (float)impulse.z), local != 0); + } + + public void llPassCollisions(int pass) + { + m_host.AddScriptLPS(1); + NotImplemented("llPassCollisions"); + } + + public LSL_String llGetScriptName() + { + + string result = String.Empty; + + m_host.AddScriptLPS(1); + + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 10 && item.ItemID == m_itemID) + { + result = item.Name!=null?item.Name:String.Empty; + break; + } + } + + return result; + + } + + // this function to understand which shape it is (taken from meshmerizer) + // quite useful can be used by meshmerizer to have a centralized point of understanding the shape + // except that it refers to scripting constants + private int getScriptPrimType(PrimitiveBaseShape primShape) + { + if (primShape.SculptEntry) + return ScriptBaseClass.PRIM_TYPE_SCULPT; + if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.Square) + { + if (primShape.PathCurve == (byte)Extrusion.Straight) + return ScriptBaseClass.PRIM_TYPE_BOX; + else if (primShape.PathCurve == (byte)Extrusion.Curve1) + return ScriptBaseClass.PRIM_TYPE_TUBE; + } + else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.Circle) + { + if (primShape.PathCurve == (byte)Extrusion.Straight) + return ScriptBaseClass.PRIM_TYPE_CYLINDER; + // ProfileCurve seems to combine hole shape and profile curve so we need to only compare against the lower 3 bits + else if (primShape.PathCurve == (byte)Extrusion.Curve1) + return ScriptBaseClass.PRIM_TYPE_TORUS; + } + else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.HalfCircle) + { + if (primShape.PathCurve == (byte)Extrusion.Curve1 || primShape.PathCurve == (byte)Extrusion.Curve2) + return ScriptBaseClass.PRIM_TYPE_SPHERE; + } + else if ((primShape.ProfileCurve & 0x07) == (byte)ProfileShape.EquilateralTriangle) + { + if (primShape.PathCurve == (byte)Extrusion.Straight) + return ScriptBaseClass.PRIM_TYPE_PRISM; + else if (primShape.PathCurve == (byte)Extrusion.Curve1) + return ScriptBaseClass.PRIM_TYPE_RING; + } + return ScriptBaseClass.PRIM_TYPE_BOX; + } + + // Helper functions to understand if object has cut, hollow, dimple, and other affecting number of faces + private void hasCutHollowDimpleProfileCut(int primType, PrimitiveBaseShape shape, out bool hasCut, out bool hasHollow, + out bool hasDimple, out bool hasProfileCut) + { + if (primType == ScriptBaseClass.PRIM_TYPE_BOX + || + primType == ScriptBaseClass.PRIM_TYPE_CYLINDER + || + primType == ScriptBaseClass.PRIM_TYPE_PRISM) + + hasCut = (shape.ProfileBegin > 0) || (shape.ProfileEnd > 0); + else + hasCut = (shape.PathBegin > 0) || (shape.PathEnd > 0); + + hasHollow = shape.ProfileHollow > 0; + hasDimple = (shape.ProfileBegin > 0) || (shape.ProfileEnd > 0); // taken from llSetPrimitiveParms + hasProfileCut = hasDimple; // is it the same thing? + + } + + public LSL_Integer llGetNumberOfSides() + { + m_host.AddScriptLPS(1); + + return GetNumberOfSides(m_host); + } + + private int GetNumberOfSides(SceneObjectPart part) + { + int ret = 0; + bool hasCut; + bool hasHollow; + bool hasDimple; + bool hasProfileCut; + + int primType = getScriptPrimType(part.Shape); + hasCutHollowDimpleProfileCut(primType, part.Shape, out hasCut, out hasHollow, out hasDimple, out hasProfileCut); + + switch (primType) + { + case ScriptBaseClass.PRIM_TYPE_BOX: + ret = 6; + if (hasCut) ret += 2; + if (hasHollow) ret += 1; + break; + case ScriptBaseClass.PRIM_TYPE_CYLINDER: + ret = 3; + if (hasCut) ret += 2; + if (hasHollow) ret += 1; + break; + case ScriptBaseClass.PRIM_TYPE_PRISM: + ret = 5; + if (hasCut) ret += 2; + if (hasHollow) ret += 1; + break; + case ScriptBaseClass.PRIM_TYPE_SPHERE: + ret = 1; + if (hasCut) ret += 2; + if (hasDimple) ret += 2; + if (hasHollow) ret += 3; // Emulate lsl on secondlife (according to documentation it should have added only +1) + break; + case ScriptBaseClass.PRIM_TYPE_TORUS: + ret = 1; + if (hasCut) ret += 2; + if (hasProfileCut) ret += 2; + if (hasHollow) ret += 1; + break; + case ScriptBaseClass.PRIM_TYPE_TUBE: + ret = 4; + if (hasCut) ret += 2; + if (hasProfileCut) ret += 2; + if (hasHollow) ret += 1; + break; + case ScriptBaseClass.PRIM_TYPE_RING: + ret = 3; + if (hasCut) ret += 2; + if (hasProfileCut) ret += 2; + if (hasHollow) ret += 1; + break; + case ScriptBaseClass.PRIM_TYPE_SCULPT: + ret = 1; + break; + } + return ret; + } + + + /* The new / changed functions were tested with the following LSL script: + + default + { + state_entry() + { + rotation rot = llEuler2Rot(<0,70,0> * DEG_TO_RAD); + + llOwnerSay("to get here, we rotate over: "+ (string) llRot2Axis(rot)); + llOwnerSay("and we rotate for: "+ (llRot2Angle(rot) * RAD_TO_DEG)); + + // convert back and forth between quaternion <-> vector and angle + + rotation newrot = llAxisAngle2Rot(llRot2Axis(rot),llRot2Angle(rot)); + + llOwnerSay("Old rotation was: "+(string) rot); + llOwnerSay("re-converted rotation is: "+(string) newrot); + + llSetRot(rot); // to check the parameters in the prim + } + } + */ + + + + // Xantor 29/apr/2008 + // Returns rotation described by rotating angle radians about axis. + // q = cos(a/2) + i (x * sin(a/2)) + j (y * sin(a/2)) + k (z * sin(a/2)) + public LSL_Rotation llAxisAngle2Rot(LSL_Vector axis, double angle) + { + m_host.AddScriptLPS(1); + + double x, y, z, s, t; + + s = Math.Cos(angle / 2); + t = Math.Sin(angle / 2); // temp value to avoid 2 more sin() calcs + x = axis.x * t; + y = axis.y * t; + z = axis.z * t; + + return new LSL_Rotation(x,y,z,s); + } + + + // Xantor 29/apr/2008 + // converts a Quaternion to X,Y,Z axis rotations + public LSL_Vector llRot2Axis(LSL_Rotation rot) + { + m_host.AddScriptLPS(1); + double x,y,z; + + if (rot.s > 1) // normalization needed + { + double length = Math.Sqrt(rot.x * rot.x + rot.y * rot.y + + rot.z * rot.z + rot.s * rot.s); + + rot.x /= length; + rot.y /= length; + rot.z /= length; + rot.s /= length; + + } + + // double angle = 2 * Math.Acos(rot.s); + double s = Math.Sqrt(1 - rot.s * rot.s); + if (s < 0.001) + { + x = 1; + y = z = 0; + } + else + { + x = rot.x / s; // normalise axis + y = rot.y / s; + z = rot.z / s; + } + + return new LSL_Vector(x,y,z); + } + + + // Returns the angle of a quaternion (see llRot2Axis for the axis) + public LSL_Float llRot2Angle(LSL_Rotation rot) + { + m_host.AddScriptLPS(1); + + if (rot.s > 1) // normalization needed + { + double length = Math.Sqrt(rot.x * rot.x + rot.y * rot.y + + rot.z * rot.z + rot.s * rot.s); + + rot.x /= length; + rot.y /= length; + rot.z /= length; + rot.s /= length; + } + + double angle = 2 * Math.Acos(rot.s); + + return angle; + } + + public LSL_Float llAcos(double val) + { + m_host.AddScriptLPS(1); + return (double)Math.Acos(val); + } + + public LSL_Float llAsin(double val) + { + m_host.AddScriptLPS(1); + return (double)Math.Asin(val); + } + + // Xantor 30/apr/2008 + public LSL_Float llAngleBetween(LSL_Rotation a, LSL_Rotation b) + { + m_host.AddScriptLPS(1); + + return (double) Math.Acos(a.x * b.x + a.y * b.y + a.z * b.z + a.s * b.s) * 2; + } + + public LSL_String llGetInventoryKey(string name) + { + m_host.AddScriptLPS(1); + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == name) + { + if ((inv.Value.CurrentPermissions & (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify)) == (uint)(PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify)) + { + return inv.Value.AssetID.ToString(); + } + else + { + return UUID.Zero.ToString(); + } + } + } + return UUID.Zero.ToString(); + } + + public void llAllowInventoryDrop(int add) + { + m_host.AddScriptLPS(1); + + if (add != 0) + m_host.ParentGroup.RootPart.AllowedDrop = true; + else + m_host.ParentGroup.RootPart.AllowedDrop = false; + } + + public LSL_Vector llGetSunDirection() + { + m_host.AddScriptLPS(1); + + LSL_Vector SunDoubleVector3; + Vector3 SunFloatVector3; + + // sunPosition estate setting is set in OpenSim.Region.Environment.Modules.SunModule + // have to convert from Vector3 (float) to LSL_Vector (double) + SunFloatVector3 = World.RegionInfo.RegionSettings.SunVector; + SunDoubleVector3.x = (double)SunFloatVector3.X; + SunDoubleVector3.y = (double)SunFloatVector3.Y; + SunDoubleVector3.z = (double)SunFloatVector3.Z; + + return SunDoubleVector3; + } + + public LSL_Vector llGetTextureOffset(int face) + { + m_host.AddScriptLPS(1); + return GetTextureOffset(m_host, face); + } + + private LSL_Vector GetTextureOffset(SceneObjectPart part, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + LSL_Vector offset = new LSL_Vector(); + if (face == ScriptBaseClass.ALL_SIDES) + { + face = 0; + } + if (face >= 0 && face < GetNumberOfSides(part)) + { + offset.x = tex.GetFace((uint)face).OffsetU; + offset.y = tex.GetFace((uint)face).OffsetV; + offset.z = 0.0; + return offset; + } + else + { + return offset; + } + } + + public LSL_Vector llGetTextureScale(int side) + { + m_host.AddScriptLPS(1); + Primitive.TextureEntry tex = m_host.Shape.Textures; + LSL_Vector 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 LSL_Float llGetTextureRot(int face) + { + m_host.AddScriptLPS(1); + return GetTextureRot(m_host, face); + } + + private LSL_Float GetTextureRot(SceneObjectPart part, int face) + { + Primitive.TextureEntry tex = part.Shape.Textures; + if (face == -1) + { + face = 0; + } + if (face >= 0 && face < GetNumberOfSides(part)) + { + return tex.GetFace((uint)face).Rotation; + } + else + { + return 0.0; + } + } + + public LSL_Integer llSubStringIndex(string source, string pattern) + { + m_host.AddScriptLPS(1); + return source.IndexOf(pattern); + } + + public LSL_String llGetOwnerKey(string id) + { + m_host.AddScriptLPS(1); + UUID key = new UUID(); + if (UUID.TryParse(id, out key)) + { + try + { + SceneObjectPart obj = World.GetSceneObjectPart(World.Entities[key].LocalId); + if (obj == null) + return id; // the key is for an agent so just return the key + else + return obj.OwnerID.ToString(); + } + catch (KeyNotFoundException) + { + return id; // The Object/Agent not in the region so just return the key + } + } + else + { + return UUID.Zero.ToString(); + } + } + + public LSL_Vector llGetCenterOfMass() + { + m_host.AddScriptLPS(1); + NotImplemented("llGetCenterOfMass"); + return new LSL_Vector(); + } + + public LSL_List llListSort(LSL_List src, int stride, int ascending) + { + m_host.AddScriptLPS(1); + + if (stride <= 0) + { + stride = 1; + } + return src.Sort(stride, ascending); + } + + public LSL_Integer llGetListLength(LSL_List src) + { + m_host.AddScriptLPS(1); + + if (src == null) + { + return 0; + } + else + { + return src.Length; + } + } + + public LSL_Integer llList2Integer(LSL_List src, int index) + { + m_host.AddScriptLPS(1); + if (index < 0) + { + index = src.Length + index; + } + if (index >= src.Length) + { + return 0; + } + try + { + if (src.Data[index] is LSL_Integer) + return Convert.ToInt32(((LSL_Integer) src.Data[index]).value); + else if (src.Data[index] is LSL_Float) + return Convert.ToInt32(((LSL_Float) src.Data[index]).value); + else if (src.Data[index] is LSL_String) + return Convert.ToInt32(((LSL_String) src.Data[index]).m_string); + return Convert.ToInt32(src.Data[index]); + } + catch (FormatException) + { + return 0; + } + } + + public LSL_Float llList2Float(LSL_List src, int index) + { + m_host.AddScriptLPS(1); + if (index < 0) + { + index = src.Length + index; + } + if (index >= src.Length) + { + return 0.0; + } + try + { + if (src.Data[index] is LSL_Integer) + return Convert.ToDouble(((LSL_Integer) src.Data[index]).value); + else if (src.Data[index] is LSL_Float) + return Convert.ToDouble(((LSL_Float) src.Data[index]).value); + else if (src.Data[index] is LSL_String) + return Convert.ToDouble(((LSL_String) src.Data[index]).m_string); + return Convert.ToDouble(src.Data[index]); + } + catch (FormatException) + { + return 0.0; + } + } + + public LSL_String llList2String(LSL_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 LSL_String llList2Key(LSL_List src, int index) + { + m_host.AddScriptLPS(1); + if (index < 0) + { + index = src.Length + index; + } + if (index >= src.Length) + { + return ""; + } + return src.Data[index].ToString(); + } + + public LSL_Vector llList2Vector(LSL_List src, int index) + { + m_host.AddScriptLPS(1); + if (index < 0) + { + index = src.Length + index; + } + if (index >= src.Length) + { + return new LSL_Vector(0, 0, 0); + } + if (src.Data[index].GetType() == typeof(LSL_Vector)) + { + return (LSL_Vector)src.Data[index]; + } + else + { + return new LSL_Vector(src.Data[index].ToString()); + } + } + + public LSL_Rotation llList2Rot(LSL_List src, int index) + { + m_host.AddScriptLPS(1); + if (index < 0) + { + index = src.Length + index; + } + if (index >= src.Length) + { + return new LSL_Rotation(0, 0, 0, 1); + } + if (src.Data[index].GetType() == typeof(LSL_Rotation)) + { + return (LSL_Rotation)src.Data[index]; + } + else + { + return new LSL_Rotation(src.Data[index].ToString()); + } + } + + public LSL_List llList2List(LSL_List src, int start, int end) + { + m_host.AddScriptLPS(1); + return src.GetSublist(start, end); + } + + public LSL_List llDeleteSubList(LSL_List src, int start, int end) + { + return src.DeleteSublist(end, start); + } + + public LSL_Integer llGetListEntryType(LSL_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 LSL_Integer || src.Data[index] is Int32) + return 1; + if (src.Data[index] is LSL_Float || src.Data[index] is Single || src.Data[index] is Double) + return 2; + if (src.Data[index] is LSL_String || src.Data[index] is String) + { + UUID tuuid; + if (UUID.TryParse(src.Data[index].ToString(), out tuuid)) + { + return 4; + } + else + { + return 3; + } + } + if (src.Data[index] is LSL_Vector) + return 5; + if (src.Data[index] is LSL_Rotation) + return 6; + if (src.Data[index] is LSL_List) + return 7; + return 0; + + } + + /// + /// Process the supplied list and return the + /// content of the list formatted as a comma + /// separated list. There is a space after + /// each comma. + /// + + public LSL_String llList2CSV(LSL_List src) + { + + string ret = String.Empty; + int x = 0; + + m_host.AddScriptLPS(1); + + if (src.Data.Length > 0) + { + ret = src.Data[x++].ToString(); + for (; x < src.Data.Length; x++) + { + ret += ", "+src.Data[x].ToString(); + } + } + + return ret; + } + + /// + /// The supplied string is scanned for commas + /// and converted into a list. Commas are only + /// effective if they are encountered outside + /// of '<' '>' delimiters. Any whitespace + /// before or after an element is trimmed. + /// + + public LSL_List llCSV2List(string src) + { + + LSL_List result = new LSL_List(); + int parens = 0; + int start = 0; + int length = 0; + + m_host.AddScriptLPS(1); + + for (int i = 0; i < src.Length; i++) + { + switch (src[i]) + { + case '<': + parens++; + length++; + break; + case '>': + if (parens > 0) + parens--; + length++; + break; + case ',': + if (parens == 0) + { + result.Add(src.Substring(start,length).Trim()); + start += length+1; + length = 0; + } + else + { + length++; + } + break; + default: + length++; + break; + } + } + + result.Add(src.Substring(start,length).Trim()); + + return result; + } + + /// + /// Randomizes the list, be arbitrarily reordering + /// sublists of stride elements. As the stride approaches + /// the size of the list, the options become very + /// limited. + /// + /// + /// This could take a while for very large list + /// sizes. + /// + + public LSL_List llListRandomize(LSL_List src, int stride) + { + LSL_List result; + Random rand = new Random(); + + int chunkk; + int[] chunks; + + m_host.AddScriptLPS(1); + + if (stride <= 0) + { + stride = 1; + } + + // Stride MUST be a factor of the list length + // If not, then return the src list. This also + // traps those cases where stride > length. + + if (src.Length != stride && src.Length%stride == 0) + { + chunkk = src.Length/stride; + + chunks = new int[chunkk]; + + for (int i = 0; i < chunkk; i++) + chunks[i] = i; + + // Knuth shuffle the chunkk index + for (int i = chunkk - 1; i >= 1; i--) + { + // Elect an unrandomized chunk to swap + int index = rand.Next(i + 1); + int tmp; + + // and swap position with first unrandomized chunk + tmp = chunks[i]; + chunks[i] = chunks[index]; + chunks[index] = tmp; + } + + // Construct the randomized list + + result = new LSL_List(); + + for (int i = 0; i < chunkk; i++) + { + for (int j = 0; j < stride; j++) + { + result.Add(src.Data[chunks[i]*stride+j]); + } + } + } + else { + object[] array = new object[src.Length]; + Array.Copy(src.Data, 0, array, 0, src.Length); + result = new LSL_List(array); + } + + return result; + } + + /// + /// Elements in the source list starting with 0 and then + /// every i+stride. If the stride is negative then the scan + /// is backwards producing an inverted result. + /// Only those elements that are also in the specified + /// range are included in the result. + /// + + public LSL_List llList2ListStrided(LSL_List src, int start, int end, int stride) + { + + LSL_List result = new LSL_List(); + int[] si = new int[2]; + int[] ei = new int[2]; + bool twopass = false; + + m_host.AddScriptLPS(1); + + // First step is always to deal with negative indices + + if (start < 0) + start = src.Length+start; + if (end < 0) + end = src.Length+end; + + // Out of bounds indices are OK, just trim them + // accordingly + + if (start > src.Length) + start = src.Length; + + if (end > src.Length) + end = src.Length; + + // There may be one or two ranges to be considered + + if (start != end) + { + + if (start <= end) + { + si[0] = start; + ei[0] = end; + } + else + { + si[1] = start; + ei[1] = src.Length; + si[0] = 0; + ei[0] = end; + twopass = true; + } + + // The scan always starts from the beginning of the + // source list, but members are only selected if they + // fall within the specified sub-range. The specified + // range values are inclusive. + // A negative stride reverses the direction of the + // scan producing an inverted list as a result. + + if (stride == 0) + stride = 1; + + if (stride > 0) + { + for (int i = 0; i < src.Length; i += stride) + { + if (i<=ei[0] && i>=si[0]) + result.Add(src.Data[i]); + if (twopass && i>=si[1] && i<=ei[1]) + result.Add(src.Data[i]); + } + } + else if (stride < 0) + { + for (int i = src.Length - 1; i >= 0; i += stride) + { + if (i <= ei[0] && i >= si[0]) + result.Add(src.Data[i]); + if (twopass && i >= si[1] && i <= ei[1]) + result.Add(src.Data[i]); + } + } + } + + return result; + } + + public LSL_Integer llGetRegionAgentCount() + { + m_host.AddScriptLPS(1); + NotImplemented("llGetRegionAgentCount"); + return new LSL_Integer(0); + } + + public LSL_Vector llGetRegionCorner() + { + m_host.AddScriptLPS(1); + return new LSL_Vector(World.RegionInfo.RegionLocX * Constants.RegionSize, World.RegionInfo.RegionLocY * Constants.RegionSize, 0); + } + + /// + /// Insert the list identified by into the + /// list designated by such that the first + /// new element has the index specified by + /// + + public LSL_List llListInsertList(LSL_List dest, LSL_List src, int index) + { + + LSL_List pref = null; + LSL_List suff = null; + + m_host.AddScriptLPS(1); + + if (index < 0) + { + index = index+dest.Length; + if (index < 0) + { + index = 0; + } + } + + if (index != 0) + { + pref = dest.GetSublist(0,index-1); + if (index < dest.Length) + { + suff = dest.GetSublist(index,-1); + return pref + src + suff; + } + else + { + return pref + src; + } + } + else + { + if (index < dest.Length) + { + suff = dest.GetSublist(index,-1); + return src + suff; + } + else + { + return src; + } + } + + } + + /// + /// Returns the index of the first occurrence of test + /// in src. + /// + + public LSL_Integer llListFindList(LSL_List src, LSL_List test) + { + + int index = -1; + int length = src.Length - test.Length + 1; + + m_host.AddScriptLPS(1); + + // If either list is empty, do not match + + if (src.Length != 0 && test.Length != 0) + { + for (int i = 0; i < length; i++) + { + if (src.Data[i].Equals(test.Data[0])) + { + int j; + for (j = 1; j < test.Length; j++) + if (!src.Data[i+j].Equals(test.Data[j])) + break; + if (j == test.Length) + { + index = i; + break; + } + } + } + } + + return index; + + } + + public LSL_String llGetObjectName() + { + m_host.AddScriptLPS(1); + return m_host.Name!=null?m_host.Name:String.Empty; + } + + public void llSetObjectName(string name) + { + m_host.AddScriptLPS(1); + m_host.Name = name!=null?name:String.Empty; + } + + public LSL_String llGetDate() + { + m_host.AddScriptLPS(1); + DateTime date = DateTime.Now.ToUniversalTime(); + string result = date.ToString("yyyy-MM-dd"); + return result; + } + + public LSL_Integer llEdgeOfWorld(LSL_Vector pos, LSL_Vector dir) + { + m_host.AddScriptLPS(1); + NotImplemented("llEdgeOfWorld"); + return 0; + } + + public LSL_Integer llGetAgentInfo(string id) + { + m_host.AddScriptLPS(1); + NotImplemented("llGetAgentInfo"); + return 0; + } + + public void llAdjustSoundVolume(double volume) + { + m_host.AddScriptLPS(1); + m_host.AdjustSoundGain(volume); + // ScriptSleep(100); + } + + public void llSetSoundQueueing(int queue) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetSoundQueueing"); + } + + public void llSetSoundRadius(double radius) + { + m_host.AddScriptLPS(1); + m_host.SoundRadius = radius; + } + + public LSL_String llKey2Name(string id) + { + m_host.AddScriptLPS(1); + UUID key = new UUID(); + if (UUID.TryParse(id,out key)) + { + ScenePresence presence = World.GetScenePresence(key); + + if (presence != null) + { + return presence.ControllingClient.Name; + //return presence.Name; + } + + if (World.GetSceneObjectPart(key) != null) + { + return World.GetSceneObjectPart(key).Name; + } + } + 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 = (Primitive.TextureAnimMode)mode; + + //ALL_SIDES + if (face == ScriptBaseClass.ALL_SIDES) + 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(); + m_host.ParentGroup.HasGroupChanged = true; + } + + public void llTriggerSoundLimited(string sound, double volume, LSL_Vector top_north_east, + LSL_Vector bottom_south_west) + { + m_host.AddScriptLPS(1); + NotImplemented("llTriggerSoundLimited"); + } + + public void llEjectFromLand(string pest) + { + m_host.AddScriptLPS(1); + UUID agentId = new UUID(); + if (UUID.TryParse(pest, out agentId)) + { + ScenePresence presence = World.GetScenePresence(agentId); + if (presence != null) + { + // agent must be over the owners land + if (m_host.OwnerID == World.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y)) + World.TeleportClientHome(agentId, presence.ControllingClient); + } + } + // ScriptSleep(5000); + } + + public LSL_List llParseString2List(string str, LSL_List separators, LSL_List spacers) + { + m_host.AddScriptLPS(1); + LSL_List ret = new LSL_List(); + object[] delimiters = new object[separators.Length + spacers.Length]; + separators.Data.CopyTo(delimiters, 0); + spacers.Data.CopyTo(delimiters, separators.Length); + bool dfound = false; + do + { + dfound = false; + int cindex = -1; + string cdeli = ""; + for (int i = 0; i < delimiters.Length; i++) + { + int index = str.IndexOf(delimiters[i].ToString()); + bool found = index != -1; + if (found && String.Empty != delimiters[i].ToString()) + { + if ((cindex > index) || (cindex == -1)) + { + cindex = index; + cdeli = delimiters[i].ToString(); + } + dfound = dfound || found; + } + } + if (cindex != -1) + { + if (cindex > 0) + { + ret.Add(str.Substring(0, cindex)); + // Cannot use spacers.Contains() because spacers may be either type String or LSLString + for (int j = 0; j < spacers.Length; j++) + { + if (spacers.Data[j].ToString() == cdeli) + { + ret.Add(cdeli); + break; + } + } + } + if (cindex == 0 && spacers.Contains(cdeli)) + { + ret.Add(cdeli); + } + str = str.Substring(cindex + cdeli.Length); + } + } while (dfound); + if (str != "") + { + ret.Add(str); + } + return ret; + } + + public LSL_Integer llOverMyLand(string id) + { + m_host.AddScriptLPS(1); + UUID key = new UUID(); + if (UUID.TryParse(id,out key)) + { + ScenePresence presence = World.GetScenePresence(key); + if (presence != null) // object is an avatar + { + if (m_host.OwnerID == World.GetLandOwner(presence.AbsolutePosition.X, presence.AbsolutePosition.Y)) + return 1; + } + else // object is not an avatar + { + SceneObjectPart obj = World.GetSceneObjectPart(key); + if (obj != null) + if (m_host.OwnerID == World.GetLandOwner(obj.AbsolutePosition.X, obj.AbsolutePosition.Y)) + return 1; + } + } + return 0; + } + + public LSL_String llGetLandOwnerAt(LSL_Vector pos) + { + m_host.AddScriptLPS(1); + return World.GetLandOwner((float)pos.x, (float)pos.y).ToString(); + } + + public LSL_Vector llGetAgentSize(string id) + { + m_host.AddScriptLPS(1); + ScenePresence avatar = World.GetScenePresence(id); + LSL_Vector agentSize; + if (avatar == null) + { + agentSize = ScriptBaseClass.ZERO_VECTOR; + } + else + { + PhysicsVector size = avatar.PhysicsActor.Size; + agentSize = new LSL_Vector(size.X, size.Y, size.Z); + } + return agentSize; + } + + public LSL_Integer llSameGroup(string agent) + { + m_host.AddScriptLPS(1); + UUID agentId = new UUID(); + if (!UUID.TryParse(agent, out agentId)) + return new LSL_Integer(0); + ScenePresence presence = World.GetScenePresence(agentId); + if (presence == null) + return new LSL_Integer(0); + IClientAPI client = presence.ControllingClient; + if (m_host.GroupID == client.ActiveGroupId) + return new LSL_Integer(1); + else + return new LSL_Integer(0); + } + + public void llUnSit(string id) + { + m_host.AddScriptLPS(1); + + UUID key = new UUID(); + if (UUID.TryParse(id, out key)) + { + ScenePresence av = World.GetScenePresence(key); + + if (av != null) + { + if (llAvatarOnSitTarget() == id) + { + // if the avatar is sitting on this object, then + // we can unsit them. We don't want random scripts unsitting random people + // Lets avoid the popcorn avatar scenario. + av.StandUp(); + } + else + { + // If the object owner also owns the parcel + // or + // if the land is group owned and the object is group owned by the same group + // or + // if the object is owned by a person with estate access. + + ILandObject parcel = World.LandChannel.GetLandObject(av.AbsolutePosition.X, av.AbsolutePosition.Y); + if (parcel != null) + { + if (m_host.ObjectOwner == parcel.landData.OwnerID || + (m_host.OwnerID == m_host.GroupID && m_host.GroupID == parcel.landData.GroupID + && parcel.landData.IsGroupOwned) || World.ExternalChecks.ExternalChecksCanBeGodLike(m_host.OwnerID)) + { + av.StandUp(); + } + } + } + } + + } + + } + + public LSL_Vector llGroundSlope(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + + Vector3 pos = m_host.AbsolutePosition + new Vector3((float)offset.x, + (float)offset.y, + (float)offset.z); + + Vector3 p0 = new Vector3(pos.X, pos.Y, + (float)llGround( + new LSL_Vector(pos.X, pos.Y, pos.Z) + )); + Vector3 p1 = new Vector3(pos.X + 1, pos.Y, + (float)llGround( + new LSL_Vector(pos.X + 1, pos.Y, pos.Z) + )); + Vector3 p2 = new Vector3(pos.X, pos.Y + 1, + (float)llGround( + new LSL_Vector(pos.X, pos.Y + 1, pos.Z) + )); + + Vector3 v0 = new Vector3( + p1.X - p0.X, p1.Y - p0.Y, p1.Z - p0.Z); + Vector3 v1 = new Vector3( + p2.X - p1.X, p2.Y - p1.Y, p2.Z - p1.Z); + + v0.Normalize(); + v1.Normalize(); + + Vector3 tv = new Vector3(); + tv.X = (v0.Y * v1.Z) - (v0.Z * v1.Y); + tv.Y = (v0.Z * v1.X) - (v0.X * v1.Z); + tv.Z = (v0.X * v1.Y) - (v0.Y * v1.X); + + return new LSL_Vector(tv.X, tv.Y, tv.Z); + } + + public LSL_Vector llGroundNormal(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + LSL_Vector x = llGroundSlope(offset); + return new LSL_Vector(x.x, x.y, 1.0); + } + + public LSL_Vector llGroundContour(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + LSL_Vector x = llGroundSlope(offset); + return new LSL_Vector(-x.y, x.x, 0.0); + } + + public LSL_Integer llGetAttached() + { + m_host.AddScriptLPS(1); + NotImplemented("llGetAttached"); + return 0; + } + + public LSL_Integer llGetFreeMemory() + { + m_host.AddScriptLPS(1); + // Make scripts designed for LSO happy + return 16384; + } + + public LSL_String llGetRegionName() + { + m_host.AddScriptLPS(1); + return World.RegionInfo.RegionName; + } + + public LSL_Float llGetRegionTimeDilation() + { + m_host.AddScriptLPS(1); + return (double)World.TimeDilation; + } + + public LSL_Float llGetRegionFPS() + { + m_host.AddScriptLPS(1); + //TODO: return actual FPS + 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; + } + + private Primitive.ParticleSystem getNewParticleSystemWithSLDefaultValues() + { + Primitive.ParticleSystem ps = new Primitive.ParticleSystem(); + + // TODO find out about the other defaults and add them here + ps.PartStartColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f); + ps.PartEndColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f); + ps.PartStartScaleX = 1.0f; + ps.PartStartScaleY = 1.0f; + ps.PartEndScaleX = 1.0f; + ps.PartEndScaleY = 1.0f; + ps.BurstSpeedMin = 1.0f; + ps.BurstSpeedMax = 1.0f; + ps.BurstRate = 0.1f; + ps.PartMaxAge = 10.0f; + return ps; + } + + public void llParticleSystem(LSL_List rules) + { + m_host.AddScriptLPS(1); + if (rules.Length == 0) + { + m_host.RemoveParticleSystem(); + m_host.ParentGroup.HasGroupChanged = true; + } + else + { + Primitive.ParticleSystem prules = getNewParticleSystemWithSLDefaultValues(); + LSL_Vector tempv = new LSL_Vector(); + + float tempf = 0; + + for (int i = 0; i < rules.Length; i += 2) + { + switch ((int)rules.Data[i]) + { + case (int)ScriptBaseClass.PSYS_PART_FLAGS: + prules.PartDataFlags = (Primitive.ParticleSystem.ParticleDataFlags)(uint)rules.GetLSLIntegerItem(i + 1); + break; + + case (int)ScriptBaseClass.PSYS_PART_START_COLOR: + tempv = rules.GetVector3Item(i + 1); + prules.PartStartColor.R = (float)tempv.x; + prules.PartStartColor.G = (float)tempv.y; + prules.PartStartColor.B = (float)tempv.z; + break; + + case (int)ScriptBaseClass.PSYS_PART_START_ALPHA: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.PartStartColor.A = tempf; + break; + + case (int)ScriptBaseClass.PSYS_PART_END_COLOR: + tempv = rules.GetVector3Item(i + 1); + prules.PartEndColor.R = (float)tempv.x; + prules.PartEndColor.G = (float)tempv.y; + prules.PartEndColor.B = (float)tempv.z; + break; + + case (int)ScriptBaseClass.PSYS_PART_END_ALPHA: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.PartEndColor.A = tempf; + break; + + case (int)ScriptBaseClass.PSYS_PART_START_SCALE: + tempv = rules.GetVector3Item(i + 1); + prules.PartStartScaleX = (float)tempv.x; + prules.PartStartScaleY = (float)tempv.y; + break; + + case (int)ScriptBaseClass.PSYS_PART_END_SCALE: + tempv = rules.GetVector3Item(i + 1); + prules.PartEndScaleX = (float)tempv.x; + prules.PartEndScaleY = (float)tempv.y; + break; + + case (int)ScriptBaseClass.PSYS_PART_MAX_AGE: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.PartMaxAge = tempf; + break; + + case (int)ScriptBaseClass.PSYS_SRC_ACCEL: + tempv = rules.GetVector3Item(i + 1); + prules.PartAcceleration.X = (float)tempv.x; + prules.PartAcceleration.Y = (float)tempv.y; + prules.PartAcceleration.Z = (float)tempv.z; + break; + + case (int)ScriptBaseClass.PSYS_SRC_PATTERN: + int tmpi = (int)rules.GetLSLIntegerItem(i + 1); + prules.Pattern = (Primitive.ParticleSystem.SourcePattern)tmpi; + break; + + case (int)ScriptBaseClass.PSYS_SRC_TEXTURE: + prules.Texture = KeyOrName(rules.GetLSLStringItem(i + 1)); + break; + + case (int)ScriptBaseClass.PSYS_SRC_BURST_RATE: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.BurstRate = (float)tempf; + break; + + case (int)ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT: + prules.BurstPartCount = (byte)(int)rules.GetLSLIntegerItem(i + 1); + break; + + case (int)ScriptBaseClass.PSYS_SRC_BURST_RADIUS: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.BurstRadius = (float)tempf; + break; + + case (int)ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.BurstSpeedMin = (float)tempf; + break; + + case (int)ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.BurstSpeedMax = (float)tempf; + break; + + case (int)ScriptBaseClass.PSYS_SRC_MAX_AGE: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.MaxAge = (float)tempf; + break; + + case (int)ScriptBaseClass.PSYS_SRC_TARGET_KEY: + UUID key = UUID.Zero; + if (UUID.TryParse(rules.Data[i + 1].ToString(), out key)) + { + prules.Target = key; + } + else + { + prules.Target = m_host.UUID; + } + break; + + case (int)ScriptBaseClass.PSYS_SRC_OMEGA: + // AL: This is an assumption, since it is the only thing that would match. + tempv = rules.GetVector3Item(i + 1); + prules.AngularVelocity.X = (float)tempv.x; + prules.AngularVelocity.Y = (float)tempv.y; + prules.AngularVelocity.Z = (float)tempv.z; + break; + + case (int)ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.InnerAngle = (float)tempf; + break; + + case (int)ScriptBaseClass.PSYS_SRC_ANGLE_END: + tempf = (float)rules.GetLSLFloatItem(i + 1); + prules.OuterAngle = (float)tempf; + break; + } + + } + prules.CRC = 1; + + m_host.AddNewParticleSystem(prules); + m_host.ParentGroup.HasGroupChanged = true; + } + m_host.SendFullUpdateToAllClients(); + } + + public void llGroundRepel(double height, int water, double tau) + { + m_host.AddScriptLPS(1); + NotImplemented("llGroundRepel"); + } + + private UUID GetTaskInventoryItem(string name) + { + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == name) + return inv.Key; + } + return UUID.Zero; + } + + public void llGiveInventoryList(string destination, string category, LSL_List inventory) + { + m_host.AddScriptLPS(1); + + UUID destID; + if (!UUID.TryParse(destination, out destID)) + return; + + List itemList = new List(); + + foreach (Object item in inventory.Data) + { + UUID itemID; + if (UUID.TryParse(item.ToString(), out itemID)) + { + itemList.Add(itemID); + } + else + { + itemID = GetTaskInventoryItem(item.ToString()); + if (itemID != UUID.Zero) + itemList.Add(itemID); + } + } + + if (itemList.Count == 0) + return; + + m_ScriptEngine.World.MoveTaskInventoryItems(destID, category, m_host, itemList); + } + + 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 llSetVehicleFloatParam(int param, float value) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetVehicleFloatParam"); + } + + public void llSetVehicleVectorParam(int param, LSL_Vector vec) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetVehicleVectorParam"); + } + + public void llSetVehicleRotationParam(int param, LSL_Rotation 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_Vector offset, LSL_Rotation 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.SitTargetPosition = new Vector3((float)offset.x, (float)offset.y, (float)offset.z); + m_host.SitTargetOrientation = new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s); + } + + public LSL_String llAvatarOnSitTarget() + { + m_host.AddScriptLPS(1); + return m_host.GetAvatarOnSitTarget().ToString(); + } + + public void llAddToLandPassList(string avatar, double hours) + { + m_host.AddScriptLPS(1); + UUID key; + LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; + if (land.OwnerID == m_host.OwnerID) + { + ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry(); + if (UUID.TryParse(avatar, out key)) + { + entry.AgentID = key; + entry.Flags = ParcelManager.AccessList.Access; + entry.Time = DateTime.Now.AddHours(hours); + land.ParcelAccessList.Add(entry); + } + } + // ScriptSleep(100); + } + + 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_Vector offset) + { + m_host.AddScriptLPS(1); + m_host.SetCameraEyeOffset(new Vector3((float)offset.x, (float)offset.y, (float)offset.z)); + } + + public void llSetCameraAtOffset(LSL_Vector offset) + { + m_host.AddScriptLPS(1); + m_host.SetCameraAtOffset(new Vector3((float)offset.x, (float)offset.y, (float)offset.z)); + } + + public LSL_String llDumpList2String(LSL_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 LSL_Integer llScriptDanger(LSL_Vector pos) + { + m_host.AddScriptLPS(1); + bool result = World.scriptDanger(m_host.LocalId, new Vector3((float)pos.x, (float)pos.y, (float)pos.z)); + if (result) + { + return 1; + } + else + { + return 0; + } + + } + + public void llDialog(string avatar, string message, LSL_List buttons, int chat_channel) + { + m_host.AddScriptLPS(1); + UUID av = new UUID(); + if (!UUID.TryParse(avatar,out av)) + { + LSLError("First parameter to llDialog needs to be a key"); + return; + } + if (buttons.Length > 12) + { + LSLError("No more than 12 buttons can be shown"); + return; + } + string[] buts = new string[buttons.Length]; + for (int i = 0; i < buttons.Length; i++) + { + if (buttons.Data[i].ToString() == String.Empty) + { + LSLError("button label cannot be blank"); + return; + } + if (buttons.Data[i].ToString().Length > 24) + { + LSLError("button label cannot be longer than 24 characters"); + return; + } + buts[i] = buttons.Data[i].ToString(); + } + World.SendDialogToUser(av, m_host.Name, m_host.UUID, m_host.OwnerID, message, new UUID("00000000-0000-2222-3333-100000001000"), chat_channel, buts); + // ScriptSleep(1000); + } + + public void llVolumeDetect(int detect) + { + m_host.AddScriptLPS(1); + NotImplemented("llVolumeDetect"); + } + + /// + /// Reset the named script. The script must be present + /// in the same prim. + /// + + public void llRemoteLoadScript() + { + m_host.AddScriptLPS(1); + Deprecated("llRemoteLoadScript"); + // ScriptSleep(3000); + } + + public void llSetRemoteScriptAccessPin(int pin) + { + m_host.AddScriptLPS(1); + m_host.ScriptAccessPin = pin; + } + + public void llRemoteLoadScriptPin(string target, string name, int pin, int running, int start_param) + { + m_host.AddScriptLPS(1); + bool found = false; + UUID destId = UUID.Zero; + UUID srcId = UUID.Zero; + + if (!UUID.TryParse(target, out destId)) + { + llSay(0, "Could not parse key " + target); + return; + } + + // target must be a different prim than the one containing the script + if (m_host.UUID == destId) + { + return; + } + + // copy the first script found with this inventory name + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == name) + { + // make sure the object is a script + if (10 == inv.Value.Type) + { + found = true; + srcId = inv.Key; + break; + } + } + } + + if (!found) + { + llSay(0, "Could not find script " + name); + return; + } + + // the rest of the permission checks are done in RezScript, so check the pin there as well + World.RezScript(srcId, m_host, destId, pin, running, start_param); + // this will cause the delay even if the script pin or permissions were wrong - seems ok + ScriptSleep(3000); + } + + public void llOpenRemoteDataChannel() + { + m_host.AddScriptLPS(1); + IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); + if (xmlrpcMod.IsEnabled()) + { + UUID channelID = xmlrpcMod.OpenXMLRPCChannel(m_localID, m_itemID, UUID.Zero); + object[] resobj = new object[] { new LSL_Integer(1), new LSL_String(channelID.ToString()), new LSL_String(UUID.Zero.ToString()), new LSL_String(String.Empty), new LSL_Integer(0), new LSL_String(String.Empty) }; + m_ScriptEngine.PostScriptEvent(m_itemID, new EventParams( + "remote_data", resobj, + new DetectParams[0])); + } + // ScriptSleep(1000); + } + + public LSL_String llSendRemoteData(string channel, string dest, int idata, string sdata) + { + m_host.AddScriptLPS(1); + IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); + // ScriptSleep(3000); + 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); + // ScriptSleep(3000); + } + + public void llCloseRemoteDataChannel(string channel) + { + m_host.AddScriptLPS(1); + IXMLRPC xmlrpcMod = m_ScriptEngine.World.RequestModuleInterface(); + xmlrpcMod.CloseXMLRPCChannel(channel); + // ScriptSleep(1000); + } + + public LSL_String llMD5String(string src, int nonce) + { + m_host.AddScriptLPS(1); + return Util.Md5Hash(src + ":" + nonce.ToString()); + } + + private ObjectShapePacket.ObjectDataBlock SetPrimitiveBlockShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist) + { + ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock(); + + if (holeshape != (int)ScriptBaseClass.PRIM_HOLE_DEFAULT && + holeshape != (int)ScriptBaseClass.PRIM_HOLE_CIRCLE && + holeshape != (int)ScriptBaseClass.PRIM_HOLE_SQUARE && + holeshape != (int)ScriptBaseClass.PRIM_HOLE_TRIANGLE) + { + holeshape = (int)ScriptBaseClass.PRIM_HOLE_DEFAULT; + } + shapeBlock.ProfileCurve = (byte)holeshape; + if (cut.x < 0f) + { + cut.x = 0f; + } + if (cut.x > 1f) + { + cut.x = 1f; + } + if (cut.y < 0f) + { + cut.y = 0f; + } + if (cut.y > 1f) + { + cut.y = 1f; + } + if (cut.y - cut.x < 0.05f) + { + cut.x = cut.y - 0.05f; + } + shapeBlock.ProfileBegin = (ushort)(50000 * cut.x); + shapeBlock.ProfileEnd = (ushort)(50000 * (1 - cut.y)); + if (hollow < 0f) + { + hollow = 0f; + } + if (hollow > 0.95) + { + hollow = 0.95f; + } + shapeBlock.ProfileHollow = (ushort)(50000 * hollow); + if (twist.x < -1.0f) + { + twist.x = -1.0f; + } + if (twist.x > 1.0f) + { + twist.x = 1.0f; + } + if (twist.y < -1.0f) + { + twist.y = -1.0f; + } + if (twist.y > 1.0f) + { + twist.y = 1.0f; + } + shapeBlock.PathTwistBegin = (sbyte)(100 * twist.x); + shapeBlock.PathTwist = (sbyte)(100 * twist.y); + + shapeBlock.ObjectLocalID = part.LocalId; + + // retain pathcurve + shapeBlock.PathCurve = part.Shape.PathCurve; + + return shapeBlock; + } + + private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector taper_b, LSL_Vector topshear, byte fudge) + { + ObjectShapePacket.ObjectDataBlock shapeBlock; + + shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist); + + shapeBlock.ProfileCurve += fudge; + + if (taper_b.x < 0f) + { + taper_b.x = 0f; + } + if (taper_b.x > 2f) + { + taper_b.x = 2f; + } + if (taper_b.y < 0f) + { + taper_b.y = 0f; + } + if (taper_b.y > 2f) + { + taper_b.y = 2f; + } + shapeBlock.PathScaleX = (byte)(100 * (2.0 - taper_b.x)); + shapeBlock.PathScaleY = (byte)(100 * (2.0 - taper_b.y)); + if (topshear.x < -0.5f) + { + topshear.x = -0.5f; + } + if (topshear.x > 0.5f) + { + topshear.x = 0.5f; + } + if (topshear.y < -0.5f) + { + topshear.y = -0.5f; + } + if (topshear.y > 0.5f) + { + topshear.y = 0.5f; + } + shapeBlock.PathShearX = (byte)(100 * topshear.x); + shapeBlock.PathShearY = (byte)(100 * topshear.y); + + part.UpdateShape(shapeBlock); + } + + private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector dimple, byte fudge) + { + ObjectShapePacket.ObjectDataBlock shapeBlock; + + shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist); + + // profile/path swapped for a sphere + shapeBlock.PathBegin = shapeBlock.ProfileBegin; + shapeBlock.PathEnd = shapeBlock.ProfileEnd; + + shapeBlock.ProfileCurve += fudge; + + shapeBlock.PathScaleX = 100; + shapeBlock.PathScaleY = 100; + + if (dimple.x < 0f) + { + dimple.x = 0f; + } + if (dimple.x > 1f) + { + dimple.x = 1f; + } + if (dimple.y < 0f) + { + dimple.y = 0f; + } + if (dimple.y > 1f) + { + dimple.y = 1f; + } + if (dimple.y - cut.x < 0.05f) + { + dimple.x = cut.y - 0.05f; + } + shapeBlock.ProfileBegin = (ushort)(50000 * dimple.x); + shapeBlock.ProfileEnd = (ushort)(50000 * (1 - dimple.y)); + + part.UpdateShape(shapeBlock); + } + + private void SetPrimitiveShapeParams(SceneObjectPart part, int holeshape, LSL_Vector cut, float hollow, LSL_Vector twist, LSL_Vector holesize, LSL_Vector topshear, LSL_Vector profilecut, LSL_Vector taper_a, float revolutions, float radiusoffset, float skew, byte fudge) + { + ObjectShapePacket.ObjectDataBlock shapeBlock; + + shapeBlock = SetPrimitiveBlockShapeParams(part, holeshape, cut, hollow, twist); + + shapeBlock.ProfileCurve += fudge; + + // profile/path swapped for a torrus, tube, ring + shapeBlock.PathBegin = shapeBlock.ProfileBegin; + shapeBlock.PathEnd = shapeBlock.ProfileEnd; + + if (holesize.x < 0.05f) + { + holesize.x = 0.05f; + } + if (holesize.x > 1f) + { + holesize.x = 1f; + } + if (holesize.y < 0.05f) + { + holesize.y = 0.05f; + } + if (holesize.y > 0.5f) + { + holesize.y = 0.5f; + } + shapeBlock.PathScaleX = (byte)(100 * (2 - holesize.x)); + shapeBlock.PathScaleY = (byte)(100 * (2 - holesize.y)); + if (topshear.x < -0.5f) + { + topshear.x = -0.5f; + } + if (topshear.x > 0.5f) + { + topshear.x = 0.5f; + } + if (topshear.y < -0.5f) + { + topshear.y = -0.5f; + } + if (topshear.y > 0.5f) + { + topshear.y = 0.5f; + } + shapeBlock.PathShearX = (byte)(100 * topshear.x); + shapeBlock.PathShearY = (byte)(100 * topshear.y); + if (profilecut.x < 0f) + { + profilecut.x = 0f; + } + if (profilecut.x > 1f) + { + profilecut.x = 1f; + } + if (profilecut.y < 0f) + { + profilecut.y = 0f; + } + if (profilecut.y > 1f) + { + profilecut.y = 1f; + } + if (profilecut.y - cut.x < 0.05f) + { + profilecut.x = cut.y - 0.05f; + } + shapeBlock.ProfileBegin = (ushort)(50000 * profilecut.x); + shapeBlock.ProfileEnd = (ushort)(50000 * (1 - profilecut.y)); + if (taper_a.x < -1f) + { + taper_a.x = -1f; + } + if (taper_a.x > 1f) + { + taper_a.x = 1f; + } + if (taper_a.y < -1f) + { + taper_a.y = -1f; + } + if (taper_a.y > 1f) + { + taper_a.y = 1f; + } + shapeBlock.PathTaperX = (sbyte)(100 * taper_a.x); + shapeBlock.PathTaperY = (sbyte)(100 * taper_a.y); + if (revolutions < 1f) + { + revolutions = 1f; + } + if (revolutions > 4f) + { + revolutions = 4f; + } + shapeBlock.PathRevolutions = (byte)(66.666667 * (revolutions - 1.0)); + // limits on radiusoffset depend on revolutions and hole size (how?) seems like the maximum range is 0 to 1 + if (radiusoffset < 0f) + { + radiusoffset = 0f; + } + if (radiusoffset > 1f) + { + radiusoffset = 1f; + } + shapeBlock.PathRadiusOffset = (sbyte)(100 * radiusoffset); + if (skew < -0.95f) + { + skew = -0.95f; + } + if (skew > 0.95f) + { + skew = 0.95f; + } + shapeBlock.PathSkew = (sbyte)(100 * skew); + + part.UpdateShape(shapeBlock); + } + + private void SetPrimitiveShapeParams(SceneObjectPart part, string map, int type) + { + ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock(); + UUID sculptId; + + if (!UUID.TryParse(map, out sculptId)) + { + llSay(0, "Could not parse key " + map); + return; + } + + shapeBlock.ObjectLocalID = part.LocalId; + shapeBlock.PathScaleX = 100; + shapeBlock.PathScaleY = 150; + + if (type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_CYLINDER && + type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_PLANE && + type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE && + type != (int)ScriptBaseClass.PRIM_SCULPT_TYPE_TORUS) + { + // default + type = (int)ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE; + } + + // retain pathcurve + shapeBlock.PathCurve = part.Shape.PathCurve; + + part.Shape.SetSculptData((byte)type, sculptId); + part.Shape.SculptEntry = true; + part.UpdateShape(shapeBlock); + } + + public void llSetPrimitiveParams(LSL_List rules) + { + SetPrimParams(m_host, rules); + } + + public void llSetLinkPrimitiveParams(int linknumber, LSL_List rules) + { + m_host.AddScriptLPS(1); + + List parts = GetLinkParts(linknumber); + + foreach (SceneObjectPart part in parts) + SetPrimParams(part, rules); + } + + private void SetPrimParams(SceneObjectPart part, LSL_List rules) + { + int idx = 0; + + while (idx < rules.Length) + { + int code = rules.GetLSLIntegerItem(idx++); + + int remain = rules.Length - idx; + + int face; + LSL_Vector v; + + switch (code) + { + case (int)ScriptBaseClass.PRIM_POSITION: + if (remain < 1) + return; + + v=rules.GetVector3Item(idx++); + SetPos(part, v); + + break; + case (int)ScriptBaseClass.PRIM_SIZE: + if (remain < 1) + return; + + v=rules.GetVector3Item(idx++); + SetScale(part, v); + + break; + case (int)ScriptBaseClass.PRIM_ROTATION: + if (remain < 1) + return; + + LSL_Rotation q = rules.GetQuaternionItem(idx++); + SetRot(part, q); + + break; + + case (int)ScriptBaseClass.PRIM_TYPE: + if (remain < 3) + return; + + code = (int)rules.GetLSLIntegerItem(idx++); + + remain = rules.Length - idx; + float hollow; + LSL_Vector twist; + LSL_Vector taper_b; + LSL_Vector topshear; + float revolutions; + float radiusoffset; + float skew; + LSL_Vector holesize; + LSL_Vector profilecut; + + switch (code) + { + case (int)ScriptBaseClass.PRIM_TYPE_BOX: + if (remain < 6) + return; + + face = (int)rules.GetLSLIntegerItem(idx++); + v = rules.GetVector3Item(idx++); // cut + hollow = (float)rules.GetLSLFloatItem(idx++); + twist = rules.GetVector3Item(idx++); + taper_b = rules.GetVector3Item(idx++); + topshear = rules.GetVector3Item(idx++); + + part.Shape.PathCurve = (byte)Extrusion.Straight; + SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 1); + break; + + case (int)ScriptBaseClass.PRIM_TYPE_CYLINDER: + if (remain < 6) + return; + + face = (int)rules.GetLSLIntegerItem(idx++); // holeshape + v = rules.GetVector3Item(idx++); // cut + hollow = (float)rules.GetLSLFloatItem(idx++); + twist = rules.GetVector3Item(idx++); + taper_b = rules.GetVector3Item(idx++); + topshear = rules.GetVector3Item(idx++); + part.Shape.ProfileShape = ProfileShape.Circle; + part.Shape.PathCurve = (byte)Extrusion.Straight; + SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 0); + break; + + case (int)ScriptBaseClass.PRIM_TYPE_PRISM: + if (remain < 6) + return; + + face = (int)rules.GetLSLIntegerItem(idx++); // holeshape + v = rules.GetVector3Item(idx++); //cut + hollow = (float)rules.GetLSLFloatItem(idx++); + twist = rules.GetVector3Item(idx++); + taper_b = rules.GetVector3Item(idx++); + topshear = rules.GetVector3Item(idx++); + part.Shape.PathCurve = (byte)Extrusion.Straight; + SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, topshear, 3); + break; + + case (int)ScriptBaseClass.PRIM_TYPE_SPHERE: + if (remain < 5) + return; + + face = (int)rules.GetLSLIntegerItem(idx++); // holeshape + v = rules.GetVector3Item(idx++); // cut + hollow = (float)rules.GetLSLFloatItem(idx++); + twist = rules.GetVector3Item(idx++); + taper_b = rules.GetVector3Item(idx++); // dimple + part.Shape.PathCurve = (byte)Extrusion.Curve1; + SetPrimitiveShapeParams(part, face, v, hollow, twist, taper_b, 5); + break; + + case (int)ScriptBaseClass.PRIM_TYPE_TORUS: + if (remain < 11) + return; + + face = (int)rules.GetLSLIntegerItem(idx++); // holeshape + v = rules.GetVector3Item(idx++); //cut + hollow = (float)rules.GetLSLFloatItem(idx++); + twist = rules.GetVector3Item(idx++); + holesize = rules.GetVector3Item(idx++); + topshear = rules.GetVector3Item(idx++); + profilecut = rules.GetVector3Item(idx++); + taper_b = rules.GetVector3Item(idx++); // taper_a + revolutions = (float)rules.GetLSLFloatItem(idx++); + radiusoffset = (float)rules.GetLSLFloatItem(idx++); + skew = (float)rules.GetLSLFloatItem(idx++); + part.Shape.PathCurve = (byte)Extrusion.Curve1; + SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 0); + break; + + case (int)ScriptBaseClass.PRIM_TYPE_TUBE: + if (remain < 11) + return; + + face = (int)rules.GetLSLIntegerItem(idx++); // holeshape + v = rules.GetVector3Item(idx++); //cut + hollow = (float)rules.GetLSLFloatItem(idx++); + twist = rules.GetVector3Item(idx++); + holesize = rules.GetVector3Item(idx++); + topshear = rules.GetVector3Item(idx++); + profilecut = rules.GetVector3Item(idx++); + taper_b = rules.GetVector3Item(idx++); // taper_a + revolutions = (float)rules.GetLSLFloatItem(idx++); + radiusoffset = (float)rules.GetLSLFloatItem(idx++); + skew = (float)rules.GetLSLFloatItem(idx++); + part.Shape.PathCurve = (byte)Extrusion.Curve1; + SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 1); + break; + + case (int)ScriptBaseClass.PRIM_TYPE_RING: + if (remain < 11) + return; + + face = (int)rules.GetLSLIntegerItem(idx++); // holeshape + v = rules.GetVector3Item(idx++); //cut + hollow = (float)rules.GetLSLFloatItem(idx++); + twist = rules.GetVector3Item(idx++); + holesize = rules.GetVector3Item(idx++); + topshear = rules.GetVector3Item(idx++); + profilecut = rules.GetVector3Item(idx++); + taper_b = rules.GetVector3Item(idx++); // taper_a + revolutions = (float)rules.GetLSLFloatItem(idx++); + radiusoffset = (float)rules.GetLSLFloatItem(idx++); + skew = (float)rules.GetLSLFloatItem(idx++); + part.Shape.PathCurve = (byte)Extrusion.Curve1; + SetPrimitiveShapeParams(part, face, v, hollow, twist, holesize, topshear, profilecut, taper_b, revolutions, radiusoffset, skew, 3); + break; + + case (int)ScriptBaseClass.PRIM_TYPE_SCULPT: + if (remain < 2) + return; + + string map = rules.Data[idx++].ToString(); + face = (int)rules.GetLSLIntegerItem(idx++); // type + part.Shape.PathCurve = (byte)Extrusion.Curve1; + SetPrimitiveShapeParams(part, map, face); + break; + } + + break; + + case (int)ScriptBaseClass.PRIM_TEXTURE: + if (remain < 5) + return; + + face=(int)rules.GetLSLIntegerItem(idx++); + string tex=rules.Data[idx++].ToString(); + LSL_Vector repeats=rules.GetVector3Item(idx++); + LSL_Vector offsets=rules.GetVector3Item(idx++); + double rotation=(double)rules.GetLSLFloatItem(idx++); + + SetTexture(part, tex, face); + ScaleTexture(part, repeats.x, repeats.y, face); + OffsetTexture(part, offsets.x, offsets.y, face); + RotateTexture(part, rotation, face); + + break; + + case (int)ScriptBaseClass.PRIM_COLOR: + if (remain < 3) + return; + + face=(int)rules.GetLSLIntegerItem(idx++); + LSL_Vector color=rules.GetVector3Item(idx++); + double alpha=(double)rules.GetLSLFloatItem(idx++); + + SetColor(part, color, face); + SetAlpha(part, alpha, face); + + break; + case (int)ScriptBaseClass.PRIM_FLEXIBLE: + if (remain < 7) + return; + + bool flexi = rules.GetLSLIntegerItem(idx++); + int softness = rules.GetLSLIntegerItem(idx++); + float gravity = (float)rules.GetLSLFloatItem(idx++); + float friction = (float)rules.GetLSLFloatItem(idx++); + float wind = (float)rules.GetLSLFloatItem(idx++); + float tension = (float)rules.GetLSLFloatItem(idx++); + LSL_Vector force = rules.GetVector3Item(idx++); + + SetFlexi(part, flexi, softness, gravity, friction, wind, tension, force); + + break; + case (int)ScriptBaseClass.PRIM_POINT_LIGHT: + if (remain < 5) + return; + bool light = rules.GetLSLIntegerItem(idx++); + LSL_Vector lightcolor = rules.GetVector3Item(idx++); + float intensity = (float)rules.GetLSLFloatItem(idx++); + float radius = (float)rules.GetLSLFloatItem(idx++); + float falloff = (float)rules.GetLSLFloatItem(idx++); + + SetPointLight(part, light, lightcolor, intensity, radius, falloff); + + break; + case (int)ScriptBaseClass.PRIM_GLOW: + if (remain < 2) + return; + face = rules.GetLSLIntegerItem(idx++); + float glow = (float)rules.GetLSLFloatItem(idx++); + + SetGlow(part, face, glow); + + break; + case (int)ScriptBaseClass.PRIM_BUMP_SHINY: + if (remain < 3) + return; + face = (int)rules.GetLSLIntegerItem(idx++); + int shiny = (int)rules.GetLSLIntegerItem(idx++); + Bumpiness bump = (Bumpiness)Convert.ToByte((int)rules.GetLSLIntegerItem(idx++)); + + SetShiny(part, face, shiny, bump); + + break; + case (int)ScriptBaseClass.PRIM_FULLBRIGHT: + if (remain < 2) + return; + face = rules.GetLSLIntegerItem(idx++); + bool st = rules.GetLSLIntegerItem(idx++); + SetFullBright(part, face , st); + break; + case (int)ScriptBaseClass.PRIM_MATERIAL: + if (remain < 1) + return; + if (part != null) + { + /* Unhandled at this time - sends "Unhandled" message + will enable when available + byte material = Convert.ToByte((int)rules.GetLSLIntegerItem(idx++)); + part.Material = material; + */ + return; + } + break; + case (int)ScriptBaseClass.PRIM_PHANTOM: + if (remain < 1) + return; + + string ph = rules.Data[idx++].ToString(); + bool phantom; + + if (ph.Equals("1")) + phantom = true; + else + phantom = false; + + part.ScriptSetPhantomStatus(phantom); + part.ScheduleFullUpdate(); + break; + case (int)ScriptBaseClass.PRIM_PHYSICS: + if (remain < 1) + return; + string phy = rules.Data[idx++].ToString(); + bool physics; + + if (phy.Equals("1")) + physics = true; + else + physics = false; + + m_host.ScriptSetPhysicsStatus(physics); + part.ScheduleFullUpdate(); + break; + } + } + } + + public LSL_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 LSL_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); + Deprecated("llXorBase64Strings"); + // ScriptSleep(300); + } + + public void llRemoteDataSetRegion() + { + m_host.AddScriptLPS(1); + NotImplemented("llRemoteDataSetRegion"); + } + + public LSL_Float llLog10(double val) + { + m_host.AddScriptLPS(1); + return (double)Math.Log10(val); + } + + public LSL_Float llLog(double val) + { + m_host.AddScriptLPS(1); + return (double)Math.Log(val); + } + + public LSL_List llGetAnimationList( string id ) + { + m_host.AddScriptLPS(1); + + LSL_List l = new LSL_List(); + ScenePresence av = World.GetScenePresence(id); + if (av == null) + return l; + UUID[] anims; + anims = av.GetAnimationArray(); + foreach (UUID foo in anims) + l.Add(foo.ToString()); + return l; + } + + public void llSetParcelMusicURL(string url) + { + m_host.AddScriptLPS(1); + UUID landowner = World.GetLandOwner(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y); + if (landowner == UUID.Zero) + { + return; + } + if (landowner != m_host.ObjectOwner) + { + return; + } + World.SetLandMusicURL(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, url); + // ScriptSleep(2000); + } + + public LSL_Vector llGetRootPosition() + { + m_host.AddScriptLPS(1); + return new LSL_Vector(m_host.ParentGroup.AbsolutePosition.X, m_host.ParentGroup.AbsolutePosition.Y, m_host.ParentGroup.AbsolutePosition.Z); + } + + public LSL_Rotation llGetRootRotation() + { + m_host.AddScriptLPS(1); + return new LSL_Rotation(m_host.ParentGroup.GroupRotation.X, m_host.ParentGroup.GroupRotation.Y, m_host.ParentGroup.GroupRotation.Z, m_host.ParentGroup.GroupRotation.W); + } + + public LSL_String llGetObjectDesc() + { + return m_host.Description!=null?m_host.Description:String.Empty; + } + + public void llSetObjectDesc(string desc) + { + m_host.AddScriptLPS(1); + m_host.Description = desc!=null?desc:String.Empty; + } + + public LSL_String llGetCreator() + { + m_host.AddScriptLPS(1); + return m_host.ObjectCreator.ToString(); + } + + public LSL_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) + { + Primitive.TextureEntry tex = part.Shape.Textures; + Color4 texcolor; + if (face >= 0 && face < GetNumberOfSides(m_host)) + { + texcolor = tex.CreateFace((uint)face).RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.FaceTextures[face].RGBA = texcolor; + part.UpdateTexture(tex); + return; + } + else if (face == ScriptBaseClass.ALL_SIDES) + { + texcolor = tex.DefaultTexture.RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.DefaultTexture.RGBA = texcolor; + for (uint i = 0; i < GetNumberOfSides(m_host); i++) + { + if (tex.FaceTextures[i] != null) + { + texcolor = tex.FaceTextures[i].RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.FaceTextures[i].RGBA = texcolor; + } + } + texcolor = tex.DefaultTexture.RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + 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); + Primitive.TextureEntry tex = part.Shape.Textures; + Color4 texcolor; + if (face > -1) + { + texcolor = tex.CreateFace((uint)face).RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.FaceTextures[face].RGBA = texcolor; + part.UpdateTexture(tex); + } + else if (face == -1) + { + texcolor = tex.DefaultTexture.RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.DefaultTexture.RGBA = texcolor; + for (uint i = 0; i < 32; i++) + { + if (tex.FaceTextures[i] != null) + { + texcolor = tex.FaceTextures[i].RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.FaceTextures[i].RGBA = texcolor; + } + } + texcolor = tex.DefaultTexture.RGBA; + texcolor.A = Util.Clip((float)alpha, 0.0f, 1.0f); + tex.DefaultTexture.RGBA = texcolor; + part.UpdateTexture(tex); + } + } + return; + } + } + + public LSL_Integer llGetNumberOfPrims() + { + m_host.AddScriptLPS(1); + return m_host.ParentGroup.PrimCount; + } + + public LSL_List llGetBoundingBox(string obj) + { + m_host.AddScriptLPS(1); + NotImplemented("llGetBoundingBox"); + return new LSL_List(); + } + + public LSL_Vector llGetGeometricCenter() + { + return new LSL_Vector(m_host.GetGeometricCenter().X, m_host.GetGeometricCenter().Y, m_host.GetGeometricCenter().Z); + } + + public LSL_List llGetPrimitiveParams(LSL_List rules) + { + m_host.AddScriptLPS(1); + + LSL_List res = new LSL_List(); + int idx=0; + while (idx < rules.Length) + { + int code=(int)rules.GetLSLIntegerItem(idx++); + int remain=rules.Length-idx; + + switch (code) + { + case (int)ScriptBaseClass.PRIM_MATERIAL: + res.Add(new LSL_Integer(m_host.Material)); + break; + + case (int)ScriptBaseClass.PRIM_PHYSICS: + if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Physics) != 0) + res.Add(new LSL_Integer(1)); + else + res.Add(new LSL_Integer(0)); + break; + + case (int)ScriptBaseClass.PRIM_TEMP_ON_REZ: + if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.TemporaryOnRez) != 0) + res.Add(new LSL_Integer(1)); + else + res.Add(new LSL_Integer(0)); + break; + + case (int)ScriptBaseClass.PRIM_PHANTOM: + if ((m_host.GetEffectiveObjectFlags() & (uint)PrimFlags.Phantom) != 0) + res.Add(new LSL_Integer(1)); + else + res.Add(new LSL_Integer(0)); + break; + + case (int)ScriptBaseClass.PRIM_POSITION: + res.Add(new LSL_Vector(m_host.AbsolutePosition.X, + m_host.AbsolutePosition.Y, + m_host.AbsolutePosition.Z)); + break; + + case (int)ScriptBaseClass.PRIM_SIZE: + res.Add(new LSL_Vector(m_host.Scale.X, + m_host.Scale.Y, + m_host.Scale.Z)); + break; + + case (int)ScriptBaseClass.PRIM_ROTATION: + res.Add(new LSL_Rotation(m_host.RotationOffset.X, + m_host.RotationOffset.Y, + m_host.RotationOffset.Z, + m_host.RotationOffset.W)); + break; + + case (int)ScriptBaseClass.PRIM_TYPE: + // implementing box + PrimitiveBaseShape Shape = m_host.Shape; + int primType = getScriptPrimType(m_host.Shape); + res.Add(new LSL_Integer(primType)); + switch (primType) + { + case ScriptBaseClass.PRIM_TYPE_BOX: + case ScriptBaseClass.PRIM_TYPE_CYLINDER: + case ScriptBaseClass.PRIM_TYPE_PRISM: + res.Add(new LSL_Integer(Shape.ProfileCurve)); + res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0)); + res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0)); + res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0)); + res.Add(new LSL_Vector(1 - (Shape.PathScaleX / 100.0 - 1), 1 - (Shape.PathScaleY / 100.0 - 1), 0)); + res.Add(new LSL_Vector(Shape.PathShearX / 100.0, Shape.PathShearY / 100.0, 0)); + break; + + case ScriptBaseClass.PRIM_TYPE_SPHERE: + res.Add(new LSL_Integer(Shape.ProfileCurve)); + res.Add(new LSL_Vector(Shape.PathBegin / 50000.0, 1 - Shape.PathEnd / 50000.0, 0)); + res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0)); + res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0)); + res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0)); + break; + + case ScriptBaseClass.PRIM_TYPE_SCULPT: + res.Add(Shape.SculptTexture.ToString()); + res.Add(new LSL_Integer(Shape.SculptType)); + break; + + case ScriptBaseClass.PRIM_TYPE_RING: + case ScriptBaseClass.PRIM_TYPE_TUBE: + case ScriptBaseClass.PRIM_TYPE_TORUS: + // holeshape + res.Add(new LSL_Integer(Shape.ProfileCurve)); + + // cut + res.Add(new LSL_Vector(Shape.PathBegin / 50000.0, 1 - Shape.PathEnd / 50000.0, 0)); + + // hollow + res.Add(new LSL_Float(Shape.ProfileHollow / 50000.0)); + + // twist + res.Add(new LSL_Vector(Shape.PathTwistBegin / 100.0, Shape.PathTwist / 100.0, 0)); + + // vector holesize + res.Add(new LSL_Vector(1 - (Shape.PathScaleX / 100.0 - 1), 1 - (Shape.PathScaleY / 100.0 - 1), 0)); + + // vector topshear + res.Add(new LSL_Vector(Shape.PathShearX / 100.0, Shape.PathShearY / 100.0, 0)); + + // vector profilecut + res.Add(new LSL_Vector(Shape.ProfileBegin / 50000.0, 1 - Shape.ProfileEnd / 50000.0, 0)); + + + // vector tapera + res.Add(new LSL_Vector(Shape.PathTaperX / 100.0, Shape.PathTaperY / 100.0, 0)); + + // float revolutions, + res.Add(new LSL_Float(Shape.PathRevolutions / 50.0)); // needs fixing :( + + // float radiusoffset, + res.Add(new LSL_Float(Shape.PathRadiusOffset / 100.0)); + + // float skew + res.Add(new LSL_Float(Shape.PathSkew / 100.0)); + break; + + } + break; + + case (int)ScriptBaseClass.PRIM_TEXTURE: + if (remain < 1) + return res; + + int face = (int)rules.GetLSLIntegerItem(idx++); + Primitive.TextureEntry tex = m_host.Shape.Textures; + if (face == ScriptBaseClass.ALL_SIDES) + { + for (face = 0 ; face < GetNumberOfSides(m_host) ; face++) + { + Primitive.TextureEntryFace texface = tex.GetFace((uint)face); + + res.Add(new LSL_String(texface.TextureID.ToString())); + res.Add(new LSL_Vector(texface.RepeatU, + texface.RepeatV, + 0)); + res.Add(new LSL_Vector(texface.OffsetU, + texface.OffsetV, + 0)); + res.Add(new LSL_Float(texface.Rotation)); + } + } + else + { + if (face >= 0 && face < GetNumberOfSides(m_host)) + { + Primitive.TextureEntryFace texface = tex.GetFace((uint)face); + + res.Add(new LSL_String(texface.TextureID.ToString())); + res.Add(new LSL_Vector(texface.RepeatU, + texface.RepeatV, + 0)); + res.Add(new LSL_Vector(texface.OffsetU, + texface.OffsetV, + 0)); + res.Add(new LSL_Float(texface.Rotation)); + } + } + break; + + case (int)ScriptBaseClass.PRIM_COLOR: + if (remain < 1) + return res; + + face=(int)rules.GetLSLIntegerItem(idx++); + + tex = m_host.Shape.Textures; + Color4 texcolor; + if (face == ScriptBaseClass.ALL_SIDES) + { + for (face = 0 ; face < GetNumberOfSides(m_host) ; face++) + { + texcolor = tex.GetFace((uint)face).RGBA; + res.Add(new LSL_Vector(texcolor.R, + texcolor.G, + texcolor.B)); + res.Add(new LSL_Float(texcolor.A)); + } + } + else + { + texcolor = tex.GetFace((uint)face).RGBA; + res.Add(new LSL_Vector(texcolor.R, + texcolor.G, + texcolor.B)); + res.Add(new LSL_Float(texcolor.A)); + } + break; + + case (int)ScriptBaseClass.PRIM_BUMP_SHINY: + // TODO-------------- + if (remain < 1) + return res; + + face=(int)rules.GetLSLIntegerItem(idx++); + + res.Add(new LSL_Integer(0)); + res.Add(new LSL_Integer(0)); + break; + + case (int)ScriptBaseClass.PRIM_FULLBRIGHT: + // TODO-------------- + if (remain < 1) + return res; + + face=(int)rules.GetLSLIntegerItem(idx++); + + res.Add(new LSL_Integer(0)); + break; + + case (int)ScriptBaseClass.PRIM_FLEXIBLE: + PrimitiveBaseShape shape = m_host.Shape; + + if (shape.FlexiEntry) + res.Add(new LSL_Integer(1)); // active + else + res.Add(new LSL_Integer(0)); + res.Add(new LSL_Integer(shape.FlexiSoftness));// softness + res.Add(new LSL_Float(shape.FlexiGravity)); // gravity + res.Add(new LSL_Float(shape.FlexiDrag)); // friction + res.Add(new LSL_Float(shape.FlexiWind)); // wind + res.Add(new LSL_Float(shape.FlexiTension)); // tension + res.Add(new LSL_Vector(shape.FlexiForceX, // force + shape.FlexiForceY, + shape.FlexiForceZ)); + break; + + case (int)ScriptBaseClass.PRIM_TEXGEN: + // TODO-------------- + // (PRIM_TEXGEN_DEFAULT, PRIM_TEXGEN_PLANAR) + if (remain < 1) + return res; + + face=(int)rules.GetLSLIntegerItem(idx++); + + res.Add(new LSL_Integer(0)); + break; + + case (int)ScriptBaseClass.PRIM_POINT_LIGHT: + shape = m_host.Shape; + + if (shape.LightEntry) + res.Add(new LSL_Integer(1)); // active + else + res.Add(new LSL_Integer(0)); + res.Add(new LSL_Vector(shape.LightColorR, // color + shape.LightColorG, + shape.LightColorB)); + res.Add(new LSL_Float(shape.LightIntensity)); // intensity + res.Add(new LSL_Float(shape.LightRadius)); // radius + res.Add(new LSL_Float(shape.LightFalloff)); // falloff + break; + + case (int)ScriptBaseClass.PRIM_GLOW: + // TODO-------------- + if (remain < 1) + return res; + + face=(int)rules.GetLSLIntegerItem(idx++); + + res.Add(new LSL_Float(0)); + break; + } + } + return res; + } + + // + // + // 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 LSL_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 LSL_Integer llBase64ToInteger(string str) + { + int number = 0; + int digit; + + 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 LSL_Float llGetGMTclock() + { + m_host.AddScriptLPS(1); + return DateTime.UtcNow.TimeOfDay.TotalSeconds; + } + + public LSL_String llGetSimulatorHostname() + { + m_host.AddScriptLPS(1); + return System.Environment.MachineName; + } + + public void llSetLocalRot(LSL_Rotation rot) + { + m_host.AddScriptLPS(1); + m_host.RotationOffset = new Quaternion((float)rot.x, (float)rot.y, (float)rot.z, (float)rot.s); + // ScriptSleep(200); + } + + // + // 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_List llParseStringKeepNulls(string src, LSL_List separators, LSL_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_List tokens = new LSL_List(); + + m_host.AddScriptLPS(1); + + // All entries are initially valid + + for (int i = 0; i < mlen; i++) + active[i] = true; + + offset[mlen] = srclen; + + while (beginning < srclen) + { + + best = mlen; // as bad as it gets + + // Scan for separators + + for (j = 0; j < seplen; j++) + { + if (active[j]) + { + // scan all of the markers + if ((offset[j] = src.IndexOf(separray[j].ToString(),beginning)) == -1) + { + // not present at all + active[j] = false; + } + else + { + // present and correct + if (offset[j] < offset[best]) + { + // closest so far + best = j; + if (offset[best] == beginning) + break; + } + } + } + } + + // Scan for spacers + + if (offset[best] != beginning) + { + for (j = seplen; (j < mlen) && (offset[best] > beginning); j++) + { + if (active[j]) + { + // scan all of the markers + if ((offset[j] = src.IndexOf(spcarray[j-seplen].ToString(), 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 < seplen) + { + beginning = offset[best] + (separray[best].ToString()).Length; + } + else + { + beginning = offset[best] + (spcarray[best - seplen].ToString()).Length; + tokens.Add(spcarray[best - seplen]); + } + } + + // This an awkward an not very intuitive boundary case. If the + // last substring is a tokenizer, then there is an implied trailing + // null list entry. Hopefully the single comparison will not be too + // arduous. Alternatively the 'break' could be replced with a return + // but that's shabby programming. + + if (beginning == srclen) + { + if (srclen != 0) + tokens.Add(""); + } + + return tokens; + } + + public LSL_Integer llGetObjectPermMask(int mask) + { + m_host.AddScriptLPS(1); + + int permmask = 0; + + if (mask == ScriptBaseClass.MASK_BASE)//0 + { + permmask = (int)m_host.BaseMask; + } + + else if (mask == ScriptBaseClass.MASK_OWNER)//1 + { + permmask = (int)m_host.OwnerMask; + } + + else if (mask == ScriptBaseClass.MASK_GROUP)//2 + { + permmask = (int)m_host.GroupMask; + } + + else if (mask == ScriptBaseClass.MASK_EVERYONE)//3 + { + permmask = (int)m_host.EveryoneMask; + } + + else if (mask == ScriptBaseClass.MASK_NEXT)//4 + { + permmask = (int)m_host.NextOwnerMask; + } + + return permmask; + } + + public void llSetObjectPermMask(int mask, int value) + { + m_host.AddScriptLPS(1); + IConfigSource config = new IniConfigSource(Application.iniFilePath); + if (config.Configs["XEngine"] == null) + config.AddConfig("XEngine"); + + if (config.Configs["XEngine"].GetBoolean("AllowGodFunctions", false)) + { + if (World.ExternalChecks.ExternalChecksCanRunConsoleCommand(m_host.OwnerID)) + { + if (mask == ScriptBaseClass.MASK_BASE)//0 + { + m_host.BaseMask = (uint)value; + } + + else if (mask == ScriptBaseClass.MASK_OWNER)//1 + { + m_host.OwnerMask = (uint)value; + } + + else if (mask == ScriptBaseClass.MASK_GROUP)//2 + { + m_host.GroupMask = (uint)value; + } + + else if (mask == ScriptBaseClass.MASK_EVERYONE)//3 + { + m_host.EveryoneMask = (uint)value; + } + + else if (mask == ScriptBaseClass.MASK_NEXT)//4 + { + m_host.NextOwnerMask = (uint)value; + } + } + } + } + + public LSL_Integer llGetInventoryPermMask(string item, int mask) + { + m_host.AddScriptLPS(1); + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == item) + { + switch (mask) + { + case 0: + return (int)inv.Value.BasePermissions; + case 1: + return (int)inv.Value.CurrentPermissions; + case 2: + return (int)inv.Value.GroupPermissions; + case 3: + return (int)inv.Value.EveryonePermissions; + case 4: + return (int)inv.Value.NextPermissions; + } + } + } + return -1; + } + + public void llSetInventoryPermMask(string item, int mask, int value) + { + m_host.AddScriptLPS(1); + NotImplemented("llSetInventoryPermMask"); + } + + public LSL_String llGetInventoryCreator(string item) + { + m_host.AddScriptLPS(1); + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == item) + { + return inv.Value.CreatorID.ToString(); + } + } + llSay(0, "No item name '" + item + "'"); + return String.Empty; + } + + public void llOwnerSay(string msg) + { + m_host.AddScriptLPS(1); + + World.SimChatBroadcast(Utils.StringToBytes(msg), ChatTypeEnum.Owner, 0, m_host.AbsolutePosition, m_host.Name, m_host.UUID, false); +// IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface(); +// wComm.DeliverMessage(ChatTypeEnum.Owner, 0, m_host.Name, m_host.UUID, msg); + } + + public LSL_String llRequestSimulatorData(string simulator, int data) + { + try + { + m_host.AddScriptLPS(1); + + string reply = String.Empty; + + RegionInfo info = m_ScriptEngine.World.RequestClosestRegion(simulator); + + switch (data) + { + case 5: // DATA_SIM_POS + if (info == null) + { + // ScriptSleep(1000); + return UUID.Zero.ToString(); + } + reply = new LSL_Vector( + info.RegionLocX * Constants.RegionSize, + info.RegionLocY * Constants.RegionSize, + 0).ToString(); + break; + case 6: // DATA_SIM_STATUS + if (info != null) + reply = "up"; // Duh! + else + reply = "unknown"; + break; + case 7: // DATA_SIM_RATING + if (info == null) + { + // ScriptSleep(1000); + return UUID.Zero.ToString(); + } + int access = info.RegionSettings.Maturity; + if (access == 0) + reply = "PG"; + else if (access == 1) + reply = "MATURE"; + else + reply = "UNKNOWN"; + break; + case 128: // SIM_RELEASE + reply = m_ScriptEngine.World.GetSimulatorVersion(); + break; + default: + // ScriptSleep(1000); + return UUID.Zero.ToString(); // Raise no event + } + UUID rq = UUID.Random(); + + UUID tid = AsyncCommands. + DataserverPlugin.RegisterRequest(m_localID, m_itemID, rq.ToString()); + + AsyncCommands. + DataserverPlugin.DataserverReply(rq.ToString(), reply); + + // ScriptSleep(1000); + return tid.ToString(); + } + catch(Exception e) + { + Console.WriteLine(e.ToString()); + return UUID.Zero.ToString(); + } + } + + public void llForceMouselook(int mouselook) + { + m_host.AddScriptLPS(1); + m_host.SetForceMouselook(mouselook != 0); + } + + public LSL_Float llGetObjectMass(string id) + { + m_host.AddScriptLPS(1); + UUID key = new UUID(); + if (UUID.TryParse(id, out key)) + { + try + { + SceneObjectPart obj = World.GetSceneObjectPart(World.Entities[key].LocalId); + if (obj != null) + return (double)obj.GetMass(); + // the object is null so the key is for an avatar + ScenePresence avatar = World.GetScenePresence(key); + if (avatar != null) + if (avatar.IsChildAgent) + // reference http://www.lslwiki.net/lslwiki/wakka.php?wakka=llGetObjectMass + // child agents have a mass of 1.0 + return 1; + else + return (double)avatar.PhysicsActor.Mass; + } + catch (KeyNotFoundException) + { + return 0; // The Object/Agent not in the region so just return zero + } + } + return 0; + } + + /// + /// illListReplaceList removes the sub-list defined by the inclusive indices + /// start and end and inserts the src list in its place. The inclusive + /// nature of the indices means that at least one element must be deleted + /// if the indices are within the bounds of the existing list. I.e. 2,2 + /// will remove the element at index 2 and replace it with the source + /// list. Both indices may be negative, with the usual interpretation. An + /// interesting case is where end is lower than start. As these indices + /// bound the list to be removed, then 0->end, and start->lim are removed + /// and the source list is added as a suffix. + /// + + public LSL_List llListReplaceList(LSL_List dest, LSL_List src, int start, int end) + { + LSL_List pref = null; + + m_host.AddScriptLPS(1); + + // Note that although we have normalized, both + // indices could still be negative. + if (start < 0) + { + start = start+dest.Length; + } + + if (end < 0) + { + end = end+dest.Length; + } + // The comventional case, remove a sequence starting with + // start and ending with end. And then insert the source + // list. + if (start <= end) + { + // If greater than zero, then there is going to be a + // surviving prefix. Otherwise the inclusive nature + // of the indices mean that we're going to add the + // source list as a prefix. + if (start > 0) + { + pref = dest.GetSublist(0,start-1); + // Only add a suffix if there is something + // beyond the end index (it's inclusive too). + if (end + 1 < dest.Length) + { + return pref + src + dest.GetSublist(end + 1, -1); + } + else + { + return pref + src; + } + } + // If start is less than or equal to zero, then + // the new list is simply a prefix. We still need to + // figure out any necessary surgery to the destination + // based upon end. Note that if end exceeds the upper + // bound in this case, the entire destination list + // is removed. + else + { + if (end + 1 < dest.Length) + { + return src + dest.GetSublist(end + 1, -1); + } + else + { + return src; + } + } + } + // Finally, if start > end, we strip away a prefix and + // a suffix, to leave the list that sits ens + // and start, and then tag on the src list. AT least + // that's my interpretation. We can get sublist to do + // this for us. Note that one, or both of the indices + // might have been negative. + else + { + return dest.GetSublist(end + 1, start - 1) + src; + } + } + + public void llLoadURL(string avatar_id, string message, string url) + { + m_host.AddScriptLPS(1); + UUID avatarId = new UUID(avatar_id); + m_ScriptEngine.World.SendUrlToUser(avatarId, m_host.Name, m_host.UUID, m_host.ObjectOwner, false, message, + url); + // ScriptSleep(10000); + } + + public void llParcelMediaCommandList(LSL_List commandList) + { + //TO DO: Implement the missing commands + //PARCEL_MEDIA_COMMAND_STOP Stop the media stream and go back to the first frame. + //PARCEL_MEDIA_COMMAND_PAUSE Pause the media stream (stop playing but stay on current frame). + //PARCEL_MEDIA_COMMAND_PLAY Start the media stream playing from the current frame and stop when the end is reached. + //PARCEL_MEDIA_COMMAND_LOOP Start the media stream playing from the current frame. When the end is reached, loop to the beginning and continue. + //PARCEL_MEDIA_COMMAND_TEXTURE key uuid Use this to get or set the parcel's media texture. + //PARCEL_MEDIA_COMMAND_URL string url Used to get or set the parcel's media url. + //PARCEL_MEDIA_COMMAND_TIME float time Move a media stream to a specific time. + //PARCEL_MEDIA_COMMAND_AGENT key uuid Applies the media command to the specified agent only. + //PARCEL_MEDIA_COMMAND_UNLOAD Completely unloads the movie and restores the original texture. + //PARCEL_MEDIA_COMMAND_AUTO_ALIGN integer boolean Sets the parcel option 'Auto scale content'. + //PARCEL_MEDIA_COMMAND_TYPE string mime_type Use this to get or set the parcel media MIME type (e.g. "text/html"). (1.19.1 RC0 or later) + //PARCEL_MEDIA_COMMAND_SIZE integer x, integer y Use this to get or set the parcel media pixel resolution. (1.19.1 RC0 or later) + //PARCEL_MEDIA_COMMAND_DESC string desc Use this to get or set the parcel media description. (1.19.1 RC0 or later) + //PARCEL_MEDIA_COMMAND_LOOP_SET float loop Use this to get or set the parcel's media loop duration. (1.19.1 RC0 or later) + m_host.AddScriptLPS(1); + for (int i = 0; i < commandList.Data.Length; i++) + { + switch ((ParcelMediaCommandEnum)commandList.Data[i]) + { + case ParcelMediaCommandEnum.Play: + List scenePresencePlayList = World.GetScenePresences(); + foreach (ScenePresence agent in scenePresencePlayList) + { + if (!agent.IsChildAgent) + { + agent.ControllingClient.SendParcelMediaCommand((uint)(4), ParcelMediaCommandEnum.Play, 0); + } + } + break; + case ParcelMediaCommandEnum.Stop: + List scenePresenceStopList = World.GetScenePresences(); + foreach (ScenePresence agent in scenePresenceStopList) + { + if (!agent.IsChildAgent) + { + agent.ControllingClient.SendParcelMediaCommand((uint)(4), ParcelMediaCommandEnum.Stop, 0); + } + } + break; + case ParcelMediaCommandEnum.Pause: + List scenePresencePauseList = World.GetScenePresences(); + foreach (ScenePresence agent in scenePresencePauseList) + { + if (!agent.IsChildAgent) + { + agent.ControllingClient.SendParcelMediaCommand((uint)(4), ParcelMediaCommandEnum.Pause, 0); + } + } + break; + + case ParcelMediaCommandEnum.Url: + if ((i + 1) < commandList.Length) + { + if (commandList.Data[i + 1] is string) + { + UUID landowner = World.GetLandOwner(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y); + + if (landowner == UUID.Zero) + { + return; + } + + if (landowner != m_host.ObjectOwner) + { + return; + } + + World.SetLandMediaURL(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y, (string)commandList.GetLSLStringItem(i + 1)); + + List scenePresenceList = World.GetScenePresences(); + LandData landData = World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y); + //Send an update of the mediaURL to all the clients that are in the parcel + foreach (ScenePresence agent in scenePresenceList) + { + if (!agent.IsChildAgent) + { + //Send parcel media update to the client + agent.ControllingClient.SendParcelMediaUpdate(landData.MediaURL, landData.MediaID, landData.MediaAutoScale, "", landData.Description, 0, 0, 1); + } + } + + } + i++; + } + break; + default: + ParcelMediaCommandEnum mediaCommandEnum = ParcelMediaCommandEnum.Url; + NotImplemented("llParcelMediaCommandList parameter do not supported yet: " + Enum.Parse(mediaCommandEnum.GetType(), commandList.Data[i].ToString()).ToString()); + break; + }//end switch + + } + // ScriptSleep(2000); + } + + public LSL_List llParcelMediaQuery(LSL_List aList) + { + m_host.AddScriptLPS(1); + LSL_List list = new LSL_List(); + //TO DO: make the implementation for the missing commands + //PARCEL_MEDIA_COMMAND_TEXTURE key uuid Use this to get or set the parcel's media texture. + //PARCEL_MEDIA_COMMAND_URL string url Used to get or set the parcel's media url. + //PARCEL_MEDIA_COMMAND_TYPE string mime_type Use this to get or set the parcel media MIME type (e.g. "text/html"). (1.19.1 RC0 or later) + //PARCEL_MEDIA_COMMAND_SIZE integer x, integer y Use this to get or set the parcel media pixel resolution. (1.19.1 RC0 or later) + //PARCEL_MEDIA_COMMAND_DESC string desc Use this to get or set the parcel media description. (1.19.1 RC0 or later) + //PARCEL_MEDIA_COMMAND_LOOP_SET float loop Use this to get or set the parcel's media loop duration. (1.19.1 RC0 or later) + for (int i = 0; i < aList.Data.Length; i++) + { + + if (aList.Data[i] != null) + { + switch ((ParcelMediaCommandEnum) aList.Data[i]) + { + case ParcelMediaCommandEnum.Url: + list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).MediaURL)); + break; + case ParcelMediaCommandEnum.Desc: + list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).Description)); + break; + case ParcelMediaCommandEnum.Texture: + list.Add(new LSL_String(World.GetLandData(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).MediaID.ToString())); + break; + default: + ParcelMediaCommandEnum mediaCommandEnum = ParcelMediaCommandEnum.Url; + NotImplemented("llParcelMediaQuery parameter do not supported yet: " + Enum.Parse(mediaCommandEnum.GetType() , aList.Data[i].ToString()).ToString()); + break; + } + + } + } + // ScriptSleep(2000); + return list; + } + + public LSL_Integer llModPow(int a, int b, int c) + { + m_host.AddScriptLPS(1); + Int64 tmp = 0; + Math.DivRem(Convert.ToInt64(Math.Pow(a, b)), c, out tmp); + // ScriptSleep(1000); + return Convert.ToInt32(tmp); + } + + public LSL_Integer llGetInventoryType(string name) + { + m_host.AddScriptLPS(1); + foreach (KeyValuePair inv in m_host.TaskInventory) + { + if (inv.Value.Name == name) + { + return inv.Value.InvType; + } + } + return -1; + } + + public void llSetPayPrice(int price, LSL_List quick_pay_buttons) + { + m_host.AddScriptLPS(1); + + if (quick_pay_buttons.Data.Length < 4) + { + LSLError("List must have at least 4 elements"); + return; + } + m_host.ParentGroup.RootPart.PayPrice[0]=price; + + m_host.ParentGroup.RootPart.PayPrice[1]=(LSL_Integer)quick_pay_buttons.Data[0]; + m_host.ParentGroup.RootPart.PayPrice[2]=(LSL_Integer)quick_pay_buttons.Data[1]; + m_host.ParentGroup.RootPart.PayPrice[3]=(LSL_Integer)quick_pay_buttons.Data[2]; + m_host.ParentGroup.RootPart.PayPrice[4]=(LSL_Integer)quick_pay_buttons.Data[3]; + m_host.ParentGroup.HasGroupChanged = true; + } + + public LSL_Vector llGetCameraPos() + { + m_host.AddScriptLPS(1); + UUID invItemID=InventorySelf(); + if (invItemID == UUID.Zero) + return new LSL_Vector(); + if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero) + return new LSL_Vector(); + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRACK_CAMERA) == 0) + { + ShoutError("No permissions to track the camera"); + return new LSL_Vector(); + } + ScenePresence presence = World.GetScenePresence(m_host.OwnerID); + if (presence != null) + { + LSL_Vector pos = new LSL_Vector(presence.CameraPosition.X, presence.CameraPosition.Y, presence.CameraPosition.Z); + return pos; + } + return new LSL_Vector(); + } + + public LSL_Rotation llGetCameraRot() + { + m_host.AddScriptLPS(1); + NotImplemented("llGetCameraRot"); + return new LSL_Rotation(); + } + + public void llSetPrimURL() + { + m_host.AddScriptLPS(1); + NotImplemented("llSetPrimURL"); + // ScriptSleep(2000); + } + + public void llRefreshPrimURL() + { + m_host.AddScriptLPS(1); + NotImplemented("llRefreshPrimURL"); + // ScriptSleep(20000); + } + + public LSL_String llEscapeURL(string url) + { + m_host.AddScriptLPS(1); + try + { + return Uri.EscapeUriString(url); + } + catch (Exception ex) + { + return "llEscapeURL: " + ex.ToString(); + } + } + + public LSL_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_Vector pos, LSL_Vector look_at) + { + m_host.AddScriptLPS(1); + NotImplemented("llMapDestination"); + // ScriptSleep(1000); + } + + public void llAddToLandBanList(string avatar, double hours) + { + m_host.AddScriptLPS(1); + UUID key; + LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; + if (land.OwnerID == m_host.OwnerID) + { + ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry(); + if (UUID.TryParse(avatar, out key)) + { + entry.AgentID = key; + entry.Flags = ParcelManager.AccessList.Ban; + entry.Time = DateTime.Now.AddHours(hours); + land.ParcelAccessList.Add(entry); + } + } + // ScriptSleep(100); + } + + public void llRemoveFromLandPassList(string avatar) + { + m_host.AddScriptLPS(1); + UUID key; + LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; + if (land.OwnerID == m_host.OwnerID) + { + if (UUID.TryParse(avatar, out key)) + { + foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) + { + if (entry.AgentID == key && entry.Flags == ParcelManager.AccessList.Access) + { + land.ParcelAccessList.Remove(entry); + break; + } + } + } + } + // ScriptSleep(100); + } + + public void llRemoveFromLandBanList(string avatar) + { + m_host.AddScriptLPS(1); + UUID key; + LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; + if (land.OwnerID == m_host.OwnerID) + { + if (UUID.TryParse(avatar, out key)) + { + foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) + { + if (entry.AgentID == key && entry.Flags == ParcelManager.AccessList.Ban) + { + land.ParcelAccessList.Remove(entry); + break; + } + } + } + } + // ScriptSleep(100); + } + + public void llSetCameraParams(LSL_List rules) + { + m_host.AddScriptLPS(1); + + // our key in the object we are in + UUID invItemID=InventorySelf(); + if (invItemID == UUID.Zero) return; + + // the object we are in + UUID objectID = m_host.ParentUUID; + if (objectID == UUID.Zero) return; + + // we need the permission first, to know which avatar we want to set the camera for + UUID agentID = m_host.TaskInventory[invItemID].PermsGranter; + if (agentID == UUID.Zero) return; + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CONTROL_CAMERA) == 0) return; + + ScenePresence presence = World.GetScenePresence(agentID); + + // we are not interested in child-agents + if (presence.IsChildAgent) return; + + SortedDictionary parameters = new SortedDictionary(); + object[] data = rules.Data; + for (int i = 0; i < data.Length; ++i) { + int type = Convert.ToInt32(data[i++].ToString()); + if (i >= data.Length) break; // odd number of entries => ignore the last + + // some special cases: Vector parameters are split into 3 float parameters (with type+1, type+2, type+3) + switch (type) { + case ScriptBaseClass.CAMERA_FOCUS: + case ScriptBaseClass.CAMERA_FOCUS_OFFSET: + case ScriptBaseClass.CAMERA_POSITION: + LSL_Vector v = (LSL_Vector)data[i]; + parameters.Add(type + 1, (float)v.x); + parameters.Add(type + 2, (float)v.y); + parameters.Add(type + 3, (float)v.z); + break; + default: + // TODO: clean that up as soon as the implicit casts are in + if (data[i] is LSL_Float) + parameters.Add(type, (float)((LSL_Float)data[i]).value); + else if (data[i] is LSL_Integer) + parameters.Add(type, (float)((LSL_Integer)data[i]).value); + else parameters.Add(type, Convert.ToSingle(data[i])); + break; + } + } + if (parameters.Count > 0) presence.ControllingClient.SendSetFollowCamProperties(objectID, parameters); + } + + public void llClearCameraParams() + { + m_host.AddScriptLPS(1); + + // our key in the object we are in + UUID invItemID=InventorySelf(); + if (invItemID == UUID.Zero) return; + + // the object we are in + UUID objectID = m_host.ParentUUID; + if (objectID == UUID.Zero) return; + + // we need the permission first, to know which avatar we want to clear the camera for + UUID agentID = m_host.TaskInventory[invItemID].PermsGranter; + if (agentID == UUID.Zero) return; + if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CONTROL_CAMERA) == 0) return; + + ScenePresence presence = World.GetScenePresence(agentID); + + // we are not interested in child-agents + if (presence.IsChildAgent) return; + + presence.ControllingClient.SendClearFollowCamProperties(objectID); + } + + public LSL_Float llListStatistics(int operation, LSL_List src) + { + m_host.AddScriptLPS(1); + LSL_List nums = LSL_List.ToDoubleList(src); + switch (operation) + { + case ScriptBaseClass.LIST_STAT_RANGE: + return nums.Range(); + case ScriptBaseClass.LIST_STAT_MIN: + return nums.Min(); + case ScriptBaseClass.LIST_STAT_MAX: + return nums.Max(); + case ScriptBaseClass.LIST_STAT_MEAN: + return nums.Mean(); + case ScriptBaseClass.LIST_STAT_MEDIAN: + return nums.Median(); + case ScriptBaseClass.LIST_STAT_NUM_COUNT: + return nums.NumericLength(); + case ScriptBaseClass.LIST_STAT_STD_DEV: + return nums.StdDev(); + case ScriptBaseClass.LIST_STAT_SUM: + return nums.Sum(); + case ScriptBaseClass.LIST_STAT_SUM_SQUARES: + return nums.SumSqrs(); + case ScriptBaseClass.LIST_STAT_GEOMETRIC_MEAN: + return nums.GeometricMean(); + case ScriptBaseClass.LIST_STAT_HARMONIC_MEAN: + return nums.HarmonicMean(); + default: + return 0.0; + } + } + + public LSL_Integer llGetUnixTime() + { + m_host.AddScriptLPS(1); + return Util.UnixTimeSinceEpoch(); + } + + public LSL_Integer llGetParcelFlags(LSL_Vector pos) + { + m_host.AddScriptLPS(1); + return (int)World.LandChannel.GetLandObject((float)pos.x, (float)pos.y).landData.Flags; + } + + public LSL_Integer llGetRegionFlags() + { + m_host.AddScriptLPS(1); + IEstateModule estate = World.RequestModuleInterface(); + if (estate == null) + return 67108864; + return (int)estate.GetRegionFlags(); + } + + public LSL_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 LSL_String llHTTPRequest(string url, LSL_List parameters, string body) + { + // Partial implementation: support for parameter flags needed + // see http://wiki.secondlife.com/wiki/LlHTTPRequest + // parameter flags support are implemented in ScriptsHttpRequests.cs + // in StartHttpRequest + + m_host.AddScriptLPS(1); + IHttpRequests httpScriptMod = + m_ScriptEngine.World.RequestModuleInterface(); + List param = new List(); + foreach (object o in parameters.Data) + { + param.Add(o.ToString()); + } + + Vector3 position = m_host.AbsolutePosition; + Vector3 velocity = m_host.Velocity; + Quaternion rotation = m_host.RotationOffset; + ScenePresence scenePresence = World.GetScenePresence(m_host.ObjectOwner); + RegionInfo regionInfo = World.RegionInfo; + + Dictionary httpHeaders = new Dictionary(); + + httpHeaders["X-SecondLife-Shard"] = "OpenSim"; + httpHeaders["X-SecondLife-Object-Name"] = m_host.Name; + httpHeaders["X-SecondLife-Object-Key"] = m_itemID.ToString(); + httpHeaders["X-SecondLife-Region"] = string.Format("{0} ({1}, {2})", regionInfo.RegionName, regionInfo.RegionLocX, regionInfo.RegionLocY); + httpHeaders["X-SecondLife-Local-Position"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000})", position.X, position.Y, position.Z); + httpHeaders["X-SecondLife-Local-Velocity"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000})", velocity.X, velocity.Y, velocity.Z); + httpHeaders["X-SecondLife-Local-Rotation"] = string.Format("({0:0.000000}, {1:0.000000}, {2:0.000000}, {3:0.000000})", rotation.X, rotation.Y, rotation.Z, rotation.W); + httpHeaders["X-SecondLife-Owner-Name"] = scenePresence == null ? string.Empty : scenePresence.ControllingClient.Name; + httpHeaders["X-SecondLife-Owner-Key"] = m_host.ObjectOwner.ToString(); + + UUID reqID = httpScriptMod. + StartHttpRequest(m_localID, m_itemID, url, param, httpHeaders, body); + + if (reqID != UUID.Zero) + return reqID.ToString(); + else + return null; + } + + public void llResetLandBanList() + { + m_host.AddScriptLPS(1); + LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; + if (land.OwnerID == m_host.OwnerID) + { + foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) + { + if (entry.Flags == ParcelManager.AccessList.Ban) + { + land.ParcelAccessList.Remove(entry); + } + } + } + // ScriptSleep(100); + } + + public void llResetLandPassList() + { + m_host.AddScriptLPS(1); + LandData land = World.LandChannel.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).landData; + if (land.OwnerID == m_host.OwnerID) + { + foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList) + { + if (entry.Flags == ParcelManager.AccessList.Access) + { + land.ParcelAccessList.Remove(entry); + } + } + } + // ScriptSleep(100); + } + + public LSL_Integer llGetParcelPrimCount(LSL_Vector pos, int category, int sim_wide) + { + m_host.AddScriptLPS(1); + + LandData land = World.GetLandData((float)pos.x, (float)pos.y); + + if (land == null) + { + return 0; + } + + else + { + if (sim_wide == 1) + { + if (category == 0) + { + return land.SimwidePrims; + } + + else + { + //public int simwideArea = 0; + return 0; + } + } + + else + { + if (category == 0)//Total Prims + { + return 0;//land. + } + + else if (category == 1)//Owner Prims + { + return land.OwnerPrims; + } + + else if (category == 2)//Group Prims + { + return land.GroupPrims; + } + + else if (category == 3)//Other Prims + { + return land.OtherPrims; + } + + else if (category == 4)//Selected + { + return land.SelectedPrims; + } + + else if (category == 5)//Temp + { + return 0;//land. + } + } + } + return 0; + } + + public LSL_List llGetParcelPrimOwners(LSL_Vector pos) + { + m_host.AddScriptLPS(1); + LandObject land = (LandObject)World.LandChannel.GetLandObject((float)pos.x, (float)pos.y); + LSL_List ret = new LSL_List(); + if (land != null) + { + foreach (KeyValuePair d in land.getLandObjectOwners()) + { + ret.Add(d.Key.ToString()); + ret.Add(d.Value); + } + } + // ScriptSleep(2000); + return ret; + } + + public LSL_Integer llGetObjectPrimCount(string object_id) + { + m_host.AddScriptLPS(1); + SceneObjectPart part = World.GetSceneObjectPart(new UUID(object_id)); + if (part == null) + { + return 0; + } + else + { + return part.ParentGroup.Children.Count; + } + } + + public LSL_Integer llGetParcelMaxPrims(LSL_Vector 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 = (float)World.RegionInfo.RegionSettings.ObjectBonus; + + 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_List llGetParcelDetails(LSL_Vector pos, LSL_List param) + { + m_host.AddScriptLPS(1); + LandData land = World.GetLandData((float)pos.x, (float)pos.y); + if (land == null) + { + return new LSL_List(0); + } + LSL_List ret = new LSL_List(); + foreach (object o in param.Data) + { + switch (o.ToString()) + { + case "0": + ret = ret + new LSL_List(land.Name); + break; + case "1": + ret = ret + new LSL_List(land.Description); + break; + case "2": + ret = ret + new LSL_List(land.OwnerID.ToString()); + break; + case "3": + ret = ret + new LSL_List(land.GroupID.ToString()); + break; + case "4": + ret = ret + new LSL_List(land.Area); + break; + default: + ret = ret + new LSL_List(0); + break; + } + } + return ret; + } + + public void llSetLinkTexture(int linknumber, string texture, int face) + { + m_host.AddScriptLPS(1); + + if (m_host.ParentGroup == null) + return; + + SceneObjectPart part = m_host.ParentGroup.GetLinkNumPart(linknumber); + + if (part == null) + return; + + SetTexture(part, texture, face); + // ScriptSleep(200); + } + + public LSL_String llStringTrim(string src, int type) + { + m_host.AddScriptLPS(1); + if (type == (int)ScriptBaseClass.STRING_TRIM_HEAD) { return src.TrimStart(); } + if (type == (int)ScriptBaseClass.STRING_TRIM_TAIL) { return src.TrimEnd(); } + if (type == (int)ScriptBaseClass.STRING_TRIM) { return src.Trim(); } + return src; + } + + public LSL_List llGetObjectDetails(string id, LSL_List args) + { + m_host.AddScriptLPS(1); + LSL_List ret = new LSL_List(); + UUID key = new UUID(); + if (UUID.TryParse(id, out key)) + { + ScenePresence av = World.GetScenePresence(key); + + if (av != null) + { + foreach (object o in args.Data) + { + switch (o.ToString()) + { + case "1": + ret.Add(av.Firstname + " " + av.Lastname); + break; + case "2": + ret.Add(""); + break; + case "3": + ret.Add(new LSL_Vector((double)av.AbsolutePosition.X, (double)av.AbsolutePosition.Y, (double)av.AbsolutePosition.Z)); + break; + case "4": + ret.Add(new LSL_Rotation((double)av.Rotation.X, (double)av.Rotation.Y, (double)av.Rotation.Z, (double)av.Rotation.W)); + break; + case "5": + ret.Add(new LSL_Vector(av.Velocity.X, av.Velocity.Y, av.Velocity.Z)); + break; + case "6": + ret.Add(id); + break; + case "7": + ret.Add(UUID.Zero.ToString()); + break; + case "8": + ret.Add(UUID.Zero.ToString()); + break; + } + } + return ret; + } + SceneObjectPart obj = World.GetSceneObjectPart(key); + if (obj != null) + { + foreach (object o in args.Data) + { + switch (o.ToString()) + { + case "1": + ret.Add(obj.Name); + break; + case "2": + ret.Add(obj.Description); + break; + case "3": + ret.Add(new LSL_Vector(obj.AbsolutePosition.X, obj.AbsolutePosition.Y, obj.AbsolutePosition.Z)); + break; + case "4": + ret.Add(new LSL_Rotation(obj.RotationOffset.X, obj.RotationOffset.Y, obj.RotationOffset.Z, obj.RotationOffset.W)); + break; + case "5": + ret.Add(new LSL_Vector(obj.Velocity.X, obj.Velocity.Y, obj.Velocity.Z)); + break; + case "6": + ret.Add(obj.OwnerID.ToString()); + break; + case "7": + ret.Add(obj.GroupID.ToString()); + break; + case "8": + ret.Add(obj.CreatorID.ToString()); + break; + } + } + return ret; + } + } + return new LSL_List(); + } + + + internal UUID ScriptByName(string name) + { + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 10 && item.Name == name) + return item.ItemID; + } + return UUID.Zero; + } + + internal void ShoutError(string msg) + { + llShout(ScriptBaseClass.DEBUG_CHANNEL, msg); + } + + internal void NotImplemented(string command) + { + if (throwErrorOnNotImplemented) + throw new NotImplementedException("Command not implemented: " + command); + } + + internal void Deprecated(string command) + { + throw new Exception("Command deprecated: " + command); + } + + internal void LSLError(string msg) + { + throw new Exception("LSL Runtime Error: " + msg); + } + + public delegate void AssetRequestCallback(UUID assetID, AssetBase asset); + private void WithNotecard(UUID assetID, AssetRequestCallback cb) + { + World.AssetCache.GetAsset(assetID, delegate(UUID i, AssetBase a) { cb(i, a); }, false); + } + + public LSL_String llGetNumberOfNotecardLines(string name) + { + m_host.AddScriptLPS(1); + + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 7 && item.Name == name) + { + UUID tid = AsyncCommands. + DataserverPlugin.RegisterRequest(m_localID, + m_itemID, item.AssetID.ToString()); + if (NotecardCache.IsCached(item.AssetID)) + { + AsyncCommands. + DataserverPlugin.DataserverReply(item.AssetID.ToString(), + NotecardCache.GetLines(item.AssetID).ToString()); + // ScriptSleep(100); + return tid.ToString(); + } + WithNotecard(item.AssetID, delegate (UUID id, AssetBase a) + { + System.Text.ASCIIEncoding enc = + new System.Text.ASCIIEncoding(); + string data = enc.GetString(a.Data); + //Console.WriteLine(data); + NotecardCache.Cache(id, data); + AsyncCommands. + DataserverPlugin.DataserverReply(id.ToString(), + NotecardCache.GetLines(id).ToString()); + }); + // ScriptSleep(100); + return tid.ToString(); + } + } + // if we got to here, we didn't find the notecard the script was asking for + // => complain loudly, as specified by the LSL docs + ShoutError("Notecard '" + name + "' could not be found."); + + // ScriptSleep(100); + return UUID.Zero.ToString(); + } + + public LSL_String llGetNotecardLine(string name, int line) + { + m_host.AddScriptLPS(1); + + foreach (TaskInventoryItem item in m_host.TaskInventory.Values) + { + if (item.Type == 7 && item.Name == name) + { + UUID tid = AsyncCommands. + DataserverPlugin.RegisterRequest(m_localID, + m_itemID, item.AssetID.ToString()); + + if (NotecardCache.IsCached(item.AssetID)) + { + AsyncCommands. + DataserverPlugin.DataserverReply(item.AssetID.ToString(), + NotecardCache.GetLine(item.AssetID, line)); + // ScriptSleep(100); + return tid.ToString(); + } + + WithNotecard(item.AssetID, delegate (UUID id, AssetBase a) + { + System.Text.ASCIIEncoding enc = + new System.Text.ASCIIEncoding(); + string data = enc.GetString(a.Data); + //Console.WriteLine(data); + NotecardCache.Cache(id, data); + AsyncCommands. + DataserverPlugin.DataserverReply(id.ToString(), + NotecardCache.GetLine(id, line)); + }); + + // ScriptSleep(100); + return tid.ToString(); + } + } + + // if we got to here, we didn't find the notecard the script was asking for + // => complain loudly, as specified by the LSL docs + ShoutError("Notecard '" + name + "' could not be found."); + + // ScriptSleep(100); + return UUID.Zero.ToString(); + } + + } + + public class NotecardCache + { + private class Notecard + { + public string[] text; + public DateTime lastRef; + } + + private static Dictionary m_Notecards = + new Dictionary(); + + public static void Cache(UUID assetID, string text) + { + CacheCheck(); + + lock (m_Notecards) + { + if (m_Notecards.ContainsKey(assetID)) + return; + + Notecard nc = new Notecard(); + nc.lastRef = DateTime.Now; + nc.text = ParseText(text.Replace("\r", "").Split('\n')); + m_Notecards[assetID] = nc; + } + } + + private static string[] ParseText(string[] input) + { + int idx = 0; + int level = 0; + List output = new List(); + string[] words; + + while (idx < input.Length) + { + if (input[idx] == "{") + { + level++; + idx++; + continue; + } + + if (input[idx]== "}") + { + level--; + idx++; + continue; + } + + switch (level) + { + case 0: + words = input[idx].Split(' '); // Linden text ver + // Notecards are created *really* empty. Treat that as "no text" (just like after saving an empty notecard) + if (words.Length < 3) + return new String[0]; + + int version = int.Parse(words[3]); + if (version != 2) + return new String[0]; + break; + case 1: + words = input[idx].Split(' '); + if (words[0] == "LLEmbeddedItems") + break; + if (words[0] == "Text") + { + int len = int.Parse(words[2]); + idx++; + + int count = -1; + + while (count < len) + { + // int l = input[idx].Length; + string ln = input[idx]; + + int need = len-count-1; + if (ln.Length > need) + ln = ln.Substring(0, need); + + output.Add(ln); + count += ln.Length + 1; + idx++; + } + + return output.ToArray(); + } + break; + case 2: + words = input[idx].Split(' '); // count + if (words[0] == "count") + { + int c = int.Parse(words[1]); + if (c > 0) + return new String[0]; + break; + } + break; + } + idx++; + } + return output.ToArray(); + } + + public static bool IsCached(UUID assetID) + { + lock (m_Notecards) + { + return m_Notecards.ContainsKey(assetID); + } + } + + public static int GetLines(UUID assetID) + { + if (!IsCached(assetID)) + return -1; + + lock (m_Notecards) + { + m_Notecards[assetID].lastRef = DateTime.Now; + return m_Notecards[assetID].text.Length; + } + } + + public static string GetLine(UUID assetID, int line) + { + if (line < 0) + return ""; + + string data; + + if (!IsCached(assetID)) + return ""; + + lock (m_Notecards) + { + m_Notecards[assetID].lastRef = DateTime.Now; + + if (line >= m_Notecards[assetID].text.Length) + return "\n\n\n"; + + data = m_Notecards[assetID].text[line]; + if (data.Length > 255) + data = data.Substring(0, 255); + + return data; + } + } + + public static void CacheCheck() + { + foreach (UUID key in new List(m_Notecards.Keys)) + { + Notecard nc = m_Notecards[key]; + if (nc.lastRef.AddSeconds(30) < DateTime.Now) + m_Notecards.Remove(key); + } + } + } +} -- cgit v1.1