/
game-server.lisp
49 lines (39 loc) · 1.64 KB
/
game-server.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
(in-package :mortar-combat)
(defclass game-server (connector)
((arena :initarg :arena))
(:default-initargs :host (property :server-address "127.0.0.1")
:port (property :proxy-server-port 8222)))
(defun make-game-server (arena)
(make-instance 'game-server :arena arena))
(defmethod process-command ((command (eql :register-player)) message)
(with-slots (arena) *connector*
(with-message (name) message
(let ((player (make-instance 'proxy :name name)))
(add-dude arena player)
(post (make-player-added player) (events)))))
nil)
(defmethod process-command ((command (eql :player-info)) message)
(with-slots (arena) *connector*
(with-message (name position rotation timestamp movement) message
(when-let ((player (find-dude arena name)))
(update-proxy player
(sequence->vec2 position)
(sequence->vec2 rotation)
timestamp
movement))))
nil)
(defun broadcast-game-state (server)
(with-slots (arena) server
(flet ((player-info (p)
(let ((pos (position-of p))
(rot (rotation-of p)))
(list :name (name-of p)
:position (list (x pos) (y pos))
:rotation (list (x rot) (y rot))
:movement (movement-of p)))))
(let ((proxies (mapcar #'player-info (cons (player-of arena) (dudes-of arena)))))
(run (-> (server :command :game-state
:no-reply t
:timestamp (real-time-seconds)
:state (list :player-list proxies))
()))))))