regressions

This commit is contained in:
Hat Kid
2026-04-14 09:34:28 +02:00
parent c7783d5272
commit 21a148f9ea
2 changed files with 13 additions and 9 deletions
+5 -6
View File
@@ -114,7 +114,6 @@
hud-normal
hud-waiting))
(define *fp-hud-stack* (malloc 'global #x3800))
(defmethod deactivate ((this first-person-hud))
@@ -1656,11 +1655,11 @@
(cond
((and sv-44 (< (- (-> (the-as target s4-0) control trans y) (-> (the-as target s4-0) control unknown-vector52 y)) arg2))
(vector-xz-normalize! (-> (the-as target s4-0) control transv) (the-as float 0.0))
(case (-> (the-as target s4-0) current-level name)
(('jungleb)
(let ((v1-16 (vector-! (new-stack-vector0) (-> (the-as target s4-0) control trans) sv-40)))
(set! (-> (the-as target s4-0) control trans x) (+ (-> sv-40 x) (fmax -4096.0 (fmin 4096.0 (-> v1-16 x)))))
(set! (-> (the-as target s4-0) control trans z) (+ (-> sv-40 z) (fmax -4096.0 (fmin 4096.0 (-> v1-16 z)))))))))
;; og:preserve-this PAL patch here
(when (< (vector-vector-xz-distance (-> (the-as target s4-0) control trans) sv-40) 20480.0)
(let ((v1-16 (vector-! (new-stack-vector0) (-> (the-as target s4-0) control trans) sv-40)))
(set! (-> (the-as target s4-0) control trans x) (+ (-> sv-40 x) (fmax -2867.2 (fmin 2867.2 (-> v1-16 x)))))
(set! (-> (the-as target s4-0) control trans z) (+ (-> sv-40 z) (fmax -2867.2 (fmin 2867.2 (-> v1-16 z))))))))
(else
(if sv-44 (set! sv-32 (current-time)))
(set! sv-44 (the-as symbol #f))
+8 -3
View File
@@ -53,7 +53,6 @@
(min-walk-anim-speed float)
(speed-boost-impulse meters)))
(define *YAKOW-bank*
(new 'static
'yakow-bank
@@ -113,7 +112,6 @@
yakow-run-away
(yakow-walk-to vector)))
(defskelgroup *yakow-sg*
yakow
yakow-lod0-jg
@@ -156,7 +154,14 @@ yakow-default-event-handler
(close-specific-task! (-> self entity extra perm task) (task-status need-introduction))
(close-specific-task! (-> self entity extra perm task) (task-status need-reminder))
(if gp-0 (yakow-cam))
(level-hint-spawn (text-id village1-yakow-resolution) "sksp018a" (the-as entity #f) *entity-pool* (game-task none)))
;; og:preserve-this PAL patch here
(process-spawn-function process
(lambda :behavior process ()
(while (or (-> *setting-control* current ambient) (-> *setting-control* current movie) (-> *setting-control* current hint))
(suspend))
(level-hint-spawn (text-id village1-yakow-resolution) "sksp018a" (the-as entity #f) *entity-pool* (game-task none)))
:to
self))
(else (open-specific-task! (-> self entity extra perm task) (task-status need-reminder))))
sv-16))))