From 31432fa3d95acde9d9410e7f6d0d4af81b107635 Mon Sep 17 00:00:00 2001
From: helixhorned <helixhorned@1a8010ca-5511-0410-912e-c29ae57300e0>
Date: Sat, 12 Sep 2009 23:13:02 +0000
Subject: [PATCH] test file for m32-script

git-svn-id: https://svn.eduke32.com/eduke32@1494 1a8010ca-5511-0410-912e-c29ae57300e0
---
 polymer/eduke32/a.m32 | 47 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 polymer/eduke32/a.m32

diff --git a/polymer/eduke32/a.m32 b/polymer/eduke32/a.m32
new file mode 100644
index 000000000..52e059b75
--- /dev/null
+++ b/polymer/eduke32/a.m32
@@ -0,0 +1,47 @@
+// m32 script test & show-off file
+// do "include a" in the console
+
+include names.h
+
+gamevar i 0 1  // per-block (top-level, event, or state) variable
+gamevar j 0 1
+
+gamevar davr 65536 0
+gamevar dayx 65536 0
+
+definequote 0 OK
+definequote 1 DAMN
+
+gamearray ar 128
+gamearray parm 8
+
+defstate artest
+    for j range 128
+        set ar[j] j
+    set i 0
+    for j range 128
+        add i ar[j]
+    ife i 8128 quote 0 else quote 1
+ends
+
+defstate setas
+    set j dayx
+    mul j ydim  mul j 8
+    div j xdim  div j 5
+    setaspect davr j
+ends
+
+onevent EVENT_ANALYZESPRITES
+    for i drawnsprites
+        ifactor LIZTROOP spritepal 6
+endevent
+
+onevent EVENT_ENTER3DMODE
+    state setas
+endevent
+
+defstate itertest
+    for i spritesofsector searchsector
+//        ife sprite[i].picnum AMMO set sprite[i].picnum BATTERYAMMO
+        ifactor parm[0] cactor parm[1]
+ends