[decomp] add import statements for art groups (#1372)

* new code * update goal_src and remove all_imports * update reference * add decompiler list of imports * deduplicate and move below decomp begins
2026-09-08 03:46:51 -04:00 · 2022-05-23 18:53:02 -04:00
parent 4ff05077eb
commit 148f52876a
310 changed files with 1674 additions and 411 deletions
@@ -676,8 +676,8 @@
  )

 (defmacro sp-rnd-flt (field-name val range mult)
-  `(new 'static 'sp-field-init-spec 
-        :field (sp-field-id ,field-name) 
+  `(new 'static 'sp-field-init-spec
+        :field (sp-field-id ,field-name)
        :initial-valuef ,val
        :random-rangef ,range
        :random-multf ,mult
@@ -686,8 +686,8 @@
  )

 (defmacro sp-flt (field-name val)
-  `(new 'static 'sp-field-init-spec 
-        :field (sp-field-id ,field-name) 
+  `(new 'static 'sp-field-init-spec
+        :field (sp-field-id ,field-name)
        :initial-valuef ,val
        :random-rangef 0.0
        :random-multf 1.0
@@ -865,13 +865,13 @@
 (desfun art-elt->index (ag-name elt-name)
  (if (number? elt-name)
      elt-name
-      (let ((ag-info (assoc ag-name *art-info*)))
-          (if (null? ag-info)
+      (let ((ag-info (hash-table-try-ref *art-info* (symbol->string ag-name))))
+          (if (not (car ag-info))
              -1
-              (let ((elt-info (assoc elt-name (cdr ag-info))))
-                  (if (null? elt-info)
+              (let ((elt-info (hash-table-try-ref (cdr ag-info) (symbol->string elt-name))))
+                  (if (not (car elt-info))
                      -1
-                      (cadr elt-info))
+                      (cadr (cdr elt-info)))
                  )
              )
          )
@@ -902,7 +902,7 @@
        ;; set joint geometry and joint bones
        (set! (-> skel jgeo) ,(art-elt->index (string->symbol-format "{}-ag" art-name) joint-geom))
        (set! (-> skel janim) ,(art-elt->index (string->symbol-format "{}-ag" art-name) joint-anim))
-        
+
        ;; set lods
        ,@(apply-i (lambda (x i)
                      `(begin
@@ -1010,7 +1010,7 @@
              )
  "set various joint anim parameters for self and eval them.
   you can use this for playing animations!
-   
+
   chan         = the channel to modify. defaults to 0 (base channel). this is usually what you want.
   group!       = when not #f, set this as the new frame-group. defaults to #f
   num!         = set the frame playback function. this is what determines what frame an animation is at. funcs below.
@@ -1021,7 +1021,7 @@
   frame-num    = set the frame-num field.
   frame-interp = set the frame-interp field.
   dist         = set the dist field.
-   
+
   available num! functions:
   - (+!)       = advance anim.
   - (-!)       = reverse anim.
@@ -1036,7 +1036,7 @@
   - min = the start of the animation.
   - max = the end of the animation.
   "
-  
+
  (let* ((num-args (if (pair? num!) (cdr num!) '()))
        (num! (if (pair? num!) (car num!) num!))
        (nf (cond
@@ -1,6 +1,11 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/buzzer-ag.gc")
+(import "goal_src/import/ecovalve-ag.gc")
+(import "goal_src/import/money-ag.gc")
+(import "goal_src/import/fuel-cell-ag.gc")
+
 ;; definition for symbol *eco-pill-count*, type int
 (define *eco-pill-count* 0)

@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/crate-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *crate-barrel-sg* crate crate-barrel-lod0-jg crate-barrel-idle-ja
              ((crate-barrel-lod0-mg (meters 20)) (crate-barrel-lod1-mg (meters 40)) (crate-barrel-lod2-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/speaker-ag.gc")
+
 ;; definition of type camera-voicebox
 (deftype camera-voicebox (camera-slave)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/sidekick-ag.gc")
+
 ;; definition for symbol *sidekick-remap*, type pair
 (define *sidekick-remap* '(("run-to-stance-left" "run-to-stance")
                           ("run-to-stance-loop-left" "run-to-stance-loop")
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/deathcam-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *deathcam-sg* deathcam deathcam-lod0-jg deathcam-idle-ja
              ((deathcam-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/eichar-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *jchar-sg* eichar eichar-lod0-jg -1
              ((eichar-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/fuelcell-naked-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-part-hud-pickup
  :id 75
@@ -1,6 +1,16 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ecoventrock-ag.gc")
+(import "goal_src/import/beachcam-ag.gc")
+(import "goal_src/import/windmill-one-ag.gc")
+(import "goal_src/import/kickrock-ag.gc")
+(import "goal_src/import/harvester-ag.gc")
+(import "goal_src/import/flutflutegg-ag.gc")
+(import "goal_src/import/grottopole-ag.gc")
+(import "goal_src/import/flutflut-ag.gc")
+(import "goal_src/import/bladeassm-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *beachcam-sg* beachcam beachcam-lod0-jg beachcam-anim-ja
              ((beachcam-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/lrocklrg-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *lrocklrg-sg* lrocklrg lrocklrg-lod0-jg lrocklrg-idle-ja
              ((lrocklrg-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/bird-lady-beach-ag.gc")
+
 ;; definition of type bird-lady-beach
 (deftype bird-lady-beach (process-taskable)
  ((flutflut handle  :offset-assert 384)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/bird-lady-ag.gc")
+
 ;; definition of type bird-lady
 (deftype bird-lady (process-taskable)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/lurkercrab-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-lurkercrab-slide
  :id 159
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/lurkerpuppy-ag.gc")
+
 ;; definition of type lurkerpuppy
 (deftype lurkerpuppy (nav-enemy)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/lurkerworm-ag.gc")
+
 ;; definition of type lurkerworm
 (deftype lurkerworm (process-drawable)
  ((root-override collide-shape-moving      :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/mayor-ag.gc")
+
 ;; definition of type mayor
 (deftype mayor (process-taskable)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/pelican-ag.gc")
+
 ;; definition of type pelican-bank
 (deftype pelican-bank (basic)
  ((circle-speed        meters   :offset-assert   4)
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/sculptor-muse-ag.gc")
+(import "goal_src/import/sculptor-ag.gc")
+
 ;; definition of type sculptor
 (deftype sculptor (process-taskable)
  ((muse handle  :offset-assert 384)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/seagull-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-seagull-takeoff
  :id 160
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/assistant-lavatube-end-ag.gc")
+
 ;; definition of type assistant-lavatube-end
 (deftype assistant-lavatube-end (process-taskable)
  ()
@@ -1,6 +1,18 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/citb-generator-ag.gc")
+(import "goal_src/import/citb-launcher-ag.gc")
+(import "goal_src/import/citb-button-ag.gc")
+(import "goal_src/import/citadelcam-ag.gc")
+(import "goal_src/import/citb-hose-ag.gc")
+(import "goal_src/import/citb-robotboss-ag.gc")
+(import "goal_src/import/citb-coil-ag.gc")
+(import "goal_src/import/citb-arm-shoulder-ag.gc")
+(import "goal_src/import/citb-iris-door-ag.gc")
+(import "goal_src/import/citb-disc-ag.gc")
+(import "goal_src/import/citb-arm-ag.gc")
+
 ;; definition of type citb-arm-section
 (deftype citb-arm-section (process-drawable)
  ((sync           sync-info :inline :offset-assert 176)
@@ -1,6 +1,14 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/green-sagecage-ag.gc")
+(import "goal_src/import/yellowsage-ag.gc")
+(import "goal_src/import/redsage-ag.gc")
+(import "goal_src/import/evilbro-citadel-ag.gc")
+(import "goal_src/import/evilsis-citadel-ag.gc")
+(import "goal_src/import/citb-sagecage-ag.gc")
+(import "goal_src/import/bluesage-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *citb-sagecage-sg* citb-sagecage citb-sagecage-lod0-jg citb-sagecage-redsage-idle-ja
              ((citb-sagecage-lod0-mg (meters 20)) (citb-sagecage-lod1-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/citb-bunny-ag.gc")
+
 ;; definition of type citb-bunny
 (deftype citb-bunny (snow-bunny)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/citb-drop-plat-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *citb-drop-plat-sg* citb-drop-plat citb-drop-plat-lod0-jg citb-drop-plat-idle-ja
              ((citb-drop-plat-lod0-mg (meters 20)) (citb-drop-plat-lod1-mg (meters 999999)))
@@ -1,6 +1,15 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/citb-exit-plat-ag.gc")
+(import "goal_src/import/plat-eco-citb-ag.gc")
+(import "goal_src/import/plat-citb-ag.gc")
+(import "goal_src/import/citb-stopbox-ag.gc")
+(import "goal_src/import/citb-firehose-ag.gc")
+(import "goal_src/import/citb-rotatebox-ag.gc")
+(import "goal_src/import/citb-chain-plat-ag.gc")
+(import "goal_src/import/citb-donut-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *plat-citb-sg* plat-citb plat-citb-lod0-jg plat-citb-idle-ja
              ((plat-citb-lod0-mg (meters 20)) (plat-citb-lod1-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/babak-ag.gc")
+
 ;; definition of type babak
 (deftype babak (nav-enemy)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/generic-button-ag.gc")
+
 ;; definition of type basebutton
 (deftype basebutton (process-drawable)
  ((root-override     collide-shape-moving         :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ef-plane-ag.gc")
+
 ;; definition of type blocking-plane
 (deftype blocking-plane (process-drawable)
  ()
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/launcherdoor-maincave-ag.gc")
+(import "goal_src/import/launcherdoor-ag.gc")
+
 ;; definition of type launcherdoor
 (deftype launcherdoor (process-drawable)
  ((root-override              collide-shape  :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/orb-cache-top-ag.gc")
+
 ;; definition of type orb-cache-top
 (deftype orb-cache-top (baseplat)
  ((active-distance   float     :offset-assert 228)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/plat-button-ag.gc")
+
 ;; definition of type plat-button
 (deftype plat-button (process-drawable)
  ((root-override           collide-shape-moving         :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/plat-eco-ag.gc")
+
 ;; definition of type plat-eco
 (deftype plat-eco (plat)
  ((notice-dist      float           :offset-assert 264)
@@ -1,6 +1,10 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/plat-sunken-ag.gc")
+(import "goal_src/import/plat-ag.gc")
+(import "goal_src/import/plat-jungleb-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-standard-plat
  :id 107
@@ -1,6 +1,13 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/vil3-bridge-36-ag.gc")
+(import "goal_src/import/ropebridge-36-ag.gc")
+(import "goal_src/import/ropebridge-32-ag.gc")
+(import "goal_src/import/ropebridge-52-ag.gc")
+(import "goal_src/import/snow-bridge-36-ag.gc")
+(import "goal_src/import/ropebridge-70-ag.gc")
+
 ;; definition of type ropebridge-tuning
 (deftype ropebridge-tuning (structure)
  ((num-springs             int32            :offset-assert   0)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/sharkey-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-sharkey-splash
  :id 106
@@ -1,6 +1,23 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/water-anim-maincave-ag.gc")
+(import "goal_src/import/water-anim-village3-ag.gc")
+(import "goal_src/import/water-anim-finalboss-ag.gc")
+(import "goal_src/import/water-anim-maincave-water-ag.gc")
+(import "goal_src/import/water-anim-sunken-ag.gc")
+(import "goal_src/import/water-anim-lavatube-ag.gc")
+(import "goal_src/import/water-anim-robocave-ag.gc")
+(import "goal_src/import/water-anim-jungle-ag.gc")
+(import "goal_src/import/water-anim-ogre-ag.gc")
+(import "goal_src/import/water-anim-training-ag.gc")
+(import "goal_src/import/water-anim-darkcave-ag.gc")
+(import "goal_src/import/water-anim-village1-ag.gc")
+(import "goal_src/import/water-anim-rolling-ag.gc")
+(import "goal_src/import/water-anim-misty-ag.gc")
+(import "goal_src/import/water-anim-sunken-dark-eco-ag.gc")
+(import "goal_src/import/water-anim-village2-ag.gc")
+
 ;; definition of type water-anim
 (deftype water-anim (water-vol)
  ((ppointer-water-anim (pointer water-anim)  :offset         24)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/cavecrystal-ag.gc")
+
 ;; definition of type cavecrystal
 (deftype cavecrystal (process-drawable)
  ((root-override              collide-shape         :offset        112)
@@ -1,6 +1,10 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/power-left-ag.gc")
+(import "goal_src/import/power-right-ag.gc")
+(import "goal_src/import/powercellalt-ag.gc")
+
 ;; definition of type fin-door
 (deftype fin-door (process-hidden)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/green-eco-lurker-ag.gc")
+
 ;; definition of type green-eco-lurker
 (deftype green-eco-lurker (nav-enemy)
  ((played-sound? symbol             :offset-assert 400)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/light-eco-ag.gc")
+
 ;; definition of type light-eco-child
 (deftype light-eco-child (process-drawable)
  ((root-override      collide-shape         :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/robotboss-ag.gc")
+
 ;; definition of type robotboss-dda
 (deftype robotboss-dda (structure)
  ((blue-bomb-time       float  :offset-assert   0)
@@ -1,6 +1,10 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/silodoor-ag.gc")
+(import "goal_src/import/ecoclaw-ag.gc")
+(import "goal_src/import/finalbosscam-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *med-res-snow1-sg* medres-snowback 0 2
              ((1 (meters 999999)))
@@ -1,6 +1,10 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/darkecobomb-ag.gc")
+(import "goal_src/import/greenshot-ag.gc")
+(import "goal_src/import/redring-ag.gc")
+
 ;; definition of type torus
 (deftype torus (structure)
  ((origin           vector :inline :offset-assert   0)
@@ -1,6 +1,10 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/robotboss-redeco-ag.gc")
+(import "goal_src/import/robotboss-blueeco-ag.gc")
+(import "goal_src/import/robotboss-yelloweco-ag.gc")
+
 ;; definition for method 20 of type robotboss
 (defmethod ease-loc-t robotboss ((obj robotboss))
  (parameter-ease-sin-clamp (-> obj loc-t))
@@ -1,6 +1,11 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/plat-eco-finalboss-ag.gc")
+(import "goal_src/import/green-sagecage-ag.gc")
+(import "goal_src/import/jak-white-ag.gc")
+(import "goal_src/import/robotboss-cinematic-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *robotboss-cinematic-sg* robotboss-cinematic robotboss-cinematic-lod0-jg robotboss-cinematic-idle-ja
              ((robotboss-cinematic-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/assistant-firecanyon-ag.gc")
+
 ;; definition of type assistant-firecanyon
 (deftype assistant-firecanyon (process-taskable)
  ()
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/crate-darkeco-cluster-ag.gc")
+(import "goal_src/import/spike-ag.gc")
+
 ;; definition of type balloon
 (deftype balloon (process-drawable)
  ((root-override collide-shape  :offset 112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/flut-saddle-ag.gc")
+
 ;; failed to figure out what this is:
 (if (not (nmember "flutp" *kernel-packages*))
    (set! *kernel-packages* (cons "flutp" *kernel-packages*))
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/evilbro-ag.gc")
+(import "goal_src/import/evilsis-ag.gc")
+
 ;; definition of type evilbro
 (deftype evilbro (process-taskable)
  ((evilsis entity  :offset-assert 380)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/bounceytarp-ag.gc")
+
 ;; definition of type springbox
 (deftype springbox (process-drawable)
  ((spring-height meters  :offset-assert 176)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/darkvine-ag.gc")
+
 ;; definition of type darkvine
 (deftype darkvine (process-drawable)
  ((root-override    collide-shape  :offset        112)
@@ -1,6 +1,12 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/fish-net-ag.gc")
+(import "goal_src/import/fisher-ag.gc")
+(import "goal_src/import/catch-fisha-ag.gc")
+(import "goal_src/import/catch-fishb-ag.gc")
+(import "goal_src/import/catch-fishc-ag.gc")
+
 ;; definition of type fisher-bank
 (deftype fisher-bank (basic)
  ((width      meters  :offset-assert   4)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/hopper-ag.gc")
+
 ;; definition of type hopper
 (deftype hopper (nav-enemy)
  ((jump-length  float  :offset-assert 400)
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/periscope-ag.gc")
+(import "goal_src/import/reflector-mirror-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-jungle-binoculars
  :id 176
@@ -1,6 +1,17 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/maindoor-ag.gc")
+(import "goal_src/import/junglecam-ag.gc")
+(import "goal_src/import/precurbridge-ag.gc")
+(import "goal_src/import/sidedoor-ag.gc")
+(import "goal_src/import/towertop-ag.gc")
+(import "goal_src/import/logtrap-ag.gc")
+(import "goal_src/import/lurkerm-tall-sail-ag.gc")
+(import "goal_src/import/medres-firecanyon-ag.gc")
+(import "goal_src/import/lurkerm-piston-ag.gc")
+(import "goal_src/import/accordian-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *med-res-firecanyon-sg* medres-firecanyon medres-firecanyon-lod0-jg medres-firecanyon-idle-ja
              ((medres-firecanyon-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/junglefish-ag.gc")
+
 ;; definition of type junglefish
 (deftype junglefish (nav-enemy)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/junglesnake-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *junglesnake-sg* junglesnake junglesnake-lod0-jg junglesnake-idle-ja
              ((junglesnake-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/aphid-lurker-ag.gc")
+
 ;; definition of type aphid
 (deftype aphid (nav-enemy)
  ((try int32  :offset-assert 400)
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/eggtop-ag.gc")
+(import "goal_src/import/jng-iris-door-ag.gc")
+
 ;; definition of type eggtop
 (deftype eggtop (process-drawable)
  ((root-override collide-shape-moving  :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/plant-boss-ag.gc")
+
 ;; definition of type plant-boss
 (deftype plant-boss (process-drawable)
  ((root-override    collide-shape               :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/plat-flip-ag.gc")
+
 ;; definition of type plat-flip
 (deftype plat-flip (process-drawable)
  ((root-override         collide-shape-moving         :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/assistant-lavatube-start-ag.gc")
+
 ;; definition of type assistant-lavatube-start
 (deftype assistant-lavatube-start (process-taskable)
  ()
@@ -1,6 +1,12 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/energyball-ag.gc")
+(import "goal_src/import/energybase-ag.gc")
+(import "goal_src/import/energyhub-ag.gc")
+(import "goal_src/import/energyarm-ag.gc")
+(import "goal_src/import/energydoor-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-energyarm
  :id 544
@@ -1,6 +1,16 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/lavafallsewerb-ag.gc")
+(import "goal_src/import/lavashortcut-ag.gc")
+(import "goal_src/import/lavabase-ag.gc")
+(import "goal_src/import/lavafallsewera-ag.gc")
+(import "goal_src/import/chainmine-ag.gc")
+(import "goal_src/import/lavafall-ag.gc")
+(import "goal_src/import/lavaballoon-ag.gc")
+(import "goal_src/import/darkecobarrel-ag.gc")
+(import "goal_src/import/lavayellowtarp-ag.gc")
+
 ;; definition of type lavabase
 (deftype lavabase (process-drawable)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/baby-spider-ag.gc")
+
 ;; definition of type baby-spider-spawn-params
 (deftype baby-spider-spawn-params (structure)
  ((hatched?                          symbol      :offset-assert   0)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/dark-crystal-ag.gc")
+
 ;; definition of type dark-crystal
 (deftype dark-crystal (process-drawable)
  ((root-override         collide-shape         :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/driller-lurker-ag.gc")
+
 ;; definition of type driller-lurker
 (deftype driller-lurker (process-drawable)
  ((root-overeride          collide-shape-moving  :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/gnawer-ag.gc")
+
 ;; definition of type gnawer-falling-segment
 (deftype gnawer-falling-segment (process-drawable)
  ((transv      vector :inline :offset-assert 176)
@@ -1,6 +1,13 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/caveelevator-ag.gc")
+(import "goal_src/import/cavespatulatwo-ag.gc")
+(import "goal_src/import/cavetrapdoor-ag.gc")
+(import "goal_src/import/maincavecam-ag.gc")
+(import "goal_src/import/cavecrusher-ag.gc")
+(import "goal_src/import/cavespatula-darkcave-ag.gc")
+
 ;; definition of type maincavecam
 (deftype maincavecam (pov-camera)
  ((seq uint64  :offset-assert 224)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/spider-egg-ag.gc")
+
 ;; definition of type mother-spider-egg
 (deftype mother-spider-egg (process-drawable)
  ((parent-override    (pointer mother-spider)          :offset         12)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/mother-spider-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *mother-spider-sg* mother-spider mother-spider-lod0-jg -1
              ((mother-spider-lod0-mg (meters 20))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/spiderwebs-ag.gc")
+
 ;; definition for symbol *spider-jump-mods*, type surface
 (define *spider-jump-mods* (new 'static 'surface
                             :name 'jump
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/balloonlurker-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-balloonlurker-pilot-death
  :id 203
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/bonelurker-ag.gc")
+
 ;; definition of type bonelurker
 (deftype bonelurker (nav-enemy)
  ((bump-player-time time-frame  :offset-assert 400)
@@ -1,6 +1,10 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/keg-conveyor-ag.gc")
+(import "goal_src/import/keg-conveyor-paddle-ag.gc")
+(import "goal_src/import/keg-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-keg-bounce
  :id 197
@@ -1,6 +1,15 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/breakaway-right-ag.gc")
+(import "goal_src/import/boatpaddle-ag.gc")
+(import "goal_src/import/breakaway-mid-ag.gc")
+(import "goal_src/import/mis-bone-platform-ag.gc")
+(import "goal_src/import/breakaway-left-ag.gc")
+(import "goal_src/import/windturbine-ag.gc")
+(import "goal_src/import/mistycam-ag.gc")
+(import "goal_src/import/mis-bone-bridge-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-windturbine-particles
  :id 191
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/teetertotter-ag.gc")
+
 ;; definition of type teetertotter
 (deftype teetertotter (process-drawable)
  ((launched-player   basic  :offset-assert 176)
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/silostep-ag.gc")
+(import "goal_src/import/rounddoor-ag.gc")
+
 ;; definition of type silostep
 (deftype silostep (process-drawable)
  ((anim-limit  float   :offset-assert 176)
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/sack-ag.gc")
+(import "goal_src/import/mistycannon-ag.gc")
+
 ;; definition of type angle-tracker
 (deftype angle-tracker (structure)
  ((value float  :offset-assert   0)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/muse-ag.gc")
+
 ;; definition of type muse
 (deftype muse (nav-enemy)
  ((root-override      collide-shape-moving         :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/quicksandlurker-ag.gc")
+
 ;; failed to figure out what this is:
 (defpartgroup group-quicksandlurker-missile
  :id 198
@@ -1,6 +1,11 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/darkecocan-ag.gc")
+(import "goal_src/import/sidekick-human-ag.gc")
+(import "goal_src/import/evilbro-ag.gc")
+(import "goal_src/import/evilsis-ag.gc")
+
 ;; definition of type sequenceA
 (deftype sequenceA (process-hidden)
  ()
@@ -1,6 +1,10 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ogrecam-ag.gc")
+(import "goal_src/import/plunger-lurker-ag.gc")
+(import "goal_src/import/flying-lurker-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *ogrecam-sg* ogrecam ogrecam-lod0-jg -1
              ((ogrecam-lod0-mg (meters 999999)))
@@ -1,6 +1,14 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ogre-step-ag.gc")
+(import "goal_src/import/tntbarrel-ag.gc")
+(import "goal_src/import/ogre-bridge-ag.gc")
+(import "goal_src/import/shortcut-boulder-ag.gc")
+(import "goal_src/import/medres-snow-ag.gc")
+(import "goal_src/import/ogre-bridgeend-ag.gc")
+(import "goal_src/import/ogre-isle-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *med-res-snow-sg* medres-snow medres-snow-lod0-jg medres-snow-idle-ja
              ((medres-snow-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ogreboss-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *ogreboss-sg* ogreboss ogreboss-lod0-jg ogreboss-idle-ja
              ((ogreboss-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/racer-ag.gc")
+
 ;; failed to figure out what this is:
 (if (not (nmember "racerp" *kernel-packages*))
    (set! *kernel-packages* (cons "racerp" *kernel-packages*))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/balloon-ag.gc")
+
 ;; definition of type racer-info
 (deftype racer-info (basic)
  ((entity              entity-actor          :offset-assert   4)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/spider-egg-ag.gc")
+
 ;; definition of type spider-egg
 (deftype spider-egg (process-drawable)
  ((root-override collide-shape-moving         :offset        112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/lightning-mole-ag.gc")
+
 ;; definition for function find-adjacent-bounds-one
 ;; Used lq/sq
 (defun find-adjacent-bounds-one ((arg0 nav-mesh) (arg1 nav-poly) (arg2 int) (arg3 (array int8)) (arg4 (array int8)) (arg5 vector))
@@ -1,6 +1,12 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/rollingcam-ag.gc")
+(import "goal_src/import/pusher-ag.gc")
+(import "goal_src/import/happy-plant-ag.gc")
+(import "goal_src/import/dark-plant-ag.gc")
+(import "goal_src/import/rolling-start-ag.gc")
+
 ;; definition of type rolling-part
 (deftype rolling-part (part-spawner)
  ((root-override basic  :offset 112)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/race-ring-ag.gc")
+
 ;; definition of type race-ring
 (deftype race-ring (process-drawable)
  ((rot-y                 float                 :offset-assert 176)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/robber-ag.gc")
+
 ;; failed to figure out what this is:
 (defstate fuel-cell-spline-slider (fuel-cell)
  :trans
@@ -1,6 +1,9 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ice-cube-ag.gc")
+(import "goal_src/import/ice-cube-break-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *ice-cube-break-sg* ice-cube-break ice-cube-break-lod0-jg -1
              ((ice-cube-break-lod0-mg (meters 999999)))
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/snow-ball-ag.gc")
+
 ;; definition of type snow-ball-shadow
 (deftype snow-ball-shadow (process-drawable)
  ()
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/snow-bumper-ag.gc")
+
 ;; definition of type snow-bumper
 (deftype snow-bumper (process-drawable)
  ((bumper-id               int32                     :offset-assert 176)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/snow-bunny-ag.gc")
+
 ;; definition of type snow-bunny
 (deftype snow-bunny (nav-enemy)
  ((patrol-rand-distraction int32              :offset-assert 400)
@@ -1,6 +1,11 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/snow-button-ag.gc")
+(import "goal_src/import/flutflut-plat-med-ag.gc")
+(import "goal_src/import/flutflut-plat-small-ag.gc")
+(import "goal_src/import/flutflut-plat-large-ag.gc")
+
 ;; definition of type flutflut-plat
 (deftype flutflut-plat (plat)
  ((has-path?           symbol               :offset-assert 264)
@@ -1,6 +1,15 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/snowcam-ag.gc")
+(import "goal_src/import/snow-fort-gate-ag.gc")
+(import "goal_src/import/snow-eggtop-ag.gc")
+(import "goal_src/import/snow-spatula-ag.gc")
+(import "goal_src/import/snow-switch-ag.gc")
+(import "goal_src/import/snow-gears-ag.gc")
+(import "goal_src/import/snowpusher-ag.gc")
+(import "goal_src/import/snow-log-ag.gc")
+
 ;; definition of type snowcam
 (deftype snowcam (pov-camera)
  ((seq uint64  :offset-assert 224)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ram-boss-ag.gc")
+
 ;; definition of type ram-boss-proj
 (deftype ram-boss-proj (projectile)
  ((parent-override (pointer ram-boss)               :offset         12)
@@ -1,6 +1,8 @@
 ;;-*-Lisp-*-
 (in-package goal)

+(import "goal_src/import/ram-ag.gc")
+
 ;; failed to figure out what this is:
 (defskelgroup *ram-sg* ram ram-lod0-jg ram-cock-ja
              ((ram-lod0-mg (meters 20)) (ram-lod1-mg (meters 40)) (ram-lod2-mg (meters 999999)))
--- a/Show More
+++ b/Show More