pokered/engine/menus/display_text_id_init.asm

; function that performs initialization for DisplayTextID
DisplayTextIDInit::
	xor a
	ld [wListMenuID], a
	ld a, [wAutoTextBoxDrawingControl]
	bit 0, a
	jr nz, .skipDrawingTextBoxBorder
	ldh a, [hSpriteIndexOrTextID] ; text ID (or sprite ID)
	and a
	jr nz, .notStartMenu
; if text ID is 0 (i.e. the start menu)
; Note that the start menu text border is also drawn in the function directly
; below this, so this seems unnecessary.
	CheckEvent EVENT_GOT_POKEDEX
; start menu with pokedex
	hlcoord 10, 0
	ld b, $0e
	ld c, $08
	jr nz, .drawTextBoxBorder
; start menu without pokedex
	hlcoord 10, 0
	ld b, $0c
	ld c, $08
	jr .drawTextBoxBorder
; if text ID is not 0 (i.e. not the start menu) then do a standard dialogue text box
.notStartMenu
	hlcoord 0, 12
	ld b, $04
	ld c, $12
.drawTextBoxBorder
	call TextBoxBorder
.skipDrawingTextBoxBorder
	ld hl, wFontLoaded
	set 0, [hl]
	ld hl, wFlags_0xcd60
	bit 4, [hl]
	res 4, [hl]
	jr nz, .skipMovingSprites
	call UpdateSprites
.skipMovingSprites
; loop to copy [x#SPRITESTATEDATA1_FACINGDIRECTION] to
; [x#SPRITESTATEDATA2_ORIGFACINGDIRECTION] for each non-player sprite
; this is done because when you talk to an NPC, they turn to look your way
; the original direction they were facing must be restored after the dialogue is over
	ld hl, wSprite01StateData1FacingDirection
	ld c, $0f
	ld de, $10
.spriteFacingDirectionCopyLoop
	ld a, [hl] ; x#SPRITESTATEDATA1_FACINGDIRECTION
	inc h
	ld [hl], a ; [x#SPRITESTATEDATA2_ORIGFACINGDIRECTION]
	dec h
	add hl, de
	dec c
	jr nz, .spriteFacingDirectionCopyLoop
; loop to force all the sprites in the middle of animation to stand still
; (so that they don't like they're frozen mid-step during the dialogue)
	ld hl, wSpritePlayerStateData1ImageIndex
	ld de, $10
	ld c, e
.spriteStandStillLoop
	ld a, [hl]
	cp $ff ; is the sprite visible?
	jr z, .nextSprite
; if it is visible
	and $fc
	ld [hl], a
.nextSprite
	add hl, de
	dec c
	jr nz, .spriteStandStillLoop
	ld b, $9c ; window background address
	call CopyScreenTileBufferToVRAM ; transfer background in WRAM to VRAM
	xor a
	ldh [hWY], a ; put the window on the screen
	call LoadFontTilePatterns
	ld a, $01
	ldh [hAutoBGTransferEnabled], a ; enable continuous WRAM to VRAM transfer each V-blank
	ret
split bank 1 into files 2016-09-18 01:17:57 +00:00			`; function that performs initialization for DisplayTextID`
Separate maps.asm, pics.asm, sprites.asm, and tilesets.asm from main.asm (#251) Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels. 2020-06-27 19:32:24 +00:00			`DisplayTextIDInit::`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`xor a`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld [wListMenuID], a`
			`ld a, [wAutoTextBoxDrawingControl]`
			`bit 0, a`
			`jr nz, .skipDrawingTextBoxBorder`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hSpriteIndexOrTextID] ; text ID (or sprite ID)`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`and a`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`jr nz, .notStartMenu`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`; if text ID is 0 (i.e. the start menu)`
			`; Note that the start menu text border is also drawn in the function directly`
			`; below this, so this seems unnecessary.`
			`CheckEvent EVENT_GOT_POKEDEX`
			`; start menu with pokedex`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 10, 0`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld b, $0e`
			`ld c, $08`
			`jr nz, .drawTextBoxBorder`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`; start menu without pokedex`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 10, 0`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld b, $0c`
			`ld c, $08`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`jr .drawTextBoxBorder`
			`; if text ID is not 0 (i.e. not the start menu) then do a standard dialogue text box`
			`.notStartMenu`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 0, 12`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld b, $04`
			`ld c, $12`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`.drawTextBoxBorder`
			`call TextBoxBorder`
			`.skipDrawingTextBoxBorder`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld hl, wFontLoaded`
			`set 0, [hl]`
			`ld hl, wFlags_0xcd60`
			`bit 4, [hl]`
			`res 4, [hl]`
			`jr nz, .skipMovingSprites`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`call UpdateSprites`
			`.skipMovingSprites`
Identify SPRITESTATEDATA2_ORIGFACINGDIRECTION 2020-07-07 20:57:51 +00:00			`; loop to copy [x#SPRITESTATEDATA1_FACINGDIRECTION] to`
			`; [x#SPRITESTATEDATA2_ORIGFACINGDIRECTION] for each non-player sprite`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`; this is done because when you talk to an NPC, they turn to look your way`
			`; the original direction they were facing must be restored after the dialogue is over`
Identify wSpriteStateData1 and wSpriteStateData2 offsets, like pokeyellow 2020-07-05 21:29:11 +00:00			`ld hl, wSprite01StateData1FacingDirection`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld c, $0f`
Remove remaining raw $xxxx values, and replace "+ -1" with "- 1" (supported by rgbds 0.4.0) 2020-07-04 05:00:45 +00:00			`ld de, $10`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`.spriteFacingDirectionCopyLoop`
Identify SPRITESTATEDATA2_ORIGFACINGDIRECTION 2020-07-07 20:57:51 +00:00			`ld a, [hl] ; x#SPRITESTATEDATA1_FACINGDIRECTION`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`inc h`
Identify SPRITESTATEDATA2_ORIGFACINGDIRECTION 2020-07-07 20:57:51 +00:00			`ld [hl], a ; [x#SPRITESTATEDATA2_ORIGFACINGDIRECTION]`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`dec h`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`add hl, de`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`dec c`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`jr nz, .spriteFacingDirectionCopyLoop`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`; loop to force all the sprites in the middle of animation to stand still`
			`; (so that they don't like they're frozen mid-step during the dialogue)`
Identify wSpriteStateData1 and wSpriteStateData2 offsets, like pokeyellow 2020-07-05 21:29:11 +00:00			`ld hl, wSpritePlayerStateData1ImageIndex`
Remove remaining raw $xxxx values, and replace "+ -1" with "- 1" (supported by rgbds 0.4.0) 2020-07-04 05:00:45 +00:00			`ld de, $10`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld c, e`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`.spriteStandStillLoop`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, [hl]`
			`cp $ff ; is the sprite visible?`
			`jr z, .nextSprite`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`; if it is visible`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`and $fc`
			`ld [hl], a`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`.nextSprite`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`add hl, de`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`dec c`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`jr nz, .spriteStandStillLoop`
			`ld b, $9c ; window background address`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`call CopyScreenTileBufferToVRAM ; transfer background in WRAM to VRAM`
			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hWY], a ; put the window on the screen`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`call LoadFontTilePatterns`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, $01`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hAutoBGTransferEnabled], a ; enable continuous WRAM to VRAM transfer each V-blank`
split bank 1 into files 2016-09-18 01:17:57 +00:00			`ret`