jak-project/goal_src/jakx/engine/game/task/task-control-h.gc

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

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

;; DECOMP BEGINS

(defun-debug game-task->string ((arg0 game-task))
  (case arg0
    (((game-task canspar-timetrial))
     "canspar-timetrial"
     )
    (((game-task havjung-rushhour))
     "havjung-rushhour"
     )
    (((game-task dockkra-rushhour))
     "dockkra-rushhour"
     )
    (((game-task canspar-deathrace))
     "canspar-deathrace"
     )
    (((game-task havjung-deathrace))
     "havjung-deathrace"
     )
    (((game-task coliseum-king-of-hill))
     "coliseum-king-of-hill"
     )
    (((game-task desisle-hunt))
     "desisle-hunt"
     )
    (((game-task ice-football))
     "havsew-rushhour"
     )
    (((game-task coliseum-assassin))
     "coliseum-assassin"
     )
    (((game-task coliseum-artifact))
     "coliseum-artifact"
     )
    (((game-task havtour-race))
     "havtour-race"
     )
    (((game-task kras-training))
     "kras-training"
     )
    (((game-task drome-race))
     "drome-race"
     )
    (((game-task spartem-race))
     "spartem-race"
     )
    (((game-task peak-rushhour))
     "peak-rushhour"
     )
    (((game-task drome-deathrace))
     "drome-deathrace"
     )
    (((game-task none))
     "none"
     )
    (((game-task snobowl-assassin))
     "snobowl-assassin"
     )
    (((game-task dromdoc-timetrial))
     "dromdoc-timetrial"
     )
    (((game-task havsew-timetrial))
     "havsew-timetrial"
     )
    (((game-task kcross-ctf))
     "kcross-ctf"
     )
    (((game-task kras-football))
     "kras-football"
     )
    (((game-task desarena-deathmatch))
     "desarena-deathmatch"
     )
    (((game-task drome-timetrial))
     "drome-timetrial"
     )
    (((game-task iceberg-football))
     "iceberg-football"
     )
    (((game-task docks-deathrace))
     "docks-deathrace"
     )
    (((game-task atoll-assassin))
     "atoll-assassin"
     )
    (((game-task canyon-deathrace))
     "canyon-deathrace"
     )
    (((game-task havjung-race))
     "havjung-race"
     )
    (((game-task docks-race))
     "docks-race"
     )
    (((game-task kras-race))
     "kras-race"
     )
    (((game-task docks-timetrial))
     "docks-timetrial"
     )
    (((game-task icepass-timetrial))
     "icepass-timetrial"
     )
    (((game-task dummy0))
     "dummy0"
     )
    (((game-task snobowl-deathmatch))
     "snobowl-deathmatch"
     )
    (((game-task eco-blue-button))
     "eco-blue-button"
     )
    (((game-task snow-football))
     "snow-football"
     )
    (((game-task jungle-rushhour))
     "jungle-rushhour"
     )
    (((game-task havsew-rushhour))
     "canspar-football"
     )
    (((game-task havsew-timebox))
     "havsew-timebox"
     )
    (((game-task snobowl-artifact))
     "snobowl-artifact"
     )
    (((game-task icetour-timetrial))
     "icetour-timetrial"
     )
    (((game-task drome-timebox))
     "drome-timebox"
     )
    (((game-task temple-rushhour))
     "temple-rushhour"
     )
    (((game-task snow-race))
     "snow-race"
     )
    (((game-task canspar-football))
     "dromdoc-timebox"
     )
    (((game-task peak-timebox))
     "peak-timebox"
     )
    (((game-task sewer-deathrace))
     "sewer-deathrace"
     )
    (((game-task desarena-king-of-hill))
     "desarena-king-of-hill"
     )
    (((game-task iceberg-rushhour))
     "iceberg-rushhour"
     )
    (((game-task jungle-deathrace))
     "jungle-deathrace"
     )
    (((game-task complete))
     "complete"
     )
    (((game-task iceberg-deathrace))
     "iceberg-deathrace"
     )
    (((game-task desarena-assassin))
     "desarena-assassin"
     )
    (((game-task peak-deathrace))
     "peak-deathrace"
     )
    (((game-task sewer-race))
     "sewer-race"
     )
    (((game-task sewer-timetrial))
     "sewer-timetrial"
     )
    (((game-task docks-timebox))
     "docks-timebox"
     )
    (((game-task temple-deathrace))
     "temple-deathrace"
     )
    (((game-task temple-timetrial))
     "temple-timetrial"
     )
    (((game-task icepass-timebox))
     "icepass-timebox"
     )
    (((game-task atoll-artifact))
     "atoll-artifact"
     )
    (((game-task cliffs-ctf))
     "cliffs-ctf"
     )
    (((game-task havjung-timetrial))
     "havjung-timetrial"
     )
    (((game-task spatour-timetrial))
     "spatour-timetrial"
     )
    (((game-task kcross-assassin))
     "kcross-assassin"
     )
    (((game-task haven-deathrace))
     "haven-deathrace"
     )
    (((game-task dockkra-deathrace))
     "dockkra-deathrace"
     )
    (((game-task coliseum-ctf))
     "ice-football"
     )
    (((game-task kratour-timetrial))
     "kratour-timetrial"
     )
    (((game-task snobowl-ctf))
     "icepass-football"
     )
    (((game-task canspar-rushhour))
     "canspar-rushhour"
     )
    (((game-task desisle-ctf))
     "desisle-ctf"
     )
    (((game-task havsew-deathrace))
     "havsew-deathrace"
     )
    (((game-task canyon-race))
     "canyon-race"
     )
    (((game-task ice-timetrial))
     "ice-timetrial"
     )
    (((game-task haven-race))
     "haven-race"
     )
    (((game-task haven-timetrial))
     "haven-timetrial"
     )
    (((game-task jungle-timebox))
     "jungle-timebox"
     )
    (((game-task spargus-timetrial))
     "spargus-timetrial"
     )
    (((game-task drome-football))
     "drome-football"
     )
    (((game-task kras-timetrial))
     "kras-timetrial"
     )
    (((game-task ice-training))
     "ice-training"
     )
    (((game-task spartem-deathrace))
     "spartem-deathrace"
     )
    (((game-task havtour-timetrial))
     "havtour-timetrial"
     )
    (((game-task spargus-deathrace))
     "spargus-deathrace"
     )
    (((game-task sewer-timebox))
     "sewer-timebox"
     )
    (((game-task temple-timebox))
     "temple-timebox"
     )
    (((game-task iceberg-race))
     "iceberg-race"
     )
    (((game-task atoll-hunt))
     "atoll-hunt"
     )
    (((game-task havjung-rushhour1))
     "coliseum-ctf"
     )
    (((game-task spartem-timetrial))
     "spartem-timetrial"
     )
    (((game-task canspar-timebox))
     "canspar-timebox"
     )
    (((game-task canyon-football))
     "canyon-football"
     )
    (((game-task dockkra-race))
     "dockkra-race"
     )
    (((game-task kcross-hunt))
     "kcross-hunt"
     )
    (((game-task havjung-timebox))
     "havjung-timebox"
     )
    (((game-task ice-deathrace))
     "ice-deathrace"
     )
    (((game-task kcross-deathmatch))
     "kcross-deathmatch"
     )
    (((game-task dromdoc-football))
     "dromdoc-football"
     )
    (((game-task snow-timetrial))
     "snow-timetrial"
     )
    (((game-task docks-football))
     "docks-football"
     )
    (((game-task icepass-rushhour))
     "icepass-rushhour"
     )
    (((game-task brdroom-intro-b))
     "brdroom-intro-b"
     )
    (((game-task atoll-deathmatch))
     "atoll-deathmatch"
     )
    (((game-task kras-rushhour))
     "kras-rushhour"
     )
    (((game-task peak-football))
     "peak-football"
     )
    (((game-task canspar-race))
     "canspar-race"
     )
    (((game-task kcross-artifact))
     "kcross-artifact"
     )
    (((game-task ice-race))
     "ice-race"
     )
    (((game-task haven-timebox))
     "haven-timebox"
     )
    (((game-task drome-rushhour))
     "drome-rushhour"
     )
    (((game-task cliffs-assassin))
     "cliffs-assassin"
     )
    (((game-task iceberg-timetrial))
     "iceberg-timetrial"
     )
    (((game-task jungle-football))
     "jungle-football"
     )
    (((game-task peak-race))
     "peak-race"
     )
    (((game-task dromdoc-timebox))
     "snobowl-ctf"
     )
    (((game-task spargus-football))
     "spargus-football"
     )
    (((game-task kratour-boss-battle))
     "kratour-boss-battle"
     )
    (((game-task snow-rushhour))
     "snow-rushhour"
     )
    (((game-task havsew-race))
     "havsew-race"
     )
    (((game-task ice-timebox))
     "ice-timebox"
     )
    (((game-task temple-football))
     "temple-football"
     )
    (((game-task sewer-football))
     "sewer-football"
     )
    (((game-task cliffs-training))
     "cliffs-training"
     )
    (((game-task spartem-football))
     "spartem-football"
     )
    (((game-task dromdoc-rushhour))
     "dromdoc-rushhour"
     )
    (((game-task jungle-training))
     "jungle-training"
     )
    (((game-task dockkra-timetrial))
     "dockkra-timetrial"
     )
    (((game-task spartem-timebox))
     "spartem-timebox"
     )
    (((game-task desarena-ctf))
     "desarena-ctf"
     )
    (((game-task icepass-race))
     "icepass-race"
     )
    (((game-task docks-rushhour))
     "docks-rushhour"
     )
    (((game-task eco-yellow-button))
     "eco-yellow-button"
     )
    (((game-task atoll-ctf))
     "atoll-ctf"
     )
    (((game-task canyon-rushhour))
     "canyon-rushhour"
     )
    (((game-task artist-artist))
     "artist-artist"
     )
    (((game-task snow-training2))
     "snow-training2"
     )
    (((game-task havsew-football))
     "havsew-football"
     )
    (((game-task dromdoc-deathrace))
     "dromdoc-deathrace"
     )
    (((game-task kras-timebox))
     "kras-timebox"
     )
    (((game-task cliffs-hunt))
     "cliffs-hunt"
     )
    (((game-task cliffs-deathmatch))
     "cliffs-deathmatch"
     )
    (((game-task haven-football))
     "haven-football"
     )
    (((game-task kras-deathrace))
     "kras-deathrace"
     )
    (((game-task iceberg-timebox))
     "iceberg-timebox"
     )
    (((game-task desisle-assassin))
     "desisle-assassin"
     )
    (((game-task canyon-timetrial))
     "canyon-timetrial"
     )
    (((game-task spargus-rushhour))
     "spargus-rushhour"
     )
    (((game-task icetour-race))
     "icetour-race"
     )
    (((game-task havjung-football))
     "havjung-football"
     )
    (((game-task coliseum-deathmatch))
     "coliseum-deathmatch"
     )
    (((game-task cliffs-king-of-hill))
     "cliffs-king-of-hill"
     )
    (((game-task icepass-deathrace))
     "icepass-deathrace"
     )
    (((game-task cliffs-artifact))
     "cliffs-artifact"
     )
    (((game-task jungle-race))
     "jungle-race"
     )
    (((game-task spartem-rushhour))
     "spartem-rushhour"
     )
    (((game-task snow-timebox))
     "snow-timebox"
     )
    (((game-task sewer-rushhour))
     "sewer-rushhour"
     )
    (((game-task dockkra-football))
     "dockkra-football"
     )
    (((game-task max))
     "max"
     )
    (((game-task city-win2))
     "city-win"
     )
    (((game-task snow-deathrace))
     "snow-deathrace"
     )
    (((game-task city-start))
     "city-start"
     )
    (((game-task dockkra-timebox))
     "dockkra-timebox"
     )
    (((game-task desisle-deathmatch))
     "desisle-deathmatch"
     )
    (((game-task kcross-king-of-hill))
     "kcross-king-of-hill"
     )
    (((game-task dromdoc-race))
     "dromdoc-race"
     )
    (((game-task temple-race))
     "temple-race"
     )
    (((game-task desarena-artifact))
     "desarena-artifact"
     )
    (((game-task peak-timetrial))
     "peak-timetrial"
     )
    (((game-task spargus-timebox))
     "spargus-timebox"
     )
    (((game-task ice-rushhour))
     "ice-rushhour"
     )
    (((game-task spatour-race))
     "spatour-race"
     )
    (((game-task eco-red-button))
     "eco-red-button"
     )
    (((game-task jungle-timetrial))
     "jungle-timetrial"
     )
    (((game-task canyon-timebox))
     "canyon-timebox"
     )
    (((game-task kratour-race))
     "kratour-race"
     )
    (((game-task desisle-artifact))
     "desisle-artifact"
     )
    (((game-task spargus-race))
     "spargus-race"
     )
    (((game-task haven-rushhour))
     "haven-rushhour"
     )
    (((game-task snobowl-king-of-hill))
     "snobowl-king-of-hill"
     )
    (else
      "*unknown*"
      )
    )
  )

