mirror of
https://github.com/open-goal/jak-project
synced 2026-07-05 21:49:28 -04:00
Hat Kid
1d868a2bd9
Full list: - `atoll-obs` - `atoll-tank` - `juicer` - `sniper` - `transport` - `yakow` - `kid-h` - `kid-states` - `kid-task` - `kid3-course` - `kid` - `kor-h` - `kor-states` - `kor-task` - `kor3-course` - `kor` - `spyder` - `spydroid` - `widow-baron` - `widow-extras` - `widow-more-extras` - `widow2` - `widow` - `flying-spider` - `mammoth` - `mantis` - `nest-obs` - `hal-task` - `hal` - `hal3-course` Manual patches: - `widow`: `handle->process` stack var - `nestb-scenes`: Commented out `nav-network` stuff, was causing crashes in `nest` Also fixes `ginsu` crash (`blade-part` had the wrong type)
42 lines
1.1 KiB
Common Lisp
Vendored
Generated
42 lines
1.1 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for method 9 of type halt-wait-spot
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod reset-task! halt-wait-spot ((obj halt-wait-spot))
|
|
"Virtual"
|
|
(set! (-> obj check-done) #f)
|
|
(set! (-> obj which-spot) 0)
|
|
(set! (-> obj num-spots) (the-as uint 1))
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 11 of type halt-wait-spot
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch symbol vs none.
|
|
(defmethod ai-task-method-11 halt-wait-spot ((obj halt-wait-spot) (arg0 bot))
|
|
"Virtual"
|
|
(let ((s4-0 (-> obj which-spot)))
|
|
(if (logtest? *display-bot-marks* (bot-marks-controls bmc16))
|
|
(bot-debug-draw-spot-sphere
|
|
arg0
|
|
(the-as int (-> obj num-spots))
|
|
(the-as (pointer uint) (-> obj spot-indexes))
|
|
(the-as int (-> obj spot-indexes s4-0))
|
|
)
|
|
)
|
|
(mem-copy!
|
|
(the-as pointer (-> arg0 spot))
|
|
(the-as pointer (-> arg0 course spots (-> obj spot-indexes s4-0)))
|
|
20
|
|
)
|
|
)
|
|
(set! (-> arg0 root-override2 trans quad) (-> arg0 spot center quad))
|
|
((-> obj check-done) obj (the-as hal arg0))
|
|
(none)
|
|
)
|
|
|
|
|
|
|
|
|