mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
889fdcd79c
Say goodbye to half of the laser needle shots spinning around doing nothing. This is toggleable with `fix-projectile-focus` in the pc settings.
1620 lines
55 KiB
Common Lisp
1620 lines
55 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: battle.gc
|
|
;; name in dgo: battle
|
|
;; dgos: TEMA, SEA, LFORM, LBIPED, TOWERA
|
|
|
|
;; +++battle-spawner-flags
|
|
(defenum battle-spawner-flags
|
|
:bitfield #t
|
|
:type int64
|
|
(hit)
|
|
)
|
|
;; ---battle-spawner-flags
|
|
|
|
|
|
;; +++battle-flags
|
|
(defenum battle-flags
|
|
:bitfield #t
|
|
:type uint8
|
|
(noticed)
|
|
(active)
|
|
(beaten)
|
|
(no-spawner-block)
|
|
(battle-music-set)
|
|
)
|
|
;; ---battle-flags
|
|
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype battle-info (basic)
|
|
((id int8)
|
|
(notice-spec uint64)
|
|
(pick-logic int8)
|
|
(notice-distance float)
|
|
(dont-spawn-initial-until-notice? symbol)
|
|
(play-battle-music symbol)
|
|
(min-battle-spawn-delay uint32)
|
|
(max-battle-spawn-delay uint32)
|
|
(min-spawner-notice-attack-delay uint32)
|
|
(max-spawner-notice-attack-delay uint32)
|
|
(spawner-blocked-by-player-xz float)
|
|
(spawner-blocked-by-collide-radius float)
|
|
(pick-spawner-max-dist float)
|
|
(max-count uint32)
|
|
(desired-alive-count uint8)
|
|
(spawner-collide-with collide-spec)
|
|
)
|
|
)
|
|
|
|
|
|
(deftype battle-ally (structure)
|
|
((entity entity-actor)
|
|
)
|
|
)
|
|
|
|
|
|
(deftype battle-ally-array (inline-array-class)
|
|
((data battle-ally :inline :dynamic)
|
|
)
|
|
)
|
|
|
|
|
|
(set! (-> battle-ally-array heap-base) (the-as uint 16))
|
|
|
|
(deftype battle-breed (structure)
|
|
((breed-type type)
|
|
(percent float)
|
|
)
|
|
)
|
|
|
|
|
|
(deftype battle-breed-array (inline-array-class)
|
|
((data battle-breed :inline :dynamic)
|
|
)
|
|
)
|
|
|
|
|
|
(set! (-> battle-breed-array heap-base) (the-as uint 16))
|
|
|
|
(deftype battle-spawner (structure)
|
|
((flags battle-spawner-flags)
|
|
(entity entity-actor)
|
|
(breeds battle-breed-array)
|
|
(creature-index int8)
|
|
(ready-index int8)
|
|
(attack-index int8)
|
|
(mode uint8)
|
|
(intro-path path-control)
|
|
(notice-attack-delay uint32)
|
|
(creature handle)
|
|
(last-spawn-time time-frame)
|
|
(noticed-attack-time time-frame)
|
|
(attack-pos vector :inline)
|
|
)
|
|
)
|
|
|
|
|
|
(deftype battle-spawner-array (inline-array-class)
|
|
((data battle-spawner :inline :dynamic)
|
|
)
|
|
)
|
|
|
|
|
|
(set! (-> battle-spawner-array heap-base) (the-as uint 80))
|
|
|
|
(deftype battle (process-drawable)
|
|
((info battle-info)
|
|
(flags battle-flags)
|
|
(spawn-initial-creatures? symbol)
|
|
(next-spawn-delay uint32)
|
|
(on-notice basic)
|
|
(on-hostile basic)
|
|
(on-beaten basic)
|
|
(max-count uint32)
|
|
(count uint32)
|
|
(die-count uint32)
|
|
(stat-child-count uint16)
|
|
(cant-spawn-time time-frame)
|
|
(jammed-starting-time time-frame)
|
|
(spawners battle-spawner-array)
|
|
(allies battle-ally-array)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
undefined
|
|
notice
|
|
hostile
|
|
beaten
|
|
)
|
|
(:methods
|
|
(spawner-blocked? (_type_ battle-spawner) symbol)
|
|
(spawner-blocked-by-collide? (_type_ battle-spawner) symbol)
|
|
(draw-battle-marks (_type_) none)
|
|
(initialize-enemy-lists (_type_) none)
|
|
(initialize-spawner-breeds (_type_ battle-spawner entity-actor) none)
|
|
(get-spawner-for-enemy (_type_ process) battle-spawner)
|
|
(initialize-ally (_type_ battle-ally entity-actor) none)
|
|
(initialize-spawner (_type_ battle-spawner entity-actor) none)
|
|
(initialize-battle (_type_) none)
|
|
(init-go (_type_) int)
|
|
(get-spawn-delay (_type_) int)
|
|
(get-best-spawner (_type_) battle-spawner)
|
|
(spawner-free? (_type_ battle-spawner) symbol)
|
|
(spawn-from-breed (_type_ battle-breed enemy-init-by-other-params) handle)
|
|
(spawn-from-spawner (_type_ battle-spawner symbol) none)
|
|
(spawn-initial-creatures (_type_) none)
|
|
(get-random-breed (_type_ battle-spawner) battle-breed)
|
|
(spawner-hit (_type_ battle-spawner process) symbol)
|
|
(spawner-try-jump (_type_ battle-spawner enemy) symbol)
|
|
(spawner-do-jump (_type_ battle-spawner) int)
|
|
(spawner-hittable? (_type_ battle-spawner) symbol)
|
|
(spawner-in-intro? (_type_ battle-spawner) symbol)
|
|
(set-battle-music (_type_) none)
|
|
(unset-battle-music (_type_) none)
|
|
(update-allies-list (_type_) int)
|
|
(beaten? (_type_) symbol)
|
|
(spawner-active? (_type_ battle-spawner symbol) symbol)
|
|
(spawner-active-count (_type_) int)
|
|
)
|
|
)
|
|
|
|
|
|
(define *battles* (new 'static 'boxed-array :type battle-info
|
|
(new 'static 'battle-info
|
|
:notice-spec #x2
|
|
:notice-distance 163840.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x384
|
|
:max-battle-spawn-delay #x708
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #xa
|
|
:desired-alive-count #x2
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 1
|
|
:notice-spec #x2
|
|
:notice-distance 163840.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x4b0
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #xf
|
|
:desired-alive-count #x2
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 2
|
|
:notice-spec #x2
|
|
:notice-distance 204800.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x4b0
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x11
|
|
:desired-alive-count #x4
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 3
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x1
|
|
:desired-alive-count #x1
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 4
|
|
:notice-spec #x2
|
|
:notice-distance 245760.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x4b0
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x14
|
|
:desired-alive-count #x6
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 6
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x1e
|
|
:desired-alive-count #xf
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 7
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x3c
|
|
:max-battle-spawn-delay #x96
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x32
|
|
:desired-alive-count #xf
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 8
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #xc
|
|
:desired-alive-count #x4
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 9
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x258
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #xc
|
|
:desired-alive-count #x3
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 10
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x8
|
|
:desired-alive-count #x4
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 11
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x32
|
|
:desired-alive-count #x6
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 12
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x1e
|
|
:desired-alive-count #x8
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 13
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x20000000
|
|
:desired-alive-count #x8
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 14
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #xc
|
|
:desired-alive-count #x6
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 15
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x28
|
|
:desired-alive-count #xf
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 16
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x12c
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x4
|
|
:desired-alive-count #x3
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 17
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x258
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x7
|
|
:desired-alive-count #x4
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 18
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x258
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x8
|
|
:desired-alive-count #x3
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 19
|
|
:notice-spec #x1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x258
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x22
|
|
:desired-alive-count #x4
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 20
|
|
:notice-spec #x1
|
|
:pick-logic 1
|
|
:notice-distance 122880.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music #f
|
|
:min-battle-spawn-delay #x12c
|
|
:max-battle-spawn-delay #x258
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x14
|
|
:desired-alive-count #x8
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 21
|
|
:notice-spec #x2
|
|
:notice-distance 1228800.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music 'wasfight
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x258
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x20000000
|
|
:desired-alive-count #x6
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
(new 'static 'battle-info
|
|
:id 22
|
|
:notice-spec #x2
|
|
:notice-distance 819200.0
|
|
:dont-spawn-initial-until-notice? #f
|
|
:play-battle-music 'wasfight
|
|
:min-battle-spawn-delay #x96
|
|
:max-battle-spawn-delay #x258
|
|
:max-spawner-notice-attack-delay #x78
|
|
:spawner-blocked-by-player-xz 24576.0
|
|
:pick-spawner-max-dist 163840.0
|
|
:max-count #x20000000
|
|
:desired-alive-count #x6
|
|
:spawner-collide-with (collide-spec enemy hit-by-others-list)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; WARN: disable def twice: 9. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
;; WARN: disable def twice: 19. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
;; WARN: disable def twice: 29. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
(defbehavior battle-event-handler battle ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('query)
|
|
(case (-> arg3 param 0)
|
|
(('beaten)
|
|
(and (-> self next-state) (= (-> self next-state name) 'beaten))
|
|
)
|
|
(('hostile)
|
|
(and (-> self next-state) (= (-> self next-state name) 'hostile))
|
|
)
|
|
(('idle)
|
|
(and (-> self next-state) (= (-> self next-state name) 'idle))
|
|
)
|
|
(('die-count)
|
|
(-> self die-count)
|
|
)
|
|
(else
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(('child-die)
|
|
(+! (-> self die-count) 1)
|
|
(let ((v1-14 (get-spawner-for-enemy self arg0)))
|
|
(when v1-14
|
|
(set! (-> v1-14 creature) (the-as handle #f))
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(('child-hit)
|
|
(let ((a1-3 (get-spawner-for-enemy self arg0)))
|
|
(when a1-3
|
|
(logior! (-> a1-3 flags) (battle-spawner-flags hit))
|
|
(spawner-hit self a1-3 arg0)
|
|
)
|
|
)
|
|
)
|
|
(('child-jumped)
|
|
(let ((a1-5 (get-spawner-for-enemy self arg0)))
|
|
(if a1-5
|
|
(spawner-do-jump self a1-5)
|
|
)
|
|
)
|
|
)
|
|
(('trigger)
|
|
(if (and (-> self next-state) (= (-> self next-state name) 'idle))
|
|
(go-virtual notice)
|
|
)
|
|
)
|
|
(('untrigger)
|
|
(if (not (and (-> self next-state) (= (-> self next-state name) 'idle)))
|
|
(go-virtual idle)
|
|
)
|
|
)
|
|
(('beaten)
|
|
(logior! (-> self flags) (battle-flags beaten))
|
|
(if (and (-> self next-state) (= (-> self next-state name) 'idle))
|
|
(go-virtual beaten)
|
|
)
|
|
)
|
|
(('resume)
|
|
(logclear! (-> self flags) (battle-flags beaten))
|
|
(process-entity-status! self (entity-perm-status subtask-complete) #f)
|
|
(if (and (-> self next-state) (= (-> self next-state name) 'beaten))
|
|
(go-virtual hostile)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod draw-battle-marks ((this battle))
|
|
(local-vars (sv-16 string) (sv-32 string))
|
|
(let ((s4-0 (-> this root trans))
|
|
(s5-0 (the-as int (-> this max-count)))
|
|
)
|
|
(if (= (the-as uint s5-0) #x20000000)
|
|
(set! s5-0 0)
|
|
)
|
|
(add-debug-x #t (bucket-id debug-no-zbuf1) s4-0 (new 'static 'rgba :g #xff :b #xff :a #x80))
|
|
(let ((s3-0 add-debug-text-3d)
|
|
(s2-0 #t)
|
|
(s1-0 577)
|
|
)
|
|
(format
|
|
(clear *temp-string*)
|
|
"~%~S~%count ~d/~d~%child ~d~%ally ~d~%die count ~d"
|
|
(-> this name)
|
|
(-> this count)
|
|
s5-0
|
|
(-> this stat-child-count)
|
|
(-> this allies length)
|
|
(-> this die-count)
|
|
)
|
|
(s3-0 s2-0 (the-as bucket-id s1-0) *temp-string* s4-0 (font-color orange) (the-as vector2h #f))
|
|
)
|
|
)
|
|
(dotimes (s5-1 (-> this spawners length))
|
|
(let ((s4-1 (-> this spawners data s5-1)))
|
|
(let ((a0-6 (-> s4-1 intro-path)))
|
|
(if a0-6
|
|
(debug-draw a0-6)
|
|
)
|
|
)
|
|
(add-debug-x
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
(-> s4-1 entity extra trans)
|
|
(new 'static 'rgba :g #xff :b #xff :a #x80)
|
|
)
|
|
(let ((s3-1 add-debug-text-3d)
|
|
(s2-1 #t)
|
|
(s1-1 577)
|
|
)
|
|
(let ((s0-1 format))
|
|
(set! sv-16 (clear *temp-string*))
|
|
(set! sv-32 "~%spawner~%~S")
|
|
(let ((a2-5 (res-lump-struct (-> s4-1 entity) 'name structure)))
|
|
(s0-1 sv-16 sv-32 a2-5)
|
|
)
|
|
)
|
|
(s3-1
|
|
s2-1
|
|
(the-as bucket-id s1-1)
|
|
*temp-string*
|
|
(-> s4-1 entity extra trans)
|
|
(font-color yellow)
|
|
(the-as vector2h #f)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod spawner-blocked-by-collide? ((this battle) (arg0 battle-spawner))
|
|
(local-vars (a2-5 float) (a2-12 float))
|
|
(rlet ((vf1 :class vf)
|
|
(vf2 :class vf)
|
|
(vf3 :class vf)
|
|
)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector))
|
|
(f0-0 (-> this info spawner-blocked-by-collide-radius))
|
|
)
|
|
(set! (-> gp-0 quad) (-> arg0 attack-pos quad))
|
|
(set! (-> gp-0 w) f0-0)
|
|
(let ((s5-0 (-> this info spawner-collide-with))
|
|
(f30-0 (* f0-0 f0-0))
|
|
)
|
|
(set! *actor-list-length* 0)
|
|
(if (logtest? s5-0 (collide-spec hit-by-others-list))
|
|
(set! *actor-list-length* (fill-actor-list-for-box *actor-hash* gp-0 *actor-list* 256))
|
|
)
|
|
(when (logtest? s5-0 (collide-spec player-list))
|
|
(let ((a0-2 (-> *collide-player-list* alive-list next0)))
|
|
*collide-player-list*
|
|
(let ((v1-15 (-> a0-2 next0)))
|
|
(while (!= a0-2 (-> *collide-player-list* alive-list-end))
|
|
(let* ((a0-3 (-> (the-as connection a0-2) param1))
|
|
(a1-4 (-> (the-as collide-shape a0-3) root-prim))
|
|
)
|
|
(when (logtest? s5-0 (-> a1-4 prim-core collide-as))
|
|
(let ((a1-5 (-> a1-4 prim-core)))
|
|
(let ((a2-4 a1-5)
|
|
(a3-1 gp-0)
|
|
)
|
|
(.lvf vf2 (&-> a2-4 world-sphere quad))
|
|
(.lvf vf3 (&-> a3-1 quad))
|
|
)
|
|
(.sub.vf vf1 vf3 vf2)
|
|
(.mul.vf vf1 vf1 vf1)
|
|
(.add.y.vf vf1 vf1 vf1 :mask #b1)
|
|
(.add.z.vf vf1 vf1 vf1 :mask #b1)
|
|
(.mov a2-5 vf1)
|
|
(let ((f0-2 a2-5)
|
|
(f1-1 (+ (-> a1-5 world-sphere w) (-> gp-0 w)))
|
|
)
|
|
(when (< f0-2 (* f1-1 f1-1))
|
|
(when (< *actor-list-length* 256)
|
|
(set! (-> *actor-list* *actor-list-length*) (the-as collide-shape a0-3))
|
|
(set! *actor-list-length* (+ *actor-list-length* 1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! a0-2 v1-15)
|
|
*collide-player-list*
|
|
(set! v1-15 (-> v1-15 next0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? s5-0 (collide-spec hit-by-player-list))
|
|
(let ((a0-5 (-> *collide-hit-by-player-list* alive-list next0)))
|
|
*collide-hit-by-player-list*
|
|
(let ((v1-23 (-> a0-5 next0)))
|
|
(while (!= a0-5 (-> *collide-hit-by-player-list* alive-list-end))
|
|
(let* ((a0-6 (-> (the-as connection a0-5) param1))
|
|
(a1-16 (-> (the-as collide-shape a0-6) root-prim))
|
|
)
|
|
(when (logtest? s5-0 (-> a1-16 prim-core collide-as))
|
|
(let ((a1-17 (-> a1-16 prim-core)))
|
|
(let ((a2-11 a1-17)
|
|
(a3-2 gp-0)
|
|
)
|
|
(.lvf vf2 (&-> a2-11 world-sphere quad))
|
|
(.lvf vf3 (&-> a3-2 quad))
|
|
)
|
|
(.sub.vf vf1 vf3 vf2)
|
|
(.mul.vf vf1 vf1 vf1)
|
|
(.add.y.vf vf1 vf1 vf1 :mask #b1)
|
|
(.add.z.vf vf1 vf1 vf1 :mask #b1)
|
|
(.mov a2-12 vf1)
|
|
(let ((f0-3 a2-12)
|
|
(f1-5 (+ (-> a1-17 world-sphere w) (-> gp-0 w)))
|
|
)
|
|
(when (< f0-3 (* f1-5 f1-5))
|
|
(when (< *actor-list-length* 256)
|
|
(set! (-> *actor-list* *actor-list-length*) (the-as collide-shape a0-6))
|
|
(set! *actor-list-length* (+ *actor-list-length* 1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! a0-5 v1-23)
|
|
*collide-hit-by-player-list*
|
|
(set! v1-23 (-> v1-23 next0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(dotimes (s4-0 *actor-list-length*)
|
|
(let ((v1-28 (-> *actor-list* s4-0)))
|
|
(when (logtest? s5-0 (-> v1-28 root-prim prim-core collide-as))
|
|
(if (>= f30-0 (vector-vector-xz-distance-squared gp-0 (-> v1-28 trans)))
|
|
(return #t)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
|
|
(defmethod spawner-blocked? ((this battle) (arg0 battle-spawner))
|
|
(when (not (logtest? (-> this flags) (battle-flags no-spawner-block)))
|
|
(let ((f0-0 (-> this info spawner-blocked-by-player-xz)))
|
|
(if (and (< 0.0 f0-0) (>= (* f0-0 f0-0) (vector-vector-xz-distance-squared (target-pos 0) (-> arg0 attack-pos))))
|
|
(return #t)
|
|
)
|
|
)
|
|
(let ((f0-3 (-> this info spawner-blocked-by-collide-radius)))
|
|
(if (and (< 0.0 f0-3) (spawner-blocked-by-collide? this arg0))
|
|
(return #t)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
(defmethod spawner-free? ((this battle) (arg0 battle-spawner))
|
|
(and (not (handle->process (-> arg0 creature)))
|
|
(and (not (-> *setting-control* user-current nuke-active?))
|
|
(or (>= (-> arg0 ready-index) 0) (not (spawner-blocked? this arg0)))
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod get-best-spawner ((this battle))
|
|
(if (-> *setting-control* user-current nuke-active?)
|
|
(return (the-as battle-spawner #f))
|
|
)
|
|
(let ((s5-0 (-> this spawners length))
|
|
(v1-6 (-> this info pick-logic))
|
|
)
|
|
(if (not *target*)
|
|
(set! v1-6 0)
|
|
)
|
|
(cond
|
|
((zero? v1-6)
|
|
(let ((s3-0 (rand-vu-int-count s5-0)))
|
|
(dotimes (s4-0 s5-0)
|
|
(let ((s2-0 (-> this spawners data s3-0)))
|
|
(if (spawner-free? this s2-0)
|
|
(return s2-0)
|
|
)
|
|
)
|
|
(set! s3-0 (mod (+ s3-0 1) s5-0))
|
|
)
|
|
)
|
|
)
|
|
((= v1-6 1)
|
|
(let ((s4-1 0)
|
|
(f30-0 -1.0)
|
|
)
|
|
(while (nonzero? s5-0)
|
|
(+! s5-0 -1)
|
|
(let ((s3-1 (-> this spawners data s5-0)))
|
|
(when (spawner-free? this s3-1)
|
|
(let ((f0-0 (vector-vector-distance (target-pos 0) (-> s3-1 entity extra trans))))
|
|
(when (and (>= (-> this info pick-spawner-max-dist) f0-0) (or (< f30-0 0.0) (< f0-0 f30-0)))
|
|
(set! s4-1 s5-0)
|
|
(set! f30-0 f0-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (< 0.0 f30-0)
|
|
(return (-> this spawners data s4-1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(the-as battle-spawner #f)
|
|
)
|
|
|
|
(defmethod get-random-breed ((this battle) (arg0 battle-spawner))
|
|
(let ((f0-0 (rand-vu))
|
|
(v1-0 0)
|
|
)
|
|
(let ((a0-2 (-> arg0 breeds length)))
|
|
(dotimes (a1-1 a0-2)
|
|
(when (>= f0-0 0.0)
|
|
(set! f0-0 (- f0-0 (-> arg0 breeds data a1-1 percent)))
|
|
(if (< f0-0 0.0)
|
|
(set! v1-0 a1-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(-> arg0 breeds data v1-0)
|
|
)
|
|
)
|
|
|
|
;; WARN: Return type mismatch int vs handle.
|
|
(defmethod spawn-from-breed ((this battle) (arg0 battle-breed) (arg1 enemy-init-by-other-params))
|
|
(let* ((a1-1 (-> arg0 breed-type))
|
|
(s4-0 (get-process *default-dead-pool* a1-1 #x4000 1))
|
|
(v1-1 (when s4-0
|
|
(let ((t9-1 (method-of-type process activate)))
|
|
(t9-1 s4-0 this "battle-slave" (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s4-0 enemy-init-by-other this arg1)
|
|
(-> s4-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(if (not v1-1)
|
|
(return (the-as handle #f))
|
|
)
|
|
(+! (-> this count) 1)
|
|
(the-as handle (ppointer->handle v1-1))
|
|
)
|
|
)
|
|
|
|
;; WARN: Return type mismatch handle vs none.
|
|
(defmethod spawn-from-spawner ((this battle) (arg0 battle-spawner) (arg1 symbol))
|
|
(let ((s3-0 (new 'stack-no-clear 'vector))
|
|
(s4-0 (new 'stack-no-clear 'quaternion))
|
|
(s2-0 (-> arg0 intro-path))
|
|
)
|
|
(cond
|
|
(s2-0
|
|
(let ((s1-0 0))
|
|
(when arg1
|
|
(set! s1-0 (-> arg0 ready-index))
|
|
(set! s1-0 (cond
|
|
((>= s1-0 0)
|
|
(empty)
|
|
s1-0
|
|
)
|
|
(else
|
|
(-> arg0 attack-index)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> arg0 creature-index) s1-0)
|
|
(get-point-in-path! s2-0 s3-0 (the float s1-0) 'exact)
|
|
(let ((s0-0 (new 'stack-no-clear 'vector)))
|
|
(displacement-between-two-points-normalized! s2-0 s0-0 (the float s1-0))
|
|
(set! (-> s0-0 y) 0.0)
|
|
(vector-normalize! s0-0 1.0)
|
|
(forward-up->quaternion s4-0 s0-0 *up-vector*)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> arg0 creature-index) 0)
|
|
(let ((v1-7 (-> arg0 entity)))
|
|
(set! (-> s3-0 quad) (-> v1-7 extra trans quad))
|
|
(quaternion-copy! s4-0 (-> v1-7 quat))
|
|
)
|
|
)
|
|
)
|
|
(let ((s1-1 (new 'stack-no-clear 'enemy-init-by-other-params))
|
|
(s2-1 (!= s2-0 #f))
|
|
(s0-1 (get-random-breed this arg0))
|
|
)
|
|
(set! (-> s1-1 trans quad) (-> s3-0 quad))
|
|
(quaternion-copy! (-> s1-1 quat) s4-0)
|
|
(set! (-> s1-1 entity) (-> arg0 entity))
|
|
(set! (-> s1-1 directed?) #t)
|
|
(set! (-> s1-1 no-initial-move-to-ground?) s2-1)
|
|
(set! (-> s1-1 art-level) #f)
|
|
(let ((v0-7 (spawn-from-breed this s0-1 s1-1)))
|
|
(when (handle->process v0-7)
|
|
(set! (-> arg0 creature) v0-7)
|
|
(set! (-> arg0 mode) (the-as uint 1))
|
|
(set-time! (-> arg0 last-spawn-time))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defmethod get-spawner-for-enemy ((this battle) (arg0 process))
|
|
(let ((v1-0 (if (type? arg0 nav-enemy)
|
|
(the-as nav-enemy arg0)
|
|
)
|
|
)
|
|
)
|
|
(when v1-0
|
|
(dotimes (a0-3 (-> this spawners length))
|
|
(let* ((a1-5 (-> this spawners data a0-3))
|
|
(a2-2 (handle->process (-> a1-5 creature)))
|
|
)
|
|
(when (and a2-2 (= a2-2 v1-0))
|
|
(when (not (logtest? (enemy-flag directed) (-> (the-as nav-enemy a2-2) enemy-flags)))
|
|
(set! (-> a1-5 creature) (the-as handle #f))
|
|
(set! a1-5 (the-as battle-spawner #f))
|
|
)
|
|
(return a1-5)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(the-as battle-spawner #f)
|
|
)
|
|
|
|
(defmethod spawner-active? ((this battle) (arg0 battle-spawner) (arg1 symbol))
|
|
(when (and (logtest? (-> this flags) (battle-flags active)) (not (logtest? (-> this flags) (battle-flags beaten))))
|
|
(let ((v1-5 (-> arg0 noticed-attack-time)))
|
|
(cond
|
|
((zero? v1-5)
|
|
(set-time! (-> arg0 noticed-attack-time))
|
|
)
|
|
(else
|
|
(if (time-elapsed? v1-5 (the-as time-frame (-> arg0 notice-attack-delay)))
|
|
(logior! (-> arg0 flags) (battle-spawner-flags hit))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-0 (handle->process (-> arg0 creature))))
|
|
(when s4-0
|
|
(when (not (logtest? (enemy-flag directed) (-> (the-as nav-enemy s4-0) enemy-flags)))
|
|
(set! (-> arg0 creature) (the-as handle #f))
|
|
(return #f)
|
|
)
|
|
(let ((v1-20 (-> arg0 mode)))
|
|
(cond
|
|
((= v1-20 1)
|
|
(set! (-> arg0 mode) (the-as uint 0))
|
|
0
|
|
)
|
|
((zero? v1-20)
|
|
(when (or (logtest? (enemy-flag directed-ready) (-> (the-as nav-enemy s4-0) enemy-flags)) (not arg1))
|
|
(cond
|
|
((spawner-in-intro? this arg0)
|
|
(if (not (spawner-try-jump this arg0 (the-as enemy s4-0)))
|
|
(return #t)
|
|
)
|
|
)
|
|
((spawner-hittable? this arg0)
|
|
(spawner-hit this arg0 s4-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
(defmethod spawner-in-intro? ((this battle) (arg0 battle-spawner))
|
|
(when (-> arg0 intro-path)
|
|
(let ((v1-1 (-> arg0 creature-index))
|
|
(a0-1 (-> arg0 attack-index))
|
|
)
|
|
(or (< v1-1 (-> arg0 ready-index)) (and (< v1-1 a0-1) (logtest? (-> arg0 flags) (battle-spawner-flags hit))))
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod spawner-try-jump ((this battle) (arg0 battle-spawner) (arg1 enemy))
|
|
(let ((s3-0 (+ (-> arg0 creature-index) 1))
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(if (and (= s3-0 (-> arg0 attack-index)) (spawner-blocked? this arg0))
|
|
(return #f)
|
|
)
|
|
(get-point-in-path! (-> arg0 intro-path) s4-0 (the float s3-0) 'exact)
|
|
(let ((s3-1 (-> arg0 mode)))
|
|
(set! (-> arg0 mode) (the-as uint 2))
|
|
(set! (-> arg1 enemy-flags)
|
|
(the-as enemy-flag (logclear (-> arg1 enemy-flags) (enemy-flag jump-check-blocked)))
|
|
)
|
|
(cond
|
|
((send-event arg1 'jump 3 s4-0)
|
|
#t
|
|
)
|
|
(else
|
|
(set! (-> arg0 mode) s3-1)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod spawner-hittable? ((this battle) (arg0 battle-spawner))
|
|
(when (logtest? (-> arg0 flags) (battle-spawner-flags hit))
|
|
(if (-> arg0 intro-path)
|
|
(>= (-> arg0 creature-index) (-> arg0 attack-index))
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod spawner-hit ((this battle) (arg0 battle-spawner) (arg1 process))
|
|
(let ((s5-0 (-> arg0 creature)))
|
|
(set! (-> arg0 creature) (the-as handle #f))
|
|
(cond
|
|
((send-event arg1 'cue-chase)
|
|
#t
|
|
)
|
|
(else
|
|
(set! (-> arg0 creature) s5-0)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod spawner-do-jump ((this battle) (arg0 battle-spawner))
|
|
(when (= (-> arg0 mode) 2)
|
|
(+! (-> arg0 creature-index) 1)
|
|
(set! (-> arg0 mode) (the-as uint 0))
|
|
(spawner-active? this arg0 #f)
|
|
)
|
|
0
|
|
)
|
|
|
|
(defmethod spawner-active-count ((this battle))
|
|
(let ((gp-0 0))
|
|
(dotimes (s4-0 (-> this spawners length))
|
|
(if (spawner-active? this (-> this spawners data s4-0) #t)
|
|
(+! gp-0 1)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
|
|
(defmethod spawn-initial-creatures ((this battle))
|
|
(set! (-> this spawn-initial-creatures?) #f)
|
|
(let ((s5-0 (-> this spawners)))
|
|
(dotimes (s4-0 (-> s5-0 length))
|
|
(let ((s3-0 (-> s5-0 data s4-0)))
|
|
(when (spawner-free? this s3-0)
|
|
(let ((v1-7 (res-lump-value (-> s3-0 entity) 'enemy-options uint128 :time -1000000000.0)))
|
|
(when (logtest? #x100000 v1-7)
|
|
(spawn-from-spawner this s3-0 #t)
|
|
(+! (-> this stat-child-count) 1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod get-spawn-delay ((this battle))
|
|
(let ((v1-0 (-> this info)))
|
|
(rand-vu-int-range
|
|
(the-as int (-> v1-0 min-battle-spawn-delay))
|
|
(the-as int (-> v1-0 max-battle-spawn-delay))
|
|
)
|
|
)
|
|
)
|
|
|
|
(defstate idle (battle)
|
|
:virtual #t
|
|
:event battle-event-handler
|
|
:enter (behavior ()
|
|
(if (and (-> self spawn-initial-creatures?) (not (-> self info dont-spawn-initial-until-notice?)))
|
|
(spawn-initial-creatures self)
|
|
)
|
|
(unset-battle-music self)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((v1-1 (-> self info notice-spec)))
|
|
(when (not (logtest? v1-1 1))
|
|
(let ((gp-0 #t))
|
|
(if (and (logtest? v1-1 2)
|
|
(not (and *target*
|
|
(and (>= (-> self info notice-distance) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
|
|
(not (logtest? (focus-status teleporting) (-> *target* focus-status)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! gp-0 #f)
|
|
)
|
|
(if gp-0
|
|
(go-virtual notice)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if *display-battle-marks*
|
|
(draw-battle-marks self)
|
|
)
|
|
)
|
|
:code sleep-code
|
|
)
|
|
|
|
(defstate notice (battle)
|
|
:virtual #t
|
|
:event battle-event-handler
|
|
:enter (behavior ()
|
|
(set-time! (-> self state-time))
|
|
(let ((gp-0 (-> self on-notice)))
|
|
(if gp-0
|
|
(script-eval (the-as pair gp-0) :vector (-> self root trans))
|
|
)
|
|
)
|
|
(set-battle-music self)
|
|
(if (-> self spawn-initial-creatures?)
|
|
(spawn-initial-creatures self)
|
|
)
|
|
(if (logtest? (-> self flags) (battle-flags noticed))
|
|
(go-virtual hostile)
|
|
)
|
|
(logior! (-> self flags) (battle-flags noticed))
|
|
)
|
|
:trans (behavior ()
|
|
(if *display-battle-marks*
|
|
(draw-battle-marks self)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(go-virtual hostile)
|
|
)
|
|
)
|
|
|
|
(defmethod update-allies-list ((this battle))
|
|
(with-pp
|
|
(let ((v1-0 (-> this allies))
|
|
(gp-0 (-> this allies length))
|
|
)
|
|
(when (> gp-0 0)
|
|
(let* ((a1-4 (mod (-> pp clock integral-frame-counter) gp-0))
|
|
(a3-0 (-> v1-0 data a1-4))
|
|
)
|
|
(when (logtest? (-> a3-0 entity extra perm status) (entity-perm-status dead))
|
|
(+! (-> this die-count) 1)
|
|
(+! gp-0 -1)
|
|
(set! (-> v1-0 length) gp-0)
|
|
(if (and (nonzero? gp-0) (!= a1-4 gp-0))
|
|
(mem-copy! (the-as pointer a3-0) (the-as pointer (-> v1-0 data gp-0)) 4)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod beaten? ((this battle))
|
|
(let ((s5-0 (spawner-active-count this))
|
|
(v1-2 (update-allies-list this))
|
|
(a1-0 (-> this child))
|
|
(a0-3 0)
|
|
)
|
|
(while a1-0
|
|
(+! a0-3 1)
|
|
(set! a1-0 (-> a1-0 0 brother))
|
|
(nop!)
|
|
(nop!)
|
|
)
|
|
(set! (-> this stat-child-count) (the-as uint a0-3))
|
|
(let ((a0-4 (+ v1-2 a0-3))
|
|
(v1-4 (-> this max-count))
|
|
)
|
|
(if (>= (-> this die-count) v1-4)
|
|
(return #t)
|
|
)
|
|
(logclear! (-> this flags) (battle-flags no-spawner-block))
|
|
(cond
|
|
((and (> s5-0 0) (>= s5-0 (the-as int (- v1-4 (-> this die-count)))))
|
|
(let ((a1-10 (-> this jammed-starting-time)))
|
|
(cond
|
|
((zero? (-> this jammed-starting-time))
|
|
(set-time! (-> this jammed-starting-time))
|
|
)
|
|
(else
|
|
(if (time-elapsed? a1-10 (seconds 3.5))
|
|
(logior! (-> this flags) (battle-flags no-spawner-block))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> this jammed-starting-time) 0)
|
|
0
|
|
)
|
|
)
|
|
(cond
|
|
((and (not (logtest? (-> this flags) (battle-flags beaten)))
|
|
(> (-> this spawners length) 0)
|
|
(< a0-4 (the-as int (-> this info desired-alive-count)))
|
|
(< (-> this count) v1-4)
|
|
)
|
|
(when (time-elapsed? (-> this cant-spawn-time) (the-as time-frame (-> this next-spawn-delay)))
|
|
(let ((a1-25 (get-best-spawner this)))
|
|
(cond
|
|
(a1-25
|
|
(spawn-from-spawner this a1-25 #f)
|
|
(set! (-> this next-spawn-delay) (the-as uint (get-spawn-delay this)))
|
|
(set-time! (-> this cant-spawn-time))
|
|
)
|
|
(else
|
|
(set-time! (-> this cant-spawn-time))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set-time! (-> this cant-spawn-time))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
(defstate hostile (battle)
|
|
:virtual #t
|
|
:event battle-event-handler
|
|
:enter (behavior ()
|
|
(set-time! (-> self state-time))
|
|
(logior! (-> self flags) (battle-flags active))
|
|
(logclear! (-> self flags) (battle-flags no-spawner-block))
|
|
(set! (-> self jammed-starting-time) 0)
|
|
(set! (-> self cant-spawn-time) 0)
|
|
(set! (-> self next-spawn-delay) (the-as uint 0))
|
|
(set-battle-music self)
|
|
(let ((gp-0 (-> self on-hostile)))
|
|
(if gp-0
|
|
(script-eval (the-as pair gp-0) :vector (-> self root trans))
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(if (beaten? self)
|
|
(go-virtual beaten)
|
|
)
|
|
(if *display-battle-marks*
|
|
(draw-battle-marks self)
|
|
)
|
|
)
|
|
:code sleep-code
|
|
)
|
|
|
|
(defstate beaten (battle)
|
|
:virtual #t
|
|
:event battle-event-handler
|
|
:enter (behavior ()
|
|
(when (not (and (-> self entity) (logtest? (-> self entity extra perm status) (entity-perm-status subtask-complete)))
|
|
)
|
|
(let ((gp-0 (-> self on-beaten)))
|
|
(if gp-0
|
|
(script-eval (the-as pair gp-0) :vector (-> self root trans))
|
|
)
|
|
)
|
|
)
|
|
(process-entity-status! self (entity-perm-status subtask-complete) #t)
|
|
(unset-battle-music self)
|
|
)
|
|
:code sleep-code
|
|
)
|
|
|
|
;; WARN: Return type mismatch battle-flags vs none.
|
|
(defmethod set-battle-music ((this battle))
|
|
(let ((a3-0 (-> this info play-battle-music)))
|
|
(when (and a3-0 (not (logtest? (-> this flags) (battle-flags battle-music-set))))
|
|
(case a3-0
|
|
(('sound-mode)
|
|
(set-setting! 'sound-mode #f 0.0 1)
|
|
)
|
|
(else
|
|
(set-setting! 'music a3-0 0.0 0)
|
|
)
|
|
)
|
|
(logior! (-> this flags) (battle-flags battle-music-set))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defmethod unset-battle-music ((this battle))
|
|
(when (logtest? (-> this flags) (battle-flags battle-music-set))
|
|
(remove-setting! 'sound-mode)
|
|
(remove-setting! 'music)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod relocate ((this battle-spawner-array) (offset int))
|
|
(dotimes (v1-0 (-> this length))
|
|
(let ((a2-3 (-> this data v1-0)))
|
|
(&+! (-> a2-3 breeds) offset)
|
|
(if (-> a2-3 intro-path)
|
|
(&+! (-> a2-3 intro-path) offset)
|
|
)
|
|
)
|
|
)
|
|
this
|
|
)
|
|
|
|
(defmethod relocate ((this battle) (offset int))
|
|
(&+! (-> this spawners) offset)
|
|
(&+! (-> this allies) offset)
|
|
(call-parent-method this offset)
|
|
)
|
|
|
|
(defmethod initialize-spawner-breeds ((this battle) (arg0 battle-spawner) (arg1 entity-actor))
|
|
(local-vars (sv-16 res-tag) (sv-32 res-tag))
|
|
(let ((s2-0 0)
|
|
(s5-0 0)
|
|
(s4-0 0)
|
|
)
|
|
(set! sv-16 (new 'static 'res-tag))
|
|
(let ((s1-0 (res-lump-data arg1 'spawn-types pointer :tag-ptr (& sv-16))))
|
|
(dotimes (s0-0 2)
|
|
(set! s2-0 0)
|
|
(when s1-0
|
|
(set! s4-0 (the-as int (-> sv-16 elt-count)))
|
|
(dotimes (v1-5 s4-0)
|
|
(let ((a0-4 (-> (the-as (pointer uint32) (&+ s1-0 (* v1-5 4))))))
|
|
(when (nonzero? a0-4)
|
|
(set! s5-0 (logior s5-0 (ash 1 v1-5)))
|
|
(+! s2-0 1)
|
|
(when (= s0-0 1)
|
|
(let ((a1-10 (-> arg0 breeds data (+ s2-0 -1))))
|
|
(set! (-> a1-10 breed-type) (the-as type a0-4))
|
|
(set! (-> a1-10 percent) 1.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (zero? s0-0)
|
|
(set! (-> arg0 breeds) (new 'process 'battle-breed-array (max 1 s2-0)))
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((zero? s2-0)
|
|
(let ((v1-15 (-> arg0 breeds data)))
|
|
(set! (-> v1-15 0 breed-type) (-> arg1 etype))
|
|
(set! (-> v1-15 0 percent) 1.0)
|
|
)
|
|
)
|
|
(else
|
|
(set! sv-32 (new 'static 'res-tag))
|
|
(let ((v1-18 (res-lump-data arg1 'spawn-percs pointer :tag-ptr (& sv-32))))
|
|
(when v1-18
|
|
(let ((a0-16 (min (the-as int (-> sv-32 elt-count)) s4-0))
|
|
(a1-14 0)
|
|
(a2-7 (-> arg0 breeds))
|
|
)
|
|
(dotimes (a3-2 a0-16)
|
|
(when (logtest? s5-0 (ash 1 a3-2))
|
|
(let ((t0-8 (-> a2-7 data a1-14)))
|
|
(set! (-> t0-8 percent) (-> (the-as (pointer float) (&+ v1-18 (* a3-2 4)))))
|
|
)
|
|
(+! a1-14 1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((f30-0 0.0)
|
|
(s5-1 (-> arg0 breeds))
|
|
)
|
|
(dotimes (v1-20 (-> s5-1 length))
|
|
(+! f30-0 (-> s5-1 data v1-20 percent))
|
|
)
|
|
(when (!= f30-0 1.0)
|
|
(format
|
|
0
|
|
"WARNING: battle spawner ~A has spawn percents that don't sum to 1.0.~%"
|
|
(res-lump-struct (-> arg0 entity) 'name structure)
|
|
)
|
|
(dotimes (v1-26 (-> s5-1 length))
|
|
(let ((a0-27 (-> s5-1 data v1-26)))
|
|
(set! (-> a0-27 percent) (/ (-> a0-27 percent) f30-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defmethod initialize-spawner ((this battle) (arg0 battle-spawner) (arg1 entity-actor))
|
|
(set! (-> arg0 flags) (battle-spawner-flags))
|
|
(set! (-> arg0 entity) arg1)
|
|
(set! (-> arg0 creature-index) 0)
|
|
(set! (-> arg0 ready-index) -1)
|
|
(set! (-> arg0 attack-index) 0)
|
|
(set! (-> arg0 intro-path) #f)
|
|
(set! (-> arg0 notice-attack-delay)
|
|
(the-as uint (rand-vu-int-range
|
|
(the-as int (-> this info min-spawner-notice-attack-delay))
|
|
(the-as int (-> this info max-spawner-notice-attack-delay))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> arg0 creature) (the-as handle #f))
|
|
(set! (-> arg0 last-spawn-time) 0)
|
|
(set! (-> arg0 noticed-attack-time) 0)
|
|
(initialize-spawner-breeds this arg0 arg1)
|
|
(let ((a0-4 (new 'process 'path-control this 'intro 0.0 arg1 #t)))
|
|
(cond
|
|
((nonzero? a0-4)
|
|
(set! (-> arg0 intro-path) a0-4)
|
|
(logior! (-> a0-4 flags) (path-control-flag display draw-line draw-point draw-text))
|
|
(let ((s5-1 (-> a0-4 curve num-cverts)))
|
|
(let ((v1-9 (+ s5-1 -1)))
|
|
(set! (-> arg0 attack-index) v1-9)
|
|
(get-point-in-path! a0-4 (-> arg0 attack-pos) (the float v1-9) 'exact)
|
|
)
|
|
(let ((v0-4 -1))
|
|
(if (< 2 s5-1)
|
|
(set! v0-4 1)
|
|
)
|
|
(set! (-> arg0 ready-index) v0-4)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> arg0 attack-pos quad) (-> arg0 entity extra trans quad))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defmethod initialize-ally ((this battle) (arg0 battle-ally) (arg1 entity-actor))
|
|
(set! (-> arg0 entity) arg1)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod initialize-enemy-lists ((this battle))
|
|
(local-vars (v0-4 battle-ally-array) (sv-16 res-tag) (sv-32 entity-actor))
|
|
(set! sv-16 (new 'static 'res-tag))
|
|
(let ((v0-0 (res-lump-data (-> this entity) 'actor-groups pointer :tag-ptr (& sv-16))))
|
|
(when (and v0-0 (nonzero? (-> sv-16 elt-count)))
|
|
(let* ((s5-0 (-> (the-as (pointer actor-group) v0-0) 0))
|
|
(s4-0 (-> s5-0 length))
|
|
)
|
|
(dotimes (s3-0 2)
|
|
(let ((s1-0 0)
|
|
(s2-0 0)
|
|
)
|
|
(dotimes (s0-0 s4-0)
|
|
(set! sv-32 (-> s5-0 data s0-0 actor))
|
|
(when sv-32
|
|
(let ((v0-1 (res-lump-value sv-32 'enemy-options uint128 :time -1000000000.0)))
|
|
(cond
|
|
((logtest? #x80000 v0-1)
|
|
(+! s1-0 1)
|
|
(cond
|
|
((zero? s3-0)
|
|
0
|
|
)
|
|
(else
|
|
(let ((a1-2 (-> this spawners data (+ s1-0 -1))))
|
|
(initialize-spawner this a1-2 sv-32)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(when (not (logtest? (-> sv-32 extra perm status) (entity-perm-status dead)))
|
|
(+! s2-0 1)
|
|
(cond
|
|
((zero? s3-0)
|
|
0
|
|
)
|
|
(else
|
|
(let ((a1-3 (-> this allies data (+ s2-0 -1))))
|
|
(initialize-ally this a1-3 sv-32)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! v0-4 (when (zero? s3-0)
|
|
(set! (-> this spawners) (new 'process 'battle-spawner-array s1-0))
|
|
(set! v0-4 (new 'process 'battle-ally-array s2-0))
|
|
(set! (-> this allies) v0-4)
|
|
v0-4
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod initialize-battle ((this battle))
|
|
(set! (-> this spawn-initial-creatures?) #t)
|
|
(set! (-> this count) (the-as uint 0))
|
|
(set! (-> this die-count) (the-as uint 0))
|
|
(set! (-> this stat-child-count) (the-as uint 0))
|
|
(let ((v1-2 (res-lump-value (-> this entity) 'extra-id uint128 :default (the-as uint128 -1) :time -1000000000.0))
|
|
(a0-2 *battles*)
|
|
)
|
|
(dotimes (a1-1 (-> a0-2 length))
|
|
(let ((a2-3 (-> a0-2 a1-1)))
|
|
(when (= (the-as uint v1-2) (-> a2-3 id))
|
|
(set! (-> this info) a2-3)
|
|
(goto cfg-7)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(go process-drawable-art-error "bad battle id")
|
|
(label cfg-7)
|
|
(set! (-> this on-notice) (res-lump-struct (-> this entity) 'on-notice basic))
|
|
(set! (-> this on-hostile) (res-lump-struct (-> this entity) 'on-hostile basic))
|
|
(set! (-> this on-beaten) (res-lump-struct (-> this entity) 'on-beaten basic))
|
|
(initialize-enemy-lists this)
|
|
(+! (-> this count) (-> this allies length))
|
|
(let ((v1-16 (-> this info max-count)))
|
|
(cond
|
|
((and (= v1-16 #x20000000) (zero? (-> this spawners length)))
|
|
(set! v1-16 (-> this count))
|
|
)
|
|
((< v1-16 (-> this count))
|
|
(set! v1-16 (-> this count))
|
|
)
|
|
)
|
|
(set! (-> this max-count) v1-16)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod init-go ((this battle))
|
|
(if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status subtask-complete)))
|
|
(go (method-of-object this beaten))
|
|
(go (method-of-object this idle))
|
|
)
|
|
0
|
|
)
|
|
|
|
;; WARN: Return type mismatch int vs object.
|
|
(defmethod init-from-entity! ((this battle) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask enemy))
|
|
(let ((s4-0 (new 'process 'trsqv)))
|
|
(set! (-> this root) s4-0)
|
|
(set! (-> s4-0 trans quad) (-> arg0 extra trans quad))
|
|
(quaternion-copy! (-> s4-0 quat) (-> arg0 quat))
|
|
(vector-identity! (-> s4-0 scale))
|
|
)
|
|
(initialize-battle this)
|
|
(init-go this)
|
|
)
|