diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-10-28 11:48:47 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-10-28 11:48:47 -0400 |
| commit | 70b79936887c5c4a2549ce3f3f8962917cc5f10e (patch) | |
| tree | a6829a1f84c3f84b61f69d7d53abb33b9db88eb8 /compile-map.scm | |
| parent | 58dfdd5c9a4285e55cc17e803f9924077e927dfe (diff) | |
Scriptable scroll speed!
Diffstat (limited to 'compile-map.scm')
| -rw-r--r-- | compile-map.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compile-map.scm b/compile-map.scm index 1270fc4..486145f 100644 --- a/compile-map.scm +++ b/compile-map.scm @@ -543,12 +543,14 @@ the default ORIENTATION value of 'orthogonal' is supported." (th (tile-map-tile-height tile-map))) (for-each (lambda (obj) (let* ((type (map-object-type obj)) + (properties (map-object-properties obj)) (r (map-object-shape obj)) (x (/ (rect-x r) tw)) (y (/ (rect-y r) th))) ;; (format (current-error-port) "obj: ~a ~a ~a ~a\n" (rect-x r) (rect-y r) x y) (hashv-set! table y - (cons `(make-level-object ,x (quote ,type)) + (cons `(make-level-object ,x (quote ,type) + (quote ,properties)) (hashv-ref table y '()))))) (object-layer-objects layer)) `(vector |