Changeset 582 for abuse/trunk/data-frabs/addon/deathmat/dstartup.lspTweet

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:

• abuse/trunk/data-frabs/addon/deathmat/dstartup.lsp (modified) (5 diffs)

abuse/trunk/data-frabs/addon/deathmat/dstartup.lsp

@@ -10 +10 @@
       (load "addon/deathmat/cur_lev.lsp")
       (set_first_level (nth current_net_level net_levels)))
-  
+
   ;; save the level we are so joining clients know which one to load
-  (open_file "addon/deathmat/cur_lev.lsp" "wb" 
+  (open_file "addon/deathmat/cur_lev.lsp" "wb"
              (print `(setq current_net_level ,current_net_level))))
-  
+
 
 ;; this is a simple check to see if they player has an engine version
@@ -32 +32 @@
     (progn
       (print "\nPlease make sure you unzipped the game with the -d option")
-      (print "so that all directories get created properly.")      
-      (print "example : pkunzip -d abusXXXX.zip")      
+      (print "so that all directories get created properly.")
+      (print "example : pkunzip -d abusXXXX.zip")
       (quit)))
 (setq load_warn T)
@@ -52 +52 @@
              (print (list 'setq 'server_version_major (major_version) ))
              (print (list 'setq 'server_version_minor (minor_version)))))
-              
+
 
 (if (not (am_a_client))
@@ -59 +59 @@
 ;(let ((input (nice_input "DEATHMATCH : Enter your name below" "Name" username)))
 ;  (open_file "addon/deathmat/username.lsp" "wb"
-;            (print (list 'setq 'username 
+;            (print (list 'setq 'username
 ;                         (concatenate 'string '(#\") input '(#\"))))))
 
@@ -82 +82 @@
 (defun display_player (player text_x text_y)
   (if player
-      (with_object player       
-        (put_string (get_main_font) text_x text_y 
-                    (concatenate 'string (digstr (kills) 2) " " (player_name) 
-                                                     (if (local_player) 
+      (with_object player
+        (put_string (get_main_font) text_x text_y
+                    (concatenate 'string (digstr (kills) 2) " " (player_name)
+                                                     (if (local_player)
                                                          " <<"
                                                        ""))