proper import

git-svn-id: https://lsleditor.svn.sourceforge.net/svnroot/lsleditor@9 3f4676ac-adda-40fd-8265-58d1435b1672

trunk/bin/Debug/UTF8/Project/Object/Script.lsl

@@ -0,0 +1,83 @@
+string card;
+integer lines = -1;
+integer line = 0;
+list resuts;
+integer pass;
+integer fail;
+
+default
+{
+	state_entry()
+	{
+		if(llGetInventoryNumber(INVENTORY_NOTECARD))
+		{
+			llGetNumberOfNotecardLines(
+				card = llGetInventoryName(INVENTORY_NOTECARD,0));
+			llOwnerSay("Test-Starting: "+card);
+		}
+	}
+	on_rez(integer a)
+	{
+		llResetScript();
+	}
+	touch_start(integer a)
+	{
+		llResetScript();
+	}
+	changed(integer a)
+	{
+		if(a & CHANGED_INVENTORY)
+			llResetScript();
+	}
+
+	dataserver(key a, string b)
+	{
+		if(lines == -1)
+		{
+			lines = (integer)b;
+			llGetNotecardLine(card,line);
+		}
+		else
+		{
+			list c = llParseString2List(a=(string)llParseString2List(b,[" "],[]),["|"],[EOF]);
+			integer d;
+			integer e;
+			integer f;
+			if(llGetSubString(a,0,0) == "#")
+				llOwnerSay(llDeleteSubString(b,0,0));
+			else if(llGetListLength(c) >= 2)
+			{
+				d = llStringLength(b = llUnescapeURL(llList2String(c,0)));
+				f = llList2Integer(c,1);
+				e = (d == f);
+				pass += e;
+				fail += !e;
+				string out = (string)line +": ";
+				out += llList2String(["Fail","Pass"],e) + " ";
+				out += "(" + (string)d + " - " + (string)f + ") ";
+				//Enable this section to test llUnescapeURL
+				//                       out += "(" + (string)((
+				//                                llStringLength(
+				//                                    (string)llParseString2List( //strips off the evil pad
+				//                                        llStringToBase64(b),["="],[]
+				//                                    )
+				//                                ) * 3 ) / 4); //thats how many bytes should be in it (assuming all escaped)
+				//                       out += " - ";
+				//                       out += (string)(llStringLength(llList2String(c,0))/3) + ")";
+
+
+				// This will IM all the tests to the owner!  This is slow because IM sleeps the script for 2 seconds.
+				llInstantMessage(llGetOwner(),b);
+				llOwnerSay(out);
+			}
+			if(llListFindList(c,[EOF]) == -1 && ++line < lines)
+				llGetNotecardLine(card,line);
+			else
+			{
+				llOwnerSay("Finished");
+				llOwnerSay("Passed: "+(string)pass);
+				llOwnerSay("Failed: "+(string)fail);
+			}
+		}
+	}
+}