(no commit message)

diff --git a/src/gacela_misc.scm b/src/gacela_misc.scm
index b75a44eb1cf91a4d1c1158db9c754a5c06687b0a..d486b2650b734a2bea3ef7b977f42898ad7ef480 100644 (file)
--- a/src/gacela_misc.scm
+++ b/src/gacela_misc.scm
@@ -20,3 +20,7 @@
     (cond ((> (* p 2) n) p)
          (else (power (* p 2) n))))
   (power 1 n))
+
+(define-macro (pushnew elem list)
+  `(cond ((not (find (lambda (e) (eq? e ,elem)) ,list))
+         (set! ,list (cons ,elem ,list)))))

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 12a0ef1d8aa90163e40a2469adfda912ac2b4184..9e971b919a4df631e306b142ead5deb1de4d1629 100755 (executable)
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -38,6 +38,50 @@
 
 ;;; Mob Factory
 
+(define add-mob #f)
+(define kill-mob #f)
+(define kill-all-mobs #f)
+(define refresh-active-mobs #f)
+(define action-mobs #f)
+(define render-mobs #f)
+
+(let ((active-mobs '()) (mobs-to-add '()) (mobs-to-kill '())
+  (set! add-mob
+       (lambda (mob)
+         (pushnew mob mobs-to-add)))
+
+  (set! kill-mob
+       (lambda (mob)
+         (pushnew mob mobs-to-kill))
+
+  (set! kill-all-mobs
+       (lambda ()
+         (set! active-mobs '())
+         (set! mobs-to-add '())
+         (set! mobs-to-kill '())))
+
+  (set! refresh-active-mobs
+       (lambda ()
+         (define (add active to-add)
+           (cond ((null? to-add) active)
+                 (else
+                  (pushnew (car to-add) active)
+                  (add active (cdr to-add)))))
+
+         (add active-mobs mobs-to-add)
+         (set! mobs-to-add '())
+         (set! active-mobs (reverse (lset-difference eq? active-mobs mobs-to-kill)))
+         (set! mobs-to-kill '())))
+
+  (set! action-mobs
+       (lambda ()
+         (map (lambda (m) (m #:action)) active-mobs)))
+
+  (set! render-mobs
+       (lambda ()
+         (map (lambda (m) (m #:render)) active-mobs))))
+
+
 (define-macro (makemob name . methods)
   `(define* (,name . args)
      (let ((option (car args)))