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

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

(define-extern task-node-reset (function symbol int))

(define-extern game-task-node->string (function game-task-node string))

(defenum game-task-actor
  :bitfield #f
  :type uint8
  (none 0)
  (minimap 1)
  (torn-hideout 2)
  (torn-alley 3)
  (kor-alley 4)
  (kor-vinroom 5)
  (kor-tomb 6)
  (krew-hiphog 7)
  (sig-hiphog 8)
  (sig-atoll 9)
  (keira-garage 10)
  (vin-vinroom 11)
  (ashelin-atoll 12)
  (ashelin-market 13)
  (onin-onintent 14)
  (pecker-onintent 15)
  (baron-palace 16)
  (baron-tomb 17)
  (youngsamos-hideout 18)
  (youngsamos-tomb 19)
  (brutter-kiosk 20)
  (kid-tomb 21)
  (youngsamos-alley 22)
  (kid-alley 23)
  (crocadog-alley 24)
  (crocadog-tomb 25)
  (youngsamos-forest 26)
  (ashelin-throne 27)
  (baron-castle 28)
  (tess-alley 29)
  (youngsamos-onintent 30)
  (samos-hideout 31)
  (burning-bush-slumb 32)
  (burning-bush-gena 33)
  (burning-bush-genc 34)
  (tess-hiphog 35)
  (keira-stadium 36)
  (kor-consite 37)
  (kor-onintent 38)
  (oracle-oracle 39)
  (daxter-tomb 40)
  (burning-bush-marka 41)
  (burning-bush-sluma 42)
  (burning-bush-slumb-2 43)
  (burning-bush-slumc 44)
  (burning-bush-farma 45)
  (burning-bush-farmb 46)
  (burning-bush-markb 47)
  (burning-bush-markb-2 48)
  (burning-bush-gena-2 49)
  (burning-bush-genb 50)
  (burning-bush-genc-2 51)
  (burning-bush-inda 52)
  (burning-bush-indb 53)
  (burning-bush-port 54)
  (burning-bush-port-2 55)
  (burning-bush-port-3 56)
  (burning-bush-pal 57)
  (burning-bush-stadium 58)
  (burning-bush-pal-2 59)
  (burning-bush-genb-2 60)
  (kor-hideout 61)
  (kid-hideout 62)
  (kid-vinroom 63)
  (crocadog-vinroom 64)
  (samos-garage 65)
  (baron-consite 66)
  (whack-a-metal-hiphog 67)
  )

(defenum game-task-action
  :bitfield #f
  :type uint8
  (hide 0)
  (idle 1)
  (say  2)
  (talk 3)
  (show 4)
  (trade 5)
  (play 6)
  (menu 7)
  )

(defenum game-task-flags
  :bitfield #t
  :type uint8
  (gatflag-00)
  (gatflag-01)
  (gatflag-02)
  )

(defenum game-task-icon
  :type uint8
  (gaticon-00)
  (gaticon-01)
  (gaticon-02)
  (gaticon-03)
  (gaticon-04)
  (gaticon-05)
  (gaticon-06)
  (gaticon-07)
  (gaticon-08)
  (gaticon-09)
  (gaticon-10)
  (gaticon-11)
  (gaticon-12)
  (gaticon-13)
  (gaticon-14)
  (gaticon-15)
  (gaticon-16)
  (gaticon-17)
  (gaticon-18)
  (gaticon-19)
  (gaticon-20)
  (gaticon-21)
  (gaticon-22)
  (gaticon-23)
  (gaticon-24)
  (gaticon-25)
  (gaticon-26)
  (gaticon-27)
  (gaticon-28)
  (gaticon-29)
  (gaticon-30)
  (gaticon-31)
  (gaticon-32)
  (gaticon-33)
  (gaticon-34)
  (gaticon-35)
  (gaticon-36)
  (gaticon-37)
  (gaticon-38)
  (gaticon-39)
  (gaticon-40)
  (gaticon-41)
  (gaticon-42)
  (gaticon-43)
  (gaticon-44)
  (gaticon-45)
  (gaticon-46)
  (gaticon-47)
  (gaticon-48)
  (gaticon-49)
  (gaticon-50)
  (gaticon-51)
  (gaticon-52)
  (gaticon-53)
  (gaticon-54)
  (gaticon-55)
  (gaticon-56)
  (gaticon-57)
  (gaticon-58)
  (gaticon-59)
  (gaticon-60)
  (gaticon-61)
  (gaticon-62)
  (gaticon-63)
  (gaticon-64)
  (gaticon-65)
  (gaticon-66)
  (gaticon-67)
  (gaticon-68)
  (gaticon-69)
  )

