Remove useless ai.scm, use prefabs

1 files changed, 3 insertions, 7 deletions

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)