pokecrystal/home/window.asm

ResetWindow:: ; 2dba

	call ResetTextRelatedRAM
	ld a, [hROMBank]
	push af
	ld a, BANK(Function6454) ; and BANK(Function64bf)
	rst Bankswitch

	call Function6454
	call Function2e20
	call Function64bf

	pop af
	rst Bankswitch
	ret
; 2dcf


CloseText:: ; 2dcf
	ld a, [hOAMUpdate]
	push af
	ld a, $1
	ld [hOAMUpdate], a

	call .CloseText

	pop af
	ld [hOAMUpdate], a
	ld hl, VramState
	res 6, [hl]
	ret
; 2de2

.CloseText ; 2de2
	call ResetTextRelatedRAM
	xor a
	ld [hBGMapMode], a
	call OverworldTextModeSwitch
	call Function2e20
	xor a
	ld [hBGMapMode], a
	call Function2e31
	ld a, $90
	ld [hWY], a
	call ReplaceKrisSprite
	callba ReturnFromMapSetupScript
	callba Function106594
	ret
; 2e08

OpenText:: ; 2e08
	call ResetTextRelatedRAM
	ld a, [hROMBank]
	push af
	ld a, BANK(Function6454) ; and BANK(Function64bf)
	rst Bankswitch

	call Function6454 ; clear bgmap
	call SpeechTextBox
	call Function2e20 ; anchor bgmap
	call Function64bf ; load font
	pop af
	rst Bankswitch

	ret
; 2e20

Function2e20:: ; 2e20
	ld a, [hOAMUpdate]
	push af
	ld a, $1
	ld [hOAMUpdate], a

	callba Function104110

	pop af
	ld [hOAMUpdate], a
	ret
; 2e31

Function2e31:: ; 2e31
	ld a, [hOAMUpdate]
	push af
	ld a, [hBGMapMode]
	push af
	xor a
	ld [hBGMapMode], a
	ld a, $1
	ld [hOAMUpdate], a
	call UpdateSprites
	xor a
	ld [hOAMUpdate], a
	call DelayFrame
	pop af
	ld [hBGMapMode], a
	pop af
	ld [hOAMUpdate], a
	ret
; 2e4e
Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`ResetWindow:: ; 2dba`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00
Add commented numbers to map/group constants 2015-10-18 00:49:34 +00:00			`call ResetTextRelatedRAM`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`ld a, [hROMBank]`
			`push af`
			`ld a, BANK(Function6454) ; and BANK(Function64bf)`
			`rst Bankswitch`

			`call Function6454`
			`call Function2e20`
			`call Function64bf`

			`pop af`
			`rst Bankswitch`
			`ret`
			`; 2dcf`


Rename several script commands 2015-11-25 15:16:29 +00:00			`CloseText:: ; 2dcf`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`ld a, [hOAMUpdate]`
			`push af`
			`ld a, $1`
			`ld [hOAMUpdate], a`
About time I got to these functions 2015-10-24 14:34:19 +00:00
opentext and breeding 2015-12-09 23:25:44 +00:00			`call .CloseText`
About time I got to these functions 2015-10-24 14:34:19 +00:00
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`pop af`
			`ld [hOAMUpdate], a`
			`ld hl, VramState`
			`res 6, [hl]`
			`ret`
			`; 2de2`

opentext and breeding 2015-12-09 23:25:44 +00:00			`.CloseText ; 2de2`
Add commented numbers to map/group constants 2015-10-18 00:49:34 +00:00			`call ResetTextRelatedRAM`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`xor a`
			`ld [hBGMapMode], a`
engine/mart.asm 2015-11-11 19:12:46 +00:00			`call OverworldTextModeSwitch`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`call Function2e20`
			`xor a`
			`ld [hBGMapMode], a`
			`call Function2e31`
			`ld a, $90`
			`ld [hWY], a`
home/copy.asm completely labeled 2015-11-04 21:14:27 +00:00			`call ReplaceKrisSprite`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`callba ReturnFromMapSetupScript`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`callba Function106594`
			`ret`
			`; 2e08`

opentext and breeding 2015-12-09 23:25:44 +00:00			`OpenText:: ; 2e08`
Add commented numbers to map/group constants 2015-10-18 00:49:34 +00:00			`call ResetTextRelatedRAM`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`ld a, [hROMBank]`
			`push af`
			`ld a, BANK(Function6454) ; and BANK(Function64bf)`
			`rst Bankswitch`

opentext and breeding 2015-12-09 23:25:44 +00:00			`call Function6454 ; clear bgmap`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`call SpeechTextBox`
opentext and breeding 2015-12-09 23:25:44 +00:00			`call Function2e20 ; anchor bgmap`
			`call Function64bf ; load font`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`pop af`
			`rst Bankswitch`

			`ret`
			`; 2e20`

Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`Function2e20:: ; 2e20`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`ld a, [hOAMUpdate]`
			`push af`
			`ld a, $1`
			`ld [hOAMUpdate], a`
Add commented numbers to map/group constants 2015-10-18 00:49:34 +00:00
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`callba Function104110`
Add commented numbers to map/group constants 2015-10-18 00:49:34 +00:00
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`pop af`
			`ld [hOAMUpdate], a`
			`ret`
			`; 2e31`

Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`Function2e31:: ; 2e31`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`ld a, [hOAMUpdate]`
			`push af`
			`ld a, [hBGMapMode]`
			`push af`
			`xor a`
			`ld [hBGMapMode], a`
			`ld a, $1`
			`ld [hOAMUpdate], a`
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 19:57:02 +00:00			`call UpdateSprites`
move window asm into home/window.asm 2013-09-19 01:40:48 +00:00			`xor a`
			`ld [hOAMUpdate], a`
			`call DelayFrame`
			`pop af`
			`ld [hBGMapMode], a`
			`pop af`
			`ld [hOAMUpdate], a`
			`ret`
			`; 2e4e`