(defenum task-manager-mask
  :type uint32
  :bitfield #t
  (intro-scene 0) ;; 1
  (resolution-scene 1) ;; 2
  (begin-sphere 2) ;; 4
  (end-sphere   3) ;; 8
  (fail-message 4) ;; 16
  (retry-message 5) ;; 32
  )

(defenum game-task-node-flag
  :type uint32 ;; guess
  :bitfield #t

  (closed            0) ;; 1
  (auto-close        1) ;; 2
  (data              2) ;; 4
  (close-task        3) ;; 8
  (save-on-life      4) ;; 16
  (save-on-try       5) ;; 32
  (abs-task-mask     6) ;; 64
  (set-task-mask     7) ;; 128
  (clear-task-mask   8) ;; 256
  (task-retry        9) ;; 512
  (exclusive        10) ;; 1024
  (intro-wait       11) ;; 2048
  (city-wait        12) ;; 4096
  (reset-on-try     13) ;; 8192
  (task-manager     14) ;; 16384
  (no-fail-on-death 15) ;; 32768
  (no-restart       16) ;; 1
  (no-audio         17) ;; 2
  (no-slow-down     18) ;; #4 high
  (utility-node     19) ;; #x8 high
  )

(defenum game-task-node-command
  :type uint8 ;; guess
  :bitfield #f
  (none 0)
  (add-sidekick 1)
  (sub-sidekick 2)
  (add-board 3)
  (sub-board 4)
  (add-gun-red 5)
  (add-gun-yellow 6)
  (add-gun-blue 7)
  (add-gun-dark 8)
  (add-gun-up-1 9)
  (add-gun-up-2 10)
  (add-gun-up-3 11)
  (add-gun-up-4 12)
  (add-pass-red 13)
  (add-pass-green 14)
  (add-pass-yellow 15)
  (add-pass-blue 16)
  (add-darkjak 17)
  (add-darkjak-0 18)
  (add-darkjak-1 19)
  (add-darkjak-2 20)
  (add-darkjak-3 21)
  (add-board-training 22)
  )

;; NOTE - for settings
(define-extern update-task-masks (function symbol int))

;; NOTE - for default-menu
(define-extern task-node-open! (function game-task-node int))
(define-extern task-node-close! (function game-task-node int))
(define-extern task-node-open? (function game-task-node symbol))
(define-extern play-task (function game-task symbol symbol string))

;; NOTE - for progress
(define-extern restart-mission (function int))

(declare-type task-manager process)
(declare-type game-task-node-info basic)
(define-extern task-manager-init-by-other (function game-task-node-info symbol object :behavior task-manager))

(declare-type traffic-engine basic)

;; DECOMP BEGINS

;; og:preserve-this no longer a debug function
(defun game-task->string ((arg0 game-task))
  (enum->string game-task arg0)
  )

