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

;; name: ctywide-speech.gc
;; name in dgo: ctywide-speech
;; dgos: CWI

;; DECOMP BEGINS

(defun restore-city-speeches ()
  (speech-table-set!
    *speech-control*
    (speech-type guard-generic-battle)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next)
      :priority 3
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 2)
      :min-delay (seconds 15)
      :max-delay (seconds 25)
      :list (new 'static 'boxed-array :type string
        "grds109a"
        "grds111a"
        "grds112a"
        "grds113a"
        "grds114a"
        "grds115a"
        "grds116a"
        "grds121a"
        "grds124a"
        "grds133a"
        "grds144a"
        "grds126a"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-battle-victory)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next)
      :priority 6
      :request-timeout (seconds 0.5)
      :min-delay (seconds 3)
      :max-delay (seconds 5)
      :list (new 'static 'boxed-array :type string
        "grds127a"
        "grds129a"
        "grds128a"
        "grds151a"
        "grds152a"
        "grds153a"
        "grds157a"
        "grds155a"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-change-targets)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next skip-first-time)
      :priority 4
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 1.5)
      :min-delay (seconds 10)
      :max-delay (seconds 20)
      :list (new 'static 'boxed-array :type string "grds141a" "grds146a" "grds142a" "grds143a" "grds147a" "grds120a")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-go-hostile)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next)
      :priority 5
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 1.5)
      :min-delay (seconds 20)
      :max-delay (seconds 40)
      :list (new 'static 'boxed-array :type string
        "grds144a"
        "grds122a"
        "grds104a"
        "grds145a"
        "grds126a"
        "grds130a"
        "grds164a"
        "grds163a"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-hit)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next)
      :priority 6
      :request-timeout (seconds 0.1)
      :min-delay (seconds 10)
      :max-delay (seconds 15)
      :list (new 'static 'boxed-array :type string "grds134a" "grds135a" "grds136a" "grds137a" "grds138a")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-witness-death)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next skip-first-time)
      :priority 6
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 2)
      :min-delay (seconds 10)
      :max-delay (seconds 15)
      :list (new 'static 'boxed-array :type string "grds148a" "grds149a" "grds187a" "grds117a")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-chatter)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next)
      :priority 1
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 3)
      :min-delay (seconds 30)
      :max-delay (seconds 60)
      :list (new 'static 'boxed-array :type string
        "grds181a"
        "grds171a"
        "grds172a"
        "grds173a"
        "grds174a"
        "grds165a"
        "grds158a"
        "grds162a"
        "grds183a"
        "grds161a"
        "grds182a"
        "grds160a"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-chatter-jak)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next)
      :priority 2
      :request-timeout (seconds 0.3)
      :min-delay (seconds 30)
      :max-delay (seconds 60)
      :list (new 'static 'boxed-array :type string "grds180a" "grds186a" "grds176a" "grds175a" "grds177a" "grds184a")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-bumped-by-jak)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order linked-next skip-first-time)
      :priority 5
      :request-timeout (seconds 1)
      :min-delay (seconds 3)
      :max-delay (seconds 6)
      :list (new 'static 'boxed-array :type string "grds167a" "grds168a" "grds169a" "grds170a" "grds179a")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-generic-battle-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 3
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 2)
      :min-delay (seconds 15)
      :max-delay (seconds 25)
      :list (new 'static 'boxed-array :type string
        "grds109b"
        "grds111b"
        "grds112b"
        "grds113b"
        "grds114b"
        "grds115b"
        "grds116b"
        "grds121b"
        "grds124b"
        "grds133b"
        "grds144b"
        "grds126b"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-battle-victory-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 6
      :request-timeout (seconds 0.5)
      :min-delay (seconds 3)
      :max-delay (seconds 5)
      :list (new 'static 'boxed-array :type string
        "grds127b"
        "grds129b"
        "grds128b"
        "grds151b"
        "grds152b"
        "grds153b"
        "grds157b"
        "grds155b"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-change-targets-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order skip-first-time)
      :priority 4
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 1.5)
      :min-delay (seconds 10)
      :max-delay (seconds 20)
      :list (new 'static 'boxed-array :type string "grds141b" "grds146b" "grds142b" "grds143b" "grds147b" "grds120b")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-go-hostile-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 5
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 1.5)
      :min-delay (seconds 20)
      :max-delay (seconds 40)
      :list (new 'static 'boxed-array :type string
        "grds144b"
        "grds122b"
        "grds104b"
        "grds145b"
        "grds126b"
        "grds130b"
        "grds164b"
        "grds163b"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-hit-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 6
      :request-timeout (seconds 0.1)
      :min-delay (seconds 10)
      :max-delay (seconds 15)
      :list (new 'static 'boxed-array :type string "grds134b" "grds135b" "grds136b" "grds137b" "grds138b")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-witness-death-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 6
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 2)
      :min-delay (seconds 10)
      :max-delay (seconds 15)
      :list (new 'static 'boxed-array :type string "grds148b" "grds149b" "grds187b" "grds117b")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-chatter-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 1
      :delay-pre-time (seconds 1)
      :request-timeout (seconds 3)
      :min-delay (seconds 30)
      :max-delay (seconds 60)
      :list (new 'static 'boxed-array :type string
        "grds181b"
        "grds171b"
        "grds172b"
        "grds173b"
        "grds174b"
        "grds165b"
        "grds158b"
        "grds162b"
        "grds183b"
        "grds161b"
        "grds182b"
        "grds160b"
        )
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-chatter-jak-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 2
      :request-timeout (seconds 0.3)
      :min-delay (seconds 30)
      :max-delay (seconds 60)
      :list (new 'static 'boxed-array :type string "grds180b" "grds186b" "grds176b" "grds175b" "grds177b" "grds184b")
      )
    )
  (speech-table-set!
    *speech-control*
    (speech-type guard-bumped-by-jak-b)
    (new 'static 'speech-type-info
      :flags (speech-type-flag random-order)
      :priority 5
      :request-timeout (seconds 1)
      :min-delay (seconds 3)
      :max-delay (seconds 6)
      :list (new 'static 'boxed-array :type string "grds167b" "grds168b" "grds169b" "grds170b" "grds179b")
      )
    )
  (speech-control-method-17 *speech-control* (speech-type guard-chatter) 0.5)
  (speech-control-method-17 *speech-control* (speech-type guard-witness-death) 1.0)
  0
  (none)
  )
