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

;; definition of type darkjak-info
(deftype darkjak-info (basic)
  ((process       (pointer target))
   (attack-id     uint32)
   (start-time    time-frame)
   (attack-time   time-frame)
   (attack-count  uint64)
   (stage         darkjak-stage)
   (want-stage    darkjak-stage)
   (clock-pos     float)
   (clock-vel     float)
   (clock-on      symbol)
   (hud           handle    1 :offset  64)
   (tone          sound-id    :offset  72)
   (bomb          uint32      :offset  76)
   )
  (:methods
    (update-clock! (_type_ int) none :behavior target)
    )
  )

;; definition for method 3 of type darkjak-info
(defmethod inspect ((this darkjak-info))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Tprocess: #x~X~%" (-> this process))
  (format #t "~1Tattack-id: ~D~%" (-> this attack-id))
  (format #t "~1Tstart-time: ~D~%" (-> this start-time))
  (format #t "~1Tattack-time: ~D~%" (-> this attack-time))
  (format #t "~1Tattack-count: ~D~%" (-> this attack-count))
  (format #t "~1Tstage: ~D~%" (-> this stage))
  (format #t "~1Twant-stage: ~D~%" (-> this want-stage))
  (format #t "~1Tclock-pos: ~f~%" (-> this clock-pos))
  (format #t "~1Tclock-vel: ~f~%" (-> this clock-vel))
  (format #t "~1Tclock-on: ~A~%" (-> this clock-on))
  (format #t "~1Thud[1] @ #x~X~%" (-> this hud))
  (format #t "~1Ttone: ~D~%" (-> this tone))
  (format #t "~1Tbomb: ~D~%" (-> this bomb))
  (label cfg-4)
  this
  )

;; failed to figure out what this is:
0