Push All Scripts

Jontte_Gremlins_calculator_script/Jontte_Gremlins_calculator_script.sol

@@ -0,0 +1,3 @@
+<Solution name="Jontte_Gremlins_calculator_script">
+<Project name="Jontte_Gremlins_calculator_script" path="Jontte_Gremlins_calculator_script\Jontte_Gremlins_calculator_script.prj" active="true"/>
+</Solution>

Jontte_Gremlins_calculator_script/Jontte_Gremlins_calculator_script/Jontte_Gremlins_calculator_script.prj

@@ -0,0 +1,6 @@
+<Project name="Jontte_Gremlins_calculator_script" guid="D8033EBC-6C00-1014-B904-200204C60A89">
+	<Object name="Object" guid="D8033F97-6C00-1014-B904-200204C60A89">
+		<Script name="Jontte_Gremlins_calculator_script_1.lsl" guid="D8037FB3-6C00-1014-B904-200204C60A89">
+		</Script>
+	</Object>
+</Project>

Jontte_Gremlins_calculator_script/Jontte_Gremlins_calculator_script/Object/Jontte_Gremlins_calculator_script_1.lsl

@@ -0,0 +1,232 @@
+// :CATEGORY:Calculator
+// :NAME:Jontte_Gremlins_calculator_script
+// :AUTHOR:Nitsuj Kidd
+// :CREATED:2010-01-10 05:20:56.000
+// :EDITED:2013-09-18 15:38:55
+// :ID:411
+// :NUM:567
+// :REV:1.0
+// :WORLD:Second Life
+// :DESCRIPTION:
+// Jontte_Gremlins_calculator_script
+// :CODE:
+//Created by Jontte Gremlin
+
+//All rights reserved
+
+//Open sourced with permission by Alpha Zaius and tag written by Alpha himself.
+
+list datalist;
+
+list temporary;
+
+list templist;
+
+string start;
+
+integer i;
+
+integer number;
+
+integer number2;
+
+integer greturn;
+
+list variables;
+
+calculate()
+
+{
+
+    greturn=0;
+
+    if(llListFindList(datalist,["("])!=-1)
+
+    {
+
+        for(i=0;i<llGetListLength(datalist);i++)
+
+        {
+
+            if(llList2String(datalist,i)=="(")
+
+            {
+
+                number=i;
+
+            }
+
+            if(llList2String(datalist,i)==")")
+
+            {
+
+                number2=i;
+
+                i=llGetListLength(datalist);
+
+            }
+
+        }
+
+        templist=datalist;
+
+        if(number2<number)
+
+        {
+
+            llOwnerSay("Could not calculate.");
+
+            datalist=[];
+
+            return;
+
+        }
+
+        datalist=llList2List(datalist,number + 1 ,number2 - 1 );
+
+        greturn=1;
+
+    }
+
+    if(llListFindList(datalist,["^"])!=-1)
+
+    {
+
+        temporary=[];
+
+        for(i=0;i<llGetListLength(datalist);i++)
+
+        {
+
+            if(llList2String(datalist,i + 1)=="^")
+
+            {
+
+                temporary+=(string)(  llPow(((float)llList2String(datalist,i)),((float)llList2String(datalist,i + 2)) ));
+
+                i+=2;
+
+            }
+
+            else
+
+            {
+
+                temporary+=llList2String(datalist,i);
+
+            }
+
+        }   
+
+        datalist=temporary;
+
+    }
+
+    
+
+    if(llListFindList(datalist,["/"])!=-1)
+
+    {
+
+        temporary=[];
+
+        for(i=0;i<llGetListLength(datalist);i++)
+
+        {
+
+            if(llList2String(datalist,i + 1)=="/")
+
+            {
+
+                if((float)llList2String(datalist,i + 2)==0)
+
+                {
+
+                    llOwnerSay("Could not calculate.");
+
+                    datalist=[];
+
+                    temporary=[];
+
+                    return;
+
+                }
+
+                temporary+=(string)(  (((float)llList2String(datalist,i))/((float)llList2String(datalist,i + 2)) ));
+
+                i+=2;
+
+            }
+
+            else
+
+            {
+
+                temporary+=llList2String(datalist,i);
+
+            }
+
+        }
+
+        datalist=temporary;
+
+    }
+
+    
+
+    if(llListFindList(datalist,["*"])!=-1)
+
+    {
+
+        temporary=[];
+
+        for(i=0;i<llGetListLength(datalist);i++)
+
+        {
+
+            if(llList2String(datalist,i + 1)=="*")
+
+            {
+
+                temporary+=(string)(  (((float)llList2String(datalist,i))*((float)llList2String(datalist,i + 2)) ));
+
+                i+=2;
+
+            }
+
+            else
+
+            {
+
+                temporary+=llList2String(datalist,i);
+
+            }
+
+        }
+
+        datalist=temporary;
+
+    }
+
+    
+
+    if(llListFindList(datalist,["-"])!=-1)
+
+    {
+
+        temporary=[];
+
+        for(i=0;i<llGetListLength(datalist);i++)
+
+        {
+
+            if(llList2String(datalist,i + 1)=="-")
+
+            {
+
+                temporary+=(string)(  (((float)llList2String(datalist,i)) - ((float)llList2String(datalist,i + 2)) ));
+
+                i+=2;
+
+            }
+

Jontte_Gremlins_calculator_script/Jontte_Gremlins_calculator_script/Object/_vti_cnf/Jontte_Gremlins_calculator_script_1.lsl

@@ -0,0 +1,7 @@
+vti_encoding:SR|utf8-nl
+vti_timelastmodified:TR|08 Sep 2013 03:49:02 -0000
+vti_extenderversion:SR|12.0.0.6211
+vti_backlinkinfo:VX|
+vti_author:SR|alien\\fred
+vti_modifiedby:SR|alien\\fred
+vti_timecreated:TR|18 Sep 2013 20:38:55 -0000

Jontte_Gremlins_calculator_script/Jontte_Gremlins_calculator_script/_vti_cnf/Jontte_Gremlins_calculator_script.prj

@@ -0,0 +1,6 @@
+vti_encoding:SR|utf8-nl
+vti_timelastmodified:TR|17 Aug 2013 23:32:35 -0000
+vti_extenderversion:SR|12.0.0.0
+vti_cacheddtm:TX|17 Aug 2013 23:32:35 -0000
+vti_filesize:IR|305
+vti_backlinkinfo:VX|

Jontte_Gremlins_calculator_script/_vti_cnf/Jontte_Gremlins_calculator_script.sol

@@ -0,0 +1,6 @@
+vti_encoding:SR|utf8-nl
+vti_timelastmodified:TR|17 Aug 2013 23:32:35 -0000
+vti_extenderversion:SR|12.0.0.0
+vti_cacheddtm:TX|17 Aug 2013 23:32:35 -0000
+vti_filesize:IR|212
+vti_backlinkinfo:VX|