mirror of
https://github.com/open-goal/jak-project
synced 2026-08-09 18:58:50 -04:00
water111
99 lines
4.4 KiB
Common Lisp
Vendored
Generated
99 lines
4.4 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type vehicle-controls
|
|
(deftype vehicle-controls (structure)
|
|
((steering float :offset-assert 0)
|
|
(throttle float :offset-assert 4)
|
|
(brake float :offset-assert 8)
|
|
(lean-z float :offset-assert 12)
|
|
)
|
|
:pack-me
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
;; definition for method 3 of type vehicle-controls
|
|
(defmethod inspect vehicle-controls ((obj vehicle-controls))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj 'vehicle-controls)
|
|
(format #t "~1Tsteering: ~f~%" (-> obj steering))
|
|
(format #t "~1Tthrottle: ~f~%" (-> obj throttle))
|
|
(format #t "~1Tbrake: ~f~%" (-> obj brake))
|
|
(format #t "~1Tlean-z: ~f~%" (-> obj lean-z))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition of type pilot-info
|
|
(deftype pilot-info (basic)
|
|
((entity basic :offset-assert 4)
|
|
(vehicle handle :offset-assert 8)
|
|
(left-right-interp float :offset-assert 16)
|
|
(front-back-interp float :offset-assert 20)
|
|
(up-down-interp float :offset-assert 24)
|
|
(up-down-accel-factor float :offset-assert 28)
|
|
(front-back-accel-factor float :offset-assert 32)
|
|
(left-right-accel-factor float :offset-assert 36)
|
|
(stance uint8 :offset-assert 40)
|
|
(seat-index int8 :offset-assert 41)
|
|
(backup-nav-radius float :offset-assert 44)
|
|
(cam-side-shift float :offset-assert 48)
|
|
(enable-cam-side-shift symbol :offset-assert 52)
|
|
(gun? symbol :offset-assert 56)
|
|
(controls vehicle-controls :inline :offset-assert 60)
|
|
(accel-array vector 8 :inline :offset-assert 80)
|
|
(local-accel vector :inline :offset-assert 208)
|
|
(pilot-trans vector :inline :offset-assert 224)
|
|
(pilot-quat vector :inline :offset-assert 240)
|
|
(pilot-scale vector :inline :offset-assert 256)
|
|
(pilot-time time-frame :offset-assert 272)
|
|
(as-daxter? symbol :offset-assert 280)
|
|
(art-group-backup basic :offset-assert 284)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x120
|
|
:flag-assert #x900000120
|
|
)
|
|
|
|
;; definition for method 3 of type pilot-info
|
|
(defmethod inspect pilot-info ((obj pilot-info))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tentity: ~A~%" (-> obj entity))
|
|
(format #t "~1Tvehicle: #x~X~%" (-> obj vehicle))
|
|
(format #t "~1Tleft-right-interp: ~f~%" (-> obj left-right-interp))
|
|
(format #t "~1Tfront-back-interp: ~f~%" (-> obj front-back-interp))
|
|
(format #t "~1Tup-down-interp: ~f~%" (-> obj up-down-interp))
|
|
(format #t "~1Tup-down-accel-factor: ~f~%" (-> obj up-down-accel-factor))
|
|
(format #t "~1Tfront-back-accel-factor: ~f~%" (-> obj front-back-accel-factor))
|
|
(format #t "~1Tleft-right-accel-factor: ~f~%" (-> obj left-right-accel-factor))
|
|
(format #t "~1Tstance: ~D~%" (-> obj stance))
|
|
(format #t "~1Tseat-index: ~D~%" (-> obj seat-index))
|
|
(format #t "~1Tbackup-nav-radius: ~f~%" (-> obj backup-nav-radius))
|
|
(format #t "~1Tcam-side-shift: ~f~%" (-> obj cam-side-shift))
|
|
(format #t "~1Tenable-cam-side-shift: ~A~%" (-> obj enable-cam-side-shift))
|
|
(format #t "~1Tgun?: ~A~%" (-> obj gun?))
|
|
(format #t "~1Tcontrols: #<vehicle-controls @ #x~X>~%" (-> obj controls))
|
|
(format #t "~1Taccel-array: ~`vector`P~%" (-> obj accel-array))
|
|
(format #t "~1Tlocal-accel: ~`vector`P~%" (-> obj local-accel))
|
|
(format #t "~1Tpilot-trans: ~`vector`P~%" (-> obj pilot-trans))
|
|
(format #t "~1Tpilot-quat: ~`vector`P~%" (-> obj pilot-quat))
|
|
(format #t "~1Tpilot-scale: ~`vector`P~%" (-> obj pilot-scale))
|
|
(format #t "~1Tpilot-time: ~D~%" (-> obj pilot-time))
|
|
(format #t "~1Tas-daxter?: ~A~%" (-> obj as-daxter?))
|
|
(format #t "~1Tart-group-backup: ~A~%" (-> obj art-group-backup))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|