DrawSpritesForStage: ; 0x84b7
; Draw sprites (OAM data) for the current stage.
	ld a, [wCurrentStage]
	call CallInFollowingTable
CallTable_84bd: ; 0x84bd
	padded_dab DrawSpritesRedFieldTop     ; STAGE_RED_FIELD_TOP
	padded_dab DrawSpritesRedFieldBottom  ; STAGE_RED_FIELD_BOTTOM
	padded_dab Func_18079
	padded_dab Func_18084
	padded_dab DrawSpritesBlueFieldTop    ; STAGE_BLUE_FIELD_TOP
	padded_dab DrawSpritesBlueFieldBottom ; STAGE_BLUE_FIELD_BOTTOM
	padded_dab DrawSpritesGengarBonus     ; STAGE_GENGAR_BONUS
	padded_dab DrawSpritesGengarBonus     ; STAGE_GENGAR_BONUS
	padded_dab DrawSpritesMewtwoBonus     ; STAGE_MEWTWO_BONUS
	padded_dab DrawSpritesMewtwoBonus     ; STAGE_MEWTWO_BONUS
	padded_dab DrawSpritesMeowthBonus     ; STAGE_MEOWTH_BONUS
	padded_dab DrawSpritesMeowthBonus     ; STAGE_MEOWTH_BONUS
	padded_dab DrawSpritesDiglettBonus    ; STAGE_DIGLETT_BONUS
	padded_dab DrawSpritesDiglettBonus    ; STAGE_DIGLETT_BONUS
	padded_dab DrawSpritesSeelBonus       ; STAGE_SEEL_BONUS
	padded_dab DrawSpritesSeelBonus       ; STAGE_SEEL_BONUS

UnusedFunc_84fd:
; unused
	ld a, [hGameBoyColorFlag]
	and a
	jr z, .not_cgb
	ld a, $1
	ld [rVBK], a
	xor a
	call .FillAttrsOrBGMap
	xor a
	ld [rVBK], a
.not_cgb
	ld a, $81
	call .FillAttrsOrBGMap
	ld de, wBottomMessageBuffer + $47
	call Func_8524
	ret

.FillAttrsOrBGMap: ; 8519 (2:4519)
	hlCoord 0, 0, vBGWin
	ld b, $20
.loop
	ld [hli], a
	ld [hli], a
	dec b
	jr nz, .loop
	ret