jak-project/goal_src/engine/game/fact-h.gc

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

;; name: fact-h.gc
;; name in dgo: fact-h
;; dgos: GAME, ENGINE

;; NOT FINISHED

(deftype fact-bank (basic)
  ((eco-level-max        float   :offset-assert 4)
   (eco-single-inc       float   :offset-assert 8)
   (eco-full-inc         float   :offset-assert 12)
   (eco-single-timeout   uint64  :offset-assert 16) ; usec
   (eco-full-timeout     uint64  :offset-assert 24) ; usec
   (dummy                uint64  :offset-assert 32) ; usec
   (health-max-default   float   :offset-assert 40)
   (health-single-inc    float   :offset-assert 44)
   (eco-pill-max-default float   :offset-assert 48)
   (health-small-inc     float   :offset-assert 52)
   (buzzer-max-default   float   :offset-assert 56)
   (buzzer-single-inc    float   :offset-assert 60)
   (suck-bounce-dist     float   :offset-assert 64) ; meters
   (suck-suck-dist       float   :offset-assert 68) ; meters
   (default-pill-inc     float   :offset-assert 72)
   )
  :method-count-assert 9
  :size-assert         #x4c
  :flag-assert         #x90000004c
  )

(define *FACT-bank* (new 'static 'fact-bank
                         :eco-level-max 2.0
                         :eco-single-inc 1.0
                         :eco-full-inc 5.0
                         :eco-single-timeout (seconds 5)
                         :eco-full-timeout (seconds 20)
                         :dummy (seconds 15)
                         :health-max-default 3.0
                         :health-single-inc 1.0
                         :eco-pill-max-default 50.0
                         :health-small-inc 1.0
                         :buzzer-max-default 7.0
                         :buzzer-single-inc 1.0
                         :suck-bounce-dist (meters 18)
                         :suck-suck-dist (meters 7.5)
                         )
  )

(defenum pickup-type
  (none)
  (eco-yellow)
  (eco-red)
  (eco-blue)
  (eco-green)
  (money)
  (fuel-cell)
  (eco-pill)
  (buzzer)
  (eco-pill-random)
  )

(defun pickup-type->string ((arg0 pickup-type))
  (case arg0
    (((pickup-type eco-pill-random)) "eco-pill-random")
    (((pickup-type buzzer)) "buzzer")
    (((pickup-type eco-pill)) "eco-pill")
    (((pickup-type fuel-cell)) "fuel-cell")
    (((pickup-type money)) "money")
    (((pickup-type eco-green)) "eco-green")
    (((pickup-type eco-blue)) "eco-blue")
    (((pickup-type eco-red)) "eco-red")
    (((pickup-type eco-yellow)) "eco-yellow")
    (((pickup-type none)) "none")
    (else "*unknown*")
    )
  )

(deftype fact-info (basic)
  ((process             process :offset-assert 4)
   (pickup-type         pickup-type   :offset-assert 8)
   (pickup-amount       float   :offset-assert 12)
   (pickup-spawn-amount float   :offset-assert 16)
   (options             uint64  :offset-assert 24)
   (fade-time           uint64  :offset-assert 32)
   )
  :method-count-assert 12
  :size-assert         #x28
  :flag-assert         #xc00000028
  (:methods
    (new (symbol type process pickup-type float) _type_ 0)
    (dummy-9 () none 9)
    (dummy-10 (_type_ symbol) none 10)
    (dummy-11 (_type_) float 11)
    )
  )

(deftype fact-info-target (fact-info)
  ((eco-type              int32     :offset-assert 40)
   (eco-level             float     :offset-assert 44)
   (eco-pickup-time       uint64    :offset-assert 48)
   (eco-timeout           uint64    :offset-assert 56) ;; usec
   (health                float     :offset-assert 64)
   (health-max            float     :offset-assert 68)
   (buzzer                float     :offset-assert 72)
   (buzzer-max            float     :offset-assert 76)
   (eco-pill              float     :offset-assert 80)
   (eco-pill-max          float     :offset-assert 84)
   (health-pickup-time    uint64    :offset-assert 88)
   (eco-source            uint64    :offset-assert 96)
   (eco-source-time       uint64    :offset-assert 104)
   (money-pickup-time     uint64    :offset-assert 112)
   (buzzer-pickup-time    uint64    :offset-assert 120)
   (fuel-cell-pickup-time uint64    :offset-assert 128)
   (eco-pill-pickup-time  uint64    :offset-assert 136)
   )
  :method-count-assert 12
  :size-assert         #x90
  :flag-assert         #xc00000090
  (:methods
    (new (symbol type process pickup-type float) _type_ 0)
    )
  )

(deftype fact-info-enemy (fact-info)
  ((speed               float   :offset-assert 40)
   (idle-distance       float   :offset-assert 44) ; meters
   (notice-top          float   :offset-assert 48) ; meters
   (notice-bottom       float   :offset-assert 52) ; meters
   (cam-horz            float   :offset-assert 56) ; meters
   (cam-vert            float   :offset-assert 60) ; meters
   (cam-notice-dist     float   :offset-assert 64) ; meters
   )
  :method-count-assert 12
  :size-assert         #x44
  :flag-assert         #xc00000044
  (:methods
    (new (symbol type process pickup-type float) _type_ 0)
    )
  )

(defmethod dummy-11 fact-info ((obj fact-info))
  0.0
  )