entityfield tests

diff --git a/data/fields.qc b/data/fields.qc
new file mode 100644 (file)
index 0000000..dde80e1
--- /dev/null
+++ b/data/fields.qc
@@ -0,0 +1,41 @@
+/* this is the WIP test for the parser...
+ * constantly adding stuff here to see if things break
+ */
+void(string)        print  = #1;
+void(string,string) print2 = #1;
+void(string,string,string) print3 = #1;
+string(float)       ftos   = #2;
+entity()            spawn  = #3;
+void(entity)        kill   = #4;
+
+.float mema;
+.float memb;
+.vector memv;
+
+//void(entity a, .float f) printfield = {
+//    print3("The field is ", ftos(a.f), "\n");
+//};
+void(entity x) foo = {
+    print2(ftos(x.mema),"\n");
+};
+
+void() main = {
+    entity pawn;
+
+    pawn = spawn();
+
+    pawn.mema = 9;
+    pawn.memv = '1 2 3';
+    pawn.memb = 10;
+
+    print3("x = ", ftos(pawn.memv_x), "\n");
+    print3("y = ", ftos(pawn.memv_y), "\n");
+    print3("z = ", ftos(pawn.memv_z), "\n");
+    print3("a = ", ftos(pawn.mema), "\n");
+    print3("b = ", ftos(pawn.memb), "\n");
+    pawn.memv_y += 3;
+    print3("x = ", ftos(pawn.memv_x), "\n");
+    print3("y = ", ftos(pawn.memv_y), "\n");
+    print3("z = ", ftos(pawn.memv_z), "\n");
+    foo(pawn);
+};