summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Makefile44
-rw-r--r--README.md2
-rw-r--r--constants/item_data_constants.asm2
-rw-r--r--constants/misc_constants.asm3
-rw-r--r--engine/battle/effect_commands.asm17
-rw-r--r--engine/debug/color_picker.asm (renamed from engine/menus/debug.asm)0
-rw-r--r--engine/debug/debug_room.asm1762
-rw-r--r--engine/items/items.asm10
-rw-r--r--engine/items/mart.asm4
-rw-r--r--engine/items/switch_items.asm10
-rw-r--r--engine/menus/intro_menu.asm6
-rw-r--r--engine/menus/main_menu.asm47
-rw-r--r--engine/overworld/time.asm14
-rw-r--r--engine/pokemon/stats_screen.asm48
-rw-r--r--home/map.asm24
-rw-r--r--home/sram.asm16
-rw-r--r--hram.asm4
-rw-r--r--layout.link1
-rw-r--r--main.asm17
-rw-r--r--mobile/mobile_menu.asm6
-rw-r--r--mobile/stadium/stadium2_11_debug.binbin0 -> 544 bytes
-rw-r--r--mobile/stadium/stadium2_debug.binbin0 -> 544 bytes
-rw-r--r--roms.sha12
-rw-r--r--sram.asm8
-rw-r--r--wram.asm43
25 files changed, 2054 insertions, 36 deletions
diff --git a/Makefile b/Makefile
index bc9299f73..08c6bcf1d 100644
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-roms := pokecrystal.gbc pokecrystal11.gbc pokecrystal-au.gbc
+roms := pokecrystal.gbc pokecrystal11.gbc pokecrystal-au.gbc pokecrystal-debug.gbc pokecrystal11-debug.gbc
crystal_obj := \
audio.o \
@@ -17,8 +17,10 @@ gfx/sprites.o \
gfx/tilesets.o \
lib/mobile/main.o
-crystal11_obj := $(crystal_obj:.o=11.o)
-crystal_au_obj := $(crystal_obj:.o=_au.o)
+crystal11_obj := $(crystal_obj:.o=11.o)
+crystal_au_obj := $(crystal_obj:.o=_au.o)
+crystal_debug_obj := $(crystal_obj:.o=_debug.o)
+crystal11_debug_obj := $(crystal_obj:.o=11_debug.o)
### Build tools
@@ -39,24 +41,26 @@ RGBLINK ?= $(RGBDS)rgblink
### Build targets
.SUFFIXES:
-.PHONY: all crystal crystal11 crystal_au clean tidy compare tools
+.PHONY: all crystal crystal11 crystal-au crystal-debug crystal11-debug clean tidy compare tools
.SECONDEXPANSION:
.PRECIOUS:
.SECONDARY:
all: crystal
-crystal: pokecrystal.gbc
-crystal11: pokecrystal11.gbc
-crystal-au: pokecrystal-au.gbc
+crystal: pokecrystal.gbc
+crystal11: pokecrystal11.gbc
+crystal-au: pokecrystal-au.gbc
+crystal-debug: pokecrystal-debug.gbc
+crystal11-debug: pokecrystal11-debug.gbc
clean:
- rm -f $(roms) $(crystal_obj) $(crystal11_obj) $(crystal_au_obj) $(roms:.gbc=.map) $(roms:.gbc=.sym) rgbdscheck.o
+ rm -f $(roms) $(crystal_obj) $(crystal11_obj) $(crystal_au_obj) $(crystal_debug_obj) $(crystal11_debug_obj) $(roms:.gbc=.map) $(roms:.gbc=.sym) rgbdscheck.o
find gfx \( -name "*.[12]bpp" -o -name "*.lz" -o -name "*.gbcpal" -o -name "*.sgb.tilemap" \) -delete
find gfx/pokemon -mindepth 1 ! -path "gfx/pokemon/unown/*" \( -name "bitmask.asm" -o -name "frames.asm" -o -name "front.animated.tilemap" -o -name "front.dimensions" \) -delete
$(MAKE) clean -C tools/
tidy:
- rm -f $(roms) $(crystal_obj) $(crystal11_obj) $(crystal_au_obj) $(roms:.gbc=.map) $(roms:.gbc=.sym) rgbdscheck.o
+ rm -f $(roms) $(crystal_obj) $(crystal11_obj) $(crystal_au_obj) $(crystal_debug_obj) $(crystal11_debug_obj) $(roms:.gbc=.map) $(roms:.gbc=.sym) rgbdscheck.o
$(MAKE) clean -C tools/
compare: $(roms)
@@ -72,9 +76,11 @@ ifeq ($(DEBUG),1)
RGBASMFLAGS += -E
endif
-$(crystal_obj): RGBASMFLAGS +=
-$(crystal11_obj): RGBASMFLAGS += -D _CRYSTAL11
-$(crystal_au_obj): RGBASMFLAGS += -D _CRYSTAL11 -D _CRYSTAL_AU
+$(crystal_obj): RGBASMFLAGS +=
+$(crystal11_obj): RGBASMFLAGS += -D _CRYSTAL11
+$(crystal_au_obj): RGBASMFLAGS += -D _CRYSTAL11 -D _CRYSTAL_AU
+$(crystal_debug_obj): RGBASMFLAGS += -D _DEBUG
+$(crystal11_debug_obj): RGBASMFLAGS += -D _CRYSTAL11 -D _DEBUG
rgbdscheck.o: rgbdscheck.asm
$(RGBASM) -o $@ $<
@@ -93,9 +99,11 @@ ifeq (,$(filter clean tools,$(MAKECMDGOALS)))
$(info $(shell $(MAKE) -C tools))
-$(foreach obj, $(crystal_au_obj), $(eval $(call DEP,$(obj),$(obj:_au.o=.asm))))
-$(foreach obj, $(crystal11_obj), $(eval $(call DEP,$(obj),$(obj:11.o=.asm))))
$(foreach obj, $(crystal_obj), $(eval $(call DEP,$(obj),$(obj:.o=.asm))))
+$(foreach obj, $(crystal11_obj), $(eval $(call DEP,$(obj),$(obj:11.o=.asm))))
+$(foreach obj, $(crystal_au_obj), $(eval $(call DEP,$(obj),$(obj:_au.o=.asm))))
+$(foreach obj, $(crystal_debug_obj), $(eval $(call DEP,$(obj),$(obj:_debug.o=.asm))))
+$(foreach obj, $(crystal11_debug_obj), $(eval $(call DEP,$(obj),$(obj:11_debug.o=.asm))))
endif
@@ -112,6 +120,14 @@ pokecrystal-au.gbc: $(crystal_au_obj) layout.link
$(RGBLINK) -n pokecrystal-au.sym -m pokecrystal-au.map -l layout.link -p 0 -o $@ $(crystal_au_obj)
$(RGBFIX) -Cjv -t PM_CRYSTAL -i BYTU -k 01 -l 0x33 -m 0x10 -r 3 -p 0 $@
+pokecrystal-debug.gbc: $(crystal_debug_obj) layout.link
+ $(RGBLINK) -n pokecrystal-debug.sym -m pokecrystal-debug.map -l layout.link -p 0 -o $@ $(crystal_debug_obj)
+ $(RGBFIX) -Cjv -t PM_CRYSTAL -i BYTE -k 01 -l 0x33 -m 0x10 -r 3 -p 0 $@
+
+pokecrystal11-debug.gbc: $(crystal11_debug_obj) layout.link
+ $(RGBLINK) -n pokecrystal11-debug.sym -m pokecrystal11-debug.map -l layout.link -p 0 -o $@ $(crystal11_debug_obj)
+ $(RGBFIX) -Cjv -t PM_CRYSTAL -i BYTE -n 1 -k 01 -l 0x33 -m 0x10 -r 3 -p 0 $@
+
### LZ compression rules
diff --git a/README.md b/README.md
index 46962cb47..60fab7240 100644
--- a/README.md
+++ b/README.md
@@ -7,6 +7,8 @@ It builds the following ROMs:
- Pokemon - Crystal Version (UE) (V1.0) [C][!].gbc `sha1: f4cd194bdee0d04ca4eac29e09b8e4e9d818c133`
- Pokemon - Crystal Version (UE) (V1.1) [C][!].gbc `sha1: f2f52230b536214ef7c9924f483392993e226cfb`
- Pokemon - Crystal Version (A) [C][!].gbc `sha1: a0fc810f1d4e124434f7be2c989ab5b5892ddf36`
+- CRYSTAL_ps3_010328d.bin `sha1: c60d57a24bbe8ecf7cba54ab3f90669f97bd330d`
+- CRYSTAL_ps3_us_revise_010710d.bin `sha1: 391ae86b1d5a26db712ffe6c28bbf2a1f804c3c4`
To set up the repository, see [INSTALL.md](INSTALL.md).
diff --git a/constants/item_data_constants.asm b/constants/item_data_constants.asm
index 4c295d5b3..f6d6384ce 100644
--- a/constants/item_data_constants.asm
+++ b/constants/item_data_constants.asm
@@ -47,6 +47,8 @@ MAX_BALLS EQU 12
MAX_KEY_ITEMS EQU 25
MAX_PC_ITEMS EQU 50
+MAX_ITEM_STACK EQU 99
+
; mail
MAIL_LINE_LENGTH EQU $10
MAIL_MSG_LENGTH EQU $20
diff --git a/constants/misc_constants.asm b/constants/misc_constants.asm
index b492e958e..a3c31141c 100644
--- a/constants/misc_constants.asm
+++ b/constants/misc_constants.asm
@@ -19,6 +19,9 @@ GS_VERSION EQU 0
SAVE_CHECK_VALUE_1 EQU 99
SAVE_CHECK_VALUE_2 EQU 127
+; RTC halted check value
+RTC_HALT_VALUE EQU $1234
+
; time of day boundaries
MORN_HOUR EQU 4 ; 4 AM
DAY_HOUR EQU 10 ; 10 AM
diff --git a/engine/battle/effect_commands.asm b/engine/battle/effect_commands.asm
index d6f90d587..336d66e62 100644
--- a/engine/battle/effect_commands.asm
+++ b/engine/battle/effect_commands.asm
@@ -3432,7 +3432,24 @@ DoEnemyDamage:
ld [wBuffer4], a
sbc b
ld [wEnemyMonHP], a
+if DEF(_DEBUG)
+ push af
+ ld a, BANK(sSkipBattle)
+ call OpenSRAM
+ ld a, [sSkipBattle]
+ call CloseSRAM
+ or a
+ ; If [sSkipBattle] is nonzero, skip the "jr nc, .no_underflow" check,
+ ; so any attack deals maximum damage to the enemy.
+ jr nz, .debug_skip
+ pop af
+ jr nc, .no_underflow
+ push af
+.debug_skip
+ pop af
+else
jr nc, .no_underflow
+endc
ld a, [wBuffer4]
ld [hli], a
diff --git a/engine/menus/debug.asm b/engine/debug/color_picker.asm
index 6062e71aa..6062e71aa 100644
--- a/engine/menus/debug.asm
+++ b/engine/debug/color_picker.asm
diff --git a/engine/debug/debug_room.asm b/engine/debug/debug_room.asm
new file mode 100644
index 000000000..95692c8d3
--- /dev/null
+++ b/engine/debug/debug_room.asm
@@ -0,0 +1,1762 @@
+ ; _DebugRoom.MenuItems indexes
+ const_def
+ const DEBUGROOMMENU_PAGE_1 ; 0
+ const DEBUGROOMMENU_PAGE_2 ; 1
+ const DEBUGROOMMENU_PAGE_3 ; 2
+DEBUGROOMMENU_NUM_PAGES EQU const_value
+
+ ; _DebugRoom.Strings and _DebugRoom.Jumptable indexes
+ const_def
+ const DEBUGROOMMENUITEM_SP_CLEAR ; 00
+ const DEBUGROOMMENUITEM_WIN_WORK_CLR ; 01
+ const DEBUGROOMMENUITEM_POKEMON_GET ; 02
+ const DEBUGROOMMENUITEM_POKEDEX_COMP ; 03
+ const DEBUGROOMMENUITEM_TIMER_RESET ; 04
+ const DEBUGROOMMENUITEM_DECORATE_ALL ; 05
+ const DEBUGROOMMENUITEM_ITEM_GET ; 06
+ const DEBUGROOMMENUITEM_RTC_EDIT ; 07
+ const DEBUGROOMMENUITEM_NEXT ; 08
+ const DEBUGROOMMENUITEM_GB_ID_SET ; 09
+ const DEBUGROOMMENUITEM_BTL_REC_CLR ; 0a
+ const DEBUGROOMMENUITEM_POKEDEX_CLR ; 0b
+ const DEBUGROOMMENUITEM_HALT_CHK_CLR ; 0c
+ const DEBUGROOMMENUITEM_BATTLE_SKIP ; 0d
+ const DEBUGROOMMENUITEM_HOF_CLEAR ; 0e
+ const DEBUGROOMMENUITEM_ROM_CHECKSUM ; 0f
+ const DEBUGROOMMENUITEM_TEL_DEBUG ; 10
+ const DEBUGROOMMENUITEM_SUM_RECALC ; 11
+ const DEBUGROOMMENUITEM_RAM_FLAG_CLR ; 12
+ const DEBUGROOMMENUITEM_CHANGE_SEX ; 13
+ const DEBUGROOMMENUITEM_BT_BUG_POKE ; 14
+
+_DebugRoom:
+ ldh a, [hJoyDown]
+ and SELECT | START
+ cp SELECT | START
+ ret nz
+ ldh a, [hDebugRoomMenuPage]
+ push af
+ xor a
+ ldh [hDebugRoomMenuPage], a
+.loop
+ ld hl, wTilemap
+ ld bc, wTilemapEnd - wTilemap
+ ld a, " "
+ call ByteFill
+ call DebugRoom_PrintStackBottomTop
+ call DebugRoom_PrintWindowStackBottomTop
+ call DebugRoom_PrintRTCHaltChk
+ call DebugRoom_PrintBattleSkip
+ call DebugRoom_PrintTelDebug
+ call DebugRoom_PrintRAMFlag
+ call DebugRoom_PrintGender
+ ldh a, [hDebugRoomMenuPage]
+ ld [wWhichIndexSet], a
+ ld hl, .MenuHeader
+ call LoadMenuHeader
+ call SetUpMenu
+.wait
+ call GetScrollingMenuJoypad
+ ld a, [wMenuJoypad]
+ and A_BUTTON | B_BUTTON
+ jr z, .wait
+ call CloseWindow
+ cp B_BUTTON
+ jr z, .done
+ ld a, [wMenuSelection]
+ ld hl, .Jumptable
+ rst JumpTable
+ jr .loop
+.done
+ pop af
+ ldh [hDebugRoomMenuPage], a
+ ret
+
+.MenuHeader:
+ db MENU_BACKUP_TILES ; flags
+ menu_coords 0, 0, 15, SCREEN_HEIGHT - 1
+ dw .MenuData
+ db 1 ; default option
+
+.MenuData:
+ db STATICMENU_CURSOR ; flags
+ db 0 ; items
+ dw .MenuItems
+ dw PlaceMenuStrings
+ dw .Strings
+
+.Strings:
+; entries correspond to DEBUGROOMMENUITEM_* constants
+ db "SP CLEAR@"
+ db "WIN WORK CLR@"
+ db "#MON GET!@"
+ db "#DEX COMP@"
+ db "TIMER RESET@"
+ db "DECORATE ALL@"
+ db "ITEM GET!@"
+ db "RTC EDIT@"
+ db "NEXT@"
+ db "GB ID SET@"
+ db "BTL REC CLR@"
+ db "#DEX CLR@"
+ db "HALT CHK CLR@"
+ db "BATTLE SKIP@"
+ db "HOF CLEAR@"
+ db "ROM CHECKSUM@"
+ db "TEL DEBUG@"
+ db "SUM RECALC@"
+ db "RAM FLAG CLR@"
+ db "CHANGE SEX@"
+ db "BT BUG POKE@"
+
+.Jumptable:
+; entries correspond to DEBUGROOMMENUITEM_* constants
+ dw DebugRoomMenu_SpClear
+ dw DebugRoomMenu_WinWorkClr
+ dw DebugRoomMenu_PokemonGet
+ dw DebugRoomMenu_PokedexComp
+ dw DebugRoomMenu_TimerReset
+ dw DebugRoomMenu_DecorateAll
+ dw DebugRoomMenu_ItemGet
+ dw DebugRoomMenu_RTCEdit
+ dw DebugRoomMenu_Next
+ dw DebugRoomMenu_GBIDSet
+ dw DebugRoomMenu_BtlRecClr
+ dw DebugRoomMenu_PokedexClr
+ dw DebugRoomMenu_HaltChkClr
+ dw DebugRoomMenu_BattleSkip
+ dw DebugRoomMenu_HOFClear
+ dw DebugRoomMenu_ROMChecksum
+ dw DebugRoomMenu_TelDebug
+ dw DebugRoomMenu_SumRecalc
+ dw DebugRoomMenu_RAMFlagClr
+ dw DebugRoomMenu_ChangeSex
+ dw DebugRoomMenu_BTBugPoke
+
+.MenuItems:
+; entries correspond to DEBUGROOMMENU_* constants
+
+ ; DEBUGROOMMENU_PAGE_1
+ db 8
+ db DEBUGROOMMENUITEM_SP_CLEAR
+ db DEBUGROOMMENUITEM_BATTLE_SKIP
+ db DEBUGROOMMENUITEM_RTC_EDIT
+ db DEBUGROOMMENUITEM_TIMER_RESET
+ db DEBUGROOMMENUITEM_HALT_CHK_CLR
+ db DEBUGROOMMENUITEM_GB_ID_SET
+ db DEBUGROOMMENUITEM_BTL_REC_CLR
+ db DEBUGROOMMENUITEM_NEXT
+ db -1
+
+ ; DEBUGROOMMENU_PAGE_2
+ db 8
+ db DEBUGROOMMENUITEM_POKEMON_GET
+ db DEBUGROOMMENUITEM_ITEM_GET
+ db DEBUGROOMMENUITEM_POKEDEX_COMP
+ db DEBUGROOMMENUITEM_POKEDEX_CLR
+ db DEBUGROOMMENUITEM_DECORATE_ALL
+ db DEBUGROOMMENUITEM_HOF_CLEAR
+ db DEBUGROOMMENUITEM_ROM_CHECKSUM
+ db DEBUGROOMMENUITEM_NEXT
+ db -1
+
+ ; DEBUGROOMMENU_PAGE_3
+ db 6
+ db DEBUGROOMMENUITEM_TEL_DEBUG
+ db DEBUGROOMMENUITEM_SUM_RECALC
+ db DEBUGROOMMENUITEM_RAM_FLAG_CLR
+ db DEBUGROOMMENUITEM_CHANGE_SEX
+ db DEBUGROOMMENUITEM_BT_BUG_POKE
+ db DEBUGROOMMENUITEM_NEXT
+ db -1
+
+DebugRoomMenu_Next:
+ ldh a, [hDebugRoomMenuPage]
+ inc a
+ cp DEBUGROOMMENU_NUM_PAGES
+ jr c, .got_page
+ xor a ; DEBUGROOMMENU_PAGE_1
+.got_page
+ ldh [hDebugRoomMenuPage], a
+ ret
+
+DebugRoom_SaveChecksum:
+ ld a, BANK(sGameData)
+ call OpenSRAM
+ ld bc, sGameDataEnd - sGameData
+ ld de, 0
+ ld hl, sGameData
+.loop
+ ld a, [hli]
+ add e
+ ld e, a
+ ld a, d
+ adc 0
+ ld d, a
+ dec bc
+ ld a, b
+ or c
+ jr nz, .loop
+ ld a, e
+ ld [sChecksum + 0], a
+ ld a, d
+ ld [sChecksum + 1], a
+ call CloseSRAM
+ ret
+
+DebugRoomMenu_SpClear:
+ call YesNoBox
+ ret c
+ ld a, BANK(sStackTop)
+ call OpenSRAM
+ xor a
+ ld hl, sStackTop
+ ld [hli], a
+ ld [hl], a
+ call CloseSRAM
+ call DebugRoom_PrintStackBottomTop
+ ret
+
+DebugRoom_PrintStackBottomTop:
+ ld a, BANK(sStackTop)
+ call OpenSRAM
+ hlcoord 16, 14
+ ld de, sStackTop + 1
+ ld c, 1
+ call PrintHexNumber
+ ld de, sStackTop + 0
+ ld c, 1
+ call PrintHexNumber
+ call CloseSRAM
+ hlcoord 16, 12
+ ld de, .SPString
+ call PlaceString
+ ld d, LOW(wStackBottom)
+ ld e, HIGH(wStackBottom)
+ push de
+ ld hl, sp+0
+ ld d, h
+ ld e, l
+ hlcoord 16, 13
+ ld c, 2
+ call PrintHexNumber
+ pop de
+ ret
+
+.SPString:
+ db "SP:@"
+
+DebugRoomMenu_WinWorkClr:
+ call YesNoBox
+ ret c
+ ld a, [wWindowStackPointer]
+ ld l, a
+ ld a, [wWindowStackPointer + 1]
+ ld h, a
+ inc hl
+ ld a, l
+ sub LOW(wWindowStack)
+ ld a, h
+ sbc HIGH(wWindowStack)
+ ret c
+ ld a, $00
+ call OpenSRAM
+ ld bc, -wWindowStack + $10000
+ add hl, bc
+ ld b, h
+ ld c, l
+ ld hl, wWindowStack
+ xor a
+ call ByteFill
+ call CloseSRAM
+ ret
+
+DebugRoom_PrintWindowStackBottomTop:
+ ret ; stubbed out
+
+ ld a, $00
+ call OpenSRAM
+ ld hl, wWindowStack
+.loop
+ ld a, h
+ cp $c0
+ jr z, .ok
+ ld a, [hl]
+ or a
+ jr nz, .ok
+ inc hl
+ jr .loop
+.ok
+ call CloseSRAM
+ ld a, h
+ ld h, l
+ ld l, a
+ push hl
+ ld hl, sp+0
+ ld d, h
+ ld e, l
+ hlcoord 16, 17
+ ld c, 2
+ call PrintHexNumber
+ pop hl
+ ld d, LOW(wWindowStack)
+ ld e, HIGH(wWindowStack)
+ push de
+ ld hl, sp+0
+ ld d, h
+ ld e, l
+ hlcoord 16, 16
+ ld c, 2
+ call PrintHexNumber
+ pop de
+ hlcoord 16, 15
+ ld de, .WSPString
+ call PlaceString
+ ret
+
+.WSPString:
+ db "WSP:@"
+
+DebugRoomMenu_PokedexComp:
+ call YesNoBox
+ ret c
+ ld a, BANK(sGameData) ; aka BANK(sPlayerData)
+ call OpenSRAM
+ ld hl, sPlayerData + (wPokedexCaught - wPlayerData)
+ ld b, wEndPokedexSeen - wPokedexCaught
+ ld a, %11111111
+.loop1
+ ld [hli], a
+ dec b
+ jr nz, .loop1
+ ld a, (1 << (NUM_POKEMON % 8)) - 1 ; %00000111
+ ld [sPlayerData + (wEndPokedexCaught - 1 - wPlayerData)], a
+ ld [sPlayerData + (wEndPokedexSeen - 1 - wPlayerData)], a
+ ld hl, sPlayerData + (wStatusFlags - wPlayerData)
+ set STATUSFLAGS_UNOWN_DEX_F, [hl]
+ ld a, UNOWN_A
+ ld [sGameData + (wFirstUnownSeen - wGameData)], a
+ ld hl, sGameData + (wUnownDex - wGameData)
+ ld b, NUM_UNOWN
+.loop2
+ ld [hli], a
+ inc a
+ dec b
+ jr nz, .loop2
+ call CloseSRAM
+ call DebugRoom_SaveChecksum
+ ret
+
+DebugRoomMenu_PokedexClr:
+ call YesNoBox
+ ret c
+ ld a, BANK(sPlayerData)
+ call OpenSRAM
+ ld hl, sPlayerData + (wStatusFlags - wPlayerData)
+ res STATUSFLAGS_UNOWN_DEX_F, [hl]
+ ld hl, sPlayerData + (wPokedexCaught - wPlayerData)
+ ld bc, wEndPokedexSeen - wPokedexCaught
+ xor a
+ call ByteFill
+ ld hl, sGameData + (wUnownDex - wGameData)
+ ld bc, NUM_UNOWN
+ xor a
+ call ByteFill
+ call CloseSRAM
+ call DebugRoom_SaveChecksum
+ ret
+
+DebugRoomMenu_TimerReset:
+ call YesNoBox
+ ret c
+ ld a, BANK(sRTCStatusFlags)
+ call OpenSRAM
+ ld hl, sRTCStatusFlags
+ set 7, [hl]
+ call CloseSRAM
+ ret
+
+DebugRoomMenu_BattleSkip:
+ ld a, BANK(sSkipBattle)
+ call OpenSRAM
+ ld a, [sSkipBattle]
+ inc a
+ and 1
+ ld [sSkipBattle], a
+ call CloseSRAM
+ ret
+
+DebugRoom_PrintBattleSkip:
+ hlcoord 16, 6
+ ld de, .BTLString
+ call PlaceString
+ ld a, BANK(sSkipBattle)
+ call OpenSRAM
+ ld a, [sSkipBattle]
+ call CloseSRAM
+ hlcoord 16, 7
+ ld de, .DoString
+ or a
+ jr z, .ok
+ ld de, .SkipString
+.ok
+ call PlaceString
+ ret
+
+.BTLString:
+ db "BTL:@"
+.DoString:
+ db " DO@"
+.SkipString:
+ db "SKIP@"
+
+DebugRoomMenu_ChangeSex:
+ ld a, BANK(sCrystalData)
+ call OpenSRAM
+ ld a, [sCrystalData + (wPlayerGender - wCrystalData)]
+ inc a
+ and 1
+ ld [sCrystalData + (wPlayerGender - wCrystalData)], a
+ call CloseSRAM
+ ret
+
+DebugRoom_PrintGender:
+ hlcoord 16, 0
+ ld de, .SexString
+ call PlaceString
+ ld a, BANK(sCrystalData)
+ call OpenSRAM
+ ld a, [sCrystalData + (wPlayerGender - wCrystalData)]
+ call CloseSRAM
+ or a
+ ld a, "♂"
+ jr z, .ok
+ ld a, "♀"
+.ok
+ hlcoord 19, 1
+ ld [hl], a
+ ret
+
+.SexString:
+ db "SEX:@"
+
+DebugRoomMenu_TelDebug:
+ ld a, BANK(sDebugTimeCyclesSinceLastCall)
+ call OpenSRAM
+ ld a, [sDebugTimeCyclesSinceLastCall]
+ inc a
+ cp 3
+ jr c, .ok
+ xor a
+.ok
+ ld [sDebugTimeCyclesSinceLastCall], a
+ call CloseSRAM
+ ret
+
+DebugRoom_PrintTelDebug:
+ hlcoord 16, 16
+ ld de, .TelString
+ call PlaceString
+ ld a, BANK(sDebugTimeCyclesSinceLastCall)
+ call OpenSRAM
+ ld a, [sDebugTimeCyclesSinceLastCall]
+ call CloseSRAM
+ hlcoord 16, 17
+ ld de, .BusyString
+ dec a
+ jr z, .ok
+ ld de, .HardString
+ dec a
+ jr z, .ok
+ ld de, .OffString
+.ok
+ call PlaceString
+ ret
+
+.TelString:
+ db "TEL:@"
+.OffString:
+ db " OFF@"
+.BusyString:
+ db "BUSY@"
+.HardString:
+ db "HARD@"
+
+DebugRoomMenu_RAMFlagClr:
+ call YesNoBox
+ ret c
+ ld a, BANK(sOpenedInvalidSRAM)
+ call OpenSRAM
+ xor a
+ ld [sOpenedInvalidSRAM], a
+ call CloseSRAM
+ ret
+
+DebugRoom_PrintRAMFlag:
+ ld a, BANK(sOpenedInvalidSRAM)
+ call OpenSRAM
+ ld de, sOpenedInvalidSRAM
+ hlcoord 18, 4
+ ld c, 1
+ call PrintHexNumber
+ call CloseSRAM
+ hlcoord 16, 3
+ ld de, .RamString
+ call PlaceString
+ ret
+
+.RamString:
+ db "RAM:@"
+
+DebugRoomMenu_SumRecalc:
+ call YesNoBox
+ ret c
+ call DebugRoom_SaveChecksum
+ ret
+
+DebugRoomMenu_DecorateAll:
+ call YesNoBox
+ ret c
+ ld a, BANK(sPlayerData)
+ call OpenSRAM
+ ld hl, sPlayerData + (wEventFlags - wPlayerData)
+ ld de, EVENT_DECO_BED_1 ; the first EVENT_DECO_* constant
+ ld b, SET_FLAG
+ ld c, EVENT_DECO_BIG_LAPRAS_DOLL - EVENT_DECO_BED_1 + 1
+.loop
+ push bc
+ push de
+ push hl
+ call FlagAction
+ pop hl
+ pop de
+ pop bc
+ inc de
+ dec c
+ jr nz, .loop
+ call CloseSRAM
+ call DebugRoom_SaveChecksum
+ ret
+
+paged_value: MACRO
+ dw \1 ; value address
+ db \2 ; min value
+ db \3 ; max value
+ db \4 ; initial value
+ dw \5 ; label string
+ dw \6 ; value name function
+ db \7 ; is hex value?
+ENDM
+
+PAGED_VALUE_SIZE EQU 10
+
+DebugRoom_EditPagedValues:
+ xor a
+ ld [wDebugRoomCurPage], a
+ ld [wDebugRoomCurValue], a
+ ld a, [hli]
+ ld [wDebugRoomAFunction], a
+ ld a, [hli]
+ ld [wDebugRoomAFunction+1], a
+ ld a, [hli]
+ ld [wDebugRoomSelectFunction], a
+ ld a, [hli]
+ ld [wDebugRoomSelectFunction+1], a
+ ld a, [hli]
+ ld [wDebugRoomStartFunction], a
+ ld a, [hli]
+ ld [wDebugRoomStartFunction+1], a
+ ld a, [hli]
+ ld [wDebugRoomAutoFunction], a
+ ld a, [hli]
+ ld [wDebugRoomAutoFunction+1], a
+ ld a, [hli]
+ ld [wDebugRoomPageCount], a
+ ld a, l
+ ld [wDebugRoomPagedValuesPtr], a
+ ld a, h
+ ld [wDebugRoomPagedValuesPtr+1], a
+ ld hl, hInMenu
+ ld a, [hl]
+ push af
+ ld [hl], TRUE
+ call ClearBGPalettes
+ hlcoord 0, 0
+ ld b, SCREEN_HEIGHT - 2
+ ld c, SCREEN_WIDTH - 2
+ call Textbox
+ hlcoord 8, 17
+ ld de, DebugRoom_PageString
+ call PlaceString
+ call DebugRoom_InitializePagedValues
+ xor a
+ call DebugRoom_PrintPage
+ ld a, "▶"
+ call DebugRoom_ShowHideCursor
+ xor a
+ ldh [hJoyLast], a
+ xor a
+ ld [wDebugRoomCurPage], a
+ inc a
+ ldh [hBGMapMode], a
+ call WaitBGMap
+ ld b, SCGB_DIPLOMA
+ call GetSGBLayout
+ call SetPalettes
+.resume
+ call DelayFrame
+ call JoyTextDelay
+ ldh a, [hJoyLast]
+ bit 1, a
+ jr nz, .done
+ ld hl, .continue
+ push hl
+ rra ; A_BUTTON_F?
+ jr c, DebugRoom_PagedValuePressedA
+ rra ; skip B_BUTTON_F
+ rra ; SELECT_F?
+ jr c, DebugRoom_PagedValuePressedSelect
+ rra ; START_F?
+ jr c, DebugRoom_PagedValuePressedStart
+ rra ; D_RIGHT_F?
+ jp c, DebugRoom_IncrementPagedValue
+ rra ; D_LEFT_F?
+ jp c, DebugRoom_DecrementPagedValue
+ rra ; D_UP_F?
+ jp c, DebugRoom_PrevPagedValue
+ rra ; D_DOWN_F?
+ jp c, DebugRoom_NextPagedValue
+ pop hl
+.continue
+; call wDebugRoomAutoFunction if it's not null, then jump to .resume
+ ld hl, .resume
+ push hl
+ ld a, [wDebugRoomAutoFunction]
+ ld l, a
+ ld a, [wDebugRoomAutoFunction+1]
+ ld h, a
+ or l
+ ret z
+ jp hl
+
+.done
+ pop af
+ ldh [hInMenu], a
+ scf
+ ret
+
+DebugRoom_PagedValuePressedA:
+ ld hl, wDebugRoomAFunction
+ jr _CallNonNullPointer
+
+DebugRoom_PagedValuePressedSelect:
+ ld hl, wDebugRoomSelectFunction
+ jr _CallNonNullPointer
+
+DebugRoom_PagedValuePressedStart:
+ ld hl, wDebugRoomStartFunction
+ ; fallthrough
+
+_CallNonNullPointer:
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ or h
+ ret z
+ jp hl
+
+DebugRoom_PageString:
+ db " P @"
+
+DebugRoom_IncrementPagedValue:
+ call DebugRoom_GetCurPagedValuePtr
+ ld e, [hl] ; de = value address
+ inc hl
+ ld d, [hl]
+ inc hl
+ inc hl
+ ld a, [de] ; a = max value
+ cp [hl]
+ ret z
+ inc a
+ ld [de], a
+ call DebugRoom_PrintPageBValueC
+ ret
+
+DebugRoom_DecrementPagedValue:
+ call DebugRoom_GetCurPagedValuePtr
+ ld e, [hl] ; de = value address
+ inc hl
+ ld d, [hl]
+ inc hl
+ ld a, [de] ; a = min value
+ cp [hl]
+ ret z
+ dec a
+ ld [de], a
+ call DebugRoom_PrintPageBValueC
+ ret
+
+DebugRoom_NextPage:
+ ld a, [wDebugRoomPageCount]
+ ld c, a
+ ld a, [wDebugRoomCurPage]
+ inc a
+ cp c
+ jr c, .ok
+ xor a
+.ok
+ ld [wDebugRoomCurPage], a
+ call DebugRoom_PrintPage
+ ld a, [wDebugRoomCurPage]
+ call DebugRoom_GetNthPagePtr
+ ld a, [wDebugRoomCurValue]
+ cp [hl]
+ jr c, .skip
+ ld a, [hl]
+ dec a
+ ld [wDebugRoomCurValue], a
+.skip
+ ld a, "▶"
+ call DebugRoom_ShowHideCursor
+ ret
+
+DebugRoom_PrevPage:
+ ld a, [wDebugRoomCurPage]
+ or a
+ jr nz, .ok
+ ld a, [wDebugRoomPageCount]
+.ok
+ dec a
+ ld [wDebugRoomCurPage], a
+ call DebugRoom_PrintPage
+ ld a, [wDebugRoomCurPage]
+ call DebugRoom_GetNthPagePtr
+ ld a, [wDebugRoomCurValue]
+ cp [hl]
+ jr c, .skip
+ ld a, [hl]
+ dec a
+ ld [wDebugRoomCurValue], a
+.skip
+ ld a, "▶"
+ call DebugRoom_ShowHideCursor
+ ret
+
+DebugRoom_NextPagedValue:
+ ld a, " "
+ call DebugRoom_ShowHideCursor
+ ld a, [wDebugRoomCurPage]
+ call DebugRoom_GetNthPagePtr
+ ld a, [wDebugRoomCurValue]
+ inc a
+ cp [hl] ; incremented value < paged_value count?
+ jr c, DebugRoom_UpdateValueCursor
+ xor a
+ ld [wDebugRoomCurValue], a
+ jr DebugRoom_NextPage
+
+DebugRoom_UpdateValueCursor:
+ ld [wDebugRoomCurValue], a
+ ld a, "▶"
+ call DebugRoom_ShowHideCursor
+ ret
+
+DebugRoom_PrevPagedValue:
+ ld a, " "
+ call DebugRoom_ShowHideCursor
+ ld a, [wDebugRoomCurValue]
+ or a ; pre-decremented value > 0?
+ jr nz, .decrement
+ ld a, -1
+ ld [wDebugRoomCurValue], a
+ jr DebugRoom_PrevPage
+
+.decrement:
+ dec a
+ jr DebugRoom_UpdateValueCursor
+
+DebugRoom_GetNthPagePtr:
+; Input: a = page index
+; Output: hl = pointer to paged_data list
+ ld h, 0
+ ld l, a
+ add hl, hl
+ ld a, [wDebugRoomPagedValuesPtr]
+ ld e, a
+ ld a, [wDebugRoomPagedValuesPtr+1]
+ ld d, a
+ add hl, de
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ ret
+
+_DebugRoom_GetPageBValueCPtr:
+ push bc
+ ld a, b
+ call DebugRoom_GetNthPagePtr
+ pop bc
+ inc hl
+ ld a, c
+ ld bc, PAGED_VALUE_SIZE
+ call AddNTimes
+ ret
+
+DebugRoom_GetCurPagedValuePtr:
+ ld a, [wDebugRoomCurPage]
+ ld b, a
+ ld a, [wDebugRoomCurValue]
+ ld c, a
+ jr _DebugRoom_GetPageBValueCPtr
+
+DebugRoom_ShowHideCursor:
+ push af
+ hlcoord 1, 1
+ ld bc, SCREEN_WIDTH * 2
+ ld a, [wDebugRoomCurValue]
+ call AddNTimes
+ pop af
+ ld [hl], a
+ ret
+
+DebugRoom_InitializePagedValues:
+; Load the initial values for all pages of the current paged value header
+ ld a, [wDebugRoomPageCount]
+.page_loop
+ dec a
+ push af
+ call .InitializePage
+ pop af
+ jr nz, .page_loop
+ ret
+
+.InitializePage:
+; Load the initial values for page a
+ ld b, a
+ ld h, 0
+ ld l, a
+ add hl, hl
+ ld a, [wDebugRoomPagedValuesPtr]
+ ld e, a
+ ld a, [wDebugRoomPagedValuesPtr+1]
+ ld d, a
+ add hl, de
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ ld c, [hl] ; c = paged_value count
+.value_loop
+ push bc
+ dec c
+ call .InitializeValue
+ pop bc
+ dec c
+ jr nz, .value_loop
+ ret
+
+.InitializeValue:
+; Load the initial value for page b, value c
+ ld h, 0
+ ld l, b
+ add hl, hl
+ ld a, [wDebugRoomPagedValuesPtr]
+ ld e, a
+ ld a, [wDebugRoomPagedValuesPtr+1]
+ ld d, a
+ add hl, de
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ inc hl ; skip the paged_value count
+ ld a, c
+ push bc
+ ld bc, PAGED_VALUE_SIZE
+ call AddNTimes
+ pop bc
+ ld e, [hl] ; de = value address
+ inc hl
+ ld d, [hl]
+ inc hl
+ inc hl
+ inc hl
+ ld a, [hl] ; a = initial value
+ ld [de], a
+ ret
+
+DebugRoom_PrintPage:
+ push af
+ hlcoord 10, 17
+ add "1"
+ ld [hl], a
+ hlcoord 1, 1
+ lb bc, SCREEN_HEIGHT - 2, SCREEN_WIDTH - 2
+ call ClearBox
+ pop af
+ ld b, a
+ ld h, 0
+ ld l, a
+ add hl, hl
+ ld a, [wDebugRoomPagedValuesPtr]
+ ld e, a
+ ld a, [wDebugRoomPagedValuesPtr+1]
+ ld d, a
+ add hl, de
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ ld c, [hl] ; c = paged_value count
+.loop
+ push bc
+ dec c
+ call DebugRoom_PrintPagedValue
+ pop bc
+ dec c
+ jr nz, .loop
+ ret
+
+DebugRoom_PrintPageBValueC:
+ ld a, [wDebugRoomCurPage]
+ ld b, a
+ ld a, [wDebugRoomCurValue]
+ ld c, a
+ jr DebugRoom_PrintPagedValue
+
+DebugRoom_PrintPagedValue:
+; Print the value for page b, value c
+ ld h, 0
+ ld l, b
+ add hl, hl
+ ld a, [wDebugRoomPagedValuesPtr]
+ ld e, a
+ ld a, [wDebugRoomPagedValuesPtr+1]
+ ld d, a
+ add hl, de
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ inc hl ; skip the paged_value count
+ ld a, c
+ push bc
+ ld bc, PAGED_VALUE_SIZE
+ call AddNTimes
+ pop bc
+ ld e, [hl] ; de = value address
+ inc hl
+ ld d, [hl]
+ inc hl
+ push de
+ inc hl
+ inc hl
+ inc hl
+ ld e, [hl] ; de = label string
+ inc hl
+ ld d, [hl]
+ inc hl
+ push hl
+ hlcoord 2, 1
+ ld a, c
+ ld bc, SCREEN_WIDTH * 2
+ call AddNTimes
+ push hl
+ call PlaceString
+ pop hl
+ ld bc, SCREEN_WIDTH - 7
+ add hl, bc
+ pop bc ; pushed hl
+ pop de
+ push de
+ push bc
+ inc bc
+ inc bc
+ ld a, [bc] ; a = is hex value?
+ or a
+ jr nz, .hex
+ lb bc, PRINTNUM_LEADINGZEROS | 1, 3
+ call PrintNum
+ jr .printed
+.hex
+ ld c, 1
+ call PrintHexNumber
+ ld [hl], "H"
+ inc hl
+.printed
+ ld bc, 6
+ add hl, bc
+ ld b, h
+ ld c, l
+ pop hl
+ pop de
+ ld a, [hli] ; hl = value name function
+ ld h, [hl]
+ ld l, a
+ or h
+ ret z
+ ld a, [de]
+ jp hl
+
+DebugRoom_JoyWaitABSelect:
+.loop
+ call GetJoypad
+ ldh a, [hJoyPressed]
+ and A_BUTTON | B_BUTTON | SELECT
+ jr z, .loop
+ ret
+
+DebugRoomMenu_ItemGet:
+ ld hl, .PagedValuesHeader
+ call DebugRoom_EditPagedValues
+ ret
+
+.PagedValuesHeader:
+ dw NULL ; A function
+ dw NULL ; Select function
+ dw DebugRoom_SaveItem ; Start function
+ dw NULL ; Auto function
+ db 1 ; # pages
+ dw DebugRoomMenu_ItemGet_Page1Values
+
+DebugRoom_SaveItem:
+ call YesNoBox
+ ret c
+ ld a, BANK(sPlayerData)
+ call OpenSRAM
+ ld hl, sPlayerData + (wPCItems - wPlayerData)
+ ld a, [wDebugRoomItemID]
+ ld c, a
+.loop1
+ ld a, [hl]
+ cp c
+ jr z, .found
+ cp -1
+ jr z, .not_found
+ inc hl
+ inc hl
+ jr .loop1
+
+.found
+ inc hl
+ ld a, [wDebugRoomItemQuantity]
+ add [hl]
+ cp MAX_ITEM_STACK + 1
+ jr c, .max
+ ld a, MAX_ITEM_STACK
+.max
+ ld [hl], a
+ ld hl, .ItemNumberAddedText
+ jr .done
+
+.not_found
+ ld a, [sPlayerData + (wNumPCItems - wPlayerData)]
+ cp MAX_PC_ITEMS
+ jr nc, .full
+ inc a
+ ld [sPlayerData + (wNumPCItems - wPlayerData)], a
+ ld a, [wDebugRoomItemID]
+ ld [hli], a
+ ld a, [wDebugRoomItemQuantity]
+ ld [hli], a
+ ld [hl], -1 ; terminator
+ ld hl, .CreatedNewItemText
+ jr .done
+
+.full
+ ld hl, .StockFullText
+.done
+ call CloseSRAM
+ call MenuTextbox
+ call DebugRoom_JoyWaitABSelect
+ call CloseWindow
+ call DebugRoom_SaveChecksum
+ ret
+
+.ItemNumberAddedText:
+ text "Item number added!"
+ done
+
+.CreatedNewItemText:
+ text "Created new item!"
+ done
+
+.StockFullText:
+ text "Stock full!!"
+ done
+
+DebugRoom_PrintItemName:
+ ld [wNamedObjectIndexBuffer], a
+ push bc
+ call GetItemName
+ pop hl
+ push hl
+ lb bc, 1, 12
+ call ClearBox
+ pop hl
+ ld de, wStringBuffer1
+ call PlaceString
+ ret
+
+DebugRoomMenu_ItemGet_Page1Values:
+ db 2
+ paged_value wDebugRoomItemID, 1, NUM_POKEMON, MASTER_BALL, .ItemNameString, DebugRoom_PrintItemName, FALSE
+ paged_value wDebugRoomItemQuantity, 1, 99, 1, .NumberString, NULL, FALSE
+
+.ItemNameString: db "ITEM NAME@"
+.NumberString: db "NUMBER@"
+
+DebugRoomMenu_PokemonGet:
+ ld hl, .PagedValuesHeader
+ call DebugRoom_EditPagedValues
+ ret
+
+.PagedValuesHeader:
+ dw NULL ; A function
+ dw NULL ; Select function
+ dw DebugRoom_SavePokemon ; Start function
+ dw NULL ; Auto function
+ db 4 ; # pages
+ dw DebugRoomMenu_PokemonGet_Page1Values
+ dw DebugRoomMenu_PokemonGet_Page2Values
+ dw DebugRoomMenu_PokemonGet_Page3Values
+ dw DebugRoomMenu_PokemonGet_Page4Values
+
+DebugRoom_SavePokemon:
+ call YesNoBox
+ ret c
+ call DebugRoom_UpdateExpForLevel
+ ld a, [wDebugRoomMonBox]
+ dec a
+ ld b, a
+ add a
+ add b
+ ld h, 0
+ ld l, a
+ ld de, DebugRoom_BoxAddresses
+ add hl, de
+ ld a, [hli]
+ call OpenSRAM
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ ld a, [hl]
+ cp MONS_PER_BOX
+ jr nc, .full
+ ; update count and species list
+ push hl
+ inc [hl]
+ inc hl
+ ld d, 0
+ ld e, a
+ add hl, de
+ ld a, [wDebugRoomMonSpecies]
+ ld [hli], a
+ ld [hl], -1
+ pop hl
+ ; skip count and species list
+ ld bc, 2 + MONS_PER_BOX
+ add hl, bc
+ ; update Nth box mon
+ push de
+ push hl
+ ld a, e
+ ld bc, BOXMON_STRUCT_LENGTH
+ call AddNTimes
+ ld d, h
+ ld e, l
+ ld hl, wDebugRoomMon
+ ld bc, BOXMON_STRUCT_LENGTH
+ call CopyBytes
+ pop hl
+ pop de
+ ; skip box mons
+ ld bc, BOXMON_STRUCT_LENGTH * MONS_PER_BOX
+ add hl, bc
+ ; update Nth OT name
+ push de
+ push hl
+ ld a, e
+ ld bc, NAME_LENGTH
+ call AddNTimes
+ ld d, h
+ ld e, l
+ ld hl, .OTString
+ ld bc, NAME_LENGTH
+ call CopyBytes
+ pop hl
+ pop de
+ ; skip OT names
+ ld bc, NAME_LENGTH * MONS_PER_BOX
+ add hl, bc
+ ; update Nth nickname
+ push de
+ push hl
+ ld a, e
+ ld bc, MON_NAME_LENGTH
+ call AddNTimes
+ ld d, h
+ ld e, l
+ ld hl, .NicknameString
+ ld bc, MON_NAME_LENGTH
+ call CopyBytes
+ pop hl
+ pop de
+ call CloseSRAM
+ ld hl, .CompletedText
+ call MenuTextbox
+ call DebugRoom_JoyWaitABSelect
+ call CloseWindow
+ ret
+
+.full
+ call CloseSRAM
+ ld hl, .BoxIsFullText
+ call MenuTextbox
+ call DebugRoom_JoyWaitABSelect
+ call CloseWindow
+ ret
+
+.OTString:
+ db "DEBUG▶OT@"
+
+.NicknameString:
+ db "DEBUG▶<PK><MN>@"
+
+.CompletedText:
+ text "COMPLETED!"
+ done
+
+.BoxIsFullText:
+ text "BOX IS FULL!"
+ done
+
+DebugRoom_PrintPokemonName:
+ ld [wNamedObjectIndexBuffer], a
+ push bc
+ call GetPokemonName
+ jr _DebugRoom_FinishGetName
+
+DebugRoom_PrintItemName2:
+ ld [wNamedObjectIndexBuffer], a
+ push bc
+ call GetItemName
+ jr _DebugRoom_FinishGetName
+
+DebugRoom_PrintMoveName:
+ ld [wNamedObjectIndexBuffer], a
+ push bc
+ call GetMoveName
+ jr _DebugRoom_FinishGetName
+
+_DebugRoom_FinishGetName:
+ pop hl
+ push hl
+ lb bc, 1, 12
+ call ClearBox
+ pop hl
+ ld de, wStringBuffer1
+ call PlaceString
+ ret
+
+DebugRoom_UpdateExpForLevel:
+ ld hl, BaseData + BASE_GROWTH_RATE
+ ld bc, BASE_DATA_SIZE
+ ld a, [wDebugRoomMonSpecies]
+ dec a
+ call AddNTimes
+ ld a, BANK(BaseData)
+ call GetFarByte
+ ld [wBaseGrowthRate], a
+ ld a, [wDebugRoomMonLevel]
+ ld d, a
+ farcall CalcExpAtLevel
+ ld hl, wDebugRoomMonExp
+ ldh a, [hProduct + 1]
+ ld [hli], a
+ ldh a, [hProduct + 2]
+ ld [hli], a
+ ldh a, [hProduct + 3]
+ ld [hl], a
+ ret
+
+DebugRoomMenu_PokemonGet_Page1Values:
+ db 8
+ paged_value wDebugRoomMonSpecies, 1, NUM_POKEMON, BULBASAUR, DebugRoom_BoxStructStrings.Pokemon, DebugRoom_PrintPokemonName, FALSE
+ paged_value wDebugRoomMonItem, 1, $ff, MASTER_BALL, DebugRoom_BoxStructStrings.Item, DebugRoom_PrintItemName2, FALSE
+ paged_value wDebugRoomMonMoves+0, 1, NUM_ATTACKS, POUND, DebugRoom_BoxStructStrings.Move1, DebugRoom_PrintMoveName, FALSE
+ paged_value wDebugRoomMonMoves+1, 1, NUM_ATTACKS, POUND, DebugRoom_BoxStructStrings.Move2, DebugRoom_PrintMoveName, FALSE
+ paged_value wDebugRoomMonMoves+2, 1, NUM_ATTACKS, POUND, DebugRoom_BoxStructStrings.Move3, DebugRoom_PrintMoveName, FALSE
+ paged_value wDebugRoomMonMoves+3, 1, NUM_ATTACKS, POUND, DebugRoom_BoxStructStrings.Move4, DebugRoom_PrintMoveName, FALSE
+ paged_value wDebugRoomMonID+0, $00, $ff, HIGH(1234), DebugRoom_BoxStructStrings.ID0, NULL, FALSE
+ paged_value wDebugRoomMonID+1, $00, $ff, LOW(1234), DebugRoom_BoxStructStrings.ID1, NULL, FALSE
+
+DebugRoomMenu_PokemonGet_Page2Values:
+ db 8
+ paged_value wDebugRoomMonHPExp+0, $00, $ff, $00, DebugRoom_BoxStructStrings.HPExp0, NULL, FALSE
+ paged_value wDebugRoomMonHPExp+1, $00, $ff, $00, DebugRoom_BoxStructStrings.HPExp1, NULL, FALSE
+ paged_value wDebugRoomMonAtkExp+0, $00, $ff, $00, DebugRoom_BoxStructStrings.AttkExp0, NULL, FALSE
+ paged_value wDebugRoomMonAtkExp+1, $00, $ff, $00, DebugRoom_BoxStructStrings.AttkExp1, NULL, FALSE
+ paged_value wDebugRoomMonDefExp+0, $00, $ff, $00, DebugRoom_BoxStructStrings.DfnsExp0, NULL, FALSE
+ paged_value wDebugRoomMonDefExp+1, $00, $ff, $00, DebugRoom_BoxStructStrings.DfnsExp1, NULL, FALSE
+ paged_value wDebugRoomMonSpdExp+0, $00, $ff, $00, DebugRoom_BoxStructStrings.SpeedExp0, NULL, FALSE
+ paged_value wDebugRoomMonSpdExp+1, $00, $ff, $00, DebugRoom_BoxStructStrings.SpeedExp1, NULL, FALSE
+
+DebugRoomMenu_PokemonGet_Page3Values:
+ db 8
+ paged_value wDebugRoomMonSpcExp+0, $00, $ff, $00, DebugRoom_BoxStructStrings.SpclExp0, NULL, FALSE
+ paged_value wDebugRoomMonSpcExp+1, $00, $ff, $00, DebugRoom_BoxStructStrings.SpclExp1, NULL, FALSE
+ paged_value wDebugRoomMonDVs+0, $00, $ff, $00, DebugRoom_BoxStructStrings.PowerRnd0, NULL, TRUE
+ paged_value wDebugRoomMonDVs+1, $00, $ff, $00, DebugRoom_BoxStructStrings.PowerRnd1, NULL, TRUE
+ paged_value wDebugRoomMonPP+0, $00, $ff, $00, DebugRoom_BoxStructStrings.PP1, NULL, FALSE
+ paged_value wDebugRoomMonPP+1, $00, $ff, $00, DebugRoom_BoxStructStrings.PP2, NULL, FALSE
+ paged_value wDebugRoomMonPP+2, $00, $ff, $00, DebugRoom_BoxStructStrings.PP3, NULL, FALSE
+ paged_value wDebugRoomMonPP+3, $00, $ff, $00, DebugRoom_BoxStructStrings.PP4, NULL, FALSE
+
+DebugRoomMenu_PokemonGet_Page4Values:
+ db 6
+ paged_value wDebugRoomMonHappiness, $00, $ff, BASE_HAPPINESS, DebugRoom_BoxStructStrings.Friend, NULL, FALSE
+ paged_value wDebugRoomMonPokerusStatus, $00, $ff, $00, DebugRoom_BoxStructStrings.Pokerus, NULL, TRUE
+ paged_value wDebugRoomMonCaughtData+0, $00, $ff, $00, DebugRoom_BoxStructStrings.NoUse0, NULL, FALSE
+ paged_value wDebugRoomMonCaughtData+1, $00, $ff, $00, DebugRoom_BoxStructStrings.NoUse1, NULL, FALSE
+ paged_value wDebugRoomMonLevel, 1, MAX_LEVEL, $05, DebugRoom_BoxStructStrings.Level, NULL, FALSE
+ paged_value wDebugRoomMonBox, 1, NUM_BOXES, $0e, DebugRoom_BoxStructStrings.SendBox, NULL, FALSE
+
+DebugRoom_BoxStructStrings:
+.Pokemon: db "#MON@"
+.Item: db "ITEM@"
+.Move1: db "MOVE 1@"
+.Move2: db "MOVE 2@"
+.Move3: db "MOVE 3@"
+.Move4: db "MOVE 4@"
+.ID0: db "ID[0]@"
+.ID1: db "ID[1]@"
+.BaseExp0: db "BASE EXP[0]@"
+.BaseExp1: db "BASE EXP[1]@"
+.BaseExp2: db "BASE EXP[2]@"
+.HPExp0: db "HP EXP[0]@"
+.HPExp1: db "HP EXP[1]@"
+.AttkExp0: db "ATTK EXP[0]@"
+.AttkExp1: db "ATTK EXP[1]@"
+.DfnsExp0: db "DFNS EXP[0]@"
+.DfnsExp1: db "DFNS EXP[1]@"
+.SpeedExp0: db "SPEED EXP[0]@"
+.SpeedExp1: db "SPEED EXP[1]@"
+.SpclExp0: db "SPCL EXP[0]@"
+.SpclExp1: db "SPCL EXP[1]@"
+.PowerRnd0: db "POWER RND[0]<LF> RARE:--1-1010@"
+.PowerRnd1: db "POWER RND[1]<LF> RARE:10101010@"
+.PP1: db "PP 1@"
+.PP2: db "PP 2@"
+.PP3: db "PP 3@"
+.PP4: db "PP 4@"
+.Friend: db "FRIEND@"
+.Pokerus: db "#RUS@"
+.NoUse0: db "NO USE[0]@"
+.NoUse1: db "NO USE[1]@"
+.Level: db "LEVEL@"
+.SendBox: db "SEND BOX@"
+
+DebugRoom_BoxAddresses:
+ dba sBox1
+ dba sBox2
+ dba sBox3
+ dba sBox4
+ dba sBox5
+ dba sBox6
+ dba sBox7
+ dba sBox8
+ dba sBox9
+ dba sBox10
+ dba sBox11
+ dba sBox12
+ dba sBox13
+ dba sBox14
+
+DebugRoomMenu_RTCEdit:
+ ld hl, .PagedValuesHeader
+ call DebugRoom_EditPagedValues
+ ret
+
+.PagedValuesHeader:
+ dw NULL ; A function
+ dw NULL ; Select function
+ dw DebugRoom_SaveRTC ; Start function
+ dw DebugRoomMenu_RTCEdit_UpdateClock ; Auto function
+ db 1 ; # pages
+ dw DebugRoomMenu_RTCEdit_Page1Values
+
+DebugRoom_SaveRTC:
+ call YesNoBox
+ ret c
+ ld hl, wDebugRoomRTCSec
+ call DebugRoom_SetClock
+ ret
+
+DebugRoomMenu_RTCEdit_UpdateClock:
+ ld hl, wDebugRoomRTCCurSec
+ call DebugRoom_GetClock
+ ld de, DebugRoom_DayHTimeString
+ hlcoord 3, 14
+ call PlaceString
+ ld a, [wDebugRoomRTCCurDay + 0]
+ ld h, a
+ ld a, [wDebugRoomRTCCurDay + 1]
+ ld l, a
+ push hl
+ ld hl, sp+0
+ ld d, h
+ ld e, l
+ hlcoord 7, 14
+ ld c, 2
+ call PrintHexNumber
+ pop hl
+ hlcoord 8, 15
+ ld de, wDebugRoomRTCCurHour
+ lb bc, PRINTNUM_LEADINGZEROS | 1, 2
+ call PrintNum
+ ld [hl], ":"
+ inc hl
+ ld de, wDebugRoomRTCCurMin
+ lb bc, PRINTNUM_LEADINGZEROS | 1, 2
+ call PrintNum
+ ld [hl], ":"
+ inc hl
+ ld de, wDebugRoomRTCCurSec
+ lb bc, PRINTNUM_LEADINGZEROS | 1, 2
+ call PrintNum
+ ret
+
+DebugRoom_DayHTimeString:
+ db "DAY H<LF>TIME@"
+
+DebugRoom_GetClock:
+ ld a, SRAM_ENABLE
+ ld [MBC3SRamEnable], a
+ xor a
+ ld [MBC3LatchClock], a
+ inc a
+ ld [MBC3LatchClock], a
+ ld b, RTC_DH - RTC_S + 1
+ ld c, RTC_S
+.loop
+ ld a, c
+ ld [MBC3SRamBank], a
+ ld a, [MBC3RTC]
+ ld [hli], a
+ inc c
+ dec b
+ jr nz, .loop
+ call CloseSRAM
+ ret
+
+DebugRoom_SetClock:
+ ld a, SRAM_ENABLE
+ ld [MBC3SRamEnable], a
+ ld b, RTC_DH - RTC_S + 1
+ ld c, RTC_S
+.loop
+ ld a, c
+ ld [MBC3SRamBank], a
+ ld a, [hli]
+ ld [MBC3RTC], a
+ inc c
+ dec b
+ jr nz, .loop
+ call CloseSRAM
+ ret
+
+DebugRoomMenu_RTCEdit_Page1Values:
+ db 5
+ paged_value wDebugRoomRTCSec, 0, 60 - 1, 0, .SecondString, NULL, FALSE
+ paged_value wDebugRoomRTCMin, 0, 60 - 1, 0, .MinuteString, NULL, FALSE
+ paged_value wDebugRoomRTCHour, 0, 24 - 1, 0, .HourString, NULL, FALSE
+ paged_value wDebugRoomRTCDay+0, $00, $ff, 0, .DayLString, NULL, TRUE
+ paged_value wDebugRoomRTCDay+1, $00, $ff, 0, .DayHString, NULL, TRUE
+
+.SecondString: db "SECOND@"
+.MinuteString: db "MINUTE@"
+.HourString: db "HOUR@"
+.DayLString: db "DAY L@"
+.DayHString: db "DAY H<LF> BIT0:DAY MSB<LF> BIT6:HALT<LF> BIT7:DAY CARRY@"
+
+DebugRoomMenu_HaltChkClr:
+ call YesNoBox
+ ret c
+ ld a, BANK(sRTCHaltCheckValue)
+ call OpenSRAM
+ xor a
+ ld hl, sRTCHaltCheckValue
+ ld [hli], a
+ ld [hl], a
+ call CloseSRAM
+ call DebugRoom_PrintRTCHaltChk
+ ret
+
+DebugRoom_PrintRTCHaltChk:
+ hlcoord 16, 9
+ ld de, .RTCString
+ call PlaceString
+ ld a, BANK(sRTCHaltCheckValue)
+ ld hl, sRTCHaltCheckValue
+ call OpenSRAM
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ call CloseSRAM
+ ld de, .HaltString
+ ld a, h
+ cp HIGH(RTC_HALT_VALUE)
+ jr nz, .ok
+ ld a, l
+ cp LOW(RTC_HALT_VALUE)
+ jr z, .done
+.ok
+ ld de, .OKString
+.done
+ hlcoord 16, 10
+ call PlaceString
+ ret
+
+.RTCString:
+ db "RTC:@"
+
+.OKString:
+ db " OK@"
+
+.HaltString:
+ db "HALT@"
+
+DebugRoomMenu_GBIDSet:
+ ld hl, .PagedValuesHeader
+ call DebugRoom_EditPagedValues
+ ret
+
+.PagedValuesHeader:
+ dw NULL ; A function
+ dw NULL ; Select function
+ dw DebugRoom_SaveGBID ; Start function
+ dw NULL ; Auto function
+ db 1 ; # pages
+ dw DebugRoomMenu_GBIDSet_Page1Values
+
+DebugRoom_SaveGBID:
+ call YesNoBox
+ ret c
+ ld a, BANK(sPlayerData)
+ call OpenSRAM
+ ld hl, sPlayerData + (wPlayerID - wPlayerData)
+ ld a, [wDebugRoomGBID + 0]
+ ld [hli], a
+ ld a, [wDebugRoomGBID + 1]
+ ld [hli], a
+ call CloseSRAM
+ call DebugRoom_SaveChecksum
+ ret
+
+DebugRoomMenu_GBIDSet_Page1Values:
+ db 2
+ paged_value wDebugRoomGBID+0, $00, $ff, $00, .GBID0String, NULL, TRUE
+ paged_value wDebugRoomGBID+1, $00, $ff, $00, .GBID1String, NULL, TRUE
+
+.GBID0String: db "GB ID [0]@"
+.GBID1String: db "GB ID [1]@"
+
+DebugRoomMenu_BtlRecClr:
+ call YesNoBox
+ ret c
+ ld a, BANK(sLinkBattleStats)
+ call OpenSRAM
+ xor a
+ ld hl, sLinkBattleStats
+ ld bc, sLinkBattleStatsEnd - sLinkBattleStats
+ call ByteFill
+ call CloseSRAM
+ ret
+
+DebugRoomMenu_HOFClear:
+ call YesNoBox
+ ret c
+ ld a, BANK(sPlayerData)
+ call OpenSRAM
+ ld hl, sPlayerData + (wHallOfFameCount - wPlayerData)
+ ld [hl], 0
+ xor a
+ ld hl, sHallOfFame
+ ld bc, sHallOfFameEnd - sHallOfFame
+ call ByteFill
+ call CloseSRAM
+ call DebugRoom_SaveChecksum
+ ret
+
+ComputeROMChecksum:
+ ld de, 0
+ call .ComputeROM0Checksum
+ ld c, $01 ; first bank
+.loop:
+ push bc
+ push de
+ ld a, c
+ cpl
+ inc a
+ add $80
+ ld de, wDebugRoomCurChecksumBank
+ ld [de], a
+ hlcoord 16, 16
+ ld c, 1
+ call PrintHexNumber
+ ld [hl], "h"
+ pop de
+ pop bc
+ call ComputeROMXChecksum
+ inc c
+ ld a, c
+ cp $80 ; number of banks
+ jr c, .loop
+ ld a, d
+ ld [wDebugRoomROMChecksum + 0], a
+ ld a, e
+ ld [wDebugRoomROMChecksum + 1], a
+ ret
+
+.AddAtoDE:
+ add e
+ ld e, a
+ ld a, d
+ adc 0
+ ld d, a
+ ret
+
+.ComputeROM0Checksum:
+ ld hl, $0000 ; ROM0 start
+.rom0_loop
+ ld a, [hli]
+ call .AddAtoDE
+ ld a, h
+ cp $40 ; HIGH(ROM0 end)
+ jr c, .rom0_loop
+ ret
+
+.ComputeROMXChecksum: ; unreferenced
+ ld hl, $4000 ; ROMX start
+.romx_loop
+ ld a, c
+ call GetFarByte
+ inc hl
+ call .AddAtoDE
+ ld a, h
+ cp $80 ; HIGH(ROMX end)
+ jr c, .romx_loop
+ ret
+
+DebugRoom_PrintROMChecksum: ; unreferenced
+ hlcoord 16, 0
+ ld de, .SumString
+ call PlaceString
+ hlcoord 16, 1
+ ld de, wDebugRoomROMChecksum
+ ld c, 2
+ call PrintHexNumber
+ ret
+
+.SumString:
+ db "SUM:@"
+
+DebugRoomMenu_ROMChecksum:
+ ld hl, .WaitText
+ call MenuTextbox
+ call ComputeROMChecksum
+ call CloseWindow
+ ld hl, .ROMChecksumText
+ call MenuTextbox
+ hlcoord 14, 14
+ ld de, wDebugRoomROMChecksum
+ ld c, 2
+ call PrintHexNumber
+ ld [hl], "h"
+ call DebugRoom_JoyWaitABSelect
+ call CloseWindow
+ ret
+
+.WaitText:
+ text "Wait..."
+ done
+
+.ROMChecksumText:
+ text "ROM CHECKSUM:"
+ next ""
+ done
+
+DebugRoomMenu_BTBugPoke:
+ ld a, BANK(sIsBugMon)
+ call OpenSRAM
+ ld a, [sIsBugMon]
+ call CloseSRAM
+ or a
+ jr nz, .bug_mon
+ ld hl, .NoBugMonText
+ call MenuTextbox
+ call DebugRoom_JoyWaitABSelect
+ call CloseWindow
+ ret
+
+.NoBugMonText:
+ text "No bug #MON."
+ done
+
+.bug_mon:
+ ld hl, .ItsBugMonText
+ call MenuTextbox
+ ld a, BANK(sIsBugMon)
+ call OpenSRAM
+ hlcoord 4, 16
+ ld de, sIsBugMon
+ ld c, 1
+ call PrintHexNumber
+ ld [hl], "h"
+ call YesNoBox
+ jr c, .done
+ xor a
+ ld [sIsBugMon], a
+.done
+ call CloseSRAM
+ call CloseWindow
+ ret
+
+.ItsBugMonText:
+ text "It'", "s bug #MON!"
+ next "No. Clear flag?"
+ done
+
+PrintHexNumber:
+; Print the c-byte value from de to hl as hexadecimal digits.
+.loop
+ push bc
+ call .HandleByte
+ pop bc
+ dec c
+ jr nz, .loop
+ ret
+
+.HandleByte:
+ ld a, [de]
+ swap a
+ and $f
+ call .PrintDigit
+ ld [hli], a
+ ld a, [de]
+ and $f
+ call .PrintDigit
+ ld [hli], a
+ inc de
+ ret
+
+.PrintDigit:
+ ld bc, .HexDigits
+ add c
+ ld c, a
+ ld a, 0
+ adc b
+ ld b, a
+ ld a, [bc]
+ ret
+
+.HexDigits:
+ db "0123456789ABCDEF"
diff --git a/engine/items/items.asm b/engine/items/items.asm
index a08f76d31..78b0e2cd9 100644
--- a/engine/items/items.asm
+++ b/engine/items/items.asm
@@ -168,7 +168,7 @@ PutItemInPocket:
jr z, .terminator
cp c
jr nz, .next
- ld a, 99
+ ld a, MAX_ITEM_STACK
sub [hl]
add b
ld b, a
@@ -205,14 +205,14 @@ PutItemInPocket:
jr nz, .loop2
ld a, [wItemQuantityBuffer]
add [hl]
- cp 100
+ cp MAX_ITEM_STACK + 1
jr nc, .newstack
ld [hl], a
jr .done
.newstack
- ld [hl], 99
- sub 99
+ ld [hl], MAX_ITEM_STACK
+ sub MAX_ITEM_STACK
ld [wItemQuantityBuffer], a
jr .loop2
@@ -408,7 +408,7 @@ ReceiveTMHM:
add hl, bc
ld a, [wItemQuantityChangeBuffer]
add [hl]
- cp 100
+ cp MAX_ITEM_STACK + 1
jr nc, .toomany
ld [hl], a
scf
diff --git a/engine/items/mart.asm b/engine/items/mart.asm
index a0773df4a..b8c32c203 100644
--- a/engine/items/mart.asm
+++ b/engine/items/mart.asm
@@ -498,7 +498,7 @@ BuyMenuLoop:
ret
StandardMartAskPurchaseQuantity:
- ld a, 99
+ ld a, MAX_ITEM_STACK
ld [wItemQuantityBuffer], a
ld a, MARTTEXT_HOW_MANY
call LoadBuyMenuText
@@ -557,7 +557,7 @@ RooftopSaleAskPurchaseQuantity:
ld a, MARTTEXT_HOW_MANY
call LoadBuyMenuText
call .GetSalePrice
- ld a, 99
+ ld a, MAX_ITEM_STACK
ld [wItemQuantityBuffer], a
farcall RooftopSale_SelectQuantityToBuy
call ExitMenu
diff --git a/engine/items/switch_items.asm b/engine/items/switch_items.asm
index 680e548c1..fc6fce6a4 100644
--- a/engine/items/switch_items.asm
+++ b/engine/items/switch_items.asm
@@ -96,11 +96,11 @@ Function249a7:
jr nz, .asm_249cd
ld a, [wScrollingMenuCursorPosition]
call Function24a97
- cp 99
+ cp MAX_ITEM_STACK
jr z, .asm_249cd
ld a, [wSwitchItem]
call Function24a97
- cp 99
+ cp MAX_ITEM_STACK
jr nz, .asm_249cf
.asm_249cd
and a
@@ -121,14 +121,14 @@ Function249d1:
ld a, [hl]
pop hl
add [hl]
- cp 100
+ cp MAX_ITEM_STACK + 1
jr c, .asm_24a01
- sub 99
+ sub MAX_ITEM_STACK
push af
ld a, [wScrollingMenuCursorPosition]
call ItemSwitch_GetNthItem
inc hl
- ld [hl], 99
+ ld [hl], MAX_ITEM_STACK
ld a, [wSwitchItem]
call ItemSwitch_GetNthItem
inc hl
diff --git a/engine/menus/intro_menu.asm b/engine/menus/intro_menu.asm
index 0c8d38375..31809be46 100644
--- a/engine/menus/intro_menu.asm
+++ b/engine/menus/intro_menu.asm
@@ -88,6 +88,12 @@ AreYouABoyOrAreYouAGirl:
farcall InitMobileProfile ; mobile
ret
+if DEF(_DEBUG)
+DebugRoom: ; unreferenced
+ farcall _DebugRoom
+ ret
+endc
+
ResetWRAM:
xor a
ldh [hBGMapMode], a
diff --git a/engine/menus/main_menu.asm b/engine/menus/main_menu.asm
index 775573a60..fcbd7d430 100644
--- a/engine/menus/main_menu.asm
+++ b/engine/menus/main_menu.asm
@@ -18,6 +18,7 @@
const MAINMENUITEM_MYSTERY_GIFT ; 3
const MAINMENUITEM_MOBILE ; 4
const MAINMENUITEM_MOBILE_STUDIUM ; 5
+ const MAINMENUITEM_DEBUG_ROOM ; 6
MobileMenuGFX:
INCBIN "gfx/mobile/mobile_menu.2bpp"
@@ -70,6 +71,9 @@ MainMenu:
db "MYSTERY GIFT@"
db "MOBILE@"
db "MOBILE STUDIUM@"
+if DEF(_DEBUG)
+ db "DEBUG ROOM@"
+endc
.Jumptable:
; entries correspond to MAINMENUITEM_* constants
@@ -79,6 +83,9 @@ MainMenu:
dw MainMenu_MysteryGift
dw MainMenu_Mobile
dw MainMenu_MobileStudium
+if DEF(_DEBUG)
+ dw MainMenu_DebugRoom
+endc
MainMenuItems:
; entries correspond to MAINMENU_* constants
@@ -90,71 +97,95 @@ MainMenuItems:
db -1
; MAINMENU_CONTINUE
- db 3
+ db 3 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
; MAINMENU_MOBILE_MYSTERY
- db 5
+ db 5 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
db MAINMENUITEM_MYSTERY_GIFT
db MAINMENUITEM_MOBILE
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
; MAINMENU_MOBILE
- db 4
+ db 4 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
db MAINMENUITEM_MOBILE
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
; MAINMENU_MOBILE_STUDIUM
- db 5
+ db 5 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
db MAINMENUITEM_MOBILE
db MAINMENUITEM_MOBILE_STUDIUM
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
; MAINMENU_MYSTERY_MOBILE_STUDIUM
- db 6
+ db 6 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
db MAINMENUITEM_MYSTERY_GIFT
db MAINMENUITEM_MOBILE
db MAINMENUITEM_MOBILE_STUDIUM
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
; MAINMENU_MYSTERY
- db 4
+ db 4 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
db MAINMENUITEM_MYSTERY_GIFT
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
; MAINMENU_MYSTERY_STUDIUM
- db 5
+ db 5 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
db MAINMENUITEM_MYSTERY_GIFT
db MAINMENUITEM_MOBILE_STUDIUM
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
; MAINMENU_STUDIUM
- db 4
+ db 4 + DEF(_DEBUG)
db MAINMENUITEM_CONTINUE
db MAINMENUITEM_NEW_GAME
db MAINMENUITEM_OPTION
db MAINMENUITEM_MOBILE_STUDIUM
+if DEF(_DEBUG)
+ db MAINMENUITEM_DEBUG_ROOM
+endc
db -1
MainMenu_GetWhichMenu:
diff --git a/engine/overworld/time.asm b/engine/overworld/time.asm
index da6d6745a..86807119d 100644
--- a/engine/overworld/time.asm
+++ b/engine/overworld/time.asm
@@ -25,6 +25,20 @@ NextCallReceiveDelay:
ld hl, .ReceiveCallDelays
add hl, de
ld a, [hl]
+if DEF(_DEBUG)
+ ld h, a
+ ld a, BANK(sDebugTimeCyclesSinceLastCall)
+ call OpenSRAM
+ ld a, [sDebugTimeCyclesSinceLastCall]
+ call CloseSRAM
+ dec a
+ cp 2
+ jr nc, .debug_ok
+ xor 1
+ ld h, a
+.debug_ok
+ ld a, h
+endc
jp RestartReceiveCallDelay
.ReceiveCallDelays:
diff --git a/engine/pokemon/stats_screen.asm b/engine/pokemon/stats_screen.asm
index e7fc4f8b2..97121aa3d 100644
--- a/engine/pokemon/stats_screen.asm
+++ b/engine/pokemon/stats_screen.asm
@@ -185,6 +185,10 @@ EggStatsJoypad:
.check
bit A_BUTTON_F, a
jr nz, .quit
+if DEF(_DEBUG)
+ cp START
+ jr z, .hatch
+endc
and D_DOWN | D_UP | A_BUTTON | B_BUTTON
jp StatsScreen_JoypadAction
@@ -193,6 +197,39 @@ EggStatsJoypad:
call StatsScreen_SetJumptableIndex
ret
+if DEF(_DEBUG)
+.hatch
+ ld a, [wMonType]
+ or a
+ jr nz, .skip
+ push bc
+ push de
+ push hl
+ ld a, [wCurPartyMon]
+ ld bc, PARTYMON_STRUCT_LENGTH
+ ld hl, wPartyMon1Happiness
+ call AddNTimes
+ ld [hl], 1
+ ld a, 1
+ ld [wTempMonHappiness], a
+ ld a, 127
+ ld [wStepCount], a
+ ld de, .HatchSoonString
+ hlcoord 8, 17
+ call PlaceString
+ ld hl, wcf64
+ set 5, [hl]
+ pop hl
+ pop de
+ pop bc
+.skip
+ xor a
+ jp StatsScreen_JoypadAction
+
+.HatchSoonString:
+ db "▶HATCH SOON!@"
+endc
+
StatsScreen_LoadPage:
call StatsScreen_LoadGFX
ld hl, wcf64
@@ -970,6 +1007,17 @@ EggStatsScreen:
ld de, FiveQMarkString
hlcoord 11, 5
call PlaceString
+if DEF(_DEBUG)
+ ld de, .PushStartString
+ hlcoord 8, 17
+ call PlaceString
+ jr .placed_push_start
+
+.PushStartString:
+ db "▶PUSH START.@"
+
+.placed_push_start
+endc
ld a, [wTempMonHappiness] ; egg status
ld de, EggSoonString
cp $6
diff --git a/home/map.asm b/home/map.asm
index dfebff9b7..261e044d6 100644
--- a/home/map.asm
+++ b/home/map.asm
@@ -1138,7 +1138,7 @@ MaskObject::
ld d, $0
ld hl, wObjectMasks
add hl, de
- ld [hl], -1 ; , masked
+ ld [hl], -1 ; masked
ret
UnmaskObject::
@@ -1150,6 +1150,28 @@ UnmaskObject::
ld [hl], 0 ; unmasked
ret
+if DEF(_DEBUG)
+ComputeROMXChecksum::
+ ldh a, [hROMBank]
+ push af
+ ld a, c
+ rst Bankswitch
+ ld hl, $4000 ; ROMX start
+.loop
+ ld a, [hli]
+ add e
+ ld e, a
+ ld a, d
+ adc 0
+ ld d, a
+ ld a, h
+ cp $80 ; HIGH(ROMX end)
+ jr c, .loop
+ pop af
+ rst Bankswitch
+ ret
+endc
+
ScrollMapUp::
hlcoord 0, 0
ld de, wBGMapBuffer
diff --git a/home/sram.asm b/home/sram.asm
index baf21bb32..6999f7ed8 100644
--- a/home/sram.asm
+++ b/home/sram.asm
@@ -2,6 +2,22 @@ OpenSRAM::
; if invalid bank, sram is disabled
cp NUM_SRAM_BANKS
jr c, .valid
+if DEF(_DEBUG)
+ push af
+ push bc
+ ld b, 1
+.loop
+ sla b
+ dec a
+ jr nz, .loop
+ ld a, BANK(sOpenedInvalidSRAM)
+ call OpenSRAM
+ ld a, [sOpenedInvalidSRAM]
+ or b
+ ld [sOpenedInvalidSRAM], a
+ pop bc
+ pop af
+endc
jr CloseSRAM
.valid:
diff --git a/hram.asm b/hram.asm
index f3cbd3435..8c04adc0b 100644
--- a/hram.asm
+++ b/hram.asm
@@ -165,6 +165,10 @@ hSGB:: db
hDMATransfer:: db
hMobile:: db
hSystemBooted:: db
+
+if DEF(_DEBUG)
+hDebugRoomMenuPage::
+endc
hClockResetTrigger:: db
ds 19
diff --git a/layout.link b/layout.link
index eac395eae..a911b67d6 100644
--- a/layout.link
+++ b/layout.link
@@ -294,6 +294,7 @@ ROMX $77
"Tileset Data 7"
"bank77_2"
ROMX $78
+ "Debug Room"
"Tileset Data 8"
ROMX $7b
"Battle Tower Text"
diff --git a/main.asm b/main.asm
index f90fad682..e535651d7 100644
--- a/main.asm
+++ b/main.asm
@@ -290,7 +290,7 @@ INCLUDE "engine/overworld/player_movement.asm"
INCLUDE "engine/events/engine_flags.asm"
INCLUDE "engine/overworld/variables.asm"
INCLUDE "data/text/battle.asm"
-INCLUDE "engine/menus/debug.asm"
+INCLUDE "engine/debug/color_picker.asm"
SECTION "bank21", ROMX
@@ -696,6 +696,13 @@ INCBIN "gfx/pokegear/pokegear.2bpp.lz"
INCLUDE "engine/pokemon/european_mail.asm"
+SECTION "Debug Room", ROMX
+
+if DEF(_DEBUG)
+INCLUDE "engine/debug/debug_room.asm"
+endc
+
+
SECTION "Battle Tower Text", ROMX
INCLUDE "data/battle_tower/trainer_text.asm"
@@ -722,7 +729,15 @@ SECTION "Mobile Stadium 2", ROMX
if DEF(_CRYSTAL_AU)
INCBIN "mobile/stadium/stadium2_au.bin"
elif DEF(_CRYSTAL11)
+if DEF(_DEBUG)
+INCBIN "mobile/stadium/stadium2_11_debug.bin"
+else
INCBIN "mobile/stadium/stadium2_11.bin"
+endc
+else
+if DEF(_DEBUG)
+INCBIN "mobile/stadium/stadium2_debug.bin"
else
INCBIN "mobile/stadium/stadium2.bin"
endc
+endc
diff --git a/mobile/mobile_menu.asm b/mobile/mobile_menu.asm
index bab29dcb4..f1d84f519 100644
--- a/mobile/mobile_menu.asm
+++ b/mobile/mobile_menu.asm
@@ -844,3 +844,9 @@ Function4a6d8:
dec b
jr nz, Function4a6d8
ret
+
+if DEF(_DEBUG)
+MainMenu_DebugRoom:
+ farcall _DebugRoom
+ ret
+endc
diff --git a/mobile/stadium/stadium2_11_debug.bin b/mobile/stadium/stadium2_11_debug.bin
new file mode 100644
index 000000000..6d838e845
--- /dev/null
+++ b/mobile/stadium/stadium2_11_debug.bin
Binary files differ
diff --git a/mobile/stadium/stadium2_debug.bin b/mobile/stadium/stadium2_debug.bin
new file mode 100644
index 000000000..9a63e4623
--- /dev/null
+++ b/mobile/stadium/stadium2_debug.bin
Binary files differ
diff --git a/roms.sha1 b/roms.sha1
index d63d39632..3fc7fcb6f 100644
--- a/roms.sha1
+++ b/roms.sha1
@@ -1,3 +1,5 @@
f4cd194bdee0d04ca4eac29e09b8e4e9d818c133 *pokecrystal.gbc
f2f52230b536214ef7c9924f483392993e226cfb *pokecrystal11.gbc
a0fc810f1d4e124434f7be2c989ab5b5892ddf36 *pokecrystal-au.gbc
+c60d57a24bbe8ecf7cba54ab3f90669f97bd330d *pokecrystal-debug.gbc
+391ae86b1d5a26db712ffe6c28bbf2a1f804c3c4 *pokecrystal11-debug.gbc
diff --git a/sram.asm b/sram.asm
index d6ad4ff1c..36b0a61e8 100644
--- a/sram.asm
+++ b/sram.asm
@@ -90,6 +90,14 @@ sBackupCheckValue2:: db ; loaded with SAVE_CHECK_VALUE_2, used to check save cor
sStackTop:: dw
+if DEF(_DEBUG)
+sRTCHaltCheckValue:: dw
+sSkipBattle:: db
+sDebugTimeCyclesSinceLastCall:: db
+sOpenedInvalidSRAM:: db
+sIsBugMon:: db
+endc
+
SECTION "Save", SRAM
diff --git a/wram.asm b/wram.asm
index cc278956c..5d6c41688 100644
--- a/wram.asm
+++ b/wram.asm
@@ -1177,6 +1177,49 @@ wccb5:: ds 3
wccb8:: ds 1
wccb9:: ds 1
wccba:: ds 102
+
+if DEF(_DEBUG)
+NEXTU
+; debug room
+
+; debug room RTC values
+wDebugRoomRTCSec:: db
+wDebugRoomRTCMin:: db
+wDebugRoomRTCHour:: db
+wDebugRoomRTCDay:: dw
+wDebugRoomRTCCurSec:: db
+wDebugRoomRTCCurMin:: db
+wDebugRoomRTCCurHour:: db
+wDebugRoomRTCCurDay:: dw
+
+; debug room paged values
+wDebugRoomCurPage:: db
+wDebugRoomCurValue:: db
+wDebugRoomAFunction:: dw
+wDebugRoomStartFunction:: dw
+wDebugRoomSelectFunction:: dw
+wDebugRoomAutoFunction:: dw
+wDebugRoomPageCount:: db
+wDebugRoomPagedValuesPtr:: dw
+
+wDebugRoomROMChecksum:: dw
+wDebugRoomCurChecksumBank:: db
+
+UNION
+; debug room new item values
+wDebugRoomItemID:: db
+wDebugRoomItemQuantity:: db
+NEXTU
+; debug room new pokemon values
+wDebugRoomMon:: box_struct wDebugRoomMon
+wDebugRoomMonBox:: db
+NEXTU
+; debug room GB ID values
+wDebugRoomGBID:: dw
+ENDU
+
+endc
+
ENDU
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-12 10:44:53 +0000