;; WARN: Return type mismatch int vs game-task.
(defun c-string->game-task ((arg0 string))
  "returns -1, dont call this"
  (the-as game-task -1)
  )

(defun-debug game-task-actor->string ((arg0 game-task-actor))
  (case arg0
    (((game-task-actor damus-wasdoors))
     "damus-wasdoors"
     )
    (((game-task-actor unused-slot-17))
     "unused-slot-17"
     )
    (((game-task-actor damus-desert))
     "damus-desert"
     )
    (((game-task-actor unused-slot-14))
     "unused-slot-14"
     )
    (((game-task-actor minimap))
     "minimap"
     )
    (((game-task-actor sig-wasdoors))
     "sig-wasdoors"
     )
    (((game-task-actor jinx-hiphog))
     "jinx-hiphog"
     )
    (((game-task-actor gun-gungame))
     "gun-gungame"
     )
    (((game-task-actor torn-freehq))
     "torn-freehq"
     )
    (((game-task-actor unused-slot-20))
     "unused-slot-20"
     )
    (((game-task-actor torn-hipbooth))
     "torn-hipbooth"
     )
    (((game-task-actor kleever-wasdoors))
     "kleever-wasdoors"
     )
    (((game-task-actor was-pre-game-deserte))
     "was-pre-game-deserte"
     )
    (((game-task-actor keira-garage))
     "keira-garage"
     )
    (((game-task-actor damus-waspal))
     "damus-waspal"
     )
    (((game-task-actor keira-freehq))
     "keira-freehq"
     )
    (((game-task-actor samos-freehq))
     "samos-freehq"
     )
    (((game-task-actor unused-slot-9))
     "unused-slot-9"
     )
    (((game-task-actor unused-slot-10))
     "unused-slot-10"
     )
    (((game-task-actor unused-slot-23))
     "unused-slot-23"
     )
    (((game-task-actor onin-freehq))
     "onin-freehq"
     )
    (((game-task-actor kleever-wascityb))
     "kleever-wascityb"
     )
    (((game-task-actor samos-onintent))
     "samos-onintent"
     )
    (((game-task-actor ashelin-talkbox))
     "ashelin-talkbox"
     )
    (((game-task-actor kleever-arena))
     "kleever-arena"
     )
    (((game-task-actor tess-gungame))
     "tess-gungame"
     )
    (((game-task-actor none))
     "none"
     )
    (((game-task-actor seem-leaper))
     "seem-leaper"
     )
    (((game-task-actor unused-slot-13))
     "unused-slot-13"
     )
    (((game-task-actor damus-wascity))
     "damus-wascity"
     )
    (((game-task-actor unused-slot-26))
     "unused-slot-26"
     )
    (((game-task-actor monk-mummy))
     "monk-mummy"
     )
    (((game-task-actor onin-talkbox))
     "onin-talkbox"
     )
    (((game-task-actor unused-slot-29))
     "unused-slot-29"
     )
    (((game-task-actor unused-slot-8))
     "unused-slot-8"
     )
    (((game-task-actor vin-vinroom))
     "vin-vinroom"
     )
    (((game-task-actor torn-hiphog))
     "torn-hiphog"
     )
    (((game-task-actor sig-nest))
     "sig-nest"
     )
    (((game-task-actor daxter))
     "daxter"
     )
    (((game-task-actor samos-talkbox))
     "samos-talkbox"
     )
    (((game-task-actor seem-wascitya))
     "seem-wascitya"
     )
    (((game-task-actor unused-slot-19))
     "unused-slot-19"
     )
    (((game-task-actor ashelin-freehq))
     "ashelin-freehq"
     )
    (((game-task-actor wascity-leaper))
     "wascity-leaper"
     )
    (((game-task-actor unused-slot-16))
     "unused-slot-16"
     )
    (((game-task-actor veger-cave))
     "veger-cave"
     )
    (((game-task-actor sig-talkbox))
     "sig-talkbox"
     )
    (((game-task-actor wascity-turret))
     "wascity-turret"
     )
    (((game-task-actor unused-slot-22))
     "unused-slot-22"
     )
    (((game-task-actor power-game-vinroom))
     "power-game-vinroom"
     )
    (((game-task-actor was-pre-game-wascityb))
     "was-pre-game-wascityb"
     )
    (((game-task-actor damus-arena))
     "damus-arena"
     )
    (((game-task-actor keira-genb))
     "keira-genb"
     )
    (((game-task-actor samos-genb))
     "samos-genb"
     )
    (((game-task-actor unused-slot-31))
     "unused-slot-31"
     )
    (((game-task-actor unused-slot-12))
     "unused-slot-12"
     )
    (((game-task-actor unused-slot-28))
     "unused-slot-28"
     )
    (((game-task-actor torn-hiptable))
     "torn-hiptable"
     )
    (((game-task-actor unused-slot-25))
     "unused-slot-25"
     )
    (((game-task-actor ashelin-oasis))
     "ashelin-oasis"
     )
    (((game-task-actor onin-onintent))
     "onin-onintent"
     )
    (((game-task-actor pecker))
     "pecker"
     )
    (((game-task-actor unused-slot-15))
     "unused-slot-15"
     )
    (((game-task-actor unused-slot-18))
     "unused-slot-18"
     )
    (((game-task-actor damus-ruins))
     "damus-ruins"
     )
    (((game-task-actor veger-ruins))
     "veger-ruins"
     )
    (((game-task-actor kleever-pen))
     "kleever-pen"
     )
    (((game-task-actor torn-hipbar))
     "torn-hipbar"
     )
    (((game-task-actor oracle-oracle))
     "oracle-oracle"
     )
    (((game-task-actor unused-slot-21))
     "unused-slot-21"
     )
    (((game-task-actor seem-temple))
     "seem-temple"
     )
    (((game-task-actor seem-wascity))
     "seem-wascity"
     )
    (((game-task-actor unused-slot-30))
     "unused-slot-30"
     )
    (((game-task-actor pecker-onintent))
     "pecker-onintent"
     )
    (((game-task-actor unused-slot-11))
     "unused-slot-11"
     )
    (((game-task-actor monk-wascity))
     "monk-wascity"
     )
    (((game-task-actor unused-slot-24))
     "unused-slot-24"
     )
    (((game-task-actor unused-slot-27))
     "unused-slot-27"
     )
    (else
      "*unknown*"
      )
    )
  )

