pokecrystal-board/home/window.asm

RefreshScreen:: ; 2dba

	call ClearWindowData
	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 ClearWindowData
	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 LoadOverworldFont
	ret
; 2e08

OpenText:: ; 2e08
	call ClearWindowData
	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
writebackup --> closewindow; game corner prize vendors; others 2015-12-24 22:58:42 -05:00			`RefreshScreen:: ; 2dba`
move window asm into home/window.asm 2013-09-18 21:40:48 -04:00
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 14:48:30 -05:00			`call ClearWindowData`
move window asm into home/window.asm 2013-09-18 21:40:48 -04: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 10:16:29 -05:00			`CloseText:: ; 2dcf`
move window asm into home/window.asm 2013-09-18 21:40:48 -04:00			`ld a, [hOAMUpdate]`
			`push af`
			`ld a, $1`
			`ld [hOAMUpdate], a`
About time I got to these functions 2015-10-24 10:34:19 -04:00
opentext and breeding 2015-12-09 18:25:44 -05:00			`call .CloseText`
About time I got to these functions 2015-10-24 10:34:19 -04:00
move window asm into home/window.asm 2013-09-18 21:40:48 -04:00			`pop af`
			`ld [hOAMUpdate], a`
			`ld hl, VramState`
			`res 6, [hl]`
			`ret`
			`; 2de2`

opentext and breeding 2015-12-09 18:25:44 -05:00			`.CloseText ; 2de2`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 14:48:30 -05:00			`call ClearWindowData`
move window asm into home/window.asm 2013-09-18 21:40:48 -04:00			`xor a`
			`ld [hBGMapMode], a`
engine/mart.asm 2015-11-11 14:12:46 -05:00			`call OverworldTextModeSwitch`
move window asm into home/window.asm 2013-09-18 21:40:48 -04:00			`call Function2e20`
			`xor a`
			`ld [hBGMapMode], a`
			`call Function2e31`
			`ld a, $90`
			`ld [hWY], a`
home/copy.asm completely labeled 2015-11-04 16:14:27 -05:00			`call ReplaceKrisSprite`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 03:51:52 -04:00			`callba ReturnFromMapSetupScript`
Color fns, some more address decoding in link/mobile 2015-12-22 18:03:00 -05:00			`callba LoadOverworldFont`
move window asm into home/window.asm 2013-09-18 21:40:48 -04:00			`ret`
			`; 2e08`

opentext and breeding 2015-12-09 18:25:44 -05:00			`OpenText:: ; 2e08`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 14:48:30 -05:00			`call ClearWindowData`
move window asm into home/window.asm 2013-09-18 21:40:48 -04:00			`ld a, [hROMBank]`
			`push af`
			`ld a, BANK(Function6454) ; and BANK(Function64bf)`
			`rst Bankswitch`

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

			`ret`
			`; 2e20`

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

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