Automatically detect invalid object_event or bg_event text IDs about pokered HOT 6 CLOSED

 MACRO bg_event
     db \2, \1, \3
+    DEF _BG_EVENT_{d:{_NUM_BG_EVENTS}}_TEXT_ID = \3
     DEF {_NUM_BG_EVENTS} += 1
 ENDM

 MACRO object_event
     ...
+    ; items and trainers don't use a typical text id
+    IF _NARG > 6
+        DEF _OBJECT_EVENT_{d:{_NUM_OBJECT_EVENTS}}_TEXT_ID = 0
+    ELSE
+        DEF _OBJECT_EVENT_{d:{_NUM_OBJECT_EVENTS}}_TEXT_ID = \6
+    ENDC
     DEF {_NUM_OBJECT_EVENTS} += 1
 ENDM

 MACRO def_warps_to
+    ; text ID values are significant (see DisplayTextID in home/text_script.asm)
+    FOR n, {_NUM_BG_EVENTS}
+        ASSERT _BG_EVENT_{d:n}_TEXT_ID > {_NUM_OBJECT_EVENTS}, \
+            "A bg_event has text ID {d:_BG_EVENT_{d:n}_TEXT_ID} expected for an object_event ({d:{_NUM_OBJECT_EVENTS}} or below)"
+    ENDR
+    FOR n, {_NUM_OBJECT_EVENTS}
+        ASSERT _OBJECT_EVENT_{d:n}_TEXT_ID <= {_NUM_OBJECT_EVENTS}, \
+            "An object_event has text ID {d:_OBJECT_EVENT_{d:n}_TEXT_ID} expected for a bg_event (above {d:{_NUM_OBJECT_EVENTS}})"
+    ENDR
-    FOR n, _NUM_WARP_EVENTS
+    FOR n, {_NUM_WARP_EVENTS}
         warp_to _WARP_{d:n}_X, _WARP_{d:n}_Y, \1_WIDTH
     ENDR
 ENDM

 MACRO bg_event
     db \2, \1, \3
+    REDEF _BG_EVENT_{d:{_NUM_BG_EVENTS}}_TEXT_ID EQUS "\3"
     DEF {_NUM_BG_EVENTS} += 1
 ENDM

 MACRO object_event
     ...
+    ; items and trainers don't use a typical text id
+    IF _NARG > 6
+        REDEF _OBJECT_EVENT_{d:{_NUM_OBJECT_EVENTS}}_TEXT_ID EQUS "0"
+    ELSE
+        REDEF _OBJECT_EVENT_{d:{_NUM_OBJECT_EVENTS}}_TEXT_ID EQUS "\6"
+    ENDC
     DEF {_NUM_OBJECT_EVENTS} += 1
 ENDM

 MACRO def_warps_to
+    ; text ID values are significant (see DisplayTextID in home/text_script.asm)
+    FOR n, {_NUM_BG_EVENTS}
+        ASSERT {_BG_EVENT_{d:n}_TEXT_ID} > {_NUM_OBJECT_EVENTS}, \
+            "A bg_event has a text ID {_BG_EVENT_{d:n}_TEXT_ID} expected for an object_event ({d:{_NUM_OBJECT_EVENTS}} or below)"
+    ENDR
+    FOR n, {_NUM_OBJECT_EVENTS}
+        ASSERT {_OBJECT_EVENT_{d:n}_TEXT_ID} <= {_NUM_OBJECT_EVENTS}, \
+            "An object_event has a text ID {_OBJECT_EVENT_{d:n}_TEXT_ID} expected for a bg_event (above {d:{_NUM_OBJECT_EVENTS}})"
+    ENDR
-    FOR n, _NUM_WARP_EVENTS
+    FOR n, {_NUM_WARP_EVENTS}
         warp_to _WARP_{d:n}_X, _WARP_{d:n}_Y, \1_WIDTH
     ENDR
 ENDM