mirror of
https://github.com/open-goal/jak-project
synced 2026-08-12 20:03:14 -04:00
Tyler Wilding
82e0517275
Has boxed array accessing that prevents me from adding anything to ref tests (the entire file is lambdas so the access pattern that i would like to ignore happens at the top-level, can't ignore it. This code actually already has quite a bit of original docstrings so it's not too bad in that regard considering a `script-context` can have 16 arbitrary objects. It seems they rarely put more than a single object in the context and the types are usually obvious / are actually type checked!
142 lines
3.4 KiB
Common Lisp
142 lines
3.4 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: game-task-h.gc
|
|
;; name in dgo: game-task-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; +++game-task
|
|
(defenum game-task
|
|
:type uint8
|
|
:bitfield #f
|
|
(unknown -1)
|
|
(none 0)
|
|
(complete 1)
|
|
(dummy0 2)
|
|
(eco-blue-button 3)
|
|
(eco-yellow-button 4)
|
|
(eco-red-button 5)
|
|
(fortress-escape 6)
|
|
(city-help-kid 7)
|
|
(city-vehicle-training 8)
|
|
(ruins-tower 9)
|
|
(atoll-water 10)
|
|
(fortress-dump 11)
|
|
(city-krew-delivery 12)
|
|
(city-red-gun-training 13)
|
|
(atoll-sig 14)
|
|
(sewer-enemy 15)
|
|
(strip-rescue 16)
|
|
(atoll-battle 17)
|
|
(mountain-lens 18)
|
|
(mountain-gear 19)
|
|
(mountain-shard 20)
|
|
(mountain-collection 21)
|
|
(city-keira-delivery 22)
|
|
(stadium-board1 23)
|
|
(city-krew-collection 24)
|
|
(city-yellow-gun-training 25)
|
|
(drill-eggs 26)
|
|
(city-power 27)
|
|
(palace-cable 28)
|
|
(palace-boss 29)
|
|
(city-shuttle 30)
|
|
(ruins-enemy 31)
|
|
(city-blue-gun-training 32)
|
|
(forest-scouts 33)
|
|
(city-escort-kid 34)
|
|
(dig-knock-down 35)
|
|
(strip-grenade 36)
|
|
(drill-ship 37)
|
|
(city-port-run 38)
|
|
(city-meet-brutter 39)
|
|
(sewer-board 40)
|
|
(forest-hunt 41)
|
|
(city-intercept-tanker 42)
|
|
(stadium-race-class3 43)
|
|
(city-protect-water-slums 44)
|
|
(dig-find-totem 45)
|
|
(city-destroy-guard-vehicles 46)
|
|
(city-play-onin-game 47)
|
|
(canyon-insert-items 48)
|
|
(tomb-poles 49)
|
|
(tomb-water 50)
|
|
(tomb-boss 51)
|
|
(fortress-save-friends 52)
|
|
(sewer-escort 53)
|
|
(city-dark-gun-training 54)
|
|
(stadium-race-class2 55)
|
|
(city-stop-bomb-bots 56)
|
|
(city-errol-challenge 57)
|
|
(strip-drop 58)
|
|
(ruins-mech 59)
|
|
(forest-protect 60)
|
|
(drill-mech 61)
|
|
(city-save-lurkers 62)
|
|
(stadium-race-class 63)
|
|
(palace-sneak-in 64)
|
|
(castle-break-in 65)
|
|
(castle-boss 66)
|
|
(city-whack 67)
|
|
(under-mech 68)
|
|
(under-sig 69)
|
|
(city-defend-stadium 70)
|
|
(consite-find-baron 71)
|
|
(nest-get-to-gun 72)
|
|
(nest-enter 73)
|
|
(nest-boss 74)
|
|
(city-win 75)
|
|
(city-oracle 76)
|
|
(city-burning-bush-ring-1 77)
|
|
(city-burning-bush-get-to-1 78)
|
|
(city-burning-bush-get-to-2 79)
|
|
(city-burning-bush-get-to-3 80)
|
|
(city-burning-bush-get-to-4 81)
|
|
(city-burning-bush-collection-1 82)
|
|
(city-burning-bush-racepoint-1 83)
|
|
(city-burning-bush-ring-2 84)
|
|
(city-burning-bush-get-to-5 85)
|
|
(city-burning-bush-get-to-6 86)
|
|
(city-burning-bush-shuttle-1 87)
|
|
(city-burning-bush-get-to-7 88)
|
|
(city-burning-bush-get-to-8 89)
|
|
(city-burning-bush-get-to-9 90)
|
|
(city-burning-bush-collection-2 91)
|
|
(city-burning-bush-get-to-10 92)
|
|
(city-burning-bush-get-to-11 93)
|
|
(city-burning-bush-ring-3 94)
|
|
(city-burning-bush-get-to-12 95)
|
|
(city-burning-bush-bombbot-1 96)
|
|
(city-burning-bush-get-to-13 97)
|
|
(city-burning-bush-get-to-14 98)
|
|
(city-burning-bush-get-to-15 99)
|
|
(city-burning-bush-collection-3 100)
|
|
(city-burning-bush-race-errol 101)
|
|
(city-burning-bush-race-port 102)
|
|
(stadium-burning-bush-race-board 103)
|
|
(stadium-burning-bush-race-class3 104)
|
|
(stadium-burning-bush-race-class2 105)
|
|
(stadium-burning-bush-race-class1 106)
|
|
(stadium-burning-bush-race-class3-r 107)
|
|
(stadium-burning-bush-race-class2-r 108)
|
|
(stadium-burning-bush-race-class1-r 109)
|
|
(max 110))
|
|
;; ---game-task
|
|
|
|
;; +++game-task-node
|
|
(defenum game-task-node
|
|
:type uint32
|
|
:bitfield #f
|
|
(dig-knock-down-resolution 113)
|
|
(tomb-boss-torches 167)
|
|
(fortress-save-friends-resolution 172)
|
|
(drill-mech-resolution 204)
|
|
(drill-mech-started-smashing 205))
|
|
;; ---game-task-node
|
|
|
|
;; NOTE - for mood-funcs
|
|
(define-extern task-node-closed? (function game-task-node symbol))
|
|
|
|
;; DECOMP BEGINS
|
|
|