mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
991a438927
* add IR syntax highlighting * set the filterFileRegex properly! * stash * decompiler: Add print if conditional fails * decomp: Mostly finish `target-util` * decomp: figured out a bit more with `target-util`, a bit stuck now * decomp: *deep breath* `logic-target` mostly complete * decompiler: More robust arg_count checking for `format` calls * decomp: some more work in `target-util` * fix sllv usage * decomp: `logic-target` is compiling * decomp: `target-util` very close - blocked by decomp issue! * decomp: finish `target-util` except for one issue #772 * demp: update goal_src * linting * add back the one remaining method * address feedback, update source files
119 lines
3.7 KiB
Common Lisp
119 lines
3.7 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: hud-h.gc
|
|
;; name in dgo: hud-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; definition of type hud-icon
|
|
(deftype hud-icon (basic)
|
|
((icon uint32 :offset-assert 4)
|
|
(icon-y int32 :offset-assert 8)
|
|
(icon-x int32 :offset-assert 12)
|
|
(icon-z int32 :offset-assert 16)
|
|
(scale-x float :offset-assert 20)
|
|
(scale-y float :offset-assert 24)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x1c
|
|
:flag-assert #x90000001c
|
|
)
|
|
|
|
;; definition of type hud-particle
|
|
(deftype hud-particle (basic)
|
|
((part basic :offset-assert 4)
|
|
(init-pos vector :inline :offset-assert 16)
|
|
(pos vector :inline :offset-assert 32)
|
|
(prev-pos vector :inline :offset-assert 48)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x40
|
|
:flag-assert #x900000040
|
|
)
|
|
|
|
;; definition of type hud
|
|
(deftype hud (process)
|
|
((value int32 :offset-assert 112)
|
|
(value2 int32 :offset-assert 116)
|
|
(target-value int32 :offset-assert 120)
|
|
(last-increment-time uint64 :offset-assert 128)
|
|
(last-target-equal-time uint64 :offset-assert 136)
|
|
(offset int32 :offset-assert 144)
|
|
(y-offset int32 :offset-assert 148)
|
|
(next-y-offset int32 :offset-assert 152)
|
|
(x-sgn int32 :offset-assert 156)
|
|
(y-sgn int32 :offset-assert 160)
|
|
(text-x int32 :offset-assert 164)
|
|
(text-y int32 :offset-assert 168)
|
|
(friend int32 :offset-assert 172)
|
|
(first-init basic :offset-assert 176)
|
|
(increment-on-event basic :offset-assert 180)
|
|
(skip-particle int32 :offset-assert 184)
|
|
(disable basic :offset-assert 188)
|
|
(force-on-screen basic :offset-assert 192)
|
|
(deactivate-when-hidden basic :offset-assert 196)
|
|
(trigger-time uint64 :offset-assert 200)
|
|
(last-hide-time uint64 :offset-assert 208)
|
|
(nb-of-icons int32 :offset-assert 216)
|
|
(icons hud-icon 6 :offset-assert 220)
|
|
(max-nb-of-particles int32 :offset-assert 244)
|
|
(nb-of-particles int32 :offset-assert 248)
|
|
(particles hud-particle 7 :offset-assert 252)
|
|
)
|
|
:heap-base #xb0
|
|
:method-count-assert 27
|
|
:size-assert #x118
|
|
:flag-assert #x1b00b00118
|
|
(:methods
|
|
(dummy-14 () none 14)
|
|
(dummy-15 () none 15)
|
|
(dummy-16 () none 16)
|
|
(dummy-17 () none 17)
|
|
(dummy-18 () none 18)
|
|
(dummy-19 () none 19)
|
|
(dummy-20 () none 20)
|
|
(dummy-21 () none 21)
|
|
(dummy-22 () none 22)
|
|
(dummy-23 () none 23)
|
|
(dummy-24 () none 24)
|
|
(dummy-25 () none 25)
|
|
(dummy-26 () none 26)
|
|
)
|
|
)
|
|
|
|
;; definition of type hud-parts
|
|
(deftype hud-parts (structure)
|
|
((pickups basic :offset-assert 0)
|
|
(money basic :offset-assert 4)
|
|
(fuel-cell basic :offset-assert 8)
|
|
(health basic :offset-assert 12)
|
|
(buzzers basic :offset-assert 16)
|
|
(power basic :offset-assert 20)
|
|
(bike-speed basic :offset-assert 24)
|
|
(bike-heat basic :offset-assert 28)
|
|
(money-all basic :offset-assert 32)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x24
|
|
:flag-assert #x900000024
|
|
)
|
|
|
|
;; definition for symbol *hud-parts*, type hud-parts
|
|
(define
|
|
*hud-parts*
|
|
(new 'static 'hud-parts
|
|
:pickups #f
|
|
:money #f
|
|
:fuel-cell #f
|
|
:health #f
|
|
:buzzers #f
|
|
:power #f
|
|
:bike-speed #f
|
|
:bike-heat #f
|
|
:money-all #f
|
|
)
|
|
)
|
|
|
|
;; TODO - for logic-target
|
|
(define-extern activate-hud (function process none))
|