Changeset 582 for abuse/trunk/data-frabs/addon/deathmat
- Timestamp:
- May 6, 2011, 12:47:14 AM (12 years ago)
- Location:
- abuse/trunk/data-frabs/addon/deathmat
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
abuse/trunk/data-frabs/addon/deathmat/deathmat.lsp
r566 r582 6 6 (defun net_file (x) (concatenate 'string net_dir x)) 7 7 (load (net_file "dstartup.lsp")) 8 (load "lisp/options.lsp") 8 (load "lisp/options.lsp") 9 9 10 10 (load "lisp/input.lsp") -
abuse/trunk/data-frabs/addon/deathmat/dstartup.lsp
r566 r582 10 10 (load "addon/deathmat/cur_lev.lsp") 11 11 (set_first_level (nth current_net_level net_levels))) 12 12 13 13 ;; 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" 15 15 (print `(setq current_net_level ,current_net_level)))) 16 16 17 17 18 18 ;; this is a simple check to see if they player has an engine version … … 32 32 (progn 33 33 (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") 36 36 (quit))) 37 37 (setq load_warn T) … … 52 52 (print (list 'setq 'server_version_major (major_version) )) 53 53 (print (list 'setq 'server_version_minor (minor_version))))) 54 54 55 55 56 56 (if (not (am_a_client)) … … 59 59 ;(let ((input (nice_input "DEATHMATCH : Enter your name below" "Name" username))) 60 60 ; (open_file "addon/deathmat/username.lsp" "wb" 61 ; (print (list 'setq 'username 61 ; (print (list 'setq 'username 62 62 ; (concatenate 'string '(#\") input '(#\")))))) 63 63 … … 82 82 (defun display_player (player text_x text_y) 83 83 (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) 88 88 " <<" 89 89 "")) -
abuse/trunk/data-frabs/addon/deathmat/large.lsp
r566 r582 1 (select (random 4) 2 (0 (setq net_levels 1 (select (random 4) 2 (0 (setq net_levels 3 3 '("netlevel/limeston.spe" 4 4 "netlevel/bugs.spe" 5 5 "netlevel/jdm3.spe"))) 6 (1 (setq net_levels 6 (1 (setq net_levels 7 7 '("netlevel/bugs.spe" 8 8 "netlevel/limeston.spe" 9 9 "netlevel/jdm3.spe"))) 10 (2 (setq net_levels 10 (2 (setq net_levels 11 11 '("netlevel/limeston.spe" 12 12 "netlevel/jdm3.spe" 13 13 "netlevel/bugs.spe"))) 14 (3 (setq net_levels 14 (3 (setq net_levels 15 15 '("netlevel/jdm3.spe" 16 16 "netlevel/bugs.spe" 17 "netlevel/limeston.spe"))) 18 ) 17 "netlevel/limeston.spe"))) 18 ) -
abuse/trunk/data-frabs/addon/deathmat/medium.lsp
r566 r582 1 (select (random 4) 2 (0 (setq net_levels 1 (select (random 4) 2 (0 (setq net_levels 3 3 '("netlevel/spacymed.spe" 4 4 "netlevel/teardrop.spe" … … 8 8 "netlevel/bugsmed.spe" 9 9 "netlevel/00dm.spe"))) 10 (1 (setq net_levels 10 (1 (setq net_levels 11 11 '("netlevel/aquarius.spe" 12 12 "netlevel/madrace.spe" … … 16 16 "netlevel/00dm.spe" 17 17 "netlevel/spacymed.spe"))) 18 (2 (setq net_levels 18 (2 (setq net_levels 19 19 '("netlevel/laazrckt.spe" 20 20 "netlevel/00dm.spe" … … 24 24 "netlevel/teardrop.spe" 25 25 "netlevel/madrace.spe"))) 26 (3 (setq net_levels 26 (3 (setq net_levels 27 27 '("netlevel/teardrop.spe" 28 28 "netlevel/laazrckt.spe" … … 32 32 "netlevel/madrace.spe" 33 33 "netlevel/aquarius.spe"))) 34 ) 34 ) -
abuse/trunk/data-frabs/addon/deathmat/small.lsp
r566 r582 1 (select (random 4) 2 (0 (setq net_levels 1 (select (random 4) 2 (0 (setq net_levels 3 3 '("netlevel/alitlhot.spe" 4 4 "netlevel/getcross.spe" … … 10 10 "netlevel/ruins.spe" 11 11 "netlevel/occult.spe" 12 "netlevel/cistern.spe"))) 13 (1 (setq net_levels 12 "netlevel/cistern.spe"))) 13 (1 (setq net_levels 14 14 '("netlevel/treesmal.spe" 15 15 "netlevel/cistern.spe" … … 21 21 "netlevel/ruins.spe" 22 22 "netlevel/kotcross.spe" 23 "netlevel/alitlhot.spe"))) 24 (2 (setq net_levels 23 "netlevel/alitlhot.spe"))) 24 (2 (setq net_levels 25 25 '("netlevel/kotcross.spe" 26 26 "netlevel/spacytdm.spe" … … 32 32 "netlevel/getcross.spe" 33 33 "netlevel/ruins.spe" 34 "netlevel/bugssml.spe"))) 35 (3 (setq net_levels 34 "netlevel/bugssml.spe"))) 35 (3 (setq net_levels 36 36 '("netlevel/ruins.spe" 37 37 "netlevel/getcross.spe" … … 43 43 "netlevel/spacytdm.spe" 44 44 "netlevel/occult.spe" 45 "netlevel/bugssml.spe"))) 46 ) 45 "netlevel/bugssml.spe"))) 46 )
Note: See TracChangeset
for help on using the changeset viewer.