Ignore:
Timestamp:
May 6, 2011, 12:47:14 AM (10 years ago)
Author:
Sam Hocevar
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data-abuse/lisp/input.lsp

    r54 r582  
    2828;;   "Home","End","Del","F1","F2","F3","F4","F5","F6",
    2929;;   "F7","F8","F9","F10","Insert"
    30 ;;   "a", "b", "c", ... 
     30;;   "a", "b", "c", ...
    3131;; though not all of these keys will work on all operating systems
    3232
     
    4646(defun get_local_input ()
    4747  (let ((mstat (mouse_stat)))
    48     (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv 
     48    (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv
    4949          (if (local_key_pressed up-key) -1   (if (local_key_pressed down-key)  1 0))  ;; yv
    5050          (eq (fourth mstat) 1)                                            ;; special button
    5151          (eq (third mstat) 1)                                             ;; fire button
    52          
    53           (if (or (eq (fifth mstat) 1) 
     52
     53          (if (or (eq (fifth mstat) 1)
    5454                  (local_key_pressed weapon-left-key)) -1                             ;; weapon toggle
    5555              (if (local_key_pressed weapon-right-key)  1 0))
     
    5959
    6060
    61        
    62 
    63        
    6461
    6562
    6663
     64
     65
     66
Note: See TracChangeset for help on using the changeset viewer.