From 6f4404860c82ff9992d1712f1428e4067e5e0870 Mon Sep 17 00:00:00 2001
From: helixhorned <helixhorned@1a8010ca-5511-0410-912e-c29ae57300e0>
Date: Thu, 5 Sep 2013 17:37:31 +0000
Subject: [PATCH] a.m32: add 'moveselsects', moving them so that each sector's
 1st pt is at (0,0).

git-svn-id: https://svn.eduke32.com/eduke32@4042 1a8010ca-5511-0410-912e-c29ae57300e0
---
 polymer/eduke32/package/samples/a.m32 | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/polymer/eduke32/package/samples/a.m32 b/polymer/eduke32/package/samples/a.m32
index 5ff55149a..e5a908d39 100644
--- a/polymer/eduke32/package/samples/a.m32
+++ b/polymer/eduke32/package/samples/a.m32
@@ -1520,6 +1520,26 @@ defstate listusedtags
     }
 ends
 
+defstate moveselsects
+    var p1 dx dy
+
+    for i selsectors
+    {
+        set p1 sector[i].wallptr
+        set dx wall[p1].x, set dy wall[p1].y
+        for j wallsofsector i
+        {
+            sub wall[j].x dx
+            sub wall[j].y dy
+        }
+        for j spritesofsector i
+        {
+            sub .x dx
+            sub .y dy
+        }
+    }
+ends
+
 // This must be *compiled* with script_expertmode
 /*
 defstate setstartpos