No more events engine, map-mobs will do all the work

[gacela.git] / src / gacela.scm

diff --git a/src/gacela.scm b/src/gacela.scm
index 202c0c8b011bd4a1ab88ff10bbb23a15dad3a1fe..bfb4d123d47a9d896bb4cdc8d9c615845f5bacc6 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -187,6 +187,7 @@
 
 (define set-frames-per-second #f)
 (define init-frame-time #f)
+(define get-frame-time #f)
 (define delay-frame #f)
 
 (let ((time 0) (time-per-frame (/ 1000.0 *frames-per-second*)))
@@ -198,6 +199,10 @@
        (lambda ()
          (set! time (SDL_GetTicks))))
 
+  (set! get-frame-time
+       (lambda ()
+         time))
+
   (set! delay-frame
        (lambda ()
          (let ((frame-time (- (SDL_GetTicks) time)))