From fb117e328aa954294ef7e0f90bcba4274e7dd36a Mon Sep 17 00:00:00 2001
From: SouthFox <master@southfox.me>
Date: Tue, 29 Oct 2024 00:22:51 +0800
Subject: [PATCH] feat: add interval update

---
 game.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/game.scm b/game.scm
index a6a08c6..3487ce0 100644
--- a/game.scm
+++ b/game.scm
@@ -22,9 +22,12 @@
              (dom document)
              (dom element)
              (dom event)
+             (dom window)
              (math vector)
              (hoot ffi)
+             (hoot debug)
              (hoot hashtables)
+             (srfi srfi-9)
              (ice-9 match))
 
 
@@ -145,4 +148,34 @@
 
 ;; Main
 (set! *template* template-task)
+
+(define *update-list* '())
+(define dt (/ 1000.0 60.0))
+
+(define-record-type <timeout-function>
+  (make-timeout-function interval countdown func)
+  timeout-function?
+  (interval timeout-function-interval set-timeout-function-interval!)
+  (countdown timeout-function-countdown set-timeout-function-countdown!)
+  (func timeout-function-func))
+
+(define (plus-clicks)
+  (set! *clicks* (+ *clicks* 1)))
+
+(set! *update-list* (append *update-list* (list (make-timeout-function 60 60 plus-clicks))))
+
+(define (update)
+  (for-each (lambda (i)
+              (dprint "countdown" (timeout-function-countdown i))
+              (if (= (timeout-function-countdown i) 0)
+                  (begin
+                    ((timeout-function-func i))
+                    (set-timeout-function-countdown! i (timeout-function-interval i))
+                    (render))
+                  (set-timeout-function-countdown! i (- (timeout-function-countdown i) 1))))
+            *update-list*)
+  (timeout update-callback dt))
+
+(define update-callback (procedure->external update))
 (render)
+(timeout update-callback dt)