;;-*-Lisp-*-
(in-package goal)

;; definition of type ram
(deftype ram (process-drawable)
  ((root-override       collide-shape-moving             :offset        112)
   (ram-id              int32                            :offset-assert 176)
   (give-fuel-cell?     symbol                           :offset-assert 180)
   (give-fuel-cell-anim spool-anim                       :offset-assert 184)
   (part2               sparticle-launch-control         :offset-assert 188)
   (orient-ry           float                            :offset-assert 192)
   (fuel-cell-dest-pos  vector                   :inline :offset-assert 208)
   )
  :heap-base #x70
  :method-count-assert 23
  :size-assert         #xe0
  :flag-assert         #x17007000e0
  (:methods
    (dummy-20 (_type_) object 20)
    (dummy-21 (_type_) object 21)
    (dummy-22 (_type_) symbol 22)
    )
  (:states
    ram-fun-idle
    ram-give-fuel-cell
    ram-idle
    )
  )

;; definition for method 3 of type ram
(defmethod inspect ram ((obj ram))
  (let ((t9-0 (method-of-type process-drawable inspect)))
    (t9-0 obj)
    )
  (format #t "~T~Tram-id: ~D~%" (-> obj ram-id))
  (format #t "~T~Tgive-fuel-cell?: ~A~%" (-> obj give-fuel-cell?))
  (format #t "~T~Tgive-fuel-cell-anim: ~A~%" (-> obj give-fuel-cell-anim))
  (format #t "~T~Tpart2: ~A~%" (-> obj part2))
  (format #t "~T~Torient-ry: ~f~%" (-> obj orient-ry))
  (format #t "~T~Tfuel-cell-dest-pos: #<vector @ #x~X>~%" (-> obj fuel-cell-dest-pos))
  obj
  )

;; failed to figure out what this is:
0
