Send game updates every couple of frames

borodust · Apr 23, 2017 · b681885 · b681885
1 parent af8617a
commit b681885
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 22 deletions.
diff --git a/client/src/arena.lisp b/client/src/arena.lisp
@@ -28,17 +28,18 @@
   (with-slots (dudes player) this
     (dolist (dude-state (getf state :player-list))
       (with-instance-lock-held (this)
-        (let* ((dude-name (getf dude-state :name))
+        (let* ((dude-name (getf dude-state :name)))
-               (dude (gethash dude-name dudes)))
           (unless (equal dude-name (name-of player))
-            (unless dude
+            (let ((dude (gethash dude-name dudes)))
-              (setf dude (make-instance 'proxy :name dude-name)
+
-                    (gethash dude-name dudes) dude)
+              (unless dude
-              (post (make-player-added dude) (events)))
+                (setf dude (make-instance 'proxy :name dude-name)
-            (update-proxy dude
+                      (gethash dude-name dudes) dude)
-                          (sequence->vec2 (getf dude-state :position))
+                (post (make-player-added dude) (events)))
-                          (sequence->vec2(getf dude-state :rotation))
+              (update-proxy dude
-                          timestamp)))))))
+                            (sequence->vec2 (getf dude-state :position))
+                            (sequence->vec2(getf dude-state :rotation))
+                            timestamp))))))))
 
 
 (defun shoot-ball (player)

diff --git a/client/src/main.lisp b/client/src/main.lisp
@@ -171,18 +171,24 @@
                                                         (make-rendering-pass))
                                        scenegraph-root)))
              (concurrently ()
-               (let (looped-flow)
+               (let ((accumulated-time 0)
-                 (setf looped-flow (>> (instantly ()
+                     start looped-flow)
-                                         (let ((*system* this))
+                 (setf looped-flow
-                                           (drain task-queue))
+                       (>> (instantly ()
-                                         (send-client-data this)
+                             (setf start (real-time-seconds))
-                                         (broadcast-arena-state this))
+                             (let ((*system* this))
-                                       (-> ((physics)) ()
+                               (drain task-queue))
-                                         (observe-universe +framestep+))
+                             (when (> accumulated-time 0.05)
-                                       (scene-processing-flow scene)
+                               (send-client-data this)
-                                       (instantly ()
+                               (broadcast-arena-state this)
-                                         (when (enabledp this)
+                               (setf accumulated-time 0)))
-                                           (run looped-flow)))))
+                           (-> ((physics)) ()
+                             (observe-universe +framestep+))
+                           (scene-processing-flow scene)
+                           (instantly ()
+                             (incf accumulated-time (- (real-time-seconds) start))
+                             (when (enabledp this)
+                               (run looped-flow)))))
                  (run looped-flow)))))))