/Aurora/AuroraDotNetEngine/APIs/LSL_Api.cs

/*

 * Copyright (c) Contributors, http://aurora-sim.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 Aurora-Sim 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 Aurora.Framework;

using Aurora.Framework.ClientInterfaces;

using Aurora.Framework.ConsoleFramework;

using Aurora.Framework.DatabaseInterfaces;

using Aurora.Framework.Modules;

using Aurora.Framework.Physics;

using Aurora.Framework.PresenceInfo;

using Aurora.Framework.SceneInfo;

using Aurora.Framework.SceneInfo.Entities;

using Aurora.Framework.Serialization;

using Aurora.Framework.Servers;

using Aurora.Framework.Services;

using Aurora.Framework.Services.ClassHelpers.Assets;

using Aurora.Framework.Services.ClassHelpers.Inventory;

using Aurora.Framework.Services.ClassHelpers.Profile;

using Aurora.Framework.Utilities;

using Aurora.ScriptEngine.AuroraDotNetEngine.APIs.Interfaces;

using Aurora.ScriptEngine.AuroraDotNetEngine.Plugins;

using Aurora.ScriptEngine.AuroraDotNetEngine.Runtime;

using Nini.Config;

using OpenMetaverse;

using OpenMetaverse.Packets;

using System;

using System.Collections;

using System.Collections.Generic;

using System.Linq;

using System.Runtime.Remoting.Lifetime;

using System.Text;

using System.Text.RegularExpressions;

using System.Threading;

using GridRegion = Aurora.Framework.Services.GridRegion;

using LSL_Float = Aurora.ScriptEngine.AuroraDotNetEngine.LSL_Types.LSLFloat;

using LSL_Integer = Aurora.ScriptEngine.AuroraDotNetEngine.LSL_Types.LSLInteger;

using LSL_Key = Aurora.ScriptEngine.AuroraDotNetEngine.LSL_Types.LSLString;

using LSL_List = Aurora.ScriptEngine.AuroraDotNetEngine.LSL_Types.list;

using LSL_Rotation = Aurora.ScriptEngine.AuroraDotNetEngine.LSL_Types.Quaternion;

using LSL_String = Aurora.ScriptEngine.AuroraDotNetEngine.LSL_Types.LSLString;

using LSL_Vector = Aurora.ScriptEngine.AuroraDotNetEngine.LSL_Types.Vector3;

using PrimType = Aurora.Framework.SceneInfo.PrimType;

using RegionFlags = Aurora.Framework.Services.RegionFlags;



namespace Aurora.ScriptEngine.AuroraDotNetEngine.APIs

{

    /// <summary>

    ///     Contains all LSL ll-functions. This class will be in Default AppDomain.

    /// </summary>

    [Serializable]

    public class LSL_Api : MarshalByRefObject, ILSL_Api, IScriptApi

    {

        protected IScriptModulePlugin m_ScriptEngine;

        protected ISceneChildEntity m_host;

        protected uint m_localID;

        protected UUID m_itemID;

        protected bool throwErrorOnNotImplemented = true;

        protected float m_ScriptDelayFactor = 1.0f;

        protected float m_ScriptDistanceFactor = 1.0f;

        protected float m_MinTimerInterval = 0.1f;



        protected DateTime m_timer = DateTime.Now;

        protected bool m_waitingForScriptAnswer = false;

        protected bool m_automaticLinkPermission = false;

        protected IMessageTransferModule m_TransferModule = null;

        protected int m_notecardLineReadCharsMax = 255;

        protected int m_scriptConsoleChannel = 0;

        protected bool m_scriptConsoleChannelEnabled = false;

        protected IUrlModule m_UrlModule = null;

        internal ScriptProtectionModule ScriptProtection;

        protected IWorldComm m_comms = null;



        // MUST be a ref type

        public class UserInfoCacheEntry

        {

            public int time;

            public UserAccount account;

            public UserInfo pinfo;

        }



        protected Dictionary<UUID, UserInfoCacheEntry> m_userInfoCache =

            new Dictionary<UUID, UserInfoCacheEntry>();



        public void Initialize(IScriptModulePlugin ScriptEngine, ISceneChildEntity host, uint localID, UUID itemID,

                               ScriptProtectionModule module)

        {

            m_ScriptEngine = ScriptEngine;

            m_host = host;

            m_localID = localID;

            m_itemID = itemID;

            ScriptProtection = module;



            m_ScriptDelayFactor =

                m_ScriptEngine.Config.GetFloat("ScriptDelayFactor", 1.0f);

            m_ScriptDistanceFactor =

                m_ScriptEngine.Config.GetFloat("ScriptDistanceLimitFactor", 1.0f);

            m_MinTimerInterval =

                m_ScriptEngine.Config.GetFloat("MinTimerInterval", 0.5f);

            m_automaticLinkPermission =

                m_ScriptEngine.Config.GetBoolean("AutomaticLinkPermission", false);

            m_notecardLineReadCharsMax =

                m_ScriptEngine.Config.GetInt("NotecardLineReadCharsMax", 255);

            if (m_notecardLineReadCharsMax > 65535)

                m_notecardLineReadCharsMax = 65535;



            m_TransferModule =

                World.RequestModuleInterface<IMessageTransferModule>();

            m_UrlModule = World.RequestModuleInterface<IUrlModule>();

            m_comms = World.RequestModuleInterface<IWorldComm>();

        }



        public IScriptApi Copy()

        {

            return new LSL_Api();

        }



        public string Name

        {

            get { return "ll"; }

        }



        public string InterfaceName

        {

            get { return "ILSL_Api"; }

        }



        /// <summary>

        ///     We don't have to add any assemblies here

        /// </summary>

        public string[] ReferencedAssemblies

        {

            get { return new string[0]; }

        }



        /// <summary>

        ///     We use the default namespace, so we don't have any to add

        /// </summary>

        public string[] NamespaceAdditions

        {

            get { return new string[0]; }

        }



        public void Dispose()

        {

        }



        public override Object InitializeLifetimeService()

        {

            ILease lease = (ILease) base.InitializeLifetimeService();



            if (lease != null && lease.CurrentState == LeaseState.Initial)

            {

                lease.InitialLeaseTime = TimeSpan.FromMinutes(0);

                //                lease.RenewOnCallTime = TimeSpan.FromSeconds(10.0);

                //                lease.SponsorshipTimeout = TimeSpan.FromMinutes(1.0);

            }

            return lease;

        }



        protected virtual void ScriptSleep(int delay)

        {

            delay = (int) (delay*m_ScriptDelayFactor);

            if (delay == 0)

                return;



            Thread.Sleep(delay);

        }



        /// <summary>

        ///     This is the new sleep implementation that allows for us to not freeze the script thread while we run

        /// </summary>

        /// <param name="delay"></param>

        /// <returns></returns>

        protected DateTime PScriptSleep(int delay)

        {

            double dly = (delay*m_ScriptDelayFactor);

            if (dly == 0.0)

                return DateTime.Now;



            DateTime timeToStopSleeping = DateTime.Now.AddMilliseconds(dly);

            return timeToStopSleeping;

        }



        public IScene World

        {

            get { return m_host.ParentEntity.Scene; }

        }



        public void state(string newState)

        {

            m_ScriptEngine.SetState(m_itemID, newState);

            throw new EventAbortException();

        }



        /// <summary>

        ///     Reset the named script. The script must be present

        ///     in the same prim.

        /// </summary>

        public void llResetScript()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            if (m_UrlModule != null)

            {

                m_UrlModule.ScriptRemoved(m_itemID);

            }

            m_ScriptEngine.ResetScript(m_host.UUID, m_itemID, true);

        }



        public void llResetOtherScript(string name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            UUID item;





            if ((item = ScriptByName(name)) != UUID.Zero)

                m_ScriptEngine.ResetScript(m_host.UUID, item, false);

            else

                ShoutError("llResetOtherScript: script " + name + " not found");

        }





        public LSL_Integer llGetScriptState(string name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();

            UUID item;





            if ((item = ScriptByName(name)) != UUID.Zero)

            {

                return m_ScriptEngine.GetScriptRunningState(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 LSL_Key llGenerateKey()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Key();



            return UUID.Random().ToString();

        }



        public void llSetScriptState(string name, int run)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            UUID item;





            // These functions are supposed to be robust,

            // so get the state one step at a time.



            if ((item = ScriptByName(name)) != UUID.Zero)

            {

                m_ScriptEngine.SetScriptRunningState(item, run == 1);

            }

            else

            {

                ShoutError("llSetScriptState: script " + name + " not found");

            }

        }



        public List<ISceneChildEntity> GetLinkParts(int linkType)

        {

            List<ISceneChildEntity> ret = new List<ISceneChildEntity> {m_host};



            if (linkType == ScriptBaseClass.LINK_SET)

            {

                if (m_host.ParentEntity != null)

                    return new List<ISceneChildEntity>(m_host.ParentEntity.ChildrenEntities());

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_ROOT)

            {

                if (m_host.ParentEntity != null)

                {

                    ret = new List<ISceneChildEntity> {m_host.ParentEntity.RootChild};

                    return ret;

                }

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_ALL_OTHERS)

            {

                if (m_host.ParentEntity == null)

                    return new List<ISceneChildEntity>();

                ret = new List<ISceneChildEntity>(m_host.ParentEntity.ChildrenEntities());

                if (ret.Contains(m_host))

                    ret.Remove(m_host);

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_ALL_CHILDREN)

            {

                if (m_host.ParentEntity == null)

                    return new List<ISceneChildEntity>();

                ret = new List<ISceneChildEntity>(m_host.ParentEntity.ChildrenEntities());

                if (ret.Contains(m_host.ParentEntity.RootChild))

                    ret.Remove(m_host.ParentEntity.RootChild);

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_THIS)

            {

                return ret;

            }



            if (linkType < 0 || m_host.ParentEntity == null)

                return new List<ISceneChildEntity>();

            IEntity target = m_host.ParentEntity.GetLinkNumPart(linkType);

            if (target is ISceneChildEntity)

            {

                ret = new List<ISceneChildEntity> {target as ISceneChildEntity};

            }

            //No allowing scene presences to be found here

            return ret;

        }



        public List<IEntity> GetLinkPartsAndEntities(int linkType)

        {

            List<IEntity> ret = new List<IEntity> {m_host};



            if (linkType == ScriptBaseClass.LINK_SET)

            {

                if (m_host.ParentEntity != null)

                {

                    List<ISceneChildEntity> parts = new List<ISceneChildEntity>(m_host.ParentEntity.ChildrenEntities());

#if (!ISWIN)

                    return parts.ConvertAll<IEntity>(new Converter<ISceneChildEntity, IEntity>(delegate(ISceneChildEntity part)

                    {

                        return (IEntity)part;

                    }));

#else

                    return parts.ConvertAll(part => (IEntity) part);

#endif

                }

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_ROOT)

            {

                if (m_host.ParentEntity != null)

                {

                    ret = new List<IEntity> {m_host.ParentEntity.RootChild};

                    return ret;

                }

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_ALL_OTHERS)

            {

                if (m_host.ParentEntity == null)

                    return new List<IEntity>();

                List<ISceneChildEntity> sceneobjectparts =

                    new List<ISceneChildEntity>(m_host.ParentEntity.ChildrenEntities());

#if (!ISWIN)

                ret = sceneobjectparts.ConvertAll<IEntity>(new Converter<ISceneChildEntity, IEntity>(delegate(ISceneChildEntity part)

                {

                    return (IEntity)part;

                }));

#else

                ret = sceneobjectparts.ConvertAll(part => (IEntity) part);

#endif

                if (ret.Contains(m_host))

                    ret.Remove(m_host);

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_ALL_CHILDREN)

            {

                if (m_host.ParentEntity == null)

                    return new List<IEntity>();

                List<ISceneChildEntity> children = new List<ISceneChildEntity>(m_host.ParentEntity.ChildrenEntities());

#if (!ISWIN)

                ret = children.ConvertAll<IEntity>(new Converter<ISceneChildEntity, IEntity>(delegate(ISceneChildEntity part)

                {

                    return (IEntity)part;

                }));

#else

                ret = children.ConvertAll(part => (IEntity) part);

#endif

                if (ret.Contains(m_host.ParentEntity.RootChild))

                    ret.Remove(m_host.ParentEntity.RootChild);

                return ret;

            }



            if (linkType == ScriptBaseClass.LINK_THIS)

            {

                return ret;

            }



            if (linkType < 0 || m_host.ParentEntity == null)

                return new List<IEntity>();

            IEntity target = m_host.ParentEntity.GetLinkNumPart(linkType);

            if (target == null)

                return new List<IEntity>();

            ret = new List<IEntity> {target};



            return ret;

        }



        protected UUID InventorySelf()

        {

            UUID invItemID = new UUID();



            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                {

                    if (inv.Value.Type == 10 && inv.Value.ItemID == m_itemID)

                    {

                        invItemID = inv.Key;

                        break;

                    }

                }

            }



            return invItemID;

        }



        protected UUID InventoryKey(string name, int type)

        {

            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                {

                    if (inv.Value.Name == name)

                    {

                        if (inv.Value.Type != type)

                            return UUID.Zero;



                        return inv.Value.AssetID;

                    }

                }

            }



            return UUID.Zero;

        }



        protected UUID InventoryKey(string name, bool throwExceptionIfDoesNotExist)

        {

            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                {

                    if (inv.Value.Name == name)

                    {

                        return inv.Value.AssetID;

                    }

                }

            }



            if (throwExceptionIfDoesNotExist)

            {

                IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

                if (chatModule != null)

                    chatModule.SimChat("Could not find sound '" + name + "'.",

                                       ChatTypeEnum.DebugChannel, 2147483647, m_host.AbsolutePosition,

                                       m_host.Name, m_host.UUID, false, World);

            }



            return UUID.Zero;

        }





        /// <summary>

        ///     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.

        /// </summary>

        /// <param name="k"></param>

        /// <param name="throwExceptionIfDoesNotExist"></param>

        /// <returns></returns>

        protected UUID KeyOrName(string k, bool throwExceptionIfDoesNotExist)

        {

            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

            return InventoryKey(k, throwExceptionIfDoesNotExist);

        }



        // convert a LSL_Rotation to a Quaternion

        protected Quaternion Rot2Quaternion(LSL_Rotation r)

        {

            Quaternion q = new Quaternion((float) r.x, (float) r.y, (float) r.z, (float) r.s);

            q.Normalize();

            return q;

        }



        //These are the implementations of the various ll-functions used by the LSL scripts.

        public LSL_Float llSin(double f)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Sin(f);

        }



        public LSL_Float llCos(double f)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Cos(f);

        }



        public LSL_Float llTan(double f)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Tan(f);

        }



        public LSL_Float llAtan2(double x, double y)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Atan2(x, y);

        }



        public LSL_Float llSqrt(double f)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Sqrt(f);

        }



        public LSL_Float llPow(double fbase, double fexponent)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Pow(fbase, fexponent);

        }



        public LSL_Integer llAbs(int i)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();

            // changed to replicate LSL behaviour whereby minimum int value is returned untouched.



            if (i == Int32.MinValue)

                return i;

            return Math.Abs(i);

        }



        public LSL_Float llFabs(double f)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Abs(f);

        }



        public LSL_Float llFrand(double mag)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            lock (Util.RandomClass)

            {

                return Util.RandomClass.NextDouble()*mag;

            }

        }



        public LSL_Integer llFloor(double f)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            return (int) Math.Floor(f);

        }



        public LSL_Integer llCeil(double f)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            double RoundedNumber = Math.Round(f, MidpointRounding.AwayFromZero);

            //Attempt to fix rounded numbers like -4.5 arounding away from zero

            if (f < 0)

            {

                if (f + 0.5 == RoundedNumber || f - 0.5 == RoundedNumber)

                {

                    RoundedNumber += 1;

                }

            }

            return (int) RoundedNumber;

        }



        //This next group are vector operations involving squaring and square root. ckrinke

        public LSL_Float llVecMag(LSL_Vector v)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return LSL_Vector.Mag(v);

        }



        public LSL_Vector llVecNorm(LSL_Vector v)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();

            return LSL_Vector.Norm(v);

        }



        public LSL_Float llVecDist(LSL_Vector a, LSL_Vector b)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            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



        // Old implementation of llRot2Euler. Normalization not required as Atan2 function will

        // only return values >= -PI (-180 degrees) and <= PI (180 degrees).



        public LSL_Vector llRot2Euler(LSL_Rotation r)

        {

            //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(Math.Atan2(2.0*(r.x*r.s - r.y*r.z), (-t.x - t.y + t.z + t.s)),

                                      Math.Atan2(n, Math.Sqrt(p)),

                                      Math.Atan2(2.0*(r.z*r.s - r.x*r.y), (t.x - t.y - t.z + t.s)));

            if (n > 0)

                return new LSL_Vector(0.0, Math.PI*0.5, Math.Atan2((r.z*r.s + r.x*r.y), 0.5 - t.x - t.z));

            return new LSL_Vector(0.0, -Math.PI*0.5, 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(<PI,0,0>)=<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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();





            double c1 = Math.Cos(v.x*0.5);

            double c2 = Math.Cos(v.y*0.5);

            double c3 = Math.Cos(v.z*0.5);

            double s1 = Math.Sin(v.x*0.5);

            double s2 = Math.Sin(v.y*0.5);

            double s3 = Math.Sin(v.z*0.5);



            double x = s1*c2*c3 + c1*s2*s3;

            double y = c1*s2*c3 - s1*c2*s3;

            double z = s1*s2*c3 + c1*c2*s3;

            double 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();



            double s;

            double tr = fwd.x + left.y + up.z + 1.0;



            if (tr >= 1.0)

            {

                s = 0.5/Math.Sqrt(tr);

                return new LSL_Rotation(

                    (left.z - up.y)*s,

                    (up.x - fwd.z)*s,

                    (fwd.y - left.x)*s,

                    0.25/s);

            }

            double max = (left.y > up.z) ? left.y : up.z;



            if (max < fwd.x)

            {

                s = Math.Sqrt(fwd.x - (left.y + up.z) + 1.0);

                double x = s*0.5;

                s = 0.5/s;

                return new LSL_Rotation(

                    x,

                    (fwd.y + left.x)*s,

                    (up.x + fwd.z)*s,

                    (left.z - up.y)*s);

            }

            if (max == left.y)

            {

                s = Math.Sqrt(left.y - (up.z + fwd.x) + 1.0);

                double y = s*0.5;

                s = 0.5/s;

                return new LSL_Rotation(

                    (fwd.y + left.x)*s,

                    y,

                    (left.z + up.y)*s,

                    (up.x - fwd.z)*s);

            }

            s = Math.Sqrt(up.z - (fwd.x + left.y) + 1.0);

            double z = s*0.5;

            s = 0.5/s;

            return new LSL_Rotation(

                (up.x + fwd.z)*s,

                (left.z + up.y)*s,

                z,

                (fwd.y - left.x)*s);

        }



        public LSL_Vector llRot2Fwd(LSL_Rotation r)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();





            double 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

            double x = r.x*r.x - r.y*r.y - r.z*r.z + r.s*r.s;

            double y = 2*(r.x*r.y + r.z*r.s);

            double z = 2*(r.x*r.z - r.y*r.s);

            return (new LSL_Vector(x, y, z));

        }



        public LSL_Vector llRot2Left(LSL_Rotation r)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();





            double 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

            double x = 2*(r.x*r.y - r.z*r.s);

            double y = -r.x*r.x + r.y*r.y - r.z*r.z + r.s*r.s;

            double z = 2*(r.x*r.s + r.y*r.z);

            return (new LSL_Vector(x, y, z));

        }



        public LSL_Vector llRot2Up(LSL_Rotation r)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            double 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

            double x = 2*(r.x*r.z + r.y*r.s);

            double y = 2*(-r.x*r.s + r.y*r.z);

            double 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();

            //A and B should both be normalized



            LSL_Rotation rotBetween;

            // Check for zero vectors. If either is zero, return zero rotation. Otherwise,

            // continue calculation.

            if (a == new LSL_Vector(0.0f, 0.0f, 0.0f) || b == new LSL_Vector(0.0f, 0.0f, 0.0f))

            {

                rotBetween = new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f);

            }

            else

            {

                a = LSL_Vector.Norm(a);

                b = LSL_Vector.Norm(b);

                double dotProduct = LSL_Vector.Dot(a, b);

                // There are two degenerate cases possible. These are for vectors 180 or

                // 0 degrees apart. These have to be detected and handled individually.

                //

                // Check for vectors 180 degrees apart.

                // A dot product of -1 would mean the angle between vectors is 180 degrees.

                if (dotProduct < -0.9999999f)

                {

                    // First assume X axis is orthogonal to the vectors.

                    LSL_Vector orthoVector = new LSL_Vector(1.0f, 0.0f, 0.0f);

                    orthoVector = orthoVector - a*(a.x/LSL_Vector.Dot(a, a));

                    // Check for near zero vector. A very small non-zero number here will create

                    // a rotation in an undesired direction.

                    rotBetween = LSL_Vector.Mag(orthoVector) > 0.0001

                                     ? new LSL_Rotation(orthoVector.x, orthoVector.y, orthoVector.z, 0.0f)

                                     : new LSL_Rotation(0.0f, 0.0f, 1.0f, 0.0f);

                }

                    // Check for parallel vectors.

                    // A dot product of 1 would mean the angle between vectors is 0 degrees.

                else if (dotProduct > 0.9999999f)

                {

                    // Set zero rotation.

                    rotBetween = new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f);

                }

                else

                {

                    // All special checks have been performed so get the axis of rotation.

                    LSL_Vector crossProduct = LSL_Vector.Cross(a, b);

                    // Quarternion s value is the length of the unit vector + dot product.

                    double qs = 1.0 + dotProduct;

                    rotBetween = new LSL_Rotation(crossProduct.x, crossProduct.y, crossProduct.z, qs);

                    // Normalize the rotation.

                    double mag = LSL_Rotation.Mag(rotBetween);

                    // We shouldn't have to worry about a divide by zero here. The qs value will be

                    // non-zero because we already know if we're here, then the dotProduct is not -1 so

                    // qs will not be zero. Also, we've already handled the input vectors being zero so the

                    // crossProduct vector should also not be zero.

                    rotBetween.x = rotBetween.x/mag;

                    rotBetween.y = rotBetween.y/mag;

                    rotBetween.z = rotBetween.z/mag;

                    rotBetween.s = rotBetween.s/mag;

                    // Check for undefined values and set zero rotation if any found. This code might not actually be required

                    // any longer since zero vectors are checked for at the top.

                    if (Double.IsNaN(rotBetween.x) || Double.IsNaN(rotBetween.y) || Double.IsNaN(rotBetween.z) ||

                        Double.IsNaN(rotBetween.s))

                    {

                        rotBetween = new LSL_Rotation(0.0f, 0.0f, 0.0f, 1.0f);

                    }

                }

            }

            return rotBetween;

        }



        public void llWhisper(int channelID, string text)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            if (text.Length > 1023)

                text = text.Substring(0, 1023);



            IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

            if (chatModule != null)

                chatModule.SimChat(text, ChatTypeEnum.Whisper, channelID,

                                   m_host.ParentEntity.RootChild.AbsolutePosition, m_host.Name, m_host.UUID, false,

                                   World);



            if (m_comms != null)

                m_comms.DeliverMessage(ChatTypeEnum.Whisper, channelID, m_host.Name, m_host.UUID, text);

        }



        public void llSay(int channelID, object m_text)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            string text = m_text.ToString();



            if (m_scriptConsoleChannelEnabled && (channelID == m_scriptConsoleChannel))

            {

                MainConsole.Instance.Debug(text);

            }

            else

            {

                if (text.Length > 1023)

                    text = text.Substring(0, 1023);



                IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

                if (chatModule != null)

                    chatModule.SimChat(text, ChatTypeEnum.Say, channelID,

                                       m_host.ParentEntity.RootChild.AbsolutePosition, m_host.Name, m_host.UUID, false,

                                       World);



                if (m_comms != null)

                    m_comms.DeliverMessage(ChatTypeEnum.Say, channelID, m_host.Name, m_host.UUID, text);

            }

        }



        public void llShout(int channelID, string text)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (text.Length > 1023)

                text = text.Substring(0, 1023);



            IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

            if (chatModule != null)

                chatModule.SimChat(text, ChatTypeEnum.Shout, channelID,

                                   m_host.ParentEntity.RootChild.AbsolutePosition, m_host.Name, m_host.UUID, true, World);



            if (m_comms != null)

                m_comms.DeliverMessage(ChatTypeEnum.Shout, channelID, m_host.Name, m_host.UUID, text);

        }



        public void llRegionSay(int channelID, string text)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            if (text.Length > 1023)

                text = text.Substring(0, 1023);



            if (channelID == 0) //0 isn't normally allowed, so check against a higher threat level

                if (!ScriptProtection.CheckThreatLevel(ThreatLevel.Moderate, "LSL", m_host, "LSL", m_itemID)) return;



            IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

            if (chatModule != null)

                chatModule.SimChat(text, ChatTypeEnum.Region, channelID,

                                   m_host.ParentEntity.RootChild.AbsolutePosition, m_host.Name, m_host.UUID, false,

                                   World);



            if (m_comms != null)

                m_comms.DeliverMessage(ChatTypeEnum.Region, channelID, m_host.Name, m_host.UUID, text);

        }



        public void llRegionSayTo(LSL_Key toID, int channelID, string text)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            IChatModule chatModule = World.RequestModuleInterface<IChatModule>();



            if (text.Length > 1023)

                text = text.Substring(0, 1023);

            if (channelID == 0)

            {

                IScenePresence presence = World.GetScenePresence(UUID.Parse(toID.m_string));

                if (presence != null)

                {

                    if (chatModule != null)

                        chatModule.TrySendChatMessage(presence, m_host.AbsolutePosition, m_host.AbsolutePosition,

                                                      m_host.UUID, m_host.Name, ChatTypeEnum.Say, text,

                                                      ChatSourceType.Object, 10000);

                }

            }



            if (m_comms != null)

                m_comms.DeliverMessage(ChatTypeEnum.Region, channelID, m_host.Name, m_host.UUID,

                                       UUID.Parse(toID.m_string), text);

        }



        public LSL_Integer llListen(int channelID, string name, string ID, string msg)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            UUID keyID;

            UUID.TryParse(ID, out keyID);

            if (m_comms != null)

                return m_comms.Listen(m_itemID, m_host.UUID, channelID, name, keyID, msg);

            return -1;

        }



        public void llListenControl(int number, int active)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_comms != null)

                m_comms.ListenControl(m_itemID, number, active);

        }



        public void llListenRemove(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_comms != null)

                m_comms.ListenRemove(m_itemID, number);

        }



        public void llSensor(string name, string id, int type, double range, double arc)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            UUID keyID = UUID.Zero;

            UUID.TryParse(id, out keyID);

            SensorRepeatPlugin sensorPlugin = (SensorRepeatPlugin) m_ScriptEngine.GetScriptPlugin("SensorRepeat");

            sensorPlugin.SenseOnce(m_host.UUID, m_itemID, name, keyID, type, range, arc, m_host);

        }



        public void llSensorRepeat(string name, string id, int type, double range, double arc, double rate)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            UUID keyID = UUID.Zero;

            UUID.TryParse(id, out keyID);



            SensorRepeatPlugin sensorPlugin = (SensorRepeatPlugin) m_ScriptEngine.GetScriptPlugin("SensorRepeat");

            sensorPlugin.SetSenseRepeatEvent(m_host.UUID, m_itemID, name, keyID, type, range, arc, rate, m_host);

        }



        public void llSensorRemove()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            SensorRepeatPlugin sensorPlugin = (SensorRepeatPlugin) m_ScriptEngine.GetScriptPlugin("SensorRepeat");

            sensorPlugin.RemoveScript(m_host.UUID, m_itemID);

        }



        public string resolveName(UUID objecUUID)

        {

            // try avatar username surname

            UserAccount account = World.UserAccountService.GetUserAccount(World.RegionInfo.AllScopeIDs, objecUUID);

            if (account != null)

                return account.Name;



            // try an scene object

            ISceneChildEntity SOP = World.GetSceneObjectPart(objecUUID);

            if (SOP != null)

                return SOP.Name;



            IEntity SensedObject;

            if (!World.Entities.TryGetValue(objecUUID, out SensedObject))

            {

                IGroupsModule groups = World.RequestModuleInterface<IGroupsModule>();

                if (groups != null)

                {

                    GroupRecord gr = groups.GetGroupRecord(objecUUID);

                    if (gr != null)

                        return gr.GroupName;

                }

                return String.Empty;

            }



            return SensedObject.Name;

        }



        public LSL_String llDetectedName(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return String.Empty;

            return detectedParams.Name;

        }



        public LSL_String llDetectedKey(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return String.Empty;

            return detectedParams.Key.ToString();

        }



        public LSL_String llDetectedOwner(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return String.Empty;

            return detectedParams.Owner.ToString();

        }



        public LSL_Integer llDetectedType(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return 0;

            return new LSL_Integer(detectedParams.Type);

        }



        public LSL_Vector llDetectedPos(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return new LSL_Vector();

            return detectedParams.Position;

        }



        public LSL_Vector llDetectedVel(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return new LSL_Vector();

            return detectedParams.Velocity;

        }



        public LSL_Vector llDetectedGrab(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams parms = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (parms == null)

                return new LSL_Vector(0, 0, 0);



            return parms.OffsetPos;

        }



        public LSL_Rotation llDetectedRot(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return new LSL_Rotation();

            return detectedParams.Rotation;

        }



        public LSL_Integer llDetectedGroup(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (detectedParams == null)

                return new LSL_Integer(0);

            if (m_host.GroupID == detectedParams.Group)

                return new LSL_Integer(1);

            return new LSL_Integer(0);

        }



        public LSL_Integer llDetectedLinkNumber(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            DetectParams parms = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, number);

            if (parms == null)

                return new LSL_Integer(0);



            return new LSL_Integer(parms.LinkNum);

        }



        /// <summary>

        ///     See http://wiki.secondlife.com/wiki/LlDetectedTouchBinormal for details

        /// </summary>

        public LSL_Vector llDetectedTouchBinormal(int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, index);

            if (detectedParams == null)

                return new LSL_Vector();

            return detectedParams.TouchBinormal;

        }



        /// <summary>

        ///     See http://wiki.secondlife.com/wiki/LlDetectedTouchFace for details

        /// </summary>

        public LSL_Integer llDetectedTouchFace(int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, index);

            if (detectedParams == null)

                return new LSL_Integer(-1);

            return new LSL_Integer(detectedParams.TouchFace);

        }



        /// <summary>

        ///     See http://wiki.secondlife.com/wiki/LlDetectedTouchNormal for details

        /// </summary>

        public LSL_Vector llDetectedTouchNormal(int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, index);

            if (detectedParams == null)

                return new LSL_Vector();

            return detectedParams.TouchNormal;

        }



        /// <summary>

        ///     See http://wiki.secondlife.com/wiki/LlDetectedTouchPos for details

        /// </summary>

        public LSL_Vector llDetectedTouchPos(int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, index);

            if (detectedParams == null)

                return new LSL_Vector();

            return detectedParams.TouchPos;

        }



        /// <summary>

        ///     See http://wiki.secondlife.com/wiki/LlDetectedTouchST for details

        /// </summary>

        public LSL_Vector llDetectedTouchST(int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, index);

            if (detectedParams == null)

                return new LSL_Vector(-1.0, -1.0, 0.0);

            return detectedParams.TouchST;

        }



        /// <summary>

        ///     See http://wiki.secondlife.com/wiki/LlDetectedTouchUV for details

        /// </summary>

        public LSL_Vector llDetectedTouchUV(int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, index);

            if (detectedParams == null)

                return new LSL_Vector(-1.0, -1.0, 0.0);

            return detectedParams.TouchUV;

        }



        public virtual void llDie()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            throw new SelfDeleteException();

        }



        public LSL_Float llGround(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            Vector3 pos = m_host.GetWorldPosition() + new Vector3((float) offset.x,

                                                                  (float) offset.y,

                                                                  (float) offset.z);



            //Get the slope normal.  This gives us the equation of the plane tangent to the slope.

            LSL_Vector vsn = llGroundNormal(offset);

            ITerrainChannel heightmap = World.RequestModuleInterface<ITerrainChannel>();

            // Clamp to valid position

            if (pos.X < 0)

                pos.X = 0;

            else if (pos.X >= heightmap.Width)

                pos.X = heightmap.Width - 1;

            if (pos.Y < 0)

                pos.Y = 0;

            else if (pos.Y >= heightmap.Height)

                pos.Y = heightmap.Height - 1;



            //Get the height for the integer coordinates from the Heightmap

            float baseheight = heightmap[(int) pos.X, (int) pos.Y];



            //Calculate the difference between the actual coordinates and the integer coordinates

            float xdiff = pos.X - (int) pos.X;

            float ydiff = pos.Y - (int) pos.Y;



            //Use the equation of the tangent plane to adjust the height to account for slope



            return (((vsn.x*xdiff) + (vsn.y*ydiff))/(-1*vsn.z)) + baseheight;

        }



        public LSL_Float llCloud(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            float cloudCover = 0f;

            ICloudModule module = World.RequestModuleInterface<ICloudModule>();

            if (module != null)

            {

                Vector3 pos = m_host.GetWorldPosition();

                int x = (int) (pos.X + offset.x);

                int y = (int) (pos.Y + offset.y);



                cloudCover = module.CloudCover(x, y, 0);

            }

            return cloudCover;

        }



        public LSL_Vector llWind(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            LSL_Vector wind = new LSL_Vector(0, 0, 0);

            IWindModule module = World.RequestModuleInterface<IWindModule>();

            if (module != null)

            {

                Vector3 pos = m_host.GetWorldPosition();

                int x = (int) (pos.X + offset.x);

                int y = (int) (pos.Y + offset.y);



                Vector3 windSpeed = module.WindSpeed(x, y, 0);



                wind.x = windSpeed.X;

                wind.y = windSpeed.Y;

            }

            return wind;

        }



        public void llSetStatus(int status, int value)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            int statusrotationaxis = 0;



            if ((status & ScriptBaseClass.STATUS_PHYSICS) == ScriptBaseClass.STATUS_PHYSICS)

            {

                if (value != 0)

                {

                    ISceneEntity group = m_host.ParentEntity;

                    if (group == null)

                        return;

#if (!ISWIN)

                    bool allow = true;

                    foreach (ISceneChildEntity part in group.ChildrenEntities())

                    {

                        IOpenRegionSettingsModule WSModule = group.Scene.RequestModuleInterface<IOpenRegionSettingsModule>();

                        if (WSModule != null && WSModule.MaximumPhysPrimScale != -1)

                        {

                            Vector3 tmp = part.Scale;

                            if (tmp.X > WSModule.MaximumPhysPrimScale ||

                                tmp.Y > WSModule.MaximumPhysPrimScale ||

                                tmp.Z > WSModule.MaximumPhysPrimScale)

                            {

                                allow = false;

                                break;

                            }

                        }

                    }

#else

                    bool allow = !(from part in @group.ChildrenEntities()

                                   let WSModule = @group.Scene.RequestModuleInterface<IOpenRegionSettingsModule>()

                                   where WSModule != null && WSModule.MaximumPhysPrimScale != -1

                                   let tmp = part.Scale

                                   where

                                       tmp.X > WSModule.MaximumPhysPrimScale || tmp.Y > WSModule.MaximumPhysPrimScale ||

                                       tmp.Z > WSModule.MaximumPhysPrimScale

                                   select WSModule).Any();

#endif





                    if (!allow)

                        return;

                    m_host.ParentEntity.ScriptSetPhysicsStatus(true);

                }

                else

                {

                    m_host.ParentEntity.ScriptSetPhysicsStatus(false);

                }

            }



            if ((status & ScriptBaseClass.STATUS_PHANTOM) == ScriptBaseClass.STATUS_PHANTOM)

            {

                m_host.ScriptSetPhantomStatus(value != 0);

            }



            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)

            {

                m_host.SetBlockGrab(value != 0, false);

            }



            if ((status & ScriptBaseClass.STATUS_BLOCK_GRAB_OBJECT) == ScriptBaseClass.STATUS_BLOCK_GRAB_OBJECT)

            {

                m_host.SetBlockGrab(value != 0, true);

            }



            if ((status & ScriptBaseClass.STATUS_DIE_AT_EDGE) == ScriptBaseClass.STATUS_DIE_AT_EDGE)

            {

                m_host.SetDieAtEdge(value != 0);

            }



            if ((status & ScriptBaseClass.STATUS_RETURN_AT_EDGE) == ScriptBaseClass.STATUS_RETURN_AT_EDGE)

            {

                m_host.SetReturnAtEdge(value != 0);

            }



            if ((status & ScriptBaseClass.STATUS_SANDBOX) == ScriptBaseClass.STATUS_SANDBOX)

            {

                m_host.SetStatusSandbox(value != 0);

            }



            if (statusrotationaxis != 0)

            {

                m_host.SetAxisRotation(statusrotationaxis, value);

            }

        }



        public LSL_Integer llGetStatus(int status)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            if (status == ScriptBaseClass.STATUS_PHYSICS)

            {

                return (m_host.GetEffectiveObjectFlags() & (uint) PrimFlags.Physics) == (uint) PrimFlags.Physics

                           ? new LSL_Integer(1)

                           : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_PHANTOM)

            {

                return (m_host.GetEffectiveObjectFlags() & (uint) PrimFlags.Phantom) == (uint) PrimFlags.Phantom

                           ? new LSL_Integer(1)

                           : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_CAST_SHADOWS)

            {

                if ((m_host.GetEffectiveObjectFlags() & (uint) PrimFlags.CastShadows) == (uint) PrimFlags.CastShadows)

                    return new LSL_Integer(1);

                return new LSL_Integer(0);

            }

            if (status == ScriptBaseClass.STATUS_BLOCK_GRAB)

            {

                return m_host.GetBlockGrab(false) ? new LSL_Integer(1) : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_BLOCK_GRAB_OBJECT)

            {

                return m_host.GetBlockGrab(true) ? new LSL_Integer(1) : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_DIE_AT_EDGE)

            {

                return m_host.GetDieAtEdge() ? new LSL_Integer(1) : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_RETURN_AT_EDGE)

            {

                return m_host.GetReturnAtEdge() ? new LSL_Integer(1) : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_ROTATE_X)

            {

                return m_host.GetAxisRotation(2) == 2 ? new LSL_Integer(1) : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_ROTATE_Y)

            {

                return m_host.GetAxisRotation(4) == 4 ? new LSL_Integer(1) : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_ROTATE_Z)

            {

                return m_host.GetAxisRotation(8) == 8 ? new LSL_Integer(1) : new LSL_Integer(0);

            }



            if (status == ScriptBaseClass.STATUS_SANDBOX)

            {

                return m_host.GetStatusSandbox() ? new LSL_Integer(1) : new LSL_Integer(0);

            }

            return new LSL_Integer(0);

        }



        public void llSetScale(LSL_Vector scale)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            SetScale(m_host, scale);

        }



        protected void SetScale(ISceneChildEntity part, LSL_Vector scale)

        {

            if (part == null || part.ParentEntity == null || part.ParentEntity.IsDeleted)

                return;



            IOpenRegionSettingsModule WSModule =

                m_host.ParentEntity.Scene.RequestModuleInterface<IOpenRegionSettingsModule>();

            if (WSModule != null)

            {

                if (WSModule.MinimumPrimScale != -1)

                {

                    if (scale.x < WSModule.MinimumPrimScale)

                        scale.x = WSModule.MinimumPrimScale;

                    if (scale.y < WSModule.MinimumPrimScale)

                        scale.y = WSModule.MinimumPrimScale;

                    if (scale.z < WSModule.MinimumPrimScale)

                        scale.z = WSModule.MinimumPrimScale;

                }



                if (part.ParentEntity.RootChild.PhysActor != null && part.ParentEntity.RootChild.PhysActor.IsPhysical &&

                    WSModule.MaximumPhysPrimScale != -1)

                {

                    if (scale.x > WSModule.MaximumPhysPrimScale)

                        scale.x = WSModule.MaximumPhysPrimScale;

                    if (scale.y > WSModule.MaximumPhysPrimScale)

                        scale.y = WSModule.MaximumPhysPrimScale;

                    if (scale.z > WSModule.MaximumPhysPrimScale)

                        scale.z = WSModule.MaximumPhysPrimScale;

                }



                if (WSModule.MaximumPrimScale != -1)

                {

                    if (scale.x > WSModule.MaximumPrimScale)

                        scale.x = WSModule.MaximumPrimScale;

                    if (scale.y > WSModule.MaximumPrimScale)

                        scale.y = WSModule.MaximumPrimScale;

                    if (scale.z > WSModule.MaximumPrimScale)

                        scale.z = WSModule.MaximumPrimScale;

                }

            }



            Vector3 tmp = part.Scale;

            tmp.X = (float) scale.x;

            tmp.Y = (float) scale.y;

            tmp.Z = (float) scale.z;

            part.Scale = tmp;

            part.ScheduleUpdate(PrimUpdateFlags.FindBest);

        }



        public LSL_Vector llGetScale()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();

            Vector3 tmp = m_host.Scale;

            return new LSL_Vector(tmp.X, tmp.Y, tmp.Z);

        }



        public void llSetClickAction(int action)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.ClickAction = (byte) action;

            m_host.ScheduleUpdate(PrimUpdateFlags.FindBest);

        }



        public void llSetColor(LSL_Vector color, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.SetFaceColor(new Vector3((float) color.x, (float) color.y, (float) color.z), face);

        }



        public void SetTexGen(ISceneChildEntity part, int face, int style)

        {

            Primitive.TextureEntry tex = part.Shape.Textures;

            MappingType textype = MappingType.Default;

            if (style == (int) ScriptBaseClass.PRIM_TEXGEN_PLANAR)

                textype = MappingType.Planar;



            if (face >= 0 && face < GetNumberOfSides(part))

            {

                tex.CreateFace((uint) face);

                tex.FaceTextures[face].TexMapType = textype;

                part.UpdateTexture(tex, false);

                return;

            }

            if (face == ScriptBaseClass.ALL_SIDES)

            {

                for (uint i = 0; i < GetNumberOfSides(part); i++)

                {

                    if (tex.FaceTextures[i] != null)

                    {

                        tex.FaceTextures[i].TexMapType = textype;

                    }

                    tex.DefaultTexture.TexMapType = textype;

                }

                part.UpdateTexture(tex, false);

            }

        }



        public void SetGlow(ISceneChildEntity 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, false);

                return;

            }

            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, false);

            }

        }



        public void SetShiny(ISceneChildEntity 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, false);

                return;

            }

            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, false);

            }

        }



        public void SetFullBright(ISceneChildEntity 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, false);

                return;

            }

            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, false);

            }

        }



        public LSL_Float llGetAlpha(int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();





            return GetAlpha(m_host, face);

        }



        protected LSL_Float GetAlpha(ISceneChildEntity 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 += tex.GetFace((uint) i).RGBA.A;

                return sum;

            }

            if (face >= 0 && face < GetNumberOfSides(part))

            {

                return tex.GetFace((uint) face).RGBA.A;

            }

            return 0.0;

        }



        public void llSetAlpha(double alpha, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            SetAlpha(m_host, alpha, face);

        }



        public void llSetLinkAlpha(int linknumber, double alpha, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            foreach (ISceneChildEntity part in parts)

                SetAlpha(part, alpha, face);

        }



        protected void SetAlpha(ISceneChildEntity part, double alpha, int face)

        {

            Primitive.TextureEntry tex = part.Shape.Textures;

            Color4 texcolor;

            bool changed = false;

            if (face >= 0 && face < GetNumberOfSides(part))

            {

                texcolor = tex.CreateFace((uint) face).RGBA;

                if (texcolor.A != alpha)

                    changed = true;

                texcolor.A = Util.Clip((float) alpha, 0.0f, 1.0f);

                tex.FaceTextures[face].RGBA = texcolor;

                if (changed)

                    part.UpdateTexture(tex, false);

            }

            else if (face == ScriptBaseClass.ALL_SIDES)

            {

                for (int i = 0; i < GetNumberOfSides(part); i++)

                {

                    if (tex.FaceTextures[i] != null)

                    {

                        texcolor = tex.FaceTextures[i].RGBA;

                        if (texcolor.A != alpha)

                            changed = true;

                        texcolor.A = Util.Clip((float) alpha, 0.0f, 1.0f);

                        tex.FaceTextures[i].RGBA = texcolor;

                    }

                }

                texcolor = tex.DefaultTexture.RGBA;

                if (texcolor.A != alpha)

                    changed = true;

                texcolor.A = Util.Clip((float) alpha, 0.0f, 1.0f);

                tex.DefaultTexture.RGBA = texcolor;

                if (changed)

                    part.UpdateTexture(tex, false);

            }

            part.ScheduleUpdate(PrimUpdateFlags.FullUpdate);

        }



        /// <summary>

        ///     Set flexi parameters of a part.

        ///     FIXME: Much of this code should probably be within the part itself.

        /// </summary>

        /// <param name="part"></param>

        /// <param name="flexi"></param>

        /// <param name="softness"></param>

        /// <param name="gravity"></param>

        /// <param name="friction"></param>

        /// <param name="wind"></param>

        /// <param name="tension"></param>

        /// <param name="Force"></param>

        protected void SetFlexi(ISceneChildEntity part, bool flexi, int softness, float gravity, float friction,

                                float wind, float tension, LSL_Vector Force)

        {

            if (part == null)

                return;



            if (flexi)

            {

                part.Shape.PathCurve |= (byte) Extrusion.Flexible;

                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

            {

                int curve = part.Shape.PathCurve;

                curve &= (int) (~(Extrusion.Flexible));

                part.Shape.PathCurve = (byte) curve;

                part.Shape.FlexiEntry = false;

            }





            part.ParentEntity.HasGroupChanged = true;

            part.ScheduleUpdate(PrimUpdateFlags.FullUpdate);

        }



        /// <summary>

        ///     Set a light point on a part

        /// </summary>

        /// FIXME: Much of this code should probably be in SceneObjectGroup

        /// <param name="part"></param>

        /// <param name="light"></param>

        /// <param name="color"></param>

        /// <param name="intensity"></param>

        /// <param name="radius"></param>

        /// <param name="falloff"></param>

        protected void SetPointLight(ISceneChildEntity part, bool light, LSL_Vector color, float intensity, float radius,

                                     float falloff)

        {

            if (part == null)

                return;



            bool same = true;

            if (light)

            {

                if (part.Shape.LightEntry != true)

                    same = false;

                part.Shape.LightEntry = true;

                if (part.Shape.LightColorR != Util.Clip((float) color.x, 0.0f, 1.0f))

                    same = false;

                part.Shape.LightColorR = Util.Clip((float) color.x, 0.0f, 1.0f);

                if (part.Shape.LightColorG != Util.Clip((float) color.y, 0.0f, 1.0f))

                    same = false;

                part.Shape.LightColorG = Util.Clip((float) color.y, 0.0f, 1.0f);

                if (part.Shape.LightColorB != Util.Clip((float) color.z, 0.0f, 1.0f))

                    same = false;

                part.Shape.LightColorB = Util.Clip((float) color.z, 0.0f, 1.0f);

                if (part.Shape.LightIntensity != intensity)

                    same = false;

                part.Shape.LightIntensity = intensity;

                if (part.Shape.LightRadius != radius)

                    same = false;

                part.Shape.LightRadius = radius;

                if (part.Shape.LightFalloff != falloff)

                    same = false;

                part.Shape.LightFalloff = falloff;

            }

            else

            {

                if (part.Shape.LightEntry)

                    same = false;

                part.Shape.LightEntry = false;

            }



            if (!same)

            {

                part.ParentEntity.HasGroupChanged = true;

                part.ScheduleUpdate(PrimUpdateFlags.FindBest);

            }

        }



        public LSL_Vector llGetColor(int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            return GetColor(m_host, face);

        }



        protected LSL_Vector GetColor(ISceneChildEntity part, int face)

        {

            Primitive.TextureEntry tex = part.Shape.Textures;

            Color4 texcolor;

            LSL_Vector rgb = new LSL_Vector();

            int ns = GetNumberOfSides(part);

            if (face == ScriptBaseClass.ALL_SIDES)

            {

                int i;



                for (i = 0; i < ns; i++)

                {

                    texcolor = tex.GetFace((uint) i).RGBA;

                    rgb.x += texcolor.R;

                    rgb.y += texcolor.G;

                    rgb.z += texcolor.B;

                }



                float tmp = 1f/ns;

                rgb.x *= tmp;

                rgb.y *= tmp;

                rgb.z *= tmp;



                return rgb;

            }

            if (face >= 0 && face < ns)

            {

                texcolor = tex.GetFace((uint) face).RGBA;

                rgb.x = texcolor.R;

                rgb.y = texcolor.G;

                rgb.z = texcolor.B;

                return rgb;

            }

            return new LSL_Vector();

        }



        public DateTime llSetTexture(string texture, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            bool found = SetTexture(m_host, texture, face);

            if (!found)

                ShoutError("Could not find texture '" + texture + "'");

            return PScriptSleep(200);

        }



        public DateTime llSetLinkTexture(int linknumber, string texture, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            foreach (ISceneChildEntity part in parts)

                SetTexture(part, texture, face);



            return PScriptSleep(100);

        }



        protected bool SetTexture(ISceneChildEntity part, string texture, int face)

        {

            UUID textureID = new UUID();

            int ns = GetNumberOfSides(part);



            textureID = InventoryKey(texture, (int) AssetType.Texture);

            if (textureID == UUID.Zero)

            {

                if (!UUID.TryParse(texture, out textureID))

                    return false;

            }



            Primitive.TextureEntry tex = part.Shape.Textures;



            if (face >= 0 && face < ns)

            {

                Primitive.TextureEntryFace texface = tex.CreateFace((uint) face);

                texface.TextureID = textureID;

                tex.FaceTextures[face] = texface;

                part.UpdateTexture(tex, false);

            }

            if (face == ScriptBaseClass.ALL_SIDES)

            {

                for (uint i = 0; i < ns; i++)

                {

                    if (tex.FaceTextures[i] != null)

                    {

                        tex.FaceTextures[i].TextureID = textureID;

                    }

                }

                tex.DefaultTexture.TextureID = textureID;

                part.UpdateTexture(tex, false);

            }

            return true;

        }



        public DateTime llScaleTexture(double u, double v, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            ScaleTexture(m_host, u, v, face);

            return PScriptSleep(200);

        }



        protected void ScaleTexture(ISceneChildEntity part, double u, double v, int face)

        {

            Primitive.TextureEntry tex = part.Shape.Textures;

            int ns = GetNumberOfSides(part);

            if (face >= 0 && face < ns)

            {

                Primitive.TextureEntryFace texface = tex.CreateFace((uint) face);

                texface.RepeatU = (float) u;

                texface.RepeatV = (float) v;

                tex.FaceTextures[face] = texface;

                part.UpdateTexture(tex, false);

                return;

            }

            if (face == ScriptBaseClass.ALL_SIDES)

            {

                for (int i = 0; i < ns; 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, false);

            }

        }



        public DateTime llOffsetTexture(double u, double v, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            OffsetTexture(m_host, u, v, face);

            return PScriptSleep(200);

        }



        protected void OffsetTexture(ISceneChildEntity part, double u, double v, int face)

        {

            Primitive.TextureEntry tex = part.Shape.Textures;

            int ns = GetNumberOfSides(part);

            if (face >= 0 && face < ns)

            {

                Primitive.TextureEntryFace texface = tex.CreateFace((uint) face);

                texface.OffsetU = (float) u;

                texface.OffsetV = (float) v;

                tex.FaceTextures[face] = texface;

                part.UpdateTexture(tex, false);

                return;

            }

            if (face == ScriptBaseClass.ALL_SIDES)

            {

                for (int i = 0; i < ns; 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, false);

            }

        }



        public DateTime llRotateTexture(double rotation, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            RotateTexture(m_host, rotation, face);

            return PScriptSleep(200);

        }



        protected void RotateTexture(ISceneChildEntity part, double rotation, int face)

        {

            Primitive.TextureEntry tex = part.Shape.Textures;

            int ns = GetNumberOfSides(part);

            if (face >= 0 && face < ns)

            {

                Primitive.TextureEntryFace texface = tex.CreateFace((uint) face);

                texface.Rotation = (float) rotation;

                tex.FaceTextures[face] = texface;

                part.UpdateTexture(tex, false);

                return;

            }

            if (face == ScriptBaseClass.ALL_SIDES)

            {

                for (int i = 0; i < ns; i++)

                {

                    if (tex.FaceTextures[i] != null)

                    {

                        tex.FaceTextures[i].Rotation = (float) rotation;

                    }

                }

                tex.DefaultTexture.Rotation = (float) rotation;

                part.UpdateTexture(tex, false);

                return;

            }

        }



        public LSL_String llGetTexture(int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            return GetTexture(m_host, face);

        }



        protected LSL_String GetTexture(ISceneChildEntity 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 = tex.GetFace((uint) face);

                TaskInventoryItem item = null;

                m_host.TaskInventory.TryGetValue(texface.TextureID, out item);

                if (item != null)

                    return item.Name.ToString();

                return texface.TextureID.ToString();

            }

            return String.Empty;

        }



        public DateTime llSetPos(LSL_Vector pos)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            SetPos(m_host, pos, true);



            return PScriptSleep(200);

        }



        public LSL_Integer llSetRegionPos(LSL_Vector pos)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return ScriptBaseClass.FALSE;





            SetPos(m_host, pos, false);



            return ScriptBaseClass.TRUE;

        }



        // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos)

        // note linked setpos is capped "differently"

        private LSL_Vector SetPosAdjust(LSL_Vector start, LSL_Vector end)

        {

            if (llVecDist(start, end) > 10.0f*m_ScriptDistanceFactor)

                return start + m_ScriptDistanceFactor*10.0f*llVecNorm(end - start);

            return end;

        }



        protected void SetPos(ISceneChildEntity part, LSL_Vector targetPos, bool checkPos)

        {

            // Capped movemment if distance > 10m (http://wiki.secondlife.com/wiki/LlSetPos)

            LSL_Vector currentPos = GetPartLocalPos(part);

            float ground = 0;

            bool disable_underground_movement = m_ScriptEngine.Config.GetBoolean("DisableUndergroundMovement", true);



            ITerrainChannel heightmap = World.RequestModuleInterface<ITerrainChannel>();

            if (heightmap != null)

                ground = heightmap.GetNormalizedGroundHeight((int) (float) targetPos.x, (int) (float) targetPos.y);

            if (part.ParentEntity == null)

                return;

            if (part.ParentEntity.RootChild == part)

            {

                ISceneEntity parent = part.ParentEntity;

                if (!part.IsAttachment)

                {

                    if (ground != 0 && (targetPos.z < ground) && disable_underground_movement)

                        targetPos.z = ground;

                }

                LSL_Vector real_vec = checkPos ? SetPosAdjust(currentPos, targetPos) : targetPos;

                parent.UpdateGroupPosition(new Vector3((float) real_vec.x, (float) real_vec.y, (float) real_vec.z), true);

            }

            else

            {

                LSL_Vector rel_vec = checkPos ? SetPosAdjust(currentPos, targetPos) : targetPos;

                part.FixOffsetPosition((new Vector3((float) rel_vec.x, (float) rel_vec.y, (float) rel_vec.z)), true);

            }

        }



        protected LSL_Vector GetPartLocalPos(ISceneChildEntity part)

        {

            Vector3 tmp;

            if (part.ParentID == 0)

            {

                tmp = part.AbsolutePosition;

                return new LSL_Vector(tmp.X,

                                      tmp.Y,

                                      tmp.Z);

            }

            if (m_host.IsRoot)

            {

                tmp = m_host.AttachedPos;

                return new LSL_Vector(tmp.X,

                                      tmp.Y,

                                      tmp.Z);

            }

            tmp = part.OffsetPosition;

            return new LSL_Vector(tmp.X,

                                  tmp.Y,

                                  tmp.Z);

        }



        public LSL_Vector llGetPos()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            Vector3 pos = m_host.GetWorldPosition();

            return new LSL_Vector(pos.X, pos.Y, pos.Z);

        }



        public LSL_Vector llGetLocalPos()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();

            return GetLocalPos(m_host);

        }



        private LSL_Vector GetLocalPos(ISceneChildEntity entity)

        {

            Vector3 tmp;

            if (entity.ParentID != 0)

            {

                tmp = entity.OffsetPosition;

                return new LSL_Vector(tmp.X,

                                      tmp.Y,

                                      tmp.Z);

            }

            tmp = entity.AbsolutePosition;

            return new LSL_Vector(tmp.X,

                                  tmp.Y,

                                  tmp.Z);

        }



        public DateTime llSetRot(LSL_Rotation rot)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            // try to let this work as in SL...

            SetLinkRot(m_host, rot);

            return PScriptSleep(200);

        }



        private void SetLinkRot(ISceneChildEntity obj, LSL_Rotation rot)

        {

            if (obj.ParentID == 0)

            {

                // special case: If we are root, rotate complete SOG to new rotation

                SetRot(obj, Rot2Quaternion(rot));

            }

            else

            {

                // we are a child. The rotation values will be set to the one of root modified by rot, as in SL. Don't ask.

                ISceneEntity group = obj.ParentEntity;

                if (group != null) // a bit paranoid, maybe

                {

                    ISceneChildEntity rootPart = group.RootChild;

                    if (rootPart != null) // again, better safe than sorry

                    {

                        SetRot(obj, rootPart.GetRotationOffset()*Rot2Quaternion(rot));

                    }

                }

            }

        }



        public DateTime llSetLocalRot(LSL_Rotation rot)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            SetRot(m_host, Rot2Quaternion(rot));

            return PScriptSleep(200);

        }



        protected void SetRot(ISceneChildEntity part, Quaternion rot)

        {

            part.UpdateRotation(rot);

            // Update rotation does not move the object in the physics scene if it's a linkset.



            //KF:  Do NOT use this next line if using ODE physics engine.

            //   This need a switch based on .ini Phys Engine type

            //part.ParentGroup.ResetChildPrimPhysicsPositions()



            // So, after thinking about this for a bit, the issue with the part.ParentGroup.AbsolutePosition = part.ParentGroup.AbsolutePosition line

            // is it isn't compatible with vehicles because it causes the vehicle body to have to be broken down and rebuilt

            // It's perfectly okay when the object is not an active physical body though.

            // So, part.ParentGroup.ResetChildPrimPhysicsPositions(); does the thing that Kitto is warning against

            // but only if the object is not physial and active.   This is important for rotating doors.

            // without the absoluteposition = absoluteposition happening, the doors do not move in the physics

            // scene

            if (part.PhysActor != null && !part.PhysActor.IsPhysical)

            {

                part.ParentEntity.ResetChildPrimPhysicsPositions();

            }

        }



        /// <summary>

        ///     See http://lslwiki.net/lslwiki/wakka.php?wakka=ChildRotation

        /// </summary>

        public LSL_Rotation llGetRot()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();

            // unlinked or root prim then use llRootRotation

            // see llRootRotaion for references.

            if (m_host.LinkNum == 0 || m_host.LinkNum == 1)

            {

                return llGetRootRotation();

            }



            Quaternion q = m_host.GetWorldRotation();

            return new LSL_Rotation(q.X, q.Y, q.Z, q.W);

        }



        private LSL_Rotation GetPartRot(ISceneChildEntity part)

        {

            Quaternion q;

            if (part.LinkNum == 0 || part.LinkNum == 1) // unlinked or root prim

            {

                if (part.ParentEntity.RootChild.AttachmentPoint != 0)

                {

                    IScenePresence avatar = World.GetScenePresence(part.AttachedAvatar);

                    if (avatar != null)

                    {

                        q = (avatar.AgentControlFlags & (uint) AgentManager.ControlFlags.AGENT_CONTROL_MOUSELOOK) != 0

                                ? avatar.CameraRotation

                                : avatar.Rotation;

                    }

                    else

                        q = part.ParentEntity.GroupRotation; // Likely never get here but just in case

                }

                else

                    q = part.ParentEntity.GroupRotation; // just the group rotation

                return new LSL_Rotation(q.X, q.Y, q.Z, q.W);

            }

            q = part.GetWorldRotation();

            return new LSL_Rotation(q.X, q.Y, q.Z, q.W);

        }



        public LSL_Rotation llGetLocalRot()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();



            return new LSL_Rotation(m_host.GetRotationOffset().X, m_host.GetRotationOffset().Y,

                                    m_host.GetRotationOffset().Z, m_host.GetRotationOffset().W);

        }



        public void llSetForce(LSL_Vector force, int local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    if (local != 0)

                        force *= llGetRot();



                    m_host.ParentEntity.RootChild.SetForce(new Vector3((float) force.x, (float) force.y, (float) force.z));

                }

            }

        }



        public LSL_Vector llGetForce()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();

            LSL_Vector force = new LSL_Vector(0.0, 0.0, 0.0);





            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    Vector3 tmpForce = m_host.ParentEntity.RootChild.GetForce();

                    force.x = tmpForce.X;

                    force.y = tmpForce.Y;

                    force.z = tmpForce.Z;

                }

            }



            return force;

        }



        public LSL_Integer llTarget(LSL_Vector position, LSL_Float range)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            return m_host.registerTargetWaypoint(

                new Vector3((float) position.x, (float) position.y, (float) position.z), (float) range);

        }



        public void llTargetRemove(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.unregisterTargetWaypoint(number);

        }



        public LSL_Integer llRotTarget(LSL_Rotation rot, double error)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            return

                m_host.registerRotTargetWaypoint(

                    new Quaternion((float) rot.x, (float) rot.y, (float) rot.z, (float) rot.s), (float) error);

        }



        public void llRotTargetRemove(int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.unregisterRotTargetWaypoint(number);

        }



        public void llMoveToTarget(LSL_Vector target, double tau)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.MoveToTarget(new Vector3((float) target.x, (float) target.y, (float) target.z), (float) tau);

        }



        public void llStopMoveToTarget()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.StopMoveToTarget();

        }



        public void llApplyImpulse(LSL_Vector force, int local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            //No energy force yet

            Vector3 v = new Vector3((float) force.x, (float) force.y, (float) force.z);

            float len = v.Length();

            if (len > 20000.0f)

            {

                //                v.Normalize();

                v = v*20000.0f/len;

            }

            m_host.ApplyImpulse(v, local != 0);

        }



        public void llApplyRotationalImpulse(LSL_Vector force, int local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.ApplyAngularImpulse(new Vector3((float) force.x, (float) force.y, (float) force.z), local != 0);

        }



        public void llSetTorque(LSL_Vector torque, int local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.SetAngularImpulse(new Vector3((float) torque.x, (float) torque.y, (float) torque.z), local != 0);

        }



        public LSL_Vector llGetTorque()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            Vector3 torque = m_host.ParentEntity.GetTorque();

            return new LSL_Vector(torque.X, torque.Y, torque.Z);

        }



        public void llSetForceAndTorque(LSL_Vector force, LSL_Vector torque, int local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            llSetForce(force, local);

            llSetTorque(torque, local);

        }



        public LSL_Vector llGetVel()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();

            Vector3 tmp = m_host.IsAttachment

                              ? m_host.ParentEntity.Scene.GetScenePresence(m_host.AttachedAvatar).Velocity

                              : m_host.Velocity;

            return new LSL_Vector(tmp.X, tmp.Y, tmp.Z);

        }



        public void llSetVelocity(LSL_Vector force, LSL_Integer local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            Vector3 velocity = new Vector3((float) force.x, (float) force.y, (float) force.z);

            if (local == 1)

            {

                Quaternion grot = m_host.GetWorldRotation();

                Quaternion AXgrot = grot;

                Vector3 AXimpulsei = velocity;

                Vector3 newimpulse = AXimpulsei*AXgrot;

                velocity = newimpulse;

            }



            if (m_host.ParentEntity.RootChild.PhysActor != null)

                m_host.ParentEntity.RootChild.PhysActor.Velocity = velocity;

        }



        public void llSetAngularVelocity(LSL_Vector force, LSL_Integer local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            Vector3 rotvelocity = new Vector3((float) force.x, (float) force.y, (float) force.z);

            if (local == 1)

            {

                Quaternion grot = m_host.GetWorldRotation();

                Quaternion AXgrot = grot;

                Vector3 AXimpulsei = rotvelocity;

                Vector3 newimpulse = AXimpulsei*AXgrot;

                rotvelocity = newimpulse;

            }



            if (m_host.ParentEntity.RootChild.PhysActor != null)

                m_host.ParentEntity.RootChild.PhysActor.RotationalVelocity = rotvelocity;

        }



        public LSL_Vector llGetAccel()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();

            Vector3 tmp = m_host.Acceleration;

            return new LSL_Vector(tmp.X, tmp.Y, tmp.Z);

        }



        public LSL_Vector llGetOmega()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();

            Vector3 tmp = m_host.AngularVelocity;

            return new LSL_Vector(tmp.X, tmp.Y, tmp.Z);

        }



        public LSL_Float llGetTimeOfDay() // this is not sl compatible see wiki

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return (DateTime.Now.TimeOfDay.TotalMilliseconds/1000)%(3600*4);

        }



        public LSL_Float llGetWallclock()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return DateTime.Now.TimeOfDay.TotalSeconds;

        }



        public LSL_Float llGetTime()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            TimeSpan ScriptTime = DateTime.Now - m_timer;

            return ScriptTime.TotalMilliseconds/1000;

        }



        public void llResetTime()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_timer = DateTime.Now;

        }



        public LSL_Float llGetAndResetTime()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            TimeSpan ScriptTime = DateTime.Now - m_timer;

            m_timer = DateTime.Now;

            return ScriptTime.TotalMilliseconds/1000;

        }



        public void llSound(string sound, double volume, int queue, int loop)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            // This function has been deprecated

            // see http://www.lslwiki.net/lslwiki/wakka.php?wakka=llSound

            Deprecated("llSound");

            if (loop == 1)

                llLoopSound(sound, volume);

            else

                llPlaySound(sound, volume);

            llSetSoundQueueing(queue);

        }



        // 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            // send the sound, once, to all clients in range

            m_host.SendSound(KeyOrName(sound, true).ToString(), volume, false, 0, 0, false, false);

        }



        // 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.Sound == KeyOrName(sound, true))

                return;



            if (m_host.Sound != UUID.Zero)

                llStopSound();



            m_host.Sound = KeyOrName(sound, true);

            m_host.SoundGain = volume;

            m_host.SoundFlags = (byte) SoundFlags.Loop; // looping

            if (m_host.SoundRadius == 0)

                m_host.SoundRadius = 20; // Magic number, 20 seems reasonable. Make configurable?



            m_host.ScheduleUpdate(PrimUpdateFlags.FindBest);

        }



        public void llLoopSoundMaster(string sound, double volume)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.ParentEntity.LoopSoundMasterPrim = m_host;

            lock (m_host.ParentEntity.LoopSoundSlavePrims)

            {

                foreach (ISceneChildEntity prim in m_host.ParentEntity.LoopSoundSlavePrims)

                {

                    if (prim.Sound != UUID.Zero)

                        llStopSound();



                    prim.Sound = KeyOrName(sound, true);

                    prim.SoundGain = volume;

                    prim.SoundFlags = (byte) SoundFlags.Loop; // looping

                    if (prim.SoundRadius == 0)

                        prim.SoundRadius = 20; // Magic number, 20 seems reasonable. Make configurable?



                    prim.ScheduleUpdate(PrimUpdateFlags.FindBest);

                }

            }

            if (m_host.Sound != UUID.Zero)

                llStopSound();



            m_host.Sound = KeyOrName(sound, true);

            m_host.SoundGain = volume;

            m_host.SoundFlags = (byte) SoundFlags.Loop; // looping

            if (m_host.SoundRadius == 0)

                m_host.SoundRadius = 20; // Magic number, 20 seems reasonable. Make configurable?



            m_host.ScheduleUpdate(PrimUpdateFlags.FindBest);

        }



        public void llLoopSoundSlave(string sound, double volume)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            lock (m_host.ParentEntity.LoopSoundSlavePrims)

            {

                m_host.ParentEntity.LoopSoundSlavePrims.Add(m_host);

            }

        }



        public void llPlaySoundSlave(string sound, double volume)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            // send the sound, once, to all clients in range

            m_host.SendSound(KeyOrName(sound, true).ToString(), volume, false, 0, 0, true, false);

        }



        public void llTriggerSound(string sound, double volume)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            // send the sound, once, to all clients in range

            m_host.SendSound(KeyOrName(sound, true).ToString(), volume, true, 0, 0, false, false);

        }



        // Xantor 20080528: Clear prim data of sound instead

        public void llStopSound()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity.LoopSoundSlavePrims.Contains(m_host))

            {

                if (m_host.ParentEntity.LoopSoundMasterPrim == m_host)

                {

                    foreach (ISceneChildEntity part in m_host.ParentEntity.LoopSoundSlavePrims)

                    {

                        part.Sound = UUID.Zero;

                        part.SoundGain = 0;

                        part.SoundFlags = (byte) SoundFlags.None;

                        part.ScheduleUpdate(PrimUpdateFlags.FindBest);

                    }

                    m_host.ParentEntity.LoopSoundMasterPrim = null;

                    m_host.ParentEntity.LoopSoundSlavePrims.Clear();

                }

                else

                {

                    m_host.Sound = UUID.Zero;

                    m_host.SoundGain = 0;

                    m_host.SoundFlags = (byte) SoundFlags.None;

                    m_host.ScheduleUpdate(PrimUpdateFlags.FindBest);

                }

            }

            else

            {

                m_host.Sound = UUID.Zero;

                m_host.SoundGain = 0;

                m_host.SoundFlags = (byte) SoundFlags.Stop | (byte) SoundFlags.None;

                m_host.ScheduleUpdate(PrimUpdateFlags.FindBest);

            }

        }



        public DateTime llPreloadSound(string sound)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            m_host.PreloadSound(sound);

            return PScriptSleep(1000);

        }



        /// <summary>

        ///     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.

        /// </summary>

        public LSL_String llGetSubString(string src, int start, int end)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();





            // 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)

            // 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)

            {

                return start < src.Length ? src.Substring(start) : String.Empty;

            }

            if (start < src.Length)

            {

                return src.Substring(0, end + 1) + src.Substring(start);

            }

            return src.Substring(0, end + 1);

        }



        /// <summary>

        ///     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. />

        /// </summary>

        public LSL_String llDeleteSubString(string src, int start, int end)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();





            // 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

            // 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);

                }

                return src.Remove(0, end + 1);

            }

            if (start < src.Length)

            {

                return src.Remove(start);

            }

            return src;

        }



        /// <summary>

        ///     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.

        /// </summary>

        public LSL_String llInsertString(string dest, int index, string src)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();





            // 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            return src.ToUpper();

        }



        public LSL_String llToLower(string src)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            return src.ToLower();

        }



        public LSL_Integer llGiveMoney(string destination, int amount)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();

            UUID invItemID = InventorySelf();

            if (invItemID == UUID.Zero)

                return 0;





            TaskInventoryItem item = m_host.TaskInventory[invItemID];



            if (item.PermsGranter == UUID.Zero)

                return 0;



            if ((item.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<IMoneyModule>();



            if (money == null)

            {

                NotImplemented("llGiveMoney");

                return 0;

            }



            bool result = money.ObjectGiveMoney(

                m_host.ParentEntity.UUID, m_host.OwnerID, toID, amount);



            if (result)

                return 1;



            return 0;

        }



        public DateTime llMakeExplosion(int particles, double scale, double vel, double lifetime, double arc,

                                        string texture, LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            /*llParticleSystem([

        PSYS_PART_FLAGS,            PSYS_PART_INTERP_COLOR_MASK | PSYS_PART_INTERP_SCALE_MASK | PSYS_PART_EMISSIVE_MASK | PSYS_PART_WIND_MASK,

        PSYS_SRC_PATTERN,           PSYS_SRC_PATTERN_ANGLE_CONE,

        PSYS_PART_START_COLOR,      <1.0, 1.0, 1.0>,

        PSYS_PART_END_COLOR,        <1.0, 1.0, 1.0>,

        PSYS_PART_START_ALPHA,      0.50,

        PSYS_PART_END_ALPHA,        0.25,

        PSYS_PART_START_SCALE,      <particle_scale, particle_scale, 0.0>,

        PSYS_PART_END_SCALE,        <particle_scale * 2 + particle_lifetime, particle_scale * 2 + particle_lifetime, 0.0>,

        PSYS_PART_MAX_AGE,          particle_lifetime,

        PSYS_SRC_ACCEL,             <0.0, 0.0, 0.0>,

        PSYS_SRC_TEXTURE,           source_texture_id,

        PSYS_SRC_BURST_RATE,        1.0,

        PSYS_SRC_ANGLE_BEGIN,       0.0,

        PSYS_SRC_ANGLE_END,         source_cone * PI,

        PSYS_SRC_BURST_PART_COUNT,  particle_count / 2,

        PSYS_SRC_BURST_RADIUS,      0.0,

        PSYS_SRC_BURST_SPEED_MIN,   particle_speed / 3,

        PSYS_SRC_BURST_SPEED_MAX,   particle_speed * 2/3,

        PSYS_SRC_MAX_AGE,           particle_lifetime / 2,

        PSYS_SRC_OMEGA,             <0.0, 0.0, 0.0>

        ]);*/



            List<object> list = new List<object>

                                    {

                                        ScriptBaseClass.PSYS_PART_FLAGS,

                                        ScriptBaseClass.PSYS_PART_INTERP_COLOR_MASK |

                                        ScriptBaseClass.PSYS_PART_INTERP_SCALE_MASK |

                                        ScriptBaseClass.PSYS_PART_EMISSIVE_MASK | ScriptBaseClass.PSYS_PART_WIND_MASK,

                                        ScriptBaseClass.PSYS_SRC_PATTERN,

                                        ScriptBaseClass.PSYS_SRC_PATTERN_ANGLE_CONE,

                                        ScriptBaseClass.PSYS_PART_START_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_END_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_START_ALPHA,

                                        new LSL_Float(0.50),

                                        ScriptBaseClass.PSYS_PART_END_ALPHA,

                                        new LSL_Float(0.25),

                                        ScriptBaseClass.PSYS_PART_START_SCALE,

                                        new LSL_Vector(scale, scale, 0),

                                        ScriptBaseClass.PSYS_PART_END_SCALE,

                                        new LSL_Vector(scale*2 + lifetime, scale*2 + lifetime, 0),

                                        ScriptBaseClass.PSYS_PART_MAX_AGE,

                                        new LSL_Float(lifetime),

                                        ScriptBaseClass.PSYS_SRC_ACCEL,

                                        new LSL_Vector(0, 0, 0),

                                        ScriptBaseClass.PSYS_SRC_TEXTURE,

                                        new LSL_String(texture),

                                        ScriptBaseClass.PSYS_SRC_BURST_RATE,

                                        new LSL_Float(1),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_END,

                                        new LSL_Float(arc*Math.PI),

                                        ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT,

                                        new LSL_Integer(particles/2),

                                        ScriptBaseClass.PSYS_SRC_BURST_RADIUS,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN,

                                        new LSL_Float(vel/3),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX,

                                        new LSL_Float(vel*2/3),

                                        ScriptBaseClass.PSYS_SRC_MAX_AGE,

                                        new LSL_Float(lifetime/2),

                                        ScriptBaseClass.PSYS_SRC_OMEGA,

                                        new LSL_Vector(0, 0, 0)

                                    };



            llParticleSystem(new LSL_Types.list(list.ToArray()));



            return PScriptSleep(100);

        }



        public DateTime llMakeFountain(int particles, double scale, double vel, double lifetime, double arc, int bounce,

                                       string texture, LSL_Vector offset, double bounce_offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            /*llParticleSystem([

        PSYS_PART_FLAGS,            PSYS_PART_INTERP_COLOR_MASK | PSYS_PART_INTERP_SCALE_MASK | PSYS_PART_WIND_MASK | PSYS_PART_BOUNCE_MASK | PSYS_PART_EMISSIVE_MASK,

        PSYS_SRC_PATTERN,           PSYS_SRC_PATTERN_ANGLE_CONE,

        PSYS_PART_START_COLOR,      <1.0, 1.0, 1.0>,

        PSYS_PART_END_COLOR,        <1.0, 1.0, 1.0>,

        PSYS_PART_START_ALPHA,      0.50,

        PSYS_PART_END_ALPHA,        0.25,

        PSYS_PART_START_SCALE,      <particle_scale/1.5, particle_scale/1.5, 0.0>,

        PSYS_PART_END_SCALE,        <0.0, 0.0, 0.0>,

        PSYS_PART_MAX_AGE,          3.0,

        PSYS_SRC_ACCEL,             <1.0, 0.0, -4>,

        PSYS_SRC_TEXTURE,           source_texture_id,

        PSYS_SRC_BURST_RATE,        5/particle_count,

        PSYS_SRC_ANGLE_BEGIN,       0.0,

        PSYS_SRC_ANGLE_END,         source_cone*PI,

        PSYS_SRC_BURST_PART_COUNT,  1,

        PSYS_SRC_BURST_RADIUS,      0.0,

        PSYS_SRC_BURST_SPEED_MIN,   particle_speed,

        PSYS_SRC_BURST_SPEED_MAX,   particle_speed,

        PSYS_SRC_MAX_AGE,           particle_lifetime/2,

        PSYS_SRC_OMEGA,             <0.0, 0.0, 0.0>

    ]);*/



            List<object> list = new List<object>

                                    {

                                        ScriptBaseClass.PSYS_PART_FLAGS,

                                        ScriptBaseClass.PSYS_PART_INTERP_COLOR_MASK |

                                        ScriptBaseClass.PSYS_PART_INTERP_SCALE_MASK |

                                        ScriptBaseClass.PSYS_PART_WIND_MASK |

                                        ScriptBaseClass.PSYS_PART_BOUNCE_MASK | ScriptBaseClass.PSYS_PART_EMISSIVE_MASK,

                                        ScriptBaseClass.PSYS_SRC_PATTERN,

                                        ScriptBaseClass.PSYS_SRC_PATTERN_ANGLE_CONE,

                                        ScriptBaseClass.PSYS_PART_START_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_END_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_START_ALPHA,

                                        new LSL_Float(0.50),

                                        ScriptBaseClass.PSYS_PART_END_ALPHA,

                                        new LSL_Float(0.25),

                                        ScriptBaseClass.PSYS_PART_START_SCALE,

                                        new LSL_Vector(scale/1.5, scale/1.5, 0),

                                        ScriptBaseClass.PSYS_PART_END_SCALE,

                                        new LSL_Vector(0, 0, 0),

                                        ScriptBaseClass.PSYS_PART_MAX_AGE,

                                        new LSL_Float(3),

                                        ScriptBaseClass.PSYS_SRC_ACCEL,

                                        new LSL_Vector(1, 0, -4),

                                        ScriptBaseClass.PSYS_SRC_TEXTURE,

                                        new LSL_String(texture),

                                        ScriptBaseClass.PSYS_SRC_BURST_RATE,

                                        new LSL_Float(5/particles),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_END,

                                        new LSL_Float(arc*Math.PI),

                                        ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT,

                                        new LSL_Integer(1),

                                        ScriptBaseClass.PSYS_SRC_BURST_RADIUS,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN,

                                        new LSL_Float(vel),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX,

                                        new LSL_Float(vel),

                                        ScriptBaseClass.PSYS_SRC_MAX_AGE,

                                        new LSL_Float(lifetime/2),

                                        ScriptBaseClass.PSYS_SRC_OMEGA,

                                        new LSL_Vector(0, 0, 0)

                                    };



            llParticleSystem(new LSL_Types.list(list.ToArray()));



            return PScriptSleep(100);

        }



        public DateTime llMakeSmoke(int particles, double scale, double vel, double lifetime, double arc, string texture,

                                    LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            /*llParticleSystem([

       PSYS_PART_FLAGS,            PSYS_PART_INTERP_COLOR_MASK | PSYS_PART_INTERP_SCALE_MASK | PSYS_PART_EMISSIVE_MASK | PSYS_PART_WIND_MASK,

       PSYS_SRC_PATTERN,           PSYS_SRC_PATTERN_ANGLE_CONE,

       PSYS_PART_START_COLOR,      <1.0, 1.0, 1.0>,

       PSYS_PART_END_COLOR,        <1.0, 1.0, 1.0>,

       PSYS_PART_START_ALPHA,      1.00,

       PSYS_PART_END_ALPHA,        0.05,

       PSYS_PART_START_SCALE,      <particle_scale, particle_scale, 0.0>,

       PSYS_PART_END_SCALE,        <10, 10, 0.0>,

       PSYS_PART_MAX_AGE,          3.0,

       PSYS_SRC_ACCEL,             <0.0, 0.0, 0.0>,

       PSYS_SRC_TEXTURE,           source_texture_id,

       PSYS_SRC_BURST_RATE,        10.0 / particle_count,

       PSYS_SRC_ANGLE_BEGIN,       0.0,

       PSYS_SRC_ANGLE_END,         source_cone * PI,

       PSYS_SRC_BURST_PART_COUNT,  1,

       PSYS_SRC_BURST_RADIUS,      0.0,

       PSYS_SRC_BURST_SPEED_MIN,   particle_speed,

       PSYS_SRC_BURST_SPEED_MAX,   particle_speed,

       PSYS_SRC_MAX_AGE,           particle_lifetime / 2,

       PSYS_SRC_OMEGA,             <0.0, 0.0, 0.0>

       ]);*/

            List<object> list = new List<object>

                                    {

                                        ScriptBaseClass.PSYS_PART_FLAGS,

                                        ScriptBaseClass.PSYS_PART_INTERP_COLOR_MASK |

                                        ScriptBaseClass.PSYS_PART_INTERP_SCALE_MASK |

                                        ScriptBaseClass.PSYS_PART_EMISSIVE_MASK | ScriptBaseClass.PSYS_PART_WIND_MASK,

                                        ScriptBaseClass.PSYS_SRC_PATTERN,

                                        ScriptBaseClass.PSYS_SRC_PATTERN_ANGLE_CONE,

                                        ScriptBaseClass.PSYS_PART_START_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_END_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_START_ALPHA,

                                        new LSL_Float(1),

                                        ScriptBaseClass.PSYS_PART_END_ALPHA,

                                        new LSL_Float(0.05),

                                        ScriptBaseClass.PSYS_PART_START_SCALE,

                                        new LSL_Vector(scale, scale, 0),

                                        ScriptBaseClass.PSYS_PART_END_SCALE,

                                        new LSL_Vector(10, 10, 0),

                                        ScriptBaseClass.PSYS_PART_MAX_AGE,

                                        new LSL_Float(3),

                                        ScriptBaseClass.PSYS_SRC_ACCEL,

                                        new LSL_Vector(0, 0, 0),

                                        ScriptBaseClass.PSYS_SRC_TEXTURE,

                                        new LSL_String(texture),

                                        ScriptBaseClass.PSYS_SRC_BURST_RATE,

                                        new LSL_Float(10/particles),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_END,

                                        new LSL_Float(arc*Math.PI),

                                        ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT,

                                        new LSL_Integer(1),

                                        ScriptBaseClass.PSYS_SRC_BURST_RADIUS,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN,

                                        new LSL_Float(vel),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX,

                                        new LSL_Float(vel),

                                        ScriptBaseClass.PSYS_SRC_MAX_AGE,

                                        new LSL_Float(lifetime/2),

                                        ScriptBaseClass.PSYS_SRC_OMEGA,

                                        new LSL_Vector(0, 0, 0)

                                    };



            llParticleSystem(new LSL_Types.list(list.ToArray()));

            return PScriptSleep(100);

        }



        public DateTime llMakeFire(int particles, double scale, double vel, double lifetime, double arc, string texture,

                                   LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            /*llParticleSystem([

        PSYS_PART_FLAGS,            PSYS_PART_INTERP_COLOR_MASK | PSYS_PART_INTERP_SCALE_MASK | PSYS_PART_EMISSIVE_MASK | PSYS_PART_WIND_MASK,

        PSYS_SRC_PATTERN,           PSYS_SRC_PATTERN_ANGLE_CONE,

        PSYS_PART_START_COLOR,      <1.0, 1.0, 1.0>,

        PSYS_PART_END_COLOR,        <1.0, 1.0, 1.0>,

        PSYS_PART_START_ALPHA,      0.50,

        PSYS_PART_END_ALPHA,        0.10,

        PSYS_PART_START_SCALE,      <particle_scale/2, particle_scale/2, 0.0>,

        PSYS_PART_END_SCALE,        <particle_scale, particle_scale, 0.0>,

        PSYS_PART_MAX_AGE,          0.5,

        PSYS_SRC_ACCEL,             <0.0, 0.0, 0.0>,

        PSYS_SRC_TEXTURE,           source_texture_id,

        PSYS_SRC_BURST_RATE,        5 / particle_count,

        PSYS_SRC_ANGLE_BEGIN,       0.0,

        PSYS_SRC_ANGLE_END,         source_cone * PI,

        PSYS_SRC_BURST_PART_COUNT,  1,

        PSYS_SRC_BURST_RADIUS,      0.0,

        PSYS_SRC_BURST_SPEED_MIN,   particle_speed,

        PSYS_SRC_BURST_SPEED_MAX,   particle_speed,

        PSYS_SRC_MAX_AGE,           particle_lifetime / 2,

        PSYS_SRC_OMEGA,             <0.0, 0.0, 0.0>

        ]);*/



            List<object> list = new List<object>

                                    {

                                        ScriptBaseClass.PSYS_PART_FLAGS,

                                        ScriptBaseClass.PSYS_PART_INTERP_COLOR_MASK |

                                        ScriptBaseClass.PSYS_PART_INTERP_SCALE_MASK |

                                        ScriptBaseClass.PSYS_PART_EMISSIVE_MASK | ScriptBaseClass.PSYS_PART_WIND_MASK,

                                        ScriptBaseClass.PSYS_SRC_PATTERN,

                                        ScriptBaseClass.PSYS_SRC_PATTERN_ANGLE_CONE,

                                        ScriptBaseClass.PSYS_PART_START_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_END_COLOR,

                                        new LSL_Vector(1, 1, 1),

                                        ScriptBaseClass.PSYS_PART_START_ALPHA,

                                        new LSL_Float(0.50),

                                        ScriptBaseClass.PSYS_PART_END_ALPHA,

                                        new LSL_Float(0.10),

                                        ScriptBaseClass.PSYS_PART_START_SCALE,

                                        new LSL_Vector(scale/2, scale/2, 0),

                                        ScriptBaseClass.PSYS_PART_END_SCALE,

                                        new LSL_Vector(scale, scale, 0),

                                        ScriptBaseClass.PSYS_PART_MAX_AGE,

                                        new LSL_Float(0.50),

                                        ScriptBaseClass.PSYS_SRC_ACCEL,

                                        new LSL_Vector(0, 0, 0),

                                        ScriptBaseClass.PSYS_SRC_TEXTURE,

                                        new LSL_String(texture),

                                        ScriptBaseClass.PSYS_SRC_BURST_RATE,

                                        new LSL_Float(5/particles),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_ANGLE_END,

                                        new LSL_Float(arc*Math.PI),

                                        ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT,

                                        new LSL_Integer(1),

                                        ScriptBaseClass.PSYS_SRC_BURST_RADIUS,

                                        new LSL_Float(0.0),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN,

                                        new LSL_Float(vel),

                                        ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX,

                                        new LSL_Float(vel),

                                        ScriptBaseClass.PSYS_SRC_MAX_AGE,

                                        new LSL_Float(lifetime/2),

                                        ScriptBaseClass.PSYS_SRC_OMEGA,

                                        new LSL_Vector(0, 0, 0)

                                    };



            llParticleSystem(new LSL_Types.list(list.ToArray()));

            return PScriptSleep(100);

        }



        public DateTime llRezAtRoot(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param)

        {

            return llRezPrim(inventory, pos, vel, rot, param, true, true, true, true);

        }



        /// <summary>

        ///     This isn't really an LSL function, just a way to merge llRezAtRoot and llRezObject into one

        /// </summary>

        /// <param name="inventory"></param>

        /// <param name="pos"></param>

        /// <param name="vel"></param>

        /// <param name="rot"></param>

        /// <param name="param"></param>

        /// <param name="isRezAtRoot"></param>

        /// <param name="SetDieAtEdge"></param>

        /// <param name="CheckPos"></param>

        /// <returns></returns>

        public DateTime llRezPrim(string inventory, LSL_Types.Vector3 pos, LSL_Types.Vector3 vel,

                                  LSL_Types.Quaternion rot, int param, bool isRezAtRoot, bool SetDieAtEdge,

                                  bool CheckPos)

        {

            return llRezPrim(inventory, pos, vel, rot, param, isRezAtRoot, false, SetDieAtEdge, CheckPos);

        }



        /// <summary>

        ///     This isn't really an LSL function, just a way to merge llRezAtRoot and llRezObject into one

        /// </summary>

        /// <param name="inventory"></param>

        /// <param name="pos"></param>

        /// <param name="vel"></param>

        /// <param name="rot"></param>

        /// <param name="param"></param>

        /// <param name="isRezAtRoot"></param>

        /// <param name="doRecoil"></param>

        /// <param name="SetDieAtEdge"></param>

        /// <param name="CheckPos"></param>

        /// <returns></returns>

        public DateTime llRezPrim(string inventory, LSL_Types.Vector3 pos, LSL_Types.Vector3 vel,

                                  LSL_Types.Quaternion rot, int param, bool isRezAtRoot, bool doRecoil,

                                  bool SetDieAtEdge, bool CheckPos)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.Low, "llRezPrim", m_host, "LSL", m_itemID))

                return DateTime.Now;



            if (m_ScriptEngine.Config.GetBoolean("AllowllRezObject", true))

            {

                if (Double.IsNaN(rot.x) || Double.IsNaN(rot.y) || Double.IsNaN(rot.z) || Double.IsNaN(rot.s))

                    return DateTime.Now;

                if (CheckPos)

                {

                    float dist = (float) llVecDist(llGetPos(), pos);



                    if (dist > m_ScriptDistanceFactor*10.0f)

                        return DateTime.Now;

                }



                TaskInventoryDictionary partInventory = (TaskInventoryDictionary) m_host.TaskInventory.Clone();



                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in partInventory)

                {

                    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 DateTime.Now;

                        }



                        Vector3 llpos = new Vector3((float) pos.x, (float) pos.y, (float) pos.z);

                        Vector3 llvel = new Vector3((float) vel.x, (float) vel.y, (float) vel.z);



                        ISceneEntity new_group = RezObject(m_host, inv.Value, llpos, Rot2Quaternion(rot), llvel, param,

                                                           m_host.UUID, isRezAtRoot);

                        new_group.OnFinishedPhysicalRepresentationBuilding += delegate()

                                                                                  {

                                                                                      //Do this after the physics engine has built the prim

                                                                                      float groupmass =

                                                                                          new_group.GetMass();



                                                                                      //Recoil to the av

                                                                                      if (m_host.IsAttachment &&

                                                                                          doRecoil &&

                                                                                          (new_group.RootChild.Flags &

                                                                                           PrimFlags.Physics) ==

                                                                                          PrimFlags.Physics)

                                                                                      {

                                                                                          IScenePresence SP =

                                                                                              m_host.ParentEntity.Scene

                                                                                                    .GetScenePresence(

                                                                                                        m_host.OwnerID);

                                                                                          if (SP != null)

                                                                                          {

                                                                                              //Push the av backwards (For every action, there is an equal, but opposite reaction)

                                                                                              Vector3 impulse = llvel*

                                                                                                                groupmass;

                                                                                              impulse.X = impulse.X < 1

                                                                                                              ? impulse

                                                                                                                    .X

                                                                                                              : impulse

                                                                                                                    .X >

                                                                                                                -1

                                                                                                                    ? impulse

                                                                                                                          .X

                                                                                                                    : -1;

                                                                                              impulse.Y = impulse.Y < 1

                                                                                                              ? impulse

                                                                                                                    .Y

                                                                                                              : impulse

                                                                                                                    .Y >

                                                                                                                -1

                                                                                                                    ? impulse

                                                                                                                          .Y

                                                                                                                    : -1;

                                                                                              impulse.Z = impulse.Z < 1

                                                                                                              ? impulse

                                                                                                                    .Z

                                                                                                              : impulse

                                                                                                                    .Z >

                                                                                                                -1

                                                                                                                    ? impulse

                                                                                                                          .Z

                                                                                                                    : -1;

                                                                                              SP.PushForce(impulse);

                                                                                          }

                                                                                      }

                                                                                  };

                        // If either of these are null, then there was an unknown error.

                        if (new_group == null || new_group.RootChild == null)

                            continue;



                        // objects rezzed with this method are die_at_edge by default.

                        if (SetDieAtEdge)

                            new_group.RootChild.SetDieAtEdge(true);



                        // Variable script delay? (see (http://wiki.secondlife.com/wiki/LSL_Delay)

                        return PScriptSleep(100);

                    }

                }



                llSay(0, "Could not find object " + inventory);

            }

            return DateTime.Now;

        }



        /// <summary>

        ///     Rez an object into the scene from a prim's inventory.

        /// </summary>

        /// <param name="sourcePart"></param>

        /// <param name="item"></param>

        /// <param name="pos"></param>

        /// <param name="rot"></param>

        /// <param name="vel"></param>

        /// <param name="param"></param>

        /// <param name="RezzedFrom"></param>

        /// <param name="RezObjectAtRoot"></param>

        /// <returns>The SceneObjectGroup rezzed or null if rez was unsuccessful</returns>

        public ISceneEntity RezObject(

            ISceneChildEntity sourcePart, TaskInventoryItem item,

            Vector3 pos, Quaternion rot, Vector3 vel, int param, UUID RezzedFrom, bool RezObjectAtRoot)

        {

            if (item != null)

            {

                UUID ownerID = item.OwnerID;



                byte[] rezAsset = World.AssetService.GetData(item.AssetID.ToString());



                if (rezAsset != null)

                {

                    string xmlData = Utils.BytesToString(rezAsset);

                    ISceneEntity group = SceneEntitySerializer.SceneObjectSerializer.FromOriginalXmlFormat(xmlData,

                                                                                                           World);

                    if (group == null)

                        return null;



                    string reason;

                    if (!World.Permissions.CanRezObject(group.ChildrenEntities().Count, ownerID, pos, out reason))

                    {

                        World.GetScenePresence(ownerID)

                             .ControllingClient.SendAlertMessage("You do not have permission to rez objects here: " +

                                                                 reason);

                        return null;

                    }



                    List<ISceneChildEntity> partList = group.ChildrenEntities();

                    // we set it's position in world.

                    // llRezObject sets the whole group at the position, while llRezAtRoot rezzes the group based on the root prim's position

                    // See: http://lslwiki.net/lslwiki/wakka.php?wakka=llRezAtRoot

                    // Shorthand: llRezAtRoot rezzes the root prim of the group at the position

                    //            llRezObject rezzes the center of group at the position

                    if (RezObjectAtRoot)

                        //This sets it right...

                        group.AbsolutePosition = pos;

                    else

                    {

                        // center is on average of all positions

                        // less root prim position

#if (!ISWIN)

                        Vector3 offset = Vector3.Zero;

                        foreach (ISceneChildEntity child in partList)

                        {

                            offset += child.AbsolutePosition;

                        }

#else

                        Vector3 offset = partList.Aggregate(Vector3.Zero,

                                                            (current, child) => current + child.AbsolutePosition);

#endif

                        offset /= partList.Count;

                        offset -= group.AbsolutePosition;

                        offset += pos;

                        group.AbsolutePosition = offset;

                    }



                    ISceneChildEntity rootPart = group.GetChildPart(group.UUID);



                    // Since renaming the item in the inventory does not affect the name stored

                    // in the serialization, transfer the correct name from the inventory to the

                    // object itself before we rez.

                    rootPart.Name = item.Name;

                    rootPart.Description = item.Description;



                    group.SetGroup(sourcePart.GroupID, group.OwnerID, false);



                    if (rootPart.OwnerID != item.OwnerID)

                    {

                        if (World.Permissions.PropagatePermissions())

                        {

                            if ((item.CurrentPermissions & 8) != 0)

                            {

                                foreach (ISceneChildEntity part in partList)

                                {

                                    part.EveryoneMask = item.EveryonePermissions;

                                    part.NextOwnerMask = item.NextPermissions;

                                }

                            }

                            group.ApplyNextOwnerPermissions();

                        }

                    }



                    foreach (ISceneChildEntity part in partList)

                    {

                        if (part.OwnerID != item.OwnerID)

                        {

                            part.LastOwnerID = part.OwnerID;

                            part.OwnerID = item.OwnerID;

                            part.Inventory.ChangeInventoryOwner(item.OwnerID);

                        }

                        else if ((item.CurrentPermissions & 8) != 0) // Slam!

                        {

                            part.EveryoneMask = item.EveryonePermissions;

                            part.NextOwnerMask = item.NextPermissions;

                        }

                    }



                    rootPart.TrimPermissions();



                    if (group.RootChild.Shape.PCode == (byte) PCode.Prim)

                    {

                        group.ClearPartAttachmentData();

                    }



                    group.UpdateGroupRotationR(rot);



                    //group.ApplyPhysics(m_physicalPrim);

                    World.SceneGraph.AddPrimToScene(group);

                    if ((group.RootChild.Flags & PrimFlags.Physics) == PrimFlags.Physics)

                    {

                        group.RootChild.PhysActor.OnPhysicalRepresentationChanged += delegate

                                                                                         {

                                                                                             float groupmass =

                                                                                                 group.GetMass();

                                                                                             //Apply the velocity to the object

                                                                                             //llApplyImpulse(new LSL_Vector(llvel.X * groupmass, llvel.Y * groupmass, llvel.Z * groupmass), 0);

                                                                                             // @Above: Err.... no. Read http://lslwiki.net/lslwiki/wakka.php?wakka=llRezObject

                                                                                             //    Notice the "Creates ("rezzes") object's inventory object centered at position pos (in region coordinates) with velocity vel"

                                                                                             //    This means SET the velocity to X, not just temperarily add it!

                                                                                             //   -- Revolution Smythe

                                                                                             llSetForce(

                                                                                                 new LSL_Vector(vel*

                                                                                                                groupmass),

                                                                                                 0);

                                                                                             group.RootChild.PhysActor

                                                                                                  .ForceSetVelocity(vel*

                                                                                                                    groupmass);

                                                                                             group.RootChild.PhysActor

                                                                                                  .Velocity = vel*

                                                                                                              groupmass;

                                                                                         };

                    }



                    group.CreateScriptInstances(param, true, StateSource.ScriptedRez, RezzedFrom, false);



                    if (!World.Permissions.BypassPermissions())

                    {

                        if ((item.CurrentPermissions & (uint) PermissionMask.Copy) == 0)

                            sourcePart.Inventory.RemoveInventoryItem(item.ItemID);

                    }



                    group.ScheduleGroupUpdate(PrimUpdateFlags.FullUpdate);



                    return rootPart.ParentEntity;

                }

            }



            return null;

        }



        public DateTime llRezObject(string inventory, LSL_Vector pos, LSL_Vector vel, LSL_Rotation rot, int param)

        {

            return llRezPrim(inventory, pos, vel, rot, param, false, true, true, true);

        }



        public void llLookAt(LSL_Vector target, double strength, double damping)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            LookAt(target, strength, damping, m_host);

        }



        public void llLinkLookAt(LSL_Integer link, LSL_Vector target, double strength, double damping)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            List<ISceneChildEntity> parts = GetLinkParts(link);



            foreach (ISceneChildEntity part in parts)

                LookAt(target, strength, damping, part);

        }



        private void LookAt(LSL_Vector target, double strength, double damping, ISceneChildEntity obj)

        {

            // Determine where we are looking from

            LSL_Vector from = new LSL_Vector(obj.GetWorldPosition());



            // Work out the normalised vector from the source to the target

            LSL_Vector delta = llVecNorm(target - from);

            LSL_Vector angle = new LSL_Vector(0, 0, 0)

                                   {

                                       x = llAtan2(delta.z, delta.y) - ScriptBaseClass.PI_BY_TWO,

                                       y = llAtan2(delta.x, llSqrt((delta.y*delta.y) + (delta.z*delta.z)))

                                   };



            // Calculate the yaw

            // subtracting PI_BY_TWO is required to compensate for the odd SL co-ordinate system



            // Calculate pitch



            // we need to convert from a vector describing

            // the angles of rotation in radians into rotation value



            LSL_Types.Quaternion rot = llEuler2Rot(angle);

            //If the strength is 0, or we are non-physical, set the rotation

            if (strength == 0 || obj.PhysActor == null || !obj.PhysActor.IsPhysical)

                SetLinkRot(obj, rot);

            else

                obj.startLookAt(Rot2Quaternion(rot), (float) strength, (float) damping);

        }



        public void llRotLookAt(LSL_Rotation target, double strength, double damping)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            Quaternion rot = new Quaternion((float) target.x, (float) target.y, (float) target.z, (float) target.s);

            m_host.RotLookAt(rot, (float) strength, (float) damping);

        }



        public void llLinkRotLookAt(LSL_Integer link, LSL_Rotation target, double strength, double damping)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            Quaternion rot = new Quaternion((float) target.x, (float) target.y, (float) target.z, (float) target.s);

            List<ISceneChildEntity> parts = GetLinkParts(link);



            foreach (ISceneChildEntity part in parts)

                part.RotLookAt(rot, (float) strength, (float) damping);

        }



        public void llStopLookAt()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.StopLookAt();

        }



        public void llSetTimerEvent(double sec)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            if (sec != 0.0 && sec < m_MinTimerInterval)

                sec = m_MinTimerInterval;



            // Setting timer repeat

            TimerPlugin timerPlugin = (TimerPlugin) m_ScriptEngine.GetScriptPlugin("Timer");

            timerPlugin.SetTimerEvent(m_host.UUID, m_itemID, sec);

        }



        public virtual DateTime llSleep(double sec)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            return PScriptSleep((int) (sec*1000));

        }



        public LSL_Float llGetObjectMass(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            UUID key = new UUID();

            if (UUID.TryParse(id, out key))

            {

                try

                {

                    ISceneChildEntity obj = World.GetSceneObjectPart(key);

                    if (obj != null)

                        return obj.GetMass();

                    // the object is null so the key is for an avatar

                    IScenePresence 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 avatar.PhysicsActor.Mass;

                }

                catch (KeyNotFoundException)

                {

                    return 0; // The Object/Agent not in the region so just return zero

                }

            }

            return 0;

        }



        public LSL_Float llGetMassMKS()

        {

            return llGetMass()*100;

        }



        public LSL_Float llGetMass()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();

            if (m_host.IsAttachment)

            {

                IScenePresence SP = m_host.ParentEntity.Scene.GetScenePresence(m_host.OwnerID);

                return SP != null ? SP.PhysicsActor.Mass : 0.0;

            }

            return m_host.GetMass();

        }



        public void llCollisionFilter(string name, string id, int accept)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.CollisionFilter.Clear();

            m_host.CollisionFilter.Add(accept, id ?? name);

        }



        public void llTakeControls(int controls, int accept, int pass_on)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                if (!m_host.TaskInventory.ContainsKey(InventorySelf()))

                    return;

                item = m_host.TaskInventory[InventorySelf()];

            }



            if (item.PermsGranter != UUID.Zero)

            {

                IScenePresence presence = World.GetScenePresence(item.PermsGranter);



                if (presence != null)

                {

                    if ((item.PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0)

                    {

                        IScriptControllerModule m = presence.RequestModuleInterface<IScriptControllerModule>();

                        if (m != null)

                            m.RegisterControlEventsToScript(controls, accept, pass_on, m_host, m_itemID);

                    }

                }

            }

        }



        public void llReleaseControls()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                if (!m_host.TaskInventory.ContainsKey(InventorySelf()))

                    return;

                item = m_host.TaskInventory[InventorySelf()];

            }





            if (item.PermsGranter != UUID.Zero)

            {

                IScenePresence presence = World.GetScenePresence(item.PermsGranter);



                if (presence != null)

                {

                    if ((item.PermsMask & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) != 0)

                    {

                        // Unregister controls from Presence

                        IScriptControllerModule m = presence.RequestModuleInterface<IScriptControllerModule>();

                        if (m != null)

                            m.UnRegisterControlEventsToScript(m_localID, m_itemID);

                        // Remove Take Control permission.

                        item.PermsMask &= ~ScriptBaseClass.PERMISSION_TAKE_CONTROLS;

                    }

                }

            }

        }



        public void llReleaseURL(string url)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_UrlModule != null)

                m_UrlModule.ReleaseURL(url);

        }



        /// <summary>

        ///     Attach the object containing this script to the avatar that owns it.

        /// </summary>

        /// <returns>true if the attach suceeded, false if it did not</returns>

        public bool AttachToAvatar(int attachmentPoint, bool temp)

        {

            IScenePresence presence = World.GetScenePresence(m_host.OwnerID);

            IAttachmentsModule attachmentsModule = World.RequestModuleInterface<IAttachmentsModule>();

            if (attachmentsModule != null)

                return attachmentsModule.AttachObjectFromInworldObject(m_localID, presence.ControllingClient,

                                                                       m_host.ParentEntity, attachmentPoint, temp);

            else

                return false;

        }



        /// <summary>

        ///     Detach the object containing this script from the avatar it is attached to.

        /// </summary>

        /// <remarks>

        ///     Nothing happens if the object is not attached.

        /// </remarks>

        public void DetachFromAvatar()

        {

            Util.FireAndForget(DetachWrapper, m_host);

        }



        private void DetachWrapper(object o)

        {

            ISceneEntity grp = ((ISceneChildEntity) o).ParentEntity;

            IScenePresence presence = World.GetScenePresence(grp.OwnerID);

            IAttachmentsModule attachmentsModule = World.RequestModuleInterface<IAttachmentsModule>();

            if (attachmentsModule != null)

                attachmentsModule.DetachSingleAttachmentToInventory(grp.GroupID, presence.ControllingClient);

        }



        public void llAttachToAvatarTemp(int attachmentPoint)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity.RootChild.AttachmentPoint != 0)

                return;



            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                if (!m_host.TaskInventory.ContainsKey(InventorySelf()))

                    return;

                item = m_host.TaskInventory[InventorySelf()];

            }



            if (item.PermsGranter != m_host.OwnerID)

                return;



            if ((item.NextPermissions & (uint) PermissionMask.Transfer) != (uint) PermissionMask.Transfer)

            {

                ShoutError("No permission to transfer");

                return;

            }



            if ((item.PermsMask & ScriptBaseClass.PERMISSION_ATTACH) != 0)

            {

                AttachToAvatar(attachmentPoint, true);

            }

        }



        public void llAttachToAvatar(int attachmentPoint)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            if (m_host.ParentEntity.RootChild.AttachmentPoint != 0)

                return;



            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                if (!m_host.TaskInventory.ContainsKey(InventorySelf()))

                    return;

                item = m_host.TaskInventory[InventorySelf()];

            }



            if (item.PermsGranter != m_host.OwnerID)

                return;



            if ((item.PermsMask & ScriptBaseClass.PERMISSION_ATTACH) != 0)

            {

                AttachToAvatar(attachmentPoint, false);

            }

        }



        public void llDetachFromAvatar()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity.RootChild.AttachmentPoint == 0)

                return;



            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                if (!m_host.TaskInventory.ContainsKey(InventorySelf()))

                    return;

                item = m_host.TaskInventory[InventorySelf()];

            }



            if (item.PermsGranter != m_host.OwnerID)

                return;



            if ((item.PermsMask & ScriptBaseClass.PERMISSION_ATTACH) != 0)

                DetachFromAvatar();

        }



        public void llTakeCamera(string avatar)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            Deprecated("llTakeCamera");

        }



        public void llReleaseCamera(string avatar)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            Deprecated("llReleaseCamera");

            llClearCameraParams();

        }



        public LSL_String llGetOwner()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();





            return m_host.OwnerID.ToString();

        }



        public DateTime llInstantMessage(string user, string message)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            // 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.)



            UUID friendTransactionID = UUID.Random();



            GridInstantMessage msg = new GridInstantMessage

                                         {

                                             fromAgentID = m_host.UUID,

                                             toAgentID = UUID.Parse(user),

                                             imSessionID = friendTransactionID,

                                             fromAgentName = m_host.Name

                                         };



            // This is the item we're mucking with here



            // Cap the message length at 1024.

            if (message != null && message.Length > 1024)

                msg.message = message.Substring(0, 1024);

            else

                msg.message = message;



            msg.dialog = (byte) InstantMessageDialog.MessageFromObject;

            msg.fromGroup = false;

            msg.offline = 0;

            msg.ParentEstateID = 0;

            msg.Position = m_host.AbsolutePosition;

            msg.RegionID = World.RegionInfo.RegionID;

            msg.binaryBucket

                = Util.StringToBytes256(

                    "{0}/{1}/{2}/{3}",

                    World.RegionInfo.RegionName,

                    (int) Math.Floor(m_host.AbsolutePosition.X),

                    (int) Math.Floor(m_host.AbsolutePosition.Y),

                    (int) Math.Floor(m_host.AbsolutePosition.Z));



            if (m_TransferModule != null)

            {

                m_TransferModule.SendInstantMessage(msg);

            }

            return PScriptSleep(2000);

        }



        public DateTime llEmail(string address, string subject, string message)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.Low, "llEmail", m_host, "LSL", m_itemID))

                return DateTime.Now;

            IEmailModule emailModule = World.RequestModuleInterface<IEmailModule>();

            if (emailModule == null)

            {

                ShoutError("llEmail: email module not configured");

                return DateTime.Now;

            }



            emailModule.SendEmail(m_host.UUID, address, subject, message, World);

            return PScriptSleep(20000);

        }



        public void llGetNextEmail(string address, string subject)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            IEmailModule emailModule = World.RequestModuleInterface<IEmailModule>();

            if (emailModule == null)

            {

                ShoutError("llGetNextEmail: email module not configured");

                return;

            }



            emailModule.GetNextEmailAsync(m_host.UUID, address, subject, email =>

                                                                             {

                                                                                 if (email == null)

                                                                                     return;



                                                                                 m_ScriptEngine.PostScriptEvent(

                                                                                     m_itemID, m_host.UUID, "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)

                                                                                         }

                                                                                     );

                                                                             }, World);

        }



        public LSL_String llGetKey()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            return m_host.UUID.ToString();

        }



        public void llSetBuoyancy(double buoyancy)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.SetBuoyancy((float) buoyancy);

                }

            }

        }



        /// <summary>

        ///     Attempt to clamp the object on the Z axis at the given height over tau seconds.

        /// </summary>

        /// <param name="height">Height to hover.  Height of zero disables hover.</param>

        /// <param name="water">False if height is calculated just from ground, otherwise uses ground or water depending on whichever is higher</param>

        /// <param name="tau">Number of seconds over which to reach target</param>

        public void llSetHoverHeight(double height, int water, double tau)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.PhysActor != null)

            {

                PIDHoverType hoverType = PIDHoverType.Ground;

                if (water != 0)

                {

                    hoverType = PIDHoverType.GroundAndWater;

                }



                m_host.SetHoverHeight((float) height, hoverType, (float) tau);

            }

        }



        public void llStopHover()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.PhysActor != null)

            {

                m_host.SetHoverHeight(0f, PIDHoverType.Ground, 0f);

            }

        }



        public void llMinEventDelay(double delay)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_ScriptEngine.SetMinEventDelay(m_itemID, m_host.UUID, delay);

        }



        /// <summary>

        ///     llSoundPreload is deprecated. In SL this appears to do absolutely nothing

        ///     and is documented to have no delay.

        /// </summary>

        public void llSoundPreload(string sound)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

        }



        public LSL_Integer llStringLength(string str)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            if (str.Length > 0)

            {

                return str.Length;

            }

            return 0;

        }



        public void llStartAnimation(string anim)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            UUID invItemID = InventorySelf();

            if (invItemID == UUID.Zero)

                return;



            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                if (!m_host.TaskInventory.ContainsKey(InventorySelf()))

                    return;

                item = m_host.TaskInventory[InventorySelf()];

            }



            if (item.PermsGranter == UUID.Zero)

                return;



            if ((item.PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0)

            {

                IScenePresence presence = World.GetScenePresence(item.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)

                    {

                        if (UUID.TryParse(anim, out animID))

                            presence.Animator.AddAnimation(animID, m_host.UUID);

                        else

                        {

                            bool RetVal = presence.Animator.AddAnimation(anim, m_host.UUID);

                            if (!RetVal)

                            {

                                IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

                                if (chatModule != null)

                                    chatModule.SimChat("Could not find animation '" + anim + "'.",

                                                       ChatTypeEnum.DebugChannel, 2147483647, m_host.AbsolutePosition,

                                                       m_host.Name, m_host.UUID, false, World);

                            }

                        }

                    }

                    else

                        presence.Animator.AddAnimation(animID, m_host.UUID);

                }

            }

        }



        public void llStopAnimation(string anim)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            UUID invItemID = InventorySelf();

            if (invItemID == UUID.Zero)

                return;



            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                if (!m_host.TaskInventory.ContainsKey(InventorySelf()))

                    return;

                item = m_host.TaskInventory[InventorySelf()];

            }



            if (item.PermsGranter == UUID.Zero)

                return;



            if ((item.PermsMask & ScriptBaseClass.PERMISSION_TRIGGER_ANIMATION) != 0)

            {

                UUID animID = new UUID();



                if (!UUID.TryParse(anim, out animID))

                {

                    animID = InventoryKey(anim, false);

                }



                IScenePresence presence = World.GetScenePresence(item.PermsGranter);



                if (presence != null)

                {

                    if (animID == UUID.Zero)

                    {

                        if (UUID.TryParse(anim, out animID))

                            presence.Animator.RemoveAnimation(animID);

                        else

                        {

                            bool RetVal = presence.Animator.RemoveAnimation(anim);

                            if (!RetVal)

                            {

                                IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

                                if (chatModule != null)

                                    chatModule.SimChat("Could not find animation '" + anim + "'.",

                                                       ChatTypeEnum.DebugChannel, 2147483647, m_host.AbsolutePosition,

                                                       m_host.Name, m_host.UUID, false, World);

                            }

                        }

                    }

                    else

                        presence.Animator.RemoveAnimation(animID);

                }

            }

        }



        public void llPointAt(LSL_Vector pos)

        {

        }



        public void llStopPointAt()

        {

        }



        public void llTargetOmega(LSL_Vector axis, LSL_Float spinrate, LSL_Float gain)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.OmegaAxis = new Vector3((float) axis.x, (float) axis.y, (float) axis.z);

            m_host.OmegaGain = gain;

            m_host.OmegaSpinRate = spinrate;



            m_host.GenerateRotationalVelocityFromOmega();

            ScriptData script = ScriptProtection.GetScript(m_itemID);

            if (script != null)

                script.TargetOmegaWasSet = true;

            m_host.ScheduleTerseUpdate();

            //m_host.SendTerseUpdateToAllClients();

        }



        public LSL_Integer llGetStartParameter()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            return m_ScriptEngine.GetStartParameter(m_itemID, m_host.UUID);

        }



        public void llGodLikeRezObject(string inventory, LSL_Vector pos)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_ScriptEngine.Config.GetBoolean("AllowGodFunctions", false))

            {

                if (World.Permissions.CanRunConsoleCommand(m_host.OwnerID))

                {

                    byte[] asset = World.AssetService.GetData(inventory);

                    ISceneEntity group

                        = SceneEntitySerializer.SceneObjectSerializer.FromOriginalXmlFormat(UUID.Zero,

                                                                                            Utils.BytesToString(asset),

                                                                                            World);

                    if (group == null)

                        return;



                    group.IsDeleted = false;

                    foreach (ISceneChildEntity part in group.ChildrenEntities())

                        part.IsLoading = false;



                    group.OwnerID = m_host.OwnerID;



                    group.RootChild.AddFlag(PrimFlags.CreateSelected);

                    // If we're rezzing an attachment then don't ask AddNewSceneObject() to update the client since

                    // we'll be doing that later on.  Scheduling more than one full update during the attachment

                    // process causes some clients to fail to display the attachment properly.

                    World.SceneGraph.AddPrimToScene(group);



                    // if attachment we set it's asset id so object updates can reflect that

                    // if not, we set it's position in world.

                    group.AbsolutePosition = new Vector3((float) pos.x, (float) pos.y, (float) pos.z);



                    IScenePresence SP = World.GetScenePresence(m_host.OwnerID);

                    if (SP != null)

                        group.SetGroup(m_host.GroupID, SP.UUID, false);



                    if (group.RootChild.Shape.PCode == (byte) PCode.Prim)

                        group.ClearPartAttachmentData();



                    // Fire on_rez

                    group.CreateScriptInstances(0, true, StateSource.ScriptedRez, UUID.Zero, false);

                    group.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);

                }

            }

        }



        public void llRequestPermissions(string agent, int perm)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            UUID agentID = new UUID();



            if (!UUID.TryParse(agent, out agentID))

                return;



            UUID invItemID = InventorySelf();



            if (invItemID == UUID.Zero)

                return; // Not in a prim? How??



            TaskInventoryItem item;



            lock (m_host.TaskInventory)

            {

                item = m_host.TaskInventory[invItemID];

            }



            if (agentID == UUID.Zero || perm == 0) // Releasing permissions

            {

                llReleaseControls();



                item.PermsGranter = UUID.Zero;

                item.PermsMask = 0;



                m_ScriptEngine.PostScriptEvent(m_itemID, m_host.UUID, new EventParams(

                                                                          "run_time_permissions", new Object[]

                                                                                                      {

                                                                                                          new LSL_Integer

                                                                                                              (0)

                                                                                                      },

                                                                          new DetectParams[0]), EventPriority.FirstStart);



                return;

            }



            if (item.PermsGranter != agentID || (perm & ScriptBaseClass.PERMISSION_TAKE_CONTROLS) == 0)

                llReleaseControls();





            if (m_host.ParentEntity.IsAttachment && (UUID) agent == m_host.ParentEntity.RootChild.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 |

                                    ScriptBaseClass.PERMISSION_TRACK_CAMERA;



                if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms

                {

                    lock (m_host.TaskInventory)

                    {

                        m_host.TaskInventory[invItemID].PermsGranter = agentID;

                        m_host.TaskInventory[invItemID].PermsMask = perm;

                    }



                    m_ScriptEngine.PostScriptEvent(m_itemID, m_host.UUID, new EventParams(

                                                                              "run_time_permissions", new Object[]

                                                                                                          {

                                                                                                              new LSL_Integer

                                                                                                                  (perm)

                                                                                                          },

                                                                              new DetectParams[0]),

                                                   EventPriority.FirstStart);



                    return;

                }

            }

            else if (m_host.ParentEntity.SitTargetAvatar.Contains(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 |

                                    ScriptBaseClass.PERMISSION_TAKE_CONTROLS;



                if ((perm & (~implicitPerms)) == 0) // Requested only implicit perms

                {

                    lock (m_host.TaskInventory)

                    {

                        m_host.TaskInventory[invItemID].PermsGranter = agentID;

                        m_host.TaskInventory[invItemID].PermsMask = perm;

                    }



                    m_ScriptEngine.PostScriptEvent(m_itemID, m_host.UUID, new EventParams(

                                                                              "run_time_permissions", new Object[]

                                                                                                          {

                                                                                                              new LSL_Integer

                                                                                                                  (perm)

                                                                                                          },

                                                                              new DetectParams[0]),

                                                   EventPriority.FirstStart);



                    return;

                }

            }



            IScenePresence presence = World.GetScenePresence(agentID);



            if (presence != null)

            {

                string ownerName = "";

                IScenePresence ownerPresence = World.GetScenePresence(m_host.ParentEntity.RootChild.OwnerID);

                ownerName = ownerPresence == null ? resolveName(m_host.OwnerID) : ownerPresence.Name;



                if (ownerName == String.Empty)

                    ownerName = "(hippos)";



                if (!m_waitingForScriptAnswer)

                {

                    lock (m_host.TaskInventory)

                    {

                        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.ParentEntity.RootChild.Name, ownerName, invItemID, perm);



                return;

            }



            // Requested agent is not in range, refuse perms

            m_ScriptEngine.PostScriptEvent(m_itemID, m_host.UUID, new EventParams(

                                                                      "run_time_permissions", new Object[]

                                                                                                  {

                                                                                                      new LSL_Integer(0)

                                                                                                  },

                                                                      new DetectParams[0]), EventPriority.FirstStart);

        }



        private 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();



            lock (m_host.TaskInventory)

            {

                m_host.TaskInventory[invItemID].PermsMask = answer;

            }



            m_ScriptEngine.PostScriptEvent(m_itemID, m_host.UUID, new EventParams(

                                                                      "run_time_permissions", new Object[]

                                                                                                  {

                                                                                                      new LSL_Integer(

                                                                                                          answer)

                                                                                                  },

                                                                      new DetectParams[0]), EventPriority.FirstStart);

        }



        public LSL_String llGetPermissionsKey()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            lock (m_host.TaskInventory)

            {

                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()

        {

            lock (m_host.TaskInventory)

            {

                foreach (TaskInventoryItem item in m_host.TaskInventory.Values)

                {

                    if (item.Type == 10 && item.ItemID == m_itemID)

                    {

                        int perms = item.PermsMask;

                        if (m_automaticLinkPermission)

                            perms |= ScriptBaseClass.PERMISSION_CHANGE_LINKS;

                        return perms;

                    }

                }

            }



            return 0;

        }



        public LSL_Integer llGetLinkNumber()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            if (m_host.ParentEntity.ChildrenEntities().Count > 1)

            {

                return m_host.LinkNum;

            }

            return 0;

        }



        public void llSetLinkColor(int linknumber, LSL_Vector color, int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            foreach (ISceneChildEntity part in parts)

                part.SetFaceColor(new Vector3((float) color.x, (float) color.y, (float) color.z), face);

        }



        public DateTime llCreateLink(string target, int parent)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            UUID invItemID = InventorySelf();

            UUID targetID;



            if (!UUID.TryParse(target, out targetID))

                return DateTime.Now;



            TaskInventoryItem item;

            lock (m_host.TaskInventory)

            {

                item = m_host.TaskInventory[invItemID];

            }



            if ((item.PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0

                && !m_automaticLinkPermission)

            {

                ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!");

                return DateTime.Now;

            }



            IClientAPI client = null;

            IScenePresence sp = World.GetScenePresence(item.PermsGranter);

            if (sp != null)

                client = sp.ControllingClient;



            ISceneChildEntity targetPart = World.GetSceneObjectPart(targetID);



            if (targetPart.ParentEntity.RootChild.AttachmentPoint != 0)

                return DateTime.Now;

            // Fail silently if attached

            ISceneEntity parentPrim = null;

            ISceneEntity childPrim = null;

            if (parent != 0)

            {

                parentPrim = m_host.ParentEntity;

                childPrim = targetPart.ParentEntity;

            }

            else

            {

                parentPrim = targetPart.ParentEntity;

                childPrim = m_host.ParentEntity;

            }

            //                byte uf = childPrim.RootPart.UpdateFlag;

            parentPrim.LinkToGroup(childPrim);

            //                if (uf != (Byte)0)

            //                    parent.RootPart.UpdateFlag = uf;



            parentPrim.TriggerScriptChangedEvent(Changed.LINK);

            parentPrim.RootChild.CreateSelected = true;

            parentPrim.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);



            if (client != null)

                parentPrim.GetProperties(client);



            return PScriptSleep(1000);

        }



        public void llBreakLink(int linknum)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            UUID invItemID = InventorySelf();



            lock (m_host.TaskInventory)

            {

                if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CHANGE_LINKS) == 0

                    && !m_automaticLinkPermission)

                {

                    ShoutError("Script trying to link but PERMISSION_CHANGE_LINKS permission not set!");

                    return;

                }

            }



            if (linknum < ScriptBaseClass.LINK_THIS)

                return;



            ISceneEntity parentPrim = m_host.ParentEntity;



            if (parentPrim.RootChild.AttachmentPoint != 0)

                return; // Fail silently if attached

            ISceneChildEntity childPrim = null;



            if (linknum == ScriptBaseClass.LINK_ROOT)

            {

            }

            else if (linknum == ScriptBaseClass.LINK_SET ||

                     ScriptBaseClass.LINK_ALL_OTHERS ||

                     ScriptBaseClass.LINK_ALL_CHILDREN ||

                     ScriptBaseClass.LINK_THIS)

            {

                foreach (ISceneChildEntity part in parentPrim.ChildrenEntities())

                {

                    if (part.UUID != m_host.UUID)

                    {

                        childPrim = part;

                        break;

                    }

                }

            }

            else

            {

                IEntity target = m_host.ParentEntity.GetLinkNumPart(linknum);

                if (target is ISceneChildEntity)

                {

                    childPrim = target as ISceneChildEntity;

                }

                else

                    return;

                if (childPrim.UUID == m_host.UUID)

                    childPrim = null;

            }



            if (linknum == ScriptBaseClass.LINK_ROOT)

            {

                // Restructuring Multiple Prims.

                List<ISceneChildEntity> parts = new List<ISceneChildEntity>(parentPrim.ChildrenEntities());

                parts.Remove(parentPrim.RootChild);

                foreach (ISceneChildEntity part in parts)

                {

                    parentPrim.DelinkFromGroup(part, true);

                }

                parentPrim.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);

                parentPrim.TriggerScriptChangedEvent(Changed.LINK);



                if (parts.Count > 0)

                {

                    ISceneChildEntity newRoot = parts[0];

                    parts.Remove(newRoot);

                    foreach (ISceneChildEntity part in parts)

                    {

                        newRoot.ParentEntity.LinkToGroup(part.ParentEntity);

                    }

                    newRoot.ParentEntity.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);

                }

            }

            else

            {

                if (childPrim == null)

                    return;



                parentPrim.DelinkFromGroup(childPrim, true);

                childPrim.ParentEntity.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);

                parentPrim.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);

                parentPrim.TriggerScriptChangedEvent(Changed.LINK);

            }

        }



        public void llBreakAllLinks()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            ISceneEntity parentPrim = m_host.ParentEntity;

            if (parentPrim.RootChild.AttachmentPoint != 0)

                return; // Fail silently if attached



            List<ISceneChildEntity> parts = new List<ISceneChildEntity>(parentPrim.ChildrenEntities());

            parts.Remove(parentPrim.RootChild);



            foreach (ISceneChildEntity part in parts)

            {

                parentPrim.DelinkFromGroup(part, true);

                parentPrim.TriggerScriptChangedEvent(Changed.LINK);

                part.ParentEntity.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);

            }

            parentPrim.ScheduleGroupUpdate(PrimUpdateFlags.ForcedFullUpdate);

        }



        public LSL_String llGetLinkKey(int linknum)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            IEntity target = m_host.ParentEntity.GetLinkNumPart(linknum);

            if (target != null)

            {

                return target.UUID.ToString();

            }

            return UUID.Zero.ToString();

        }



        /// <summary>

        ///     The rules governing the returned name are not simple. The only

        ///     time a blank name is returned is if the target prim has a blank

        ///     name. If no prim with the given link number can be found then

        ///     usually NULL_KEY is returned but there are exceptions.

        ///     In a single unlinked prim, A call with 0 returns the name, all

        ///     other values for link number return NULL_KEY

        ///     In link sets it is more complicated.

        ///     If the script is in the root prim:-

        ///     A zero link number returns NULL_KEY.

        ///     Positive link numbers return the name of the prim, or NULL_KEY

        ///     if a prim does not exist at that position.

        ///     Negative link numbers return the name of the first child prim.

        ///     If the script is in a child prim:-

        ///     Link numbers 0 or 1 return the name of the root prim.

        ///     Positive link numbers return the name of the prim or NULL_KEY

        ///     if a prim does not exist at that position.

        ///     Negative numbers return the name of the root prim.

        ///     References

        ///     http://lslwiki.net/lslwiki/wakka.php?wakka=llGetLinkName

        ///     Mentions NULL_KEY being returned

        ///     http://wiki.secondlife.com/wiki/LlGetLinkName

        ///     Mentions using the LINK_* constants, some of which are negative

        /// </summary>

        public LSL_String llGetLinkName(int linknum)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            // simplest case, this prims link number

            if (linknum == m_host.LinkNum)

                return m_host.Name;



            // Single prim

            if (m_host.LinkNum == 0)

            {

                if (linknum == 1)

                    return m_host.Name;

                IEntity entity = m_host.ParentEntity.GetLinkNumPart(linknum);

                if (entity != null)

                    return entity.Name;

                return UUID.Zero.ToString();

            }

            // Link set

            IEntity part = null;

            part = m_host.LinkNum == 1

                       ? m_host.ParentEntity.GetLinkNumPart(linknum < 0 ? 2 : linknum)

                       : m_host.ParentEntity.GetLinkNumPart(linknum < 2 ? 1 : linknum);

            if (part != null)

                return part.Name;

            return UUID.Zero.ToString();

        }



        public LSL_Integer llGetInventoryNumber(int type)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            int count = 0;



            lock (m_host.TaskInventory)

            {

#if (!ISWIN)

                foreach (TaskInventoryItem item in m_host.TaskInventory.Values)

                    if (item.Type == type || type == -1)

                        count++;

#else

                count += m_host.TaskInventory.Values.Count(item => item.Type == type || type == -1);

#endif

            }



            return count;

        }



        public LSL_String llGetInventoryName(int type, int number)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            ArrayList keys = new ArrayList();



            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> 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()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return 1.0f;

        }



        public DateTime llGiveInventory(string destination, string inventory)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            bool found = false;

            UUID destId = UUID.Zero;

            UUID objId = UUID.Zero;

            int assetType = 0;

            string objName = String.Empty;



            if (!UUID.TryParse(destination, out destId))

            {

                llSay(0, "Could not parse key " + destination);

                return DateTime.Now;

            }



            // move the first object found with this inventory name

            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                {

                    if (inv.Value.Name == inventory)

                    {

                        found = true;

                        objId = inv.Key;

                        assetType = inv.Value.Type;

                        objName = inv.Value.Name;

                        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 ||

                m_host.ParentEntity.Scene.RequestModuleInterface<IAgentInfoService>().GetUserInfo(destId.ToString()) !=

                null)

            {

                // destination is an avatar

                InventoryItemBase agentItem = null;

                ILLClientInventory inventoryModule = World.RequestModuleInterface<ILLClientInventory>();

                if (inventoryModule != null)

                    agentItem = inventoryModule.MoveTaskInventoryItemToUserInventory(destId, UUID.Zero, m_host, objId,

                                                                                     false);



                if (agentItem == null)

                    return DateTime.Now;



                byte[] bucket = new byte[17];

                bucket[0] = (byte) assetType;

                byte[] objBytes = agentItem.ID.GetBytes();

                Array.Copy(objBytes, 0, bucket, 1, 16);



                GridInstantMessage msg = new GridInstantMessage(World,

                                                                m_host.UUID, m_host.Name + ", an object owned by " +

                                                                             resolveName(m_host.OwnerID) + ",", destId,

                                                                (byte) InstantMessageDialog.InventoryOffered,

                                                                false,

                                                                objName + "'\n'" + m_host.Name + "' is located at " +

                                                                m_host.AbsolutePosition.ToString() + " in '" +

                                                                World.RegionInfo.RegionName,

                                                                agentItem.ID, true, m_host.AbsolutePosition,

                                                                bucket);



                if (m_TransferModule != null)

                    m_TransferModule.SendInstantMessage(msg);

            }

            else

            {

                // destination is an object

                ILLClientInventory inventoryModule = World.RequestModuleInterface<ILLClientInventory>();

                if (inventoryModule != null)

                    inventoryModule.MoveTaskInventoryItemToObject(destId, m_host, objId);

            }

            return PScriptSleep(3000);

        }



        public void llRemoveInventory(string name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            lock (m_host.TaskInventory)

            {

                foreach (TaskInventoryItem item in m_host.TaskInventory.Values)

                {

                    if (item.Name == name)

                    {

                        if (item.ItemID == m_itemID)

                            throw new ScriptDeleteException();

                        m_host.Inventory.RemoveInventoryItem(item.ItemID);

                        return;

                    }

                }

            }

        }



        public void llSetText(string text, LSL_Vector color, LSL_Float alpha)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            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.Length > 254 ? text.Remove(254) : text, av3, Util.Clip((float) alpha, 0.0f, 1.0f));

            //m_host.ParentGroup.HasGroupChanged = true;

            //m_host.ParentGroup.ScheduleGroupForFullUpdate();

        }



        public LSL_Float llWater(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return World.RegionInfo.RegionSettings.WaterHeight;

        }



        public void llPassTouches(int pass)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.PassTouch = pass;

        }



        public LSL_Key llRequestAgentData(string id, int data)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            UUID uuid = (UUID) id;

            UserInfo pinfo = null;

            UserAccount account;



            UserInfoCacheEntry ce;

            if (!m_userInfoCache.TryGetValue(uuid, out ce))

            {

                account = World.UserAccountService.GetUserAccount(World.RegionInfo.AllScopeIDs, uuid);

                if (account == null)

                {

                    m_userInfoCache[uuid] = null; // Cache negative

                    return UUID.Zero.ToString();

                }



                ce = new UserInfoCacheEntry {time = Util.EnvironmentTickCount(), account = account};

                pinfo = World.RequestModuleInterface<IAgentInfoService>().GetUserInfo(uuid.ToString());

                ce.pinfo = pinfo;

                m_userInfoCache[uuid] = ce;

            }

            else

            {

                if (ce == null)

                {

                    return UUID.Zero.ToString();

                }

                account = ce.account;

                pinfo = ce.pinfo;

            }



            if (Util.EnvironmentTickCount() < ce.time || (Util.EnvironmentTickCount() - ce.time) >= 20000)

            {

                ce.time = Util.EnvironmentTickCount();

                ce.pinfo = World.RequestModuleInterface<IAgentInfoService>().GetUserInfo(uuid.ToString());

                pinfo = ce.pinfo;

            }



            string reply = String.Empty;



            switch (data)

            {

                case 1: // DATA_ONLINE (0|1)

                    if (pinfo != null && pinfo.IsOnline)

                        reply = "1";

                    else

                        reply = "0";

                    break;

                case 2: // DATA_NAME (First Last)

                    reply = account.Name;

                    break;

                case 3: // DATA_BORN (YYYY-MM-DD)

                    DateTime born = new DateTime(1970, 1, 1, 0, 0, 0, 0);

                    born = born.AddSeconds(account.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)

                    if ((account.UserFlags & ScriptBaseClass.PAYMENT_INFO_ON_FILE) ==

                        ScriptBaseClass.PAYMENT_INFO_ON_FILE)

                        reply = ScriptBaseClass.PAYMENT_INFO_ON_FILE.ToString();

                    if ((account.UserFlags & ScriptBaseClass.PAYMENT_INFO_USED) == ScriptBaseClass.PAYMENT_INFO_USED)

                        reply = ScriptBaseClass.PAYMENT_INFO_USED.ToString();

                    reply = "0";

                    break;

                default:

                    return UUID.Zero.ToString(); // Raise no event

            }



            UUID rq = UUID.Random();



            DataserverPlugin dataserverPlugin = (DataserverPlugin) m_ScriptEngine.GetScriptPlugin("Dataserver");

            UUID tid = dataserverPlugin.RegisterRequest(m_host.UUID,

                                                        m_itemID, rq.ToString());



            dataserverPlugin.AddReply(rq.ToString(), reply, 100);



            ScriptSleep(200);

            return tid.ToString();

        }



        public LSL_Key llRequestInventoryData(string name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            TaskInventoryDictionary itemDictionary = (TaskInventoryDictionary) m_host.TaskInventory.Clone();



            foreach (TaskInventoryItem item in itemDictionary.Values)

            {

                if (item.Type == 3 && item.Name == name)

                {

                    UUID rq = UUID.Random();

                    DataserverPlugin dataserverPlugin = (DataserverPlugin) m_ScriptEngine.GetScriptPlugin("Dataserver");



                    UUID tid = dataserverPlugin.RegisterRequest(m_host.UUID,

                                                                m_itemID, rq.ToString());



                    Vector3 region = new Vector3(

                        World.RegionInfo.RegionLocX,

                        World.RegionInfo.RegionLocY,

                        0);



                    World.AssetService.Get(item.AssetID.ToString(), this,

                                           delegate(string i, object sender, 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();

                                                   dataserverPlugin.AddReply(rq.ToString(),

                                                                             reply, 1000);

                                               });



                    ScriptSleep(1000);

                    return tid.ToString();

                }

            }

            ScriptSleep(1000);

            return String.Empty;

        }



        public void llSetDamage(double damage)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.ParentEntity.Damage = (float) damage;



            ICombatModule combatModule = World.RequestModuleInterface<ICombatModule>();

            if (combatModule != null)

                combatModule.AddDamageToPrim(m_host.ParentEntity);

        }



        public DateTime llTeleportAgentHome(LSL_Key _agent)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            string agent = _agent.ToString();



            UUID agentId = new UUID();

            if (UUID.TryParse(agent, out agentId))

            {

                IScenePresence presence = World.GetScenePresence(agentId);

                if (presence != null)

                {

                    // agent must be over the owners land

                    IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

                    if (parcelManagement != null)

                    {

                        if (m_host.OwnerID != parcelManagement.GetLandObject(

                            presence.AbsolutePosition.X, presence.AbsolutePosition.Y).LandData.OwnerID &&

                            !World.Permissions.CanIssueEstateCommand(m_host.OwnerID, false))

                        {

                            return PScriptSleep(5000);

                        }

                    }



                    //Send disable cancel so that the agent cannot attempt to stay in the region

                    presence.ControllingClient.SendTeleportStart((uint) TeleportFlags.DisableCancel);

                    IEntityTransferModule transferModule = World.RequestModuleInterface<IEntityTransferModule>();

                    if (transferModule != null)

                        transferModule.TeleportHome(agentId, presence.ControllingClient);

                    else

                        presence.ControllingClient.SendTeleportFailed("Unable to perform teleports on this simulator.");

                }

            }

            return PScriptSleep(5000);

        }



        public DateTime llTextBox(string agent, string message, int chatChannel)

        {

            IDialogModule dm = World.RequestModuleInterface<IDialogModule>();



            if (dm == null)

                return DateTime.Now;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            UUID av = new UUID();

            if (!UUID.TryParse(agent, out av))

            {

                LSLError("First parameter to llDialog needs to be a key");

                return DateTime.Now;

            }



            if (message != null && message.Length > 1024)

                message = message.Substring(0, 1024);



            dm.SendTextBoxToUser(av, message, chatChannel, m_host.Name, m_host.UUID, m_host.OwnerID);

            return PScriptSleep(1000);

        }



        public void llModifyLand(int action, int brush)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            ITerrainModule tm = World.RequestModuleInterface<ITerrainModule>();

            if (tm != null)

            {

                tm.ModifyTerrain(m_host.OwnerID, m_host.AbsolutePosition, (byte) brush, (byte) action, m_host.OwnerID);

            }

        }



        public void llCollisionSound(string impact_sound, double impact_volume)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            UUID soundId = UUID.Zero;

            if (!UUID.TryParse(impact_sound, out soundId))

            {

                lock (m_host.TaskInventory)

                {

                    foreach (TaskInventoryItem item in m_host.TaskInventory.Values)

                    {

                        if (item.Type == (int) AssetType.Sound && item.Name == impact_sound)

                        {

                            soundId = item.AssetID;

                            break;

                        }

                    }

                }

            }

            //We do allow UUID.Zero here for scripts that want to disable the collision sound (such as "")

            m_host.CollisionSound = soundId;

            m_host.CollisionSoundVolume = (float) impact_volume;

        }



        public void llCollisionSprite(string impact_sprite)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            // Since this is broken in SL, we can do this however we want, until they fix it.

            m_host.CollisionSprite = UUID.Parse(impact_sprite);

        }



        public LSL_String llGetAnimation(string id)

        {

            // This should only return a value if the avatar is in the same region

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            UUID avatar = (UUID) id;

            IScenePresence presence = World.GetScenePresence(avatar);

            if (presence == null)

                return "";



            if (m_host.ParentEntity.Scene.RegionInfo.RegionHandle == presence.Scene.RegionInfo.RegionHandle)

            {

                Dictionary<UUID, string> animationstateNames = AnimationSet.Animations.AnimStateNames;

                AnimationSet currentAnims = presence.Animator.Animations;

                string currentAnimationState = String.Empty;

                if (animationstateNames.TryGetValue(currentAnims.ImplicitDefaultAnimation.AnimID,

                                                    out currentAnimationState))

                    return currentAnimationState;

            }



            return String.Empty;

        }



        public void llMessageLinked(int linknumber, int num, string msg, string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            foreach (ISceneChildEntity part in parts)

            {

                int linkNumber = m_host.LinkNum;

                if (m_host.ParentEntity.ChildrenEntities().Count == 1)

                    linkNumber = 0;



                object[] resobj = new object[]

                                      {

                                          new LSL_Integer(linkNumber), new LSL_Integer(num), new LSL_String(msg),

                                          new LSL_String(id)

                                      };

                m_ScriptEngine.PostObjectEvent(part.UUID, "link_message", resobj);

            }

        }



        public void llPushObject(string target, LSL_Vector impulse, LSL_Vector ang_impulse, int local)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            bool pushAllowed = false;



            bool pusheeIsAvatar = false;

            UUID targetID = UUID.Zero;



            if (!UUID.TryParse(target, out targetID))

                return;



            IScenePresence pusheeav = null;

            Vector3 PusheePos = Vector3.Zero;

            ISceneChildEntity pusheeob = null;



            IScenePresence avatar = World.GetScenePresence(targetID);

            if (avatar != null)

            {

                pusheeIsAvatar = true;



                // Pushee is in GodMode this pushing object isn't owned by them

                if (avatar.GodLevel > 0 && m_host.OwnerID != targetID)

                    return;



                pusheeav = avatar;



                // Find pushee position

                // Pushee Linked?

                if (pusheeav.ParentID != UUID.Zero)

                {

                    ISceneChildEntity parentobj = World.GetSceneObjectPart(pusheeav.ParentID);

                    PusheePos = parentobj != null ? parentobj.AbsolutePosition : pusheeav.AbsolutePosition;

                }

                else

                {

                    PusheePos = pusheeav.AbsolutePosition;

                }

            }



            if (!pusheeIsAvatar)

            {

                // not an avatar so push is not affected by parcel flags

                pusheeob = World.GetSceneObjectPart(UUID.Parse(target));



                // We can't find object

                if (pusheeob == null)

                    return;



                // Object not pushable.  Not an attachment and has no physics component

                if (!pusheeob.IsAttachment && pusheeob.PhysActor == null)

                    return;



                PusheePos = pusheeob.AbsolutePosition;

                pushAllowed = true;

            }

            else

            {

                IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

                if (World.RegionInfo.RegionSettings.RestrictPushing)

                {

                    pushAllowed = m_host.OwnerID == targetID ||

                                  m_host.ParentEntity.Scene.Permissions.IsGod(m_host.OwnerID);

                }

                else

                {

                    if (parcelManagement != null)

                    {

                        ILandObject targetlandObj = parcelManagement.GetLandObject(PusheePos.X, PusheePos.Y);

                        if (targetlandObj == null)

                            // We didn't find the parcel but region isn't push restricted so assume it's ok

                            pushAllowed = true;

                        else

                        {

                            // Parcel push restriction

                            pushAllowed = (targetlandObj.LandData.Flags & (uint) ParcelFlags.RestrictPushObject) !=

                                          (uint) ParcelFlags.RestrictPushObject ||

                                          m_host.ParentEntity.Scene.Permissions.CanPushObject(m_host.OwnerID,

                                                                                              targetlandObj);

                        }

                    }

                }

            }



            if (pushAllowed)

            {

                float distance = (PusheePos - m_host.AbsolutePosition).Length();

                float distance_term = distance*distance*distance; // Script Energy

                float pusher_mass = m_host.GetMass();



                const float PUSH_ATTENUATION_DISTANCE = 17f;

                const float PUSH_ATTENUATION_SCALE = 5f;

                float distance_attenuation = 1f;

                if (distance > PUSH_ATTENUATION_DISTANCE)

                {

                    float normalized_units = 1f + (distance - PUSH_ATTENUATION_DISTANCE)/PUSH_ATTENUATION_SCALE;

                    distance_attenuation = 1f/normalized_units;

                }



                Vector3 applied_linear_impulse = new Vector3((float) impulse.x, (float) impulse.y, (float) impulse.z);

                {

                    float impulse_length = applied_linear_impulse.Length();



                    float desired_energy = impulse_length*pusher_mass;

                    if (desired_energy > 0f)

                        desired_energy += distance_term;



                    float scaling_factor = 1f;

                    scaling_factor *= distance_attenuation;

                    applied_linear_impulse *= scaling_factor;

                }

                if (pusheeIsAvatar)

                {

                    if (pusheeav != null)

                    {

                        PhysicsActor pa = pusheeav.PhysicsActor;



                        if (pa != null)

                        {

                            if (local != 0)

                            {

                                applied_linear_impulse *= m_host.GetWorldRotation();

                            }

                            //Put a limit on it...

                            int MaxPush = (int) pusheeav.PhysicsActor.Mass*25;



                            if (applied_linear_impulse.X > 0 &&

                                Math.Abs(applied_linear_impulse.X) > MaxPush)

                                applied_linear_impulse.X = MaxPush;

                            if (applied_linear_impulse.X < 0 &&

                                Math.Abs(applied_linear_impulse.X) > MaxPush)

                                applied_linear_impulse.X = -MaxPush;



                            if (applied_linear_impulse.Y > 0 &&

                                Math.Abs(applied_linear_impulse.X) > MaxPush)

                                applied_linear_impulse.Y = MaxPush;

                            if (applied_linear_impulse.Y < 0 &&

                                Math.Abs(applied_linear_impulse.X) > MaxPush)

                                applied_linear_impulse.Y = -MaxPush;



                            if (applied_linear_impulse.Z > 0 &&

                                Math.Abs(applied_linear_impulse.X) > MaxPush)

                                applied_linear_impulse.Z = MaxPush;

                            if (applied_linear_impulse.Z < 0 &&

                                Math.Abs(applied_linear_impulse.Z) > MaxPush)

                                applied_linear_impulse.Z = -MaxPush;



                            pa.AddForce(applied_linear_impulse, true);

                        }

                    }

                }

                else

                {

                    if (pusheeob.PhysActor != null)

                    {

                        pusheeob.ApplyImpulse(applied_linear_impulse, local != 0);

                    }

                }

            }

        }



        public void llPassCollisions(int pass)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.PassCollisions = pass;

        }



        public LSL_String llGetScriptName()

        {

            string result = String.Empty;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            lock (m_host.TaskInventory)

            {

                foreach (TaskInventoryItem item in m_host.TaskInventory.Values)

                {

                    if (item.Type == 10 && item.ItemID == m_itemID)

                    {

                        result = item.Name ?? String.Empty;

                        break;

                    }

                }

            }



            return result;

        }



        public LSL_Integer llGetNumberOfSides()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            return GetNumberOfSides(m_host);

        }



        protected int GetNumberOfSides(ISceneChildEntity part)

        {

            int sides = part.GetNumberOfSides();



            if (part.GetPrimType() == PrimType.SPHERE && part.Shape.ProfileHollow > 0)

            {

                // Make up for a bug where LSL shows 4 sides rather than 2

                sides += 2;

            }



            return sides;

        }





        /* 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, LSL_Float angle)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();





            double s = Math.Cos(angle*0.5);

            double t = Math.Sin(angle*0.5);

            double x = axis.x*t;

            double y = axis.y*t;

            double 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            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);

                if (length == 0)

                    return new LSL_Vector(0, 0, 0);

                length = 1/length;

                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

            {

                s = 1/s;

                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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();





            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);



                if (length == 0)

                    return 0;

                //                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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Acos(val);

        }



        public LSL_Float llAsin(double val)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Asin(val);

        }



        public LSL_Float llAngleBetween(LSL_Rotation a, LSL_Rotation b)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();





            double aa = (a.x*a.x + a.y*a.y + a.z*a.z + a.s*a.s);

            double bb = (b.x*b.x + b.y*b.y + b.z*b.z + b.s*b.s);

            double aa_bb = aa*bb;

            if (aa_bb == 0) return 0.0;

            double ab = (a.x*b.x + a.y*b.y + a.z*b.z + a.s*b.s);

            double quotient = (ab*ab)/aa_bb;

            if (quotient >= 1.0) return 0.0;

            return Math.Acos(2*quotient - 1);

        }



        public LSL_String llGetInventoryKey(string name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();





            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                {

                    if (inv.Value.Name == name)

                    {

                        return (inv.Value.CurrentPermissions &

                                (uint) (PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify)) ==

                               (uint) (PermissionMask.Copy | PermissionMask.Transfer | PermissionMask.Modify)

                                   ? inv.Value.AssetID.ToString()

                                   : UUID.Zero.ToString();

                    }

                }

            }



            return UUID.Zero.ToString();

        }



        public void llAllowInventoryDrop(int add)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            m_host.ParentEntity.RootChild.AllowedDrop = add != 0;



            // Update the object flags

            m_host.ParentEntity.RootChild.aggregateScriptEvents();

        }



        public LSL_Vector llGetSunDirection()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();





            LSL_Vector SunDoubleVector3;



            // have to convert from Vector3 (float) to LSL_Vector (double)

            Vector3 SunFloatVector3 = World.RegionInfo.RegionSettings.SunVector;

            SunDoubleVector3.x = SunFloatVector3.X;

            SunDoubleVector3.y = SunFloatVector3.Y;

            SunDoubleVector3.z = SunFloatVector3.Z;



            return SunDoubleVector3;

        }



        public LSL_Vector llGetTextureOffset(int face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            return GetTextureOffset(m_host, face);

        }



        protected LSL_Vector GetTextureOffset(ISceneChildEntity 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;

            }

            return offset;

        }



        public LSL_Vector llGetTextureScale(int side)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return GetTextureRot(m_host, face);

        }



        protected LSL_Float GetTextureRot(ISceneChildEntity 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;

            }

            return 0.0;

        }



        public LSL_Integer llSubStringIndex(string source, string pattern)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            return source.IndexOf(pattern);

        }



        public LSL_String llGetOwnerKey(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            UUID key = new UUID();

            if (UUID.TryParse(id, out key))

            {

                try

                {

                    ISceneChildEntity obj = World.GetSceneObjectPart(key);

                    if (obj == null)

                        return id; // the key is for an agent so just return the key

                    return obj.OwnerID.ToString();

                }

                catch (KeyNotFoundException)

                {

                    return id; // The Object/Agent not in the region so just return the key

                }

            }

            return UUID.Zero.ToString();

        }



        public LSL_Vector llGetCenterOfMass()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            Vector3 center = m_host.GetGeometricCenter();

            return new LSL_Vector(center.X, center.Y, center.Z);

        }



        public LSL_List llListSort(LSL_List src, int stride, int ascending)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();





            if (stride <= 0)

            {

                stride = 1;

            }

            return src.Sort(stride, ascending);

        }



        public LSL_Integer llGetListLength(LSL_List src)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            if (src == new LSL_List(new object[0]))

            {

                return 0;

            }

            return src.Length;

        }



        public LSL_Integer llList2Integer(LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            if (index < 0)

            {

                index = src.Length + index;

            }

            if (index >= src.Length || index < 0)

            {

                return 0;

            }

            try

            {

                if (src.Data[index] is LSL_Integer)

                    return (LSL_Integer) src.Data[index];

                if (src.Data[index] is LSL_Float)

                    return Convert.ToInt32(((LSL_Float) src.Data[index]).value);

                return new LSL_Integer(src.Data[index].ToString());

            }

            catch (FormatException)

            {

                return 0;

            }

            catch (InvalidCastException)

            {

                return 0;

            }

        }



        public LSL_Float llList2Float(LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            if (index < 0)

            {

                index = src.Length + index;

            }

            if (index >= src.Length || index < 0)

            {

                return 0.0;

            }

            try

            {

                if (src.Data[index] is LSL_Integer)

                    return Convert.ToDouble(((LSL_Integer) src.Data[index]).value);

                if (src.Data[index] is LSL_Float)

                    return Convert.ToDouble(((LSL_Float) src.Data[index]).value);

                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;

            }

            catch (InvalidCastException)

            {

                return 0.0;

            }

        }



        public LSL_String llList2String(LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            if (index < 0)

            {

                index = src.Length + index;

            }

            if (index >= src.Length || index < 0)

            {

                return String.Empty;

            }

            return new LSL_String(src.Data[index].ToString());

        }



        public LSL_String llList2Key(LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            if (index < 0)

            {

                index = src.Length + index;

            }

            if (index >= src.Length || index < 0)

            {

                return "";

            }

            return src.Data[index].ToString();

        }



        public LSL_Vector llList2Vector(LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            if (index < 0)

            {

                index = src.Length + index;

            }

            if (index >= src.Length || index < 0)

            {

                return new LSL_Vector(0, 0, 0);

            }

            if (src.Data[index] is LSL_Vector)

            {

                return (LSL_Vector) src.Data[index];

            }

            return new LSL_Vector(src.Data[index].ToString());

        }



        public LSL_Rotation llList2Rot(LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();



            if (index < 0)

            {

                index = src.Length + index;

            }

            if (index >= src.Length || index < 0)

            {

                return new LSL_Rotation(0, 0, 0, 1);

            }

            if (src.Data[index] is LSL_Rotation)

            {

                return (LSL_Rotation) src.Data[index];

            }

            return new LSL_Rotation(src.Data[index].ToString());

        }



        public LSL_List llList2List(LSL_List src, int start, int end)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();



            return src.GetSublist(start, end);

        }



        public LSL_List llDeleteSubList(LSL_List src, int start, int end)

        {

            return src.DeleteSublist(start, end);

        }



        public LSL_Integer llGetListEntryType(LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            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 ScriptBaseClass.TYPE_INTEGER;

            if (src.Data[index] is LSL_Float || src.Data[index] is Single || src.Data[index] is Double)

                return ScriptBaseClass.TYPE_FLOAT;

            if (src.Data[index] is LSL_String || src.Data[index] is String)

            {

                UUID tuuid;

                if (UUID.TryParse(src.Data[index].ToString(), out tuuid))

                {

                    return ScriptBaseClass.TYPE_KEY;

                }

                return ScriptBaseClass.TYPE_STRING;

            }

            if (src.Data[index] is LSL_Vector)

                return ScriptBaseClass.TYPE_VECTOR;

            if (src.Data[index] is LSL_Rotation)

                return ScriptBaseClass.TYPE_ROTATION;

            if (src.Data[index] is LSL_List)

                return 7; //Extension of LSL by us

            return ScriptBaseClass.TYPE_INVALID;

        }



        /// <summary>

        ///     Process the supplied list and return the

        ///     content of the list formatted as a comma

        ///     separated list. There is a space after

        ///     each comma.

        /// </summary>

        public LSL_String llList2CSV(LSL_List src)

        {

            string ret = String.Empty;

            int x = 0;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            if (src.Data.Length > 0)

            {

                ret = src.Data[x++].ToString();

                for (; x < src.Data.Length; x++)

                {

                    ret += ", " + src.Data[x].ToString();

                }

            }



            return ret;

        }



        /// <summary>

        ///     The supplied string is scanned for commas

        ///     and converted into a list. Commas are only

        ///     effective if they are encountered outside

        ///     of &apos;&lt;&apos; &apos;&gt;&apos; delimiters. Any whitespace

        ///     before or after an element is trimmed.

        /// </summary>

        public LSL_List llCSV2List(string src)

        {

            LSL_List result = new LSL_List();

            int parens = 0;

            int start = 0;

            int length = 0;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();





            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(new LSL_String(src.Substring(start, length).Trim()));

                            start += length + 1;

                            length = 0;

                        }

                        else

                        {

                            length++;

                        }

                        break;

                    default:

                        length++;

                        break;

                }

            }



            result.Add(new LSL_String(src.Substring(start, length).Trim()));



            return result;

        }



        /// <summary>

        ///     Randomizes the list, be arbitrarily reordering

        ///     sublists of stride elements. As the stride approaches

        ///     the size of the list, the options become very

        ///     limited.

        /// </summary>

        /// <remarks>

        ///     This could take a while for very large list

        ///     sizes.

        /// </remarks>

        public LSL_List llListRandomize(LSL_List src, int stride)

        {

            LSL_List result;

            Random rand = new Random();



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();





            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)

            {

                int chunkk = src.Length/stride;



                int[] 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);



                    // and swap position with first unrandomized chunk

                    int 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;

        }



        /// <summary>

        ///     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.

        /// </summary>

        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;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();





            //  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;



            if (stride == 0)

                stride = 1;



            //  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)

                {

                    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]);

                    }

                }

            }

            else

            {

                if (start%stride == 0)

                {

                    result.Add(src.Data[start]);

                }

            }



            return result;

        }



        public LSL_Integer llGetRegionAgentCount()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;

            IEntityCountModule entityCountModule = World.RequestModuleInterface<IEntityCountModule>();

            if (entityCountModule != null)

                return new LSL_Integer(entityCountModule.RootAgents);

            else

                return new LSL_Integer(0);

        }



        public LSL_Vector llGetRegionCorner()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            return new LSL_Vector(World.RegionInfo.RegionLocX, World.RegionInfo.RegionLocY, 0);

        }



        /// <summary>

        ///     Insert the list identified by &lt;src&gt; into the

        ///     list designated by &lt;dest&gt; such that the first

        ///     new element has the index specified by &lt;index&gt;

        /// </summary>

        public LSL_List llListInsertList(LSL_List dest, LSL_List src, int index)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();



            LSL_List pref = null;

            LSL_List suff = null;





            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;

                }

                return pref + src;

            }

            if (index < dest.Length)

            {

                suff = dest.GetSublist(index, -1);

                return src + suff;

            }

            return src;

        }



        /// <summary>

        ///     Returns the index of the first occurrence of test

        ///     in src.

        /// </summary>

        public LSL_Integer llListFindList(LSL_List src, LSL_List test)

        {

            int index = -1;

            int length = src.Length - test.Length + 1;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            // 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]) || test.Data[0].Equals(src.Data[i]))

                    {

                        int j;

                        for (j = 1; j < test.Length; j++)

                            if (!(src.Data[i + j].Equals(test.Data[j]) || test.Data[j].Equals(src.Data[i + j])))

                                break;



                        if (j == test.Length)

                        {

                            index = i;

                            break;

                        }

                    }

                }

            }



            return index;

        }



        public LSL_String llGetObjectName()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            return m_host.Name ?? String.Empty;

        }



        public void llSetObjectName(string name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.Name = name ?? String.Empty;

        }



        public LSL_String llGetDate()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            DateTime date = DateTime.Now.ToUniversalTime();

            string result = date.ToString("yyyy-MM-dd");

            return result;

        }



        public LSL_Integer llEdgeOfWorld(LSL_Vector pos, LSL_Vector dir)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            // edge will be used to pass the Region Coordinates offset

            // we want to check for a neighboring sim

            LSL_Vector edge = new LSL_Vector(0, 0, 0);



            if (dir.x == 0)

            {

                if (dir.y == 0)

                {

                    // Direction vector is 0,0 so return

                    // false since we're staying in the sim

                    return 0;

                }

                // Y is the only valid direction

                edge.y = dir.y/Math.Abs(dir.y);

            }

            else

            {

                LSL_Float mag;

                if (dir.x > 0)

                {

                    mag = (World.RegionInfo.RegionSizeX - pos.x)/dir.x;

                }

                else

                {

                    mag = (pos.x/dir.x);

                }



                mag = Math.Abs(mag);



                edge.y = pos.y + (dir.y*mag);



                if (edge.y > World.RegionInfo.RegionSizeY || edge.y < 0)

                {

                    // Y goes out of bounds first

                    edge.y = dir.y/Math.Abs(dir.y);

                }

                else

                {

                    // X goes out of bounds first or its a corner exit

                    edge.y = 0;

                    edge.x = dir.x/Math.Abs(dir.x);

                }

            }

            IGridRegisterModule service = World.RequestModuleInterface<IGridRegisterModule>();

            List<GridRegion> neighbors = new List<GridRegion>();

            if (service != null)

                neighbors = service.GetNeighbors(World);



            int neighborX = World.RegionInfo.RegionLocX + (int) dir.x;

            int neighborY = World.RegionInfo.RegionLocY + (int) dir.y;

#if (!ISWIN)

            foreach (GridRegion neighbor in neighbors)

                if (neighbor.RegionLocX == neighborX && neighbor.RegionLocY == neighborY)

                    return LSL_Integer.TRUE;

#else

            if (neighbors.Any(neighbor => neighbor.RegionLocX == neighborX && neighbor.RegionLocY == neighborY))

            {

                return LSL_Integer.TRUE;

            }

#endif

            return LSL_Integer.FALSE;

        }



        /// <summary>

        ///     Fully implemented

        /// </summary>

        public LSL_Integer llGetAgentInfo(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            UUID key = new UUID();

            if (!UUID.TryParse(id, out key))

            {

                return 0;

            }



            int flags = 0;



            IScenePresence agent = World.GetScenePresence(key);

            if (agent == null)

            {

                return 0;

            }



            if (agent.IsChildAgent)

                return 0; // Fail if they are not in the same region



            // note: in OpenSim, sitting seems to cancel AGENT_ALWAYS_RUN, unlike SL

            if (agent.SetAlwaysRun)

            {

                flags |= ScriptBaseClass.AGENT_ALWAYS_RUN;

            }

            IAttachmentsModule attachMod = World.RequestModuleInterface<IAttachmentsModule>();

            if (attachMod != null)

            {

                ISceneEntity[] att = attachMod.GetAttachmentsForAvatar(agent.UUID);

                if (att.Length > 0)

                {

                    flags |= ScriptBaseClass.AGENT_ATTACHMENTS;

#if (!ISWIN)

                    foreach (ISceneEntity gobj in att)

                    {

                        if (gobj != null)

                        {

                            if (gobj.RootChild.Inventory.ContainsScripts())

                            {

                                flags |= ScriptBaseClass.AGENT_SCRIPTED;

                                break;

                            }

                        }

                    }

#else

                    if (att.Where(gobj => gobj != null).Any(gobj => gobj.RootChild.Inventory.ContainsScripts()))

                    {

                        flags |= ScriptBaseClass.AGENT_SCRIPTED;

                    }

#endif

                }

            }



            if ((agent.AgentControlFlags & (uint) AgentManager.ControlFlags.AGENT_CONTROL_FLY) != 0)

            {

                flags |= ScriptBaseClass.AGENT_FLYING;

                flags |= ScriptBaseClass.AGENT_IN_AIR;

                    // flying always implies in-air, even if colliding with e.g. a wall

            }



            if ((agent.AgentControlFlags & (uint) AgentManager.ControlFlags.AGENT_CONTROL_AWAY) != 0)

            {

                flags |= ScriptBaseClass.AGENT_AWAY;

            }



            // seems to get unset, even if in mouselook, when avatar is sitting on a prim???

            if ((agent.AgentControlFlags & (uint) AgentManager.ControlFlags.AGENT_CONTROL_MOUSELOOK) != 0)

            {

                flags |= ScriptBaseClass.AGENT_MOUSELOOK;

            }



            if ((agent.State & (byte) AgentState.Typing) != 0)

            {

                flags |= ScriptBaseClass.AGENT_TYPING;

            }



            if (agent.IsBusy)

            {

                flags |= ScriptBaseClass.AGENT_BUSY;

            }



            string agentMovementAnimation = agent.Animator.CurrentMovementAnimation;



            if (agentMovementAnimation == "CROUCH")

            {

                flags |= ScriptBaseClass.AGENT_CROUCHING;

            }



            if (agentMovementAnimation == "WALK" || agentMovementAnimation == "CROUCHWALK")

            {

                flags |= ScriptBaseClass.AGENT_WALKING;

            }



            // not colliding implies in air. Note: flying also implies in-air, even if colliding (see above)



            // note: AGENT_IN_AIR and AGENT_WALKING seem to be mutually exclusive states in SL.



            // note: this may need some tweaking when walking downhill. you "fall down" for a brief instant

            // and don't collide when walking downhill, which instantly registers as in-air, briefly. should

            // there be some minimum non-collision threshold time before claiming the avatar is in-air?

            if ((flags & ScriptBaseClass.AGENT_WALKING) == 0 &&

                agent.PhysicsActor != null &&

                !agent.PhysicsActor.IsColliding)

            {

                flags |= ScriptBaseClass.AGENT_IN_AIR;

            }



            if (agent.ParentID != UUID.Zero)

            {

                flags |= ScriptBaseClass.AGENT_ON_OBJECT;

                flags |= ScriptBaseClass.AGENT_SITTING;

            }



            if (agent.Animator.Animations.ImplicitDefaultAnimation.AnimID

                == AnimationSet.Animations.AnimsUUID["SIT_GROUND_CONSTRAINED"])

            {

                flags |= ScriptBaseClass.AGENT_SITTING;

            }



            return flags;

        }



        public LSL_String llGetAgentLanguage(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            IAgentConnector AgentFrontend = Framework.Utilities.DataManager.RequestPlugin<IAgentConnector>();

            if (AgentFrontend == null)

                return "en-us";

            IAgentInfo Agent = AgentFrontend.GetAgent(new UUID(id));

            if (Agent == null)

                return "en-us";

            if (Agent.LanguageIsPublic)

            {

                return Agent.Language;

            }

            return "en-us";

        }



        /// <summary>

        ///     http://wiki.secondlife.com/wiki/LlGetAgentList

        ///     The list of options is currently not used in SL

        ///     scope is one of:-

        ///     AGENT_LIST_REGION - all in the region

        ///     AGENT_LIST_PARCEL - all in the same parcel as the scripted object

        ///     AGENT_LIST_PARCEL_OWNER - all in any parcel owned by the owner of the

        ///     current parcel.

        /// </summary>

        public LSL_List llGetAgentList(LSL_Integer scope, LSL_List options)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();



            // the constants are 1, 2 and 4 so bits are being set, but you

            // get an error "INVALID_SCOPE" if it is anything but 1, 2 and 4

            bool regionWide = scope == ScriptBaseClass.AGENT_LIST_REGION;

            bool parcelOwned = scope == ScriptBaseClass.AGENT_LIST_PARCEL_OWNER;

            bool parcel = scope == ScriptBaseClass.AGENT_LIST_PARCEL;

            LSL_List result = new LSL_List();



            if (!regionWide && !parcelOwned && !parcel)

            {

                result.Add("INVALID_SCOPE");

                return result;

            }



            Vector3 pos;

            UUID id = UUID.Zero;



            if (parcel || parcelOwned)

            {

                pos = m_host.GetWorldPosition();

                IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

                ILandObject land = parcelManagement.GetLandObject(pos.X, pos.Y);

                if (land == null)

                {

                    id = UUID.Zero;

                }

                else

                {

                    if (parcelOwned)

                    {

                        id = land.LandData.OwnerID;

                    }

                    else

                    {

                        id = land.LandData.GlobalID;

                    }

                }

            }



            World.ForEachScenePresence(delegate(IScenePresence ssp)

                                           {

                                               // Gods are not listed in SL



                                               if (!ssp.IsDeleted && ssp.GodLevel == 0.0 && !ssp.IsChildAgent)

                                               {

                                                   if (!regionWide)

                                                   {

                                                       pos = ssp.AbsolutePosition;

                                                       IParcelManagementModule parcelManagement =

                                                           World.RequestModuleInterface<IParcelManagementModule>();

                                                       ILandObject land = parcelManagement.GetLandObject(pos.X, pos.Y);

                                                       if (land != null)

                                                       {

                                                           if (parcelOwned && land.LandData.OwnerID == id ||

                                                               parcel && land.LandData.GlobalID == id)

                                                           {

                                                               result.Add(ssp.UUID.ToString());

                                                           }

                                                       }

                                                   }

                                                   else

                                                   {

                                                       result.Add(ssp.UUID.ToString());

                                                   }

                                               }



                                               // Maximum of 100 results

                                               if (result.Length > 99)

                                               {

                                                   return;

                                               }

                                           });

            return result;

        }



        public DateTime llAdjustSoundVolume(double volume)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            m_host.AdjustSoundGain(volume);

            return PScriptSleep(100);

        }



        public void llSetSoundQueueing(int queue)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.SetSoundQueueing(queue);

        }



        public void llSetSoundRadius(double radius)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.SoundRadius = radius;

        }



        public LSL_String llGetDisplayName(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            UUID key = new UUID();

            if (UUID.TryParse(id, out key))

            {

                IScenePresence presence = World.GetScenePresence(key);



                if (presence != null)

                {

                    IProfileConnector connector = Framework.Utilities.DataManager.RequestPlugin<IProfileConnector>();

                    if (connector != null)

                        return connector.GetUserProfile(presence.UUID).DisplayName;

                }

            }

            return String.Empty;

        }



        public LSL_String llGetUsername(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            UUID key = new UUID();

            if (UUID.TryParse(id, out key))

            {

                IScenePresence presence = World.GetScenePresence(key);



                if (presence != null)

                    return presence.Name;

            }

            return String.Empty;

        }



        public LSL_String llKey2Name(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            UUID key = new UUID();

            if (UUID.TryParse(id, out key))

            {

                IScenePresence presence = World.GetScenePresence(key);



                if (presence != null)

                    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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            SetTextureAnim(m_host, mode, face, sizex, sizey, start, length, rate);

        }



        public void llSetLinkTextureAnim(int linknumber, int mode, int face, int sizex, int sizey, double start,

                                         double length, double rate)

        {

            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            foreach (var part in parts)

            {

                SetTextureAnim(part, mode, face, sizex, sizey, start, length, rate);

            }

        }



        private void SetTextureAnim(ISceneChildEntity part, int mode, int face, int sizex, int sizey, double start,

                                    double length, double rate)

        {

            Primitive.TextureAnimation pTexAnim = new Primitive.TextureAnimation

                                                      {

                                                          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;



            part.AddTextureAnimation(pTexAnim);

            part.ScheduleUpdate(PrimUpdateFlags.FindBest);

        }



        public void llTriggerSoundLimited(string sound, double volume, LSL_Vector top_north_east,

                                          LSL_Vector bottom_south_west)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            double radius1 = (float) llVecDist(llGetPos(), top_north_east);

            double radius2 = (float) llVecDist(llGetPos(), bottom_south_west);

            double radius = Math.Abs(radius1 - radius2);

            m_host.SendSound(KeyOrName(sound, true).ToString(), volume, true, 0, (float) radius, false, false);

        }



        public DateTime llEjectFromLand(string pest)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            UUID agentId = new UUID();

            if (UUID.TryParse(pest, out agentId))

            {

                IScenePresence presence = World.GetScenePresence(agentId);

                if (presence != null)

                {

                    // agent must be over the owners land

                    IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

                    if (parcelManagement != null)

                    {

                        if (m_host.OwnerID != parcelManagement.GetLandObject(

                            presence.AbsolutePosition.X, presence.AbsolutePosition.Y).LandData.OwnerID &&

                            !World.Permissions.CanIssueEstateCommand(m_host.OwnerID, false))

                        {

                            return PScriptSleep(5000);

                        }

                    }

                    IEntityTransferModule transferModule = World.RequestModuleInterface<IEntityTransferModule>();

                    if (transferModule != null)

                        transferModule.TeleportHome(agentId, presence.ControllingClient);

                    else

                        presence.ControllingClient.SendTeleportFailed("Unable to perform teleports on this simulator.");

                }

            }

            return PScriptSleep(5000);

        }



        public LSL_Integer llOverMyLand(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            UUID key = new UUID();

            if (UUID.TryParse(id, out key))

            {

                IScenePresence presence = World.GetScenePresence(key);

                IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

                if (presence != null) // object is an avatar

                {

                    if (parcelManagement != null)

                    {

                        if (m_host.OwnerID

                            == parcelManagement.GetLandObject(

                                presence.AbsolutePosition.X, presence.AbsolutePosition.Y).LandData.OwnerID)

                            return 1;

                    }

                }

                else // object is not an avatar

                {

                    ISceneChildEntity obj = World.GetSceneObjectPart(key);

                    if (obj != null)

                        if (parcelManagement != null)

                        {

                            if (m_host.OwnerID

                                == parcelManagement.GetLandObject(

                                    obj.AbsolutePosition.X, obj.AbsolutePosition.Y).LandData.OwnerID)

                                return 1;

                        }

                }

            }



            return 0;

        }



        public LSL_String llGetLandOwnerAt(LSL_Vector pos)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

            if (parcelManagement != null)

            {

                ILandObject land = parcelManagement.GetLandObject((float) pos.x, (float) pos.y);

                if (land != null)

                    return land.LandData.OwnerID.ToString();

            }

            return UUID.Zero.ToString();

        }



        /// <summary>

        ///     According to http://lslwiki.net/lslwiki/wakka.php?wakka=llGetAgentSize

        ///     only the height of avatars vary and that says:

        ///     Width (x) and depth (y) are constant. (0.45m and 0.6m respectively).

        /// </summary>

        public LSL_Vector llGetAgentSize(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            IScenePresence avatar = World.GetScenePresence((UUID) id);

            LSL_Vector agentSize;

            if (avatar == null || avatar.IsChildAgent) // Fail if not in the same region

            {

                agentSize = ScriptBaseClass.ZERO_VECTOR;

            }

            else

            {

                IAvatarAppearanceModule appearance = avatar.RequestModuleInterface<IAvatarAppearanceModule>();

                agentSize = appearance != null

                                ? new LSL_Vector(0.45, 0.6, appearance.Appearance.AvatarHeight)

                                : ScriptBaseClass.ZERO_VECTOR;

            }

            return agentSize;

        }



        public LSL_Integer llSameGroup(string agent)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            UUID agentId = new UUID();

            if (!UUID.TryParse(agent, out agentId))

                return new LSL_Integer(0);

            IScenePresence presence = World.GetScenePresence(agentId);

            if (presence == null || presence.IsChildAgent) // Return flase for child agents

                return new LSL_Integer(0);

            IClientAPI client = presence.ControllingClient;

            if (m_host.GroupID == client.ActiveGroupId)

                return new LSL_Integer(1);

            return new LSL_Integer(0);

        }



        public void llUnSit(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            UUID key = new UUID();

            if (UUID.TryParse(id, out key))

            {

                IScenePresence av = World.GetScenePresence(key);



                if (av != null)

                {

                    if (m_host.ParentEntity.SitTargetAvatar.Contains(key))

                    {

                        // 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.



                        IParcelManagementModule parcelManagement =

                            World.RequestModuleInterface<IParcelManagementModule>();

                        if (parcelManagement != null)

                        {

                            ILandObject parcel = parcelManagement.GetLandObject(av.AbsolutePosition.X,

                                                                                av.AbsolutePosition.Y);

                            if (parcel != null)

                            {

                                if (m_host.OwnerID == parcel.LandData.OwnerID ||

                                    (m_host.OwnerID == m_host.GroupID && m_host.GroupID == parcel.LandData.GroupID

                                     && parcel.LandData.IsGroupOwned) || World.Permissions.IsGod(m_host.OwnerID))

                                {

                                    av.StandUp();

                                }

                            }

                        }

                    }

                }

            }

        }



        public LSL_Vector llGroundSlope(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            //Get the slope normal.  This gives us the equation of the plane tangent to the slope.

            LSL_Vector vsn = llGroundNormal(offset);



            //Plug the x,y coordinates of the slope normal into the equation of the plane to get

            //the height of that point on the plane.  The resulting vector gives the slope.

            Vector3 vsl = new Vector3

                              {

                                  X = (float) vsn.x,

                                  Y = (float) vsn.y,

                                  Z = (float) (((vsn.x*vsn.x) + (vsn.y*vsn.y))/(-1*vsn.z))

                              };

            vsl.Normalize();

            //Normalization might be overkill here



            return new LSL_Vector(vsl.X, vsl.Y, vsl.Z);

        }



        public LSL_Vector llGroundNormal(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            Vector3 pos = m_host.GetWorldPosition() + new Vector3((float) offset.x,

                                                                  (float) offset.y,

                                                                  (float) offset.z);

            ITerrainChannel heightmap = World.RequestModuleInterface<ITerrainChannel>();

            // Clamp to valid position

            if (pos.X < 0)

                pos.X = 0;

            else if (pos.X >= heightmap.Width)

                pos.X = heightmap.Width - 1;

            if (pos.Y < 0)

                pos.Y = 0;

            else if (pos.Y >= heightmap.Height)

                pos.Y = heightmap.Height - 1;



            //Find two points in addition to the position to define a plane

            Vector3 p0 = new Vector3(pos.X, pos.Y,

                                     heightmap[(int) pos.X, (int) pos.Y]);

            Vector3 p1 = new Vector3();

            Vector3 p2 = new Vector3();

            if ((pos.X + 1.0f) >= heightmap.Width)

                p1 = new Vector3(pos.X + 1.0f, pos.Y,

                                 heightmap[(int) pos.X, (int) pos.Y]);

            else

                p1 = new Vector3(pos.X + 1.0f, pos.Y,

                                 heightmap[(int) (pos.X + 1.0f), (int) pos.Y]);

            if ((pos.Y + 1.0f) >= heightmap.Height)

                p2 = new Vector3(pos.X, pos.Y + 1.0f,

                                 heightmap[(int) pos.X, (int) pos.Y]);

            else

                p2 = new Vector3(pos.X, pos.Y + 1.0f,

                                 heightmap[(int) pos.X, (int) (pos.Y + 1.0f)]);



            //Find normalized vectors from p0 to p1 and p0 to p2

            Vector3 v0 = new Vector3(p1.X - p0.X, p1.Y - p0.Y, p1.Z - p0.Z);

            Vector3 v1 = new Vector3(p2.X - p0.X, p2.Y - p0.Y, p2.Z - p0.Z);

            //            v0.Normalize();

            //            v1.Normalize();



            //Find the cross product of the vectors (the slope normal).

            Vector3 vsn = new Vector3

                              {

                                  X = (v0.Y*v1.Z) - (v0.Z*v1.Y),

                                  Y = (v0.Z*v1.X) - (v0.X*v1.Z),

                                  Z = (v0.X*v1.Y) - (v0.Y*v1.X)

                              };

            vsn.Normalize();

            //I believe the crossproduct of two normalized vectors is a normalized vector so

            //this normalization may be overkill

            // then don't normalize them just the result



            return new LSL_Vector(vsn.X, vsn.Y, vsn.Z);

        }



        public LSL_Vector llGroundContour(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            LSL_Vector x = llGroundSlope(offset);

            return new LSL_Vector(-x.y, x.x, 0.0);

        }



        public LSL_Integer llGetAttached()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            return (int) m_host.ParentEntity.RootChild.AttachmentPoint;

        }



        public LSL_Integer llGetFreeMemory()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            // Make scripts designed for LSO happy

            return 16384;

        }



        public LSL_Integer llSetMemoryLimit(LSL_Integer limit)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            // Make scripts designed for LSO happy

            return 16384;

        }



        public LSL_Integer llGetMemoryLimit()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            // Make scripts designed for LSO happy

            return 16384;

        }



        public LSL_Integer llGetSPMaxMemory()

        {

            //TODO: Not implemented!

            return 0;

        }



        public LSL_Integer llGetUsedMemory()

        {

            //TODO: Not implemented!

            return 0;

        }



        public void llScriptProfiler(LSL_Integer profilerFlags)

        {

            //TODO: We don't support this, not implemented

        }



        public LSL_Integer llGetFreeURLs()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();



            if (m_UrlModule != null)

                return new LSL_Integer(m_UrlModule.GetFreeUrls());

            return new LSL_Integer(0);

        }





        public LSL_String llGetRegionName()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();

            return World.RegionInfo.RegionName;

        }



        public LSL_Float llGetRegionTimeDilation()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return World.TimeDilation;

        }



        /// <summary>

        ///     Returns the value reported in the client Statistics window

        /// </summary>

        public LSL_Float llGetRegionFPS()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            ISimFrameMonitor reporter =

                (ISimFrameMonitor)

                World.RequestModuleInterface<IMonitorModule>()

                     .GetMonitor(World.RegionInfo.RegionID.ToString(), MonitorModuleHelper.SimFrameStats);

            if (reporter != null)

                return reporter.LastReportedSimFPS;

            return 0;

        }





        /* 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

        {

            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_INNERANGLE = 10,

            PSYS_SRC_OUTERANGLE = 11,

            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)

        {

            const Primitive.ParticleSystem.ParticleDataFlags returnval = Primitive.ParticleSystem.ParticleDataFlags.None;



            return returnval;

        }



        protected Primitive.ParticleSystem getNewParticleSystemWithSLDefaultValues()

        {

            Primitive.ParticleSystem ps = new Primitive.ParticleSystem

                                              {

                                                  PartStartColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f),

                                                  PartEndColor = new Color4(1.0f, 1.0f, 1.0f, 1.0f),

                                                  PartStartScaleX = 1.0f,

                                                  PartStartScaleY = 1.0f,

                                                  PartEndScaleX = 1.0f,

                                                  PartEndScaleY = 1.0f,

                                                  BurstSpeedMin = 1.0f,

                                                  BurstSpeedMax = 1.0f,

                                                  BurstRate = 0.1f,

                                                  PartMaxAge = 10.0f,

                                                  BurstPartCount = 10

                                              };



            // TODO find out about the other defaults and add them here

            return ps;

        }



        public void llLinkParticleSystem(int linknumber, LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            foreach (var part in parts)

            {

                SetParticleSystem(part, rules);

            }

        }



        public void llParticleSystem(LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            SetParticleSystem(m_host, rules);

        }



        private void SetParticleSystem(ISceneChildEntity part, LSL_List rules)

        {

            if (rules.Length == 0)

            {

                part.RemoveParticleSystem();

            }

            else

            {

                Primitive.ParticleSystem prules = getNewParticleSystemWithSLDefaultValues();

                LSL_Vector tempv = new LSL_Vector();



                for (int i = 0; i < rules.Length; i += 2)

                {

                    LSL_Integer rule = rules.GetLSLIntegerItem(i);

                    if (rule == (int) ScriptBaseClass.PSYS_PART_FLAGS)

                    {

                        prules.PartDataFlags =

                            (Primitive.ParticleSystem.ParticleDataFlags) (uint) rules.GetLSLIntegerItem(i + 1);

                    }



                    else if (rule == (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;

                    }



                    else

                    {

                        float tempf = 0;

                        if (rule == (int) ScriptBaseClass.PSYS_PART_START_ALPHA)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.PartStartColor.A = tempf;

                        }



                        else if (rule == (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;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_PART_END_ALPHA)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.PartEndColor.A = tempf;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_PART_START_SCALE)

                        {

                            tempv = rules.GetVector3Item(i + 1);

                            prules.PartStartScaleX = (float) tempv.x;

                            prules.PartStartScaleY = (float) tempv.y;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_PART_END_SCALE)

                        {

                            tempv = rules.GetVector3Item(i + 1);

                            prules.PartEndScaleX = (float) tempv.x;

                            prules.PartEndScaleY = (float) tempv.y;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_PART_MAX_AGE)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.PartMaxAge = tempf;

                        }



                        else if (rule == (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;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_PATTERN)

                        {

                            int tmpi = rules.GetLSLIntegerItem(i + 1);

                            prules.Pattern = (Primitive.ParticleSystem.SourcePattern) tmpi;

                        }



                            // PSYS_SRC_INNERANGLE and PSYS_SRC_ANGLE_BEGIN use the same variables. The

                            // PSYS_SRC_OUTERANGLE and PSYS_SRC_ANGLE_END also use the same variable. The

                            // client tells the difference between the two by looking at the 0x02 bit in

                            // the PartFlags variable.

                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_INNERANGLE)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.InnerAngle = tempf;

                            prules.PartFlags &= 0xFFFFFFFD; // Make sure new angle format is off.

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_OUTERANGLE)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.OuterAngle = tempf;

                            prules.PartFlags &= 0xFFFFFFFD; // Make sure new angle format is off.

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_TEXTURE)

                        {

                            prules.Texture = KeyOrName(rules.GetLSLStringItem(i + 1), false);

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_BURST_RATE)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.BurstRate = tempf;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_BURST_PART_COUNT)

                        {

                            prules.BurstPartCount = (byte) (int) rules.GetLSLIntegerItem(i + 1);

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_BURST_RADIUS)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.BurstRadius = tempf;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_BURST_SPEED_MIN)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.BurstSpeedMin = tempf;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_BURST_SPEED_MAX)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.BurstSpeedMax = tempf;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_MAX_AGE)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.MaxAge = tempf;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_TARGET_KEY)

                        {

                            UUID key = UUID.Zero;

                            prules.Target = UUID.TryParse(rules.Data[i + 1].ToString(), out key) ? key : part.UUID;

                        }



                        else if (rule == (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;

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_ANGLE_BEGIN)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.InnerAngle = tempf;

                            prules.PartFlags |= 0x02; // Set new angle format.

                        }



                        else if (rule == (int) ScriptBaseClass.PSYS_SRC_ANGLE_END)

                        {

                            tempf = (float) rules.GetLSLFloatItem(i + 1);

                            prules.OuterAngle = tempf;

                            prules.PartFlags |= 0x02; // Set new angle format.

                        }

                    }

                }

                prules.CRC = 1;



                part.AddNewParticleSystem(prules);

            }

            part.ScheduleUpdate(PrimUpdateFlags.Particles);

        }



        public void llGroundRepel(double height, int water, double tau)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.PhysActor != null)

            {

                float ground = (float) llGround(new LSL_Types.Vector3(0, 0, 0));

                float waterLevel = (float) llWater(new LSL_Types.Vector3(0, 0, 0));

                PIDHoverType hoverType = PIDHoverType.Ground;

                if (water != 0)

                {

                    hoverType = PIDHoverType.GroundAndWater;

                    if (ground < waterLevel)

                        height += waterLevel;

                    else

                        height += ground;

                }

                else

                {

                    height += ground;

                }



                m_host.SetHoverHeight((float) height, hoverType, (float) tau);

            }

        }



        protected UUID GetTaskInventoryItem(string name)

        {

            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            UUID destID;

            if (!UUID.TryParse(destination, out destID))

                return;



            List<UUID> itemList = new List<UUID>();



            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;

            UUID folderID = UUID.Zero;

            ILLClientInventory inventoryModule = World.RequestModuleInterface<ILLClientInventory>();

            if (inventoryModule != null)

                folderID = inventoryModule.MoveTaskInventoryItemsToUserInventory(destID, category, m_host, itemList);



            if (folderID == UUID.Zero)

                return;



            byte[] bucket = new byte[17];

            bucket[0] = (byte) AssetType.Folder;

            byte[] objBytes = folderID.GetBytes();

            Array.Copy(objBytes, 0, bucket, 1, 16);



            GridInstantMessage msg = new GridInstantMessage(World,

                                                            m_host.UUID, m_host.Name + ", an object owned by " +

                                                                         resolveName(m_host.OwnerID) + ",", destID,

                                                            (byte) InstantMessageDialog.InventoryOffered,

                                                            false, category + "\n" + m_host.Name + " is located at " +

                                                                   World.RegionInfo.RegionName + " " +

                                                                   m_host.AbsolutePosition.ToString(),

                                                            folderID, true, m_host.AbsolutePosition,

                                                            bucket);



            if (m_TransferModule != null)

                m_TransferModule.SendInstantMessage(msg);

        }



        public void llSetVehicleType(int type)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.SetVehicleType(type);

                }

            }

        }



        //CFK 9/28: Most, but not all of the underlying plumbing between here and the physics modules is in

        //CFK 9/28: so these are not complete yet.

        public void llSetVehicleFloatParam(int param, LSL_Float value)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.SetVehicleFloatParam(param, (float) value);

                }

            }

        }



        //CFK 9/28: Most, but not all of the underlying plumbing between here and the physics modules is in

        //CFK 9/28: so these are not complete yet.

        public void llSetVehicleVectorParam(int param, LSL_Vector vec)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.SetVehicleVectorParam(param,

                                                                        new Vector3((float) vec.x, (float) vec.y,

                                                                                    (float) vec.z));

                }

            }

        }



        //CFK 9/28: Most, but not all of the underlying plumbing between here and the physics modules is in

        //CFK 9/28: so these are not complete yet.

        public void llSetVehicleRotationParam(int param, LSL_Rotation rot)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.SetVehicleRotationParam(param,

                                                                          Rot2Quaternion(rot));

                }

            }

        }



        public void llSetVehicleFlags(int flags)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.SetVehicleFlags(flags, false);

                }

            }

        }



        public void llRemoveVehicleFlags(int flags)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.SetVehicleFlags(flags, true);

                }

            }

        }



        public void llSitTarget(LSL_Vector offset, LSL_Rotation rot)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            // 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 = Rot2Quaternion(rot);

        }



        public void llLinkSitTarget(LSL_Integer link, LSL_Vector offset, LSL_Rotation rot)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            // 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



            List<ISceneChildEntity> entities = GetLinkParts(link);

            if (entities.Count == 0)

                return;



            entities[0].SitTargetPosition = new Vector3((float) offset.x, (float) offset.y, (float) offset.z);

            entities[0].SitTargetOrientation = Rot2Quaternion(rot);

        }



        public LSL_String llAvatarOnSitTarget()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            return m_host.SitTargetAvatar.Count > 0

                       ? new LSL_String(m_host.SitTargetAvatar[0].ToString())

                       : ScriptBaseClass.NULL_KEY;

        }



        public LSL_Key llAvatarOnLinkSitTarget()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Key();



            return m_host.SitTargetAvatar.Count > 0

                       ? new LSL_String(m_host.SitTargetAvatar[0].ToString())

                       : ScriptBaseClass.NULL_KEY;

        }



        public DateTime llAddToLandPassList(string avatar, double hours)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

            if (parcelManagement != null)

            {

                LandData land =

                    parcelManagement.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).LandData;

                if (land.OwnerID == m_host.OwnerID)

                {

                    ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry();

                    UUID key;

                    if (UUID.TryParse(avatar, out key))

                    {

                        entry.AgentID = key;

                        entry.Flags = AccessList.Access;

                        entry.Time = DateTime.Now.AddHours(hours);

                        land.ParcelAccessList.Add(entry);

                    }

                }

            }

            return PScriptSleep(100);

        }



        public void llSetTouchText(string text)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.TouchName = text;

        }



        public void llSetSitText(string text)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.SitName = text;

        }



        public void llSetLinkCamera(LSL_Integer link, LSL_Vector eye, LSL_Vector at)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            List<ISceneChildEntity> entities = GetLinkParts(link);

            if (entities.Count > 0)

            {

                entities[0].CameraEyeOffset = new Vector3((float) eye.x, (float) eye.y, (float) eye.z);

                entities[0].CameraAtOffset = new Vector3((float) at.x, (float) at.y, (float) at.z);

            }

        }



        public void llSetCameraEyeOffset(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.CameraEyeOffset = new Vector3((float) offset.x, (float) offset.y, (float) offset.z);

        }



        public void llSetCameraAtOffset(LSL_Vector offset)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.CameraAtOffset = new Vector3((float) offset.x, (float) offset.y, (float) offset.z);

        }



        public LSL_String llDumpList2String(LSL_List src, string seperator)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            if (src.Length == 0)

            {

                return String.Empty;

            }

#if (!ISWIN)

            string ret = "";

            foreach (object o in src.Data)

                ret += o.ToString() + seperator;

#else

            string ret = src.Data.Aggregate("", (current, o) => current + (o.ToString() + seperator));

#endif



            ret = ret.Substring(0, ret.Length - seperator.Length);

            return ret;

        }



        public LSL_Integer llScriptDanger(LSL_Vector pos)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            bool result = m_ScriptEngine.PipeEventsForScript(m_host,

                                                             new Vector3((float) pos.x, (float) pos.y, (float) pos.z));

            if (result)

            {

                return 1;

            }

            return 0;

        }



        public DateTime llDialog(string avatar, string message, LSL_List buttons, int chat_channel)

        {

            IDialogModule dm = World.RequestModuleInterface<IDialogModule>();



            if (dm == null)

                return DateTime.Now;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            UUID av = new UUID();

            if (!UUID.TryParse(avatar, out av))

            {

                //Silently accepted in in SL NOTE: it does sleep though!

                //LSLError("First parameter to llDialog needs to be a key");

                return PScriptSleep(1000);

            }

            if (buttons.Length > 12)

            {

                LSLError("No more than 12 buttons can be shown");

                return DateTime.Now;

            }

            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 DateTime.Now;

                }

                if (buttons.Data[i].ToString().Length > 24)

                {

                    LSLError("button label cannot be longer than 24 characters");

                    return DateTime.Now;

                }

                buts[i] = buttons.Data[i].ToString();

            }

            if (buts.Length == 0)

                buts = new[] {"OK"};



            dm.SendDialogToUser(

                av, m_host.Name, m_host.UUID, m_host.OwnerID,

                message, new UUID("00000000-0000-2222-3333-100000001000"), chat_channel, buts);



            return PScriptSleep(1000);

        }



        public void llVolumeDetect(int detect)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_host.ParentEntity != null)

            {

                if (!m_host.ParentEntity.IsDeleted)

                {

                    m_host.ParentEntity.RootChild.ScriptSetVolumeDetect(detect != 0);

                }

            }

        }



        /// <summary>

        ///     This is a depecated function so this just replicates the result of

        ///     invoking it in SL

        /// </summary>

        public DateTime llRemoteLoadScript(string target, string name, int running, int start_param)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            // Report an error as it does in SL

            ShoutError("Deprecated. Please use llRemoteLoadScriptPin instead.");

            return PScriptSleep(3000);

        }



        public void llSetRemoteScriptAccessPin(int pin)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.ScriptAccessPin = pin;

        }



        public DateTime llRemoteLoadScriptPin(string target, string name, int pin, int running, int start_param)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            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 DateTime.Now;

            }



            // target must be a different prim than the one containing the script

            if (m_host.UUID == destId)

            {

                return DateTime.Now;

            }



            // copy the first script found with this inventory name

            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> 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 DateTime.Now;

            }



            // the rest of the permission checks are done in RezScript, so check the pin there as well

            ILLClientInventory inventoryModule = World.RequestModuleInterface<ILLClientInventory>();

            if (inventoryModule != null)

                inventoryModule.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

            return PScriptSleep(3000);

        }



        public DateTime llOpenRemoteDataChannel()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IXMLRPC xmlrpcMod = World.RequestModuleInterface<IXMLRPC>();

            if (xmlrpcMod.IsEnabled())

            {

                UUID channelID = xmlrpcMod.OpenXMLRPCChannel(m_host.UUID, m_itemID, UUID.Zero);

                IXmlRpcRouter xmlRpcRouter = World.RequestModuleInterface<IXmlRpcRouter>();

                if (xmlRpcRouter != null)

                {

                    string ExternalHostName = MainServer.Instance.HostName;



                    xmlRpcRouter.RegisterNewReceiver(m_ScriptEngine.ScriptModule, channelID, m_host.UUID,

                                                     m_itemID, String.Format("http://{0}:{1}/", ExternalHostName,

                                                                             xmlrpcMod.Port.ToString()));

                }

                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, m_host.UUID, new EventParams("remote_data", resobj,

                                                                                      new DetectParams[0]),

                                               EventPriority.FirstStart);

            }

            return PScriptSleep(1000);

        }



        public LSL_Key llSendRemoteData(string channel, string dest, int idata, string sdata)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            IXMLRPC xmlrpcMod = World.RequestModuleInterface<IXMLRPC>();

            ScriptSleep(3000);

            return (xmlrpcMod.SendRemoteData(m_host.UUID, m_itemID, channel, dest, idata, sdata)).ToString();

        }



        public DateTime llRemoteDataReply(string channel, string message_id, string sdata, int idata)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IXMLRPC xmlrpcMod = World.RequestModuleInterface<IXMLRPC>();

            xmlrpcMod.RemoteDataReply(channel, message_id, sdata, idata);

            return PScriptSleep(100);

        }



        public DateTime llCloseRemoteDataChannel(object _channel)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IXMLRPC xmlrpcMod = World.RequestModuleInterface<IXMLRPC>();

            xmlrpcMod.CloseXMLRPCChannel(UUID.Parse(_channel.ToString()));

            return PScriptSleep(100);

        }



        public LSL_String llMD5String(string src, int nonce)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            return Util.Md5Hash(String.Format("{0}:{1}", src, nonce.ToString()));

        }



        public LSL_String llSHA1String(string src)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            return Util.SHA1Hash(src).ToLower();

        }



        protected ObjectShapePacket.ObjectDataBlock SetPrimitiveBlockShapeParams(ISceneChildEntity 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 = 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;

                if (cut.x < 0.0f)

                {

                    cut.x = 0.0f;

                    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;

            }

            // A fairly large precision error occurs for some calculations,

            // if a float or double is directly cast to a byte or sbyte

            // variable, in both .Net and Mono. In .Net, coding

            // "(sbyte)(float)(some expression)" corrects the precision

            // errors. But this does not work for Mono. This longer coding

            // form of creating a tempoary float variable from the

            // expression first, then casting that variable to a byte or

            // sbyte, works for both .Net and Mono. These types of

            // assignments occur in SetPrimtiveBlockShapeParams and

            // SetPrimitiveShapeParams in support of llSetPrimitiveParams.

            float tempFloat = (float) (100.0d*twist.x);

            shapeBlock.PathTwistBegin = (sbyte) tempFloat;

            tempFloat = (float) (100.0d*twist.y);

            shapeBlock.PathTwist = (sbyte) tempFloat;



            shapeBlock.ObjectLocalID = part.LocalId;



            // retain pathcurve

            shapeBlock.PathCurve = part.Shape.PathCurve;



            part.Shape.SculptEntry = false;

            return shapeBlock;

        }



        protected void SetPrimitiveShapeParams(ISceneChildEntity part, int holeshape, LSL_Vector cut, float hollow,

                                               LSL_Vector twist, LSL_Vector taper_b, LSL_Vector topshear, byte fudge)

        {

            ObjectShapePacket.ObjectDataBlock 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;

            }

            float tempFloat = (float) (100.0d*(2.0d - taper_b.x));

            shapeBlock.PathScaleX = (byte) tempFloat;

            tempFloat = (float) (100.0d*(2.0d - taper_b.y));

            shapeBlock.PathScaleY = (byte) tempFloat;

            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;

            }

            tempFloat = (float) (100.0d*topshear.x);

            shapeBlock.PathShearX = (byte) tempFloat;

            tempFloat = (float) (100.0d*topshear.y);

            shapeBlock.PathShearY = (byte) tempFloat;



            part.Shape.SculptEntry = false;

            part.UpdateShape(shapeBlock);

        }



        protected void SetPrimitiveShapeParams(ISceneChildEntity part, int holeshape, LSL_Vector cut, float hollow,

                                               LSL_Vector twist, LSL_Vector dimple, byte fudge)

        {

            ObjectShapePacket.ObjectDataBlock 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.Shape.SculptEntry = false;

            part.UpdateShape(shapeBlock);

        }



        protected void SetPrimitiveShapeParams(ISceneChildEntity 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 = 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;

            }

            float tempFloat = (float) (100.0d*(2.0d - holesize.x));

            shapeBlock.PathScaleX = (byte) tempFloat;

            tempFloat = (float) (100.0d*(2.0d - holesize.y));

            shapeBlock.PathScaleY = (byte) tempFloat;

            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;

            }

            tempFloat = (float) (100.0d*topshear.x);

            shapeBlock.PathShearX = (byte) tempFloat;

            tempFloat = (float) (100.0d*topshear.y);

            shapeBlock.PathShearY = (byte) tempFloat;

            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 - profilecut.x < 0.05f)

            {

                profilecut.x = profilecut.y - 0.05f;

                if (profilecut.x < 0.0f)

                {

                    profilecut.x = 0.0f;

                    profilecut.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;

            }

            tempFloat = (float) (100.0d*taper_a.x);

            shapeBlock.PathTaperX = (sbyte) tempFloat;

            tempFloat = (float) (100.0d*taper_a.y);

            shapeBlock.PathTaperY = (sbyte) tempFloat;

            if (revolutions < 1f)

            {

                revolutions = 1f;

            }

            if (revolutions > 4f)

            {

                revolutions = 4f;

            }

            tempFloat = 66.66667f*(revolutions - 1.0f);

            shapeBlock.PathRevolutions = (byte) tempFloat;

            // 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;

            }

            tempFloat = 100.0f*radiusoffset;

            shapeBlock.PathRadiusOffset = (sbyte) tempFloat;

            if (skew < -0.95f)

            {

                skew = -0.95f;

            }

            if (skew > 0.95f)

            {

                skew = 0.95f;

            }

            tempFloat = 100.0f*skew;

            shapeBlock.PathSkew = (sbyte) tempFloat;



            part.Shape.SculptEntry = false;

            part.UpdateShape(shapeBlock);

        }



        protected void SetPrimitiveShapeParams(ISceneChildEntity part, string map, int type)

        {

            ObjectShapePacket.ObjectDataBlock shapeBlock = new ObjectShapePacket.ObjectDataBlock();

            UUID sculptId;



            if (!UUID.TryParse(map, out sculptId))

            {

                sculptId = InventoryKey(map, (int) AssetType.Texture);

            }



            if (sculptId == UUID.Zero)

                return;



            shapeBlock.ObjectLocalID = part.LocalId;

            shapeBlock.PathScaleX = 100;

            shapeBlock.PathScaleY = 150;



            int onlytype = (type & (ScriptBaseClass.PRIM_SCULPT_FLAG_INVERT | ScriptBaseClass.PRIM_SCULPT_FLAG_MIRROR));

                //Removes the sculpt flags according to libOMV

            if (onlytype != (int) ScriptBaseClass.PRIM_SCULPT_TYPE_CYLINDER &&

                onlytype != (int) ScriptBaseClass.PRIM_SCULPT_TYPE_PLANE &&

                onlytype != (int) ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE &&

                onlytype != (int) ScriptBaseClass.PRIM_SCULPT_TYPE_TORUS &&

                onlytype != (int) ScriptBaseClass.PRIM_SCULPT_TYPE_MESH)

            {

                // default

                type |= ScriptBaseClass.PRIM_SCULPT_TYPE_SPHERE;

            }



            // retain pathcurve

            shapeBlock.PathCurve = part.Shape.PathCurve;

            bool changedTextureID = part.Shape.SculptTexture != sculptId;

            part.Shape.SetSculptProperties((byte) type, sculptId);

            part.Shape.SculptEntry = true;

            part.UpdateShape(shapeBlock, changedTextureID);

        }



        public void llSetPrimitiveParams(LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            SetPrimParams(m_host, rules);

        }



        public void llSetLinkPrimitiveParams(int linknumber, LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            List<IEntity> parts = GetLinkPartsAndEntities(linknumber);



            foreach (IEntity part in parts)

                SetPrimParams(part, rules);

        }



        public void llSetLinkPrimitiveParamsFast(int linknumber, LSL_List rules)

        {

            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            foreach (ISceneChildEntity part in parts)

                SetPrimParams(part, rules);

        }



        public LSL_Integer llGetLinkNumberOfSides(int LinkNum)

        {

            List<ISceneChildEntity> Parts = GetLinkParts(LinkNum);

#if (!ISWIN)

            int faces = 0;

            foreach (ISceneChildEntity part in Parts)

                faces += GetNumberOfSides(part);

#else

            int faces = Parts.Sum(part => GetNumberOfSides(part));

#endif

            return new LSL_Integer(faces);

        }



        protected void SetPrimParams(IEntity 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;



                if (code == (int) ScriptBaseClass.PRIM_NAME)

                {

                    if (remain < 1)

                        return;



                    string name = rules.Data[idx++].ToString();

                    if (part is ISceneChildEntity)

                        (part as ISceneChildEntity).Name = name;

                }



                else if (code == (int) ScriptBaseClass.PRIM_DESC)

                {

                    if (remain < 1)

                        return;



                    string desc = rules.Data[idx++].ToString();

                    if (part is ISceneChildEntity)

                        (part as ISceneChildEntity).Description = desc;

                }



                else if (code == (int) ScriptBaseClass.PRIM_ROT_LOCAL)

                {

                    if (remain < 1)

                        return;

                    LSL_Rotation lr = rules.GetQuaternionItem(idx++);

                    if (part is ISceneChildEntity)

                        SetRot((part as ISceneChildEntity), Rot2Quaternion(lr));

                }



                else if (code == (int) ScriptBaseClass.PRIM_POSITION)

                {

                    if (remain < 1)

                        return;



                    v = rules.GetVector3Item(idx++);

                    if (part is ISceneChildEntity)

                        SetPos(part as ISceneChildEntity, v, true);

                    else if (part is IScenePresence)

                    {

                        (part as IScenePresence).OffsetPosition = new Vector3((float) v.x, (float) v.y, (float) v.z);

                        (part as IScenePresence).SendTerseUpdateToAllClients();

                    }

                }

                else if (code == (int) ScriptBaseClass.PRIM_POS_LOCAL)

                {

                    if (remain < 1)

                        return;



                    v = rules.GetVector3Item(idx++);

                    if (part is ISceneChildEntity)

                    {

                        if (((ISceneChildEntity) part).ParentID != 0)

                            ((ISceneChildEntity) part).OffsetPosition = new Vector3((float) v.x, (float) v.y,

                                                                                    (float) v.z);

                        else

                            part.AbsolutePosition = new Vector3((float) v.x, (float) v.y, (float) v.z);

                    }

                    else if (part is IScenePresence)

                    {

                        (part as IScenePresence).OffsetPosition = new Vector3((float) v.x, (float) v.y, (float) v.z);

                        (part as IScenePresence).SendTerseUpdateToAllClients();

                    }

                }

                else if (code == (int) ScriptBaseClass.PRIM_SIZE)

                {

                    if (remain < 1)

                        return;





                    v = rules.GetVector3Item(idx++);

                    if (part is ISceneChildEntity)

                        SetScale(part as ISceneChildEntity, v);

                }

                else if (code == (int) ScriptBaseClass.PRIM_ROTATION)

                {

                    if (remain < 1)

                        return;



                    LSL_Rotation q = rules.GetQuaternionItem(idx++);

                    if (part is ISceneChildEntity)

                    {

                        // try to let this work as in SL...

                        if ((part as ISceneChildEntity).ParentID == 0)

                        {

                            // special case: If we are root, rotate complete SOG to new rotation

                            SetRot(part as ISceneChildEntity, Rot2Quaternion(q));

                        }

                        else

                        {

                            // we are a child. The rotation values will be set to the one of root modified by rot, as in SL. Don't ask.

                            ISceneEntity group = (part as ISceneChildEntity).ParentEntity;

                            if (group != null) // a bit paranoid, maybe

                            {

                                ISceneChildEntity rootPart = group.RootChild;

                                if (rootPart != null) // again, better safe than sorry

                                {

                                    SetRot((part as ISceneChildEntity), rootPart.GetRotationOffset()*Rot2Quaternion(q));

                                }

                            }

                        }

                    }

                    else if (part is IScenePresence)

                    {

                        IScenePresence sp = (IScenePresence) part;

                        ISceneChildEntity childObj = sp.Scene.GetSceneObjectPart(sp.SittingOnUUID);

                        if (childObj != null)

                        {

                            sp.Rotation = childObj.ParentEntity.GroupRotation*Rot2Quaternion(q);

                            sp.SendTerseUpdateToAllClients();

                        }

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_TYPE)

                {

                    if (remain < 3)

                        return;



                    if (part is ISceneChildEntity)

                    {

                    }

                    else

                        return;



                    code = 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;



                    if (code == (int) ScriptBaseClass.PRIM_TYPE_BOX)

                    {

                        if (remain < 6)

                            return;



                        face = 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 as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Straight;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), face, v, hollow, twist, taper_b, topshear,

                                                1);

                    }



                    else if (code == (int) ScriptBaseClass.PRIM_TYPE_CYLINDER)

                    {

                        if (remain < 6)

                            return;



                        face = 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 as ISceneChildEntity).Shape.ProfileShape = ProfileShape.Circle;

                        (part as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Straight;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), face, v, hollow, twist, taper_b, topshear,

                                                0);

                    }



                    else if (code == (int) ScriptBaseClass.PRIM_TYPE_PRISM)

                    {

                        if (remain < 6)

                            return;



                        face = 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 as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Straight;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), face, v, hollow, twist, taper_b, topshear,

                                                3);

                    }



                    else if (code == (int) ScriptBaseClass.PRIM_TYPE_SPHERE)

                    {

                        if (remain < 5)

                            return;



                        face = 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 as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Curve1;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), face, v, hollow, twist, taper_b, 5);

                    }



                    else if (code == (int) ScriptBaseClass.PRIM_TYPE_TORUS)

                    {

                        if (remain < 11)

                            return;



                        face = 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 as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Curve1;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), face, v, hollow, twist, holesize, topshear,

                                                profilecut, taper_b,

                                                revolutions, radiusoffset, skew, 0);

                    }



                    else if (code == (int) ScriptBaseClass.PRIM_TYPE_TUBE)

                    {

                        if (remain < 11)

                            return;



                        face = 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 as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Curve1;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), face, v, hollow, twist, holesize, topshear,

                                                profilecut, taper_b,

                                                revolutions, radiusoffset, skew, 1);

                    }



                    else if (code == (int) ScriptBaseClass.PRIM_TYPE_RING)

                    {

                        if (remain < 11)

                            return;



                        face = 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 as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Curve1;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), face, v, hollow, twist, holesize, topshear,

                                                profilecut, taper_b,

                                                revolutions, radiusoffset, skew, 3);

                    }



                    else if (code == (int) ScriptBaseClass.PRIM_TYPE_SCULPT)

                    {

                        if (remain < 2)

                            return;



                        string map = rules.Data[idx++].ToString();

                        face = rules.GetLSLIntegerItem(idx++); // type

                        (part as ISceneChildEntity).Shape.PathCurve = (byte) Extrusion.Curve1;

                        SetPrimitiveShapeParams((part as ISceneChildEntity), map, face);

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_TEXTURE)

                {

                    if (remain < 5)

                        return;

                    if (part is ISceneChildEntity)

                    {

                    }

                    else

                        return;

                    face = rules.GetLSLIntegerItem(idx++);

                    string tex = rules.Data[idx++].ToString();

                    LSL_Vector repeats = rules.GetVector3Item(idx++);

                    LSL_Vector offsets = rules.GetVector3Item(idx++);

                    double rotation = rules.GetLSLFloatItem(idx++);



                    SetTexture((part as ISceneChildEntity), tex, face);

                    ScaleTexture((part as ISceneChildEntity), repeats.x, repeats.y, face);

                    OffsetTexture((part as ISceneChildEntity), offsets.x, offsets.y, face);

                    RotateTexture((part as ISceneChildEntity), rotation, face);

                }



                else if (code == (int) ScriptBaseClass.PRIM_COLOR)

                {

                    if (remain < 3)

                        return;

                    if (part is ISceneChildEntity)

                    {

                    }

                    else

                        return;

                    face = rules.GetLSLIntegerItem(idx++);

                    LSL_Vector color = rules.GetVector3Item(idx++);

                    double alpha = rules.GetLSLFloatItem(idx++);



                    (part as ISceneChildEntity).SetFaceColor(

                        new Vector3((float) color.x, (float) color.y, (float) color.z), face);

                    SetAlpha((part as ISceneChildEntity), alpha, face);

                }



                else if (code == (int) ScriptBaseClass.PRIM_FLEXIBLE)

                {

                    if (remain < 7)

                        return;

                    if (!(part is ISceneChildEntity))

                        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 as ISceneChildEntity), flexi, softness, gravity, friction, wind, tension, force);

                }

                else if (code == (int) ScriptBaseClass.PRIM_POINT_LIGHT)

                {

                    if (remain < 5)

                        return;

                    if (!(part is ISceneChildEntity))

                        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 as ISceneChildEntity), light, lightcolor, intensity, radius, falloff);

                }



                else if (code == (int) ScriptBaseClass.PRIM_GLOW)

                {

                    if (remain < 2)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    face = rules.GetLSLIntegerItem(idx++);

                    float glow = (float) rules.GetLSLFloatItem(idx++);



                    SetGlow((part as ISceneChildEntity), face, glow);

                }

                else if (code == (int) ScriptBaseClass.PRIM_BUMP_SHINY)

                {

                    if (remain < 3)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    face = rules.GetLSLIntegerItem(idx++);

                    int shiny = rules.GetLSLIntegerItem(idx++);

                    Bumpiness bump = (Bumpiness) Convert.ToByte((int) rules.GetLSLIntegerItem(idx++));



                    SetShiny(part as ISceneChildEntity, face, shiny, bump);

                }

                else if (code == (int) ScriptBaseClass.PRIM_FULLBRIGHT)

                {

                    if (remain < 2)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    face = rules.GetLSLIntegerItem(idx++);

                    bool st = rules.GetLSLIntegerItem(idx++);

                    SetFullBright(part as ISceneChildEntity, face, st);

                }



                else if (code == (int) ScriptBaseClass.PRIM_MATERIAL)

                {

                    if (remain < 1)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    int mat = rules.GetLSLIntegerItem(idx++);

                    if (mat < 0 || mat > 7)

                        return;



                    (part as ISceneChildEntity).UpdateMaterial(mat);

                }

                else if (code == (int) ScriptBaseClass.PRIM_PHANTOM)

                {

                    if (remain < 1)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    string ph = rules.Data[idx++].ToString();



                    bool phantom = ph.Equals("1");



                    (part as ISceneChildEntity).ScriptSetPhantomStatus(phantom);

                }

                else if (code == (int) ScriptBaseClass.PRIM_PHYSICS)

                {

                    if (remain < 1)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    string phy = rules.Data[idx++].ToString();



                    m_host.ParentEntity.ScriptSetPhysicsStatus(phy.Equals("1"));

                }

                else if (code == (int) ScriptBaseClass.PRIM_TEMP_ON_REZ)

                {

                    if (remain < 1)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    string temp = rules.Data[idx++].ToString();



                    bool tempOnRez = temp.Equals("1");



                    (part as ISceneChildEntity).ScriptSetTemporaryStatus(tempOnRez);

                }

                else if (code == (int) ScriptBaseClass.PRIM_TEXGEN)

                {

                    if (remain < 2)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    //face,type

                    face = rules.GetLSLIntegerItem(idx++);

                    int style = rules.GetLSLIntegerItem(idx++);

                    SetTexGen((part as ISceneChildEntity), face, style);

                }

                else if (code == (int) ScriptBaseClass.PRIM_TEXT)

                {

                    if (remain < 3)

                        return;

                    if (!(part is ISceneChildEntity))

                        return;

                    string primText = rules.GetLSLStringItem(idx++);

                    LSL_Vector primTextColor = rules.GetVector3Item(idx++);

                    LSL_Float primTextAlpha = rules.GetLSLFloatItem(idx++);

                    Vector3 av3 = new Vector3(Util.Clip((float) primTextColor.x, 0.0f, 1.0f),

                                              Util.Clip((float) primTextColor.y, 0.0f, 1.0f),

                                              Util.Clip((float) primTextColor.z, 0.0f, 1.0f));

                    (part as ISceneChildEntity).SetText(primText, av3, Util.Clip((float) primTextAlpha, 0.0f, 1.0f));

                }

                else if (code == (int) ScriptBaseClass.PRIM_OMEGA)

                {

                    if (remain < 3)

                        return;

                    LSL_Vector direction = rules.GetVector3Item(idx++);

                    LSL_Float spinrate = rules.GetLSLFloatItem(idx++);

                    LSL_Float gain = rules.GetLSLFloatItem(idx++);

                    if (part is ISceneChildEntity)

                        llTargetOmega(direction, spinrate, gain);

                }

                else if (code == (int) ScriptBaseClass.PRIM_PHYSICS_SHAPE_TYPE)

                {

                    bool UsePhysics = ((m_host.Flags & PrimFlags.Physics) != 0);

                    bool IsTemporary = ((m_host.Flags & PrimFlags.TemporaryOnRez) != 0);

                    bool IsPhantom = ((m_host.Flags & PrimFlags.Phantom) != 0);

                    bool IsVolumeDetect = m_host.VolumeDetectActive;

                    ObjectFlagUpdatePacket.ExtraPhysicsBlock[] blocks = new ObjectFlagUpdatePacket.ExtraPhysicsBlock[1];

                    blocks[0] = new ObjectFlagUpdatePacket.ExtraPhysicsBlock

                                    {

                                        Density = m_host.Density,

                                        Friction = m_host.Friction,

                                        GravityMultiplier = m_host.GravityMultiplier

                                    };

                    LSL_Integer shapeType = rules.GetLSLIntegerItem(idx++);

                    if (shapeType == ScriptBaseClass.PRIM_PHYSICS_SHAPE_PRIM)

                        blocks[0].PhysicsShapeType = (byte) shapeType.value;

                    else if (shapeType == ScriptBaseClass.PRIM_PHYSICS_SHAPE_NONE)

                        blocks[0].PhysicsShapeType = (byte) shapeType.value;

                    else //if(shapeType == ScriptBaseClass.PRIM_PHYSICS_SHAPE_CONVEX)

                        blocks[0].PhysicsShapeType = (byte) shapeType.value;

                    blocks[0].Restitution = m_host.Restitution;

                    if (part is ISceneChildEntity)

                        if ((part as ISceneChildEntity).UpdatePrimFlags(UsePhysics,

                                                                        IsTemporary, IsPhantom, IsVolumeDetect, blocks))

                            (part as ISceneChildEntity).ParentEntity.RebuildPhysicalRepresentation(true);

                }

                else if (code == (int) ScriptBaseClass.PRIM_LINK_TARGET)

                {

                    if (remain < 1)

                        return;

                    LSL_Integer nextLink = rules.GetLSLIntegerItem(idx++);

                    List<IEntity> entities = GetLinkPartsAndEntities(nextLink);

                    if (entities.Count > 0)

                        part = entities[0];

                }

            }

        }



        public LSL_String llStringToBase64(string str)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            try

            {

                byte[] encData_byte = new byte[str.Length];

                encData_byte = Util.UTF8.GetBytes(str);

                string encodedData = Convert.ToBase64String(encData_byte);

                return encodedData;

            }

            catch (Exception e)

            {

                throw new Exception("Error in base64Encode" + e);

            }

        }



        public LSL_String llBase64ToString(string str)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            try

            {

                return Util.Base64ToString(str);

            }

            catch (Exception e)

            {

                throw new Exception("Error in base64Decode" + e);

            }

        }



        public LSL_String llXorBase64Strings(string str1, string str2)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            Deprecated("llXorBase64Strings");

            ScriptSleep(300);

            return String.Empty;

        }



        public void llRemoteDataSetRegion()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            Deprecated("llRemoteDataSetRegion");

        }



        public LSL_Float llLog10(double val)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Log10(val);

        }



        public LSL_Float llLog(double val)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return Math.Log(val);

        }



        public LSL_List llGetAnimationList(string id)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();





            LSL_List l = new LSL_List();

            IScenePresence av = World.GetScenePresence((UUID) id);

            if (av == null || av.IsChildAgent) // only if in the region

                return l;

            UUID[] anims = av.Animator.GetAnimationArray();

            foreach (UUID foo in anims)

                l.Add(new LSL_Key(foo.ToString()));

            return l;

        }



        public DateTime llSetParcelMusicURL(string url)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

            if (parcelManagement != null)

            {

                ILandObject land = parcelManagement.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y);



                if (land == null)

                    return DateTime.Now;



                if (!World.Permissions.CanEditParcel(m_host.OwnerID, land))

                    return DateTime.Now;



                land.SetMusicUrl(url);

            }



            return PScriptSleep(2000);

        }



        public LSL_Vector llGetRootPosition()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            return new LSL_Vector(m_host.ParentEntity.AbsolutePosition.X, m_host.ParentEntity.AbsolutePosition.Y,

                                  m_host.ParentEntity.AbsolutePosition.Z);

        }



        /// <summary>

        ///     http://lslwiki.net/lslwiki/wakka.php?wakka=llGetRot

        ///     http://lslwiki.net/lslwiki/wakka.php?wakka=ChildRotation

        ///     Also tested in sl in regards to the behaviour in attachments/mouselook

        ///     In the root prim:-

        ///     Returns the object rotation if not attached

        ///     Returns the avatars rotation if attached

        ///     Returns the camera rotation if attached and the avatar is in mouselook

        /// </summary>

        public LSL_Rotation llGetRootRotation()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();



            Quaternion q;

            if (m_host.ParentEntity.RootChild.AttachmentPoint != 0)

            {

                IScenePresence avatar = World.GetScenePresence(m_host.AttachedAvatar);

                if (avatar != null)

                    q = (avatar.AgentControlFlags & (uint) AgentManager.ControlFlags.AGENT_CONTROL_MOUSELOOK) != 0

                            ? avatar.CameraRotation

                            : avatar.Rotation;

                else

                    q = m_host.ParentEntity.GroupRotation; // Likely never get here but just in case

            }

            else

                q = m_host.ParentEntity.GroupRotation; // just the group rotation

            return new LSL_Rotation(q.X, q.Y, q.Z, q.W);

        }



        public LSL_String llGetObjectDesc()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            return m_host.Description ?? String.Empty;

        }



        public void llSetObjectDesc(string desc)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.Description = desc ?? String.Empty;

        }



        public LSL_String llGetCreator()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            return m_host.CreatorID.ToString();

        }



        public LSL_String llGetTimestamp()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            return DateTime.Now.ToUniversalTime().ToString("yyyy-MM-ddTHH:mm:ss.fffffffZ");

        }



        public LSL_Integer llGetNumberOfPrims()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            int avatarCount = m_host.ParentEntity.SitTargetAvatar.Count;



            return m_host.ParentEntity.PrimCount + avatarCount;

        }



        /// <summary>

        ///     A partial implementation.

        ///     http://lslwiki.net/lslwiki/wakka.php?wakka=llGetBoundingBox

        ///     So far only valid for standing/flying/ground sitting avatars and single prim objects.

        ///     If the object has multiple prims and/or a sitting avatar then the bounding

        ///     box is for the root prim only.

        /// </summary>

        public LSL_List llGetBoundingBox(string obj)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();



            UUID objID = UUID.Zero;

            LSL_List result = new LSL_List();

            if (!UUID.TryParse(obj, out objID))

            {

                result.Add(new LSL_Vector());

                result.Add(new LSL_Vector());

                return result;

            }

            IScenePresence presence = World.GetScenePresence(objID);

            if (presence != null)

            {

                if (presence.ParentID == UUID.Zero) // not sat on an object

                {

                    LSL_Vector lower = new LSL_Vector();

                    LSL_Vector upper = new LSL_Vector();

                    if (presence.Animator.Animations.ImplicitDefaultAnimation.AnimID

                        == AnimationSet.Animations.AnimsUUID["SIT_GROUND_CONSTRAINED"])

                    {

                        // This is for ground sitting avatars

                        IAvatarAppearanceModule appearance = presence.RequestModuleInterface<IAvatarAppearanceModule>();

                        if (appearance != null)

                        {

                            float height = appearance.Appearance.AvatarHeight/2.66666667f;

                            lower = new LSL_Vector(-0.3375f, -0.45f, height*-1.0f);

                            upper = new LSL_Vector(0.3375f, 0.45f, 0.0f);

                        }

                    }

                    else

                    {

                        // This is for standing/flying avatars

                        IAvatarAppearanceModule appearance = presence.RequestModuleInterface<IAvatarAppearanceModule>();

                        if (appearance != null)

                        {

                            float height = appearance.Appearance.AvatarHeight/2.0f;

                            lower = new LSL_Vector(-0.225f, -0.3f, height*-1.0f);

                            upper = new LSL_Vector(0.225f, 0.3f, height + 0.05f);

                        }

                    }

                    result.Add(lower);

                    result.Add(upper);

                    return result;

                }

                // sitting on an object so we need the bounding box of that

                // which should include the avatar so set the UUID to the

                // UUID of the object the avatar is sat on and allow it to fall through

                // to processing an object

                ISceneChildEntity p = World.GetSceneObjectPart(presence.ParentID);

                objID = p.UUID;

            }

            ISceneChildEntity part = World.GetSceneObjectPart(objID);

            // Currently only works for single prims without a sitting avatar

            if (part != null)

            {

                Vector3 halfSize = part.Scale*0.5f;

                LSL_Vector lower = new LSL_Vector(halfSize.X*-1.0f, halfSize.Y*-1.0f, halfSize.Z*-1.0f);

                LSL_Vector upper = new LSL_Vector(halfSize.X, halfSize.Y, halfSize.Z);

                result.Add(lower);

                result.Add(upper);

                return result;

            }



            // Not found so return empty values

            result.Add(new LSL_Vector());

            result.Add(new LSL_Vector());

            return result;

        }



        public LSL_Vector llGetGeometricCenter()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            Vector3 MinPos = new Vector3(100000, 100000, 100000);

            Vector3 MaxPos = new Vector3(-100000, -100000, -100000);

            foreach (ISceneChildEntity child in m_host.ParentEntity.ChildrenEntities())

            {

                Vector3 tmp = child.AbsolutePosition;

                if (tmp.X < MinPos.X)

                    MinPos.X = tmp.X;

                if (tmp.Y < MinPos.Y)

                    MinPos.Y = tmp.Y;

                if (tmp.Z < MinPos.Z)

                    MinPos.Z = tmp.Z;



                if (tmp.X > MaxPos.X)

                    MaxPos.X = tmp.X;

                if (tmp.Y > MaxPos.Y)

                    MaxPos.Y = tmp.Y;

                if (tmp.Z > MaxPos.Z)

                    MaxPos.Z = tmp.Z;

            }

            Vector3 GroupAvg = ((MaxPos + MinPos)/2);

            return new LSL_Vector(GroupAvg.X, GroupAvg.Y, GroupAvg.Z);



            //Just plain wrong!

            //return new LSL_Vector(m_host.GetGeometricCenter().X, m_host.GetGeometricCenter().Y, m_host.GetGeometricCenter().Z);

        }



        public LSL_List llGetPrimitiveParams(LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();



            return GetLinkPrimitiveParams(m_host, rules);

        }



        public LSL_List llGetLinkPrimitiveParams(int linknumber, LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();





            List<ISceneChildEntity> parts = GetLinkParts(linknumber);



            LSL_List res = new LSL_List();



#if (!ISWIN)

            LSL_List result = res;

            foreach (ISceneChildEntity part in parts)

            {

                LSL_List list = GetLinkPrimitiveParams(part, rules);

                result = result + list;

            }

            return result;

#else

            return parts.Select(part => GetLinkPrimitiveParams(part, rules))

                        .Aggregate(res, (current, partRes) => current + partRes);

#endif

        }



        public LSL_List GetLinkPrimitiveParams(ISceneChildEntity part, LSL_List rules)

        {

            LSL_List res = new LSL_List();

            int idx = 0;

            while (idx < rules.Length)

            {

                int code = rules.GetLSLIntegerItem(idx++);

                int remain = rules.Length - idx;

                Primitive.TextureEntry tex = part.Shape.Textures;

                int face = 0;



                if (code == (int) ScriptBaseClass.PRIM_NAME)

                {

                    res.Add(new LSL_String(part.Name));

                }



                else if (code == (int) ScriptBaseClass.PRIM_DESC)

                {

                    res.Add(new LSL_String(part.Description));

                }



                else if (code == (int) ScriptBaseClass.PRIM_MATERIAL)

                {

                    res.Add(new LSL_Integer(part.Material));

                }



                else if (code == (int) ScriptBaseClass.PRIM_PHYSICS)

                {

                    res.Add((part.GetEffectiveObjectFlags() & (uint) PrimFlags.Physics) != 0

                                ? new LSL_Integer(1)

                                : new LSL_Integer(0));

                }



                else if (code == (int) ScriptBaseClass.PRIM_TEMP_ON_REZ)

                {

                    res.Add((part.GetEffectiveObjectFlags() & (uint) PrimFlags.TemporaryOnRez) != 0

                                ? new LSL_Integer(1)

                                : new LSL_Integer(0));

                }



                else if (code == (int) ScriptBaseClass.PRIM_PHANTOM)

                {

                    res.Add((part.GetEffectiveObjectFlags() & (uint) PrimFlags.Phantom) != 0

                                ? new LSL_Integer(1)

                                : new LSL_Integer(0));

                }



                else if (code == (int) ScriptBaseClass.PRIM_POSITION)

                {

                    Vector3 tmp = part.AbsolutePosition;

                    LSL_Vector v = new LSL_Vector(tmp.X,

                                                  tmp.Y,

                                                  tmp.Z);

                    // For some reason, the part.AbsolutePosition.* values do not change if the

                    // linkset is rotated; they always reflect the child prim's world position

                    // as though the linkset is unrotated. This is incompatible behavior with SL's

                    // implementation, so will break scripts imported from there (not to mention it

                    // makes it more difficult to determine a child prim's actual inworld position).

                    if (part.ParentID != 0)

                    {

                        LSL_Rotation rtmp = llGetRootRotation();

                        LSL_Vector rpos = llGetRootPosition();

                        v = ((v - rpos)*rtmp) + rpos;

                    }

                    res.Add(v);

                }

                else if (code == (int) ScriptBaseClass.PRIM_POS_LOCAL)

                {

                    res.Add(GetLocalPos(part));

                }

                else if (code == (int) ScriptBaseClass.PRIM_SIZE)

                {

                    Vector3 tmp = part.Scale;

                    res.Add(new LSL_Vector(tmp.X,

                                           tmp.Y,

                                           tmp.Z));

                }



                else if (code == (int) ScriptBaseClass.PRIM_ROTATION)

                {

                    res.Add(GetPartRot(part));

                }



                else if (code == (int) ScriptBaseClass.PRIM_TYPE)

                {

                    // implementing box

                    PrimitiveBaseShape Shape = part.Shape;

                    int primType = (int) part.GetPrimType();

                    res.Add(new LSL_Integer(primType));

                    double topshearx = (sbyte) Shape.PathShearX/100.0; // Fix negative values for PathShearX

                    double topsheary = (sbyte) Shape.PathShearY/100.0; // and PathShearY.

                    if (primType == ScriptBaseClass.PRIM_TYPE_BOX ||

                        primType == ScriptBaseClass.PRIM_TYPE_CYLINDER ||

                        primType == 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(topshearx, topsheary, 0));

                    }



                    if (primType == 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));

                    }



                    if (primType == ScriptBaseClass.PRIM_TYPE_SCULPT)

                    {

                        res.Add(Shape.SculptTexture.ToString());

                        res.Add(new LSL_Integer(Shape.SculptType));

                    }

                    if (primType == ScriptBaseClass.PRIM_TYPE_RING ||

                        primType == ScriptBaseClass.PRIM_TYPE_TUBE ||

                        primType == 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(topshearx, topsheary, 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(Math.Round(Shape.PathRevolutions*0.015d, 2, MidpointRounding.AwayFromZero)) +

                            1.0d);

                        // Slightly inaccurate, because an unsigned byte is being used to represent

                        // the entire range of floating-point values from 1.0 through 4.0 (which is how

                        // SL does it).

                        //

                        // Using these formulas to store and retrieve PathRevolutions, it is not

                        // possible to use all values between 1.00 and 4.00. For instance, you can't

                        // represent 1.10. You can represent 1.09 and 1.11, but not 1.10. So, if you

                        // use llSetPrimitiveParams to set revolutions to 1.10 and then retreive them

                        // with llGetPrimitiveParams, you'll retrieve 1.09. You can also see a similar

                        // behavior in the viewer as you cannot set 1.10. The viewer jumps to 1.11.

                        // In SL, llSetPrimitveParams and llGetPrimitiveParams can set and get a value

                        // such as 1.10. So, SL must store and retreive the actual user input rather

                        // than only storing the encoded value.



                        // float radiusoffset

                        res.Add(new LSL_Float(Shape.PathRadiusOffset/100.0));



                        // float skew

                        res.Add(new LSL_Float(Shape.PathSkew/100.0));

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_TEXTURE)

                {

                    if (remain < 1)

                        return res;

                    face = rules.GetLSLIntegerItem(idx++);

                    if (face == ScriptBaseClass.ALL_SIDES)

                    {

                        for (face = 0; face < GetNumberOfSides(part); 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(part))

                        {

                            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 (code == (int) ScriptBaseClass.PRIM_COLOR)

                {

                    if (remain < 1)

                        return res;

                    face = rules.GetLSLIntegerItem(idx++);

                    tex = part.Shape.Textures;

                    Color4 texcolor;

                    if (face == ScriptBaseClass.ALL_SIDES)

                    {

                        for (face = 0; face < GetNumberOfSides(part); 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));

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_BUMP_SHINY)

                {

                    if (remain < 1)

                        return res;



                    face = rules.GetLSLIntegerItem(idx++);



                    if (face == ScriptBaseClass.ALL_SIDES)

                    {

                        for (face = 0; face < GetNumberOfSides(part); face++)

                        {

                            Primitive.TextureEntryFace texface = tex.GetFace((uint) face);

                            // Convert Shininess to PRIM_SHINY_*

                            res.Add(new LSL_Integer((uint) texface.Shiny >> 6));

                            // PRIM_BUMP_*

                            res.Add(new LSL_Integer((int) texface.Bump));

                        }

                    }

                    else

                    {

                        if (face >= 0 && face < GetNumberOfSides(part))

                        {

                            Primitive.TextureEntryFace texface = tex.GetFace((uint) face);

                            // Convert Shininess to PRIM_SHINY_*

                            res.Add(new LSL_Integer((uint) texface.Shiny >> 6));

                            // PRIM_BUMP_*

                            res.Add(new LSL_Integer((int) texface.Bump));

                        }

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_FULLBRIGHT)

                {

                    if (remain < 1)

                        return res;



                    face = rules.GetLSLIntegerItem(idx++);

                    tex = part.Shape.Textures;

                    if (face == ScriptBaseClass.ALL_SIDES)

                    {

                        for (face = 0; face < GetNumberOfSides(part); face++)

                        {

                            Primitive.TextureEntryFace texface = tex.GetFace((uint) face);

                            res.Add(new LSL_Integer(texface.Fullbright ? 1 : 0));

                        }

                    }

                    else

                    {

                        if (face >= 0 && face < GetNumberOfSides(part))

                        {

                            Primitive.TextureEntryFace texface = tex.GetFace((uint) face);

                            res.Add(new LSL_Integer(texface.Fullbright ? 1 : 0));

                        }

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_FLEXIBLE)

                {

                    PrimitiveBaseShape shape = part.Shape;



                    res.Add(shape.FlexiEntry ? new LSL_Integer(1) : 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));

                }



                else if (code == (int) ScriptBaseClass.PRIM_TEXGEN)

                {

                    if (remain < 1)

                        return res;



                    face = rules.GetLSLIntegerItem(idx++);

                    if (face == ScriptBaseClass.ALL_SIDES)

                    {

                        for (face = 0; face < GetNumberOfSides(part); face++)

                        {

                            MappingType texgen = tex.GetFace((uint) face).TexMapType;

                            // Convert MappingType to PRIM_TEXGEN_DEFAULT, PRIM_TEXGEN_PLANAR etc.

                            res.Add(new LSL_Integer((uint) texgen >> 1));

                        }

                    }

                    else

                    {

                        if (face >= 0 && face < GetNumberOfSides(part))

                        {

                            MappingType texgen = tex.GetFace((uint) face).TexMapType;

                            res.Add(new LSL_Integer((uint) texgen >> 1));

                        }

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_POINT_LIGHT)

                {

                    PrimitiveBaseShape shape = part.Shape;



                    res.Add(shape.LightEntry ? new LSL_Integer(1) : 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

                }



                else if (code == (int) ScriptBaseClass.PRIM_GLOW)

                {

                    if (remain < 1)

                        return res;



                    face = rules.GetLSLIntegerItem(idx++);

                    if (face == ScriptBaseClass.ALL_SIDES)

                    {

                        for (face = 0; face < GetNumberOfSides(part); face++)

                        {

                            Primitive.TextureEntryFace texface = tex.GetFace((uint) face);

                            res.Add(new LSL_Float(texface.Glow));

                        }

                    }

                    else

                    {

                        if (face >= 0 && face < GetNumberOfSides(part))

                        {

                            Primitive.TextureEntryFace texface = tex.GetFace((uint) face);

                            res.Add(new LSL_Float(texface.Glow));

                        }

                    }

                }



                else if (code == (int) ScriptBaseClass.PRIM_TEXT)

                {

                    Color4 textColor = part.GetTextColor();

                    res.Add(new LSL_String(part.Text));

                    res.Add(new LSL_Vector(textColor.R,

                                           textColor.G,

                                           textColor.B));

                    res.Add(new LSL_Float(textColor.A));

                }

                else if (code == (int) ScriptBaseClass.PRIM_ROT_LOCAL)

                {

                    Quaternion rtmp = part.GetRotationOffset();

                    res.Add(new LSL_Rotation(rtmp.X, rtmp.Y, rtmp.Z, rtmp.W));

                }

                else if (code == (int) ScriptBaseClass.PRIM_OMEGA)

                {

                    Vector3 axis = part.OmegaAxis;

                    LSL_Float spinRate = part.OmegaSpinRate;

                    LSL_Float gain = part.OmegaGain;

                    res.Add(axis);

                    res.Add(spinRate);

                    res.Add(gain);

                }

                else if (code == (int) ScriptBaseClass.PRIM_PHYSICS_SHAPE_TYPE)

                {

                    res.Add(new LSL_Integer(part.PhysicsType));

                }

                else if (code == (int) ScriptBaseClass.PRIM_LINK_TARGET)

                {

                    if (remain < 1)

                        continue;

                    LSL_Integer nextLink = rules.GetLSLIntegerItem(idx++);

                    List<ISceneChildEntity> entities = GetLinkParts(nextLink);

                    if (entities.Count > 0)

                        part = entities[0];

                }

            }

            return res;

        }



        public LSL_List llGetPhysicsMaterial()

        {

            return new LSL_List(m_host.GravityMultiplier, m_host.Restitution, m_host.Friction, m_host.Density);

        }



        public void llSetPhysicsMaterial(LSL_Integer bits, LSL_Float density, LSL_Float friction, LSL_Float restitution,

                                         LSL_Float gravityMultiplier)

        {

            ObjectFlagUpdatePacket.ExtraPhysicsBlock[] blocks = new ObjectFlagUpdatePacket.ExtraPhysicsBlock[1];

            blocks[0] = new ObjectFlagUpdatePacket.ExtraPhysicsBlock();

            if ((bits & ScriptBaseClass.DENSITY) == ScriptBaseClass.DENSITY)

                m_host.Density = (float) density;

            else

                blocks[0].Density = m_host.Density;



            if ((bits & ScriptBaseClass.FRICTION) == ScriptBaseClass.FRICTION)

                m_host.Friction = (float) friction;

            else

                blocks[0].Friction = m_host.Friction;



            if ((bits & ScriptBaseClass.RESTITUTION) == ScriptBaseClass.RESTITUTION)

                m_host.Restitution = (float) restitution;

            else

                blocks[0].Restitution = m_host.Restitution;



            if ((bits & ScriptBaseClass.GRAVITY_MULTIPLIER) == ScriptBaseClass.GRAVITY_MULTIPLIER)

                m_host.GravityMultiplier = (float) gravityMultiplier;

            else

                blocks[0].GravityMultiplier = m_host.GravityMultiplier;



            bool UsePhysics = ((m_host.Flags & PrimFlags.Physics) != 0);

            bool IsTemporary = ((m_host.Flags & PrimFlags.TemporaryOnRez) != 0);

            bool IsPhantom = ((m_host.Flags & PrimFlags.Phantom) != 0);

            bool IsVolumeDetect = m_host.VolumeDetectActive;

            blocks[0].PhysicsShapeType = m_host.PhysicsType;

            if (m_host.UpdatePrimFlags(UsePhysics, IsTemporary, IsPhantom, IsVolumeDetect, blocks))

                m_host.ParentEntity.RebuildPhysicalRepresentation(true);

        }



        //  <remarks>

        //  <para>

        //  The .NET definition of base 64 is:

        //  <list>

        //  <item>

        //  Significant: A-Z a-z 0-9 + -

        //  </item>

        //  <item>

        //  Whitespace: \t \n \r ' '

        //  </item>

        //  <item>

        //  Valueless: =

        //  </item>

        //  <item>

        //  End-of-string: \0 or '=='

        //  </item>

        //  </list>

        //  </para>

        //  <para>

        //  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).

        //  </para>

        //  <para>

        //  LSL requires a base64 string to be 8

        //  characters in length. LSL also uses '/'

        //  rather than '-' (MIME compliant).

        //  </para>

        //  <para>

        //  RFC 1341 used as a reference (as specified

        //  by the SecondLife Wiki).

        //  </para>

        //  <para>

        //  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.

        //  </para>

        //  <para>

        //  References

        //  <list>

        //  <item>

        //  http://lslwiki.net/lslwiki/wakka.php?wakka=Base64

        //  </item>

        //  <item>

        //  </item>

        //  </list>

        //  </para>

        //  </remarks>



        //  <summary>

        //  Table for converting 6-bit integers into

        //  base-64 characters

        //  </summary>



        protected 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',

                '+', '/'

            };



        //  <summary>

        //  Table for converting base-64 characters

        //  into 6-bit integers.

        //  </summary>



        protected 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

            };



        //  <summary>

        //  Converts a 32-bit integer into a Base64

        //  character string. Base64 character strings

        //  are always 8 characters long. All iinteger

        //  values are acceptable.

        //  </summary>

        //  <param name="number">

        //  32-bit integer to be converted.

        //  </param>

        //  <returns>

        //  8 character string. The 1st six characters

        //  contain the encoded number, the last two

        //  characters are padded with "=".

        //  </returns>



        public LSL_String llIntegerToBase64(int number)

        {

            // uninitialized string



            char[] imdt = new char[8];



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            // 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);

        }



        //  <summary>

        //  Converts an eight character base-64 string

        //  into a 32-bit integer.

        //  </summary>

        //  <param name="str">

        //  8 characters string to be converted. Other

        //  length strings return zero.

        //  </param>

        //  <returns>

        //  Returns an integer representing the

        //  encoded value providedint he 1st 6

        //  characters of the string.

        //  </returns>

        //  <remarks>

        //  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.

        //  <para>

        //  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]   |

        //

        //  </para>

        //  </remarks>



        public LSL_Integer llBase64ToInteger(string str)

        {

            int number = 0;

            int digit;



            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            //    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 ? 0 : number;

            }

            number += --digit << 26;



            if ((digit = c2itable[str[1]]) <= 0)

            {

                return digit < 0 ? 0 : number;

            }

            number += --digit << 20;



            if ((digit = c2itable[str[2]]) <= 0)

            {

                return digit < 0 ? 0 : number;

            }

            number += --digit << 14;



            if ((digit = c2itable[str[3]]) <= 0)

            {

                return digit < 0 ? 0 : number;

            }

            number += --digit << 8;



            if ((digit = c2itable[str[4]]) <= 0)

            {

                return digit < 0 ? 0 : number;

            }

            number += --digit << 2;



            if ((digit = c2itable[str[5]]) <= 0)

            {

                return digit < 0 ? 0 : number;

            }

            number += --digit >> 4;



            // ignore trailing padding



            return number;

        }



        public LSL_Float llGetGMTclock()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Float();



            return DateTime.UtcNow.TimeOfDay.TotalSeconds;

        }



        public LSL_String llGetHTTPHeader(LSL_Key request_id, string header)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            if (m_UrlModule != null)

                return m_UrlModule.GetHttpHeader(request_id, header);

            return String.Empty;

        }





        public LSL_String llGetSimulatorHostname()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            IUrlModule UrlModule = World.RequestModuleInterface<IUrlModule>();

            return UrlModule.ExternalHostNameForLSL;

        }



        //  <summary>

        //  Scan the string supplied in 'src' and

        //  tokenize it based upon two sets of

        //  tokenizers provided in two lists,

        //  separators and spacers.

        //  </summary>

        //

        //  <remarks>

        //  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.

        //  </remarks>



        private LSL_List ParseString(string src, LSL_List separators, LSL_List spacers, bool keepNulls)

        {

            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];



            //    Initial capacity reduces resize cost



            LSL_List tokens = new LSL_List();



            //    All entries are initially valid



            for (int i = 0; i < mlen; i++)

                active[i] = true;



            offset[mlen] = srclen;



            while (beginning < srclen)

            {

                int best = mlen;



                //    Scan for separators



                int j;

                for (j = 0; j < seplen; j++)

                {

                    if (separray[j].ToString() == String.Empty)

                        active[j] = false;



                    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 (spcarray[j - seplen].ToString() == String.Empty)

                            active[j] = false;



                        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

                    if ((keepNulls) || ((srclen - beginning) > 0))

                        tokens.Add(new LSL_String(src.Substring(beginning, srclen - beginning)));

                    break;

                }



                //    Otherwise we just add the newly delimited token

                //    and recalculate where the search should continue.

                if ((keepNulls) || ((offset[best] - beginning) > 0))

                    tokens.Add(new LSL_String(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;

                    string str = spcarray[best - seplen].ToString();

                    if ((keepNulls) || ((str.Length > 0)))

                        tokens.Add(new LSL_String(str));

                }

            }



            //    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) && (keepNulls))

            {

                if (srclen != 0)

                    tokens.Add(new LSL_String(""));

            }



            return tokens;

        }



        public LSL_List llParseString2List(string src, LSL_List separators, LSL_List spacers)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "llParseString2List", m_host, "LSL", m_itemID))

                return new LSL_List();

            return ParseString(src, separators, spacers, false);

        }



        public LSL_List llParseStringKeepNulls(string src, LSL_List separators, LSL_List spacers)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "llParseStringKeepNulls", m_host, "LSL", m_itemID))

                return new LSL_List();

            return ParseString(src, separators, spacers, true);

        }



        public LSL_Integer llGetObjectPermMask(int mask)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Integer();





            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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            if (m_ScriptEngine.Config.GetBoolean("AllowGodFunctions", false))

            {

                if (World.Permissions.CanRunConsoleCommand(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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            if (m_ScriptEngine.Config.GetBoolean("AllowGodFunctions", false))

            {

                if (World.Permissions.CanRunConsoleCommand(m_host.OwnerID))

                {

                    lock (m_host.TaskInventory)

                    {

                        foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                        {

                            if (inv.Value.Name == item)

                            {

                                switch (mask)

                                {

                                    case 0:

                                        inv.Value.BasePermissions = (uint) value;

                                        break;

                                    case 1:

                                        inv.Value.CurrentPermissions = (uint) value;

                                        break;

                                    case 2:

                                        inv.Value.GroupPermissions = (uint) value;

                                        break;

                                    case 3:

                                        inv.Value.EveryonePermissions = (uint) value;

                                        break;

                                    case 4:

                                        inv.Value.NextPermissions = (uint) value;

                                        break;

                                }

                            }

                        }

                    }

                }

            }

        }



        public LSL_String llGetInventoryCreator(string item)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> 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)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            IChatModule chatModule = World.RequestModuleInterface<IChatModule>();

            if (chatModule != null)

                chatModule.SimChatBroadcast(msg, ChatTypeEnum.Owner, 0,

                                            m_host.AbsolutePosition, m_host.Name, m_host.UUID, false, UUID.Zero, World);

        }



        public LSL_String llRequestSecureURL()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            if (m_UrlModule != null)

                return m_UrlModule.RequestSecureURL(m_ScriptEngine.ScriptModule, m_host, m_itemID).ToString();

            return UUID.Zero.ToString();

        }



        public LSL_String llGetEnv(LSL_String name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            if (name == "sim_channel")

                return "Aurora-Sim Server";

            if (name == "sim_version")

                return World.RequestModuleInterface<ISimulationBase>().Version;

            return "";

        }



        public void llTeleportAgent(LSL_Key avatar, LSL_String landmark, LSL_Vector position, LSL_Vector look_at)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            UUID invItemID = InventorySelf();



            if (invItemID == UUID.Zero)

                return;



            lock (m_host.TaskInventory)

            {

                if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)

                {

                    ShoutError("No permissions to teleport the agent");

                    return;

                }



                if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TELEPORT) == 0)

                {

                    ShoutError("No permissions to teleport the agent");

                    return;

                }

            }



            TaskInventoryItem item = null;

            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                {

                    if (inv.Value.Name == landmark)

                        item = inv.Value;

                }

            }

            if (item == null && landmark != "")

                return;



            IScenePresence presence = World.GetScenePresence(m_host.OwnerID);

            if (presence != null)

            {

                IEntityTransferModule module = World.RequestModuleInterface<IEntityTransferModule>();

                if (module != null)

                {

                    if (landmark == "")

                        module.Teleport(presence, World.RegionInfo.RegionHandle,

                                        position.ToVector3(), look_at.ToVector3(), (uint) TeleportFlags.ViaLocation);

                    else

                    {

                        AssetLandmark lm = new AssetLandmark(

                            World.AssetService.Get(item.AssetID.ToString()));

                        module.Teleport(presence, lm.RegionHandle, lm.Position,

                                        look_at.ToVector3(), (uint) TeleportFlags.ViaLocation);

                    }

                }

            }

        }



        public void llTeleportAgentGlobalCoords(LSL_Key agent, LSL_Vector global_coordinates,

                                                LSL_Vector region_coordinates, LSL_Vector look_at)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            UUID invItemID = InventorySelf();



            if (invItemID == UUID.Zero)

                return;



            lock (m_host.TaskInventory)

            {

                if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)

                {

                    ShoutError("No permissions to teleport the agent");

                    return;

                }



                if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TELEPORT) == 0)

                {

                    ShoutError("No permissions to teleport the agent");

                    return;

                }

            }



            IScenePresence presence = World.GetScenePresence(m_host.OwnerID);

            if (presence != null)

            {

                IEntityTransferModule module = World.RequestModuleInterface<IEntityTransferModule>();

                if (module != null)

                {

                    module.Teleport(presence,

                                    Utils.UIntsToLong((uint) global_coordinates.x, (uint) global_coordinates.y),

                                    region_coordinates.ToVector3(), look_at.ToVector3(),

                                    (uint) TeleportFlags.ViaLocation);

                }

            }

        }



        public LSL_Key llRequestSimulatorData(string simulator, int data)

        {

            UUID tid = UUID.Zero;



            try

            {

                if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



                string reply = String.Empty;



                GridRegion info = World.RegionInfo.RegionName == simulator

                                      ? new GridRegion(World.RegionInfo)

                                      : World.GridService.GetRegionByName(World.RegionInfo.AllScopeIDs, simulator);





                switch (data)

                {

                    case 5: // DATA_SIM_POS

                        if (info == null)

                            break;



                        reply = new LSL_Vector(

                            info.RegionLocX,

                            info.RegionLocY,

                            0).ToString();

                        break;

                    case 6: // DATA_SIM_STATUS

                        if (info != null)

                        {

                            reply = (info.Flags & (int) RegionFlags.RegionOnline) != 0 ? "up" : "down";

                        }

                            //if() starting

                            //if() stopping

                            //if() crashed

                        else

                            reply = "unknown";

                        break;

                    case 7: // DATA_SIM_RATING

                        if (info == null)

                            break;



                        uint access = Util.ConvertAccessLevelToMaturity(info.Access);

                        if (access == 0)

                            reply = "PG";

                        else if (access == 1)

                            reply = "MATURE";

                        else if (access == 2)

                            reply = "ADULT";

                        else

                            reply = "UNKNOWN";

                        break;

                    case 128:

                        try

                        {

                            if (

                                !ScriptProtection.CheckThreatLevel(ThreatLevel.High, "llRequestSimulatorData", m_host,

                                                                   "LSL", m_itemID)) return "";

                            reply = "Aurora";

                        }

                        catch

                        {

                            reply = "";

                        }

                        break;

                }

                if (reply != "")

                {

                    UUID rq = UUID.Random();



                    DataserverPlugin dataserverPlugin = (DataserverPlugin) m_ScriptEngine.GetScriptPlugin("Dataserver");



                    tid = dataserverPlugin.RegisterRequest(m_host.UUID, m_itemID, rq.ToString());



                    dataserverPlugin.AddReply(rq.ToString(), reply, 1000);

                }

            }

            catch

            {

            }



            ScriptSleep(1000);

            return (LSL_Key) tid.ToString();

        }



        public LSL_String llRequestURL()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";





            if (m_UrlModule != null)

                return m_UrlModule.RequestURL(m_ScriptEngine.ScriptModule, m_host, m_itemID).ToString();

            return UUID.Zero.ToString();

        }



        public void llForceMouselook(int mouselook)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;



            m_host.ForceMouselook = (mouselook != 0);

        }



        /// <summary>

        ///     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.

        /// </summary>

        public LSL_List llListReplaceList(LSL_List dest, LSL_List src, int start, int end)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();





            // 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)

                {

                    LSL_List 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);

                    }

                    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.

                if (end + 1 < dest.Length)

                {

                    return src + dest.GetSublist(end + 1, -1);

                }

                return src;

            }

            // Finally, if start > end, we strip away a prefix and

            // a suffix, to leave the list that sits <between> 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.

            return dest.GetSublist(end + 1, start - 1) + src;

        }



        public DateTime llLoadURL(string avatar_id, string message, string url)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            IDialogModule dm = World.RequestModuleInterface<IDialogModule>();

            if (null != dm)

                dm.SendUrlToUser(

                    new UUID(avatar_id), m_host.Name, m_host.UUID, m_host.OwnerID, false, message, url);



            return PScriptSleep(10000);

        }



        public DateTime llParcelMediaCommandList(LSL_List commandList)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;





            // according to the docs, this command only works if script owner and land owner are the same

            // lets add estate owners and gods, too, and use the generic permission check.

            IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

            if (parcelManagement != null)

            {

                ILandObject landObject = parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                        m_host.AbsolutePosition.Y);

                if (landObject == null)

                    return DateTime.Now;

                if (!World.Permissions.CanEditParcel(m_host.OwnerID, landObject))

                    return DateTime.Now;



                bool update = false; // send a ParcelMediaUpdate (and possibly change the land's media URL)?

                byte loop = 0;



                LandData landData = landObject.LandData;

                string url = landData.MediaURL;

                string texture = landData.MediaID.ToString();

                bool autoAlign = landData.MediaAutoScale != 0;

                string mediaType = landData.MediaType;

                string description = landData.MediaDescription;

                int width = landData.MediaWidth;

                int height = landData.MediaHeight;

                float mediaLoopSet = landData.MediaLoopSet;



                ParcelMediaCommandEnum? commandToSend = null;

                float time = 0.0f; // default is from start



                IScenePresence presence = null;



                for (int i = 0; i < commandList.Data.Length; i++)

                {

                    int tmp = ((LSL_Integer) commandList.Data[i]).value;

                    ParcelMediaCommandEnum command = (ParcelMediaCommandEnum) tmp;

                    switch (command)

                    {

                        case ParcelMediaCommandEnum.Agent:

                            // we send only to one agent

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_String)

                                {

                                    UUID agentID;

                                    if (UUID.TryParse((LSL_String) commandList.Data[i + 1], out agentID))

                                    {

                                        presence = World.GetScenePresence(agentID);

                                    }

                                }

                                else ShoutError("The argument of PARCEL_MEDIA_COMMAND_AGENT must be a key");

                                ++i;

                            }

                            break;



                        case ParcelMediaCommandEnum.Loop:

                            loop = 1;

                            commandToSend = command;

                            update = true; //need to send the media update packet to set looping

                            break;



                        case ParcelMediaCommandEnum.LoopSet:

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_Float)

                                {

                                    mediaLoopSet = (float) ((LSL_Float) commandList.Data[i + 1]).value;

                                }

                                else ShoutError("The argument of PARCEL_MEDIA_COMMAND_LOOP_SET must be a float");

                                ++i;

                            }

                            commandToSend = command;

                            break;



                        case ParcelMediaCommandEnum.Play:

                            loop = 0;

                            commandToSend = command;

                            update = true; //need to send the media update packet to make sure it doesn't loop

                            break;



                        case ParcelMediaCommandEnum.Pause:

                        case ParcelMediaCommandEnum.Stop:

                        case ParcelMediaCommandEnum.Unload:

                            commandToSend = command;

                            break;



                        case ParcelMediaCommandEnum.Url:

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_String)

                                {

                                    url = (LSL_String) commandList.Data[i + 1];

                                    update = true;

                                }

                                else ShoutError("The argument of PARCEL_MEDIA_COMMAND_URL must be a string.");

                                ++i;

                            }

                            break;



                        case ParcelMediaCommandEnum.Texture:

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_String)

                                {

                                    texture = (LSL_String) commandList.Data[i + 1];

                                    update = true;

                                }

                                else

                                    ShoutError("The argument of PARCEL_MEDIA_COMMAND_TEXTURE must be a string or key.");

                                ++i;

                            }

                            break;



                        case ParcelMediaCommandEnum.Time:

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_Float)

                                {

                                    time = (float) (LSL_Float) commandList.Data[i + 1];

                                }

                                else ShoutError("The argument of PARCEL_MEDIA_COMMAND_TIME must be a float.");

                                ++i;

                            }

                            commandToSend = command;

                            break;



                        case ParcelMediaCommandEnum.AutoAlign:

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_Integer)

                                {

                                    autoAlign = (LSL_Integer) commandList.Data[i + 1];

                                    update = true;

                                }



                                else ShoutError("The argument of PARCEL_MEDIA_COMMAND_AUTO_ALIGN must be an integer.");

                                ++i;

                            }

                            break;



                        case ParcelMediaCommandEnum.Type:

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_String)

                                {

                                    mediaType = (LSL_String) commandList.Data[i + 1];

                                    update = true;

                                }

                                else ShoutError("The argument of PARCEL_MEDIA_COMMAND_TYPE must be a string.");

                                ++i;

                            }

                            break;



                        case ParcelMediaCommandEnum.Desc:

                            if ((i + 1) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_String)

                                {

                                    description = (LSL_String) commandList.Data[i + 1];

                                    update = true;

                                }

                                else ShoutError("The argument of PARCEL_MEDIA_COMMAND_DESC must be a string.");

                                ++i;

                            }

                            break;

                        case ParcelMediaCommandEnum.Size:

                            if ((i + 2) < commandList.Length)

                            {

                                if (commandList.Data[i + 1] is LSL_Integer)

                                {

                                    if (commandList.Data[i + 2] is LSL_Integer)

                                    {

                                        width = (LSL_Integer) commandList.Data[i + 1];

                                        height = (LSL_Integer) commandList.Data[i + 2];

                                        update = true;

                                    }

                                    else

                                        ShoutError(

                                            "The second argument of PARCEL_MEDIA_COMMAND_SIZE must be an integer.");

                                }

                                else ShoutError("The first argument of PARCEL_MEDIA_COMMAND_SIZE must be an integer.");

                                i += 2;

                            }

                            break;



                        default:

                            NotImplemented("llParcelMediaCommandList parameter not supported yet: " +

                                           Enum.Parse(typeof (ParcelMediaCommandEnum), commandList.Data[i].ToString()));

                            break;

                    } //end switch

                } //end for



                // if we didn't get a presence, we send to all and change the url

                // if we did get a presence, we only send to the agent specified, and *don't change the land settings*!



                // did something important change or do we only start/stop/pause?

                if (update)

                {

                    if (presence == null)

                    {

                        // we send to all

                        landData.MediaID = new UUID(texture);

                        landData.MediaAutoScale = autoAlign ? (byte) 1 : (byte) 0;

                        landData.MediaWidth = width;

                        landData.MediaHeight = height;

                        landData.MediaType = mediaType;

                        landData.MediaDescription = description;

                        landData.MediaLoop = loop == 1;

                        landData.MediaLoopSet = mediaLoopSet;



                        // do that one last, it will cause a ParcelPropertiesUpdate

                        landObject.SetMediaUrl(url);



                        // now send to all (non-child) agents

                        World.ForEachScenePresence(delegate(IScenePresence sp)

                                                       {

                                                           if (!sp.IsChildAgent &&

                                                               (sp.CurrentParcelUUID == landData.GlobalID))

                                                           {

                                                               sp.ControllingClient.SendParcelMediaUpdate(

                                                                   landData.MediaURL,

                                                                   landData.MediaID,

                                                                   landData.MediaAutoScale,

                                                                   mediaType,

                                                                   description,

                                                                   width, height,

                                                                   loop);

                                                           }

                                                       });

                    }

                    else if (!presence.IsChildAgent)

                    {

                        // we only send to one (root) agent

                        presence.ControllingClient.SendParcelMediaUpdate(url,

                                                                         new UUID(texture),

                                                                         autoAlign ? (byte) 1 : (byte) 0,

                                                                         mediaType,

                                                                         description,

                                                                         width, height,

                                                                         loop);

                    }

                }



                if (commandToSend != null)

                {

                    float ParamToSend = time;

                    if ((ParcelMediaCommandEnum) commandToSend == ParcelMediaCommandEnum.LoopSet)

                        ParamToSend = mediaLoopSet;



                    // the commandList contained a start/stop/... command, too

                    if (presence == null)

                    {

                        // send to all (non-child) agents

                        World.ForEachScenePresence(delegate(IScenePresence sp)

                                                       {

                                                           if (!sp.IsChildAgent)

                                                           {

                                                               sp.ControllingClient.SendParcelMediaCommand(

                                                                   landData.Flags,

                                                                   (ParcelMediaCommandEnum) commandToSend,

                                                                   ParamToSend);

                                                           }

                                                       });

                    }

                    else if (!presence.IsChildAgent)

                    {

                        presence.ControllingClient.SendParcelMediaCommand(landData.Flags,

                                                                          (ParcelMediaCommandEnum) commandToSend,

                                                                          ParamToSend);

                    }

                }

            }

            return PScriptSleep(2000);

        }



        public LSL_List llParcelMediaQuery(LSL_List aList)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();



            LSL_List list = new LSL_List();

            foreach (object t in aList.Data)

            {

                if (t != null)

                {

                    IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

                    if (parcelManagement != null)

                    {

                        LSL_Integer tmp = (LSL_Integer) t;

                        switch ((ParcelMediaCommandEnum) tmp.value)

                        {

                            case ParcelMediaCommandEnum.Url:

                                list.Add(

                                    new LSL_String(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y).LandData.MediaURL));

                                break;

                            case ParcelMediaCommandEnum.Desc:

                                list.Add(

                                    new LSL_String(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y)

                                                        .LandData.MediaDescription));

                                break;

                            case ParcelMediaCommandEnum.Texture:

                                list.Add(

                                    new LSL_String(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y)

                                                        .LandData.MediaID.ToString()));

                                break;

                            case ParcelMediaCommandEnum.Type:

                                list.Add(

                                    new LSL_String(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y).LandData.MediaType));

                                break;

                            case ParcelMediaCommandEnum.Loop:

                                list.Add(

                                    new LSL_Integer(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y).LandData.MediaLoop

                                            ? 1

                                            : 0));

                                break;

                            case ParcelMediaCommandEnum.LoopSet:

                                list.Add(

                                    new LSL_Integer(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y).LandData.MediaLoopSet));

                                break;

                            case ParcelMediaCommandEnum.Size:

                                list.Add(

                                    new LSL_String(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y).LandData.MediaHeight));

                                list.Add(

                                    new LSL_String(

                                        parcelManagement.GetLandObject(m_host.AbsolutePosition.X,

                                                                       m_host.AbsolutePosition.Y).LandData.MediaWidth));

                                break;

                            default:

                                const ParcelMediaCommandEnum mediaCommandEnum = ParcelMediaCommandEnum.Url;

                                NotImplemented("llParcelMediaQuery parameter do not supported yet: " +

                                               Enum.Parse(mediaCommandEnum.GetType(), t.ToString()));

                                break;

                        }

                    }

                }

            }

            ScriptSleep(2000);

            return list;

        }



        public LSL_List llGetPrimMediaParams(LSL_Integer face, LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();

            ScriptSleep(1000);



            // LSL Spec http://wiki.secondlife.com/wiki/LlGetPrimMediaParams says to fail silently if face is invalid

            // TODO: Need to correctly handle case where a face has no media (which gives back an empty list).

            // Assuming silently fail means give back an empty list.  Ideally, need to check this.

            if (face < 0 || face > m_host.GetNumberOfSides() - 1)

                return new LSL_List();

            return GetPrimMediaParams(m_host, face, rules);

        }



        public LSL_List llGetLinkMedia(LSL_Integer link, LSL_Integer face, LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_List();



            List<ISceneChildEntity> entities = GetLinkParts(link);

            if (entities.Count == 0 || face < 0 || face > entities[0].GetNumberOfSides() - 1)

                return new LSL_List();

            LSL_List res = new LSL_List();



#if (!ISWIN)

            LSL_List result = res;

            foreach (ISceneChildEntity part in entities)

            {

                LSL_List list = GetPrimMediaParams(part, face, rules);

                result = result + list;

            }

            return result;

#else

            return entities.Select(part => GetPrimMediaParams(part, face, rules)).Aggregate(res,

                                                                                            (current, partRes) =>

                                                                                            current + partRes);

#endif

        }



        private LSL_List GetPrimMediaParams(ISceneChildEntity obj, int face, LSL_List rules)

        {

            IMoapModule module = World.RequestModuleInterface<IMoapModule>();

            if (null == module)

                throw new Exception("Media on a prim functions not available");



            MediaEntry me = module.GetMediaEntry(obj, face);



            // As per http://wiki.secondlife.com/wiki/LlGetPrimMediaParams

            if (null == me)

                return new LSL_List();



            LSL_List res = new LSL_List();



            for (int i = 0; i < rules.Length; i++)

            {

                int code = (int) rules.GetLSLIntegerItem(i);



                if (code == ScriptBaseClass.PRIM_MEDIA_ALT_IMAGE_ENABLE)

                {

                    // Not implemented

                    res.Add(new LSL_Integer(0));

                }



                else if (code == ScriptBaseClass.PRIM_MEDIA_CONTROLS)

                {

                    res.Add(me.Controls == MediaControls.Standard

                                ? new LSL_Integer(ScriptBaseClass.PRIM_MEDIA_CONTROLS_STANDARD)

                                : new LSL_Integer(ScriptBaseClass.PRIM_MEDIA_CONTROLS_MINI));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_CURRENT_URL)

                {

                    res.Add(new LSL_String(me.CurrentURL));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_HOME_URL)

                {

                    res.Add(new LSL_String(me.HomeURL));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_LOOP)

                {

                    res.Add(me.AutoLoop ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_PLAY)

                {

                    res.Add(me.AutoPlay ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_SCALE)

                {

                    res.Add(me.AutoScale ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_ZOOM)

                {

                    res.Add(me.AutoZoom ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_FIRST_CLICK_INTERACT)

                {

                    res.Add(me.InteractOnFirstClick ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_WIDTH_PIXELS)

                {

                    res.Add(new LSL_Integer(me.Width));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_HEIGHT_PIXELS)

                {

                    res.Add(new LSL_Integer(me.Height));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_WHITELIST_ENABLE)

                {

                    res.Add(me.EnableWhiteList ? ScriptBaseClass.TRUE : ScriptBaseClass.FALSE);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_WHITELIST)

                {

                    string[] urls = (string[]) me.WhiteList.Clone();



                    for (int j = 0; j < urls.Length; j++)

                        urls[j] = Uri.EscapeDataString(urls[j]);



                    res.Add(new LSL_String(string.Join(", ", urls)));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_PERMS_INTERACT)

                {

                    res.Add(new LSL_Integer((int) me.InteractPermissions));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_PERMS_CONTROL)

                {

                    res.Add(new LSL_Integer((int) me.ControlPermissions));

                }

            }



            return res;

        }



        public LSL_Integer llClearPrimMedia(LSL_Integer face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;

            ScriptSleep(1000);



            ClearPrimMedia(m_host, face);



            return ScriptBaseClass.LSL_STATUS_OK;

        }



        public LSL_Integer llClearLinkMedia(LSL_Integer link, LSL_Integer face)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;

            ScriptSleep(1000);



            List<ISceneChildEntity> entities = GetLinkParts(link);

            if (entities.Count == 0 || face < 0 || face > entities[0].GetNumberOfSides() - 1)

                return ScriptBaseClass.LSL_STATUS_OK;



            foreach (ISceneChildEntity child in entities)

                ClearPrimMedia(child, face);



            return ScriptBaseClass.LSL_STATUS_OK;

        }



        private void ClearPrimMedia(ISceneChildEntity entity, LSL_Integer face)

        {

            // LSL Spec http://wiki.secondlife.com/wiki/LlClearPrimMedia says to fail silently if face is invalid

            // Assuming silently fail means sending back LSL_STATUS_OK.  Ideally, need to check this.

            // FIXME: Don't perform the media check directly

            if (face < 0 || face > entity.GetNumberOfSides() - 1)

                return;



            IMoapModule module = World.RequestModuleInterface<IMoapModule>();

            if (null == module)

                throw new Exception("Media on a prim functions not available");



            module.ClearMediaEntry(entity, face);

        }



        public LSL_Integer llSetPrimMediaParams(LSL_Integer face, LSL_List rules)

        {

            ScriptSleep(1000);



            // LSL Spec http://wiki.secondlife.com/wiki/LlSetPrimMediaParams says to fail silently if face is invalid

            // Assuming silently fail means sending back LSL_STATUS_OK.  Ideally, need to check this.

            // Don't perform the media check directly

            if (face < 0 || face > m_host.GetNumberOfSides() - 1)

                return ScriptBaseClass.LSL_STATUS_OK;

            return SetPrimMediaParams(m_host, face, rules);

        }



        public LSL_Integer llSetLinkMedia(LSL_Integer link, LSL_Integer face, LSL_List rules)

        {

            ScriptSleep(1000);



            // LSL Spec http://wiki.secondlife.com/wiki/LlSetPrimMediaParams says to fail silently if face is invalid

            // Assuming silently fail means sending back LSL_STATUS_OK.  Ideally, need to check this.

            // Don't perform the media check directly

            List<ISceneChildEntity> entities = GetLinkParts(link);

            if (entities.Count == 0 || face < 0 || face > entities[0].GetNumberOfSides() - 1)

                return ScriptBaseClass.LSL_STATUS_OK;

            foreach (ISceneChildEntity child in entities)

                SetPrimMediaParams(child, face, rules);

            return ScriptBaseClass.LSL_STATUS_OK;

        }



        public LSL_Integer SetPrimMediaParams(ISceneChildEntity obj, int face, LSL_List rules)

        {

            IMoapModule module = World.RequestModuleInterface<IMoapModule>();

            if (null == module)

                throw new Exception("Media on a prim functions not available");



            MediaEntry me = module.GetMediaEntry(obj, face) ?? new MediaEntry();



            int i = 0;



            while (i < rules.Length - 1)

            {

                int code = rules.GetLSLIntegerItem(i++);



                if (code == ScriptBaseClass.PRIM_MEDIA_ALT_IMAGE_ENABLE)

                {

                    me.EnableAlterntiveImage = (rules.GetLSLIntegerItem(i++) != 0);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_CONTROLS)

                {

                    int v = rules.GetLSLIntegerItem(i++);

                    me.Controls = ScriptBaseClass.PRIM_MEDIA_CONTROLS_STANDARD == v

                                      ? MediaControls.Standard

                                      : MediaControls.Mini;

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_CURRENT_URL)

                {

                    me.CurrentURL = rules.GetLSLStringItem(i++);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_HOME_URL)

                {

                    me.HomeURL = rules.GetLSLStringItem(i++);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_LOOP)

                {

                    me.AutoLoop = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_PLAY)

                {

                    me.AutoPlay = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_SCALE)

                {

                    me.AutoScale = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_AUTO_ZOOM)

                {

                    me.AutoZoom = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_FIRST_CLICK_INTERACT)

                {

                    me.InteractOnFirstClick = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_WIDTH_PIXELS)

                {

                    me.Width = rules.GetLSLIntegerItem(i++);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_HEIGHT_PIXELS)

                {

                    me.Height = rules.GetLSLIntegerItem(i++);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_WHITELIST_ENABLE)

                {

                    me.EnableWhiteList = (ScriptBaseClass.TRUE == rules.GetLSLIntegerItem(i++));

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_WHITELIST)

                {

                    string[] rawWhiteListUrls = rules.GetLSLStringItem(i++).ToString().Split(new[] {','});

                    List<string> whiteListUrls = new List<string>();

#if (!ISWIN)

                    Array.ForEach(

                        rawWhiteListUrls, delegate(string rawUrl) { whiteListUrls.Add(rawUrl.Trim()); });

#else

                    Array.ForEach(

                        rawWhiteListUrls, rawUrl => whiteListUrls.Add(rawUrl.Trim()));

#endif

                    me.WhiteList = whiteListUrls.ToArray();

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_PERMS_INTERACT)

                {

                    me.InteractPermissions = (MediaPermission) (byte) (int) rules.GetLSLIntegerItem(i++);

                }

                else if (code == ScriptBaseClass.PRIM_MEDIA_PERMS_CONTROL)

                {

                    me.ControlPermissions = (MediaPermission) (byte) (int) rules.GetLSLIntegerItem(i++);

                }

            }



            module.SetMediaEntry(obj, face, me);



            return ScriptBaseClass.LSL_STATUS_OK;

        }



        public LSL_Integer llModPow(int a, int b, int c)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;



            Int64 tmp = 0;

            Math.DivRem(Convert.ToInt64(Math.Pow(a, b)), c, out tmp);

            ScriptSleep(100);

            return Convert.ToInt32(tmp);

        }



        public LSL_Integer llGetInventoryType(string name)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return 0;





            lock (m_host.TaskInventory)

            {

                foreach (KeyValuePair<UUID, TaskInventoryItem> inv in m_host.TaskInventory)

                {

                    if (inv.Value.Name == name)

                    {

                        return inv.Value.Type;

                    }

                }

            }



            return -1;

        }



        public void llSetPayPrice(int price, LSL_List quick_pay_buttons)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;

            m_host.ParentEntity.RootChild.PayPrice[0] = price;



            if (quick_pay_buttons.Data.Length > 0)

                m_host.ParentEntity.RootChild.PayPrice[1] = (LSL_Integer) quick_pay_buttons.Data[0];

            else

                m_host.ParentEntity.RootChild.PayPrice[1] = (LSL_Integer) (-2);

            if (quick_pay_buttons.Data.Length > 1)

                m_host.ParentEntity.RootChild.PayPrice[2] = (LSL_Integer) quick_pay_buttons.Data[1];

            else

                m_host.ParentEntity.RootChild.PayPrice[2] = (LSL_Integer) (-2);

            if (quick_pay_buttons.Data.Length > 2)

                m_host.ParentEntity.RootChild.PayPrice[3] = (LSL_Integer) quick_pay_buttons.Data[2];

            else

                m_host.ParentEntity.RootChild.PayPrice[3] = (LSL_Integer) (-2);

            if (quick_pay_buttons.Data.Length > 3)

                m_host.ParentEntity.RootChild.PayPrice[4] = (LSL_Integer) quick_pay_buttons.Data[3];

            else

                m_host.ParentEntity.RootChild.PayPrice[4] = (LSL_Integer) (-2);

        }



        public LSL_Vector llGetCameraPos()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Vector();



            UUID invItemID = InventorySelf();



            if (invItemID == UUID.Zero)

                return new LSL_Vector();



            lock (m_host.TaskInventory)

            {

                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();

                }

            }



            IScenePresence 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()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_Rotation();



            UUID invItemID = InventorySelf();

            if (invItemID == UUID.Zero)

                return new LSL_Rotation();



            lock (m_host.TaskInventory)

            {

                if (m_host.TaskInventory[invItemID].PermsGranter == UUID.Zero)

                    return new LSL_Rotation();



                if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_TRACK_CAMERA) == 0)

                {

                    ShoutError("No permissions to track the camera");

                    return new LSL_Rotation();

                }

            }



            IScenePresence presence = World.GetScenePresence(m_host.OwnerID);

            if (presence != null)

            {

                return new LSL_Rotation(presence.CameraRotation.X, presence.CameraRotation.Y, presence.CameraRotation.Z,

                                        presence.CameraRotation.W);

            }



            return new LSL_Rotation();

        }



        /// <summary>

        ///     The SL implementation does nothing, it is deprecated

        ///     This duplicates SL

        /// </summary>

        public DateTime llSetPrimURL(string url)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            return PScriptSleep(2000);

        }



        /// <summary>

        ///     The SL implementation shouts an error, it is deprecated

        ///     This duplicates SL

        /// </summary>

        public DateTime llRefreshPrimURL()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            Deprecated("llRefreshPrimURL");

            return PScriptSleep(20000);

        }



        public LSL_String llEscapeURL(string url)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return new LSL_String();



            try

            {

                return Uri.EscapeDataString(url);

            }

            catch (Exception ex)

            {

                return "llEscapeURL: " + ex;

            }

        }



        public LSL_String llUnescapeURL(string url)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return "";



            try

            {

                return Uri.UnescapeDataString(url);

            }

            catch (Exception ex)

            {

                return "llUnescapeURL: " + ex;

            }

        }



        public DateTime llMapDestination(string simname, LSL_Vector pos, LSL_Vector lookAt)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            UUID avatarID = m_host.OwnerID;

            DetectParams detectedParams = m_ScriptEngine.GetDetectParams(m_host.UUID, m_itemID, 0);

            // only works on the first detected avatar

            //This only works in touch events or if the item is attached to the avatar

            if (detectedParams == null && !m_host.IsAttachment) return DateTime.Now;



            if (detectedParams != null)

                avatarID = detectedParams.Key;



            IScenePresence avatar = World.GetScenePresence(avatarID);

            if (avatar != null)

            {

                IMuteListModule module = m_host.ParentEntity.Scene.RequestModuleInterface<IMuteListModule>();

                if (module != null)

                {

                    bool cached = false; //Unneeded

#if (!ISWIN)

                    foreach (MuteList mute in module.GetMutes(avatar.UUID, out cached))

                        if (mute.MuteID == m_host.OwnerID)

                            return DateTime.Now;//If the avatar is muted, they don't get any contact from the muted av

#else

                    if (module.GetMutes(avatar.UUID, out cached).Any(mute => mute.MuteID == m_host.OwnerID))

                    {

                        return DateTime.Now; //If the avatar is muted, they don't get any contact from the muted av

                    }

#endif

                }

                avatar.ControllingClient.SendScriptTeleportRequest(m_host.Name, simname,

                                                                   new Vector3((float) pos.x, (float) pos.y,

                                                                               (float) pos.z),

                                                                   new Vector3((float) lookAt.x, (float) lookAt.y,

                                                                               (float) lookAt.z));

            }

            return PScriptSleep(1000);

        }



        public DateTime llAddToLandBanList(string avatar, double hours)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

            if (parcelManagement != null)

            {

                LandData land =

                    parcelManagement.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).LandData;

                if (land.OwnerID == m_host.OwnerID)

                {

                    ParcelManager.ParcelAccessEntry entry = new ParcelManager.ParcelAccessEntry();

                    UUID key;

                    if (UUID.TryParse(avatar, out key))

                    {

                        entry.AgentID = key;

                        entry.Flags = AccessList.Ban;

                        entry.Time = DateTime.Now.AddHours(hours);

                        land.ParcelAccessList.Add(entry);

                    }

                }

            }

            return PScriptSleep(100);

        }



        public DateTime llRemoveFromLandPassList(string avatar)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

            if (parcelManagement != null)

            {

                LandData land =

                    parcelManagement.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).LandData;

                if (land.OwnerID == m_host.OwnerID)

                {

                    UUID key;

                    if (UUID.TryParse(avatar, out key))

                    {

                        foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList)

                        {

                            if (entry.AgentID == key && entry.Flags == AccessList.Access)

                            {

                                land.ParcelAccessList.Remove(entry);

                                break;

                            }

                        }

                    }

                }

            }

            return PScriptSleep(100);

        }



        public DateTime llRemoveFromLandBanList(string avatar)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID))

                return DateTime.Now;



            IParcelManagementModule parcelManagement = World.RequestModuleInterface<IParcelManagementModule>();

            if (parcelManagement != null)

            {

                LandData land =

                    parcelManagement.GetLandObject(m_host.AbsolutePosition.X, m_host.AbsolutePosition.Y).LandData;

                if (land.OwnerID == m_host.OwnerID)

                {

                    UUID key;

                    if (UUID.TryParse(avatar, out key))

                    {

                        foreach (ParcelManager.ParcelAccessEntry entry in land.ParcelAccessList)

                        {

                            if (entry.AgentID == key && entry.Flags == AccessList.Ban)

                            {

                                land.ParcelAccessList.Remove(entry);

                                break;

                            }

                        }

                    }

                }

            }

            return PScriptSleep(100);

        }



        public void llSetCameraParams(LSL_List rules)

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            // 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;



            UUID agentID;

            lock (m_host.TaskInventory)

            {

                // we need the permission first, to know which avatar we want to set the camera for

                agentID = m_host.TaskInventory[invItemID].PermsGranter;



                if (agentID == UUID.Zero) return;

                if ((m_host.TaskInventory[invItemID].PermsMask & ScriptBaseClass.PERMISSION_CONTROL_CAMERA) == 0)

                    return;

            }



            IScenePresence presence = World.GetScenePresence(agentID);



            // we are not interested in child-agents

            if (presence.IsChildAgent) return;



            SortedDictionary<int, float> parameters = new SortedDictionary<int, float>();

            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)

                if (type == ScriptBaseClass.CAMERA_FOCUS ||

                    type == ScriptBaseClass.CAMERA_FOCUS_OFFSET ||

                    type == 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);

                }

                else

                {

                    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, ((LSL_Integer) data[i]).value);

                    else parameters.Add(type, Convert.ToSingle(data[i]));

                }

            }

            if (parameters.Count > 0) presence.ControllingClient.SendSetFollowCamProperties(objectID, parameters);

        }



        public void llClearCameraParams()

        {

            if (!ScriptProtection.CheckThreatLevel(ThreatLevel.None, "LSL", m_host, "LSL", m_itemID)) return;





            // our key in the object we are in

            UUID invItemID = InventorySelf();

            if (invItemID == UUID.Zero) return;



            // the object we are in

            UUID objec