;; WARN: Return type mismatch int vs game-task.
(defun c-string->game-task ((arg0 string))
  (the-as game-task (cond
                      ((string= arg0 "GAME_TASK_FOREST_PROTECT")
                       60
                       )
                      ((string= arg0 "GAME_TASK_STRIP_DROP")
                       58
                       )
                      ((string= arg0 "GAME_TASK_FORTRESS_DUMP")
                       11
                       )
                      ((string= arg0 "GAME_TASK_RUINS_TOWER")
                       9
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_RACE_ERROL")
                       101
                       )
                      ((string= arg0 "GAME_TASK_CANYON_INSERT_ITEMS")
                       48
                       )
                      ((string= arg0 "GAME_TASK_CITY_WIN")
                       75
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_5")
                       85
                       )
                      ((string= arg0 "GAME_TASK_TOMB_WATER")
                       50
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_RACE_CLASS3")
                       43
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_RING_2")
                       84
                       )
                      ((string= arg0 "GAME_TASK_ECO_BLUE_BUTTON")
                       3
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BURNING_BUSH_RACE_CLASS1_R")
                       109
                       )
                      ((string= arg0 "GAME_TASK_RUINS_ENEMY")
                       31
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_SHUTTLE_1")
                       87
                       )
                      ((string= arg0 "GAME_TASK_ECO_RED_BUTTON")
                       5
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_RING_1")
                       77
                       )
                      ((string= arg0 "GAME_TASK_CITY_KREW_DELIVERY")
                       12
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BURNING_BUSH_RACE_CLASS3_R")
                       107
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BURNING_BUSH_RACE_CLASS3")
                       104
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_15")
                       99
                       )
                      ((string= arg0 "GAME_TASK_CITY_HELP_KID")
                       7
                       )
                      ((string= arg0 "GAME_TASK_UNDER_MECH")
                       68
                       )
                      ((string= arg0 "GAME_TASK_CITY_ESCORT_KID")
                       34
                       )
                      ((string= arg0 "GAME_TASK_MOUNTAIN_GEAR")
                       19
                       )
                      ((string= arg0 "GAME_TASK_MAX")
                       110
                       )
                      ((string= arg0 "GAME_TASK_CITY_DEFEND_STADIUM")
                       70
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_12")
                       95
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_BOMBBOT_1")
                       96
                       )
                      ((string= arg0 "GAME_TASK_DRILL_SHIP")
                       37
                       )
                      ((string= arg0 "GAME_TASK_CITY_YELLOW_GUN_TRAINING")
                       25
                       )
                      ((string= arg0 "GAME_TASK_SEWER_ENEMY")
                       15
                       )
                      ((string= arg0 "GAME_TASK_PALACE_CABLE")
                       28
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_10")
                       92
                       )
                      ((string= arg0 "GAME_TASK_CASTLE_BREAK_IN")
                       65
                       )
                      ((string= arg0 "GAME_TASK_TOMB_POLES")
                       49
                       )
                      ((string= arg0 "GAME_TASK_CITY_VEHICLE_TRAINING")
                       8
                       )
                      ((string= arg0 "GAME_TASK_SEWER_ESCORT")
                       53
                       )
                      ((string= arg0 "GAME_TASK_CITY_ERROL_CHALLENGE")
                       57
                       )
                      ((string= arg0 "GAME_TASK_STRIP_GRENADE")
                       36
                       )
                      ((string= arg0 "GAME_TASK_ATOLL_SIG")
                       14
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BURNING_BUSH_RACE_CLASS1")
                       106
                       )
                      ((string= arg0 "GAME_TASK_NEST_BOSS")
                       74
                       )
                      ((string= arg0 "GAME_TASK_FOREST_HUNT")
                       41
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_RACE_CLASS2")
                       55
                       )
                      ((string= arg0 "GAME_TASK_CITY_PLAY_ONIN_GAME")
                       47
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_COLLECTION_2")
                       91
                       )
                      ((string= arg0 "GAME_TASK_NONE")
                       0
                       )
                      ((string= arg0 "GAME_TASK_ECO_YELLOW_BUTTON")
                       4
                       )
                      ((string= arg0 "GAME_TASK_DRILL_EGGS")
                       26
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_2")
                       79
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_RACEPOINT_1")
                       83
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_11")
                       93
                       )
                      ((string= arg0 "GAME_TASK_UNDER_SIG")
                       69
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BURNING_BUSH_RACE_CLASS2")
                       105
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BURNING_BUSH_RACE_BOARD")
                       103
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_RACE_PORT")
                       102
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_7")
                       88
                       )
                      ((string= arg0 "GAME_TASK_ATOLL_BATTLE")
                       17
                       )
                      ((string= arg0 "GAME_TASK_DRILL_MECH")
                       61
                       )
                      ((string= arg0 "GAME_TASK_RUINS_MECH")
                       59
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_13")
                       97
                       )
                      ((string= arg0 "GAME_TASK_CITY_DESTROY_GUARD_VEHICLES")
                       46
                       )
                      ((string= arg0 "GAME_TASK_TOMB_BOSS")
                       51
                       )
                      ((string= arg0 "GAME_TASK_DUMMY0")
                       2
                       )
                      ((string= arg0 "GAME_TASK_DIG_FIND_TOTEM")
                       45
                       )
                      ((string= arg0 "GAME_TASK_DIG_KNOCK_DOWN")
                       35
                       )
                      ((string= arg0 "GAME_TASK_CITY_PROTECT_WATER_SLUMS")
                       44
                       )
                      ((string= arg0 "GAME_TASK_CITY_WHACK")
                       67
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_RING_3")
                       94
                       )
                      ((string= arg0 "GAME_TASK_CITY_SHUTTLE")
                       30
                       )
                      ((string= arg0 "GAME_TASK_FORTRESS_SAVE_FRIENDS")
                       52
                       )
                      ((string= arg0 "GAME_TASK_CITY_INTERCEPT_TANKER")
                       42
                       )
                      ((string= arg0 "GAME_TASK_FOREST_SCOUTS")
                       33
                       )
                      ((string= arg0 "GAME_TASK_NEST_GET_TO_GUN")
                       72
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_RACE_CLASS1")
                       63
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BURNING_BUSH_RACE_CLASS2_R")
                       108
                       )
                      ((string= arg0 "GAME_TASK_PALACE_SNEAK_IN")
                       64
                       )
                      ((string= arg0 "GAME_TASK_STRIP_RESCUE")
                       16
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_1")
                       78
                       )
                      ((string= arg0 "GAME_TASK_CONSITE_FIND_BARON")
                       71
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_3")
                       80
                       )
                      ((string= arg0 "GAME_TASK_STADIUM_BOARD1")
                       23
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_4")
                       81
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_COLLECTION_3")
                       100
                       )
                      ((string= arg0 "GAME_TASK_CITY_PORT_RUN")
                       38
                       )
                      ((string= arg0 "GAME_TASK_SEWER_BOARD")
                       40
                       )
                      ((string= arg0 "GAME_TASK_CITY_DARK_GUN_TRAINING")
                       54
                       )
                      ((string= arg0 "GAME_TASK_CITY_ORACLE")
                       76
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_COLLECTION_1")
                       82
                       )
                      ((string= arg0 "GAME_TASK_CITY_KEIRA_DELIVERY")
                       22
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_6")
                       86
                       )
                      ((string= arg0 "GAME_TASK_MOUNTAIN_LENS")
                       18
                       )
                      ((string= arg0 "GAME_TASK_ATOLL_WATER")
                       10
                       )
                      ((string= arg0 "GAME_TASK_CITY_STOP_BOMB_BOTS")
                       56
                       )
                      ((string= arg0 "GAME_TASK_MOUNTAIN_COLLECTION")
                       21
                       )
                      ((string= arg0 "GAME_TASK_NEST_ENTER")
                       73
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_9")
                       90
                       )
                      ((string= arg0 "GAME_TASK_MOUNTAIN_SHARD")
                       20
                       )
                      ((string= arg0 "GAME_TASK_CITY_POWER")
                       27
                       )
                      ((string= arg0 "GAME_TASK_COMPLETE")
                       1
                       )
                      ((string= arg0 "GAME_TASK_PALACE_BOSS")
                       29
                       )
                      ((string= arg0 "GAME_TASK_CASTLE_BOSS")
                       66
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_8")
                       89
                       )
                      ((string= arg0 "GAME_TASK_CITY_BLUE_GUN_TRAINING")
                       32
                       )
                      ((string= arg0 "GAME_TASK_FORTRESS_ESCAPE")
                       6
                       )
                      ((string= arg0 "GAME_TASK_CITY_RED_GUN_TRAINING")
                       13
                       )
                      ((string= arg0 "GAME_TASK_CITY_SAVE_LURKERS")
                       62
                       )
                      ((string= arg0 "GAME_TASK_CITY_KREW_COLLECTION")
                       24
                       )
                      ((string= arg0 "GAME_TASK_CITY_BURNING_BUSH_GET_TO_14")
                       98
                       )
                      ((string= arg0 "GAME_TASK_CITY_MEET_BRUTTER")
                       39
                       )
                      (else
                        -1
                        )
                      )
          )
  )

