From 6c00f0e822ee5fdf85c31fe651f6d8ae2c5a137c Mon Sep 17 00:00:00 2001
From: helixhorned <helixhorned@1a8010ca-5511-0410-912e-c29ae57300e0>
Date: Thu, 12 Dec 2013 19:22:11 +0000
Subject: [PATCH] a.m32: don't clamp SE50 extra (=horiz) to [-500 500] with
 KP8/KP5.

git-svn-id: https://svn.eduke32.com/eduke32@4197 1a8010ca-5511-0410-912e-c29ae57300e0
---
 polymer/eduke32/package/sdk/samples/a.m32 | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/polymer/eduke32/package/sdk/samples/a.m32 b/polymer/eduke32/package/sdk/samples/a.m32
index 3973f06d7..2db596b39 100644
--- a/polymer/eduke32/package/sdk/samples/a.m32
+++ b/polymer/eduke32/package/sdk/samples/a.m32
@@ -207,6 +207,7 @@ ends
 // Also try Shift and/or Ctrl modifiers for different increments
 defstate fiddlewithlights
     var minval maxval
+    var val
 
     // if aiming at sector or wall
     ifaimingsprite nullop
@@ -335,20 +336,30 @@ defstate fiddlewithlights
 
         ife .lotag 50
         {
-            // horiz
+            // KP8/KP5: horiz
             ifeithershift set j 1 else set j 10
-            ifhitkey KEY_gUP add .extra j
-            else ifhitkey KEY_gKP5 sub .extra j
-            clamp .extra -500 500
 
-            // angle
+            ifhitkey KEY_gUP nullop
+            else ifhitkey KEY_gKP5 mul j -1
+            else set j 0
+
+            ifvarn j 0
+            {
+                // change it
+                set val .extra
+                add val j
+                clamp val -32768 32767
+                set .extra val
+            }
+
+            // KP4/KP6: angle
             set j 128
             ifeitherctrl set j 4
             ifeithershift { ifeitherctrl set j 1 else set j 32 }
             ifhitkey KEY_gLEFT sub .ang j
             else ifhitkey KEY_gRIGHT add .ang j
 
-            // radius
+            // KP+/KP-: radius
             ifeitherctrl
             {
                 ifholdkey KEY_gMINUS add .shade 9