|
@@ -143,8 +143,8 @@
|
|
|
(push kill (player-kills killer))
|
|
(push kill (player-kills killer))
|
|
|
(on-kill killer kill))))
|
|
(on-kill killer kill))))
|
|
|
(:exit (progn
|
|
(:exit (progn
|
|
|
- (setf (game-is-active *game*) nil)
|
|
|
|
|
- (on-exit)))
|
|
|
|
|
|
|
+ (on-exit)
|
|
|
|
|
+ (setf (game-is-active *game*) nil)))
|
|
|
(:shutdowngame (loop for player across (game-players *game*)
|
|
(:shutdowngame (loop for player across (game-players *game*)
|
|
|
do (setf (player-kills player) nil))))))
|
|
do (setf (player-kills player) nil))))))
|
|
|
(values))
|
|
(values))
|
