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/addon/deathmat/dstartup.lsp

    r566 r582  
    1010      (load "config/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 "config/cur_lev.lsp" "wb" 
     14  (open_file "config/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 "config/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                                                       ""))
Note: See TracChangeset for help on using the changeset viewer.