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

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

Location:
abuse/trunk/data-frabs/addon/leon
Files:
11 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data-frabs/addon/leon/leon.lsp

    r566 r582  
    1414    (progn
    1515      (print "Please make sure you unzipped the game with the -d option")
    16       (print "so that all directories get created properly.")     
    17       (print "example : pkunzip -d abusXXXX.zip")     
     16      (print "so that all directories get created properly.")
     17      (print "example : pkunzip -d abusXXXX.zip")
    1818      (quit)))
    1919(setq load_warn T)
     
    2222(load "lisp/common.lsp")
    2323(load "lisp/userfuns.lsp")
    24 (load "lisp/options.lsp")     
     24(load "lisp/options.lsp")
    2525(load "lisp/startup.lsp")
    2626(if (not (local_load "lisp/input.lsp"))   ; get local copy first
     
    6464
    6565
    66 (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT 
     66(setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT
    6767ANT ANT_JUMPER ANT_PRED ANT_GREATER2 NJUGGER))
    6868
  • abuse/trunk/data-frabs/addon/leon/lisp/deco.lsp

    r566 r582  
    77  T
    88)
    9    
    10                      
     9
     10
    1111(def_char ANTBODY
    1212  (funs (ai_fun antbody_ai)
     
    1414  (flags (unlistable T)(add_front T)) ;; This class is obsolete, just keeping it here for compatibility
    1515  (states "art/ant.spe"  (stopped (seq "adib" 1 16))))
    16                      
     16
    1717(def_char DECO_ANTBODY
    1818  (funs (ai_fun antbody_ai)
  • abuse/trunk/data-frabs/addon/leon/lisp/grenade.lsp

    r566 r582  
    3636    )
    3737    (if (and (eq tk 8) (> yv 0) )
    38       (progn 
     38      (progn
    3939        (set_yvel (- 0 yv) )
    4040        (set_xvel (* (/ xv 7) 5) )
     
    4242          (set_xvel 0)
    4343          nil )
    44         (set_gravity 1) 
     44        (set_gravity 1)
    4545        (play_sound (aref GREN_SND (random 2)) 127 (x) (y))
    4646      )
     
    4848    )
    4949  )
    50   (if (or (> (yvel) 0) (< (yvel) 0) (> (xvel) 0) (< (xvel) 0) ) 
     50  (if (or (> (yvel) 0) (< (yvel) 0) (> (xvel) 0) (< (xvel) 0) )
    5151    (next_picture)
    5252    nil
     
    5454  (if (> (total_objects) 0)
    5555    (let ( (mex (x)) (mey (y)) )
    56       (if (with_object (get_object 0) (find_object_in_area      (- mex 7) 
    57                                                                 (- mey 7) 
    58                                                                 (+ mex 7) 
     56      (if (with_object (get_object 0) (find_object_in_area      (- mex 7)
     57                                                                (- mey 7)
     58                                                                (+ mex 7)
    5959                                                                (+ mey 7) bad_guy_list))
    60      
     60
    6161        (set_hp 31)
    6262        nil
     
    6565  )
    6666  (if (> (hp) 30)
    67     (progn 
     67    (progn
    6868      (do_explo 40 36)
    6969      nil
    7070    )
    71     (progn 
     71    (progn
    7272      (add_hp 1)
    7373      T
  • abuse/trunk/data-frabs/addon/leon/lisp/lmisc.lsp

    r566 r582  
    22  (if (eq (random 75) 0) (play_sound LAVA_SND 24 (x) (y)) )
    33  (select (aistate)
    4           (0 
     4          (0
    55             (if (eq (state_time) dam_spd)
    66                 (progn
     
    3636                 (if (and (touching_bg) (with_object (bg) (pressing_action_key)))
    3737                     (set_aistate 2)))
    38               (2 (set_state running)       
     38              (2 (set_state running)
    3939                 (set_aistate 3))
    40               (3 (set_aistate 4))           
    41               (4 
     40              (3 (set_aistate 4))
     41              (4
    4242               (let ((spot (get_save_slot)))
    4343                 (set_state stopped)
     
    5959               )))
    6060  T)
    61          
     61
    6262
    6363(def_char LRESTART_POSITION
     
    9494
    9595
    96 (defun Med_ai () 
     96(defun Med_ai ()
    9797  (if (eq0 (aistate))     (progn
    9898            (try_move 0 10)
     
    111111  (states "addon/leon/lmisc.spe" (stopped "medkit.pcx" )))
    112112
    113 (defun none_ai () 
     113(defun none_ai ()
    114114  (next_picture)
    115   (if (touching_bg) 
    116       (progn (with_object (bg) 
     115  (if (touching_bg)
     116      (progn (with_object (bg)
    117117                          (progn
    118118                            (setq special_power NO_POWER)
     
    142142        (set_y nowy)))
    143143  T)
    144        
     144
    145145
    146146(defun sensbeam_draw ()
     
    158158  (states "art/misc.spe"
    159159          (stopped "force_field")))
    160        
     160
    161161
    162162(defun swtele_ai ()     ;; teleporting door ai
     
    167167          (let ((otherx (+ (with_object (get_object 1) (x)) (- (with_object player (x) ) (x) ) ) )
    168168                (othery (+ (with_object (get_object 1) (y)) (- (with_object player (y) ) (y) ) ) ))
    169             (with_object player (progn 
    170                                   (set_x otherx) 
     169            (with_object player (progn
     170                                  (set_x otherx)
    171171                                  (set_y othery)
    172172                                  (bottom_draw)
    173173;;                                (with_object (get_object 0)
    174174;;                                    (progn
    175 ;;                                      (set_x otherx) 
     175;;                                      (set_x otherx)
    176176;;                                    (set_y othery)
    177177;;                                      (top_ai)
     
    191191          (stopped "switch_mover")))
    192192
    193 (setq AMB_SOUNDS2 (make-array 3 :initial-contents (list 
     193(setq AMB_SOUNDS2 (make-array 3 :initial-contents (list
    194194                               (def_sound "addon/leon/sfx/ambship1.wav")   ;; 0
    195195                               (def_sound "addon/leon/sfx/ambship2.wav")   ;; 1
     
    216216      T)))
    217217
    218        
    219 (defun ambs_cons2 () 
     218
     219(defun ambs_cons2 ()
    220220  (set_xvel 10)  ;; delay time to 10
    221221  (set_yvel 127)) ;; set volume default to 127
     
    228228  (range 500 500)
    229229  (fields ("aitype" amb_num)
    230           ("yvel"   amb_vol)     
     230          ("yvel"   amb_vol)
    231231          ("xvel"   amb_rep)
    232232          ("xacel"  amb_rand))
  • abuse/trunk/data-frabs/addon/leon/lisp/lnant.lsp

    r566 r582  
    1 (setq ant_tints (make-array 14 :initial-contents (list 
     1(setq ant_tints (make-array 14 :initial-contents (list
    22                                                (def_tint "art/tints/ant/green.spe")
    3                                                 (def_tint "art/tints/ant/blue.spe") 
     3                                                (def_tint "art/tints/ant/blue.spe")
    44                                                (def_tint "art/tints/ant/brown.spe")
    55                                                (def_tint "art/tints/ant/egg.spe")
     
    2727             (let ((d (direction))
    2828                   (type (aitype)))
    29                (if (or (eq create_total 0) (eq create_total 1))           
     29               (if (or (eq create_total 0) (eq create_total 1))
    3030                   (set_current_frame 4)
    3131                 (progn
     
    4444            (2 (next_picture))))
    4545  T)
    46            
     46
    4747
    4848
     
    7676(defun anthole_ai ()
    7777  (select (aistate)
    78     (0 
     78    (0
    7979      (if (and (activated) (< (total_objects) (+ (xvel) 1) ) )
    8080        (go_state 2)
    8181      )
    8282    )
    83     (3 
     83    (3
    8484      (if (and (activated) (< (total_objects) (+ (xvel) 1) ) )
    85         (progn         
     85        (progn
    8686          (if (eq (current_frame) 4)
    8787            (set_current_frame 1)
     
    101101    )
    102102
    103     (1 
     103    (1
    104104      (if (eq (state_time) (yvel))
    105105        (select (otype) (ANTHOLE (go_state 0))
     
    189189  (range 250 20)
    190190  (draw_range 40 40)
    191   (funs (ai_fun     ,aifun)     
     191  (funs (ai_fun     ,aifun)
    192192        (draw_fun   ,drawfun)
    193193        (constructor ant_cons)
     
    204204             (push_xrange     1)
    205205             (jump_top_speed (+ jumpyvel jumpxvel) ))
    206  
    207   (flags 
     206
     207  (flags
    208208         (hurtable  T)
    209209         (force_health T))
    210210
    211   (states "art/ant.spe" 
     211  (states "art/ant.spe"
    212212          (hanging (rep "ant" 2))
    213213
    214214          (fall_start "affc0001.pcx")
    215215          (falling    "affc0002.pcx")
    216          
     216
    217217          (stopped "awlk0001.pcx")
    218218          (running (seq "awlk" 1 10))
     
    240240
    241241
    242 (setq ai_ammo (make-array 15 :initial-contents (list MBULLET_ICON5 
    243                                                 MBULLET_ICON5 
     242(setq ai_ammo (make-array 15 :initial-contents (list MBULLET_ICON5
     243                                                MBULLET_ICON5
    244244                                                GRENADE_ICON2
    245                                                 ROCKET_ICON2 
     245                                                ROCKET_ICON2
    246246                                                PLASMA_ICON20
    247                                                 MBULLET_ICON5 
    248                                                 MBULLET_ICON5 
    249                                                 MBULLET_ICON5 
     247                                                MBULLET_ICON5
     248                                                MBULLET_ICON5
     249                                                MBULLET_ICON5
    250250                                                MBULLET_ICON5
    251251                                                MBULLET_ICON20
     
    259259
    260260  (if (and (not (eq (state) dead))
    261            (or (not from) 
    262                (with_object from (if (eq (total_objects) 0) 
     261           (or (not from)
     262               (with_object from (if (eq (total_objects) 0)
    263263                                     (not (eq (otype) ANT_ROOF))
    264264                                   (with_object (get_object 0) (not (eq (otype) ANT_ROOF)))))))
     
    270270            (damage_fun amount from hitx hity push_xvel push_yvel)
    271271            (play_sound APAIN_SND 127 (x) (y))
    272             (setq need_to_dodge 1)         
     272            (setq need_to_dodge 1)
    273273            (if (<= (hp) 0)
    274274                (progn
     
    293293             (let ((d (direction))
    294294                   (type (aitype)))
    295                   (with_object (add_object ANTBODY (x) (y)) 
     295                  (with_object (add_object ANTBODY (x) (y))
    296296                    (progn
    297297                              (set_aitype type)
     
    303303             (let ((d (direction))
    304304                   (type (aitype)))
    305                   (with_object (add_object DECO_ANTBODY (x) (y)) 
     305                  (with_object (add_object DECO_ANTBODY (x) (y))
    306306                    (progn
    307307                              (set_aitype type)
     
    321321
    322322(defun pred_draw ()
    323   (if (edit_mode) 
    324     (ant_draw) 
     323  (if (edit_mode)
     324    (ant_draw)
    325325  (draw_predator)))
    326326
     
    339339                             (let ((d (direction))
    340340                   (type (aitype)))
    341                   (with_object (add_object GRANTBODY (x) (y)) 
     341                  (with_object (add_object GRANTBODY (x) (y))
    342342                    (progn
    343343                              (set_aitype type)
     
    359359  T
    360360)
    361    
    362                      
     361
     362
    363363(def_char GRANTBODY
    364364  (funs (ai_fun grantbody_ai)
     
    410410        (let ((d (direction))
    411411          (type (aitype)))
    412             (with_object (add_object ANTBODY (x) (y)) 
     412            (with_object (add_object ANTBODY (x) (y))
    413413              (progn
    414414                (set_aitype type)
  • abuse/trunk/data-frabs/addon/leon/lisp/nextlev3.lsp

    r566 r582  
    77          (request_level_load (concatenate 'string "addon/leon/level" (digstr (aistate) 2) ".spe")))))
    88  T)
    9        
     9
    1010
    1111(def_char NEXT_LEVEL3
    12   (funs (ai_fun next_level3_ai)) 
     12  (funs (ai_fun next_level3_ai))
    1313  (flags (can_block T))
    1414  (fields ("aistate" next_level))
     
    2929(def_char SW_ENDLEV
    3030  (funs (ai_fun sw_endlev_ai)
    31         (draw_fun dev_draw)) 
     31        (draw_fun dev_draw))
    3232  (fields ("aistate" next_level))
    3333  (states "art/misc.spe"
  • abuse/trunk/data-frabs/addon/leon/lisp/nguns.lsp

    r566 r582  
    1010                        (setq sgb_bright_color (find_rgb 255 245 235))
    1111                        (setq sgb_medium_color (find_rgb 150 145 140))
    12                         (if creator 
     12                        (if creator
    1313                            (progn
    1414                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
     
    3131                                        (setq sgb_bright_color (find_rgb 255 255 200))
    3232                                        (setq sgb_medium_color (find_rgb 150 150 0))
    33                                         (if creator 
     33                                        (if creator
    3434                                            (progn
    3535                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
     
    4545                                        (setq sgb_lasty (y))
    4646                                        (setq sgb_angle angle)
    47                                        
     47
    4848                                        (setq sgb_bright_color (find_rgb 255 128 64))
    4949                                        (setq sgb_medium_color (find_rgb 255 0 0))
    50                                         (if creator 
     50                                        (if creator
    5151                                            (progn
    5252                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
     
    5858                            (play_sound GRENADE_THROW 127 x y)
    5959                            (set_course angle 20)
    60                             (if creator 
     60                            (if creator
    6161                                (progn
    6262                                  (link_object creator)
     
    6464                                  (set_yvel (+ (yvel) (with_object creator (yvel))))
    6565                                  ))
    66                            
     66
    6767                            (set_frame_angle 0 359 angle)
    6868                            )))
     
    7474
    7575                            (if (and target   ;; don't link if not in line of site
    76                                      (can_see (x) (y) 
     76                                     (can_see (x) (y)
    7777                                              (with_object target (x))
    7878                                              (with_object target (y)) nil))
     
    9292                                        (setq sgb_lastx (x))
    9393                                        (setq sgb_lasty (y))
    94                                         (if creator 
     94                                        (if creator
    9595                                              (link_object creator))
    9696                                        (set_course angle 200)
     
    100100                                          (if (not (eq bx T))
    101101                                              (if (eq bx nil)
    102                                                   (add_object EXPLODE5 (- (x) (random 5)) 
     102                                                  (add_object EXPLODE5 (- (x) (random 5))
    103103                                                              (- (y) (random 5)) 0)
    104104                                                (progn
    105                                                   (add_object EXPLODE3 (- (x) (random 5)) 
     105                                                  (add_object EXPLODE3 (- (x) (random 5))
    106106                                                              (- (y) (random 5)) 0)
    107                                                   (do_damage 10 bx (* (cos sgb_angle) 20) 
     107                                                  (do_damage 10 bx (* (cos sgb_angle) 20)
    108108                                                             (* (sin sgb_angle) 10)))))
    109109                                          (setq sgb_lastx (x))
     
    118118                            (play_sound FIREBOMB_SND 127 (x) (y))
    119119                            (set_course angle 20)
    120                             (if creator 
     120                            (if creator
    121121                                (progn
    122122                                  (link_object creator)
     
    129129                                        (set_course angle 25)
    130130                                        (set_aistate angle)
    131                                         (if creator 
     131                                        (if creator
    132132                                              (link_object creator))
    133133                                        (dfris_ai)
     
    139139                                        (setq sgb_lastx (x))
    140140                                        (setq sgb_lasty (y))
    141                                         (if creator 
     141                                        (if creator
    142142                                              (link_object creator))
    143143                                        (set_course angle 45)
     
    145145                                          (if (not (eq bx T))
    146146                                              (if (not (eq bx nil))
    147                                                   (do_damage 30 bx (* (cos sgb_angle) 20) 
     147                                                  (do_damage 30 bx (* (cos sgb_angle) 20)
    148148                                                             (* (sin sgb_angle) 10)))))
    149149                                        )))
    150                            
     150
    151151
    152152          (9 (with_object (add_object STRAIT_ROCKET x y)
    153153                                      (progn
    154154                                        (play_sound MGUN_SND 127 (x) (y))
    155                                         (if creator 
     155                                        (if creator
    156156                                              (link_object creator))
    157157                                        (set_aistate angle)
     
    169169                                        (setq sgb_bright_color (find_rgb 255 0 0))
    170170                                        (setq sgb_medium_color (find_rgb 150 0 0))
    171                                         (if creator 
     171                                        (if creator
    172172                                            (progn
    173173                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
     
    193193          (zap 6 16 x y (- angle 30))
    194194          )
    195           ) 
     195          )
    196196)
    197197
     
    199199  (setq sgb_lastx (x))
    200200  (setq sgb_lasty (y))
    201   (set_course sgb_angle sgb_speed) 
     201  (set_course sgb_angle sgb_speed)
    202202  (if (eq sgb_lifetime 0)
    203203      nil
     
    215215
    216216(def_char LASR_BULLET
    217   (vars sgb_speed sgb_angle sgb_lastx sgb_lasty 
     217  (vars sgb_speed sgb_angle sgb_lastx sgb_lasty
    218218        sgb_bright_color sgb_medium_color sgb_lifetime sgb_dam)
    219219  (funs (ai_fun   las_ai)
  • abuse/trunk/data-frabs/addon/leon/lisp/njug.lsp

    r566 r582  
    1111        (playerx (+ (with_object (bg) (x)) (with_object (bg) (* (xvel) 1))))
    1212        (playery (+ (- (with_object (bg) (y)) 15) (with_object (bg) (* (yvel) 1)))))
    13    
     13
    1414    (if (and (can_see (x) (y) firex firey nil) (can_see firex firey playerx playery nil))
    1515        (progn
     
    2727        (set_state dieing))
    2828    (if (activated)
    29         (progn       
     29        (progn
    3030          (set_targetable T)
    3131          (push_char 35 40)
    32           (select (aistate) 
     32          (select (aistate)
    3333                  (0 ;; prepare to walk toward player
    3434                   (if (eq stationary 0)
     
    4646                         (set_direction (toward))
    4747                         (let ((curx (x));; save position in case we fall off a cliff
    48                                (cury (y)))                   
    49                            (if (next_picture) 
     48                               (cury (y)))
     49                           (if (next_picture)
    5050                               (if (eq (current_frame) 8)
    5151                                   (play_sound JSTOMP_SND 127 (x) (y)))
     
    7474                  (3 ;; wait for fire animation
    7575                   (if (next_picture) nil (set_aistate 0))))
    76           T) 
     76          T)
    7777      (progn (set_targetable nil)
    7878             T))))
     
    8181  (setq throw_xvel 3)
    8282  (setq throw_yvel -10)
    83   (set_aitype 1))         
     83  (set_aitype 1))
    8484
    8585(def_char NJUGGER
     
    101101          ("aistate"       ai_state))
    102102
    103   (states "art/jug.spe" 
     103  (states "art/jug.spe"
    104104          (stopped "robo0001.pcx")
    105105          (running (seq "rwlk" 1 13))
  • abuse/trunk/data-frabs/addon/leon/lisp/rain.lsp

    r566 r582  
    3232
    3333  (select (aistate)
    34     (0 
     34    (0
    3535      (set_yvel (+ 100 (random 500) ) )
    3636      (set_yacel (random 3) )
    3737      (set_aistate 6)
    3838    )
    39     (4 (if (activated) 
     39    (4 (if (activated)
    4040         (go_state 0)
    4141       )
     
    4343    (6 (if (eq (state_time) (yvel) )
    4444         (progn
    45            (add_object THUNDER (with_object (bg) (x)) (with_object (bg) (y))) 
     45           (add_object THUNDER (with_object (bg) (x)) (with_object (bg) (y)))
    4646           (set_aistate 2)
    4747         )
     
    8787          (stopped "latter")))
    8888
    89 (setq THUNDER_SOUNDS (make-array 5 :initial-contents (list 
     89(setq THUNDER_SOUNDS (make-array 5 :initial-contents (list
    9090                               (def_sound "addon/leon/sfx/thunder.wav")   ;; 0
    9191                               (def_sound "addon/leon/sfx/thunder2.wav")   ;; 1
     
    110110          (stopped "latter")))
    111111
    112 (setq RAIN_SOUNDS (make-array 4 :initial-contents (list 
     112(setq RAIN_SOUNDS (make-array 4 :initial-contents (list
    113113                               (def_sound "addon/leon/sfx/rain.wav")   ;; 0
    114114                               (def_sound "addon/leon/sfx/rain2.wav")   ;; 1
  • abuse/trunk/data-frabs/addon/leon/lisp/slavesw.lsp

    r566 r582  
    11(def_char SWITCH_SLAVE
    22  (funs (ai_fun swslave_ai))
    3   (states "art/misc.spe" 
     3  (states "art/misc.spe"
    44          (stopped "0_indicator")
    55          (on_state "1_indicator")))
    6        
     6
    77(defun swslave_ai ()
    88  (if (> (total_objects) 0)
  • abuse/trunk/data-frabs/addon/leon/lisp/text.lsp

    r566 r582  
    33   ; Please keep all strings below shorter than the above line.
    44   ; Add as many strings as you like.
    5      
    6      
     5
     6
    77(defun get_message (message_num)
    8   (select message_num     
     8  (select message_num
    99   (0 "Dammit! I gotta get out of here!")
    1010   (1 "What the...")
     
    2424;                          (if (local_player) ;; Doesnt work for some reason
    2525;                              (show_help (get_message (aitype))))
    26                            ))                       
     26                           ))
    2727            (set_aistate 1)
    2828            T)
Note: See TracChangeset for help on using the changeset viewer.