From 4e77d6ea61161f228d142706dca494c2e7f12360 Mon Sep 17 00:00:00 2001
From: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
Date: Sat, 30 May 2026 11:14:29 +0200
Subject: [PATCH] jak1: fix mole crash on foot (#4294)

Another classic case of missing event args, though this one is fatal on
PS2 as well.
---
 goal_src/jak1/levels/rolling/rolling-lightning-mole.gc | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/goal_src/jak1/levels/rolling/rolling-lightning-mole.gc b/goal_src/jak1/levels/rolling/rolling-lightning-mole.gc
index 2dce7bde3a..0625c9d384 100644
--- a/goal_src/jak1/levels/rolling/rolling-lightning-mole.gc
+++ b/goal_src/jak1/levels/rolling/rolling-lightning-mole.gc
@@ -97,7 +97,6 @@
    (max-flee-rotation       float))
   :allow-misaligned)
 
-
 (deftype fleeing-nav-enemy (nav-enemy)
   ((last-reflection-time time-frame)
    (run-blend-interp     float)
@@ -108,7 +107,6 @@
   (:states
    fleeing-nav-enemy-debug))
 
-
 (defbehavior fleeing-nav-enemy-adjust-nav-info fleeing-nav-enemy ()
   (let ((f30-0 (vector-vector-distance (-> *camera* tpos-curr-adj) (-> *camera* tpos-old-adj))))
     ;; og:preserve-this
@@ -359,7 +357,6 @@
    lightning-mole-hiding
    lightning-mole-yelp))
 
-
 (defskelgroup *lightning-mole-sg*
   lightning-mole
   lightning-mole-lod0-jg
@@ -614,13 +611,15 @@
 (defmethod attack-handler ((this lightning-mole) (arg0 process) (arg1 event-message-block))
   (send-event arg0 'get-attack-count 1)
   (when (!= (-> this state) lightning-mole-yelp)
-    (send-event arg0 'jump 32768.0 32768.0)
+    ;; og:preserve-this fix missing event arg
+    (send-event arg0 'jump 32768.0 32768.0 #f)
     (go lightning-mole-yelp))
   #t)
 
 (defmethod touch-handler ((this lightning-mole) (arg0 process) (arg1 event-message-block))
   (when (!= (-> this state) lightning-mole-yelp)
-    (send-event arg0 'jump 32768.0 32768.0)
+    ;; og:preserve-this fix missing event arg
+    (send-event arg0 'jump 32768.0 32768.0 #f)
     (go lightning-mole-yelp))
   #t)
 
@@ -876,7 +875,6 @@
    peeper-up
    peeper-wait))
 
-
 (defstate peeper-wait (peeper)
   :event
     (behavior ((proc process) (argc int) (message symbol) (block event-message-block))