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

;; definition of type hal2-course
(deftype hal2-course (bot-course)
  ((sentries1-reminders  (array int16))
   (sentries2-reminders  (array int16))
   (bomb2-reminders      bot-speech-list)
   )
  )

;; definition for method 3 of type hal2-course
(defmethod inspect ((this hal2-course))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this (-> this type))
  (format #t "~1Tcourse-id: ~D~%" (-> this course-id))
  (format #t "~1Tspeech-count: ~D~%" (-> this speech-count))
  (format #t "~1Tspot-count: ~D~%" (-> this spot-count))
  (format #t "~1Tretry-cookie: ~D~%" (-> this retry-cookie))
  (format #t "~1Ttoo-far-warn-speeches: ~A~%" (-> this too-far-warn-speeches))
  (format #t "~1Ttoo-far-fail-speeches: ~A~%" (-> this too-far-fail-speeches))
  (format #t "~1Tattack-player-speeches: ~A~%" (-> this attack-player-speeches))
  (format #t "~1Tdefault-check-too-far: ~A~%" (-> this default-check-too-far))
  (format #t "~1Twaypoints: ~A~%" (-> this waypoints))
  (format #t "~1Tspeeches: #x~X~%" (-> this speeches))
  (format #t "~1Tspeech-tunings: #x~X~%" (-> this speech-tunings))
  (format #t "~1Tdirs: #x~X~%" (-> this dirs))
  (format #t "~1Tspots: #x~X~%" (-> this spots))
  (format #t "~1Tsentries1-reminders: ~A~%" (-> this sentries1-reminders))
  (format #t "~1Tsentries2-reminders: ~A~%" (-> this sentries2-reminders))
  (format #t "~1Tbomb2-reminders: ~A~%" (-> this bomb2-reminders))
  (label cfg-4)
  this
  )

;; definition of type hal-sewer
(deftype hal-sewer (hal)
  ((hal2-course               hal2-course          :overlay-at course)
   (sentries1-reminder-index  int8)
   (sentries2-reminder-index  int8)
   (test-plane                plane        :inline :offset 1040)
   )
  (:methods
    (hal-sewer-method-227 (_type_) symbol)
    (hal-sewer-method-228 (_type_) none)
    (hal-sewer-method-229 (_type_) symbol)
    (hal-sewer-method-230 (_type_ process-focusable process-focusable) symbol)
    (hal-sewer-method-231 (_type_ int) symbol)
    )
  )

;; definition for method 3 of type hal-sewer
(defmethod inspect ((this hal-sewer))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type hal inspect)))
    (t9-0 this)
    )
  (format #t "~2Tsentries1-reminder-index: ~D~%" (-> this sentries1-reminder-index))
  (format #t "~2Tsentries2-reminder-index: ~D~%" (-> this sentries2-reminder-index))
  (format #t "~2Ttest-plane: #<plane @ #x~X>~%" (-> this test-plane))
  (label cfg-4)
  this
  )

;; definition for method 116 of type hal-sewer
;; WARN: Return type mismatch object vs none.
(defmethod go-idle ((this hal-sewer))
  (cond
    ((task-node-closed? (game-task-node sewer-escort-resolution))
     (cleanup-for-death this)
     (go (method-of-object this die-fast))
     )
    (else
      (go (method-of-object this idle))
      )
    )
  (none)
  )

;; definition for method 210 of type hal-sewer
;; WARN: Return type mismatch float vs none.
(defmethod init! ((this hal-sewer))
  "Set defaults for various fields."
  (let ((t9-0 (method-of-type hal init!)))
    (t9-0 this)
    )
  (set! (-> this too-far-warn-dist-default) 409600.0)
  (set! (-> this too-far-fail-dist-delta-default) 163840.0)
  (none)
  )

;; definition for method 74 of type hal-sewer
(defmethod general-event-handler ((this hal-sewer) (arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
  "Handles various events for the enemy
@TODO - unsure if there is a pattern for the events and this should have a more specific name"
  (case arg2
    (('notify)
     (case (-> arg3 param 0)
       (('jinx-bomb)
        (logior! (-> this bot-task-bits) (bot-task-bits botbits-0))
        #t
        )
       (else
         ((method-of-type hal general-event-handler) this arg0 arg1 arg2 arg3)
         )
       )
     )
    (else
      ((method-of-type hal general-event-handler) this arg0 arg1 arg2 arg3)
      )
    )
  )

;; definition for function hal2-default-check-too-far
(defun hal2-default-check-too-far ((arg0 hal-sewer))
  (let ((s5-0 (-> *target* control trans))
        (f30-0 40960000.0)
        )
    (countdown (s4-0 3)
      (let ((v1-6 (handle->process (-> arg0 slave-handle s4-0))))
        (when v1-6
          (let ((f0-0 (vector-vector-xz-distance s5-0 (-> (the-as process-drawable v1-6) root trans))))
            (if (< f0-0 f30-0)
                (set! f30-0 f0-0)
                )
            )
          )
        )
      )
    (let ((v0-1 0))
      (let ((f0-1 (-> arg0 too-far-warn-dist)))
        (when (>= f30-0 f0-1)
          (let* ((v1-15 (-> arg0 actor-group 0 data 1 actor))
                 (a0-9 (if v1-15
                           (-> v1-15 extra process)
                           )
                       )
                 )
            (cond
              ((and a0-9 (logtest? (bot-flags bf19) (-> (the-as hal a0-9) bot-flags)))
               (set! v0-1 2)
               )
              ((>= (- f30-0 f0-1) (-> arg0 too-far-fail-dist-delta))
               (set! v0-1 2)
               )
              (else
                (set! v0-1 1)
                )
              )
            )
          )
        )
      v0-1
      )
    )
  )

;; definition for function hal2-near-start-check-too-far
(defun hal2-near-start-check-too-far ((arg0 hal-sewer))
  (let ((gp-0 0))
    (let ((v1-0 (target-pos 0)))
      (cond
        ((>= (-> v1-0 z) 2399957.0)
         (set! gp-0 2)
         )
        ((>= (-> v1-0 z) 2221453.2)
         (set! gp-0 1)
         )
        ((and (>= (-> v1-0 y) -159744.0) (>= (-> (get-trans *target* 1) y) -159744.0))
         (set! gp-0 2)
         )
        )
      )
    gp-0
    )
  )

;; definition for function hal2-below-elevator-a-check-too-far
(defun hal2-below-elevator-a-check-too-far ((arg0 hal-sewer))
  (let ((gp-0 0))
    (if (and (>= (-> (target-pos 0) y) -212402.17) (>= (-> (get-trans *target* 1) y) -212402.17))
        (set! gp-0 2)
        )
    gp-0
    )
  )

;; definition for function hal2-force-fail-check-too-far
(defun hal2-force-fail-check-too-far ((arg0 hal-sewer))
  (let ((gp-0 0))
    (if (and (not (channel-active? arg0 (gui-channel none))) (logtest? (bot-flags bf24) (-> arg0 bot-flags)))
        (set! gp-0 2)
        )
    gp-0
    )
  )

;; definition for function hal2-onslaught-check-too-far
(defun hal2-onslaught-check-too-far ((arg0 hal-sewer))
  (let ((gp-0 (hal2-default-check-too-far arg0)))
    (if (>= 1884160.0 (-> (target-pos 0) z))
        (set! gp-0 2)
        )
    gp-0
    )
  )

;; definition for method 229 of type hal-sewer
(defmethod hal-sewer-method-229 ((this hal-sewer))
  (let ((a0-1 *target*))
    (when a0-1
      (let ((v1-1 (get-trans a0-1 0)))
        (and (>= 5632000.0 (-> v1-1 x))
             (>= (-> v1-1 x) 5529600.0)
             (>= 2068480.0 (-> v1-1 z))
             (>= (-> v1-1 z) 1921024.0)
             )
        )
      )
    )
  )

;; definition for method 231 of type hal-sewer
(defmethod hal-sewer-method-231 ((this hal-sewer) (arg0 int))
  (countdown (v1-0 3)
    (let* ((a2-4 (-> this actor-group 0 data (+ arg0 v1-0) actor))
           (a3-2 (if a2-4
                     (-> a2-4 extra process)
                     )
                 )
           )
      (if (and a3-2 (not (logtest? (-> (the-as process-focusable a3-2) focus-status) (focus-status dead))))
          (return #f)
          )
      )
    )
  #t
  )

;; definition for method 230 of type hal-sewer
;; INFO: Used lq/sq
(defmethod hal-sewer-method-230 ((this hal-sewer) (arg0 process-focusable) (arg1 process-focusable))
  (when (and arg0 arg1)
    (let ((gp-0 (new 'stack-no-clear 'collide-query)))
      (set! (-> gp-0 start-pos quad) (-> arg0 root trans quad))
      (+! (-> gp-0 start-pos y) 8192.0)
      (vector-! (-> gp-0 move-dist) (get-trans arg1 3) (-> gp-0 start-pos))
      (let ((v1-5 gp-0))
        (set! (-> v1-5 radius) 2048.0)
        (set! (-> v1-5 collide-with) (collide-spec backgnd obstacle hit-by-others-list pusher))
        (set! (-> v1-5 ignore-process0) arg0)
        (set! (-> v1-5 ignore-process1) #f)
        (set! (-> v1-5 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
        (set! (-> v1-5 action-mask) (collide-action solid))
        )
      (< (fill-and-probe-using-line-sphere *collide-cache* gp-0) 0.0)
      )
    )
  )

;; definition for method 227 of type hal-sewer
(defmethod hal-sewer-method-227 ((this hal-sewer))
  (let* ((a0-1 (-> this actor-group 0 data 1 actor))
         (v1-3 (if a0-1
                   (-> a0-1 extra process)
                   )
               )
         )
    (when v1-3
      (let ((s5-0 (the-as process #f)))
        (let ((f30-0 0.0)
              (s4-0 (-> (the-as process-drawable v1-3) root trans))
              )
          (countdown (s3-0 3)
            (let* ((v1-10 (-> this actor-group 0 data (+ s3-0 7) actor))
                   (s2-0 (if v1-10
                             (-> v1-10 extra process)
                             )
                         )
                   )
              (when s2-0
                (let ((f0-0 (vector-vector-distance-squared s4-0 (-> (the-as process-drawable s2-0) root trans))))
                  (when (or (not s5-0) (< f0-0 f30-0))
                    (set! s5-0 s2-0)
                    (set! f30-0 f0-0)
                    )
                  )
                )
              )
            )
          )
        (when s5-0
          (let* ((a0-5 this)
                 (t9-1 (method-of-object a0-5 hal-sewer-method-230))
                 (v1-23 (-> this actor-group 0 data 1 actor))
                 )
            (t9-1
              a0-5
              (the-as process-focusable (if v1-23
                                            (-> v1-23 extra process)
                                            )
                      )
              (the-as process-focusable s5-0)
              )
            )
          )
        )
      )
    )
  )

;; definition for method 228 of type hal-sewer
;; WARN: Return type mismatch bot-flags vs none.
(defmethod hal-sewer-method-228 ((this hal-sewer))
  (with-pp
    (let ((s5-0 (-> this actor-group 0 data 18)))
      (cond
        ((logtest? (bot-flags bf22) (-> this bot-flags))
         (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
           (set! (-> a1-0 from) (process->ppointer pp))
           (set! (-> a1-0 num-params) 1)
           (set! (-> a1-0 message) 'query)
           (set! (-> a1-0 param 0) (the-as uint 'path-pos?))
           (let ((t9-0 send-event-function)
                 (v1-9 (-> s5-0 actor))
                 )
             (when (= (t9-0
                        (if v1-9
                            (-> v1-9 extra process)
                            )
                        a1-0
                        )
                      1.0
                      )
               (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                 (set! (-> a1-1 from) (process->ppointer pp))
                 (set! (-> a1-1 num-params) 1)
                 (set! (-> a1-1 message) 'query)
                 (set! (-> a1-1 param 0) (the-as uint 'player-standing-on?))
                 (let ((t9-1 send-event-function)
                       (v1-18 (-> s5-0 actor))
                       )
                   (when (t9-1
                           (if v1-18
                               (-> v1-18 extra process)
                               )
                           a1-1
                           )
                     (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
                       (set! (-> a1-2 from) (process->ppointer pp))
                       (set! (-> a1-2 num-params) 1)
                       (set! (-> a1-2 message) 'move-to)
                       (set! (-> a1-2 param 0) (the-as uint 'top))
                       (let ((t9-2 send-event-function)
                             (v1-25 (-> s5-0 actor))
                             )
                         (t9-2
                           (if v1-25
                               (-> v1-25 extra process)
                               )
                           a1-2
                           )
                         )
                       )
                     (logclear! (-> this bot-flags) (bot-flags bf22))
                     (logior! (-> this bot-flags) (bot-flags bf23))
                     )
                   )
                 )
               )
             )
           )
         )
        ((logtest? (bot-flags bf23) (-> this bot-flags))
         (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
           (set! (-> a1-3 from) (process->ppointer pp))
           (set! (-> a1-3 num-params) 1)
           (set! (-> a1-3 message) 'query)
           (set! (-> a1-3 param 0) (the-as uint 'path-pos?))
           (let ((t9-3 send-event-function)
                 (v1-38 (-> s5-0 actor))
                 )
             (if (= (t9-3
                      (if v1-38
                          (-> v1-38 extra process)
                          )
                      a1-3
                      )
                    0.0
                    )
                 (logclear! (-> this bot-flags) (bot-flags bf23))
                 )
             )
           )
         )
        (else
          (let ((a0-14 *target*))
            (when (and a0-14 (>= -294912.0 (-> (get-trans a0-14 0) y)))
              (let ((a1-5 (new 'stack-no-clear 'event-message-block)))
                (set! (-> a1-5 from) (process->ppointer pp))
                (set! (-> a1-5 num-params) 1)
                (set! (-> a1-5 message) 'move-to)
                (set! (-> a1-5 param 0) (the-as uint 'bottom))
                (let ((t9-5 send-event-function)
                      (v1-51 (-> s5-0 actor))
                      )
                  (t9-5
                    (if v1-51
                        (-> v1-51 extra process)
                        )
                    a1-5
                    )
                  )
                )
              (logior! (-> this bot-flags) (bot-flags bf22))
              )
            )
          )
        )
      )
    (none)
    )
  )

;; definition for symbol *hal2-course*, type hal2-course
(define *hal2-course*
  (new 'static 'hal2-course
    :course-id #x5
    :speech-count #x52
    :spot-count #x5
    :too-far-warn-speeches (new 'static 'bot-speech-list-shuffle
      :flags #xa
      :last-local-index -1
      :speech-indexes (new 'static 'boxed-array :type int16 15 16 17 18 19 20)
      )
    :waypoints (new 'static 'boxed-array :type bot-waypoint
      (new 'static 'bot-waypoint
        :waypoint-id 1
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (clear-speech-flags! arg0)
          (let ((v1-3 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-3 bytes 5) 1)
            (set! (-> v1-3 bytes 6) 0)
            (set! (-> v1-3 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-3) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                             (s3-0 (if v1-3
                                       (-> v1-3 extra process)
                                       )
                                   )
                             (v1-8 (-> arg1 actor-group 0 data 3 actor))
                             (s4-0 (if v1-8
                                       (-> v1-8 extra process)
                                       )
                                   )
                             (v1-13 (-> arg1 actor-group 0 data 2 actor))
                             (s5-0 (if v1-13
                                       (-> v1-13 extra process)
                                       )
                                   )
                             )
                        (cond
                          ((not (logtest? (-> arg1 waypoint-bits) (waypoint-bits wabits-0)))
                           (when (and s3-0 s4-0 s5-0)
                             (logior! (-> arg1 waypoint-bits) (waypoint-bits wabits-0))
                             (set! (-> arg1 slave-handle 0) (process->handle s3-0))
                             (set! (-> arg1 slave-handle 1) (process->handle s4-0))
                             (set! (-> arg1 slave-handle 2) (process->handle s5-0))
                             )
                           #f
                           )
                          ((not (logtest? (-> arg1 waypoint-bits) (waypoint-bits wabits-1)))
                           (logior! (-> arg1 waypoint-bits) (waypoint-bits wabits-1))
                           (hal-method-226 arg1)
                           (send-event s3-0 'request 'waypoint 2)
                           (send-event s4-0 'request 'waypoint 2)
                           (send-event s5-0 'request 'waypoint 2)
                           #f
                           )
                          (else
                            (let ((a0-17 s3-0))
                              (when (and (and a0-17 (let ((s3-1 1))
                                                      (< s3-1 (the-as int (send-event a0-17 'query 'waypoint)))
                                                      )
                                              )
                                         (let ((a0-19 s4-0))
                                           (and a0-19 (let ((s4-1 1))
                                                        (< s4-1 (the-as int (send-event a0-19 'query 'waypoint)))
                                                        )
                                                )
                                           )
                                         (let ((a0-21 s5-0))
                                           (and a0-21 (let ((s5-1 1))
                                                        (< s5-1 (the-as int (send-event a0-21 'query 'waypoint)))
                                                        )
                                                )
                                           )
                                         )
                                (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 #f
        :on-skipping-here #f
        :check-too-far #f
        )
      (new 'static 'bot-waypoint
        :waypoint-id 2
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-1 bytes 5) 1)
            (set! (-> v1-1 bytes 6) 0)
            (set! (-> v1-1 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-1) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (let* ((v1-3 (-> arg1 actor-group 0 data 5 actor))
                             (a0-1 (if v1-3
                                       (-> v1-3 extra process)
                                       )
                                   )
                             )
                        (if (or (not a0-1)
                                (or (not (logtest? (-> a0-1 entity extra perm status) (entity-perm-status subtask-complete)))
                                    (< -176128.0 (-> (target-pos 0) y))
                                    )
                                )
                            (set-time! (-> arg1 waypoint-time0))
                            )
                        )
                      (cond
                        ((logtest? (bot-flags bf19 bf20 bf21) (-> arg1 bot-flags))
                         (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                         (go-to-waypoint! arg1 4 #f)
                         (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                         #t
                         )
                        ((time-elapsed? (-> arg1 waypoint-time0) (seconds 0.5))
                         (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
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (play-speech arg0 0)
          (let ((v1-3 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-3 bytes 5) 1)
            (set! (-> v1-3 bytes 6) 0)
            (set! (-> v1-3 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-3) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (local-vars (a0-8 process) (a0-13 process))
                      (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                             (s3-0 (if v1-3
                                       (-> v1-3 extra process)
                                       )
                                   )
                             (v1-8 (-> arg1 actor-group 0 data 3 actor))
                             (s4-0 (if v1-8
                                       (-> v1-8 extra process)
                                       )
                                   )
                             (v1-13 (-> arg1 actor-group 0 data 2 actor))
                             (s5-0 (if v1-13
                                       (-> v1-13 extra process)
                                       )
                                   )
                             )
                        (if (and (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.1))
                                 (let ((a0-3 s3-0))
                                   (and a0-3 (< (the-as int (send-event a0-3 'query 'waypoint)) 3))
                                   )
                                 )
                            (send-event s3-0 'request 'waypoint 3)
                            )
                        (if (and (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.75))
                                 (begin (set! a0-8 s4-0) a0-8)
                                 (< (the-as int (send-event a0-8 'query 'waypoint)) 3)
                                 )
                            (send-event s4-0 'request 'waypoint 3)
                            )
                        (if (and (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.9))
                                 (begin (set! a0-13 s5-0) a0-13)
                                 (< (the-as int (send-event a0-13 'query 'waypoint)) 3)
                                 )
                            (send-event s5-0 'request 'waypoint 3)
                            )
                        (cond
                          ((logtest? (bot-flags bf19 bf20 bf21) (-> arg1 bot-flags))
                           (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                           (go-to-waypoint! arg1 4 #f)
                           (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                           #t
                           )
                          ((and (>= (- (-> (target-pos 0) x) (-> arg1 root trans x)) -65536.0)
                                (or (not s3-0) (>= (the-as int (send-event s3-0 'query 'waypoint)) 3))
                                (or (not s4-0) (>= (the-as int (send-event s4-0 'query 'waypoint)) 3))
                                (or (not s5-0) (>= (the-as int (send-event s5-0 'query 'waypoint)) 3))
                                )
                           (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                           (go-to-waypoint! arg1 4 #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 4
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (if (not (logtest? (bot-flags bf19 bf20 bf21) (-> arg0 bot-flags)))
              (play-speech arg0 1)
              )
          (let* ((v1-8 (-> arg0 actor-group 0 data 1 actor))
                 (s4-0 (if v1-8
                           (-> v1-8 extra process)
                           )
                       )
                 (v1-13 (-> arg0 actor-group 0 data 3 actor))
                 (s5-0 (if v1-13
                           (-> v1-13 extra process)
                           )
                       )
                 )
            (let* ((v1-18 (-> arg0 actor-group 0 data 2 actor))
                   (s3-0 (if v1-18
                             (-> v1-18 extra process)
                             )
                         )
                   )
              (process-entity-status! arg0 (entity-perm-status no-kill) #t)
              (process-entity-status! s4-0 (entity-perm-status no-kill) #t)
              (process-entity-status! s5-0 (entity-perm-status no-kill) #t)
              (process-entity-status! s3-0 (entity-perm-status no-kill) #t)
              (let ((a0-7 (-> arg0 actor-group 0 data 4 actor)))
                (if a0-7
                    (toggle-status (the-as entity-actor a0-7) (entity-perm-status no-kill) #t)
                    )
                )
              (send-event s4-0 'request 'health-meter #t)
              (send-event s5-0 'request 'health-meter #t)
              (send-event s3-0 'request 'health-meter #t)
              (send-event s4-0 'request 'waypoint 3)
              (send-event s3-0 'request 'waypoint 3)
              )
            (send-event s5-0 'request 'waypoint 3)
            )
          (let ((v1-62 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-62 bytes 5) 1)
            (set! (-> v1-62 bytes 6) 1)
            (set! (-> v1-62 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-62) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (local-vars (a0-8 process))
                      (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                             (s3-0 (if v1-3
                                       (-> v1-3 extra process)
                                       )
                                   )
                             (v1-8 (-> arg1 actor-group 0 data 3 actor))
                             (s4-0 (if v1-8
                                       (-> v1-8 extra process)
                                       )
                                   )
                             (v1-13 (-> arg1 actor-group 0 data 2 actor))
                             (s5-0 (if v1-13
                                       (-> v1-13 extra process)
                                       )
                                   )
                             )
                        (let ((a0-1 s3-0))
                          (if (and (and a0-1 (= (send-event a0-1 'query 'waypoint) 3))
                                   (time-elapsed? (-> arg1 waypoint-time0) (seconds 1.5))
                                   )
                              (send-event s3-0 'request 'waypoint 9)
                              )
                          )
                        (when (and (not (channel-active? arg1 (gui-channel none)))
                                   (not (speech-playing? arg1 6))
                                   (begin (set! a0-8 s3-0) a0-8)
                                   (>= (the-as int (send-event a0-8 'query 'waypoint)) 9)
                                   )
                          (play-speech arg1 6)
                          (play-speech arg1 7)
                          )
                        (let ((a0-11 s5-0))
                          (if (and (and a0-11 (= (send-event a0-11 'query 'waypoint) 3))
                                   (time-elapsed? (-> arg1 waypoint-time0) (seconds 1.6))
                                   )
                              (send-event s5-0 'request 'waypoint 9)
                              )
                          )
                        (let ((a0-16 s4-0))
                          (if (and (and a0-16 (= (send-event a0-16 'query 'waypoint) 3))
                                   (time-elapsed? (-> arg1 waypoint-time0) (seconds 1.8))
                                   )
                              (send-event s4-0 'request 'waypoint 9)
                              )
                          )
                        (when (and (time-elapsed? (-> arg1 waypoint-time0) (seconds 4))
                                   (not (speech-playing? arg1 2))
                                   (not (channel-active? arg1 (gui-channel none)))
                                   )
                          (play-speech arg1 2)
                          (play-speech arg1 3)
                          (play-speech arg1 4)
                          (play-speech arg1 5)
                          )
                        (when (and (or (not s3-0) (>= (the-as int (send-event s3-0 'query 'waypoint)) 9))
                                   (or (not s4-0) (>= (the-as int (send-event s4-0 'query 'waypoint)) 9))
                                   (or (not s5-0) (>= (the-as int (send-event s5-0 'query 'waypoint)) 9))
                                   )
                          (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
                          )
                        )
                      #f
                      )
                    )
                  )
            )
          (none)
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-near-start-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 9
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 1)
              (set! (-> a1-0 message) 'move-to)
              (set! (-> a1-0 param 0) (the-as uint 'bottom))
              (let ((t9-0 send-event-function)
                    (v1-7 (-> arg0 actor-group 0 data 4 actor))
                    )
                (t9-0
                  (if v1-7
                      (-> v1-7 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((v1-11 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-11 bytes 5) 1)
              (set! (-> v1-11 bytes 6) 2)
              (set! (-> v1-11 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-11) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (local-vars (v1-125 symbol))
                        (with-pp
                          (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                                 (s3-0 (if v1-3
                                           (-> v1-3 extra process)
                                           )
                                       )
                                 (v1-8 (-> arg1 actor-group 0 data 3 actor))
                                 (s4-0 (if v1-8
                                           (-> v1-8 extra process)
                                           )
                                       )
                                 (v1-13 (-> arg1 actor-group 0 data 2 actor))
                                 (s5-0 (if v1-13
                                           (-> v1-13 extra process)
                                           )
                                       )
                                 )
                            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                              (set! (-> a1-1 from) (process->ppointer pp))
                              (set! (-> a1-1 num-params) 1)
                              (set! (-> a1-1 message) 'query)
                              (set! (-> a1-1 param 0) (the-as uint 'path-pos?))
                              (let ((t9-0 send-event-function)
                                    (v1-22 (-> arg1 actor-group 0 data 4 actor))
                                    )
                                (if (< (t9-0
                                         (if v1-22
                                             (-> v1-22 extra process)
                                             )
                                         a1-1
                                         )
                                       1.0
                                       )
                                    (set-time! (-> arg1 waypoint-time0))
                                    )
                                )
                              )
                            (let ((a0-3 s3-0))
                              (if (and (and a0-3 (= (send-event a0-3 'query 'waypoint) 9))
                                       (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.1))
                                       )
                                  (send-event s3-0 'request 'waypoint 11)
                                  )
                              )
                            (let ((a0-8 s4-0))
                              (if (and (and a0-8 (= (send-event a0-8 'query 'waypoint) 9))
                                       (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.9))
                                       )
                                  (send-event s4-0 'request 'waypoint 11)
                                  )
                              )
                            (let ((a0-13 s5-0))
                              (if (and (and a0-13 (= (send-event a0-13 'query 'waypoint) 9))
                                       (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.7))
                                       )
                                  (send-event s5-0 'request 'waypoint 11)
                                  )
                              )
                            (let ((a1-8 (new 'stack-no-clear 'event-message-block)))
                              (set! (-> a1-8 from) (process->ppointer pp))
                              (set! (-> a1-8 num-params) 1)
                              (set! (-> a1-8 message) 'query)
                              (set! (-> a1-8 param 0) (the-as uint 'idle))
                              (let ((t9-7 send-event-function)
                                    (v1-87 (-> arg1 actor-group 0 data 6 actor))
                                    )
                                (cond
                                  ((t9-7
                                     (if v1-87
                                         (-> v1-87 extra process)
                                         )
                                     a1-8
                                     )
                                   (let ((a0-20 s3-0))
                                     (when (and (and a0-20 (>= (the-as int (send-event a0-20 'query 'waypoint)) 11))
                                                (and (not (speech-playing? arg1 12))
                                                     (not (speech-playing? arg1 8))
                                                     (not (channel-active? arg1 (gui-channel none)))
                                                     )
                                                )
                                       (play-speech arg1 8)
                                       (play-speech arg1 9)
                                       (play-speech arg1 10)
                                       (play-speech arg1 11)
                                       )
                                     )
                                   )
                                  ((let ((a1-17 (new 'stack-no-clear 'event-message-block)))
                                     (set! (-> a1-17 from) (process->ppointer pp))
                                     (set! (-> a1-17 num-params) 1)
                                     (set! (-> a1-17 message) 'query)
                                     (set! (-> a1-17 param 0) (the-as uint 'hostile))
                                     (let ((t9-16 send-event-function)
                                           (v1-119 (-> arg1 actor-group 0 data 6 actor))
                                           )
                                       (t9-16
                                         (if v1-119
                                             (-> v1-119 extra process)
                                             )
                                         a1-17
                                         )
                                       )
                                     )
                                   (b! (speech-playing? arg1 12) cfg-77 :likely-delay (set! v1-125 #f))
                                   (set! v1-125 (hal-sewer-method-227 arg1))
                                   (label cfg-77)
                                   (when v1-125
                                     (stop-speech arg1 (the-as uint 0) #f)
                                     (play-speech arg1 12)
                                     (play-speech arg1 13)
                                     (play-speech arg1 14)
                                     )
                                   )
                                  )
                                )
                              )
                            (when (and (or (not s3-0) (>= (the-as int (send-event s3-0 'query 'waypoint)) 11))
                                       (or (not s4-0) (>= (the-as int (send-event s4-0 'query 'waypoint)) 11))
                                       (or (not s5-0) (>= (the-as int (send-event s5-0 'query 'waypoint)) 11))
                                       )
                              (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                              (cond
                                ((speech-playing? arg1 12)
                                 (let ((a1-28 (new 'stack-no-clear 'event-message-block)))
                                   (set! (-> a1-28 from) (process->ppointer pp))
                                   (set! (-> a1-28 num-params) 1)
                                   (set! (-> a1-28 message) 'query)
                                   (set! (-> a1-28 param 0) (the-as uint 'beaten))
                                   (let ((t9-28 send-event-function)
                                         (v1-163 (-> arg1 actor-group 0 data 6 actor))
                                         )
                                     (if (t9-28
                                           (if v1-163
                                               (-> v1-163 extra process)
                                               )
                                           a1-28
                                           )
                                         (go-to-waypoint! arg1 20 #f)
                                         (go-to-waypoint! arg1 16 #f)
                                         )
                                     )
                                   )
                                 )
                                (else
                                  (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 'hal2-near-start-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 11
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'waypoint))
              (set! (-> a1-0 param 1) (the-as uint 12))
              (let ((t9-0 send-event-function)
                    (v1-8 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-8
                      (-> v1-8 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((v1-12 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-12 bytes 5) 1)
              (set! (-> v1-12 bytes 6) 2)
              (set! (-> v1-12 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-12) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                            (set! (-> a1-1 from) (process->ppointer pp))
                            (set! (-> a1-1 num-params) 1)
                            (set! (-> a1-1 message) 'query)
                            (set! (-> a1-1 param 0) (the-as uint 'beaten))
                            (let ((t9-0 send-event-function)
                                  (v1-7 (-> arg1 actor-group 0 data 6 actor))
                                  )
                              (b!
                                (not (t9-0
                                       (if v1-7
                                           (-> v1-7 extra process)
                                           )
                                       a1-1
                                       )
                                     )
                                cfg-6
                                :delay (empty-form)
                                )
                              )
                            )
                          (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                          (go-to-waypoint! arg1 20 #f)
                          (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                          (let ((v0-4 #t))
                            (b! #t cfg-17 :delay (nop!))
                            (label cfg-6)
                            (set! v0-4
                                  (when (and (not (speech-playing? arg1 12)) (let ((a1-6 (new 'stack-no-clear 'event-message-block)))
                                                                               (set! (-> a1-6 from) (process->ppointer pp))
                                                                               (set! (-> a1-6 num-params) 1)
                                                                               (set! (-> a1-6 message) 'query)
                                                                               (set! (-> a1-6 param 0) (the-as uint 'hostile))
                                                                               (let ((t9-5 send-event-function)
                                                                                     (v1-27 (-> arg1 actor-group 0 data 6 actor))
                                                                                     )
                                                                                 (and (t9-5
                                                                                        (if v1-27
                                                                                            (-> v1-27 extra process)
                                                                                            )
                                                                                        a1-6
                                                                                        )
                                                                                      (hal-sewer-method-227 arg1)
                                                                                      )
                                                                                 )
                                                                               )
                                             )
                                    (stop-speech arg1 (the-as uint 0) #f)
                                    (play-speech arg1 12)
                                    (play-speech arg1 13)
                                    (play-speech arg1 14)
                                    (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
                                    )
                                  )
                            (label cfg-17)
                            v0-4
                            )
                          )
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-below-elevator-a-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 16
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (set-vector! (-> arg0 test-plane) -1.0 0.0 0.0 4870144.0)
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'waypoint))
              (set! (-> a1-0 param 1) (the-as uint 16))
              (let ((t9-0 send-event-function)
                    (v1-9 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-9
                      (-> v1-9 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'waypoint))
              (set! (-> a1-1 param 1) (the-as uint 16))
              (let ((t9-1 send-event-function)
                    (v1-20 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-1
                  (if v1-20
                      (-> v1-20 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 16))
              (let ((t9-2 send-event-function)
                    (v1-31 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-2
                  (if v1-31
                      (-> v1-31 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((v1-35 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-35 bytes 5) 1)
              (set! (-> v1-35 bytes 6) 2)
              (set! (-> v1-35 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-35) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                            (set! (-> a1-1 from) (process->ppointer pp))
                            (set! (-> a1-1 num-params) 1)
                            (set! (-> a1-1 message) 'query)
                            (set! (-> a1-1 param 0) (the-as uint 'beaten))
                            (let ((t9-0 send-event-function)
                                  (v1-7 (-> arg1 actor-group 0 data 6 actor))
                                  )
                              (when (t9-0
                                      (if v1-7
                                          (-> v1-7 extra process)
                                          )
                                      a1-1
                                      )
                                (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                                (go-to-waypoint! arg1 20 #f)
                                (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                                (return (the-as symbol #t))
                                )
                              )
                            )
                          (let* ((v1-22 (-> arg1 actor-group 0 data 7 actor))
                                 (a0-6 (if v1-22
                                           (-> v1-22 extra process)
                                           )
                                       )
                                 (v1-27 (-> arg1 actor-group 0 data 9 actor))
                                 (s4-0 (if v1-27
                                           (-> v1-27 extra process)
                                           )
                                       )
                                 (v1-32 (-> arg1 actor-group 0 data 8 actor))
                                 (s5-0 (if v1-32
                                           (-> v1-32 extra process)
                                           )
                                       )
                                 )
                            (the-as
                              symbol
                              (when (and (or (not a0-6)
                                             (>= (vector4-dot (get-trans (the-as process-focusable a0-6) 0) (the-as vector (-> arg1 test-plane))) 0.0)
                                             )
                                         (or (not s4-0)
                                             (>= (vector4-dot (get-trans (the-as process-focusable s4-0) 0) (the-as vector (-> arg1 test-plane))) 0.0)
                                             )
                                         (or (not s5-0)
                                             (>= (vector4-dot (get-trans (the-as process-focusable s5-0) 0) (the-as vector (-> arg1 test-plane))) 0.0)
                                             )
                                         )
                                (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                                (go-to-waypoint! arg1 17 #f)
                                (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                                )
                              )
                            )
                          )
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-below-elevator-a-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 17
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'waypoint))
              (set! (-> a1-0 param 1) (the-as uint 17))
              (let ((t9-0 send-event-function)
                    (v1-8 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-8
                      (-> v1-8 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'waypoint))
              (set! (-> a1-1 param 1) (the-as uint 17))
              (let ((t9-1 send-event-function)
                    (v1-19 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-1
                  (if v1-19
                      (-> v1-19 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 17))
              (let ((t9-2 send-event-function)
                    (v1-30 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-2
                  (if v1-30
                      (-> v1-30 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((v1-34 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-34 bytes 5) 1)
              (set! (-> v1-34 bytes 6) 2)
              (set! (-> v1-34 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-34) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer)) (with-pp
                                                                 (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                                                                   (set! (-> a1-1 from) (process->ppointer pp))
                                                                   (set! (-> a1-1 num-params) 1)
                                                                   (set! (-> a1-1 message) 'query)
                                                                   (set! (-> a1-1 param 0) (the-as uint 'beaten))
                                                                   (let ((t9-0 send-event-function)
                                                                         (v1-7 (-> arg1 actor-group 0 data 6 actor))
                                                                         )
                                                                     (when (t9-0
                                                                             (if v1-7
                                                                                 (-> v1-7 extra process)
                                                                                 )
                                                                             a1-1
                                                                             )
                                                                       (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 'hal2-below-elevator-a-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 20
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'waypoint))
              (set! (-> a1-0 param 1) (the-as uint 20))
              (let ((t9-0 send-event-function)
                    (v1-8 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-8
                      (-> v1-8 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'waypoint))
              (set! (-> a1-1 param 1) (the-as uint 20))
              (let ((t9-1 send-event-function)
                    (v1-19 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-1
                  (if v1-19
                      (-> v1-19 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 20))
              (let ((t9-2 send-event-function)
                    (v1-30 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-2
                  (if v1-30
                      (-> v1-30 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((a0-7 (-> arg0 actor-group 0 data 4 actor)))
              (if a0-7
                  (toggle-status (the-as entity-actor a0-7) (entity-perm-status no-kill) #f)
                  )
              )
            (let ((a0-8 (-> arg0 actor-group 0 data 11 actor)))
              (if a0-8
                  (toggle-status (the-as entity-actor a0-8) (entity-perm-status no-kill) #t)
                  )
              )
            (let ((v1-44 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-44 bytes 5) 1)
              (set! (-> v1-44 bytes 6) 2)
              (set! (-> v1-44 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-44) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (when (not (channel-active? arg1 (gui-channel none)))
                          (cond
                            ((speech-playing? arg1 12)
                             (if (not (speech-playing? arg1 22))
                                 (play-speech arg1 22)
                                 )
                             )
                            (else
                              (if (and (not (speech-playing? arg1 21)) (let* ((a0-6 arg1)
                                                                              (t9-5 (method-of-object a0-6 hal-sewer-method-230))
                                                                              (v1-17 (-> arg1 actor-group 0 data 1 actor))
                                                                              )
                                                                         (t9-5
                                                                           a0-6
                                                                           (the-as process-focusable (if v1-17
                                                                                                         (-> v1-17 extra process)
                                                                                                         )
                                                                                   )
                                                                           *target*
                                                                           )
                                                                         )
                                       )
                                  (play-speech arg1 21)
                                  )
                              )
                            )
                          )
                        (let* ((v1-25 (-> arg1 actor-group 0 data 1 actor))
                               (a0-8 (if v1-25
                                         (-> v1-25 extra process)
                                         )
                                     )
                               )
                          (when (or (not a0-8) (>= (the-as int (send-event a0-8 'query 'waypoint)) 20))
                            (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                            (go-to-waypoint! arg1 21 #f)
                            (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                            #t
                            )
                          )
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-below-elevator-a-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 21
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-1 bytes 5) 1)
            (set! (-> v1-1 bytes 6) 2)
            (set! (-> v1-1 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-1) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (local-vars (v1-40 int))
                      (with-pp
                        (cond
                          ((speech-playing? arg1 23)
                           (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
                             (set! (-> a1-2 from) (process->ppointer pp))
                             (set! (-> a1-2 num-params) 1)
                             (set! (-> a1-2 message) 'query)
                             (set! (-> a1-2 param 0) (the-as uint 'beaten))
                             (let ((t9-1 send-event-function)
                                   (v1-9 (-> arg1 actor-group 0 data 10 actor))
                                   )
                               (when (t9-1
                                       (if v1-9
                                           (-> v1-9 extra process)
                                           )
                                       a1-2
                                       )
                                 (cond
                                   ((or (speech-playing? arg1 24) (speech-playing? arg1 77))
                                    (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
                                    )
                                   (else
                                     (when (not (channel-active? arg1 (gui-channel none)))
                                       (cond
                                         ((zero? (rnd-int-count arg1 2))
                                          (play-speech arg1 24)
                                          (play-speech arg1 25)
                                          (play-speech arg1 26)
                                          (play-speech arg1 27)
                                          )
                                         ((begin (play-speech arg1 77) (play-speech arg1 78) (set! v1-40 (rnd-int-count arg1 4)) (zero? v1-40))
                                          (play-speech arg1 79)
                                          )
                                         ((= v1-40 1)
                                          (play-speech arg1 80)
                                          )
                                         ((= v1-40 2)
                                          (play-speech arg1 68)
                                          )
                                         (else
                                           (play-speech arg1 81)
                                           )
                                         )
                                       )
                                     #f
                                     )
                                   )
                                 )
                               )
                             )
                           )
                          (else
                            (when (not (channel-active? arg1 (gui-channel none)))
                              (play-speech arg1 23)
                              (let ((a1-23 (new 'stack-no-clear 'event-message-block)))
                                (set! (-> a1-23 from) (process->ppointer pp))
                                (set! (-> a1-23 num-params) 0)
                                (set! (-> a1-23 message) 'trigger)
                                (let ((t9-22 send-event-function)
                                      (v1-58 (-> arg1 actor-group 0 data 10 actor))
                                      )
                                  (t9-22
                                    (if v1-58
                                        (-> v1-58 extra process)
                                        )
                                    a1-23
                                    )
                                  )
                                )
                              (let ((a1-24 (new 'stack-no-clear 'event-message-block)))
                                (set! (-> a1-24 from) (process->ppointer pp))
                                (set! (-> a1-24 num-params) 2)
                                (set! (-> a1-24 message) 'request)
                                (set! (-> a1-24 param 0) (the-as uint 'waypoint))
                                (set! (-> a1-24 param 1) (the-as uint 22))
                                (let ((t9-23 send-event-function)
                                      (v1-69 (-> arg1 actor-group 0 data 1 actor))
                                      )
                                  (t9-23
                                    (if v1-69
                                        (-> v1-69 extra process)
                                        )
                                    a1-24
                                    )
                                  )
                                )
                              (let ((a1-25 (new 'stack-no-clear 'event-message-block)))
                                (set! (-> a1-25 from) (process->ppointer pp))
                                (set! (-> a1-25 num-params) 2)
                                (set! (-> a1-25 message) 'request)
                                (set! (-> a1-25 param 0) (the-as uint 'waypoint))
                                (set! (-> a1-25 param 1) (the-as uint 22))
                                (let ((t9-24 send-event-function)
                                      (v1-80 (-> arg1 actor-group 0 data 3 actor))
                                      )
                                  (t9-24
                                    (if v1-80
                                        (-> v1-80 extra process)
                                        )
                                    a1-25
                                    )
                                  )
                                )
                              (let ((a1-26 (new 'stack-no-clear 'event-message-block)))
                                (set! (-> a1-26 from) (process->ppointer pp))
                                (set! (-> a1-26 num-params) 2)
                                (set! (-> a1-26 message) 'request)
                                (set! (-> a1-26 param 0) (the-as uint 'waypoint))
                                (set! (-> a1-26 param 1) (the-as uint 22))
                                (let ((t9-25 send-event-function)
                                      (v1-91 (-> arg1 actor-group 0 data 2 actor))
                                      )
                                  (t9-25
                                    (if v1-91
                                        (-> v1-91 extra process)
                                        )
                                    a1-26
                                    )
                                  )
                                )
                              #f
                              )
                            )
                          )
                        )
                      )
                    )
                  )
            )
          (none)
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far #f
        )
      (new 'static 'bot-waypoint
        :waypoint-id 23
        :nav-mesh-index -1
        :skip-to 29
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'waypoint))
              (set! (-> a1-0 param 1) (the-as uint 23))
              (let ((t9-0 send-event-function)
                    (v1-8 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-8
                      (-> v1-8 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'waypoint))
              (set! (-> a1-1 param 1) (the-as uint 23))
              (let ((t9-1 send-event-function)
                    (v1-19 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-1
                  (if v1-19
                      (-> v1-19 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 23))
              (let ((t9-2 send-event-function)
                    (v1-30 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-2
                  (if v1-30
                      (-> v1-30 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((v1-34 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-34 bytes 5) 1)
              (set! (-> v1-34 bytes 6) 2)
              (set! (-> v1-34 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-34) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer)) (cond
                                                                 ((logtest? (-> arg1 bot-task-bits) (bot-task-bits botbits-0))
                                                                  (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
                                                                  )
                                                                 (else
                                                                   (set-time! (-> arg1 waypoint-time0))
                                                                   #f
                                                                   )
                                                                 )
                              )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here (lambda ((arg0 hal-sewer))
          (ai-task-control-method-12 (-> arg0 ai-ctrl) arg0)
          (send-event arg0 'move-trans (-> arg0 hal2-course spots 2))
          (send-event *target* 'continue (get-continue-by-name *game-info* "hal2-plant-first-bomb"))
          (let* ((v1-18 (-> arg0 actor-group 0 data 1 actor))
                 (s4-0 (if v1-18
                           (-> v1-18 extra process)
                           )
                       )
                 (v1-23 (-> arg0 actor-group 0 data 3 actor))
                 (s5-1 (if v1-23
                           (-> v1-23 extra process)
                           )
                       )
                 (v1-28 (-> arg0 actor-group 0 data 2 actor))
                 (gp-1 (if v1-28
                           (-> v1-28 extra process)
                           )
                       )
                 )
            (send-event s4-0 'skip)
            (send-event s5-1 'skip)
            (send-event gp-1 'skip)
            (send-event s4-0 'request 'health-meter #t)
            (send-event s5-1 'request 'health-meter #t)
            (send-event gp-1 'request 'health-meter #t)
            )
          (none)
          )
        :check-too-far #f
        )
      (new 'static 'bot-waypoint
        :waypoint-id 24
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-1 bytes 5) 1)
            (set! (-> v1-1 bytes 6) 2)
            (set! (-> v1-1 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-1) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (with-pp
                        (let ((v1-3 (-> arg1 actor-group 0 data 1 actor)))
                          (if v1-3
                              (-> v1-3 extra process)
                              )
                          )
                        (let ((v1-8 (-> arg1 actor-group 0 data 3 actor)))
                          (if v1-8
                              (-> v1-8 extra process)
                              )
                          )
                        (let ((v1-13 (-> arg1 actor-group 0 data 2 actor)))
                          (if v1-13
                              (-> v1-13 extra process)
                              )
                          )
                        (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.4))
                          (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                            (set! (-> a1-1 from) (process->ppointer pp))
                            (set! (-> a1-1 num-params) 2)
                            (set! (-> a1-1 message) 'request)
                            (set! (-> a1-1 param 0) (the-as uint 'waypoint))
                            (set! (-> a1-1 param 1) (the-as uint 24))
                            (let ((t9-0 send-event-function)
                                  (v1-27 (-> arg1 actor-group 0 data 3 actor))
                                  )
                              (t9-0
                                (if v1-27
                                    (-> v1-27 extra process)
                                    )
                                a1-1
                                )
                              )
                            )
                          )
                        (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.75))
                          (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
                            (set! (-> a1-2 from) (process->ppointer pp))
                            (set! (-> a1-2 num-params) 2)
                            (set! (-> a1-2 message) 'request)
                            (set! (-> a1-2 param 0) (the-as uint 'waypoint))
                            (set! (-> a1-2 param 1) (the-as uint 24))
                            (let ((t9-1 send-event-function)
                                  (v1-42 (-> arg1 actor-group 0 data 2 actor))
                                  )
                              (t9-1
                                (if v1-42
                                    (-> v1-42 extra process)
                                    )
                                a1-2
                                )
                              )
                            )
                          )
                        (if (and (not (speech-playing? arg1 28))
                                 (time-elapsed? (-> arg1 waypoint-time0) (seconds 2))
                                 (not (channel-active? arg1 (gui-channel none)))
                                 )
                            (play-speech arg1 28)
                            )
                        (when (logtest? (-> arg1 bot-task-bits) (bot-task-bits botbits-1))
                          (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                          (go-to-waypoint! arg1 25 #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 25
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a0-1 (-> arg0 actor-group 0 data 11 actor)))
              (if a0-1
                  (toggle-status (the-as entity-actor a0-1) (entity-perm-status no-kill) #f)
                  )
              )
            (let ((a0-2 (-> arg0 actor-group 0 data 18 actor)))
              (if a0-2
                  (toggle-status (the-as entity-actor a0-2) (entity-perm-status no-kill) #t)
                  )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 1)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'bomb-recoil))
              (let ((t9-2 send-event-function)
                    (v1-17 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-2
                  (if v1-17
                      (-> v1-17 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-3 from) (process->ppointer pp))
              (set! (-> a1-3 num-params) 1)
              (set! (-> a1-3 message) 'request)
              (set! (-> a1-3 param 0) (the-as uint 'bomb-recoil))
              (let ((t9-3 send-event-function)
                    (v1-27 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-3
                  (if v1-27
                      (-> v1-27 extra process)
                      )
                  a1-3
                  )
                )
              )
            (let ((a1-4 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-4 from) (process->ppointer pp))
              (set! (-> a1-4 num-params) 1)
              (set! (-> a1-4 message) 'request)
              (set! (-> a1-4 param 0) (the-as uint 'bomb-recoil))
              (let ((t9-4 send-event-function)
                    (v1-37 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-4
                  (if v1-37
                      (-> v1-37 extra process)
                      )
                  a1-4
                  )
                )
              )
            (let ((v1-41 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-41 bytes 5) 1)
              (set! (-> v1-41 bytes 6) 2)
              (set! (-> v1-41 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-41) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (cond
                            ((time-elapsed? (-> arg1 waypoint-time0) (seconds 1.5))
                             (cond
                               ((logtest? (-> arg1 waypoint-bits) (waypoint-bits wabits-0))
                                (when (and (not (speech-playing? arg1 29)) (not (speech-playing? arg1 30)))
                                  (if (zero? (rnd-int-count arg1 2))
                                      (play-speech arg1 29)
                                      (play-speech arg1 30)
                                      )
                                  )
                                )
                               (else
                                 (when (not (speech-playing? arg1 31))
                                   (play-speech arg1 31)
                                   (play-speech arg1 32)
                                   (play-speech arg1 33)
                                   )
                                 )
                               )
                             )
                            (else
                              (let ((a0-11 *target*))
                                (if (and a0-11 (focus-test? a0-11 hit))
                                    (logior! (-> arg1 waypoint-bits) (waypoint-bits wabits-0))
                                    )
                                )
                              )
                            )
                          (let ((v1-34 (-> arg1 actor-group 0 data 1 actor)))
                            (if v1-34
                                (-> v1-34 extra process)
                                )
                            )
                          (let ((v1-39 (-> arg1 actor-group 0 data 3 actor)))
                            (if v1-39
                                (-> v1-39 extra process)
                                )
                            )
                          (let ((v1-44 (-> arg1 actor-group 0 data 2 actor)))
                            (if v1-44
                                (-> v1-44 extra process)
                                )
                            )
                          (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 2))
                            (let ((a1-10 (new 'stack-no-clear 'event-message-block)))
                              (set! (-> a1-10 from) (process->ppointer pp))
                              (set! (-> a1-10 num-params) 2)
                              (set! (-> a1-10 message) 'request)
                              (set! (-> a1-10 param 0) (the-as uint 'waypoint))
                              (set! (-> a1-10 param 1) (the-as uint 26))
                              (let ((t9-9 send-event-function)
                                    (v1-58 (-> arg1 actor-group 0 data 3 actor))
                                    )
                                (t9-9
                                  (if v1-58
                                      (-> v1-58 extra process)
                                      )
                                  a1-10
                                  )
                                )
                              )
                            )
                          (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 2.5))
                            (let ((a1-11 (new 'stack-no-clear 'event-message-block)))
                              (set! (-> a1-11 from) (process->ppointer pp))
                              (set! (-> a1-11 num-params) 2)
                              (set! (-> a1-11 message) 'request)
                              (set! (-> a1-11 param 0) (the-as uint 'waypoint))
                              (set! (-> a1-11 param 1) (the-as uint 26))
                              (let ((t9-10 send-event-function)
                                    (v1-73 (-> arg1 actor-group 0 data 2 actor))
                                    )
                                (t9-10
                                  (if v1-73
                                      (-> v1-73 extra process)
                                      )
                                  a1-11
                                  )
                                )
                              )
                            )
                          (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 3.5))
                            (let ((a1-12 (new 'stack-no-clear 'event-message-block)))
                              (set! (-> a1-12 from) (process->ppointer pp))
                              (set! (-> a1-12 num-params) 2)
                              (set! (-> a1-12 message) 'request)
                              (set! (-> a1-12 param 0) (the-as uint 'waypoint))
                              (set! (-> a1-12 param 1) (the-as uint 26))
                              (let ((t9-11 send-event-function)
                                    (v1-87 (-> arg1 actor-group 0 data 1 actor))
                                    )
                                (t9-11
                                  (if v1-87
                                      (-> v1-87 extra process)
                                      )
                                  a1-12
                                  )
                                )
                              )
                            (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 -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (set-vector! (-> arg0 test-plane) 0.29 0.0 -0.957 194109.44)
          (let ((v1-2 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-2 bytes 5) 1)
            (set! (-> v1-2 bytes 6) 3)
            (set! (-> v1-2 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-2) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (let* ((s5-0 arg1)
                             (s4-0 (method-of-object s5-0 hal-sewer-method-230))
                             (v1-4 (-> arg1 actor-group 0 data 1 actor))
                             (s3-0 (if v1-4
                                       (-> v1-4 extra process)
                                       )
                                   )
                             (v1-9 (-> arg1 actor-group 0 data 13 actor))
                             )
                        (when (or (s4-0 s5-0 (the-as process-focusable s3-0) (the-as process-focusable (when v1-9
                                                                                                         (let ((s2-0 (-> v1-9 extra process)))
                                                                                                           (if (type? s2-0 process-focusable)
                                                                                                               s2-0
                                                                                                               )
                                                                                                           )
                                                                                                         )
                                                                                     )
                                        )
                                  (>= (vector4-dot (math-camera-pos) (the-as vector (-> arg1 test-plane))) 0.0)
                                  )
                          (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 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 27
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 0)
              (set! (-> a1-0 message) 'cue-chase)
              (let ((t9-0 send-event-function)
                    (v1-5 (-> arg0 actor-group 0 data 14 actor))
                    )
                (t9-0
                  (if v1-5
                      (-> v1-5 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'waypoint))
              (set! (-> a1-1 param 1) (the-as uint 27))
              (let ((t9-1 send-event-function)
                    (v1-16 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-1
                  (if v1-16
                      (-> v1-16 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 27))
              (let ((t9-2 send-event-function)
                    (v1-27 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-2
                  (if v1-27
                      (-> v1-27 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-3 from) (process->ppointer pp))
              (set! (-> a1-3 num-params) 2)
              (set! (-> a1-3 message) 'request)
              (set! (-> a1-3 param 0) (the-as uint 'waypoint))
              (set! (-> a1-3 param 1) (the-as uint 27))
              (let ((t9-3 send-event-function)
                    (v1-38 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-3
                  (if v1-38
                      (-> v1-38 extra process)
                      )
                  a1-3
                  )
                )
              )
            (let ((v1-42 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-42 bytes 5) 1)
              (set! (-> v1-42 bytes 6) 3)
              (set! (-> v1-42 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-42) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (hal-sewer-method-228 arg1)
                          (when (not (channel-active? arg1 (gui-channel none)))
                            (cond
                              ((not (speech-playing? arg1 34))
                               (let* ((s5-0 arg1)
                                      (s4-0 (method-of-object s5-0 hal-sewer-method-230))
                                      (v1-12 (-> arg1 actor-group 0 data 1 actor))
                                      (s3-0 (if v1-12
                                                (-> v1-12 extra process)
                                                )
                                            )
                                      (v1-17 (-> arg1 actor-group 0 data 13 actor))
                                      )
                                 (if (s4-0
                                       s5-0
                                       (the-as process-focusable s3-0)
                                       (the-as process-focusable (when v1-17
                                                                   (let ((s2-0 (-> v1-17 extra process)))
                                                                     (if (type? s2-0 process-focusable)
                                                                         s2-0
                                                                         )
                                                                     )
                                                                   )
                                               )
                                       )
                                     (play-speech arg1 34)
                                     )
                                 )
                               )
                              ((and (not (speech-playing? arg1 38))
                                    (< (vector4-dot (math-camera-pos) (the-as vector (-> arg1 test-plane))) 0.0)
                                    )
                               (play-speech arg1 38)
                               )
                              )
                            )
                          (let ((a1-8 (new 'stack-no-clear 'event-message-block)))
                            (set! (-> a1-8 from) (process->ppointer pp))
                            (set! (-> a1-8 num-params) 1)
                            (set! (-> a1-8 message) 'query)
                            (set! (-> a1-8 param 0) (the-as uint 'beaten))
                            (let ((t9-9 send-event-function)
                                  (v1-38 (-> arg1 actor-group 0 data 12 actor))
                                  )
                              (cond
                                ((t9-9
                                   (if v1-38
                                       (-> v1-38 extra process)
                                       )
                                   a1-8
                                   )
                                 (when (not (logtest? (bot-flags bf22 bf23) (-> arg1 bot-flags)))
                                   (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                                   (go-to-waypoint! arg1 29 #f)
                                   (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                                   #t
                                   )
                                 )
                                ((and (time-elapsed? (-> arg1 waypoint-time0) (seconds 4))
                                      (>= (vector4-dot (math-camera-pos) (the-as vector (-> arg1 test-plane))) 0.0)
                                      )
                                 (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 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 28
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (play-speech arg0 35)
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 0)
              (set! (-> a1-1 message) 'cue-chase)
              (let ((t9-1 send-event-function)
                    (v1-7 (-> arg0 actor-group 0 data 16 actor))
                    )
                (t9-1
                  (if v1-7
                      (-> v1-7 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((v1-11 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-11 bytes 5) 1)
              (set! (-> v1-11 bytes 6) 3)
              (set! (-> v1-11 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-11) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                            (set! (-> a1-1 from) (process->ppointer pp))
                            (set! (-> a1-1 num-params) 1)
                            (set! (-> a1-1 message) 'query)
                            (set! (-> a1-1 param 0) (the-as uint 'beaten))
                            (let* ((t9-0 send-event-function)
                                   (v1-7 (-> arg1 actor-group 0 data 12 actor))
                                   (s5-0 (t9-0
                                           (if v1-7
                                               (-> v1-7 extra process)
                                               )
                                           a1-1
                                           )
                                         )
                                   (a1-2 (new 'stack-no-clear 'event-message-block))
                                   )
                              (set! (-> a1-2 from) (process->ppointer pp))
                              (set! (-> a1-2 num-params) 1)
                              (set! (-> a1-2 message) 'query)
                              (set! (-> a1-2 param 0) (the-as uint 'beaten))
                              (let* ((t9-1 send-event-function)
                                     (v1-16 (-> arg1 actor-group 0 data 15 actor))
                                     (s4-0 (t9-1
                                             (if v1-16
                                                 (-> v1-16 extra process)
                                                 )
                                             a1-2
                                             )
                                           )
                                     )
                                (when (not (channel-active? arg1 (gui-channel none)))
                                  (cond
                                    ((and (not (speech-playing? arg1 36)) (not s5-0) (not s4-0))
                                     (play-speech arg1 36)
                                     )
                                    ((not (speech-playing? arg1 37))
                                     (play-speech arg1 37)
                                     )
                                    )
                                  )
                                (hal-sewer-method-228 arg1)
                                (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 1.75))
                                  (let ((a1-8 (new 'stack-no-clear 'event-message-block)))
                                    (set! (-> a1-8 from) (process->ppointer pp))
                                    (set! (-> a1-8 num-params) 2)
                                    (set! (-> a1-8 message) 'request)
                                    (set! (-> a1-8 param 0) (the-as uint 'waypoint))
                                    (set! (-> a1-8 param 1) (the-as uint 28))
                                    (let ((t9-8 send-event-function)
                                          (v1-46 (-> arg1 actor-group 0 data 1 actor))
                                          )
                                      (t9-8
                                        (if v1-46
                                            (-> v1-46 extra process)
                                            )
                                        a1-8
                                        )
                                      )
                                    )
                                  )
                                (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 2.75))
                                  (let ((a1-9 (new 'stack-no-clear 'event-message-block)))
                                    (set! (-> a1-9 from) (process->ppointer pp))
                                    (set! (-> a1-9 num-params) 2)
                                    (set! (-> a1-9 message) 'request)
                                    (set! (-> a1-9 param 0) (the-as uint 'waypoint))
                                    (set! (-> a1-9 param 1) (the-as uint 28))
                                    (let ((t9-9 send-event-function)
                                          (v1-61 (-> arg1 actor-group 0 data 3 actor))
                                          )
                                      (t9-9
                                        (if v1-61
                                            (-> v1-61 extra process)
                                            )
                                        a1-9
                                        )
                                      )
                                    )
                                  )
                                (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 3.5))
                                  (let ((a1-10 (new 'stack-no-clear 'event-message-block)))
                                    (set! (-> a1-10 from) (process->ppointer pp))
                                    (set! (-> a1-10 num-params) 2)
                                    (set! (-> a1-10 message) 'request)
                                    (set! (-> a1-10 param 0) (the-as uint 'waypoint))
                                    (set! (-> a1-10 param 1) (the-as uint 28))
                                    (let ((t9-10 send-event-function)
                                          (v1-76 (-> arg1 actor-group 0 data 2 actor))
                                          )
                                      (t9-10
                                        (if v1-76
                                            (-> v1-76 extra process)
                                            )
                                        a1-10
                                        )
                                      )
                                    )
                                  )
                                (when (and s5-0 s4-0 (not (logtest? (bot-flags bf22 bf23) (-> arg1 bot-flags))))
                                  (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                                  (go-to-waypoint! arg1 29 #f)
                                  (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                                  #t
                                  )
                                )
                              )
                            )
                          )
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 29
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (play-speech arg0 39)
            (play-speech arg0 40)
            (play-speech arg0 41)
            (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-3 from) (process->ppointer pp))
              (set! (-> a1-3 num-params) 2)
              (set! (-> a1-3 message) 'request)
              (set! (-> a1-3 param 0) (the-as uint 'waypoint))
              (set! (-> a1-3 param 1) (the-as uint 34))
              (let ((t9-3 send-event-function)
                    (v1-14 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-3
                  (if v1-14
                      (-> v1-14 extra process)
                      )
                  a1-3
                  )
                )
              )
            (let ((v1-18 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-18 bytes 5) 1)
              (set! (-> v1-18 bytes 6) 3)
              (set! (-> v1-18 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-18) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (local-vars (a0-10 process))
                        (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                               (s5-0 (if v1-3
                                         (-> v1-3 extra process)
                                         )
                                     )
                               (v1-8 (-> arg1 actor-group 0 data 3 actor))
                               (s4-0 (if v1-8
                                         (-> v1-8 extra process)
                                         )
                                     )
                               (v1-13 (-> arg1 actor-group 0 data 2 actor))
                               (s3-0 (if v1-13
                                         (-> v1-13 extra process)
                                         )
                                     )
                               )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 1.75))
                              (send-event s4-0 'request 'waypoint 34)
                              )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 2.25))
                              (send-event s3-0 'request 'waypoint 34)
                              )
                          (when (and (not (channel-active? arg1 (gui-channel none)))
                                     (and (not (speech-playing? arg1 42))
                                          (not (speech-playing? arg1 43))
                                          (begin
                                            (let ((v1-45 (-> arg1 actor-group 0 data 1 actor)))
                                              (set! a0-10 (if v1-45
                                                              (-> v1-45 extra process)
                                                              )
                                                    )
                                              )
                                            a0-10
                                            )
                                          (>= (the-as int (send-event a0-10 'query 'waypoint)) 33)
                                          )
                                     )
                            (if (zero? (rnd-int-count arg1 2))
                                (play-speech arg1 42)
                                (play-speech arg1 43)
                                )
                            (play-speech arg1 44)
                            (play-speech arg1 45)
                            )
                          (let ((a0-16 s5-0))
                            (when (and (and a0-16 (= (send-event a0-16 'query 'waypoint) 34))
                                       (let ((a0-18 s4-0))
                                         (and a0-18 (= (send-event a0-18 'query 'waypoint) 34))
                                         )
                                       (let ((a0-20 s3-0))
                                         (and (and a0-20 (= (send-event a0-20 'query 'waypoint) 34))
                                              (outside-spot-radius? (the-as bot s5-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                              (outside-spot-radius? (the-as bot s4-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                              (outside-spot-radius? (the-as bot s3-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                              )
                                         )
                                       )
                              (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 hal-sewer))
          (ai-task-control-method-12 (-> arg0 ai-ctrl) arg0)
          (send-event arg0 'move-trans (-> arg0 hal2-course spots 3))
          (send-event *target* 'continue (get-continue-by-name *game-info* "hal2-go-elevator2"))
          (let* ((v1-18 (-> arg0 actor-group 0 data 1 actor))
                 (a0-7 (if v1-18
                           (-> v1-18 extra process)
                           )
                       )
                 (v1-23 (-> arg0 actor-group 0 data 3 actor))
                 (s5-1 (if v1-23
                           (-> v1-23 extra process)
                           )
                       )
                 (v1-28 (-> arg0 actor-group 0 data 2 actor))
                 (gp-1 (if v1-28
                           (-> v1-28 extra process)
                           )
                       )
                 )
            (send-event a0-7 'skip)
            (send-event s5-1 'skip)
            (send-event gp-1 'skip)
            )
          (none)
          )
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 35
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'waypoint))
              (set! (-> a1-0 param 1) (the-as uint 35))
              (let ((t9-0 send-event-function)
                    (v1-8 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-8
                      (-> v1-8 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'waypoint))
              (set! (-> a1-1 param 1) (the-as uint 35))
              (let ((t9-1 send-event-function)
                    (v1-19 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-1
                  (if v1-19
                      (-> v1-19 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 35))
              (let ((t9-2 send-event-function)
                    (v1-30 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-2
                  (if v1-30
                      (-> v1-30 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-3 from) (process->ppointer pp))
              (set! (-> a1-3 num-params) 1)
              (set! (-> a1-3 message) 'move-to)
              (set! (-> a1-3 param 0) (the-as uint 'bottom))
              (let ((t9-3 send-event-function)
                    (v1-40 (-> arg0 actor-group 0 data 18 actor))
                    )
                (t9-3
                  (if v1-40
                      (-> v1-40 extra process)
                      )
                  a1-3
                  )
                )
              )
            (let ((v1-44 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-44 bytes 5) 1)
              (set! (-> v1-44 bytes 6) 3)
              (set! (-> v1-44 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-44) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                                 (s3-0 (if v1-3
                                           (-> v1-3 extra process)
                                           )
                                       )
                                 (v1-8 (-> arg1 actor-group 0 data 3 actor))
                                 (s4-0 (if v1-8
                                           (-> v1-8 extra process)
                                           )
                                       )
                                 (v1-13 (-> arg1 actor-group 0 data 2 actor))
                                 (s5-0 (if v1-13
                                           (-> v1-13 extra process)
                                           )
                                       )
                                 )
                            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                              (set! (-> a1-1 from) (process->ppointer pp))
                              (set! (-> a1-1 num-params) 1)
                              (set! (-> a1-1 message) 'query)
                              (set! (-> a1-1 param 0) (the-as uint 'path-pos?))
                              (let ((t9-0 send-event-function)
                                    (v1-22 (-> arg1 actor-group 0 data 18 actor))
                                    )
                                (cond
                                  ((< (t9-0
                                        (if v1-22
                                            (-> v1-22 extra process)
                                            )
                                        a1-1
                                        )
                                      1.0
                                      )
                                   (set-time! (-> arg1 waypoint-time0))
                                   )
                                  (else
                                    (if (and (not (speech-playing? arg1 46)) (not (channel-active? arg1 (gui-channel none))))
                                        (play-speech arg1 46)
                                        )
                                    )
                                  )
                                )
                              )
                            (let ((a0-6 s3-0))
                              (if (and (and a0-6 (= (send-event a0-6 'query 'waypoint) 35))
                                       (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.1))
                                       )
                                  (send-event s3-0 'request 'waypoint 37)
                                  )
                              )
                            (let ((a0-11 s4-0))
                              (if (and (and a0-11 (= (send-event a0-11 'query 'waypoint) 35))
                                       (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.9))
                                       )
                                  (send-event s4-0 'request 'waypoint 37)
                                  )
                              )
                            (let ((a0-16 s5-0))
                              (if (and (and a0-16 (= (send-event a0-16 'query 'waypoint) 35))
                                       (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.7))
                                       )
                                  (send-event s5-0 'request 'waypoint 37)
                                  )
                              )
                            (when (and (or (not s3-0) (>= (the-as int (send-event s3-0 'query 'waypoint)) 37))
                                       (or (not s4-0) (>= (the-as int (send-event s4-0 'query 'waypoint)) 37))
                                       (or (not s5-0) (>= (the-as int (send-event s5-0 'query 'waypoint)) 37))
                                       )
                              (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 48
        :on-set (lambda ((arg0 hal-sewer))
          (let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-1 bytes 5) 1)
            (set! (-> v1-1 bytes 6) 3)
            (set! (-> v1-1 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-1) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                             (s3-0 (if v1-3
                                       (-> v1-3 extra process)
                                       )
                                   )
                             (v1-8 (-> arg1 actor-group 0 data 3 actor))
                             (s4-0 (if v1-8
                                       (-> v1-8 extra process)
                                       )
                                   )
                             (v1-13 (-> arg1 actor-group 0 data 2 actor))
                             (s5-0 (if v1-13
                                       (-> v1-13 extra process)
                                       )
                                   )
                             )
                        (when (and (not (speech-playing? arg1 47))
                                   (not (channel-active? arg1 (gui-channel none)))
                                   s4-0
                                   (focus-test? (the-as process-focusable s4-0) touch-water)
                                   )
                          (play-speech arg1 47)
                          (play-speech arg1 48)
                          )
                        (when (or (>= (-> (target-pos 0) x) 5207572.5)
                                  (>= (-> (the-as process-focusable s3-0) root trans x) 5120000.0)
                                  (>= (-> (the-as process-focusable s4-0) root trans x) 5120000.0)
                                  (>= (-> (the-as process-focusable s5-0) root trans x) 5120000.0)
                                  )
                          (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                          (go-to-waypoint! arg1 41 #f)
                          (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                          #t
                          )
                        )
                      )
                    )
                  )
            )
          (none)
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 41
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a0-1 (-> arg0 actor-group 0 data 18 actor)))
              (if a0-1
                  (toggle-status (the-as entity-actor a0-1) (entity-perm-status no-kill) #f)
                  )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 0)
              (set! (-> a1-1 message) 'cue-chase)
              (let ((t9-1 send-event-function)
                    (v1-10 (-> arg0 actor-group 0 data 20 actor))
                    )
                (t9-1
                  (if v1-10
                      (-> v1-10 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((v1-14 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-14 bytes 5) 1)
              (set! (-> v1-14 bytes 6) 3)
              (set! (-> v1-14 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-14) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (if (and (not (speech-playing? arg1 52))
                                   (speech-playing? arg1 49)
                                   (not (channel-active? arg1 (gui-channel none)))
                                   (let ((v1-10 (-> arg1 actor-group 0 data 20 actor)))
                                     (not (if v1-10
                                              (-> v1-10 extra process)
                                              )
                                          )
                                     )
                                   (let ((v1-15 (-> arg1 actor-group 0 data 21 actor)))
                                     (not (if v1-15
                                              (-> v1-15 extra process)
                                              )
                                          )
                                     )
                                   (let ((v1-20 (-> arg1 actor-group 0 data 22 actor)))
                                     (or (if v1-20
                                             (-> v1-20 extra process)
                                             )
                                         (let ((a0-7 (-> arg1 actor-group 0 data 23 actor)))
                                           (if a0-7
                                               (-> a0-7 extra process)
                                               )
                                           )
                                         )
                                     )
                                   )
                              (play-speech arg1 52)
                              )
                          (cond
                            ((not (logtest? (-> arg1 waypoint-bits) (waypoint-bits wabits-0)))
                             (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.5))
                               (logior! (-> arg1 waypoint-bits) (waypoint-bits wabits-0))
                               (let ((a1-5 (new 'stack-no-clear 'event-message-block)))
                                 (set! (-> a1-5 from) (process->ppointer pp))
                                 (set! (-> a1-5 num-params) 0)
                                 (set! (-> a1-5 message) 'cue-chase)
                                 (let ((t9-4 send-event-function)
                                       (v1-42 (-> arg1 actor-group 0 data 21 actor))
                                       )
                                   (t9-4
                                     (if v1-42
                                         (-> v1-42 extra process)
                                         )
                                     a1-5
                                     )
                                   )
                                 )
                               (stop-speech arg1 (the-as uint 0) #f)
                               (play-speech arg1 49)
                               (play-speech arg1 50)
                               (play-speech arg1 51)
                               )
                             #f
                             )
                            ((not (logtest? (-> arg1 waypoint-bits) (waypoint-bits wabits-1)))
                             (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 4))
                               (logior! (-> arg1 waypoint-bits) (waypoint-bits wabits-1))
                               (let ((a1-10 (new 'stack-no-clear 'event-message-block)))
                                 (set! (-> a1-10 from) (process->ppointer pp))
                                 (set! (-> a1-10 num-params) 0)
                                 (set! (-> a1-10 message) 'cue-chase)
                                 (let ((t9-9 send-event-function)
                                       (v1-66 (-> arg1 actor-group 0 data 22 actor))
                                       )
                                   (t9-9
                                     (if v1-66
                                         (-> v1-66 extra process)
                                         )
                                     a1-10
                                     )
                                   )
                                 )
                               )
                             #f
                             )
                            ((not (logtest? (-> arg1 waypoint-bits) (waypoint-bits wabits-2)))
                             (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 5))
                               (logior! (-> arg1 waypoint-bits) (waypoint-bits wabits-2))
                               (let ((a1-11 (new 'stack-no-clear 'event-message-block)))
                                 (set! (-> a1-11 from) (process->ppointer pp))
                                 (set! (-> a1-11 num-params) 0)
                                 (set! (-> a1-11 message) 'cue-chase)
                                 (let ((t9-10 send-event-function)
                                       (v1-82 (-> arg1 actor-group 0 data 23 actor))
                                       )
                                   (t9-10
                                     (if v1-82
                                         (-> v1-82 extra process)
                                         )
                                     a1-11
                                     )
                                   )
                                 )
                               )
                             #f
                             )
                            (else
                              (let ((a1-12 (new 'stack-no-clear 'event-message-block)))
                                (set! (-> a1-12 from) (process->ppointer pp))
                                (set! (-> a1-12 num-params) 1)
                                (set! (-> a1-12 message) 'query)
                                (set! (-> a1-12 param 0) (the-as uint 'beaten))
                                (let ((t9-11 send-event-function)
                                      (v1-92 (-> arg1 actor-group 0 data 19 actor))
                                      )
                                  (when (t9-11
                                          (if v1-92
                                              (-> v1-92 extra process)
                                              )
                                          a1-12
                                          )
                                    (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 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 42
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (if (zero? (rnd-int-count arg0 2))
                (play-speech arg0 53)
                (play-speech arg0 54)
                )
            (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-3 from) (process->ppointer pp))
              (set! (-> a1-3 num-params) 2)
              (set! (-> a1-3 message) 'request)
              (set! (-> a1-3 param 0) (the-as uint 'waypoint))
              (set! (-> a1-3 param 1) (the-as uint 42))
              (let ((t9-3 send-event-function)
                    (v1-14 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-3
                  (if v1-14
                      (-> v1-14 extra process)
                      )
                  a1-3
                  )
                )
              )
            (let ((v1-18 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-18 bytes 5) 1)
              (set! (-> v1-18 bytes 6) 3)
              (set! (-> v1-18 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-18) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                               (s3-0 (if v1-3
                                         (-> v1-3 extra process)
                                         )
                                     )
                               (v1-8 (-> arg1 actor-group 0 data 3 actor))
                               (s4-0 (if v1-8
                                         (-> v1-8 extra process)
                                         )
                                     )
                               (v1-13 (-> arg1 actor-group 0 data 2 actor))
                               (s5-0 (if v1-13
                                         (-> v1-13 extra process)
                                         )
                                     )
                               )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.4))
                              (send-event s4-0 'request 'waypoint 42)
                              )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.7))
                              (send-event s5-0 'request 'waypoint 42)
                              )
                          (cond
                            ((hal-sewer-method-231 arg1 24)
                             (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                             (go-to-waypoint! arg1 44 #f)
                             (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                             #t
                             )
                            ((let ((a0-11 s3-0))
                               (or (and (or (not a0-11) (>= (the-as int (send-event a0-11 'query 'waypoint)) 42))
                                        (outside-spot-radius? (the-as bot s3-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                        )
                                   (let ((a0-14 s4-0))
                                     (and (or (not a0-14) (>= (the-as int (send-event a0-14 'query 'waypoint)) 42))
                                          (outside-spot-radius? (the-as bot s4-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                          )
                                     )
                                   (let ((a0-17 s5-0))
                                     (and (or (not a0-17) (>= (the-as int (send-event a0-17 'query 'waypoint)) 42))
                                          (outside-spot-radius? (the-as bot s5-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                          )
                                     )
                                   )
                               )
                             (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                             (go-to-waypoint! arg1 43 #f)
                             (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                             #t
                             )
                            )
                          )
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 43
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (logclear! (-> arg0 bot-flags) (bot-flags bf24))
            (reset-warn-time! arg0)
            (if (and (not (logtest? (-> arg0 bot-task-bits) (bot-task-bits botbits-4))) (not (hal-sewer-method-231 arg0 24)))
                (play-speech arg0 55)
                )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 0)
              (set! (-> a1-2 message) 'cue-chase)
              (let ((t9-3 send-event-function)
                    (v1-17 (-> arg0 actor-group 0 data 24 actor))
                    )
                (t9-3
                  (if v1-17
                      (-> v1-17 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((v1-21 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-21 bytes 5) 1)
              (set! (-> v1-21 bytes 6) 3)
              (set! (-> v1-21 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-21) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (when (hal-sewer-method-231 arg1 24)
                          (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                          (go-to-waypoint! arg1 44 #f)
                          (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                          (return #t)
                          )
                        (cond
                          ((logtest? (-> arg1 bot-task-bits) (bot-task-bits botbits-2 botbits-4))
                           (logclear! (-> arg1 bot-flags) (bot-flags bf24))
                           (reset-warn-time! arg1)
                           (set-time! (-> arg1 waypoint-time0))
                           (when (not (channel-active? arg1 (gui-channel none)))
                             (let ((v1-22 *target*))
                               (when (and v1-22 (focus-test? v1-22 in-air) (not (logtest? (-> v1-22 focus-status) (focus-status hit))))
                                 (cond
                                   ((not (speech-playing? arg1 58))
                                    (play-speech arg1 58)
                                    )
                                   ((not (speech-playing? arg1 59))
                                    (play-speech arg1 59)
                                    )
                                   ((not (speech-playing? arg1 60))
                                    (play-speech arg1 60)
                                    (play-speech arg1 61)
                                    )
                                   )
                                 )
                               )
                             )
                           )
                          ((channel-active? arg1 (gui-channel none))
                           (reset-warn-time! arg1)
                           (set-time! (-> arg1 waypoint-time0))
                           )
                          (else
                            (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 11))
                              (set-time! (-> arg1 waypoint-time0))
                              (let ((v1-55 (-> arg1 sentries1-reminder-index))
                                    (a1-14 (-> arg1 hal2-course sentries1-reminders))
                                    )
                                (cond
                                  ((< v1-55 (-> a1-14 length))
                                   (set! (-> arg1 sentries1-reminder-index) (+ v1-55 1))
                                   (play-speech arg1 (-> a1-14 v1-55))
                                   )
                                  (else
                                    (logior! (-> arg1 bot-flags) (bot-flags bf24))
                                    )
                                  )
                                )
                              )
                            )
                          )
                        #f
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-force-fail-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 44
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 1)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'replace-bomb))
              (let ((t9-0 send-event-function)
                    (v1-7 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-7
                      (-> v1-7 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 0)
              (set! (-> a1-1 message) 'cue-chase)
              (let ((t9-1 send-event-function)
                    (v1-15 (-> arg0 actor-group 0 data 27 actor))
                    )
                (t9-1
                  (if v1-15
                      (-> v1-15 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 44))
              (let ((t9-2 send-event-function)
                    (v1-26 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-2
                  (if v1-26
                      (-> v1-26 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((v1-30 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-30 bytes 5) 1)
              (set! (-> v1-30 bytes 6) 3)
              (set! (-> v1-30 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-30) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                               (s3-0 (if v1-3
                                         (-> v1-3 extra process)
                                         )
                                     )
                               (v1-8 (-> arg1 actor-group 0 data 3 actor))
                               (s4-0 (if v1-8
                                         (-> v1-8 extra process)
                                         )
                                     )
                               (v1-13 (-> arg1 actor-group 0 data 2 actor))
                               (s5-0 (if v1-13
                                         (-> v1-13 extra process)
                                         )
                                     )
                               )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.2))
                              (send-event s4-0 'request 'waypoint 44)
                              )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.4))
                              (send-event s5-0 'request 'waypoint 44)
                              )
                          (cond
                            ((hal-sewer-method-231 arg1 27)
                             (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                             (go-to-waypoint! arg1 48 #f)
                             (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                             #t
                             )
                            ((let ((a0-11 s3-0))
                               (or (and (or (not a0-11) (>= (the-as int (send-event a0-11 'query 'waypoint)) 47))
                                        (outside-spot-radius? (the-as bot s3-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                        )
                                   (let ((a0-14 s4-0))
                                     (and (or (not a0-14) (>= (the-as int (send-event a0-14 'query 'waypoint)) 47))
                                          (outside-spot-radius? (the-as bot s4-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                          )
                                     )
                                   (let ((a0-17 s5-0))
                                     (and (or (not a0-17) (>= (the-as int (send-event a0-17 'query 'waypoint)) 47))
                                          (outside-spot-radius? (the-as bot s5-0) (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 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 47
        :nav-mesh-index -1
        :skip-to 48
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (logclear! (-> arg0 bot-flags) (bot-flags bf24))
            (reset-warn-time! arg0)
            (if (and (not (logtest? (-> arg0 bot-task-bits) (bot-task-bits botbits-5))) (not (hal-sewer-method-231 arg0 27)))
                (play-speech arg0 62)
                )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 0)
              (set! (-> a1-2 message) 'cue-chase)
              (let ((t9-3 send-event-function)
                    (v1-17 (-> arg0 actor-group 0 data 27 actor))
                    )
                (t9-3
                  (if v1-17
                      (-> v1-17 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((v1-21 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-21 bytes 5) 1)
              (set! (-> v1-21 bytes 6) 3)
              (set! (-> v1-21 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-21) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (when (hal-sewer-method-231 arg1 27)
                          (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                          (go-to-waypoint! arg1 48 #f)
                          (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                          (return #t)
                          )
                        (cond
                          ((logtest? (-> arg1 bot-task-bits) (bot-task-bits botbits-3 botbits-5))
                           (logclear! (-> arg1 bot-flags) (bot-flags bf24))
                           (reset-warn-time! arg1)
                           (set-time! (-> arg1 waypoint-time0))
                           (when (not (channel-active? arg1 (gui-channel none)))
                             (let ((v1-22 *target*))
                               (when (and v1-22 (focus-test? v1-22 in-air) (not (logtest? (-> v1-22 focus-status) (focus-status hit))))
                                 (cond
                                   ((not (speech-playing? arg1 64))
                                    (play-speech arg1 64)
                                    )
                                   ((not (speech-playing? arg1 65))
                                    (play-speech arg1 65)
                                    )
                                   )
                                 )
                               )
                             )
                           )
                          ((channel-active? arg1 (gui-channel none))
                           (reset-warn-time! arg1)
                           (set-time! (-> arg1 waypoint-time0))
                           )
                          (else
                            (when (time-elapsed? (-> arg1 waypoint-time0) (seconds 9))
                              (let ((v1-46 (-> arg1 sentries2-reminder-index))
                                    (a1-11 (-> arg1 hal2-course sentries2-reminders))
                                    )
                                (cond
                                  ((< v1-46 (-> a1-11 length))
                                   (set! (-> arg1 sentries2-reminder-index) (+ v1-46 1))
                                   (play-speech arg1 (-> a1-11 v1-46))
                                   (set-time! (-> arg1 waypoint-time0))
                                   )
                                  (else
                                    (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 20))
                                        (logior! (-> arg1 bot-flags) (bot-flags bf24))
                                        )
                                    )
                                  )
                                )
                              )
                            )
                          )
                        #f
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-force-fail-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 48
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'waypoint))
              (set! (-> a1-0 param 1) (the-as uint 48))
              (let ((t9-0 send-event-function)
                    (v1-8 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-8
                      (-> v1-8 extra process)
                      )
                  a1-0
                  )
                )
              )
            (play-speech arg0 66)
            (add-process *gui-control* arg0 (gui-channel art-load) (gui-action queue) "sewer-hosehead" -99.0 0)
            (let ((v1-16 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-16 bytes 5) 1)
              (set! (-> v1-16 bytes 6) 4)
              (set! (-> v1-16 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-16) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (with-pp
                          (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                                 (s5-0 (if v1-3
                                           (-> v1-3 extra process)
                                           )
                                       )
                                 )
                            (let* ((v1-8 (-> arg1 actor-group 0 data 3 actor))
                                   (s3-0 (if v1-8
                                             (-> v1-8 extra process)
                                             )
                                         )
                                   (v1-13 (-> arg1 actor-group 0 data 2 actor))
                                   (s4-0 (if v1-13
                                             (-> v1-13 extra process)
                                             )
                                         )
                                   )
                              (when (and (logtest? (-> arg1 waypoint-bits) (waypoint-bits wabits-0))
                                         (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.25))
                                         )
                                (logclear! (-> arg1 waypoint-bits) (waypoint-bits wabits-0))
                                (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-1 from) (process->ppointer pp))
                                  (set! (-> a1-1 num-params) 0)
                                  (set! (-> a1-1 message) 'beaten)
                                  (let ((t9-0 send-event-function)
                                        (v1-29 (-> arg1 actor-group 0 data 19 actor))
                                        )
                                    (t9-0
                                      (if v1-29
                                          (-> v1-29 extra process)
                                          )
                                      a1-1
                                      )
                                    )
                                  )
                                (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-2 from) (process->ppointer pp))
                                  (set! (-> a1-2 num-params) 0)
                                  (set! (-> a1-2 message) 'die-fast)
                                  (let ((t9-1 send-event-function)
                                        (v1-37 (-> arg1 actor-group 0 data 22 actor))
                                        )
                                    (t9-1
                                      (if v1-37
                                          (-> v1-37 extra process)
                                          )
                                      a1-2
                                      )
                                    )
                                  )
                                (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-3 from) (process->ppointer pp))
                                  (set! (-> a1-3 num-params) 0)
                                  (set! (-> a1-3 message) 'die-fast)
                                  (let ((t9-2 send-event-function)
                                        (v1-45 (-> arg1 actor-group 0 data 23 actor))
                                        )
                                    (t9-2
                                      (if v1-45
                                          (-> v1-45 extra process)
                                          )
                                      a1-3
                                      )
                                    )
                                  )
                                (let ((a1-4 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-4 from) (process->ppointer pp))
                                  (set! (-> a1-4 num-params) 0)
                                  (set! (-> a1-4 message) 'die-fast)
                                  (let ((t9-3 send-event-function)
                                        (v1-53 (-> arg1 actor-group 0 data 20 actor))
                                        )
                                    (t9-3
                                      (if v1-53
                                          (-> v1-53 extra process)
                                          )
                                      a1-4
                                      )
                                    )
                                  )
                                (let ((a1-5 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-5 from) (process->ppointer pp))
                                  (set! (-> a1-5 num-params) 0)
                                  (set! (-> a1-5 message) 'die-fast)
                                  (let ((t9-4 send-event-function)
                                        (v1-61 (-> arg1 actor-group 0 data 21 actor))
                                        )
                                    (t9-4
                                      (if v1-61
                                          (-> v1-61 extra process)
                                          )
                                      a1-5
                                      )
                                    )
                                  )
                                (let ((a1-6 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-6 from) (process->ppointer pp))
                                  (set! (-> a1-6 num-params) 0)
                                  (set! (-> a1-6 message) 'die-fast)
                                  (let ((t9-5 send-event-function)
                                        (v1-69 (-> arg1 actor-group 0 data 24 actor))
                                        )
                                    (t9-5
                                      (if v1-69
                                          (-> v1-69 extra process)
                                          )
                                      a1-6
                                      )
                                    )
                                  )
                                (let ((a1-7 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-7 from) (process->ppointer pp))
                                  (set! (-> a1-7 num-params) 0)
                                  (set! (-> a1-7 message) 'die-fast)
                                  (let ((t9-6 send-event-function)
                                        (v1-77 (-> arg1 actor-group 0 data 25 actor))
                                        )
                                    (t9-6
                                      (if v1-77
                                          (-> v1-77 extra process)
                                          )
                                      a1-7
                                      )
                                    )
                                  )
                                (let ((a1-8 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-8 from) (process->ppointer pp))
                                  (set! (-> a1-8 num-params) 0)
                                  (set! (-> a1-8 message) 'die-fast)
                                  (let ((t9-7 send-event-function)
                                        (v1-85 (-> arg1 actor-group 0 data 26 actor))
                                        )
                                    (t9-7
                                      (if v1-85
                                          (-> v1-85 extra process)
                                          )
                                      a1-8
                                      )
                                    )
                                  )
                                (let ((a1-9 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-9 from) (process->ppointer pp))
                                  (set! (-> a1-9 num-params) 0)
                                  (set! (-> a1-9 message) 'die-fast)
                                  (let ((t9-8 send-event-function)
                                        (v1-93 (-> arg1 actor-group 0 data 27 actor))
                                        )
                                    (t9-8
                                      (if v1-93
                                          (-> v1-93 extra process)
                                          )
                                      a1-9
                                      )
                                    )
                                  )
                                (let ((a1-10 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-10 from) (process->ppointer pp))
                                  (set! (-> a1-10 num-params) 0)
                                  (set! (-> a1-10 message) 'die-fast)
                                  (let ((t9-9 send-event-function)
                                        (v1-101 (-> arg1 actor-group 0 data 28 actor))
                                        )
                                    (t9-9
                                      (if v1-101
                                          (-> v1-101 extra process)
                                          )
                                      a1-10
                                      )
                                    )
                                  )
                                (let ((a1-11 (new 'stack-no-clear 'event-message-block)))
                                  (set! (-> a1-11 from) (process->ppointer pp))
                                  (set! (-> a1-11 num-params) 0)
                                  (set! (-> a1-11 message) 'die-fast)
                                  (let ((t9-10 send-event-function)
                                        (v1-109 (-> arg1 actor-group 0 data 29 actor))
                                        )
                                    (t9-10
                                      (if v1-109
                                          (-> v1-109 extra process)
                                          )
                                      a1-11
                                      )
                                    )
                                  )
                                )
                              (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.2))
                                  (send-event s3-0 'request 'waypoint 48)
                                  )
                              (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 0.4))
                                  (send-event s4-0 'request 'waypoint 48)
                                  )
                              )
                            (when (and (not (channel-active? arg1 (gui-channel none))) (not (speech-playing? arg1 67)))
                              (let* ((v1-141 (-> arg1 actor-group 0 data 1 actor))
                                     (s4-1 (if v1-141
                                               (-> v1-141 extra process)
                                               )
                                           )
                                     )
                                (if (and s4-1
                                         (>= 65536.0 (vector-vector-xz-distance (target-pos 0) (-> (the-as process-focusable s4-1) root trans)))
                                         )
                                    (play-speech arg1 67)
                                    )
                                )
                              )
                            (let ((a0-36 s5-0))
                              (when (and (and a0-36 (>= (the-as int (send-event a0-36 'query 'waypoint)) 54))
                                         (outside-spot-radius? (the-as bot s5-0) (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 (lambda ((arg0 hal-sewer))
          (ai-task-control-method-12 (-> arg0 ai-ctrl) arg0)
          (send-event arg0 'move-trans (-> arg0 hal2-course spots 4))
          (send-event *target* 'continue (get-continue-by-name *game-info* "hal2-wall2"))
          (let* ((v1-18 (-> arg0 actor-group 0 data 1 actor))
                 (s5-1 (if v1-18
                           (-> v1-18 extra process)
                           )
                       )
                 (v1-23 (-> arg0 actor-group 0 data 3 actor))
                 (s4-0 (if v1-23
                           (-> v1-23 extra process)
                           )
                       )
                 (v1-28 (-> arg0 actor-group 0 data 2 actor))
                 (s3-0 (if v1-28
                           (-> v1-28 extra process)
                           )
                       )
                 )
            (send-event s5-1 'request 'replace-bomb)
            (send-event s5-1 'skip)
            (send-event s4-0 'skip)
            (send-event s3-0 'skip)
            )
          (logior! (-> arg0 waypoint-bits) (waypoint-bits wabits-0))
          (none)
          )
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 54
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (play-speech arg0 69)
          (let ((v1-3 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-3 bytes 5) 1)
            (set! (-> v1-3 bytes 6) 4)
            (set! (-> v1-3 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-3) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                             (a0-1 (if v1-3
                                       (-> v1-3 extra process)
                                       )
                                   )
                             )
                        (when (and a0-1 (>= (the-as int (send-event a0-1 'query 'waypoint)) 55))
                          (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                          (go-to-waypoint! arg1 55 #f)
                          (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                          #t
                          )
                        )
                      )
                    )
                  )
            )
          (none)
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 55
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-1 bytes 5) 1)
            (set! (-> v1-1 bytes 6) 4)
            (set! (-> v1-1 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-1) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (local-vars (a0-3 process))
                      (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                             (s5-0 (if v1-3
                                       (-> v1-3 extra process)
                                       )
                                   )
                             (v1-8 (-> arg1 actor-group 0 data 3 actor))
                             (s4-0 (if v1-8
                                       (-> v1-8 extra process)
                                       )
                                   )
                             (v1-13 (-> arg1 actor-group 0 data 2 actor))
                             (s3-0 (if v1-13
                                       (-> v1-13 extra process)
                                       )
                                   )
                             )
                        (if (and (not (speech-playing? arg1 70))
                                 (and (not (channel-active? arg1 (gui-channel none)))
                                      (begin (set! a0-3 s5-0) a0-3)
                                      (>= (the-as int (send-event a0-3 'query 'waypoint)) 56)
                                      )
                                 )
                            (play-speech arg1 70)
                            )
                        (let ((a0-5 s5-0))
                          (when (and (and a0-5 (>= (the-as int (send-event a0-5 'query 'waypoint)) 56))
                                     (let ((a0-7 s4-0))
                                       (and a0-7 (>= (the-as int (send-event a0-7 'query 'waypoint)) 54))
                                       )
                                     (let ((a0-9 s3-0))
                                       (and (and a0-9 (>= (the-as int (send-event a0-9 'query 'waypoint)) 54))
                                            (outside-spot-radius? (the-as bot s5-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                            (outside-spot-radius? (the-as bot s4-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                            (outside-spot-radius? (the-as bot s3-0) (the-as bot-spot #f) (the-as vector #f) #f)
                                            )
                                       )
                                     )
                            (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                            (go-to-waypoint! arg1 56 #f)
                            (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                            #t
                            )
                          )
                        )
                      )
                    )
                  )
            )
          (none)
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 56
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (logclear! (-> arg0 bot-flags) (bot-flags bf24))
          (reset-warn-time! arg0)
          (set! (-> arg0 waypoint-time0) 0)
          (let ((v1-5 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-5 bytes 5) 1)
            (set! (-> v1-5 bytes 6) 4)
            (set! (-> v1-5 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-5) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer))
                      (cond
                        ((hal-sewer-method-229 arg1)
                         (logclear! (-> arg1 bot-flags) (bot-flags bf24))
                         (reset-warn-time! arg1)
                         (when (and (not (channel-active? arg1 (gui-channel none))) (scene-play arg1 "sewer-hosehead" #f))
                           (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                           (go-to-waypoint! arg1 57 #f)
                           (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                           #t
                           )
                         )
                        (else
                          (cond
                            ((channel-active? arg1 (gui-channel none))
                             (set! (-> arg1 waypoint-time0) (+ (current-time) (seconds 9)))
                             )
                            ((>= (current-time) (-> arg1 waypoint-time0))
                             (let ((a1-8
                                     (bot-speech-list-method-9
                                       (-> arg1 hal2-course bomb2-reminders)
                                       arg1
                                       (-> arg1 hal2-course speeches)
                                       (speech-flags)
                                       )
                                     )
                                   )
                               (if (>= a1-8 0)
                                   (play-speech arg1 a1-8)
                                   (logior! (-> arg1 bot-flags) (bot-flags bf24))
                                   )
                               )
                             )
                            )
                          )
                        )
                      #f
                      )
                    )
                  )
            )
          (none)
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-force-fail-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 57
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (let ((v1-1 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
            (set! (-> v1-1 bytes 5) 1)
            (set! (-> v1-1 bytes 6) 4)
            (set! (-> v1-1 bytes 4) 0)
            (set! (-> (the-as halt-wait-spot v1-1) check-done)
                  (the-as
                    (function halt-wait-spot hal symbol)
                    (lambda ((arg0 object) (arg1 hal-sewer)) (when (scene-release? arg1)
                                                               (reset-warn-time! arg1)
                                                               (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 #f
        :check-too-far #f
        )
      (new 'static 'bot-waypoint
        :waypoint-id 58
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (reset-warn-time! arg0)
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 0)
              (set! (-> a1-0 message) 'trigger)
              (let ((t9-1 send-event-function)
                    (v1-7 (-> arg0 actor-group 0 data 31 actor))
                    )
                (t9-1
                  (if v1-7
                      (-> v1-7 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'waypoint))
              (set! (-> a1-1 param 1) (the-as uint 58))
              (let ((t9-2 send-event-function)
                    (v1-18 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-2
                  (if v1-18
                      (-> v1-18 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'waypoint))
              (set! (-> a1-2 param 1) (the-as uint 58))
              (let ((t9-3 send-event-function)
                    (v1-29 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-3
                  (if v1-29
                      (-> v1-29 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-3 from) (process->ppointer pp))
              (set! (-> a1-3 num-params) 2)
              (set! (-> a1-3 message) 'request)
              (set! (-> a1-3 param 0) (the-as uint 'waypoint))
              (set! (-> a1-3 param 1) (the-as uint 58))
              (let ((t9-4 send-event-function)
                    (v1-40 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-4
                  (if v1-40
                      (-> v1-40 extra process)
                      )
                  a1-3
                  )
                )
              )
            (set-setting! 'allow-look-around #f 0.0 0)
            (let ((v1-46 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-46 bytes 5) 1)
              (set! (-> v1-46 bytes 6) 4)
              (set! (-> v1-46 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-46) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer)) (with-pp
                                                                 (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
                                                                   (set! (-> a1-1 from) (process->ppointer pp))
                                                                   (set! (-> a1-1 num-params) 1)
                                                                   (set! (-> a1-1 message) 'query)
                                                                   (set! (-> a1-1 param 0) (the-as uint 'beaten))
                                                                   (let ((t9-0 send-event-function)
                                                                         (v1-7 (-> arg1 actor-group 0 data 31 actor))
                                                                         )
                                                                     (when (t9-0
                                                                             (if v1-7
                                                                                 (-> v1-7 extra process)
                                                                                 )
                                                                             a1-1
                                                                             )
                                                                       (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                                                                       (go-to-waypoint! arg1 59 #f)
                                                                       (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                                                                       #t
                                                                       )
                                                                     )
                                                                   )
                                                                 )
                              )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-onslaught-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 59
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (reset-warn-time! arg0)
            (remove-setting! 'allow-look-around)
            (play-speech arg0 74)
            (add-process *gui-control* arg0 (gui-channel art-load) (gui-action queue) "sewer-blow-up-statue-res" -99.0 0)
            (set-vector! (-> arg0 test-plane) -0.67 0.0 0.74 2007695.4)
            (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-3 from) (process->ppointer pp))
              (set! (-> a1-3 num-params) 2)
              (set! (-> a1-3 message) 'request)
              (set! (-> a1-3 param 0) (the-as uint 'waypoint))
              (set! (-> a1-3 param 1) (the-as uint 58))
              (let ((t9-4 send-event-function)
                    (v1-17 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-4
                  (if v1-17
                      (-> v1-17 extra process)
                      )
                  a1-3
                  )
                )
              )
            (let ((a1-4 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-4 from) (process->ppointer pp))
              (set! (-> a1-4 num-params) 2)
              (set! (-> a1-4 message) 'request)
              (set! (-> a1-4 param 0) (the-as uint 'waypoint))
              (set! (-> a1-4 param 1) (the-as uint 58))
              (let ((t9-5 send-event-function)
                    (v1-28 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-5
                  (if v1-28
                      (-> v1-28 extra process)
                      )
                  a1-4
                  )
                )
              )
            (let ((v1-32 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-32 bytes 5) 1)
              (set! (-> v1-32 bytes 6) 4)
              (set! (-> v1-32 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-32) check-done)
                    (the-as
                      (function halt-wait-spot hal symbol)
                      (lambda ((arg0 object) (arg1 hal-sewer))
                        (let* ((v1-3 (-> arg1 actor-group 0 data 1 actor))
                               (s3-0 (if v1-3
                                         (-> v1-3 extra process)
                                         )
                                     )
                               (v1-8 (-> arg1 actor-group 0 data 3 actor))
                               (s4-0 (if v1-8
                                         (-> v1-8 extra process)
                                         )
                                     )
                               (v1-13 (-> arg1 actor-group 0 data 2 actor))
                               (s5-0 (if v1-13
                                         (-> v1-13 extra process)
                                         )
                                     )
                               )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 2))
                              (send-event s5-0 'request 'waypoint 59)
                              )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 3))
                              (send-event s3-0 'request 'waypoint 59)
                              )
                          (if (time-elapsed? (-> arg1 waypoint-time0) (seconds 4))
                              (send-event s4-0 'request 'waypoint 59)
                              )
                          (when (not (channel-active? arg1 (gui-channel none)))
                            (cond
                              ((and (not (speech-playing? arg1 75)) (time-elapsed? (-> arg1 waypoint-time0) (seconds 6)))
                               (play-speech arg1 75)
                               (play-speech arg1 76)
                               )
                              (else
                                (when (and (>= (vector4-dot (-> (the-as process-focusable s3-0) root trans) (the-as vector (-> arg1 test-plane))) 0.0)
                                           (>= (vector4-dot (-> (the-as process-focusable s4-0) root trans) (the-as vector (-> arg1 test-plane))) 0.0)
                                           (>= (vector4-dot (-> (the-as process-focusable s5-0) root trans) (the-as vector (-> arg1 test-plane))) 0.0)
                                           )
                                  (let ((a0-18 *target*))
                                    (when (and a0-18
                                               (and (>= (vector4-dot (get-trans a0-18 0) (the-as vector (-> arg1 test-plane))) 0.0)
                                                    (scene-play arg1 "sewer-blow-up-statue-res" #f)
                                                    )
                                               )
                                      (ai-task-control-method-12 (-> arg1 ai-ctrl) arg1)
                                      (go-to-waypoint! arg1 67 #f)
                                      (ai-task-control-method-10 (-> arg1 ai-ctrl) arg1)
                                      #t
                                      )
                                    )
                                  )
                                )
                              )
                            )
                          )
                        (none)
                        )
                      )
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far 'hal2-default-check-too-far
        )
      (new 'static 'bot-waypoint
        :waypoint-id 67
        :nav-mesh-index -1
        :skip-to -1
        :on-set (lambda ((arg0 hal-sewer))
          (with-pp
            (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-0 from) (process->ppointer pp))
              (set! (-> a1-0 num-params) 2)
              (set! (-> a1-0 message) 'request)
              (set! (-> a1-0 param 0) (the-as uint 'health-meter))
              (set! (-> a1-0 param 1) (the-as uint #f))
              (let ((t9-0 send-event-function)
                    (v1-7 (-> arg0 actor-group 0 data 1 actor))
                    )
                (t9-0
                  (if v1-7
                      (-> v1-7 extra process)
                      )
                  a1-0
                  )
                )
              )
            (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-1 from) (process->ppointer pp))
              (set! (-> a1-1 num-params) 2)
              (set! (-> a1-1 message) 'request)
              (set! (-> a1-1 param 0) (the-as uint 'health-meter))
              (set! (-> a1-1 param 1) (the-as uint #f))
              (let ((t9-1 send-event-function)
                    (v1-17 (-> arg0 actor-group 0 data 3 actor))
                    )
                (t9-1
                  (if v1-17
                      (-> v1-17 extra process)
                      )
                  a1-1
                  )
                )
              )
            (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
              (set! (-> a1-2 from) (process->ppointer pp))
              (set! (-> a1-2 num-params) 2)
              (set! (-> a1-2 message) 'request)
              (set! (-> a1-2 param 0) (the-as uint 'health-meter))
              (set! (-> a1-2 param 1) (the-as uint #f))
              (let ((t9-2 send-event-function)
                    (v1-27 (-> arg0 actor-group 0 data 2 actor))
                    )
                (t9-2
                  (if v1-27
                      (-> v1-27 extra process)
                      )
                  a1-2
                  )
                )
              )
            (let ((v1-31 (get-task-by-type (-> arg0 ai-ctrl) halt-wait-spot arg0)))
              (set! (-> v1-31 bytes 5) 1)
              (set! (-> v1-31 bytes 6) 4)
              (set! (-> v1-31 bytes 4) 0)
              (set! (-> (the-as halt-wait-spot v1-31) check-done)
                    (the-as (function halt-wait-spot hal symbol) (lambda () #f))
                    )
              )
            (none)
            )
          )
        :on-update #f
        :on-skipping-here #f
        :check-too-far #f
        )
      )
    :speeches (new 'static 'inline-array bot-speech-info 82
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal001")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal002")
      (new 'static 'bot-speech-info :name "hal003")
      (new 'static 'bot-speech-info :slave-id 1 :name "hal120")
      (new 'static 'bot-speech-info :slave-id 2 :name "hal119")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal121")
      (new 'static 'bot-speech-info :name "hal004")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :name "hal122")
      (new 'static 'bot-speech-info :name "hal006")
      (new 'static 'bot-speech-info :slave-id 2 :name "hal123")
      (new 'static 'bot-speech-info :slave-id 1 :name "hal124")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal125")
      (new 'static 'bot-speech-info :name "hal007")
      (new 'static 'bot-speech-info :slave-id 2 :name "hal126")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 1 :name "hal127")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal008")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :name "hal009")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 1 :name "hal010")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal011")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :name "hal012")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 1 :name "hal013")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal045")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal044")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal048")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal049")
      (new 'static 'bot-speech-info :slave-id 2 :name "hal084")
      (new 'static 'bot-speech-info :slave-id 1 :name "hal030")
      (new 'static 'bot-speech-info :name "hal050")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal051")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal053")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal054")
      (new 'static 'bot-speech-info :slave-id 2 :name "hal085")
      (new 'static 'bot-speech-info :name "hal052")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 1 :name "hal031")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal055")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :name "hal128")
      (new 'static 'bot-speech-info :slave-id 1 :name "hal032")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal058")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal057")
      (new 'static 'bot-speech-info :name "hal059")
      (new 'static 'bot-speech-info :slave-id 2 :name "hal129")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal060")
      (new 'static 'bot-speech-info :hold-time #x1e0 :slave-id 1 :name "hal021")
      (new 'static 'bot-speech-info :hold-time #x1e0 :slave-id 1 :name "hal019")
      (new 'static 'bot-speech-info :hold-time #xf0 :slave-id 2 :name "hal024")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal029")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal027")
      (new 'static 'bot-speech-info :slave-id 1 :name "hal020")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :name "hal026")
      (new 'static 'bot-speech-info :name "hal061")
      (new 'static 'bot-speech-info :slave-id 1 :name "hal033")
      (new 'static 'bot-speech-info :slave-id 2 :name "hal022")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal165")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal063")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal064")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal066")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal067")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal068")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :tuning-id 1 :name "hal086")
      (new 'static 'bot-speech-info :tuning-id 1 :name "hal069")
      (new 'static 'bot-speech-info :slave-id 2 :tuning-id 1 :name "hal087")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal070")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal065")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal071")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal072")
      (new 'static 'bot-speech-info :hold-time #x5a :tuning-id 1 :name "hal073")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal047")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal046")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal074")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal182")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal094")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal108")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 1 :name "hal111")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :name "hal109")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal081")
      (new 'static 'bot-speech-info :hold-time #x96 :name "hal082")
      (new 'static 'bot-speech-info :hold-time #x5a :slave-id 2 :name "hal132")
      (new 'static 'bot-speech-info :hold-time #x12c :name "hal097")
      (new 'static 'bot-speech-info :hold-time #x2a3 :name "hal090")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal091")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal096")
      (new 'static 'bot-speech-info :hold-time #x5a :name "hal114")
      )
    :speech-tunings (new 'static 'inline-array bot-speech-tuning 2
      (new 'static 'bot-speech-tuning :fo-min 10 :fo-max 70 :fo-curve 11 :trans? #t)
      (new 'static 'bot-speech-tuning :fo-min 30 :fo-max #x96 :fo-curve 11 :trans? #t)
      )
    :dirs (new 'static 'inline-array vector 8
      (new 'static 'vector :x 1.0 :w 1.0)
      (new 'static 'vector :z -1.0 :w 1.0)
      (new 'static 'vector :x -1.0 :w 1.0)
      (new 'static 'vector :z -1.0 :w 1.0)
      (new 'static 'vector :x 0.62 :z -0.78 :w 1.0)
      (new 'static 'vector :x 0.98 :z 0.19 :w 1.0)
      (new 'static 'vector :z 1.0 :w 1.0)
      (new 'static 'vector :x 1.0 :w 1.0)
      )
    :spots (new 'static 'inline-array bot-spot 5
      (new 'static 'bot-spot :center (new 'static 'vector :x 4641423.5 :y -207175.69 :z 2093178.9 :w 4096.0))
      (new 'static 'bot-spot :center (new 'static 'vector :x 4739932.0 :y -207216.64 :z 2096578.5 :w 4096.0))
      (new 'static 'bot-spot :center (new 'static 'vector :x 4922614.0 :y -212992.0 :z 2115420.2 :w 9216.0))
      (new 'static 'bot-spot :center (new 'static 'vector :x 4707983.5 :y -256819.2 :z 1450844.1 :w 4096.0))
      (new 'static 'bot-spot :center (new 'static 'vector :x 5692252.0 :y -373432.3 :z 1996718.1 :w 4096.0))
      )
    :sentries1-reminders (new 'static 'boxed-array :type int16 56 57)
    :sentries2-reminders (new 'static 'boxed-array :type int16 63)
    :bomb2-reminders (new 'static 'bot-speech-list
      :last-local-index -1
      :speech-indexes (new 'static 'boxed-array :type int16 73 71 72)
      )
    )
  )

;; failed to figure out what this is:
(set! (-> *bot-course-table* course 5) *hal2-course*)