mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-03-22 10:04:52 -05:00
e1659ecd41
Addresses of sections will now be added to the linkerscript via `org`, and the section name will be the path/to/file. If there is more than one section in the file, then add a @SectionName after the path/to/file to describe the section.
109 lines
1.8 KiB
NASM
109 lines
1.8 KiB
NASM
INCLUDE "constants.asm"
|
|
|
|
SECTION "engine/menu/debug_menu.asm", ROMX
|
|
|
|
DebugMenu:: ; $4031
|
|
call ClearTileMap
|
|
call ClearWindowData
|
|
call LoadFont
|
|
call LoadFontsBattleExtra
|
|
call ClearSprites
|
|
call GetMemSGBLayout
|
|
xor a
|
|
ld [wWhichIndexSet], a
|
|
ld hl, DebugMenuHeader
|
|
call LoadMenuHeader
|
|
call OpenMenu
|
|
call CloseWindow
|
|
jp c, TitleSequenceStart
|
|
ld a, $41
|
|
ld [wce5f], a
|
|
ld a, [wMenuSelection]
|
|
ld hl, DebugJumpTable
|
|
jp CallJumptable
|
|
|
|
DebugJumpTable:: ; 4064
|
|
dw DebugMenuOptionFight
|
|
dw DebugMenuOptionField
|
|
dw Function094c ; sound test
|
|
dw DebugMenuOptionSubGames
|
|
dw DebugMenuOptionMonsterTest
|
|
dw DebugMenuOptionName
|
|
|
|
DebugMenuHeader: ; 4070
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 05, 02, SCREEN_WIDTH - 7, SCREEN_HEIGHT - 1
|
|
dw .MenuData
|
|
db 01 ; default option
|
|
|
|
.MenuData: ; 4078
|
|
db $A0
|
|
db 0 ; items
|
|
dw DebugMenuItems
|
|
db $8A, $1F
|
|
dw .Strings
|
|
|
|
.Strings
|
|
db "ファイト@"
|
|
db "フィールド@"
|
|
db "サウンド@"
|
|
db "サブゲーム@"
|
|
db "モンスター@"
|
|
db "なまえ@"
|
|
|
|
DebugMenuItems:
|
|
db 06
|
|
db 00
|
|
db 01
|
|
db 02
|
|
db 03
|
|
db 04
|
|
db 05
|
|
db -1
|
|
|
|
DebugMenuOptionField:: ; 40A8
|
|
ld hl, wDebugFlags
|
|
set DEBUG_FIELD_F, [hl] ; set debug mode
|
|
jp StartNewGame
|
|
|
|
DebugMenuOptionFight:: ; 40B0
|
|
ld hl, wDebugFlags
|
|
set DEBUG_BATTLE_F, [hl]
|
|
ld a, $54
|
|
call Predef
|
|
ld hl, wDebugFlags
|
|
res DEBUG_BATTLE_F, [hl]
|
|
ret
|
|
|
|
DebugMenuOptionSubGames:: ; 40C0
|
|
callab CallSubGameMenu
|
|
jp DebugMenu
|
|
|
|
DebugMenuOptionMonsterTest:: ; 40CB
|
|
ld hl, wPokedexOwned
|
|
ld de, wPokedexSeen
|
|
ld b, $1F
|
|
ld a, $FF
|
|
.loop
|
|
ld [hl+], a
|
|
ld [de], a
|
|
inc de
|
|
dec b
|
|
jr nz, .loop
|
|
ld a, $03
|
|
ld [hl], a
|
|
ld [de], a
|
|
callab MonsterTest
|
|
ld a, $e4
|
|
ldh [rBGP], a
|
|
|
|
Function40eb::
|
|
jp DebugMenu
|
|
|
|
DebugMenuOptionName:: ; 40EE
|
|
callab OpenPokegear
|
|
ld a, $e4
|
|
ldh [rBGP], a
|
|
jp DebugMenu
|
|
|
|
; 40FD |