avoid error message on lowest sensitivity going to scoped

git-svn-id: svn://svn.code.sf.net/p/actiongame/code/trunk/ac@5125 e016b1c5-ed68-44aa-a2f7-31cac88cffde
2010-05-31 19:44:48 +00:00
parent 957ac7bcf5
commit 4e2fdddbcf
1 changed files with 8 additions and 2 deletions
@@ -129,8 +129,14 @@ alias zoom [
    if (= $arg1 1) [
        if (=f $sensitivity (scopesens)) [] [
            alias oldsens $sensitivity
-            sensitivity (scopesens)
-            setscope  1
+			// avoid error if using 0.001 as sensitivity
+			newsens = (scopesens)
+			if (> (*f 1 1000) $newsens) [
+				if (< 1000 $newsens) [
+	            sensitivity (scopesens)
+				] []
+			] []
+    	    setscope  1
        ]
    ] [
        sensitivity $oldsens