1 files changed, 60 insertions, 0 deletions
diff --git a/slop_drive.sh b/slop_drive.sh
new file mode 100644
index 0000000..3ca019d
--- /dev/null
+++ b/slop_drive.sh
@@ -0,0 +1,60 @@
+#!/usr/bin/env bash
+# Robust driver for the SL0P menu: verify each state transition via WRAM
+# sidechannels before sending more input, instead of racing the menu poll.
+#   sidechannels:
+#     0xCFCA wUpdateSpritesEnabled : 01 = overworld, ff = SL0P menu / EXPLORE / saver
+#     0xCC26 wCurrentMenuItem      : menu cursor index (valid while a menu is open)
+#     0xD35D wCurMap  0xD360 wYCoord  0xD361 wXCoord
+SOCK=$(./gbctl list | grep -o 'sock=[^ ]*' | cut -d= -f2)
+rd(){ ./gbctl read "$1" "${2:-1}" | cut -d' ' -f5- | tr -d ' '; }
+# reliable sidechannels: player sprite present in OAM => overworld; the "SL0P
+# MENU" title glyph at wTileMap(5,0)=0xC3A5 == 0x92 ('S') => the SL0P menu is up.
+# (wUpdateSpritesEnabled is NOT reliable: the top menu leaves it at 01.)
+in_ow(){ [ "$(rd 0xC300 1)" != "00" ]; }
+menu_up(){ [ "$(rd 0xC3A5 1)" = "92" ]; }
+cursor(){ printf '%d' "0x$(rd 0xCC26 1)"; }
+
+# back out to the overworld (press B until the player sprite is drawn again)
+reset_ow(){
+  for _ in $(seq 1 10); do
+    in_ow && return 0
+    ./gbctl press b:6 >/dev/null; sleep 0.5
+  done
+  echo "reset_ow: FAILED" >&2; return 1
+}
+
+# confirm we're actually in the overworld and idle (coords stable across a beat)
+wait_ow(){
+  for _ in $(seq 1 40); do
+    if in_ow; then
+      a=$(rd 0xD360); sleep 0.25; b=$(rd 0xD360)
+      [ "$a" = "$b" ] && { echo "overworld ready: map=$(rd 0xD35D) Y=$(rd 0xD360) X=$(rd 0xD361)"; return 0; }
+    fi
+    sleep 0.25
+  done
+  echo "wait_ow: FAILED" >&2; return 1
+}
+
+# open the SL0P menu (hold SELECT, verify via the title glyph, retry if not)
+open_menu(){
+  for _ in $(seq 1 12); do
+    menu_up && { echo "menu open"; return 0; }
+    ./gbctl press select:6 >/dev/null; sleep 0.6
+  done
+  echo "open_menu: FAILED" >&2; return 1
+}
+
+# move the menu cursor to index $1, one press at a time, verifying each step
+menu_to(){
+  local target=$1 c
+  for _ in $(seq 1 50); do
+    c=$(cursor)
+    [ "$c" -eq "$target" ] && { echo "cursor=$target"; return 0; }
+    if [ "$c" -lt "$target" ]; then ./gbctl press down:4 >/dev/null; else ./gbctl press up:4 >/dev/null; fi
+    sleep 0.4
+  done
+  echo "menu_to: FAILED (cursor=$c want $target)" >&2; return 1
+}
+
+# press A on the current menu item
+menu_select(){ ./gbctl press a:5 >/dev/null; sleep 0.9; }