mirror of
https://github.com/open-goal/jak-project
synced 2026-08-08 02:31:30 -04:00
Hat Kid
949508d0ed
- `cty-faction-h` - `nav-graph` - `citizen-h` - `citizen` - `civilian` - `traffic-engine` - `traffic-manager` - `cty-attack-controller` - `cty-faction` - `formation-object` - `formations` - `squad-control-city-h` - `squad-control-city` - `traffic-util` - `wlander-female` - `wlander-h` - `wlander-male` - `speech-manager` - `desert-rescue` - `desresc-path` - `neo-satellite` - `rope-prim-system-h` - `rope-prim-system` - `rope-system` - `wland-passenger` - `cty-guard-projectile` - `ctywide-init` - `ff-squad-control` - `guard-grenade` - `guard-rifle` - `guard-states` - `guard-tazer` - `ctywide-speech` - `citizen-chick` - `citizen-fat` - `citizen-norm` - `guard` - `bike` - `car` - `test-bike` - `vehicle-rider` - `desert-rescue-bbush` - `ff-squad-control-h` - `flee-info` - `guard-h` - `mission-squad-control` - `kg-squad-control` - `kg-squad-member-h` - `kg-squad-member` - `mh-squad-control` - `mh-squad-member-h` - `mh-squad-member` - `ctywide-obs-h` - `ctywide-obs` - `ctywide-part` - `ctywide-scenes` - `ctywide-tasks` - `ctywide-texture` - `billiards` - `guide-arrow` - `kg-vehicles` - `flying-turret` - `roboguard-city` - `citizen-enemy` - `metalhead-flitter` - `metalhead-grunt` - `metalhead-predator` - `spydroid` - `kg-squad-control-h` - `mh-squad-control-h` - `krimson-wall` - `ctyport-obs` - `ctyinda-obs` - `ctyinda-part` - `ctyindb-obs` - `ctyindb-part` - `ctyport-attack` - `h-torpedo` - `ctyport-part` - `ctyport-scenes` - `external-player-control` - `desert-chase-path-h` - `desert-chase-path` - `desert-chase` - `desert-jump` - `wcar-catapult` - `bombbot-h` - `bombbot` - `bombbot-path` - `cty-hijack-missile` - `cty-hijack` - `ctyport-attack-bbush` - `ctysluma-part` - `ctyslumb-part` - `ctyslumc-obs` - `ctyslumc-part` - `searchlight` - `cty-destroy-grid` - `ctyfarm-obs` - `ctyfarma-part` - `ctyfarmb-part` - `freehq-part` - `freehq-scenes` - `onintent-scenes` - `onintent-part` - `cty-sniper-battery` - `cty-sniper-turret` - `intro-obs` - `intro-part` - `intro-scenes` - `palcab-part` - `palroof-part`
186 lines
6.6 KiB
Common Lisp
Vendored
Generated
186 lines
6.6 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for symbol *traffic-manager*, type traffic-manager
|
|
(define *traffic-manager* (the-as traffic-manager #f))
|
|
|
|
;; definition for symbol *vehicle-manager*, type vehicle-manager
|
|
(define *vehicle-manager* (the-as vehicle-manager #f))
|
|
|
|
;; definition of type traffic-danger-info
|
|
(deftype traffic-danger-info (structure)
|
|
((sphere sphere :inline)
|
|
(velocity vector :inline)
|
|
(handle handle)
|
|
(notify-radius float)
|
|
(danger-level float)
|
|
(decay-rate float)
|
|
(flags uint8)
|
|
(danger-type uint8)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type traffic-danger-info
|
|
(defmethod inspect ((this traffic-danger-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'traffic-danger-info)
|
|
(format #t "~1Tsphere: #<sphere @ #x~X>~%" (-> this sphere))
|
|
(format #t "~1Tvelocity: #<vector @ #x~X>~%" (-> this velocity))
|
|
(format #t "~1Thandle: ~D~%" (-> this handle))
|
|
(format #t "~1Tnotify-radius: ~f~%" (-> this notify-radius))
|
|
(format #t "~1Tdanger-level: ~f~%" (-> this danger-level))
|
|
(format #t "~1Tdecay-rate: ~f~%" (-> this decay-rate))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tdanger-type: ~D~%" (-> this danger-type))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type traffic-suppression-params
|
|
(deftype traffic-suppression-params (structure)
|
|
((bbox bounding-box :inline)
|
|
(duration time-frame)
|
|
(id int8)
|
|
)
|
|
(:methods
|
|
(try-creating-new-suppression-box (_type_) symbol)
|
|
(create-or-update-suppression-box (_type_) symbol)
|
|
(has-valid-id? (_type_) symbol)
|
|
(kill-suppression-box (_type_) none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type traffic-suppression-params
|
|
(defmethod inspect ((this traffic-suppression-params))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'traffic-suppression-params)
|
|
(format #t "~1Tbbox: #<bounding-box @ #x~X>~%" (-> this bbox))
|
|
(format #t "~1Tduration: ~D~%" (-> this duration))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for method 11 of type traffic-suppression-params
|
|
(defmethod has-valid-id? ((this traffic-suppression-params))
|
|
(!= (-> this id) -1)
|
|
)
|
|
|
|
;; definition of type traffic-object-spawn-params
|
|
(deftype traffic-object-spawn-params (structure)
|
|
((object-type traffic-type)
|
|
(behavior uint64)
|
|
(id uint32)
|
|
(nav-mesh nav-mesh)
|
|
(nav-branch nav-branch)
|
|
(position vector :inline)
|
|
(rotation quaternion :inline)
|
|
(velocity vector :inline)
|
|
(handle handle)
|
|
(handle-parent handle)
|
|
(guard-type uint8)
|
|
(user-data uint32)
|
|
(entity entity)
|
|
(flags traffic-spawn-flags)
|
|
(proc process)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type traffic-object-spawn-params
|
|
(defmethod inspect ((this traffic-object-spawn-params))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'traffic-object-spawn-params)
|
|
(format #t "~1Tobject-type: ~D~%" (-> this object-type))
|
|
(format #t "~1Tbehavior: ~D~%" (-> this behavior))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(format #t "~1Tnav-mesh: ~A~%" (-> this nav-mesh))
|
|
(format #t "~1Tnav-branch: ~A~%" (-> this nav-branch))
|
|
(format #t "~1Tposition: #<vector @ #x~X>~%" (-> this position))
|
|
(format #t "~1Trotation: #<quaternion @ #x~X>~%" (-> this rotation))
|
|
(format #t "~1Tvelocity: #<vector @ #x~X>~%" (-> this velocity))
|
|
(format #t "~1Thandle: ~D~%" (-> this handle))
|
|
(format #t "~1Thandle-parent: ~D~%" (-> this handle-parent))
|
|
(format #t "~1Tguard-type: ~D~%" (-> this guard-type))
|
|
(format #t "~1Tuser-data: ~D~%" (-> this user-data))
|
|
(format #t "~1Tentity: ~A~%" (-> this entity))
|
|
(format #t "~1Tflags: ~D~%" (-> this flags))
|
|
(format #t "~1Tproc: ~A~%" (-> this proc))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type traffic-info
|
|
(deftype traffic-info (structure)
|
|
((ctywide-level level)
|
|
(vehicle-level level)
|
|
(race-vehicle-level level)
|
|
(traffic-object-levels symbol 29)
|
|
(vehicle-levels symbol 44)
|
|
(traffic-object-type-from-vehicle-type traffic-type 44)
|
|
(restore-speech-callback (function none))
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type traffic-info
|
|
(defmethod inspect ((this traffic-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'traffic-info)
|
|
(format #t "~1Tctywide-level: ~A~%" (-> this ctywide-level))
|
|
(format #t "~1Tvehicle-level: ~A~%" (-> this vehicle-level))
|
|
(format #t "~1Trace-vehicle-level: ~A~%" (-> this race-vehicle-level))
|
|
(format #t "~1Ttraffic-object-levels[29] @ #x~X~%" (-> this traffic-object-levels))
|
|
(format #t "~1Tvehicle-levels[44] @ #x~X~%" (-> this vehicle-levels))
|
|
(format
|
|
#t
|
|
"~1Ttraffic-object-type-from-vehicle-type[44] @ #x~X~%"
|
|
(-> this traffic-object-type-from-vehicle-type)
|
|
)
|
|
(format #t "~1Trestore-speech-callback: ~A~%" (-> this restore-speech-callback))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for symbol *traffic-info*, type traffic-info
|
|
(define *traffic-info* (new 'static 'traffic-info
|
|
:ctywide-level #f
|
|
:vehicle-level #f
|
|
:race-vehicle-level #f
|
|
:restore-speech-callback #f
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(let ((v1-5 *traffic-info*))
|
|
(dotimes (a0-9 29)
|
|
(set! (-> v1-5 traffic-object-levels a0-9) #f)
|
|
)
|
|
(dotimes (a0-12 44)
|
|
(set! (-> v1-5 vehicle-levels a0-12) #f)
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type a0-12) (traffic-type invalid))
|
|
)
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 0) (traffic-type civilian-bike-a))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 1) (traffic-type civilian-bike-b))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 2) (traffic-type civilian-bike-c))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 3) (traffic-type civilian-car-a))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 4) (traffic-type civilian-car-b))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 5) (traffic-type civilian-car-c))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 6) (traffic-type bike-d))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 7) (traffic-type guard-car))
|
|
(set! (-> v1-5 traffic-object-type-from-vehicle-type 11) (traffic-type kg-pickup))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|