pokecrystal-board/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 Function2de2

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

Function2de2:: ; 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

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

	call Function6454
	call SpeechTextBox
	call Function2e20
	call Function64bf
	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-01 17:26:39 -08:00			`ResetWindow:: ; 2dba`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00
Add commented numbers to map/group constants 2015-10-17 17:49:34 -07:00			`call ResetTextRelatedRAM`
move window asm into home/window.asm 2013-09-18 18:40:48 -07: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 07:16:29 -08:00			`CloseText:: ; 2dcf`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`ld a, [hOAMUpdate]`
			`push af`
			`ld a, $1`
			`ld [hOAMUpdate], a`
About time I got to these functions 2015-10-24 07:34:19 -07:00
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`call Function2de2`
About time I got to these functions 2015-10-24 07:34:19 -07:00
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`pop af`
			`ld [hOAMUpdate], a`
			`ld hl, VramState`
			`res 6, [hl]`
			`ret`
			`; 2de2`

Use :: to export labels between objects. This fixes the build. 2014-02-01 17:26:39 -08:00			`Function2de2:: ; 2de2`
Add commented numbers to map/group constants 2015-10-17 17:49:34 -07:00			`call ResetTextRelatedRAM`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`xor a`
			`ld [hBGMapMode], a`
engine/mart.asm 2015-11-11 11:12:46 -08:00			`call OverworldTextModeSwitch`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`call Function2e20`
			`xor a`
			`ld [hBGMapMode], a`
			`call Function2e31`
			`ld a, $90`
			`ld [hWY], a`
home/copy.asm completely labeled 2015-11-04 13:14:27 -08:00			`call ReplaceKrisSprite`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 00:51:52 -07:00			`callba ReturnFromMapSetupScript`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`callba Function106594`
			`ret`
			`; 2e08`

Add commented numbers to map/group constants 2015-10-17 17:49:34 -07:00			`LoadFont:: ; 2e08`
			`call ResetTextRelatedRAM`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`ld a, [hROMBank]`
			`push af`
			`ld a, BANK(Function6454) ; and BANK(Function64bf)`
			`rst Bankswitch`

			`call Function6454`
			`call SpeechTextBox`
			`call Function2e20`
			`call Function64bf`
			`pop af`
			`rst Bankswitch`

			`ret`
			`; 2e20`

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

Use :: to export labels between objects. This fixes the build. 2014-02-01 17:26:39 -08:00			`Function2e31:: ; 2e31`
move window asm into home/window.asm 2013-09-18 18:40:48 -07: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 12:57:02 -07:00			`call UpdateSprites`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`xor a`
			`ld [hOAMUpdate], a`
			`call DelayFrame`
			`pop af`
			`ld [hBGMapMode], a`
			`pop af`
			`ld [hOAMUpdate], a`
			`ret`
			`; 2e4e`