(defun-debug game-task-actor->string ((arg0 game-task-actor))
  (enum->string game-task-actor arg0)
  )

(defun-debug game-task-action->string ((arg0 game-task-action))
  (enum->string game-task-action arg0)
  )

(deftype game-task-event (basic)
  ((actor     game-task-actor)
   (action    game-task-action)
   (tex       game-task-icon)
   (icon      uint16           :overlay-at tex)
   (flags     game-task-flags  :offset   7)
   (scene     basic            :offset   8)
   (distance  meters)
   )
  )

;; og:preserve-this the decompiler uses these!
(defconstant TASK_MANAGER_INIT_HOOK 0)
(defconstant TASK_MANAGER_CLEANUP_HOOK 1)
(defconstant TASK_MANAGER_UPDATE_HOOK 2)
(defconstant TASK_MANAGER_CODE_HOOK 3)
(defconstant TASK_MANAGER_COMPLETE_HOOK 4)
(defconstant TASK_MANAGER_FAIL_HOOK 5)
(defconstant TASK_MANAGER_EVENT_HOOK 6)

(deftype task-manager-info (structure)
  ((mask                       task-manager-mask)
   (level                      symbol)
   (manager                    handle)
   (fail-message               text-id)
   (retry-message              text-id)
   (intro-scene                string)
   (resolution-scene           string)
   (resolution-scene-continue  string)
   (retry-continue             string)
   (fail-continue              string)
   (init-hook                  (function object))
   (cleanup-hook               (function object))
   (update-hook                (function object))
   (code-hook                  (function object))
   (complete-hook              (function object))
   (fail-hook                  (function object))
   (event-hook                 (function process int symbol event-message-block object))
   (hooks                      function  7 :overlay-at init-hook)
   (final-node                 game-task-node)
   (time-limit                 int32)
   (sphere-count               int8)
   (index                      int8)
   (intro-delay                uint16)
   (sphere-array               uint32)
   (on-complete                pair)
   (on-fail                    pair)
   (begin-sphere               sphere    :inline)
   (end-sphere                 sphere    :inline)
   )
  )


