pokecrystal-board/engine/menus/init_gender.asm

InitGender:
	call InitGenderScreen
	call LoadGenderScreenPal
	call LoadGenderScreenLightBlueTile
	call WaitBGMap2
	call SetDefaultBGPAndOBP
	ld hl, AreYouABoyOrAreYouAGirlText
	call PrintText1bpp
	ld hl, .MenuHeader
	call LoadMenuHeader
	call WaitBGMap2
	call VerticalMenu
	call CloseWindow
	ld a, [wMenuCursorY]
	dec a
	ld [wPlayerGender], a
	ld c, 10
	call DelayFrames
	ret

.MenuHeader:
	db MENU_BACKUP_TILES ; flags
	menu_coords 6, 4, 12, 9
	dw .MenuData
	db 1 ; default option

.MenuData:
	db STATICMENU_CURSOR | STATICMENU_WRAP | STATICMENU_DISABLE_B ; flags
	db 2 ; items
	db "Boy@"
	db "Girl@"

AreYouABoyOrAreYouAGirlText:
	text_far _AreYouABoyOrAreYouAGirlText
	text_end

InitGenderScreen:
	ld a, $10
	ld [wMusicFade], a
	ld a, LOW(MUSIC_NONE)
	ld [wMusicFadeID], a
	ld a, HIGH(MUSIC_NONE)
	ld [wMusicFadeID + 1], a
	ld c, 8
	call DelayFrames
	call ClearBGPalettes
	call LoadFrame
	hlcoord 0, 0
	ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
	ld a, $0
	call ByteFill
	hlcoord 0, 0, wAttrmap
	ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
	xor a
	call ByteFill
	ret

LoadGenderScreenPal:
	ld hl, .Palette
	ld de, wBGPals1
	ld bc, 1 palettes
	ld a, BANK(wBGPals1)
	call FarCopyWRAM
	farcall ApplyPals
	ret

.Palette:
INCLUDE "gfx/new_game/gender_screen.pal"

LoadGenderScreenLightBlueTile:
	ld de, .LightBlueTile
	ld hl, vTiles2 tile $00
	lb bc, BANK(.LightBlueTile), 1
	call Get2bpp
	ret

.LightBlueTile:
INCBIN "gfx/new_game/gender_screen.2bpp"
Remove all address comments 2018-06-24 07:09:41 -07:00			`InitGender:`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`call InitGenderScreen`
			`call LoadGenderScreenPal`
			`call LoadGenderScreenLightBlueTile`
			`call WaitBGMap2`
Apply most of pokecrystal PR 1105 2024-02-10 15:16:00 -08:00			`call SetDefaultBGPAndOBP`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ld hl, AreYouABoyOrAreYouAGirlText`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`call PrintText1bpp`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 13:08:43 -08:00			`ld hl, .MenuHeader`
			`call LoadMenuHeader`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`call WaitBGMap2`
Menu 2015-12-15 15:59:49 -08:00			`call VerticalMenu`
writebackup --> closewindow; game corner prize vendors; others 2015-12-24 19:58:42 -08:00			`call CloseWindow`
Menu 2015-12-15 15:59:49 -08:00			`ld a, [wMenuCursorY]`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`dec a`
Prefix engine_flags wram addresses with w 2017-12-28 04:15:46 -08:00			`ld [wPlayerGender], a`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ld c, 10`
			`call DelayFrames`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.MenuHeader:`
Use constants for menu flags Added a bunch of constants for the bitflags of each kind of menu. Some are slightly vague or too long, but I'm not sure how to else name them. 2018-01-14 02:59:56 -08:00			`db MENU_BACKUP_TILES ; flags`
menu_coords macro for (x1, y1, x2, y2) order (see issue #440) 2018-01-13 13:38:14 -08:00			`menu_coords 6, 4, 12, 9`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 13:08:43 -08:00			`dw .MenuData`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`db 1 ; default option`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.MenuData:`
Use constants for menu flags Added a bunch of constants for the bitflags of each kind of menu. Some are slightly vague or too long, but I'm not sure how to else name them. 2018-01-14 02:59:56 -08:00			`db STATICMENU_CURSOR \| STATICMENU_WRAP \| STATICMENU_DISABLE_B ; flags`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`db 2 ; items`
			`db "Boy@"`
			`db "Girl@"`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`AreYouABoyOrAreYouAGirlText:`
			`text_far _AreYouABoyOrAreYouAGirlText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
mystery gift, credits 2015-12-14 17:06:41 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`InitGenderScreen:`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ld a, $10`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wMusicFade], a`
More miscellaneous fixes (see #709) 2020-04-17 07:52:59 -07:00			`ld a, LOW(MUSIC_NONE)`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wMusicFadeID], a`
More miscellaneous fixes (see #709) 2020-04-17 07:52:59 -07:00			`ld a, HIGH(MUSIC_NONE)`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wMusicFadeID + 1], a`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ld c, 8`
			`call DelayFrames`
			`call ClearBGPalettes`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`call LoadFrame`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`hlcoord 0, 0`
			`ld bc, SCREEN_HEIGHT * SCREEN_WIDTH`
			`ld a, $0`
			`call ByteFill`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`hlcoord 0, 0, wAttrmap`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ld bc, SCREEN_HEIGHT * SCREEN_WIDTH`
			`xor a`
			`call ByteFill`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`LoadGenderScreenPal:`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ld hl, .Palette`
Rename Pals labels in WRAM bank 5 2018-01-01 06:08:21 -08:00			`ld de, wBGPals1`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ld bc, 1 palettes`
Use BANK for hardcoded WRAM banks preceding FarCopyWRAM/GetFarWRAMByte calls. 2018-01-04 11:53:50 -08:00			`ld a, BANK(wBGPals1)`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`call FarCopyWRAM`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall ApplyPals`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.Palette:`
Separate new_game graphics 2018-01-21 10:58:16 -08:00			`INCLUDE "gfx/new_game/gender_screen.pal"`
mystery gift, credits 2015-12-14 17:06:41 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`LoadGenderScreenLightBlueTile:`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`ld de, .LightBlueTile`
Lowercase v for VRAM addresses 2017-12-28 04:32:33 -08:00			`ld hl, vTiles2 tile $00`
mystery gift, credits 2015-12-14 17:06:41 -08:00			`lb bc, BANK(.LightBlueTile), 1`
			`call Get2bpp`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.LightBlueTile:`
Separate new_game graphics 2018-01-21 10:58:16 -08:00			`INCBIN "gfx/new_game/gender_screen.2bpp"`