jak-project/test/decompiler/reference/jakx/engine/ai/traffic-h_REF.gc

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

;; definition for symbol *vehicle-manager*, type vehicle-manager
(define *vehicle-manager* (the-as vehicle-manager #f))

;; definition (debug) for function vehicle-type->string
(defun-debug vehicle-type->string ((arg0 traffic-vehicle-type))
  (case arg0
    (((traffic-vehicle-type v-mongoose))
     "v-mongoose"
     )
    (((traffic-vehicle-type v-wombat))
     "v-wombat"
     )
    (((traffic-vehicle-type v-snake))
     "v-snake"
     )
    (((traffic-vehicle-type v-bobcat))
     "v-bobcat"
     )
    (((traffic-vehicle-type v-panther))
     "v-panther"
     )
    (((traffic-vehicle-type v-dart))
     "v-dart"
     )
    (((traffic-vehicle-type v-daxtermobile))
     "v-daxtermobile"
     )
    (((traffic-vehicle-type v-cheetah))
     "v-cheetah"
     )
    (((traffic-vehicle-type test-bike))
     "test-bike"
     )
    (((traffic-vehicle-type v-bear))
     "v-bear"
     )
    (((traffic-vehicle-type v-falcon))
     "v-falcon"
     )
    (((traffic-vehicle-type v-gila))
     "v-gila"
     )
    (((traffic-vehicle-type any))
     "any"
     )
    (((traffic-vehicle-type v-drone))
     "v-drone"
     )
    (((traffic-vehicle-type v-possum))
     "v-possum"
     )
    (((traffic-vehicle-type test-car))
     "test-car"
     )
    (((traffic-vehicle-type v-leopard))
     "v-leopard"
     )
    (((traffic-vehicle-type none))
     "none"
     )
    (((traffic-vehicle-type v-wolf))
     "v-wolf"
     )
    (((traffic-vehicle-type v-tiger))
     "v-tiger"
     )
    (((traffic-vehicle-type v-cougar))
     "v-cougar"
     )
    (else
      "*unknown*"
      )
    )
  )

;; definition (debug) for function driver-type->string
(defun-debug driver-type->string ((arg0 driver-type))
  (case arg0
    (((driver-type d-taryn))
     "d-taryn"
     )
    (((driver-type d-ratchet))
     "d-ratchet"
     )
    (((driver-type d-klever))
     "d-klever"
     )
    (((driver-type d-jakb))
     "d-jakb"
     )
    (((driver-type d-pecker))
     "d-pecker"
     )
    (((driver-type d-razer))
     "d-razer"
     )
    (((driver-type d-thug-b))
     "d-thug-b"
     )
    (((driver-type d-sig))
     "d-sig"
     )
    (((driver-type d-daxter))
     "d-daxter"
     )
    (((driver-type d-torn))
     "d-torn"
     )
    (((driver-type d-kiera))
     "d-kiera"
     )
    (((driver-type d-osmo))
     "d-osmo"
     )
    (((driver-type d-thug-c))
     "d-thug-c"
     )
    (((driver-type d-kaeden))
     "d-kaeden"
     )
    (((driver-type d-ashelin))
     "d-ashelin"
     )
    (((driver-type d-ur-86))
     "d-ur-86"
     )
    (((driver-type d-jak))
     "d-jak"
     )
    (((driver-type none))
     "none"
     )
    (((driver-type d-jaka))
     "d-jaka"
     )
    (((driver-type d-jakc))
     "d-jakc"
     )
    (((driver-type d-rayn))
     "d-rayn"
     )
    (((driver-type d-thug-a))
     "d-thug-a"
     )
    (((driver-type d-ximon))
     "d-ximon"
     )
    (((driver-type d-gtblitz))
     "d-gtblitz"
     )
    (else
      "*unknown*"
      )
    )
  )

;; definition for function type-from-driver-type
(defun type-from-driver-type ((arg0 driver-type))
  (case arg0
    (((driver-type d-jak))
     driver-jak
     )
    (((driver-type d-ashelin))
     driver-ashelin
     )
    (((driver-type d-razer))
     driver-razer
     )
    (((driver-type d-klever))
     driver-klever
     )
    (((driver-type d-kiera))
     driver-kiera
     )
    (((driver-type d-thug-a))
     driver-thug-a
     )
    (((driver-type d-thug-b))
     driver-thug-b
     )
    (((driver-type d-thug-c))
     driver-thug-c
     )
    (((driver-type d-taryn))
     driver-taryn
     )
    (((driver-type d-torn))
     driver-torn
     )
    (((driver-type d-sig))
     driver-sig
     )
    (((driver-type d-ur-86))
     driver-ur-86
     )
    (((driver-type d-kaeden))
     driver-kaeden
     )
    (((driver-type d-rayn))
     driver-rayn
     )
    (((driver-type d-ratchet))
     driver-ratchet
     )
    (((driver-type d-jaka))
     driver-jaka
     )
    (((driver-type d-jakb))
     driver-jakb
     )
    (((driver-type d-jakc))
     driver-jakc
     )
    (((driver-type d-daxter))
     driver-daxter
     )
    (((driver-type d-gtblitz))
     driver-gtblitz
     )
    (((driver-type d-pecker))
     driver-pecker
     )
    (((driver-type d-ximon))
     driver-ximon
     )
    (((driver-type d-osmo))
     driver-osmo
     )
    (else
      (the-as type #f)
      )
    )
  )

;; definition for function level-from-driver-type
(defun level-from-driver-type ((arg0 driver-type))
  (case arg0
    (((driver-type d-jak))
     'jaklev
     )
    (((driver-type d-ashelin))
     'ashlev
     )
    (((driver-type d-razer))
     'razlev
     )
    (((driver-type d-klever))
     'klelev
     )
    (((driver-type d-kiera))
     'kielev
     )
    (((driver-type d-thug-a))
     'thalev
     )
    (((driver-type d-thug-b))
     'thblev
     )
    (((driver-type d-thug-c))
     'thclev
     )
    (((driver-type d-taryn))
     'tarlev
     )
    (((driver-type d-torn))
     'torlev
     )
    (((driver-type d-sig))
     'siglev
     )
    (((driver-type d-ur-86))
     'ur8lev
     )
    (((driver-type d-kaeden))
     'kaelev
     )
    (((driver-type d-rayn))
     'raylev
     )
    (((driver-type d-ratchet))
     'ratlev
     )
    (((driver-type d-jaka))
     'jkalev
     )
    (((driver-type d-jakb))
     'jkblev
     )
    (((driver-type d-jakc))
     'jkclev
     )
    (((driver-type d-daxter))
     'daxlev
     )
    (((driver-type d-gtblitz))
     'gtblev
     )
    (((driver-type d-pecker))
     'peclev
     )
    (((driver-type d-ximon))
     'ximlev
     )
    (((driver-type d-osmo))
     'osmlev
     )
    (else
      #f
      )
    )
  )

;; definition of type vehicle-spawn-params
(deftype vehicle-spawn-params (structure)
  ((behavior         uint64)
   (nav-mesh         basic)
   (position         vector      :inline)
   (rotation         quaternion  :inline)
   (velocity         vector      :inline)
   (handle           uint64)
   (handle-parent    uint64)
   (user-data        uint32)
   (entity           basic)
   (flags            uint32)
   (player-id        int8)
   (level-slot       int8)
   (driver-type      driver-type)
   (driver-slot      int8)
   (impact-callback  basic)
   (proc             basic)
   )
  )

;; definition for method 3 of type vehicle-spawn-params
(defmethod inspect ((this vehicle-spawn-params))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'vehicle-spawn-params)
  (format #t "~1Tbehavior: ~D~%" (-> this behavior))
  (format #t "~1Tnav-mesh: ~A~%" (-> this nav-mesh))
  (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 "~1Tuser-data: ~D~%" (-> this user-data))
  (format #t "~1Tentity: ~A~%" (-> this entity))
  (format #t "~1Tflags: ~D~%" (-> this flags))
  (format #t "~1Tplayer-id: ~D~%" (-> this player-id))
  (format #t "~1Tlevel-slot: ~D~%" (-> this level-slot))
  (format #t "~1Tdriver-type: ~D~%" (-> this driver-type))
  (format #t "~1Tdriver-slot: ~D~%" (-> this driver-slot))
  (format #t "~1Timpact-callback: ~A~%" (-> this impact-callback))
  (format #t "~1Tproc: ~A~%" (-> this proc))
  (label cfg-4)
  this
  )

;; failed to figure out what this is:
0