pokecrystal-board/engine/movie/init_hof_credits.asm

InitDisplayForHallOfFame:
	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	call DisableLCD
	call LoadStandardFont
	call LoadFontsBattleExtra
	hlbgcoord 0, 0
	ld bc, vBGMap1 - vBGMap0
	ld a, " "
	call ByteFill
	hlcoord 0, 0, wAttrMap
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	xor a
	call ByteFill
	xor a
	ld [hSCY], a
	ld [hSCX], a
	call EnableLCD
	ld hl, .SavingRecordDontTurnOff
	call PrintText
	call WaitBGMap2
	call SetPalettes
	ret

.SavingRecordDontTurnOff:
	; SAVING RECORD… DON'T TURN OFF!
	text_jump UnknownText_0x1bd39e
	db "@"

InitDisplayForRedCredits:
	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	call DisableLCD
	call LoadStandardFont
	call LoadFontsBattleExtra
	hlbgcoord 0, 0
	ld bc, vBGMap1 - vBGMap0
	ld a, " "
	call ByteFill
	hlcoord 0, 0, wAttrMap
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	xor a
	call ByteFill
	ld hl, wBGPals1
	ld c, 4 tiles
.load_white_palettes
	ld a, LOW(PALRGB_WHITE)
	ld [hli], a
	ld a, HIGH(PALRGB_WHITE)
	ld [hli], a
	dec c
	jr nz, .load_white_palettes
	xor a
	ld [hSCY], a
	ld [hSCX], a
	call EnableLCD
	call WaitBGMap2
	call SetPalettes
	ret

ResetDisplayBetweenHallOfFameMons:
	ld a, [rSVBK]
	push af
	ld a, BANK(wDecompressScratch)
	ld [rSVBK], a
	ld hl, wDecompressScratch
	ld bc, wScratchAttrMap - wDecompressScratch
	ld a, " "
	call ByteFill
	hlbgcoord 0, 0
	ld de, wDecompressScratch
	ld b, 0
	ld c, 4 tiles
	call Request2bpp
	pop af
	ld [rSVBK], a
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`InitDisplayForHallOfFame:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call ClearBGPalettes`
			`call ClearTileMap`
			`call ClearSprites`
			`call DisableLCD`
			`call LoadStandardFont`
			`call LoadFontsBattleExtra`
			`hlbgcoord 0, 0`
Lowercase v for VRAM addresses 2017-12-28 04:32:33 -08:00			`ld bc, vBGMap1 - vBGMap0`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld a, " "`
			`call ByteFill`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`hlcoord 0, 0, wAttrMap`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
			`xor a`
			`call ByteFill`
			`xor a`
			`ld [hSCY], a`
			`ld [hSCX], a`
			`call EnableLCD`
			`ld hl, .SavingRecordDontTurnOff`
			`call PrintText`
			`call WaitBGMap2`
			`call SetPalettes`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.SavingRecordDontTurnOff:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`; SAVING RECORD… DON'T TURN OFF!`
			`text_jump UnknownText_0x1bd39e`
			`db "@"`

Remove all address comments 2018-06-24 07:09:41 -07:00			`InitDisplayForRedCredits:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call ClearBGPalettes`
			`call ClearTileMap`
			`call ClearSprites`
			`call DisableLCD`
			`call LoadStandardFont`
			`call LoadFontsBattleExtra`
			`hlbgcoord 0, 0`
Lowercase v for VRAM addresses 2017-12-28 04:32:33 -08:00			`ld bc, vBGMap1 - vBGMap0`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld a, " "`
			`call ByteFill`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`hlcoord 0, 0, wAttrMap`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
			`xor a`
			`call ByteFill`
Rename Pals labels in WRAM bank 5 2018-01-01 06:08:21 -08:00			`ld hl, wBGPals1`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld c, 4 tiles`
			`.load_white_palettes`
Only graphics data goes in gfx/ Introduce PALRGB_WHITE constant for $7fff 2018-01-18 08:16:24 -08:00			`ld a, LOW(PALRGB_WHITE)`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld [hli], a`
Only graphics data goes in gfx/ Introduce PALRGB_WHITE constant for $7fff 2018-01-18 08:16:24 -08:00			`ld a, HIGH(PALRGB_WHITE)`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld [hli], a`
			`dec c`
			`jr nz, .load_white_palettes`
			`xor a`
			`ld [hSCY], a`
			`ld [hSCX], a`
			`call EnableLCD`
			`call WaitBGMap2`
			`call SetPalettes`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`ResetDisplayBetweenHallOfFameMons:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld a, [rSVBK]`
			`push af`
Use BANK for hardcoded WRAM banks (except where bankswitches appear unnecessary). 2018-01-03 16:12:45 -08:00			`ld a, BANK(wDecompressScratch)`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld [rSVBK], a`
			`ld hl, wDecompressScratch`
			`ld bc, wScratchAttrMap - wDecompressScratch`
			`ld a, " "`
			`call ByteFill`
			`hlbgcoord 0, 0`
			`ld de, wDecompressScratch`
			`ld b, 0`
			`ld c, 4 tiles`
			`call Request2bpp`
			`pop af`
			`ld [rSVBK], a`
			`ret`