Changeset 582 for abuse/trunk/data-abuse/lisp/input.lspTweet

Timestamp:

May 6, 2011, 12:47:14 AM (12 years ago)

Author:

Sam Hocevar

Message:

data: remove \r and trailing spaces and tabs from all Lisp sources.

File:

• abuse/trunk/data-abuse/lisp/input.lsp (modified) (3 diffs)

abuse/trunk/data-abuse/lisp/input.lsp

@@ -28 +28 @@
 ;;   "Home","End","Del","F1","F2","F3","F4","F5","F6",
 ;;   "F7","F8","F9","F10","Insert"
-;;   "a", "b", "c", ... 
+;;   "a", "b", "c", ...
 ;; though not all of these keys will work on all operating systems
 
@@ -46 +46 @@
 (defun get_local_input ()
   (let ((mstat (mouse_stat)))
-    (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv 
+    (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv
           (if (local_key_pressed up-key) -1   (if (local_key_pressed down-key)  1 0))  ;; yv
           (eq (fourth mstat) 1)                                            ;; special button
           (eq (third mstat) 1)                                             ;; fire button
-          
-          (if (or (eq (fifth mstat) 1) 
+
+          (if (or (eq (fifth mstat) 1)
                   (local_key_pressed weapon-left-key)) -1                             ;; weapon toggle
               (if (local_key_pressed weapon-right-key)  1 0))
@@ -59 +59 @@
 
 
-        
-
-        
 
 
 
+
+
+