From 553aea23f6f4d69950d31c3d51f20ad918de8a36 Mon Sep 17 00:00:00 2001 From: jsancho Date: Sun, 15 Apr 2012 12:23:56 +0000 Subject: [PATCH] Direct access to mob properties. --- src/gacela.scm | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/src/gacela.scm b/src/gacela.scm index d027cfa..1c3855b 100644 --- a/src/gacela.scm +++ b/src/gacela.scm @@ -268,6 +268,8 @@ (define current-mob-id #f) +(define translate-mob translate) + (define (get-current-mob-id) current-mob-id) @@ -315,10 +317,13 @@ (save-data) saved-data) (else - (save-data) - (let ((res (,fun-name mob-id mob-data))) - (set! mob-z-index (car res)) - (set! mob-data (cadr res)))))))) + (cond ((keyword? option) + (assoc-ref saved-data (keyword->symbol option))) + (else + (save-data) + (let ((res (,fun-name mob-id mob-data))) + (set! mob-z-index (car res)) + (set! mob-data (cadr res)))))))))) (define-macro (define-mob-function head . body) (let ((fun-name (car head)) @@ -365,8 +370,6 @@ ;;; Functions for checking mobs (collisions and more) -(define translate-mob translate) - (define (map-mobs fun type) (let ((mobs (filter (lambda (m) (and (eq? (m 'get-type) type) (not (eq? (m 'get-mob-id) (get-current-mob-id))))) (get-active-mobs)))) (map (lambda (m) (fun (m 'get-data))) mobs))) @@ -379,3 +382,10 @@ (let ,(map (lambda (a) `(,(car a) (assoc-ref m ',(cadr a)))) attr) ,@body)) ',type)))) + + +;;; Scenes + +(define-macro (define-scene name . body) + `(define (,name) + ,@body)) -- 2.39.2