Ignore:
Timestamp:
May 7, 2011, 4:06:03 PM (10 years ago)
Author:
Sam Hocevar
Message:

data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.

File:
1 edited

Legend:

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

    r588 r589  
    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
    49           (if (local_key_pressed up-key) -1   (if (local_key_pressed down-key)  1 0))  ;; yv
    50           (eq (fourth mstat) 1)                                            ;; special button
    51           (eq (third mstat) 1)                                             ;; fire button
     48    (list (if (local_key_pressed left-key)
     49              -1
     50              (if (local_key_pressed right-key) 1 0))  ;; xv
     51          (if (local_key_pressed up-key)
     52              -1
     53              (if (local_key_pressed down-key) 1 0))  ;; yv
     54          (eq (fourth mstat) 1) ;; special button
     55          (eq (third mstat) 1) ;; fire button
    5256
    5357          (if (or (eq (fifth mstat) 1)
    54                   (local_key_pressed weapon-left-key)) -1                             ;; weapon toggle
     58                  (local_key_pressed weapon-left-key)) -1 ;; weapon toggle
    5559              (if (local_key_pressed weapon-right-key)  1 0))
    56           (first mstat)                                                    ;; mx
    57           (second mstat)                                                   ;; my
     60          (first mstat) ;; mx
     61          (second mstat) ;; my
    5862          )))
    5963
     64;; XXX: Mac Abuse uses these hardcoded values
     65;(setq up_key 256)
     66;(setq left_key 258)
     67;(setq right_key 259)
     68;(setq down_key 257)
     69;(setq special_key 32)
     70;(setq weapon_left_key 49)
     71;(setq weapon_right_key 50)
    6072
    61 
    62 
    63 
    64 
    65 
    66 
Note: See TracChangeset for help on using the changeset viewer.