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/guns.lsp

    r54 r582  
    33
    44
    5 (setq gun_tints (make-array 11 :initial-contents (list 
     5(setq gun_tints (make-array 11 :initial-contents (list
    66                                                  normal_tint
    77                                                  (def_tint "art/tints/guns/orange.spe") ; orange
     
    1717
    1818
    19 (setq ai_ammo (make-array 9 :initial-contents (list MBULLET_ICON5 
    20                                                 MBULLET_ICON5 
     19(setq ai_ammo (make-array 9 :initial-contents (list MBULLET_ICON5
     20                                                MBULLET_ICON5
    2121                                                GRENADE_ICON2
    22                                                 ROCKET_ICON2 
     22                                                ROCKET_ICON2
    2323                                                PLASMA_ICON20
    24                                                 MBULLET_ICON5 
    25                                                 MBULLET_ICON5 
    26                                                 MBULLET_ICON5 
     24                                                MBULLET_ICON5
     25                                                MBULLET_ICON5
     26                                                MBULLET_ICON5
    2727                                                MBULLET_ICON5)))
    2828
     
    4545                                        (setq sgb_bright_color (find_rgb 255 255 200))
    4646                                        (setq sgb_medium_color (find_rgb 150 150 0))
    47                                         (if creator 
     47                                        (if creator
    4848                                            (progn
    4949                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
     
    5959                                        (setq sgb_lasty (y))
    6060                                        (setq sgb_angle angle)
    61                                        
     61
    6262                                        (setq sgb_bright_color (find_rgb 255 128 64))
    6363                                        (setq sgb_medium_color (find_rgb 255 0 0))
    64                                         (if creator 
     64                                        (if creator
    6565                                            (progn
    6666                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
     
    7272                            (play_sound GRENADE_THROW 127 x y)
    7373                            (set_course angle 20)
    74                             (if creator 
     74                            (if creator
    7575                                (progn
    7676                                  (link_object creator)
     
    7878                                  (set_yvel (+ (yvel) (with_object creator (yvel))))
    7979                                  ))
    80                            
     80
    8181                            (set_frame_angle 0 359 angle)
    8282                            )))
     
    8888
    8989                            (if (and target   ;; don't link if not in line of site
    90                                      (can_see (x) (y) 
     90                                     (can_see (x) (y)
    9191                                              (with_object target (x))
    9292                                              (with_object target (y)) nil))
     
    106106                                        (setq sgb_lastx (x))
    107107                                        (setq sgb_lasty (y))
    108                                         (if creator 
     108                                        (if creator
    109109                                              (link_object creator))
    110110                                        (set_course angle 200)
     
    114114                                          (if (not (eq bx T))
    115115                                              (if (eq bx nil)
    116                                                   (add_object EXPLODE5 (- (x) (random 5)) 
     116                                                  (add_object EXPLODE5 (- (x) (random 5))
    117117                                                              (- (y) (random 5)) 0)
    118118                                                (progn
    119                                                   (add_object EXPLODE3 (- (x) (random 5)) 
     119                                                  (add_object EXPLODE3 (- (x) (random 5))
    120120                                                              (- (y) (random 5)) 0)
    121                                                   (do_damage 10 bx (* (cos sgb_angle) 20) 
     121                                                  (do_damage 10 bx (* (cos sgb_angle) 20)
    122122                                                             (* (sin sgb_angle) 10)))))
    123123                                          (setq sgb_lastx (x))
     
    132132                            (play_sound FIREBOMB_SND 127 (x) (y))
    133133                            (set_course angle 20)
    134                             (if creator 
     134                            (if creator
    135135                                (progn
    136136                                  (link_object creator)
     
    143143                                        (set_course angle 25)
    144144                                        (set_aistate angle)
    145                                         (if creator 
     145                                        (if creator
    146146                                              (link_object creator))
    147147                                        (dfris_ai)
     
    153153                                        (setq sgb_lastx (x))
    154154                                        (setq sgb_lasty (y))
    155                                         (if creator 
     155                                        (if creator
    156156                                              (link_object creator))
    157157                                        (set_course angle 45)
     
    159159                                          (if (not (eq bx T))
    160160                                              (if (not (eq bx nil))
    161                                                   (do_damage 30 bx (* (cos sgb_angle) 20) 
     161                                                  (do_damage 30 bx (* (cos sgb_angle) 20)
    162162                                                             (* (sin sgb_angle) 10)))))
    163163                                        )))
    164                            
     164
    165165
    166166          (9 (with_object (add_object STRAIT_ROCKET x y)
    167167                                      (progn
    168168                                        (play_sound MGUN_SND 127 (x) (y))
    169                                         (if creator 
     169                                        (if creator
    170170                                              (link_object creator))
    171171                                        (set_aistate angle)
     
    183183                                        (setq sgb_bright_color (find_rgb 255 0 0))
    184184                                        (setq sgb_medium_color (find_rgb 150 0 0))
    185                                         (if creator 
     185                                        (if creator
    186186                                            (progn
    187187                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
     
    190190                                        )))
    191191
    192           ) 
     192          )
    193193)
    194194
     
    222222
    223223                  (1;; unfold
    224                    (if (next_picture) T 
     224                   (if (next_picture) T
    225225                     (progn (set_aistate 3)
    226226                            (set_state spray.aim)
     
    230230
    231231                  (2;; fold up
    232                    (if (next_picture) T 
     232                   (if (next_picture) T
    233233                     (progn (set_state stopped)
    234234                            (set_aistate 0))))
    235235
    236                  
     236
    237237                  (3;; swivel down
    238238                   (if (> (state_time) spray.fire_delay)
     
    263263        (set_state stopped)
    264264        T))))
    265                
    266 
    267              
    268              
    269     (defun spray_gun_cons () 
     265
     266
     267
     268
     269    (defun spray_gun_cons ()
    270270      (setq spray.bullet_speed 20)
    271271      (setq spray.angle_speed  10)
     
    289289        spray.end_angle
    290290        spray.angle_speed
    291         spray.angle)     
     291        spray.angle)
    292292
    293293  (fields ("hp"                 ai_health)
     
    311311
    312312(def_char TRACK_GUN
    313   (vars 
     313  (vars
    314314        fire_delay            ; how long between each shot
    315315        fire_delay_left
     
    328328        (constructor track_cons)
    329329        (draw_fun    gun_draw)
    330         (damage_fun   guner_damage))   
     330        (damage_fun   guner_damage))
    331331
    332332  (flags (can_block  T)
     
    384384        (setq angle new_angle))))
    385385
    386 (defun track_ai ()   
     386(defun track_ai ()
    387387  (if (eq (hp) 0)                                                  ;; are we dead?
    388388      nil
     
    407407                                              (- angle pangle)
    408408                                            (+ angle (- 360 pangle)))))
    409                           (let ((closest_dist (if (> clock_dist 180) 
     409                          (let ((closest_dist (if (> clock_dist 180)
    410410                                                  (- 360 clock_dist)
    411411                                                clock_dist)))
     
    416416                                  (track_set_angle (mod (+ angle angle_add) 360))
    417417                                (track_set_angle (mod (+ (- angle angle_add) 360) 360)))
    418                               (if (< angle_add 5);; pretty close to target, FIRE!                               
     418                              (if (< angle_add 5);; pretty close to target, FIRE!
    419419                                  (track_fire))))))
    420420                    (setq fire_delay_left (- fire_delay_left 1)))
     
    427427        (set_targetable nil)
    428428        (set_state stopped)
    429         T)))) 
    430          
    431        
    432 
    433 
    434 
     429        T))))
     430
     431
     432
     433
     434
Note: See TracChangeset for help on using the changeset viewer.