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-mac/addon
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data-mac/addon/bong/bong.lsp

    r102 r582  
    2424;;;; called lisp :-)
    2525
    26 ;;;; Please do not ask me for docs on how to code with the abuse engine, there are 
     26;;;; Please do not ask me for docs on how to code with the abuse engine, there are
    2727;;;; none at this time and there won't be any until networked abuse is available.
    2828;;;; ALL games written with the abuse engine are network ready with no additional
    29 ;;;; work including this one, but there are some issues that need addressing 
     29;;;; work including this one, but there are some issues that need addressing
    3030;;;; that cannot be fully discussed until the net code is finished.  When these
    3131;;;; docs are written they will be available at http://www.crack.com   Estimated
     
    6666(setq pong_dir "addon/bong/")  ; in case we change the location of these files later
    6767                               ; this is always a very good idea to do because the user of
    68                                ; this program may/may not be able to install into this directory       
     68                               ; this program may/may not be able to install into this directory
    6969(setq pong_art (concatenate 'string pong_dir "bong.spe"))  ; all artwork is in this file
    7070
     
    116116      (let ((this-digit (/ score digs_left)))
    117117        (put_image x y (aref nums this-digit))
    118         (show_score (+ x (image_width (aref nums this-digit))) y 
     118        (show_score (+ x (image_width (aref nums this-digit))) y
    119119                    (/ digs_left 10) (- score (* digs_left this-digit))))))
    120120
     
    153153          (blow_up_tile tilex (+ tiley 1))
    154154          (blow_up_tile (+ tilex 1) tiley)))
    155              
     155
    156156    (with_object (bg) (add_hp 10))           ; give player points
    157157
     
    165165(defun check_collide (status)    ;; returns T if we hit something
    166166  (if (not (eq status T))                                  ; did we hit anything?
    167       (if (eq (car (cdr status)) 'object)                  ; did we hit an object?           
     167      (if (eq (car (cdr status)) 'object)                  ; did we hit an object?
    168168          (let ((object (car (cdr (cdr status)))))
    169169            (if (eq (with_object object (otype)) PADDLE)   ; did we hit the paddle?
     
    173173                      (if (> 20 (aistate)) (set_aistate 20)
    174174                        (if (< 160 (aistate)) (set_aistate 160)))
    175                       T) 
     175                      T)
    176176                  nil)
    177177              nil)
     
    195195(defun move_ball ()  ;; returns status of move
    196196  (let ((status (float_tick)))
    197     (if (not (eq status T))   ; T means we did not hit anything 
     197    (if (not (eq status T))   ; T means we did not hit anything
    198198        (let ((block_flags (car status)))
    199199          (if (or (blocked_left block_flags) (blocked_right block_flags)) ; bounce left/right
     
    218218  (select (aitype)
    219219          (0  ; normal play, bounce around and stuff..
    220            (check_collide (move_ball))             
     220           (check_collide (move_ball))
    221221           (if (> (y) 240)  ; check to see if we are dead
    222222               (progn
     
    231231                     T)))
    232232             T))
    233                  
     233
    234234           (1 ; ball is dead - go to paddle and fade in
    235235            (set_x (with_object (bg) (x)))
     
    239239                (set_aitype 0))
    240240            T)))
    241          
     241
    242242
    243243(def_char BALL
     
    265265      (mover xm 0 0)
    266266    0))
    267      
     267
    268268
    269269(def_char PADDLE
     
    292292  (next_picture)
    293293  (if (touching_bg)  ; are we touching the paddle
    294       (progn 
     294      (progn
    295295        (add_score 1000)
    296296        (with_object (add_object BALL (x) (y) 1) (progn (set_fade_count 15) (set_aistate 80)))
     
    339339(create_players PADDLE)
    340340(set_first_level (get_level_name current_level))
    341 (gc)    ; garbage collect 
     341(gc)    ; garbage collect
    342342(tmp-space)
    343343
  • abuse/trunk/data-mac/addon/deathmat/deathmat.lsp

    r102 r582  
    66(defun net_file (x) (concatenate 'string net_dir x))
    77(load (net_file "dstartup.lsp"))
    8 (load "lisp/options.lsp")     
     8(load "lisp/options.lsp")
    99
    1010(local_load "lisp/input.lsp")
  • abuse/trunk/data-mac/addon/deathmat/dstartup.lsp

    r102 r582  
    1010      (load "addon/deathmat/cur_lev.lsp")
    1111      (set_first_level (nth current_net_level net_levels)))
    12  
     12
    1313  ;; save the level we are so joining clients know which one to load
    14   (open_file "addon/deathmat/cur_lev.lsp" "wb" 
     14  (open_file "addon/deathmat/cur_lev.lsp" "wb"
    1515             (print `(setq current_net_level ,current_net_level))))
    16  
     16
    1717
    1818;; this is a simple check to see if they player has an engine version
     
    3232    (progn
    3333      (print "\nPlease make sure you unzipped the game with the -d option")
    34       (print "so that all directories get created properly.")     
    35       (print "example : pkunzip -d abusXXXX.zip")     
     34      (print "so that all directories get created properly.")
     35      (print "example : pkunzip -d abusXXXX.zip")
    3636      (quit)))
    3737(setq load_warn T)
     
    5252             (print (list 'setq 'server_version_major (major_version) ))
    5353             (print (list 'setq 'server_version_minor (minor_version)))))
    54              
     54
    5555
    5656(if (not (am_a_client))
     
    5959;(let ((input (nice_input "DEATHMATCH : Enter your name below" "Name" username)))
    6060;  (open_file "addon/deathmat/username.lsp" "wb"
    61 ;            (print (list 'setq 'username 
     61;            (print (list 'setq 'username
    6262;                         (concatenate 'string '(#\") input '(#\"))))))
    6363
     
    8282(defun display_player (player text_x text_y)
    8383  (if player
    84       (with_object player       
    85         (put_string (get_main_font) text_x text_y 
    86                     (concatenate 'string (digstr (kills) 2) " " (player_name) 
    87                                                      (if (local_player) 
     84      (with_object player
     85        (put_string (get_main_font) text_x text_y
     86                    (concatenate 'string (digstr (kills) 2) " " (player_name)
     87                                                     (if (local_player)
    8888                                                         " <<"
    8989                                                       ""))
  • abuse/trunk/data-mac/addon/deathmat/large.lsp

    r102 r582  
    1 (setq net_levels 
     1(setq net_levels
    22      '("netlevel/8play1.spe"
    33        "netlevel/8play2.spe"
  • abuse/trunk/data-mac/addon/deathmat/medium.lsp

    r102 r582  
    1 (setq net_levels 
     1(setq net_levels
    22      '(
    33        "netlevel/4play1.spe"
  • abuse/trunk/data-mac/addon/deathmat/small.lsp

    r102 r582  
    1 (setq net_levels 
     1(setq net_levels
    22      '("netlevel/2play1.spe"
    33        "netlevel/2play2.spe"
Note: See TracChangeset for help on using the changeset viewer.