From e1da1b0c2b2df9880e7f0a76b6ecc7aefecaf229 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Fri, 10 Apr 2026 17:38:04 +0100 Subject: Remove useless ai.scm, use prefabs --- prefabs.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'prefabs.scm') diff --git a/prefabs.scm b/prefabs.scm index 798375a..5ae1255 100644 --- a/prefabs.scm +++ b/prefabs.scm @@ -4,8 +4,7 @@ (chicken keyword) (chicken port) defstruct - downstroke-entity - downstroke-ai) + downstroke-entity) ;; Registry struct to hold prefab data (defstruct prefab-registry @@ -15,8 +14,7 @@ (define (engine-mixins) '((physics-body #:vx 0 #:vy 0 #:ay 0 #:gravity? #t #:solid? #t #:on-ground? #f) (has-facing #:facing 1) - (animated #:anim-name idle #:anim-frame 0 #:anim-tick 0 #:tile-id 0) - (ai-body #:ai-facing 1 #:ai-machine #f #:chase-origin-x 0 #:disabled #f))) + (animated #:anim-name idle #:anim-frame 0 #:anim-tick 0 #:tile-id 0))) ;; Compose a prefab entry with mixin table ;; Returns (name . merged-plist) @@ -38,9 +36,7 @@ (merged (apply append inline-fields mixin-plists))) (cons name merged))) - ;; Engine-level hooks - (define *engine-hooks* - `((init-enemy-ai . ,(lambda (e) (entity-set e #:ai-machine (make-enemy-ai-machine)))))) + (define *engine-hooks* '()) ;; Lookup a hook symbol in the hook table (define (lookup-hook hook-table hook-sym) -- cgit v1.2.3