(defun-debug game-task-action->string ((arg0 game-task-action))
  (case arg0
    (((game-task-action idle))
     "idle"
     )
    (((game-task-action play))
     "play"
     )
    (((game-task-action show))
     "show"
     )
    (((game-task-action talk))
     "talk"
     )
    (((game-task-action hide))
     "hide"
     )
    (((game-task-action say))
     "say"
     )
    (((game-task-action trade))
     "trade"
     )
    (((game-task-action menu))
     "menu"
     )
    (else
      "*unknown*"
      )
    )
  )

(defun-debug game-task-medal->string ((arg0 game-task-medal))
  (case arg0
    (((game-task-medal bronze))
     "bronze"
     )
    (((game-task-medal silver))
     "silver"
     )
    (((game-task-medal gold))
     "gold"
     )
    (((game-task-medal none))
     "none"
     )
    (else
      "*unknown*"
      )
    )
  )

(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     string           :offset   8)
   (distance  meters)
   )
  )


(defun-debug game-task-node-flag->string ((arg0 game-task-node-flag))
  (if (= (logand (game-task-node-flag boss-battle) arg0) (game-task-node-flag boss-battle))
      (format #t "boss-battle ")
      )
  (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 haven-city)) (game-task-node-flag haven-city))
      (format #t "haven-city ")
      )
  (if (= (logand arg0 (game-task-node-flag unlocked)) (game-task-node-flag unlocked))
      (format #t "unlocked ")
      )
  (if (= (logand arg0 (game-task-node-flag kras-city)) (game-task-node-flag kras-city))
      (format #t "kras-city ")
      )
  (if (= (logand (game-task-node-flag qualifier) arg0) (game-task-node-flag qualifier))
      (format #t "qualifier ")
      )
  (if (= (logand arg0 (game-task-node-flag cup4)) (game-task-node-flag cup4))
      (format #t "cup4 ")
      )
  (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 cup3)) (game-task-node-flag cup3))
      (format #t "cup3 ")
      )
  (if (= (logand arg0 (game-task-node-flag data)) (game-task-node-flag data))
      (format #t "data ")
      )
  (if (= (logand (game-task-node-flag grand-prix) arg0) (game-task-node-flag grand-prix))
      (format #t "grand-prix ")
      )
  (if (= (logand arg0 (game-task-node-flag cup2)) (game-task-node-flag cup2))
      (format #t "cup2 ")
      )
  (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 icelands)) (game-task-node-flag icelands))
      (format #t "icelands ")
      )
  (if (= (logand arg0 (game-task-node-flag cup1)) (game-task-node-flag cup1))
      (format #t "cup1 ")
      )
  (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 score-lower-is-better) arg0) (game-task-node-flag score-lower-is-better))
      (format #t "score-lower-is-better ")
      )
  (if (= (logand arg0 (game-task-node-flag spargus)) (game-task-node-flag spargus))
      (format #t "spargus ")
      )
  (if (= (logand arg0 (game-task-node-flag intro-b)) (game-task-node-flag intro-b))
      (format #t "intro-b ")
      )
  )

(defun-debug game-task-node-command->string ((arg0 game-task-node-command))
  (case arg0
    (((game-task-node-command sub-board-trail))
     "sub-board-trail"
     )
    (((game-task-node-command add-gun-yellow-1))
     "add-gun-yellow-1"
     )
    (((game-task-node-command add-gun-yellow-2))
     "add-gun-yellow-2"
     )
    (((game-task-node-command add-board-trail))
     "add-board-trail"
     )
    (((game-task-node-command add-vehicle-snake))
     "add-vehicle-snake"
     )
    (((game-task-node-command add-board-zap))
     "add-board-zap"
     )
    (((game-task-node-command add-darkjak-smack))
     "add-darkjak-smack"
     )
    (((game-task-node-command add-gun-yellow-ammo-2))
     "add-gun-yellow-ammo-2"
     )
    (((game-task-node-command add-gun-red-1))
     "add-gun-red-1"
     )
    (((game-task-node-command add-star-map))
     "add-star-map"
     )
    (((game-task-node-command add-darkeco))
     "add-darkeco"
     )
    (((game-task-node-command add-darkjak))
     "add-darkjak"
     )
    (((game-task-node-command add-light-eco-crystal))
     "add-light-eco-crystal"
     )
    (((game-task-node-command add-gun-blue-2))
     "add-gun-blue-2"
     )
    (((game-task-node-command add-gun-dark-3))
     "add-gun-dark-3"
     )
    (((game-task-node-command add-av-cube))
     "add-av-cube"
     )
    (((game-task-node-command add-board-training))
     "add-board-training"
     )
    (((game-task-node-command add-vehicle-toad))
     "add-vehicle-toad"
     )
    (((game-task-node-command add-darkjak-tracking))
     "add-darkjak-tracking"
     )
    (((game-task-node-command none))
     "none"
     )
    (((game-task-node-command add-lighteco))
     "add-lighteco"
     )
    (((game-task-node-command add-artifact-invis))
     "add-artifact-invis"
     )
    (((game-task-node-command add-seal))
     "add-seal"
     )
    (((game-task-node-command add-darkjak-bomb0))
     "add-darkjak-bomb0"
     )
    (((game-task-node-command add-amulet-1))
     "add-amulet-1"
     )
    (((game-task-node-command add-gun-red-ammo-2))
     "add-gun-red-ammo-2"
     )
    (((game-task-node-command add-vehicle-scorpion))
     "add-vehicle-scorpion"
     )
    (((game-task-node-command add-gun-blue-1))
     "add-gun-blue-1"
     )
    (((game-task-node-command sub-sidekick))
     "sub-sidekick"
     )
    (((game-task-node-command add-av-generator))
     "add-av-generator"
     )
    (((game-task-node-command add-sidekick))
     "add-sidekick"
     )
    (((game-task-node-command add-pass-indb-sluma))
     "add-pass-indb-sluma"
     )
    (((game-task-node-command add-amulet-2))
     "add-amulet-2"
     )
    (((game-task-node-command add-vehicle-turtle))
     "add-vehicle-turtle"
     )
    (((game-task-node-command add-gun-yellow-ammo-1))
     "add-gun-yellow-ammo-1"
     )
    (((game-task-node-command add-dark-eco-crystal))
     "add-dark-eco-crystal"
     )
    (((game-task-node-command add-pass-port-inda))
     "add-pass-port-inda"
     )
    (((game-task-node-command add-gun-dark-2))
     "add-gun-dark-2"
     )
    (((game-task-node-command add-av-prism))
     "add-av-prism"
     )
    (((game-task-node-command add-vehicle-rhino))
     "add-vehicle-rhino"
     )
    (((game-task-node-command add-board-launch))
     "add-board-launch"
     )
    (((game-task-node-command add-armor-3))
     "add-armor-3"
     )
    (((game-task-node-command add-cypher-gliph))
     "add-cypher-gliph"
     )
    (((game-task-node-command add-pass-port-mh))
     "add-pass-port-mh"
     )
    (((game-task-node-command add-armor-2))
     "add-armor-2"
     )
    (((game-task-node-command add-darkjak-bomb1))
     "add-darkjak-bomb1"
     )
    (((game-task-node-command add-armor-1))
     "add-armor-1"
     )
    (((game-task-node-command add-pass-front-gate))
     "add-pass-front-gate"
     )
    (((game-task-node-command add-lightjak-swoop))
     "add-lightjak-swoop"
     )
    (((game-task-node-command add-gun-blue-3))
     "add-gun-blue-3"
     )
    (((game-task-node-command add-pass-slumb-genb))
     "add-pass-slumb-genb"
     )
    (((game-task-node-command add-armor-0))
     "add-armor-0"
     )
    (((game-task-node-command add-lightjak-shield))
     "add-lightjak-shield"
     )
    (((game-task-node-command add-lightjak-regen))
     "add-lightjak-regen"
     )
    (((game-task-node-command add-gun-blue-ammo-1))
     "add-gun-blue-ammo-1"
     )
    (((game-task-node-command add-gun-blue-ammo-2))
     "add-gun-blue-ammo-2"
     )
    (((game-task-node-command add-gun-red-ammo-1))
     "add-gun-red-ammo-1"
     )
    (((game-task-node-command add-gun-red-3))
     "add-gun-red-3"
     )
    (((game-task-node-command sub-board))
     "sub-board"
     )
    (((game-task-node-command add-gun-red-2))
     "add-gun-red-2"
     )
    (((game-task-node-command add-lightjak-freeze))
     "add-lightjak-freeze"
     )
    (((game-task-node-command add-darkjak-invinc))
     "add-darkjak-invinc"
     )
    (((game-task-node-command add-board))
     "add-board"
     )
    (((game-task-node-command add-pass-inda-indb))
     "add-pass-inda-indb"
     )
    (((game-task-node-command add-gun-dark-ammo-2))
     "add-gun-dark-ammo-2"
     )
    (((game-task-node-command add-gun-dark-1))
     "add-gun-dark-1"
     )
    (((game-task-node-command add-av-map))
     "add-av-map"
     )
    (((game-task-node-command add-gun-yellow-3))
     "add-gun-yellow-3"
     )
    (((game-task-node-command add-gun-dark-ammo-1))
     "add-gun-dark-ammo-1"
     )
    (((game-task-node-command add-jakc))
     "add-jakc"
     )
    (((game-task-node-command add-amulet-3))
     "add-amulet-3"
     )
    (((game-task-node-command add-av-reflector))
     "add-av-reflector"
     )
    (((game-task-node-command add-lightjak))
     "add-lightjak"
     )
    (else
      "*unknown*"
      )
    )
  )

(deftype game-task-node-stats (structure)
  ((death-count  uint8)
   (vehicle      uint8)
   (medal        uint8)
   (ranking      uint8)
   (score        float)
   (time         float)
   (duration     float)
   (order        uint16)
   (end-mode     uint16)
   (cash         uint32)
   (tuning       uint32)
   )
  )


(deftype game-task-advanced-options (structure)
  ((data     uint8   8)
   (weapons  uint32  :overlay-at (-> data 0))
   (flags    uint8   :overlay-at (-> data 4))
   (param1   uint8   :overlay-at (-> data 5))
   (param2   uint8   :overlay-at (-> data 6))
   (param3   uint8   :overlay-at (-> data 7))
   (lword    uint64  :overlay-at (-> data 0))
   )
  :pack-me
  )


(deftype game-task-node-info (basic)
  ((level                               symbol)
   (task                                uint8)
   (net-play-mode                       uint8)
   (name                                string)
   (max-humans                          int8)
   (max-cpu                             int8)
   (min-players                         int8)
   (when-open                           (array game-task-event))
   (flags                               game-task-node-flag)
   (task-mask                           task-mask)
   (borrow                              pair)
   (close-time                          uint32)
   (description                         text-id)
   (intro-scene                         basic)
   (outro-scene                         basic)
   (time-of-day                         int32)
   (task-sound-description              basic)
   (ipu                                 basic)
   (gold-array                          uint32                      2)
   (silver-array                        uint32                      2)
   (bronze-array                        uint32                      2)
   (gold                                float                         :overlay-at (-> gold-array 0))
   (silver                              float                         :overlay-at (-> silver-array 0))
   (bronze                              float                         :overlay-at (-> bronze-array 0))
   (gold-hero                           float                         :overlay-at (-> gold-array 1))
   (silver-hero                         float                         :overlay-at (-> silver-array 1))
   (bronze-hero                         float                         :overlay-at (-> bronze-array 1))
   (medals-data                         uint32)
   (medals                              game-task-medal             4 :overlay-at medals-data)
   (unlocked                            uint8                         :overlay-at (-> medals 2))
   (game-score-index                    uint8                         :overlay-at (-> medals 3))
   (adv-score                           int16)
   (exb-score                           int16)
   (ai-tuning-indices                   basic)
   (sound-bank                          basic)
   (play-count                          uint32)
   (time-limit                          uint32)
   (ai-difficulty                       uint8)
   (ai-easier-after                     uint8)
   (ai-min-difficulty                   uint8)
   (ai-difficulty-step                  uint8)
   (default-advanced-options            game-task-advanced-options  :inline)
   (user-advanced-options               game-task-advanced-options  :inline)
   (default-advanced-options-adventure  game-task-advanced-options  :inline)
   (adventure-drivers                   basic)
   (race-start-speech                   basic)
   (gp-start-speech                     basic)
   (gp-win-speech                       basic)
   (gp-finish-speech                    basic)
   (high-scores-default                 basic)
   (high-scores                         basic)
   )
  (:methods
    (game-task-node-info-method-9 () none)
    (game-task-node-info-method-10 () none)
    (game-task-node-info-method-11 () none)
    (game-task-node-info-method-12 () none)
    (game-task-node-info-method-13 () none)
    )
  )


(deftype game-task-info (basic)
  ((name                        string)
   (task-level                  uint8)
   (text-name                   text-id)
   (text-id-long                uint32)
   (single-player               basic)
   (kiosk-play-node             uint16)
   (play-node                   uint16)
   (play-continue               string)
   (split-continue              basic)
   (kiosk-play-continue         object)
   (kiosk-online-play-continue  basic)
   )
  (:methods
    (game-task-info-method-9 () none)
    )
  )


(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) _type_)
    (game-task-control-method-9 () none)
    )
  )


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


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

