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

@@ -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