X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_mobs.scm;h=ed55a007e85251326cc4033768d7b8d87355b755;hb=afd5b9c3d8e3e5ce81893771c7cac53f6469aa07;hp=5e159075b945586567e7154096dd4386de42b53e;hpb=023823491bfe1a64e136bcc2d47c6ec5803f23bf;p=gacela.git

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 5e15907..ed55a00 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -20,6 +20,7 @@
 (define show-mob-hash #f)
 (define hide-mob-hash #f)
 (define get-active-mobs #f)
+(define clear-active-mobs #f)
 (define mobs-changed? #f)
 
 (let ((active-mobs (make-hash-table)) (changed #f))
@@ -38,6 +39,11 @@
 	  (set! changed (not refreshed))
 	  (hash-map->list (lambda (k v) v) active-mobs)))
 
+  (set! clear-active-mobs
+	(lambda ()
+	  (set! changed #t)
+	  (hash-clear! active-mobs)))
+
   (set! mobs-changed?
 	(lambda () changed)))