FieldDebug_PokemonFollowing: call .DoPokemonFollowing jr c, .exit ld a, FIELDDEBUG_RETURN_REOPEN ret .exit ld a, FIELDDEBUG_RETURN_CLEANUP ret .DoPokemonFollowing: ld hl, .MenuHeader call LoadMenuHeader call VerticalMenu jr c, .done ld a, [wMenuCursorY] cp 1 jr nz, .remove ld a, [wPlayerStructEnd] and a jr nz, .ShowUnableText callab Function8031 ld de, SFX_24 call PlaySFX call CloseWindow call UpdateSprites scf ret .remove callab Function806c ld de, SFX_25 call PlaySFX jr .done .ShowUnableText: ld hl, .UnableText call FieldDebug_ShowTextboxAndExit .done call CloseWindow call UpdateSprites xor a ret .MenuHeader: db MENU_BACKUP_TILES menu_coords 3, 3, 9, 9 dw .MenuData db 1 .MenuData: db STATICMENU_CURSOR db 2 db "つける@" db "はずす@" .UnableText: text "だめです!!" done