Ignore:
Timestamp:
May 6, 2011, 12:47:14 AM (12 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-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
Note: See TracChangeset for help on using the changeset viewer.