pokecrystal/engine/menus/init_gender.asm

InitCrystalData:
	ld a, $1
	ld [wd474], a
	xor a
	ld [wd473], a
	ld [wPlayerGender], a
	ld [wd475], a
	ld [wd476], a
	ld [wd477], a
	ld [wd478], a
	ld [wd002], a
	ld [wd003], a
	; could have done "ld a, [wd479] \ and %11111100", saved four operations
	ld a, [wd479]
	res 0, a
	ld [wd479], a
	ld a, [wd479]
	res 1, a
	ld [wd479], a
	ret

INCLUDE "mobile/mobile_12.asm"

InitGender:
	call InitGenderScreen
	call LoadGenderScreenPal
	call LoadGenderScreenLightBlueTile
	call WaitBGMap2
	call SetPalettes
	ld hl, AreYouABoyOrAreYouAGirlText
	call PrintText
	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, MUSIC_NONE
	ld [wMusicFadeID], a
	ld a, $0
	ld [wMusicFadeID + 1], a
	ld c, 8
	call DelayFrames
	call ClearBGPalettes
	call InitCrystalData
	call LoadFontsExtra
	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 14:09:41 +00:00			`InitCrystalData:`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`ld a, $1`
			`ld [wd474], a`
			`xor a`
			`ld [wd473], a`
Prefix engine_flags wram addresses with w 2017-12-28 12:15:46 +00:00			`ld [wPlayerGender], a`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`ld [wd475], a`
			`ld [wd476], a`
			`ld [wd477], a`
			`ld [wd478], a`
			`ld [wd002], a`
			`ld [wd003], a`
			`; could have done "ld a, [wd479] \ and %11111100", saved four operations`
			`ld a, [wd479]`
			`res 0, a`
			`ld [wd479], a`
			`ld a, [wd479]`
			`res 1, a`
			`ld [wd479], a`
			`ret`

Move some misc/ files into meaningful directories 2017-12-15 17:53:33 +00:00			`INCLUDE "mobile/mobile_12.asm"`
mystery gift, credits 2015-12-15 01:06:41 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`InitGender:`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`call InitGenderScreen`
			`call LoadGenderScreenPal`
			`call LoadGenderScreenLightBlueTile`
			`call WaitBGMap2`
			`call SetPalettes`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, AreYouABoyOrAreYouAGirlText`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`call PrintText`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 21:08:43 +00:00			`ld hl, .MenuHeader`
			`call LoadMenuHeader`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`call WaitBGMap2`
Menu 2015-12-15 23:59:49 +00:00			`call VerticalMenu`
writebackup --> closewindow; game corner prize vendors; others 2015-12-25 03:58:42 +00:00			`call CloseWindow`
Menu 2015-12-15 23:59:49 +00:00			`ld a, [wMenuCursorY]`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`dec a`
Prefix engine_flags wram addresses with w 2017-12-28 12:15:46 +00:00			`ld [wPlayerGender], a`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`ld c, 10`
			`call DelayFrames`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00: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 10:59:56 +00:00			`db MENU_BACKUP_TILES ; flags`
menu_coords macro for (x1, y1, x2, y2) order (see issue #440) 2018-01-13 21:38:14 +00:00			`menu_coords 6, 4, 12, 9`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 21:08:43 +00:00			`dw .MenuData`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`db 1 ; default option`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00: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 10:59:56 +00:00			`db STATICMENU_CURSOR \| STATICMENU_WRAP \| STATICMENU_DISABLE_B ; flags`
mystery gift, credits 2015-12-15 01:06:41 +00: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 22:24:17 +00:00			`AreYouABoyOrAreYouAGirlText:`
			`text_far _AreYouABoyOrAreYouAGirlText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
mystery gift, credits 2015-12-15 01:06:41 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`InitGenderScreen:`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`ld a, $10`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wMusicFade], a`
Battle animation annotations 2016-03-02 03:31:21 +00:00			`ld a, MUSIC_NONE`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wMusicFadeID], a`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`ld a, $0`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wMusicFadeID + 1], a`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`ld c, 8`
			`call DelayFrames`
			`call ClearBGPalettes`
			`call InitCrystalData`
			`call LoadFontsExtra`
			`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 17:30:13 +00:00			`hlcoord 0, 0, wAttrmap`
mystery gift, credits 2015-12-15 01:06:41 +00:00			`ld bc, SCREEN_HEIGHT * SCREEN_WIDTH`
			`xor a`
			`call ByteFill`
			`ret`

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

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

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