mirror of
https://github.com/open-goal/jak-project
synced 2026-07-10 15:14:15 -04:00
water111
7348e6a4ff
Update the decompiler to use the new vf macros. Also, fix a bunch of silly casting issues where accessing inline fields with an offset of 0 would be better than a cast:  --------- Co-authored-by: water111 <awaterford1111445@gmail.com>
1756 lines
76 KiB
Common Lisp
Vendored
Generated
1756 lines
76 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type grim-sewer
|
|
(deftype grim-sewer (grim)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type grim-sewer
|
|
(defmethod inspect ((this grim-sewer))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type grim inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for method 116 of type grim-sewer
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defmethod go-idle ((this grim-sewer))
|
|
(cond
|
|
((task-node-closed? (game-task-node sewer-escort-resolution))
|
|
(cleanup-for-death this)
|
|
(go (method-of-object this die-fast))
|
|
)
|
|
(else
|
|
(ruffian-method-240 this)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for symbol *grim2-course*, type ruffian-course
|
|
(define *grim2-course*
|
|
(new 'static 'ruffian-course
|
|
:course-id #x4
|
|
:speech-count #x14
|
|
:spot-count #x32
|
|
:too-far-fail-speeches (new 'static 'bot-speech-list
|
|
:flags #x2
|
|
:last-local-index -1
|
|
:speech-indexes (new 'static 'boxed-array :type int16 3)
|
|
)
|
|
:attack-player-speeches (new 'static 'bot-speech-list
|
|
:flags #x2
|
|
:last-local-index -1
|
|
:speech-indexes (new 'static 'boxed-array :type int16 0 1 2 16 17 18 19)
|
|
)
|
|
:default-check-too-far #f
|
|
:waypoints (new 'static 'boxed-array :type bot-waypoint
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(clear-speech-flags! arg0)
|
|
(logior! (-> arg0 focus-status) (focus-status disable))
|
|
(set! (-> arg0 notice-enemy-dist) 0.0)
|
|
(let ((v1-5 (-> arg0 root root-prim)))
|
|
(set! (-> v1-5 prim-core collide-as) (collide-spec))
|
|
(set! (-> v1-5 prim-core collide-with) (collide-spec))
|
|
)
|
|
0
|
|
(move-to-point! (-> arg0 root) (-> arg0 ruf-course spots 0 center))
|
|
(let ((a1-1 (new 'stack-no-clear 'vector)))
|
|
(set-vector! a1-1 0.0 9102.223 0.0 1.0)
|
|
(quaternion-zxy! (-> arg0 root quat) a1-1)
|
|
)
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 0 quad))
|
|
(set! (-> arg0 focus-mode) 1)
|
|
(let ((v1-19 (-> arg0 actor-group 0 data 2 actor)))
|
|
(set! (-> arg0 poi-handle) (process->handle (if v1-19
|
|
(-> v1-19 extra process)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-25 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-25 bytes 5) 1)
|
|
(set! (-> v1-25 bytes 6) 0)
|
|
(set! (-> v1-25 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-25) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (< 1 (-> arg1 waypoint-request))
|
|
(let* ((v1-4 (-> arg1 actor-group 0 data 0 actor))
|
|
(a0-2 (if v1-4
|
|
(-> v1-4 extra process)
|
|
)
|
|
)
|
|
)
|
|
(when a0-2
|
|
(set! (-> arg1 master-handle) (process->handle a0-2))
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 2 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update (lambda ((arg0 grim-sewer))
|
|
(let ((v1-3 (-> arg0 actor-group 0 data 2 actor)))
|
|
(set! (-> arg0 poi-handle) (process->handle (if v1-3
|
|
(-> v1-3 extra process)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 2
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (-> arg0 root root-prim)))
|
|
(set! (-> v1-1 prim-core collide-as) (-> arg0 root backup-collide-as))
|
|
(set! (-> v1-1 prim-core collide-with) (-> arg0 root backup-collide-with))
|
|
)
|
|
(let ((v1-5 (-> arg0 actor-group 0 data 2 actor)))
|
|
(set! (-> arg0 poi-handle) (process->handle (if v1-5
|
|
(-> v1-5 extra process)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-11 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-11 bytes 5) 1)
|
|
(set! (-> v1-11 bytes 6) 0)
|
|
(set! (-> v1-11 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-11) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 3)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 3 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 3
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 focus-mode) 0)
|
|
(clear-poi-and-focus! arg0)
|
|
(let ((v1-3 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-3 bytes 5) 1)
|
|
(set! (-> v1-3 bytes 6) 0)
|
|
(set! (-> v1-3 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-3) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 5)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 5 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 5
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 1)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (or (< (-> arg1 spot center x) (-> arg1 root trans x))
|
|
(outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 6 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 6
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 2)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (or (< (-> arg1 spot center x) (-> arg1 root trans x))
|
|
(outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
)
|
|
(let* ((v1-7 (-> arg1 actor-group 0 data 1 actor))
|
|
(a0-2 (if v1-7
|
|
(-> v1-7 extra process)
|
|
)
|
|
)
|
|
)
|
|
(when (or (not a0-2) (let ((s5-0 7))
|
|
(< s5-0 (the-as int (send-event a0-2 'query 'waypoint)))
|
|
)
|
|
)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 7 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 7
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 3)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 ai-task-control) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 8 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 8
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 4)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (and (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(-> arg1 next-state)
|
|
(let ((v1-5 (-> arg1 next-state name)))
|
|
(or (= v1-5 'waiting-idle) (= v1-5 'scared-idle))
|
|
)
|
|
)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 9 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 9
|
|
:nav-mesh-index 1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 1 quad))
|
|
(let ((v1-2 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-2 bytes 5) 1)
|
|
(set! (-> v1-2 bytes 6) 4)
|
|
(set! (-> v1-2 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-2) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 11)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 10 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 10
|
|
:nav-mesh-index 1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-choose-jump arg0)))
|
|
(set! (-> v1-1 bytes 5) 3)
|
|
(set! (-> v1-1 bytes 6) 5)
|
|
(set! (-> v1-1 bytes 7) 6)
|
|
(set! (-> v1-1 bytes 8) 7)
|
|
(set! (-> v1-1 bytes 10) 8)
|
|
(set! (-> v1-1 bytes 11) 9)
|
|
(set! (-> v1-1 bytes 12) 10)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 ai-task-control) (arg1 grim-sewer))
|
|
(when (or (ai-task-control-method-12 arg0 arg1)
|
|
(< (-> arg1 root trans y) (+ -3072.0 (-> arg1 ruf-course spots 5 center y)))
|
|
)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 11 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 11
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-3 (-> arg0 actor-group 0 data 1 actor)))
|
|
(set! (-> arg0 poi-handle) (process->handle (if v1-3
|
|
(-> v1-3 extra process)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-9 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-9 bytes 5) 1)
|
|
(set! (-> v1-9 bytes 6) 11)
|
|
(set! (-> v1-9 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-9) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 16)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 14 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 14
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set-time! (-> arg0 waypoint-time0))
|
|
(logior! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(clear-poi-and-focus! arg0)
|
|
(logclear! (-> arg0 focus-status) (focus-status disable))
|
|
(set! (-> arg0 notice-enemy-dist) 204800.0)
|
|
(set! (-> arg0 min-speed) 40960.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(let ((v1-12 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-12 bytes 5) 1)
|
|
(set! (-> v1-12 bytes 6) 11)
|
|
(set! (-> v1-12 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-12) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 1))
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 16 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 16
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 12)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (cond
|
|
((>= (-> arg1 waypoint-request) 20)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 18 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
((>= (-> arg1 waypoint-request) 17)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 17 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 17
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 13)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 20)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 18 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 18
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(logclear! (-> arg0 focus-status) (focus-status disable))
|
|
(set! (-> arg0 notice-enemy-dist) 204800.0)
|
|
(set! (-> arg0 min-speed) 20480.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 1 quad))
|
|
(let ((v1-9 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-9 bytes 5) 1)
|
|
(set! (-> v1-9 bytes 6) 14)
|
|
(set! (-> v1-9 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-9) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 19 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 19
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 2 quad))
|
|
(let ((v1-2 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-2 bytes 5) 1)
|
|
(set! (-> v1-2 bytes 6) 15)
|
|
(set! (-> v1-2 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-2) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(cond
|
|
((>= (-> arg1 waypoint-request) 22)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 22 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
((outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 20 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 20
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 15)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 22)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 22 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 22
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logior! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(set! (-> arg0 min-speed) 40960.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(let ((v1-5 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-5 bytes 5) 1)
|
|
(set! (-> v1-5 bytes 6) 16)
|
|
(set! (-> v1-5 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-5) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 23)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 23 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 23
|
|
:nav-mesh-index 2
|
|
:skip-to 34
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(set! (-> arg0 min-speed) 28672.0)
|
|
(set! (-> arg0 max-speed) 28672.0)
|
|
(let ((v1-7 (-> arg0 actor-group 0 data 1 actor)))
|
|
(set! (-> arg0 poi-handle) (process->handle (if v1-7
|
|
(-> v1-7 extra process)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-13 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-13 bytes 5) 1)
|
|
(set! (-> v1-13 bytes 6) 17)
|
|
(set! (-> v1-13 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-13) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 24)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 24 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here (lambda ((arg0 grim-sewer))
|
|
(ai-task-control-method-12 (-> arg0 ai-ctrl) arg0)
|
|
(send-event arg0 'move-trans (-> arg0 ruf-course spots 16))
|
|
(let ((v1-10 (-> arg0 root root-prim)))
|
|
(set! (-> v1-10 prim-core collide-as) (-> arg0 root backup-collide-as))
|
|
(set! (-> v1-10 prim-core collide-with) (-> arg0 root backup-collide-with))
|
|
)
|
|
(set! (-> arg0 focus-mode) 0)
|
|
(clear-poi-and-focus! arg0)
|
|
(logclear! (-> arg0 focus-status) (focus-status disable))
|
|
(let ((v1-18 (-> arg0 actor-group 0 data 0 actor)))
|
|
(set! (-> arg0 master-handle) (process->handle (if v1-18
|
|
(-> v1-18 extra process)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 24
|
|
:nav-mesh-index 2
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 min-speed) 40960.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(clear-poi-and-focus! arg0)
|
|
(let ((v1-5 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-5 bytes 5) 1)
|
|
(set! (-> v1-5 bytes 6) 18)
|
|
(set! (-> v1-5 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-5) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 26)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 26 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 26
|
|
:nav-mesh-index 3
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 min-speed) 20480.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 3 quad))
|
|
(clear-poi-and-focus! arg0)
|
|
(let ((v1-6 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-6 bytes 5) 1)
|
|
(set! (-> v1-6 bytes 6) 19)
|
|
(set! (-> v1-6 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-6) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 27)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 27 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 27
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logior! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(logclear! (-> arg0 focus-status) (focus-status disable))
|
|
(set! (-> arg0 notice-enemy-dist) 491520.0)
|
|
(set! (-> arg0 min-speed) 40960.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(let ((v1-8 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-8 bytes 5) 1)
|
|
(set! (-> v1-8 bytes 6) 19)
|
|
(set! (-> v1-8 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-8) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 28)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 28 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 28
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 20)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 34)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 30 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 30
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(logior! (-> arg0 focus-status) (focus-status disable))
|
|
(set! (-> arg0 notice-enemy-dist) 204800.0)
|
|
(set! (-> arg0 min-speed) 20480.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 4 quad))
|
|
(let ((v1-9 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-9 bytes 5) 1)
|
|
(set! (-> v1-9 bytes 6) 21)
|
|
(set! (-> v1-9 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-9) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 31 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 31
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 22)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 32 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 32
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 23)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 33 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 33
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 5 quad))
|
|
(let ((v1-2 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-2 bytes 5) 1)
|
|
(set! (-> v1-2 bytes 6) 24)
|
|
(set! (-> v1-2 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-2) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 34 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 34
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 6 quad))
|
|
(let ((v1-2 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-2 bytes 5) 1)
|
|
(set! (-> v1-2 bytes 6) 25)
|
|
(set! (-> v1-2 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-2) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 35)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 35 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here (lambda ((arg0 grim-sewer))
|
|
(ai-task-control-method-12 (-> arg0 ai-ctrl) arg0)
|
|
(send-event arg0 'move-trans (-> arg0 ruf-course spots 25))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(logior! (-> arg0 focus-status) (focus-status disable))
|
|
(set! (-> arg0 notice-enemy-dist) 204800.0)
|
|
(set! (-> arg0 min-speed) 20480.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(set! (-> arg0 focus-mode) 0)
|
|
(clear-poi-and-focus! arg0)
|
|
(logclear! (-> arg0 focus-status) (focus-status disable))
|
|
(none)
|
|
)
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 35
|
|
:nav-mesh-index 4
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 25)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 ai-task-control) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 37)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 36 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 36
|
|
:nav-mesh-index 5
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-choose-jump arg0)))
|
|
(set! (-> v1-1 bytes 5) 2)
|
|
(set! (-> v1-1 bytes 6) 26)
|
|
(set! (-> v1-1 bytes 7) 27)
|
|
(set! (-> v1-1 bytes 10) 28)
|
|
(set! (-> v1-1 bytes 11) 29)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-choose-jump v1-1) check-done)
|
|
(the-as
|
|
(function ruft-choose-jump ruffian symbol)
|
|
(lambda ((arg0 ai-task-control) (arg1 grim-sewer))
|
|
(when (or (ai-task-control-method-12 arg0 arg1)
|
|
(< (-> arg1 root trans y) (+ -3072.0 (-> arg1 ruf-course spots 26 center y)))
|
|
)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 37 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 37
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logior! (-> arg0 enemy-flags) (enemy-flag check-water check-water-backup))
|
|
(logior! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(logclear! (-> arg0 focus-status) (focus-status disable))
|
|
(let ((v1-7 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-7 bytes 5) 1)
|
|
(set! (-> v1-7 bytes 6) 30)
|
|
(set! (-> v1-7 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-7) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 38 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 38
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 follow-dir quad) (-> *hal2-course* dirs 7 quad))
|
|
(let ((v1-2 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-2 bytes 5) 1)
|
|
(set! (-> v1-2 bytes 6) 31)
|
|
(set! (-> v1-2 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-2) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 42)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 42 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 42
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(set! (-> arg0 min-speed) 20480.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(let ((v1-5 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-5 bytes 5) 1)
|
|
(set! (-> v1-5 bytes 6) 32)
|
|
(set! (-> v1-5 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-5) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(if (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(logior! (-> arg1 bot-flags) (bot-flags bf19))
|
|
)
|
|
(when (and (>= (-> arg1 waypoint-request) 44)
|
|
(outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 45 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 45
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(set! (-> arg0 min-speed) 40960.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(let ((v1-5 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-5 bytes 5) 1)
|
|
(set! (-> v1-5 bytes 6) 33)
|
|
(set! (-> v1-5 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-5) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 46 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 46
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 34)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 47 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 47
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 35)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(if (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(logior! (-> arg1 bot-flags) (bot-flags bf19))
|
|
)
|
|
(when (and (>= (-> arg1 waypoint-request) 48)
|
|
(outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 50 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 50
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(let ((v1-3 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-3 bytes 5) 1)
|
|
(set! (-> v1-3 bytes 6) 36)
|
|
(set! (-> v1-3 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-3) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 51 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 51
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 37)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 52 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 52
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 38)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 53 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 53
|
|
:nav-mesh-index -1
|
|
:skip-to 54
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 39)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 54 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 54
|
|
:nav-mesh-index 5
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 40)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 58)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 58 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here (lambda ((arg0 grim-sewer))
|
|
(ai-task-control-method-12 (-> arg0 ai-ctrl) arg0)
|
|
(send-event arg0 'move-trans (-> arg0 ruf-course spots 41))
|
|
(logclear! (-> arg0 focus-status) (focus-status disable))
|
|
(set! (-> arg0 min-speed) 40960.0)
|
|
(set! (-> arg0 max-speed) 40960.0)
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(none)
|
|
)
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 58
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(set! (-> arg0 focus-mode) 0)
|
|
(clear-poi-and-focus! arg0)
|
|
(logior! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(let ((v1-5 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-5 bytes 5) 1)
|
|
(set! (-> v1-5 bytes 6) 42)
|
|
(set! (-> v1-5 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-5) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer)) (when (>= (-> arg1 waypoint-request) 59)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 60 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 60
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 43)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 61 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 61
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 44)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 62 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 62
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 45)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 63 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 63
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 46)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 64 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 64
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 47)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 65 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 65
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(logclear! (-> arg0 bot-flags) (bot-flags bf19))
|
|
(let ((v1-3 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-3 bytes 5) 1)
|
|
(set! (-> v1-3 bytes 6) 48)
|
|
(set! (-> v1-3 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-3) check-done)
|
|
(the-as
|
|
(function ruft-wait-spot ruffian symbol)
|
|
(lambda ((arg0 object) (arg1 grim-sewer))
|
|
(when (outside-spot-radius? arg1 (the-as bot-spot #f) (the-as vector #f) #f)
|
|
(ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
|
|
(go-to-waypoint! arg1 66 #f)
|
|
(ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
(new 'static 'bot-waypoint
|
|
:waypoint-id 66
|
|
:nav-mesh-index -1
|
|
:skip-to -1
|
|
:on-set (lambda ((arg0 grim-sewer))
|
|
(let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) ruft-wait-spot arg0)))
|
|
(set! (-> v1-1 bytes 5) 1)
|
|
(set! (-> v1-1 bytes 6) 49)
|
|
(set! (-> v1-1 bytes 4) -1)
|
|
(set! (-> (the-as ruft-wait-spot v1-1) check-done)
|
|
(the-as (function ruft-wait-spot ruffian symbol) (lambda () #f))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:on-update #f
|
|
:on-skipping-here #f
|
|
:check-too-far #f
|
|
)
|
|
)
|
|
:speeches (new 'static 'inline-array bot-speech-info 20
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf11) :hold-time #x5a :slave-id -1 :name "hal157")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf06 sf11) :hold-time #x5a :slave-id -1 :name "hal158")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf11) :hold-time #x5a :slave-id -1 :name "hal156")
|
|
(new 'static 'bot-speech-info :hold-time #x5a :slave-id -1 :tuning-id 1 :name "hal015")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf08) :hold-time #x5a :slave-id -1 :name "hal038")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf08) :hold-time #x5a :slave-id -1 :name "hal151")
|
|
(new 'static 'bot-speech-info
|
|
:flags (speech-flags sf01 sf02 sf08)
|
|
:hold-time #x5a
|
|
:slave-id -1
|
|
:name "hal152"
|
|
)
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf08) :hold-time #x5a :slave-id -1 :name "hal153")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf08) :hold-time #x5a :slave-id -1 :name "hal154")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf06) :hold-time #x5a :slave-id -1 :name "hal155")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf06) :hold-time #x5a :slave-id -1 :name "hal039")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf06) :hold-time #x5a :slave-id -1 :name "hal042")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf06) :hold-time #x5a :slave-id -1 :name "hal041")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf06) :hold-time #x5a :slave-id -1 :name "hal040")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf06) :hold-time #x5a :slave-id -1 :name "hal043")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01 sf08) :hold-time #x5a :slave-id -1 :name "hal035")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01) :hold-time #x5a :slave-id -1 :name "hal161")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01) :hold-time #x5a :slave-id -1 :name "hal162")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01) :hold-time #x5a :slave-id -1 :name "hal163")
|
|
(new 'static 'bot-speech-info :flags (speech-flags sf01) :hold-time #x5a :slave-id -1 :name "hal164")
|
|
)
|
|
:speech-tunings (new 'static 'inline-array bot-speech-tuning 2
|
|
(new 'static 'bot-speech-tuning :fo-min 30 :fo-max #x8c :fo-curve 11 :trans? #t)
|
|
(new 'static 'bot-speech-tuning :fo-min 30 :fo-max #x78 :fo-curve 1 :trans? #f)
|
|
)
|
|
:spots (new 'static 'inline-array bot-spot 50
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4616151.0 :y -207216.64 :z 2085355.5 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4799938.5 :y -207216.64 :z 2086133.8 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4827341.0 :y -207216.64 :z 2100510.8 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4900208.5 :y -211435.52 :z 2130493.5 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4945142.0 :y -212869.12 :z 2113536.0 :w 8192.0))
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4950057.0 :y -260751.36 :z 2125987.8 :w 6144.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4958658.5 :y -260751.36 :z 2117386.2 :w 6144.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4952883.0 :y -260751.36 :z 2102804.5 :w 6144.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4957880.5 :y -271073.28 :z 2127954.0 :w 4096.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4969431.0 :y -271073.28 :z 2116444.2 :w 4096.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4955873.5 :y -269516.8 :z 2093137.9 :w 4096.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4955463.5 :y -271564.8 :z 2060083.2 :w 12288.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4994253.0 :y -272056.3 :z 2076753.9 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4976312.5 :y -273326.1 :z 1885880.4 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4947353.5 :y -272097.28 :z 1902592.0 :w 12288.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4705116.0 :y -273858.56 :z 1906647.0 :w 12288.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4734730.0 :y -273817.6 :z 1879572.5 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4708393.0 :y -273858.56 :z 1703485.5 :w 16384.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4749762.5 :y -273858.56 :z 1661050.9 :w 10240.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4687749.0 :y -256614.4 :z 1458257.9 :w 10240.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4658503.5 :y -261980.16 :z 1545134.1 :w 8192.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4719657.0 :y -254607.36 :z 1413161.0 :w 12288.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4766269.5 :y -248709.12 :z 1354465.2 :w 16384.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4822098.0 :y -241254.4 :z 1300725.8 :w 12288.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4895990.0 :y -236544.0 :z 1319321.6 :w 14336.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4910858.0 :y -237568.0 :z 1411604.5 :w 8192.0))
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4910162.0 :y -353198.1 :z 1424957.5 :w 6144.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4899389.5 :y -353198.1 :z 1425530.9 :w 6144.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4909834.0 :y -363806.72 :z 1434951.6 :w 4096.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot
|
|
:center (new 'static 'vector :x 4897751.0 :y -363806.72 :z 1433886.8 :w 4096.0)
|
|
:blocked-xz-dist 8192.0
|
|
)
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 4919050.0 :y -363806.72 :z 1463705.6 :w 10240.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5193892.0 :y -372858.88 :z 1494384.6 :w 10240.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5505556.5 :y -363929.6 :z 1461575.6 :w 10240.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5579653.0 :y -363929.6 :z 1495040.0 :w 20480.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5604679.5 :y -363929.6 :z 1617428.5 :w 14336.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5620285.5 :y -363929.6 :z 1695539.2 :w 14336.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5568143.5 :y -363929.6 :z 1802076.1 :w 20480.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5608571.0 :y -363929.6 :z 1845698.5 :w 18432.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5811364.0 :y -363929.6 :z 1853440.0 :w 51200.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5794119.5 :y -373432.3 :z 1982709.8 :w 47104.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5566832.5 :y -363929.6 :z 2037022.8 :w 14336.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5774663.5 :y -373432.3 :z 1945231.4 :w 4096.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5572403.0 :y -363929.6 :z 1983447.0 :w 10240.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5662105.5 :y -363929.6 :z 2038988.8 :w 10240.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5696553.0 :y -361758.72 :z 2097438.8 :w 22528.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5733867.5 :y -363929.6 :z 2178621.5 :w 24576.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5743984.5 :y -363192.3 :z 2255093.8 :w 22528.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5708022.0 :y -363642.88 :z 2328535.0 :w 24576.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5633597.5 :y -363929.6 :z 2420162.5 :w 24576.0))
|
|
(new 'static 'bot-spot :center (new 'static 'vector :x 5586821.0 :y -363929.6 :z 2439741.5 :w 10240.0))
|
|
)
|
|
:ouch-speeches (new 'static 'bot-speech-list-shuffle
|
|
:flags #xa
|
|
:last-local-index -1
|
|
:speech-indexes (new 'static 'boxed-array :type int16 4 5 6 7 8 9 10 11 12 13 14 15)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *bot-course-table* course 4) *grim2-course*)
|