(defun-debug game-task-node-flag->string ((arg0 game-task-node-flag))
  (if (= (logand arg0 (game-task-node-flag clear-task-mask)) (game-task-node-flag clear-task-mask))
      (format #t "clear-task-mask ")
      )
  (if (= (logand arg0 (game-task-node-flag city-wait)) (game-task-node-flag city-wait))
      (format #t "city-wait ")
      )
  (if (= (logand arg0 (game-task-node-flag intro-wait)) (game-task-node-flag intro-wait))
      (format #t "intro-wait ")
      )
  (if (= (logand arg0 (game-task-node-flag task-manager)) (game-task-node-flag task-manager))
      (format #t "task-manager ")
      )
  (if (= (logand arg0 (game-task-node-flag task-retry)) (game-task-node-flag task-retry))
      (format #t "task-retry ")
      )
  (if (= (logand arg0 (game-task-node-flag reset-on-try)) (game-task-node-flag reset-on-try))
      (format #t "reset-on-try ")
      )
  (if (= (logand arg0 (game-task-node-flag exclusive)) (game-task-node-flag exclusive))
      (format #t "exclusive ")
      )
  (if (= (logand (game-task-node-flag utility-node) arg0) (game-task-node-flag utility-node))
      (format #t "utility-node ")
      )
  (if (= (logand arg0 (game-task-node-flag set-task-mask)) (game-task-node-flag set-task-mask))
      (format #t "set-task-mask ")
      )
  (if (= (logand arg0 (game-task-node-flag closed)) (game-task-node-flag closed))
      (format #t "closed ")
      )
  (if (= (logand arg0 (game-task-node-flag no-fail-on-death)) (game-task-node-flag no-fail-on-death))
      (format #t "no-fail-on-death ")
      )
  (if (= (logand arg0 (game-task-node-flag data)) (game-task-node-flag data))
      (format #t "data ")
      )
  (if (= (logand arg0 (game-task-node-flag save-on-life)) (game-task-node-flag save-on-life))
      (format #t "save-on-life ")
      )
  (if (= (logand arg0 (game-task-node-flag close-task)) (game-task-node-flag close-task))
      (format #t "close-task ")
      )
  (if (= (logand arg0 (game-task-node-flag save-on-try)) (game-task-node-flag save-on-try))
      (format #t "save-on-try ")
      )
  (if (= (logand arg0 (game-task-node-flag auto-close)) (game-task-node-flag auto-close))
      (format #t "auto-close ")
      )
  (if (= (logand (game-task-node-flag no-slow-down) arg0) (game-task-node-flag no-slow-down))
      (format #t "no-slow-down ")
      )
  (if (= (logand arg0 (game-task-node-flag abs-task-mask)) (game-task-node-flag abs-task-mask))
      (format #t "abs-task-mask ")
      )
  (if (= (logand (game-task-node-flag no-restart) arg0) (game-task-node-flag no-restart))
      (format #t "no-restart ")
      )
  (if (= (logand (game-task-node-flag no-audio) arg0) (game-task-node-flag no-audio))
      (format #t "no-audio ")
      )
  )

(defun-debug game-task-node-command->string ((arg0 game-task-node-command))
  (case arg0
    (((game-task-node-command add-gun-up-1))
     "add-gun-up-1"
     )
    (((game-task-node-command add-darkjak-1))
     "add-darkjak-1"
     )
    (((game-task-node-command add-pass-yellow))
     "add-pass-yellow"
     )
    (((game-task-node-command add-pass-red))
     "add-pass-red"
     )
    (((game-task-node-command sub-board))
     "sub-board"
     )
    (((game-task-node-command add-board))
     "add-board"
     )
    (((game-task-node-command add-darkjak))
     "add-darkjak"
     )
    (((game-task-node-command add-darkjak-2))
     "add-darkjak-2"
     )
    (((game-task-node-command add-gun-up-3))
     "add-gun-up-3"
     )
    (((game-task-node-command add-gun-up-2))
     "add-gun-up-2"
     )
    (((game-task-node-command add-darkjak-3))
     "add-darkjak-3"
     )
    (((game-task-node-command add-darkjak-0))
     "add-darkjak-0"
     )
    (((game-task-node-command add-gun-blue))
     "add-gun-blue"
     )
    (((game-task-node-command add-gun-yellow))
     "add-gun-yellow"
     )
    (((game-task-node-command none))
     "none"
     )
    (((game-task-node-command add-gun-dark))
     "add-gun-dark"
     )
    (((game-task-node-command add-pass-green))
     "add-pass-green"
     )
    (((game-task-node-command add-board-training))
     "add-board-training"
     )
    (((game-task-node-command add-gun-up-4))
     "add-gun-up-4"
     )
    (((game-task-node-command add-gun-red))
     "add-gun-red"
     )
    (((game-task-node-command add-pass-blue))
     "add-pass-blue"
     )
    (((game-task-node-command sub-sidekick))
     "sub-sidekick"
     )
    (((game-task-node-command add-sidekick))
     "add-sidekick"
     )
    (else
      "*unknown*"
      )
    )
  )

(deftype game-task-node-info (basic)
  ((level             symbol)
   (task              game-task)
   (name              string)
   (when-open         (array game-task-event))
   (flags             game-task-node-flag)
   (parent-node       game-task-node  4)
   (task-mask         task-mask)
   (on-open           pair)
   (info              task-manager-info)
   (borrow            pair)
   (open?             (function game-task-node-info symbol))
   (on-close          pair)
   (close-time        time-frame)
   (death-count       uint16)
   (gem-count         uint16)
   (skill-count       uint16)
   (suck-death-count  uint8)
   (add               game-task-node-command)
   (description       text-id)
   )
  (:methods
    (close! (_type_ symbol) int)
    (open! (_type_ symbol) int)
    (open? (_type_) symbol)
    (copy-hooks! (_type_ game-task-node-info) game-task-node-info)
    (eval-add (_type_) int)
    )
  )


(deftype game-task-info (basic)
  ((name                 string)
   (text-name            text-id)
   (pre-play-node        game-task-node)
   (kiosk-play-node      game-task-node)
   (pre-play-continue    string)
   (play-node            game-task-node)
   (play-continue        string)
   (kiosk-play-continue  string)
   )
  )


(deftype game-task-control (basic)
  ((counter        uint32)
   (actor          game-task-actor)
   (current-node   game-task-node)
   (current-event  game-task-event)
   )
  (:methods
    (new (symbol type game-task-actor) _type_)
    (get-current-task-event (_type_) game-task-event)
    )
  )


(deftype task-manager (process)
  ((node-info       game-task-node-info)
   (info            task-manager-info)
   (lev-name        symbol)
   (fail-on-death?  symbol)
   (fail-now        symbol)
   (retry-now       symbol)
   (allow-fail      symbol)
   (state-time      time-frame)
   (count           int16)
   (max-count       int16)
   (sub-state       uint32)
   (slave           handle                  32)
   (arrow           handle)
   (link            uint32)
   (start-time      time-frame)
   (total-time      time-frame)
   (beep-time       time-frame)
   (time-limit      time-frame)
   (begin-pos       vector                  :inline)
   (end-pos         vector                  :inline)
   (data-int8       int8                    32)
   (data-int32      int32                   32)
   (data-float      float                   32)
   (data-vector     vector                  32 :inline)
   (actor-group     (pointer entity-actor)  4)
   (minimap         connection-minimap      8)
   (hud             handle                  4)
   (hud-timer       handle                  :overlay-at (-> hud 0))
   (hud-counter     handle                  :overlay-at (-> hud 1))
   (sound-id        sound-id                4)
   (intro-time      time-frame)
   )
  (:state-methods
    wait
    active
    complete
    fail
    retry
    )
  (:methods
    (initialize! (_type_) int)
    (kill-all-children (_type_) int)
    (check-time (_type_) int)
    (task-manager-method-22 (_type_) symbol)
    )
  )


(deftype ambient-control (structure)
  ((last-ambient-time  time-frame)
   (last-ambient       string)
   (last-ambient-id    sound-id)
   )
  (:methods
    (dummy-9 () none)
    (dummy-10 () none)
    (dummy-11 () none)
    )
  )


(define *traffic-engine* (the-as traffic-engine #f))