source: abuse-mac/trunk/addon/deathmat/dstartup.lsp @ 102

Last change on this file since 102 was 102, checked in by Sam Hocevar, 11 years ago
File size: 4.4 KB
Line 
1(load "addon/deathmat/levelset.lsp")  ; created by server setup
2
3(setq current_net_level 0)
4
5(if (not (get_option "-f"))  ;; are they trying to override the first level?
6    (set_first_level (nth current_net_level net_levels)))
7
8(if (am_a_client)
9    (progn
10      (load "addon/deathmat/cur_lev.lsp")
11      (set_first_level (nth current_net_level net_levels)))
12 
13  ;; save the level we are so joining clients know which one to load
14  (open_file "addon/deathmat/cur_lev.lsp" "wb"
15             (print `(setq current_net_level ,current_net_level))))
16 
17
18;; this is a simple check to see if they player has an engine version
19;; capable of playing the game.  All games should at least check for version 1.10
20;; because all version before that are beta and have known bugs.
21
22(if (< (+ (* (major_version) 100) (minor_version)) 100)    ; require at least version 1.00
23    (progn
24      (print "Your engine is out of date.  This game requires version 1.0")
25      (quit)))
26
27(setq section 'game_section)
28(load "lisp/english.lsp")             ;; load language specific stuff
29
30(setq load_warn nil)
31(if (not (load "lisp/common.lsp"))
32    (progn
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")     
36      (quit)))
37(setq load_warn T)
38
39(setq load_warn nil)
40
41(if (am_a_client)
42    (if (not (load "addon/deathmat/version.lsp"))
43        (progn
44          (print "\nThis server is playing an older version, please upgrade it")
45          (quit))
46      (if (or (not (eq server_version_major (major_version)))
47              (not (eq server_version_minor (minor_version))))
48          (progn
49            (print "\nThis server is playing a different version, cannot continue")
50            (quit))))
51  (open_file "addon/deathmat/version.lsp" "wb"
52             (print (list 'setq 'server_version_major (major_version) ))
53             (print (list 'setq 'server_version_minor (minor_version)))))
54             
55
56(if (not (am_a_client))
57    (setq username "Myself"))
58
59;(let ((input (nice_input "DEATHMATCH : Enter your name below" "Name" username)))
60;  (open_file "addon/deathmat/username.lsp" "wb"
61;            (print (list 'setq 'username
62;                         (concatenate 'string '(#\") input '(#\"))))))
63
64(local_load "addon/deathmat/username.lsp")
65(set_login username)
66
67
68(setq load_warn T)
69
70(if (not (am_a_client))   ;;  are we connecting to a server?
71    (start_server))
72
73
74
75
76(load "lisp/userfuns.lsp")
77
78;; this function is called at the end of every screen update
79;; for death match we use this to display a list of players in the
80;; game and the kills for each player
81
82(defun display_player (player text_x text_y)
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)
88                                                         " <<"
89                                                       ""))
90                    (aref player_text_color (player_number)))
91        (display_player (next_focus player) text_x (+ text_y (font_height (get_main_font)))))))
92
93
94(defun post_render ()
95  (if (not (edit_mode))      ; don't try this in edit mode
96      (score_draw)))
97
98;      (display_player (first_focus)  (with_object (first_focus) (+ (view_x1) 4)) (with_object (first_focus) (view_y1))  )))
99
100(load "lisp/chat.lsp")
101
102(setq keep_backup T)                  ;; determines if Save
103(setq load_warn nil)
104
105(local_load "gamma.lsp")              ;; load gamma correction values if they have been saved
106
107(if (not (load "hardness.lsp"))       ;; load hardness, if no file set to hard
108    (setf difficulty        'hard))
109(setq load_warn T)
110
111; *********** Defaults **************************
112(setf sfx_directory     "sfx/")
113
114(load_big_font     "art/fonts.spe" "screen11")
115(load_small_font   "art/fonts.spe" "small_font")
116(load_console_font "art/fonts.spe" "fnt5x7")
117
118(load_color_filter "art/back/backgrnd.spe")
119(load_palette      "art/back/backgrnd.spe")
120(setq normal_tint (def_tint "art/back/backgrnd.spe"))
121
122(load_tiles "art/fore/foregrnd.spe"
123            "art/fore/techno.spe"
124            "art/fore/techno2.spe"
125            "art/fore/techno3.spe"
126            "art/fore/techno4.spe"
127            "art/fore/cave.spe"
128
129            "art/back/intro.spe"
130            "art/back/city.spe"
131            "art/back/tech.spe"
132            "art/back/cave.spe"
133            "art/back/backgrnd.spe")
134
135(setq load_warn nil)
136(load "register/tiles.lsp")       ;; load up registered artwork if it's there
137(setq load_warn T)
138
139(setf title_screen      '("art/title.spe" . "title_screen"))
140(setf logo              '("art/title.spe" . "cdc_logo"))
141;(setq help_screens '("art/help.spe" "sell1" "sell2" "sell4"))
142
Note: See TracBrowser for help on using the repository browser.