added a scheduler sketch

Author: andrea96

Scheduler.scm

@@ -0,0 +1,24 @@
+(module Scheduler
+    ((addActor)
+    (tick))
+  (import chicken scheme)
+  (use srfi-1)
+
+
+  (define actors '())
+
+  (define (addActor actionPoints callback)
+    (set! actors (append! actors `((,actionPoints ,actionPoints ,callback)))))
+
+  (define (tick)
+    (when (not (null? actors))
+      (let* ((actor (car actors))
+             (maxAP (car actor)) (actualAP (cadr actor)) (callback (caddr actor)))
+        (if (= (- actualAP 1) 0)
+          (begin
+            (set! actors (append! actors `((,maxAP ,maxAP ,callback))))
+            (callback))
+          (set! actors (append! actors `((,maxAP ,(- actualAP 1) ,callback)))))
+        (set! actors (cdr actors)))))
+
+)

scmrl.setup

@@ -2,4 +2,5 @@
 (compile -s -j Dungeon Dungeon.scm )
 (compile -s -j Fov Fov.scm )
 (compile -s -j Terminal Terminal.scm )
+(compile -s -j Scheduler Scheduler.scm )
 (compile scmrl.scm)