From f342816e7cb255306dee222cd174fcbdc9092cee Mon Sep 17 00:00:00 2001 From: jsancho Date: Mon, 10 Oct 2011 18:18:18 +0000 Subject: [PATCH] Publishing mob data and defining mobs events. --- src/gacela_mobs.scm | 25 +++++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm index 0ae561e..8cca932 100755 --- a/src/gacela_mobs.scm +++ b/src/gacela_mobs.scm @@ -63,6 +63,7 @@ `(hide-mob-hash (,mob 'get-mob-id))))) (define (run-mobs mobs) + (clear-mob-data) (for-each (lambda (m) (glPushMatrix) @@ -97,7 +98,7 @@ (catch #t (lambda () ,@body) (lambda (key . args) #f)) - (cond ((not (null? ,publish)) + (cond ((not (null? ',publish)) (display ,(cons 'list (map (lambda (x) `(cons ',(car x) ,(car x))) publish))) (publish-mob-data ,mob-id-symbol ,type-symbol ,(cons 'list (map (lambda (x) `(cons ',(car x) ,(car x))) publish))))) (newline))))))) @@ -109,7 +110,11 @@ ;;; Events Engine (define publish-mob-data #f) +(define clear-mob-data #f) +(define def-mobs-event #f) + (define published-data (make-hash-table)) +(define mobs-events (make-hash-table)) (let ((nop #f)) (set! publish-mob-data @@ -118,4 +123,20 @@ (i (cons mob-id data))) (hash-set! published-data mob-type (cond (t (cons i t)) - (else (list i)))))))) + (else (list i))))))) + + (set! clear-mob-data + (lambda () + (hash-clear! published-data))) + + (set! def-mobs-event + (lambda (type1 type2 fun) + #f)) +) + +(define-macro (define-mobs-event type1 type2 . body) + `(def-mobs-event + ,type1 + ,type2 + ,(cond ((null? body) #f) + (else `(lambda () ,@body))))) -- 2.39.5