From ff80598e0b59a222f9e205e4ce92902aee684cbd Mon Sep 17 00:00:00 2001
From: Ash Ketchum <no-reply@sl0p.foo>
Date: Wed, 15 Jul 2026 02:27:44 +0200
Subject: menu: HMS - give all five HMs (Cut/Fly/Surf/Strength/Flash)

SL0P MENU now 12 entries. HMs let you use field moves anywhere to complement
the warp/noclip goals.
---
 engine/slop_menu.asm | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

(limited to 'engine')

diff --git a/engine/slop_menu.asm b/engine/slop_menu.asm
index df9e3f08..8bbbf19f 100644
--- a/engine/slop_menu.asm
+++ b/engine/slop_menu.asm
@@ -8,7 +8,7 @@
 ; To add an entry: add a "NAME" line to SlopMenuText, a `dw Handler` to
 ; SlopMenuHandlers, and bump SLOP_MENU_COUNT.
 
-DEF SLOP_MENU_COUNT EQU 11
+DEF SLOP_MENU_COUNT EQU 12
 
 SECTION "Slop Menu", ROMX
 
@@ -32,11 +32,11 @@ SlopMenu::
 	hlcoord 6, 3
 	ld de, SlopMenuText
 	call PlaceString
-; ON marker for the NOWILD toggle (item 9 -> row 12)
+; ON marker for the NOWILD toggle (item 10 -> row 13)
 	ld a, [wSlopNoWild]
 	and a
 	jr z, .nowildOff
-	hlcoord 13, 12
+	hlcoord 13, 13
 	ld de, SlopOnText
 	call PlaceString
 .nowildOff
@@ -112,6 +112,7 @@ SlopMenuText:
 	next "DEX"
 	next "MAXTEAM"
 	next "TEACH"
+	next "HMS"
 	next "ITEMS"
 	next "NOWILD"
 	next "REPEL@"
@@ -126,6 +127,7 @@ SlopMenuHandlers:
 	dw SlopDex
 	dw SlopMaxTeam
 	dw SlopTeach
+	dw SlopGiveHMs
 	dw GiveItemSubmenu
 	dw SlopToggleNoWild
 	dw SlopRepel
@@ -353,6 +355,21 @@ SlopTeach:
 	and a
 	ret
 
+; HMS: give all five HMs (Cut/Fly/Surf/Strength/Flash)
+SlopGiveHMs:
+	ld b, HM_CUT
+.loop
+	push bc
+	ld c, 1
+	call GiveItem
+	pop bc
+	inc b
+	ld a, b
+	cp HM_FLASH + 1
+	jr nz, .loop
+	and a
+	ret
+
 ; MONEY: 999999 (BCD)
 SlopMaxCash:
 	ld a, $99
-- 
cgit v1.3.1-sl0p