(deftype game-movie (structure)
  ((name   basic)
   (score  uint16)
   (flags  uint16)
   (cup    uint32)
   )
  )


(deftype grand-prix (structure)
  ((name                basic)
   (score               uint16)
   (flags               uint16)
   (saved-data2         uint16  2)
   (saved-data          uint32  :overlay-at (-> saved-data2 0))
   (trophy              uint16  :overlay-at (-> saved-data2 0))
   (play-count          uint16  :overlay-at (-> saved-data2 1))
   (drivers             basic)
   (task                uint16  3)
   (task1               uint16  :overlay-at (-> task 0))
   (task2               uint16  :overlay-at (-> task 1))
   (task3               uint16  :overlay-at (-> task 2))
   (cup                 uint32)
   (intro               basic)
   (outro               basic)
   (ai-tuning-indices1  basic)
   (ai-tuning-indices2  basic)
   (ai-tuning-indices3  basic)
   (sound-description   basic)
   (boss                uint16)
   (boss-drivers        basic)
   )
  :pack-me
  :allow-misaligned
  )


(define *game-movie* (new 'static 'boxed-array :type game-movie
                       (new 'static 'game-movie :name "2-first-race-res" :score #x1 :cup #x80)
                       (new 'static 'game-movie :name "3-daxter-poison-real" :score #x4 :cup #x80)
                       (new 'static 'game-movie :name "10-jak-faces-razer" :score #x11 :cup #x80)
                       (new 'static 'game-movie :name "12-pecker-added-to-show" :score #x16 :cup #x80)
                       (new 'static 'game-movie :name "4-blitz-earn-gadgets" :score #x1e :cup #x80)
                       (new 'static 'game-movie :name "81-sig-returns" :score #x2a :cup #x80)
                       (new 'static 'game-movie :name "006-keira-wants-to-race" :score #xa :cup #x100)
                       (new 'static 'game-movie :name "38-kleiver-shows-up" :score #x10 :cup #x100)
                       (new 'static 'game-movie :name "62-kleiver-bush-bash" :score #x16 :cup #x100)
                       (new 'static 'game-movie :name "18-blitz-sport-big" :score #x1d :cup #x100)
                       (new 'static 'game-movie :name "005-jungle-back-in-haven" :score #x26 :cup #x100)
                       (new 'static 'game-movie :name "52-daxter-wax-job" :score #x2c :cup #x100)
                       (new 'static 'game-movie :name "84-krews-diary" :score #x7 :cup #x200)
                       (new 'static 'game-movie :name "100-can-we-trust-mizo" :score #xe :cup #x200)
                       (new 'static 'game-movie :name "125-razer-gets-nasty" :score #x19 :cup #x200)
                       (new 'static 'game-movie :name "47-blitzs-father-died" :score #x20 :cup #x200)
                       (new 'static 'game-movie :name "139-blitz-father-killed" :score #x1 :cup #x400)
                       (new 'static 'game-movie :name "157-jak-killed-krew" :score #x12 :cup #x400)
                       (new 'static 'game-movie :name "164-blitz-bares-all" :score #x28 :cup #x400)
                       )
        )