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.
---
.../ScriptEngine/Common/LSL_BuiltIn_Commands.cs | 8328 +-------------------
.../ScriptEngine/Common/OSSL_BuilIn_Commands.cs | 18 +-
.../Common/ScriptEngineBase/ScriptEngine.cs | 5 +
.../ScriptEngine/Interfaces/IEventReceiver.cs | 3 +
.../ScriptEngine/Interfaces/IScriptEngine.cs | 3 -
.../Shared/Api/Implementation/LSL_Api.cs | 8258 +------------------
.../Shared/Api/Implementation/LSL_Api_Base.cs | 8279 +++++++++++++++++++
7 files changed, 8399 insertions(+), 16495 deletions(-)
create mode 100644 OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api_Base.cs
(limited to 'OpenSim/Region/ScriptEngine')
diff --git a/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs b/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs
index 8e24543..8252bfc 100644
--- a/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs
+++ b/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs
@@ -60,21 +60,15 @@ namespace OpenSim.Region.ScriptEngine.Common
///
/// Contains all LSL ll-functions. This class will be in Default AppDomain.
///
- public class LSL_BuiltIn_Commands : MarshalByRefObject, LSL_BuiltIn_Commands_Interface
+ public class LSL_BuiltIn_Commands : LSL_Api_Base, LSL_BuiltIn_Commands_Interface
{
// private static readonly log4net.ILog m_log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
- internal ScriptEngineBase.ScriptEngine m_ScriptEngine;
- internal SceneObjectPart m_host;
- internal uint m_localID;
- internal UUID m_itemID;
- internal bool throwErrorOnNotImplemented = true;
- internal float m_ScriptDelayFactor = 1.0f;
- internal float m_ScriptDistanceFactor = 1.0f;
- internal AsyncCommandManager AsyncCommands = null;
+ internal ScriptEngineBase.ScriptEngine m_ScriptEngineDirect;
public LSL_BuiltIn_Commands(ScriptEngineBase.ScriptEngine ScriptEngine, SceneObjectPart host, uint localID, UUID itemID)
{
+ m_ScriptEngineDirect = ScriptEngine;
m_ScriptEngine = ScriptEngine;
m_host = host;
m_localID = localID;
@@ -95,8 +89,6 @@ namespace OpenSim.Region.ScriptEngine.Common
}
private string m_state = "default";
- private DateTime m_timer = DateTime.Now;
- private bool m_waitingForScriptAnswer=false;
protected void ScriptSleep(int delay)
{
@@ -118,11 +110,6 @@ namespace OpenSim.Region.ScriptEngine.Common
return lease;
}
- public Scene World
- {
- get { return m_ScriptEngine.World; }
- }
-
public string State
{
get { return m_state; }
@@ -132,7 +119,7 @@ namespace OpenSim.Region.ScriptEngine.Common
{
try
{
- m_ScriptEngine.m_EventManager.state_exit(m_localID);
+ m_ScriptEngineDirect.m_EventManager.state_exit(m_localID);
}
catch (AppDomainUnloadedException)
@@ -142,9 +129,9 @@ namespace OpenSim.Region.ScriptEngine.Common
m_state = value;
try
{
- int eventFlags = m_ScriptEngine.m_ScriptManager.GetStateEventFlags(m_localID, m_itemID);
+ int eventFlags = m_ScriptEngineDirect.m_ScriptManager.GetStateEventFlags(m_localID, m_itemID);
m_host.SetScriptEvents(m_itemID, eventFlags);
- m_ScriptEngine.m_EventManager.state_entry(m_localID);
+ m_ScriptEngineDirect.m_EventManager.state_entry(m_localID);
}
catch (AppDomainUnloadedException)
{
@@ -160,8291 +147,116 @@ namespace OpenSim.Region.ScriptEngine.Common
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()
+ public LSL_Integer llGetScriptState(string name)
{
- 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;
- }
+ UUID item;
+ ScriptManager sm;
+ IScript script = null;
- 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;
- }
+ // These functions are supposed to be robust,
+ // so get the state one step at a time.
- private UUID InventoryKey(string name)
- {
- m_host.AddScriptLPS(1);
- foreach (KeyValuePair inv in m_host.TaskInventory)
+ if ((item = ScriptByName(name)) != UUID.Zero)
{
- if (inv.Value.Name == name)
+ if ((sm = m_ScriptEngineDirect.m_ScriptManager) != null)
{
- return inv.Value.AssetID.ToString();
+ if ((script = sm.GetScript(m_localID, item)) != null)
+ {
+ return script.Exec.Running?1:0;
+ }
}
}
- 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);
- }
+ // Required by SL
- //Now we start getting into quaternions which means sin/cos, matrices and vectors. ckrinke
+ if (script == null)
+ ShoutError("llGetScriptState: script "+name+" not found");
- // Utility function for llRot2Euler
+ // If we didn't find it, then it's safe to
+ // assume it is not running.
- // 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;
+ return 0;
}
- // Old implementation of llRot2Euler, now normalized
-
- public LSL_Vector llRot2Euler(LSL_Rotation r)
+ public void llResetOtherScript(string name)
{
- 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.
- */
+ UUID item;
+ ScriptManager sm;
+ IScript script = null;
- /* 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?
- */
+ m_host.AddScriptLPS(8000);
- public LSL_Rotation llEuler2Rot(LSL_Vector v)
- {
- m_host.AddScriptLPS(1);
+ // These functions are supposed to be robust,
+ // so get the state one step at a time.
- double x,y,z,s;
+ if ((item = ScriptByName(name)) != UUID.Zero)
+ if ((sm = m_ScriptEngineDirect.m_ScriptManager) != null)
+ sm.ResetScript(m_localID, item);
- 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);
+ // Required by SL
- 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;
+ if (script == null)
+ ShoutError("llResetOtherScript: script "+name+" not found");
- return new LSL_Rotation(x, y, z, s);
+ // If we didn't find it, then it's safe to
+ // assume it is not running.
}
- public LSL_Rotation llAxes2Rot(LSL_Vector fwd, LSL_Vector left, LSL_Vector up)
+ public void llResetScript()
{
- 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;
+ m_host.AddScriptLPS(800);
+ m_ScriptEngineDirect.m_ScriptManager.ResetScript(m_localID, m_itemID);
}
- public LSL_Vector llRot2Fwd(LSL_Rotation r)
+ public void llSetScriptState(string name, int run)
{
- 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));
- }
+ UUID item;
+ ScriptManager sm;
+ IScript script = null;
- 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;
+ // These functions are supposed to be robust,
+ // so get the state one step at a time.
- 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
+ if ((item = ScriptByName(name)) != UUID.Zero)
{
- m = 1.0 / Math.Sqrt(m);
- r.x *= m;
- r.y *= m;
- r.z *= m;
- r.s *= m;
+ if ((sm = m_ScriptEngineDirect.m_ScriptManager) != null)
+ {
+ if (sm.Scripts.ContainsKey(m_localID))
+ {
+ if ((script = sm.GetScript(m_localID, item)) != null)
+ {
+ script.Exec.Running = (run==0) ? false : true;
+ }
+ }
+ }
}
- // 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);
+ // Required by SL
- World.SimChat(Utils.StringToBytes(text),
- ChatTypeEnum.Shout, channelID, m_host.AbsolutePosition, m_host.Name, m_host.UUID, true);
+ if (script == null)
+ ShoutError("llSetScriptState: script "+name+" not found");
- IWorldComm wComm = m_ScriptEngine.World.RequestModuleInterface();
- wComm.DeliverMessage(ChatTypeEnum.Shout, channelID, m_host.Name, m_host.UUID, text);
+ // If we didn't find it, then it's safe to
+ // assume it is not running.
}
- public void llRegionSay(int channelID, string text)
+ internal UUID ScriptByName(string name)
{
- if (channelID == 0)
+ foreach (TaskInventoryItem item in m_host.TaskInventory.Values)
{
- LSLError("Cannot use llRegionSay() on channel 0");
- return;
+ if (item.Type == 10 && item.Name == name)
+ return item.ItemID;
}
-
- 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);
+ return UUID.Zero;
}
- 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);
- World.DeleteSceneObject(m_host.ParentGroup);
- }
-
- 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()
- {
- // This is not handled here
- return 0;
- }
-
- 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;
- ScriptManager sm;
- IScript script = null;
-
- 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)
- {
- if ((sm = m_ScriptEngine.m_ScriptManager) != null)
- {
- if (sm.Scripts.ContainsKey(m_localID))
- {
- if ((script = sm.GetScript(m_localID, item)) != null)
- {
- script.Exec.Running = (run==0) ? false : true;
- }
- }
- }
- }
-
- // Required by SL
-
- if (script == null)
- ShoutError("llSetScriptState: script "+name+" not found");
-
- // If we didn't find it, then it's safe to
- // assume it is not running.
- }
-
- 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(800);
- m_ScriptEngine.m_ScriptManager.ResetScript(m_localID, m_itemID);
- }
-
- 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;
- ScriptManager sm;
- IScript script = null;
-
- m_host.AddScriptLPS(8000);
-
- // These functions are supposed to be robust,
- // so get the state one step at a time.
-
- if ((item = ScriptByName(name)) != UUID.Zero)
- if ((sm = m_ScriptEngine.m_ScriptManager) != null)
- sm.ResetScript(m_localID, item);
-
- // Required by SL
-
- if (script == null)
- ShoutError("llResetOtherScript: script "+name+" not found");
-
- // If we didn't find it, then it's safe to
- // assume it is not running.
- }
-
- public LSL_Integer llGetScriptState(string name)
- {
- UUID item;
- ScriptManager sm;
- IScript script = null;
-
- 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)
- {
- if ((sm = m_ScriptEngine.m_ScriptManager) != null)
- {
- if ((script = sm.GetScript(m_localID, item)) != null)
- {
- return script.Exec.Running?1:0;
- }
- }
- }
-
- // Required by SL
-
- if (script == null)
- 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)
- // ref 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)
+ 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);
- }
- }
}
}
diff --git a/OpenSim/Region/ScriptEngine/Common/OSSL_BuilIn_Commands.cs b/OpenSim/Region/ScriptEngine/Common/OSSL_BuilIn_Commands.cs
index 0ef909f..7b2d229 100644
--- a/OpenSim/Region/ScriptEngine/Common/OSSL_BuilIn_Commands.cs
+++ b/OpenSim/Region/ScriptEngine/Common/OSSL_BuilIn_Commands.cs
@@ -40,10 +40,13 @@ namespace OpenSim.Region.ScriptEngine.Common
{
public class OSSL_BuilIn_Commands : LSL_BuiltIn_Commands, OSSL_BuilIn_Commands_Interface
{
+ internal ScriptEngineBase.ScriptEngine m_ScriptEngineDirect;
+
public OSSL_BuilIn_Commands(ScriptEngineBase.ScriptEngine scriptEngine, SceneObjectPart host, uint localID,
UUID itemID)
: base(scriptEngine, host, localID, itemID)
{
+ m_ScriptEngineDirect = scriptEngine;
Prim = new OSSLPrim(this);
}
@@ -577,7 +580,7 @@ namespace OpenSim.Region.ScriptEngine.Common
{
UUID channelID = xmlrpcMod.OpenXMLRPCChannel(m_localID, m_itemID, new UUID(channel));
object[] resobj = new object[] { new LSL_Types.LSLInteger(1), new LSL_Types.LSLString(channelID.ToString()), new LSL_Types.LSLString(UUID.Zero.ToString()), new LSL_Types.LSLString(String.Empty), new LSL_Types.LSLInteger(0), new LSL_Types.LSLString(String.Empty) };
- m_ScriptEngine.m_EventQueueManager.AddToScriptQueue(m_localID, m_itemID, "remote_data", new DetectParams[0], resobj);
+ m_ScriptEngineDirect.m_EventQueueManager.AddToScriptQueue(m_localID, m_itemID, "remote_data", new DetectParams[0], resobj);
}
}
@@ -605,16 +608,16 @@ namespace OpenSim.Region.ScriptEngine.Common
int scriptEngineNameIndex = 0;
- if (!String.IsNullOrEmpty(m_ScriptEngine.ScriptEngineName))
+ if (!String.IsNullOrEmpty(m_ScriptEngineDirect.ScriptEngineName))
{
// parse off the "ScriptEngine."
- scriptEngineNameIndex = m_ScriptEngine.ScriptEngineName.IndexOf(".", scriptEngineNameIndex);
+ scriptEngineNameIndex = m_ScriptEngineDirect.ScriptEngineName.IndexOf(".", scriptEngineNameIndex);
scriptEngineNameIndex++; // get past delimiter
- int scriptEngineNameLength = m_ScriptEngine.ScriptEngineName.Length - scriptEngineNameIndex;
+ int scriptEngineNameLength = m_ScriptEngineDirect.ScriptEngineName.Length - scriptEngineNameIndex;
// create char array then a string that is only the script engine name
- Char[] scriptEngineNameCharArray = m_ScriptEngine.ScriptEngineName.ToCharArray(scriptEngineNameIndex, scriptEngineNameLength);
+ Char[] scriptEngineNameCharArray = m_ScriptEngineDirect.ScriptEngineName.ToCharArray(scriptEngineNameIndex, scriptEngineNameLength);
String scriptEngineName = new String(scriptEngineNameCharArray);
return scriptEngineName;
@@ -805,5 +808,10 @@ namespace OpenSim.Region.ScriptEngine.Common
return jsondata;
}
+
+ internal void LSLError(string msg)
+ {
+ throw new Exception("LSL Runtime Error: " + msg);
+ }
}
}
diff --git a/OpenSim/Region/ScriptEngine/Common/ScriptEngineBase/ScriptEngine.cs b/OpenSim/Region/ScriptEngine/Common/ScriptEngineBase/ScriptEngine.cs
index b09a30b..d423311 100644
--- a/OpenSim/Region/ScriptEngine/Common/ScriptEngineBase/ScriptEngine.cs
+++ b/OpenSim/Region/ScriptEngine/Common/ScriptEngineBase/ScriptEngine.cs
@@ -220,6 +220,11 @@ namespace OpenSim.Region.ScriptEngine.Common.ScriptEngineBase
return det[number];
}
+
+ public int GetStartParameter(UUID itemID)
+ {
+ return 0;
+ }
#endregion
}
}
diff --git a/OpenSim/Region/ScriptEngine/Interfaces/IEventReceiver.cs b/OpenSim/Region/ScriptEngine/Interfaces/IEventReceiver.cs
index d315800..4be6a77 100644
--- a/OpenSim/Region/ScriptEngine/Interfaces/IEventReceiver.cs
+++ b/OpenSim/Region/ScriptEngine/Interfaces/IEventReceiver.cs
@@ -54,5 +54,8 @@ namespace OpenSim.Region.ScriptEngine.Interfaces
/// Post event to an entire prim
///
bool PostObjectEvent(uint localID, EventParams parms);
+
+ DetectParams GetDetectParams(UUID item, int number);
+ int GetStartParameter(UUID itemID);
}
}
diff --git a/OpenSim/Region/ScriptEngine/Interfaces/IScriptEngine.cs b/OpenSim/Region/ScriptEngine/Interfaces/IScriptEngine.cs
index e0e9e82..389af00 100644
--- a/OpenSim/Region/ScriptEngine/Interfaces/IScriptEngine.cs
+++ b/OpenSim/Region/ScriptEngine/Interfaces/IScriptEngine.cs
@@ -51,7 +51,6 @@ namespace OpenSim.Region.ScriptEngine.Interfaces
void SetScriptState(UUID itemID, bool state);
bool GetScriptState(UUID itemID);
void SetState(UUID itemID, string newState);
- int GetStartParameter(UUID itemID);
///
/// Queue an event for execution
@@ -59,7 +58,5 @@ namespace OpenSim.Region.ScriptEngine.Interfaces
IScriptWorkItem QueueEventHandler(object parms);
IScriptApi GetApi(UUID itemID, string name);
-
- DetectParams GetDetectParams(UUID item, int number);
}
}
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